IBM 5150 - Page 211

LaC OBJ
LINE SOURCE
E613 803E120001
1199
CMP HFG_Tsr.l
;HFG MODE?
E618 7406
1200
JE
'"
; LOAD_BOOT_STRAP
E61A BAOI00
1201
MOV OX.!
f610 f81000
1202
CAll ERR_BEEP ;BEEP 1 SHORT TONE
E620
1203
F21 :
I LOAD_BOOT_STRAP:
E620 E9CfOO 1204
JMP ;60 TO THE BOOT lOAOER
E623 1205 F22 :
; LOOP .POD:
E623 B03El2:0001
120b CMP MfG.TST .1
;MANUFACTURING TEST MODE?
E628 7503 1207
JNE
'"
; NO - GO TO BOOT LOAD ER
E62A enEFA
12:08 JMP
START
;YES - LOOP POWER-aN-CrAGS
E620 1209 F23:
GO.TO.BOOT:
f62:0 E976FF
1210 JMP Fl5 JMP .BOOT
1211 ; - - --- -------------------------------------.-
1212 j INITIAL RELIABILITY TEST -- SUBROUTINES
1213 j -- - - - - --- - -----------.--------------------.-
1214 ASSU~'E CS:CODE,DS:DATA
1215 1--- --- --- - --- ------------- ------------------
1216 SUBROUTINES fOR Po!~ER ON DIAGNOSTICS
1217 ; --------------- - -- - --- - ------------- --------
1218 THIS PROCEDURE WILL ISSUE otlE LONG TONE (3 SECS) AND ONE OR
1219 MORE SHORT TONES (1 SECI TO INDICATE A FAILURE ON THE PLANAR
1220 BOARD, A BAD RAN NODULE, OR A PROBLEM WITH THE CRT.
1221 iENTRY PARAMETERS:
1222 DH = NUMBER Of LONG TONES TO BEEP
1223 DL = .ruMBER Of SHORT TarlES TO BEEP.
1224 ; -------------- --- ------- -------------- - -----
f630 1225 ERR.BEEP PROC NEAR
f630
ge
122b PUSHF
;SAVE FLAGS
E631 FA 1227 CLI
;DISABLE SYSTEM INTERRUPTS
E632 IE
1228
PUSH OS ,SAVE OS REG CONTENTS
E633 884000
1229
HOV AX.DATA ; POINT OS TO DATA SEG
E636 6ED8 1230 MOV OS,AX
E636 OAF6
E63A 7418
1231
1232
OR
JZ
DH,DH
G,
;, ANY LONG ONES TO BEEP
, ti~. 00 THE SHORT ONES
E63e
1233
Gl:
; LONG.BEEP:
E63e B30b 1234 MOV BL.b
;
COUUTER FOR BEEPS
E63E
E82500
1235 CALL BEEP
;
DO THE BEEP
E641 ElFE 1236
G2:
LOOP G2 ; DELAY BET~EEN BEEPS
E643 FEee 1237 D!OC
DH
;
ANY MORE TO DO
E645 7SFS 1238 JtlZ
G1
; DO IT
E647 603E120001
1239 CMP
MfG. TST.l
; MfG TEST tl0DE?
E64C 7506 1240
JtlE
G'
; YES - CONTINUE BEEPING SPEAKER
E64E BOCD
1241
MOV
AL .. OCDH
; STOP BLINKING LED
E650 E661 1242
OUT
PORT_B.AL
E652 fBE6
1243
JMP SHORT Gl
E654
1244
; SHORT_BEEP:
E654 6301 1245
MOV BL.t
;
COUNTER fOR .. SHORT BEEP
E656 f60000 1246
CALL BEEP ; DO THE SOUND
E659 ElFE
1247
G4:
LOOP G4 ; DELAY BETl-:EEN BEEPS
f656 FEeA
1248
DEC Dl i DONE iolITH SHORTS
E650 75FS
1249
JNZ G3 ; DO SOME MORE
E65F ElFE
1250
G5:
LOOP G5 ; LONG DELAY BEFORE RETURN
E661 ElFE
1251 G6: LOOP G6
E663 IF
1252
POP os
;RESTORE ORIG CONTENTS
OF OS
E664 90
1253 POPF ;RESTORE fLAGS TO ORIG SETTINGS
E665 C3
1254
RET
;
RETURN TO CALLER
1255
ERR_BEEP ENDP
1256
1257 ROUTINE TO SOUND BEEPER
1258
E666 1259
BEEP
PROC NEAR
f666 B066 1260 MOV
AL.I0110110B
,SEL TIM ~.LSB.MSB.BINARY
E668 E643 1261 OUT
TIMER+3.AL
;WRITE THE TIMER MODE REG
E66A
883305 1262 MOV
AX.533H
;DIVISOR FOR 1000 HZ
f66D E642 1263 OUT
TIMER+2.AL
,WRITE TIMER Z CNT - LSB
E66f 6AC4 1264 nov
AL.AH
E671 E642 1265 OUT TIMER+Z,AL ;WRITE TIMER 2 CNT - MSB
E673 E461
1266 IN AL,FORT.B
;GET CURRENT SETTING OF PORT
E675 6AEO
1267
HOV
AH,AL
; SAVE THAT SETTINGH
E677 oe03
1268
OR
AL.03
;TURN SPEAKER
ON
E679 E661
1269 OUT PORT.B.AL
E67B
26C9 1270
SUB CX.CX ;SET CNT TO WAIT 500 HS
f67D ElFE
1271
67:
LOOP G7
;DELAY BEFORE TURNING OfF
E67F FEee 1272 DEC BL ;DELAY WT EXPIRED?
E661
75FA
1273
JtlZ G7
,NO - CONTINUE BEEPING SPK
E683 6AC4 1274
MOV
AL,AH
;
RECOVER VALUE OF PORT
A-I8