IBM XT 5160 - Page 238

POST (01/10/86)
: -~;;~~~~~~-~/~-~~;-~~~~------------------------------- ----------
CHECK TO SEE IF EXPANSION BOX PRESENT - IF INSTALLED,
, TEST DATA AND ADDRESS BUSES TO 1/0 BOX
;
ERROR=' 1801'
; ADD I TI ONAL READ I WR I TE STORAGE TEST
; DESCRIPTION
WR I TE I READ DA TAPA TTERNS TO ANY READ I WR I TE
STORAGE AFTER THE FIRST 64K. STORAGE
ADDRESSAB I L I
TY I S CHECKED.
5-91
SAVE DATA BUS VALUE
SEND V ALUE TO REG
FORM NEW DATA PATTERN
LOOP TILL BIT WALKS ACROSS AL
GO ON TO NEXT TEST
RETR I VE V ALUE FROM REG
= TO SAVED
VALUE
SET UP FOR DEC I MAL CONVERT
OF 3
NIBBLES
(CARD WAS ENABLED EARL I ER)
CONTROL PORT ADDRESS
SET DATA PATTERN
MAKE AL 0 I FFERENT
RECOVER DATA
REPLY?
NO RESPONSE, GO TO NEXT TEST
MAKE DATA=AAAA
; ENABLE T I MER INTERRUPT
; RECOVER OATA
;
SET COUNT FOR 8K WORDS
GO PR I NT ERROR
RECOVER
TESTED MEM NUMBER
;
DO 8 TIMES
; MAKE DX=214H (DATA BUS REG)
LOAD HI ADDR. REG ADDRESS
GO ACROSS 16 BITS
; WR I TE ADDRESS FOOOO+BX
; READ
ADDR. HIGH
GO ERROR IF MI SCOMPARE
DX=216H (ADDR. LOW REG)
; COMPARE TO
LOW ADDRESS
;
OX BACK TO 2 I 5H
; LOOP TILL 'I' WALKS ACROSS BX
; WARM START?
; CONT I NUE TEST I F NOT
;
GO TO NEXT ROUTINE IF SO
; STARTING AMT. OF MEMORY OK
; POST MESSAGE
GET MEM. SIZE WORD
1ST 64K ALREADY DONE
DIVIDE BY 16
SAVE COUNT OF 16K BLOCKS
SET PTR. TO RAM SEGMENT>64K
; SET SEG. REG
; PO I
NT TO NEXT I 6K
; SAVE WORK REGS
; 0 I V I DE BY I 0
I
MAKE INTO ASCII
; SAVE
1-8
01-10-86
AL,OFEH
INTAOI,AL
CS: [BX] ,AL
CX,0008
AL,OI
OX
AL,DX
AL,BH
EXP ERR
OX -
AL,DX
AL,BL
EXP ERR
OX -
BX,I
EXP3
OX, 021 OH
AX,5555H
DX,AL
AL,OIH
AL,DX
AL,AH
EI9
AX
DX,AL
AL,OIH
AL,DX
AL,AH
EI9
BX, 000 IH
DX,0215H
CX,OOl6
MOV
OUT
MOV
MOV
MOV
MOV
MOV
OUT
MOV
IN
CMP
JNE
NOT
OUT
MOV
IN
CMP
JNE
MOV
MOV
DEC
MOV
NOP
IN
CMP
JNE
INC
IN
CMP
JNE
DEC
SHL
LOOP
;
----- CHECK DATA BUS
;
----- CHECK ADDRESS BUS
EXP2:
EXP3:
EXP4:
ASSUME
DS:DATA
E19:
CALL
DDS
PUSH
OS
E20:
CMP
ORE SET _FLAG, 1234H
JNE
E20A
JMP
ROM_SCAN
E20A:
MOV
AX,64
JMP
SHORT PRT_SIZ
E20B:
MOV
BX,OMEMORY SIZE
SUB
BX,64 -
MOV
CL,4
SHR
BX,CL
MOV
CX,BX
MOV
BX, 1000H
E21:
MOV
DS,BX
MOV
ES,BX
ADD
BX,0400H
PUSH OX
PUSH
CX
PUSH
BX
PUSH
AX
MOV
CX,02000H
CALL
STGTST_CNT
JNZ
E21A
POP
AX
ADD
AX,I6
PRT_SIZ:
PUSH AX
MOV
BX,IO
MOV
CX,3
DEC I MAL_LOOP:
XOR
DX,DX
DIV
BX
OR
DL,30H
PUSH
OX
LOOP
DEC I
MAL_LOOP
MOV
CX,3
PRT _DEC_LOOP:
;----- DETERMINE IF BOX IS PRESENT
EXP _10:
MOV AH,AL
OUT DX,AL
MOV AL,O IH
IN
AL,DX
CMP AL, AH
JNE SHORT EXP ERR
SHL AL,I -
LOOP
EXP4
JMP SHORT E 19
EXP _ERR:
MOV S I ,OFFSET F3C
; ------- :~:: ---- :::~:~ --------- --- ------------------------
I BM Persona I Computer MACRO Assemb I er Vers i on 2.00
POST ----- 01/10/86 SYSTEM POST AND BIOS PROCEDURES
194 0448 BO FE
195 044A E6 21
196
191
198
199
800
80 I
802
803
804
805
044C
806 044C BA 0210
801 044F B8 5555
808 0452 EE
809 0453 BO 01
810 0455 EC
81 1
0456 3A C4
812 0458 15 43
813 045A F1 DO
814 045C EE
815 0450 BO 0 I
816 045F EC
811 0460 3A C4
818 0462 15 39
819
820
821
822 0464
823 0464 BB 000 I
824 0461 BA 0215
825 046A B9 00 I 0
826 0460
821 0460 2E: 88 01
828 0410 90
829 0411 EC
830 0412 3A C1
831 0414 15 21
832 0416 42
833 0411 EC
834 0418 3A C3
835 041A 15 lB
836 041C 4A
831 0410 01 E3
838 041F E2 EC
839
840
841
842 0481 B9 0008
843 0484 BO 01
844 0486 4A
845 0481
846 0481 8A EO
841 0489 EE
848 048A BO 01
849 048C EC
850 0480 3A C4
851 048F 15 06
852 0491 DO EO
853 0493 E2 F2
854 0495 EB 06
855 0491
856 0491 BE 18DC R
851 049A E8 1916 R
858
859
860
861
862
863
864
865
866
0490
861 0490 E8 I A 12 R
868 04AO IE
869 04A I
810 04AI 81 3E 0012 R 1234
811 04A1 15 03
812 04A9 E9 054A R
813 04AC
814 04AC B8 0040
815 04AF EB 28
816 04Bl
811 04Bl 8B IE 0013 R
818 04B5 83 EB 40
819 04B8 Bl 04
880 04BA 03 EB
88 I 04BC 8B CB
882 04BE BB 1000
883 04C 1
884 04C 1 8E DB
885 04C3 8E C3
886 04C5 81 C3 0400
881 04C9 52
888 04CA 51
889 04CB 53
890 04CC 50
891 04CD B9 2000
892 0400 E8 OCCF R
893 0403 15 4C
894 0405 58
895 0406 05 0010
896 0409
891 0409 50
898 04DA BB OOOA
899 0400 B9 0003
900 04EO
901 04EO 33 02
902 04E2 F1 F3
903 04E4 80 CA 30
904 04E1 52
905 04E8 E2 F6
906 04EA B9 0003
901 04ED