IBM 5150 - Page 207

LOC OSJ
LINE SOU RCE
E42B 7440
900 JE
"2
iYES - SKIP MEMORY TEST
901
902 TEST ANY OTHER REAOIWRITE STORAGE AVAILABLE
903
E42D ee0004 90. MOV eX,400H
E430 B91000
905
MOV CX,16
E433 906 E21 :
E433 3801
907
CHP oX,ex
,ANY HORE STG TO BE TESTED?
E435 7646 908 JBE E23
iNO - GO TO NEXT TEST
E437 SEDS
909
HOV OS,BX
iSETUP STG ADDR IN OS AND ES
E439 8EC3 910 MOV ES,BX
E43B 83C110 911 ADO CX,16
;ItlCREMENT STG BYTE COUNTER
E43E 81C30004 912 ADD BX, 400H i SET POINTER TO NEXT 16K BLK
E442 51 913 PUSH CX iSAVE REGS
E443 53
91. PUSH BX
E444 52 915 PUSH OX
E445 E8DlFS
916
CALL STGTST iGO TEST A 16K BLK OF STG
E448 SA
917
POP OX
E449 5B
918
POP BX
iRESTORE REGS
E44A 59
919
POP CX
E44B 74E6
920
JE E21 jCHECK IF MORE STG TO TEST
921
922 PRINT FAILING ADDRESS AND XOP'EO PATTERN IF DATA COMPARE EPROP
923
E440 eCOA 92.
MOV
OX.DS
jCONVERT FAILING HIGH-ORDER
E44F SAf8 925
MOV
CH.AL
iSAVE FAILING BIT PATTERN
E451 8AC6 926
MOV
AL.DH
iGET FAILING ADDR (HIGH BYTE)
E453 BI04 927
MOV
CL,4
E455 02E8 928 SHR AL.CL
jRIGHT-JUSTIFY HIGH BYTE
E4S7 E83EOO 929 CALL XLAT_PPINT_CODE
;CONVERT
AND PRINT CODE
E4SA BAC6
930
MOV AL,OH
E45C 240F
931
AND AL,OFH
E4Sf E83700
932 CALL XLAT_PRINT_CODE
;
CONVERT AND PRINT CODE
E461 8ACS
933
HOV AL,CH ;GET FAILING BIT PATTERN
E463 BI04
93.
HOV CL,4 i AND ISOLATE LEFTMOST NIBBLE
E465 o2E8
935
SHR AL,CL
E467 E82EOO
936
CALL XLAT_PRINT_CODE
iCONVERT
AND PRItlT CODE
E46A 8ACS
937
HOV AL,C!~
;GET FAILING BIT PATTERn AND
E46e 2.40F 93. AND AL,OFH
; ISOLATE RIGHTMOST tHBBLE
E46E f82700 939 CALL XLAT_PRWT_COOE
ICONVERT
AND PRINT CODE
E471 BEESE!
940
HOV SI.OfFSET EI
;SETUP ADDRESS OF ERROR MSG
E474 B90400
9'1
tlOV CX.EIL I GET MSG BYTE coum
E477 E85002
9'2
CALL P _MSG
; FRINT ERROR MSG
E47A 943
E22: ; GO_TST12!
E47A E94AOO 94. JMP
TST12
IGO TO NEXT TEST
E470
945 E23: j STG_TEST.ODtIE:
E410 884000
946
MOV AX,OATA
jPOINT 05 TO DATA SEGMENT
E480 8ED8
9.7
MOV OS,AX ; CHG MADE 3127161
E482 8B161500
9.8
MOV
OX , IO_PAM_SIZE
lGET 10 CHANNEL RAM SIZE
E486 OB02
9'9
OR
OX,DX ; SET FLAG PESUL T
E488 74FO 950
Jl En
;tlO 10 RAM. GO TO NEXT TEST
E48A 890000
951
MOV
CX,O
E480 81FBOOIO 952
eMP
eX,lOOOH
jHAS ID RAM BEEN TESTED
E491 77E7
953
JA E22
; YES - GO TO ~lEXT TEST
E493 BBOOIO 95.
MOV BX,IOOOH
; SETUP BEG lOC FOR 10 RAM
E496 EB9B 955
JMP SHORT E21
;GO TEST
10 CHANNEL RAM
956 ; ---------- -------- •• ------- -----------------
957 CONVERT AND PRINT ASCII CODE
958
959 AL MUST CONTAIN NUMBER TO BE CONVERTED.
960 AX AND BX DESTROYEO.
961 i --------------------------------------------
E498
962 XLAT_PRINT_CODE PROC NEAR
E498 IE
963
PUSH OS
;SAVE OS VALUE
E499 DE
96. PUSH CS
j
POINT OS TO CODE SEG
E49A IF 965 POP OS
E498 [lBB7E4
%6
MOV 6X.OE4B7H
; OFFSET ASCII_T6l-XLAT TABLE
E49E 07 967
XLATB
E49F B40E
968
MOV AH,14
E4Al B700 969
MOV CH,O
E4A3 COlO
970
WT IDH
;CALL VIDEO_IO
E4A5 IF
971
POP 05
;RESTORE ORIG VALUE IN OS
E4A6 C3
972
RET
A-14