IBM 5150 - Page 138

LOC OBJ LINE SOURCE
f4D 7403
ll25
JE E5 i CONTINJE IF OK
E4E5 £82103
1126
I POST ERROR
£4E8
1127 E5:
£4E8 80C602
112:6
ADD OH.02H • POINT TO NEXT 8K I10CDULE
E4EB 80FEFE
1129 CMP
DH.OFEH
E4EE 75EC
1130
JHZ
E. J YES - CONTIJ.lJE
E4FO IF
1131
pop
OS
;
RECOVER DATA SEG PTR
1132
; -- ---------------------------------- ------- --- - ------------ - -- - ---------
ll:n
DISKETTE ATTACHMENT TEST
1134
;
DESCRIPTION
1135
CHECK IF IPl DISKETTE DRIVE IS ATTACHED TO SYSTEM. IF ATTACHED.
1136 VERIFY STATUS OF NEC FDC AFTER A RESET. ISSUE A RECAl AND SEEK
1137 ctID TO FOC AND CHECK STATUS. COMPLETE SYSTEM INITIALIZATION
1138 THEN PASS CONTROL TO THE BOOT LOADER PROGRAM.
1139 1 - - ---------------------------------- ----------- -- --------------- --------
E4F!
1140 F9:
E4Ft AOI000
1141
MOV AL.BYTE PTR EQUIP_FLAG I GET SENSE SWS INFO
E4F4 A601
1142
TEST AL.OIH I IPL DISKETTE DRIVE ATICH?
E4F6
750A
1143
JNZ FlO I NO -SKIP THIS TEST
E4F8 803£120001
1144
CMP MFG_ TST.l
; MANUFACTURING TEST
MODE?
E4FO 7530
1145
JNE FlSA
; NO - GO TO BOOT LOADER
E4FF E959FB
1146
JMP START
I YES - lOOP POWER-ON-DlAGS
£502
1147 flO:
E502 E421
1148
IN AL.INTAOI
J DIS~TEST
E504 24BF
1149
ANIl
AL.OBFH I ENABLE DISKETTE INTERRUPTS
£506 £621
U50
OUT INTA01,AL
E50e 8400
1151 MOV
AH.O
1 RESET NEC FDC
ESOA 8A04
1152
MOV
DL,AH
I (POINT TO DISKETTE)
ESOC con
1153
IHT
13"
; VERIFY STATUS AFTER RESET
E50E 7221
1154
JC
Fl3
1155
1156 ;----- TURN DRIVE 0 MOTOR ON
1157
£510 BAF203
1158
HOII DX,03F2H ; GET AOOR OF FOC CARD
E513 52 1159
PUSH DX
I SAVE IT
£514 BOle
1160
MOV AL,lCH ; TURN MOTOR ON, EN DMA/INT
£516 EE 1161
OUT DX.Al I WRITE FDC CONTROL REG
E517 2BC9 1162 sue CX,CX
£519 1163
F11:
£519 E2FE 1164 LOOP Fll
I WAIT FOR 1 SECOH!)
£518
1165
F12:
£51B E2FE 1166
LOOP F12
£510 3302 1167 XOR DX.DX
; SE LECT DRIVE 0
E51F 8501
1168
HOV CHol
I SELECT TRACK 1
£521 66163£00
1169
HOV SEEK_STATUS,Dl
£525 £85509
1170
CALL SEEK
I RECALIBRATE DISKETTE
£528 7207 1171
JC
F13
I
GO TO ERR SUBROUTINE IF ERR
£52A 8522
1172
MOV CH.34
J SELECT TRACK 34
E52C £84E09
1173
CALL SEEK
I SEEK TO TRACK 34
E52F 7307 1174
JNC
F14 I OK. TURN tlDTOR OFF
£531
1175
F13:
I DSK_ERR:
£531 BEEAFF90
1176 MOV 51. OFFSET F3
; GET
ADDR OF MSG
£535 £88201 1177 I GO PRINT ERROR t1SG
117B
1179 1----- TURN DRIVE 0 MOTOR OFF
UBO
£538
1181
F14:
J ORO_OFF:
£518 Booe llB2
HOV AL.OCH
I TURN DRIVE 0 HOTOR OFF
E53A 5A
1183
pop
OX
I
RECOVER FDC CTl ADDRESS
£538 EE
1184
OUT
DX.Al
1185
1186
1----- SETUP PRINTER AND RS232 BASE ADDRESSES IF DEVICE ATTACHED
1187
E53C 1188
F15A:
E53C 8£1£00
1189
NOV SI.OFFSET KB_BUFFER
E53F 8936lADO 1190
MOV
BUFFER_HEAD,SI
I SETUP KEYBOARD PARAMETERS
£543 89361COO 1191
HOV
BUFFER_TAIL,SI
£547 89368000 1112
MOV BUFFER_START ,51
I DEFAULT TO STAHOARD BUFFER
£548 83C620
1193
ADD 51,32
I
(32 BYTES LONG)
£54£ 89368200
1194
MOV BUFFER_END.SI
£552 £421 1195 IN AL,INTAOI
£554 24FC
1196
ANO Al,OFCH
I ENABLE TIMER
AHO KBD INTS
£556 £621
1197
OUT
INTA01,At
E558 8030£690 1198
MOV
BP.OFFSET F4
Esse 28F6
1199 sua 51.51
ESSE 1200 F16:
; PRT_BASE:
E55E 2£885600 1201 HOV
DX,CS:[BP)
I GET PRINTER BASE
ADOR
System BIOS 5-45