IBM AT 5170 Technical Reference page 246

Table of Contents

Advertisement

IBM Personal Computer MACRO Assembler
Version 2.00
\-\1
TEST2 ---- 06/10/85
POST TESTS AND INITIALIZATION ROUTINES
06-10-85
1111 0985 E6 61
1178
OUT
PORT_B, AL
1179 0981 80 43
MOV
AL,43H
<><> <> <><><> <><><><><><>
1180 0989 E6 80
OUT
MFGJ'ORT, AL
<><> CHECKPOINT
43 <><>
1181 0988 F8
ENA8LE
I NTERRUPTS IF 0 I SA8LED
1182
1183 098C CD 19
INT
19H
GO TO BOOT LOADER
1184
1185 098E F4
HLT
1186
1181
1188 098F
PAOING
PROC
NEAR
1 NSERT PADD 1 NG
1189 098F 89 OOOF
MOV
CX,I5
GET BLANK CHARACTER COUNT
1190 0992
PAD! :
1191
0992 80 20
NOV
AL,
GET FILL SPACE
1192 0994 E8 0000 E
CALL
PRT HEX
WR [TE A SPACE
1193 0997 E2 F9
1794 0999 80 20
LOOP
NOV
PAD!
AL,
,- ,
LOOP TILL
1 NSERT DONE
; GET DASH CHARACTER
1195 099B E8 0000 E
CALL
PRT _HEX
: WRITE TO DISPLAY
1196 099E C3
RET
1797 099F
PAD
I NG
ENDP
1798
1799
1800 099F
PRT
OK
-
PROC
NEAR
PRINT
~OOOOO
KB OK"
1801 099F 50
PUSH
AX
SAVE WORK REGISTER
1802 091.0 BB OOOA
NOV
ax,
10
SET OEC I MAL CONVERT
1803
1804
CONVERT AND SAVE
1805
1806 09A3 B9
0005
NOV
eX,5
OF
5
NIBBLES XX,XXX KB
1801 09A6 2B FF
1808 09A8
sua
PRT DIV;
01,01
D [SPLA Y REGEN BUFFER
pas
I T I ON
1809 09A8 33 02
-
XOR
DX,OX
1810 09AA F1 F3
OIV
ax
DIVIDE BY 10
1811 09AC 80 CA 30
OR
DL,30H
~AKE
INTO ASCII
1812 09AF 52
PUSH
DX
SAVE
1813 09BO E2 F&
LOOP
PRT_D1V
1814
1815
DISPLAY LAST OK MEMORY
1816
1817 09B2
89
0005
1818
0985
NOV
PRT DEC:
CX,5
1819 09B5 58
-
POP
AX
j
RECOVER A NUMBER
1820 09B6 E8 0000 E
CALL
PROT PRT HEX
1821 09B9 41
INC
01
-
-
;
POINT TO DISPLAY REGEN BUFFER
1822 09BA E2 F9
LOOP
PRT DEC
1823 09BC B9 0001
1824 09BF BE 09CE R
NOV
NOV
i~ :g~~~~i ~~~_PAD-OFFSET; F~g
[NT +0
L~~~N~E~S~~EO~~~~TH
MESSAGE
1825 09C2
PRT LOOP;
182b 09C2 2E: 6A 04
-
MOV
AL,CS: [SI]
1827 09C5 4&
INC
51
1828 09C6 E8 0000 E
CALL
PROT PRT HEX
1829 09C9 41
INC
OJ
-
-
I NCREMENT BUFF PTR
1830 09CA E2 F&
LOOP
PRT LOOP
1831 09CC 58
POP
AX -
RECOVER WORK REGISTERS
1832 09CO C3
RET
1833
1834 09CE 20 4B 42 20 4F 4B
F3B
DB
, K8 OK'
OK MESSAGE
1835 0904 20
F3B OK
DB
PAD A SPACE
1836
=
0905
F3B-PAD EQU
1837
.LIST
1838
PRT _OK
ENOP
1839
1840
1841
1842
PR INTER TABLE
:
1--------- -------­ - -----­
1843
1844 0905 03BC
F4
DW
03BCH
ADDRESS OF MONOCHROME PARALLEL ADAPTER
1845 09D1 0378
DW
0318H
BASE ADDRESS STANDARD PARALLEL ADAPTER
184& 09D9
027B
DW
0276H
ADDRESS
OF
ALTERNATE PARALLEL ADAPTER
1847 090B
F4E
LABEL
WORD
1846
1849 0908
POST2
ENDP
1850 090B
CODE
ENDS
1851
END
5-74
TEST2

Advertisement

Table of Contents
loading

Table of Contents