IBM 5150 Technical Reference 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