IBM 5150 - Page 140

LOC OBJ
LINE SOURCE
1279 THIS PROCEDURE WILL ISSUE ONE LONG TONE (3 SECS) Ate) ONE DR
1280 HORE SHORT TONES (l SEC) TO INDICATE A FAILURE ON THE PLANAR
1281 J BOARD. A BAD RAM MODULE. OR A PROBLEM WITH THE CRT.
1282 ) ENTRY PARAMETERS:
1283 OH ::: HUHBER OF LONG TONES TO BEEP
1284 J OL = HUMBER OF SHORT TONES TO BEEP
1285 1------------------------------------------------------------------------
ESCF 1286
E5CF 9C
1287 PUSHF J SAVE FLAGS
~ £500 FA.
1288
ell
I DISABLE SYSTEM INTERRUPTS
ESDI IE
1289
PUSH OS
;
SAVE OS REG CONTENTS
ES02 £86919 1290
CALL DDS
E505 OAFb
1291 OR OH,DH
I ANY LONG ONES TO BEEP
£507 7418 1292
JZ G3
; NO, 00 THE SHORT ONES
£509
1293 Gl: ; LONG.BEEP:
£5D9 8306 1294 MOV BL,6 J COUNTER FOR BEEPS
ESOB £62500 1295
CALL BEEP
I DO THE BEEP
ESOE E2FE 1296 G2:
LOOP 62
; DELAY
BETWEEN BEEPS
£5EO FEeE
1297 DEC
DH
;
ANY MORE TO 00
E5E2 75F5 1298
JHZ Gl
; DO IT
£5£4 803£120001
1299
eMP t1FG.TST,1
i MfG TEST MODE?
£5E9 7506 1300 JHE
G3
I YES - CONTINUE BEEPING SPEAKER
ESEB BOCD
1301
MDV
AL,OCDH I STOP BLINKING LEO
£5EO E661
1302
OUT PORT.B,AL
E5EF EBES
1303 JMP SHORT GI
ESFl 1304 G3:
ESFl 8301
1305
MOV BL.I
I COUNTER FOR A SHORT BEEP
E5F3 £80000 1306 CALL BEEP
; DO THE SoutI)
E5F6 1307
04'
E5F6 ElFE
130B LOOP G4
I DELAY BETWEEN BEEPS
E5F8 FEeA 1309 DEC OL I DONE WITH SHORTS
ESFA 75F5
1310
JNZ
G3 J 00 SOME MORE
ESFC 1311
65:
ESFC ElFE
1312 LOOP 65
I LONG DELAY BEFORE RETURN
ESFE 1313
G6:
ESFE E2FE
1314
lOOP G6
£600 If 1315 POP OS
I RESTORE ORIG CONTENTS OF os
£601 9D
1316
POPf
; RESTORE flAGS TO ORIG SETTINGS
£602 C3
1317
RET
; RETURN
TO CALLER
1318
ENDP
1319
1320 1----- ROUTINE TO SOlH) BEEPER
1321
£603 1322 BEEP PROC NEAR
£603 8086 1323
HOY AL,10110110B ; SEL TIM 2.lSB.MSB.BINARY
£605 £643 1324
OUT TIt1ER+3,AL ; WRITE THE TIMER MODE REG
£607 B83305
1325
MOV AX,533H ; DIVISOR FOR 1000 HZ
£60A £642
1326
OUT TIMER+2,AL
I WRITE TIMER 2 CNT - lSB
Eboe 8AC4
1327
MOV AL,AH
EME £642
132B
OUT
TlHER+2.AL I WRITE TIMER 2 CNT - HSB
£610 £461
1329
IH Al.PORT.B I GET CURRENT SETTING OF PORT
£612 8AEO
1330 MOV
I SAVE THAT SETTING
£614 oe03
1331
OR
I TURN SPEAKER ON
£616 E661
1332
OUT
£618 28C9
1333 SUB
CX,CX
I SET CNT TO WAIT 500 "S
E6lA
1334 G7:
E6lA E2FE
1335
LOOP 67
I DELAY BEFORE TURNING OFF
fbiC FEee
1336 DEC BL
I DELAY CNT EXPIRED!
£61£ 75FA
1337 JNZ 67
; NO - CONTltaJE BEEPING SPK
£620 8AC4
1338 MOV Al,AH
I RECOVER VALUE OF PORT
£622 E661
1339
OUT PORT.B,AL
£624 C]
1340
RET ; RETURN TO CALLER
1341 BEEP ENDP
1342
1343 ; ---------- _____________________________________ _
1344 ; CONVERT ANO PRINT ASCII COOE
1345 AL MUST CONTAIN NUMBER TO BE CO/'NERTED. :
1346 AX ANO BX DESTROYED.
1347 ; ------------------------------------------------
~ £625
1348
XPC.BYTE PROC NEAR
£62:5 50
1349
PUSH AX J RESAVE FOR lOW NIBBLE DISPLAY
£62:6 8104
1350 MOV Cl,4 ; SHIFT COUNT
£628 02E8
1351
SHR Al,Cl I NIBB LE SWAP
£62A £80300
1352
CAll XlAT.PR J DO THE HIGH NIBBLE DISPLAY
£620 58
1353 PO.
AX I RECOVER THE NIBBLE
£62£ 240F
1354 AND AL,OFH I ISOLATE TO LOW NIBBLE
1355 J FALL INTO LOW NIBBLE CONVERSION
System BIOS 5-47