IBM 5150 PC Technical Reference (6025005, August, 1981) (PDF)

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