IBM AT 5170 Technical Reference page 217

IBM Person. I Computer MACRO Asse...bler VersIon 2.00 1-18
TEST! ---- 06/10/85 POWER ON SELF TEST (POSTI 06-10-85
1769 04FE 41
INC
01
1170 04FF BO 30
MOV
AL,
'0'
1771 0501 88 05
MOV [01] ,AL WR I TE TO
0
I SPLA Y REGEN BUFFER
1772 0503 26: 88 05
MOV ES: [01] ,AL
WR I TE TO MONOCHROME BUFFER
1173 0506 41 INC
01
POINT TO NEXT POSITION
1174 0507 41 INC
01
1175 0508 90 31
MOV
AL,
'I'
1176 050A 88 05
MOV
[01
J
,AL
WRITE TO DISPLAY REGEN BUFFER
1771
osoe
2&: 88 05
MOV
ES: [01] ,AL WR I TE TO MONOCHROME BUFFER
1118
1119
;-----
ROLL ERROR CODE IN MFG_PORT
-->
FIRST THE CHECKPOINT
1180
1181 050F 80 00
MOV AL,OOOH
j
<><><><><><><><><><><><>
1182 0511 E& 80
OUT MFG_PORT ,AL
I <><>
CHECKPOINT
00 <><>
1183 0513 E& 83
OUT MFG_PORT+3,AL ; ALSO DISPLAY CHECK POINT IN PORT 83
11840515 2B C9
SUB
CX,CX
1185 0511
C31_A:
1186
1181051128 CO
SUB
AX,AX SETUP SEGMENT
I
188 05 I 9 8E 08
MOV OS,AX
1189 0518 88 AA55
MOV AX,OAA55H WRITE AN AA55
1190 051E 28 FF
SUB 01,01
1791 0520 89 05
MOV
[01] ,AX
1792 0522 88 05
MOV AX, [01] ; READ THE FIRST WORD
1193 0524 E2 FI
LOOP
e31
-
A
: DISPLAY CHECKPOINT LONGER
1194 0526
1195 0526 89 05
MOV
1196 0528 8B 05
MOV
I~: lci~]
1197 052A E2 FA
LOOP e31
B
1198 052C
-
1199 052C 89 05
MOV [01] ,AX
1800 052E 8B 05
MOV AX, [01
J
1801 0530 E2 FA
LOOP e31
-
e
1802 0532
'803 0532 89 05 MOV [a!] ,AX
1804 0534 88 05
MOV AX, [OJ]
1805 0536 E2 FA LOOP
e31
-
0
1806 0538
1807 0538 89 05
MOV
[01] ,AX
1808 053A 88 05
MOV AX, [01]
1809 053C E2 FA
LOOP e31 _E
1810
181 I 1----- ROLL ERROR CODE IN MFG_PORT --> NEXT THE HIGH BYTE
1812
1813 053E E4 81
IN AL,MFG_PORT+ 1 XOR OF FAILING
BIT
PATTERN
1814 0540 E& 80
OUT
MFG_PORT, AL I HIGH BYTE
1815 0542
e31 _G;
1
1816 0542 B8 AA55
MOV AX,OAA55H
WRITE AN AA55
1817054589 05
MOV
[01] ,AX
1818 0541 8B 05
MOV AX, [01]
1 READ THE F! RST WORD
1819 0549 E2 Fl
LOOP
e31 G
1820 0548
e31 _H:
-
1821 054B 89 05
MOV [OI],AX
1822 0540 8B 05
MOV AX, [OJ]
1823 054F E2 FA
LOOP e31 H
18240551
e31
1825 0551 89 05
MOV [01] ,AX
-
"
­
1826 0553 88 05
MOV
AX, [01
J
1827 0555 E2 FA LOOP
e31 I
1828
1829
ROLL ERROR CODE IN MFG_PORT --> THEN THE LOW BYTE
1830
1831 0557 E4 82 IN
AL,MFG PORT+2 LOW BYTE
1832 0559 E6 80
OUT MFG_PORT ,AL
1833 0558 88 AA55
MOV AX ,OAA55H I WRITE AN AA55
1834 055E 2B FF
e31
_K.
SUB
01,01
1835 05&0 89 05
MOV [01] ,AX
1836 0562 8B 05
MOV
AX, [OJ] READ THE FIRST WORD
1831 0564 E2 F8
LOOP e31 K
1838 05&&
e31 _L;
-
1839 0566 89 05
MOV [01] ,AX
1840 0568 88 05
MOV AX, [01 ]
1841 056A E2 FA
LOOP e31 L
1842 056C e31
-
M,
-
1843 056C 89 05
MOV [01] ,AX
1844 056E 88 05
MOV AX, [OJ]
1845 0570 E2 FA
LOOP e31 M
1846 0512 e31 N,
-
-
1841 0572 89 05 MOV
[01] ,AX
1848 0574 88 05
MOV AX, [01 ]
1849 0516 E2 FA
LOOP e31
-
N
1850 0578 EB 95
JMP e31
-
0 00 AGAIN
1851
1852 051A 04C4 R
ZI 0
OW
ZI TEMPORARY STACK
1853 051C 04CO R
Z2-0
OW Z2 TEMPORARY STACK
1854 051E 0408 R
Z3-0
OW Z3
TEMPORARY STACK
1855 0580 04EO R
Z4:0 OW Z4
TEMPORARY STACK
1856
1851
1858 :----- CLEAR STORAGE ENTRY
1859
1860
1861 0582 CLR STG:
1862 - ASSUME
OStoATA
1863 0582 F3/ A8
REP STOSW
STORE 32K '!OROS OF 0000
1864 0584 88 ---- R
MOV AX,OATA RESTORE DATA SEGMENT
1865 0587 8E 08
MOV
OS,AX
1866 0589 89 IE 0012 R
MOV
!PRESET_FLAG, BX
RESTORE RESET FLAG
1861
1868
SETUP STACK SEGMENT AND SP
1869
1810 0580
C331
1811 0580 B8 ---- R
"OV
AX ,DATA
SET DATA SEGMENT
1812 0590 BE 08
MOV OS,AX
1813 0592 8C 0000
MOV SP,POST SS GET STACK VALUE
1814 0595 8E 04
MOV
SS,SP SET THE STACK UP
1815 0591 BC 8000
MOV SP, POST SP ST ACK I S READY TO GO
1816
1817
; ----- I
NIT
I
ALI ZE 0 I SPLA Y ROW COUNT
1878
1 ~79 OS9A C6
Ob
0084 R 18
MOV OROWS,25-1 SET ROWS FOR PRINT SCREEN DEFAULT
1880
1881 059F 80 11
MOV AL.IIH <> <> <> <> <><><> <><><><><>
IB82 05AI E6 80
OUT MFG_PORT ,AL
<><>
CHECKPOINT I!
<><>
TESTl
5-45