IBM 5170 Technical Reference page 211

IITLE 10/05/83 TEST4 POST UTILITIES
. LIST
PUBLIC POS 14
PUBLIC E MSG
PUBL' C KBO RESET
PUBLI C B[Lf>
PUBl I C ERR BEE P
PUBLIC E MSG
PUBLIC DDS
PUBLIC P MSG
PUBLI C P!{T SEC
PUBl I C DUMMY RETURN 1
PUBLIC 011 -
PUBLIC INT 287
PUBl I C RE_D I RECT
I
NClUDE SEcr~ENT. SRC
0000 CODE SEGMENT BYTE PUBl
I C
EXTRN PRT HEX: NEAR
EXTRN XPC-BYTE: NEAR
EXTRIl
XMIT_8042:NEAR
EXTRN
OBF 42:NEAR
ASSUME CS:CODE,OS:ABSO
0000 POST4:
TH I S SUBROUT I NE WILL PR I NT A MESSAGE ON THE 0 I SPLAY
; ENTRY REQU I REMENTS:
SI "' OFFSET(AOORESS) OF MESSAGE BUFFER
CX '"
I~ESSAGE
BYTE COUNT
MAXIMUM MESSAGE lENGTH IS 36 CHARACTERS
0000 LMSG PROC NEAR
0000 8B EE MOV BP,SI SET BP NON-ZERO TO FLAG ERR
0002
E8 0019 R
CAll P MSG
PR I NT MESSAGE
0005
1E
PUSH
OS
ASSUME
os:
DATA
0006
E8 DaM R
CAll DOS
0009
AO DOlO
R
MOV Al, BYTE PTR EQU I P_FLAG
lOOP/HALT ON ERROR
OOOC 24 01 AND Al,OlH SW ITCH ON?
OOOE 75
07 ~INZ
NOT_ON
NO - RETURN
DOlO
MFG HALT:
0010 FA
- Cll
YES - HALT SYSTEM
DOll
AO 0015 R
MOV Al, MFG_ERR_FlAG
RECOVER ERROR I NO I CATOR
0014
0016
E6 80
F4
OUT
HLT
MFG_PORT, Al SET INTO MFG PORT
HALT SYS
0017
0017
1F
POP
DS
WR ITE_MSG:
0018 C3 RET
0019 E MSG ENDP
0019
P-MSG PROC
NEAR
0019
001C
2E: 8A 04
46
G12A: MOV
INC
AL,CS: [SI
J
51
PUT CHAR IN Al
PO I NT TO NEXT CHAR
0010 50 PUSH
AX
SAVE PR I NT CHAR
~OlE
E8 0000 E CALL PRT_HEX
CALL VIDEO_IO
0021
58
POP AX
RECOVER PR I NT CHAR
0022 3C OA
CMP
Al,10 WAS IT liNE FEED?
0024 75 F3
JNE
G12A
NO, KEEP PR I NT I NG STR I NG
0026
cJ
RET
0027
P _MSG ENOP
~
INITIAL RELIABilITY TEST -­ SUBROUTINES
ASSUME CS:CODE,DS:DATA
SUBROUT I NES FOR POWER ON 0 I AGNOST I CS
THIS PROCEDURE Will ISSUE ONE lONG TONE (3 SECS) AND ONE OR
MORE SHORT TONES (1 SEC) TO INDICATE A FAILURE 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.
0027
ERR_BEEP
PRoe NEAR
0027 9C PUSHF ; SAVE FLAGS
0028 FA CLI
; 0 I SABLE SYSTEM INTERRUPTS
0029 1E PUSH
OS
; SAVE OS REG CONTENTS
002A E8 OOM R
CALL DDS
0020 OA F6 DR OH,OH ANY lONG ONES TO BEEP
002F
74 14
JZ G3
NO, DO THE SHORT ONES
0031
Gl : LONG BEEP:
0031 B3 06
MDV BL,6
COUNTER FOR BEEPS
0033 E8 0057 R CALL I3EEP
DO THE BEEP
0036
E2 FE G2: LOOP G2
DELAY BETWEEN BEEPS
0038
FE CE
DEC DH
ANY MORE TO DO
003A 75 F5 JNZ C1 DO IT
003C 80 3E 0012 R 01 CMP MFG_ TST, 1 MFG TEST MODE?
0041 75 02
JNE G3
YES - CONl I NUE BEEP I NG SPEAKER
0043 EB CB JMP MFG_HALT STOP BLINKING LED
0045
G3: SHORT_BEEP:
0045 B3 01 MDV Bl,l
COUNTER FOR A SHORT BEEP
0047 E8 0057 R CALL BEEP
DO THE SOUND
004A E2 FE
G/.[:
LOOP
G4
DELAY BETWEEN BEEPS
004C FE CA DEC DL
DONE WITH SHORTS
004E 75 F5
JNZ G3
DO SOME MORE
0050
E2 FE G5: LOOP
G5
LONG DELAY BEFORE RETURN
0052
E2 FE G6:
lOOP G6
0054
1F
PDP OS
RESTORE OR I G CONTENTS OF OS
0055
90 POPF RESTORE FLAGS TO ORIG SETTINGS
0056
CJ
RET
RETURN TO CALLER
0057
ERR_BEEP
ENDP
ROUT I NE TO SOUND BEEPER
0057
BEEP PRoe NEAR
0057 BO B6
MDV
AL,10110110B SEL TIM 2,lSB,MSB,BINARY
~
0059 E6 43 OUT
TIMER+3,AL
WR I TE THE T I MER MODE REG
005B
EB 00
JMP
SHORT 5+2 10 OElAY
0050 B8 0533 MDV AX,533H
DIVISOR FOR 896 HZ
0060
E6 42 OUT TIMER+2,Al WRITE TIMER 2 CNT - lSB
0062 EB 00
JMP
SHORT 5+2 10 DELAY
0064 8A C4 MDV
AL,AH
0066 E6 42 OUT T I MER+2, AL
WRITE TIMER 2 CNT - MSB
0068
E4 61 IN Al, PORT B
GET CURRENT SEn I NG OF PORT
006A 8A EO MOV
AH,AL -
SAVE THAT SEn I NG
006C EB 00 JMP
SHORT $+2 10 DELAY
006E DC 03 OR Al,03
TUii,~ SPEAKER ON
0070
E6 61
OUT
PORT_B,AL
0072 2B C9 SUB CX,CX
SET CNT TO WA I T SOD MS
0074
E2 FE G7: lOOP
C7
DELAY BEFORE TURN I NG OFF
0076 FE CB DEC BL
DELAY CNT EXPIRED?
0078
75 FA
JNZ
G7 NO - CONTINUE BEEPING SPK
Test 4 5-69