IBM XT 5160 Technical Reference page 317

LaC OB-JECT
LINE SOURCE (B I as FOR THE I BM PERSONAL COMPUTER XT) 1 1 108/82
TH IS SUBROUT I NE WILL PR I NT A MESSAGE ON THE D I SPLAY
SET CNT TO WA IT 500 MS
YES HALT SYSTEM
ANY LONG ONES TO BEEP
NO, DO THE SHORT ONES
LONG BEEP:
COUNTER FOR BEEPS
DO THE BEEP
LONG DELA Y BEFORE RETURN
RETURN TO CALLER
RESTORE OR I G CONTENTS OF DS
RESTORE FLAGS TO OR I G SETT I NGS
RETURN TO CALLER
SEL TIM 2,LSB,MSB,BINARY
WR I TE THE T I MER MODE REG
DIVISOR FOR 1000 HZ
WRITE TIMER 2 CNT LSB
WR I TE T I MER 2 CNT - MSB
GET CURRENT SETT I NG OF PORT
SAVE THAT SETTINGH
TURN SPEAKER ON
DELA Y BETWEEN BEEPS
ANY MORE TO DO
DO IT
MFG TEST MODE?
YES - CaNT I NUE BEEP I NG SPEAKER
STOP BL I NK I NG LED
SHORT BEEP:
COUNTER FOR A SHORT BEEP
DO THE SOUND
SAVE FLAGS
D I SABLE SYSTEM INTERRUPTS
SAVE DS REG CONTENTS
DELA Y BETWEEN BEEPS
DONE WITH SHORTS
DO SOME MORE
DEL A Y BEFORE TURN I NG OFF
DELA Y CNT EXP I RED?
NO - CaNT I NUE BEEP I NG SPK
RECOVER VALUE OF PORT
D I SABLE KB
RECOVER ERROR I ND I CATOR
SET INTO 8255 REG
HALT SYS
PUT CHAR IN AL
PO I NT TO NEXT CHAR
SAVE PR I NT CHAR
CALL V I DEO 10
RECOVER PRINT CHAR
WAS IT LINE FEED?
; NO,KEEP PRINTING STRING
SET BP NON-ZERO TO FLAG ERR
PRINT MESSAGE
LOOP
1
HAL T ON ERROR
SWI TCH ON?
NO - RETURN
CS: CODE, DS: DATA
G5
BL,I
BEEP
G2
DH
GI
MFG TST, I
G3 -
MFG_HAL T
BL,6
BEEP
ENDP
G4
DL
G3
DS
DDS
DH,DH
G3
G6
DS
AL,CS:[SI]
SI
AX
PRT HEX
AX
AL, 10
GI2A
NEAR
G7
BL
G7
AL,AH
PORT_B,AL
NEAR
AL, 10 I 101 lOB
T I MER+3, AL
AX,533H
TIMER+2,AL
AL,AH
T I MER+2, AL
AL,PORT B
AH,AL -
AL,03
PORT B,AL
CX,CX
AL,89H
CMD PORT ,AL
AL, 10000 I 0 I B
PORT B,AL
AL, MFG ERR FLAG
PORT_A~AL
-
ASSUME
SUBROUT I NES FOR POWER ON D I AGNOST I CS
LOOP
DEC
-JNZ
CMP
-JNE
-JMP
MOV
CALL
LOOP
LOOP
DEC
-JNZ
MOV
CALL
PROC
MOV
OUT
MOV
OUT
MOV
OUT
IN
MOV
OR
OUT
SUB
LOOP
DEC
-JNZ
MOV
OUT
RET
ENDP
PROC
POP
RET
ENDP
MOV
INC
PUSH
CALL
POP
CMP
-JNE
RET
ENDP
ROUT I NE TO SOUND BEEPER
I NIT I AL RELI AB I LI TY TEST - - SUBROUT I NES
TH I S PROCEDURE WILL I SSUE ONE LONG TONE (3 SECS) AND ONE OR
MORE SHORT TONES (1 SEC) TO I ND I CATE A FA I LURE ON THE PLANAR
BOARD, A BAD RAM MODULE, OR A PROBLEM WITH THE CRT.
ENTRY PARAMETERS:
DH
=
NUMBER OF LONG TONES TO BEEP
DL
=
NUMBER OF SHORT TONES TO BEEP.
ENTRY REQU I REMENTS:
S I
=
OFFSET (ADDRESS) OF MESSAGE BUFFER
CX MESSAGE BYTE COUNT
MAX I MUM MESSAGE LENGTH IS 36 CHARACTERS
BEEP
G12:
LOOP
POP
POPF
RET
ERR_BEEP
e _
ERR BEEP PROC NEAR
- PUSHF
CLI
PUSH
CALL
OR
-JZ
BEEP
P MSG
GI2A:
.
-------------------------------------------------------
E_MSG PROC NEAR
MOV BP, S I
CALL P MSG
PUSH DS
CALL DDS
MOV AL, BYTE PTR EQU I P FLAG
AND AL,O lH -
-JNZ GI2
MFG HALT:
- CLI
MOV
OUT
MOV
OUT
MOV
OUT
HLT
5343
5344
5345
5346
5347
5348
5349
5350
5351
5352
5353
5354
5355
5356
5357
5358
5359
5360
5361
5362
5363
5364.
5365
5366
5367
5368
5369
5370
5371
5372
5373
5374
5375
5376
5377
5378
5379
5380
5381
5382
5383
5384
5385
5386
5387
5388
5389
5390
5391
5392
5393
5394
5395
5396
5397
5398
5399
5400
540 I
5402
5403
5404
5405
5406 Gl:
5407
5408
5409 G2:
5410
5411
5412
5413
5414
5415
5416 G3:
5417
5418
5419 G4:
5420
5421
5422
5423 G5:
5424
5425 G6:
5426
5427
5428
5429
5430
5431
5432
5433
5434
5435
5436
5437
5438
5439
5440
5441
5442
5443
5444
5445
5446 G7:
5447
5448
5449
5450
5451
5452
5453
F9D8
F9D8 9C
F9D9 FA
F9DA IE
F9DB E87BOO
F9DE OAF6
F9EO 7414
F9E2
F9E2 B306
F9E4 E821 00
F9E7
F9E7 E2FE
F9E9 FECE
F9EB 75F5
F9ED 803E 120001
F9F2 7502
F9F4 EBC3
F9F6
F9F6 B301
F9F8 E80DOO
F9FB
F9FB E2FE
F9FD FECA
F9FF 75F5
FAO 1
FAO I E2FE
FA03
FA03 E2FE
FA05 IF
FA06 9D
FA07 C3
FA08
FA08 BOB6
FAOA E643
FAOC B83305
FAOF E642
FAll 8AC4
FA 13 E642
FAI5 E461
FAI78AEO
FAI9 OC03
FA I B E661
FA I D 2BC9
FA IF
FA I F E2FE
FA21 FECB
FA23 75FA
FA25 8AC4
FA27 E661
FA29 C3
F9CA
F9CA
F9CA 2E8A04
F9CD 46
F9CE 50
F9CF E8CAFF
F9D2 58
F9D3 3COA
F9D5 75F3
F9D7 C3
F9A9
F9A9 8BEE
F9AB E81 COO
F9AE 1E
F9AF E8A 700
F9B2 AO I 000
F9B5 240 I
F9B7 750F
F9B9
F9B9 FA
F9BA B089
F9BC E663
F9BE B085
F9CO E661
F9C2 AO 1500
F9C5 E660
F9C7 F4
F9C8
F9C8 IF
F9C9 C3
5-170 PC-XT System BIOS (11/08/82)