IBM 5170 Technical Reference page 209

TITLE 09-26-83 TEST3 POST UTILITIES
.LIST
PUBLI C POST]
PUBLIC ROS CHECKSUM
PUBLIC SLINK INT
PUBLIC ROM CiiECK
PUBL
I
C XPC:BYTE
PUBLI C PRT_HEX
PUBL I C XLAT _PR
PUBLIC PROT_prn_HEX
PUBl I C PROC_SHUTOOWN
I NClUOE SEGMENT. SRC
0000
CODE SEGMENT BYTE PUBLIC
~
EXTRN ROM_ERR: NEAR
;
---­--
--~
------­
--
­
-­--­
-­
--­-­--­--
---­
ROS CHECKSUM SUBROUT I NE
ASSUME CS:CODE, DS:ABSO
0000 POST3 :
0000
0000
0002
0002
2B C9
32 CO
ROS_CHECKSUM PROC
SUB CX, CX
ROS CHECKSUM CNT:
- XOR - Al,Al
NEAR
NEXT ROS MODULE
NUMBER OF BYTES TO ADD IS 64K
ENTRY FOR OPT I ONAL ROS TEST
0004
C26 :
0004
0006
0007
0009
02 07
43
E2 FB
OA CO
ADO
INC
LOOP
OR
Al,oS:[8X)
BX
C26
Al,AL
PO I NT TO NEXT BYTE
ADD ALL BYTES IN ROS MODULE
SUM
=
a?
0008
C3
RET
OOOC ROS_CHECKSUM ENoP
;
-----
­
--­
-­
-­---­
-­
-
­
-­-------­-
­
--_.­--------­---­
---------­
----­--------­
BLINK LED PROCEDURE FOR MFG RUN-IN TESTS
IF LED IS ON, TURN IT OFF. IF OFF, TURN ON.
j - - - - - ­ - - - - - - - - - ­ - - ­ - - - - - - - - - - - ­ - - - - - - ­ - - ­ - - ­ - - - ­ - - - - - - - - ­ - ­ - - - - - ­ - - - ­ - ­ - - - ­
ASSUME OS: DATA
OOOC
OOOC F6
BLINK tNT
- Sf!
PROC NEAR
0000
50 PUSH
AX
SAVE AX REG CONTENTS
DaDE
0010
E4 80
8A EO
IN
MOV
AL, MFG PORT
AH,AL -
READ CURRENT VAL OF MFG_PORT
0012 F6 DO
NOT AL
FLIP ALL BITS
0014 24 40
AND
AL, 01 OOOOOOB I
SOLAr E CONTROL BIT
0016
0019
80 E4 BF
OA C4
AND
OR
AH.101'11,1B
AL.AH
MASK OUT OF ORIGINAL VAL
OR NEW CONTROL 81T IN
001B E6 80
OUT
MFG_PORT, AL
0010 BO 20
MOV
AL, EOI
OOH
0021
E6 20
56
OUT
POP
INTAOO,Al
AX
RESTORE AX REG
0022
CF
IRET
0023 BLI NK_I NT ENDP
~ -;:HIS-RO~TI
N E -
;HE;~S~~~-
0;;:7
;;N~~
-
~o~
­
~;;~C~~;- ~N~--
0023
0023
68 ~-~~
R
; I F CHECKSUM I S OK, CALLS I NIT/TEST CODE I N MODULE
~O~:CHE; ~
--­-­--PRO;;----N
E~~
-­-­------­--­---­-­--­
MOV AX,DATA POINT ES TO DATA AREA
0026 8E CO MOV ESt AX
00Z8
002A
2A E4
8A 47 02
SUB
MOV
AH,AH
AL, [ BX+2]
ZERO OUT AH
GET LENGTH I NO I CATOR
~
0020 Bl 09
MOV CL,09H MULTIPLY BY 512
OozF
0031
03 EO
8B C8
SHL
MOV
AX, CL
CX, AX
SET COUNT
0033
0034
5'
B9 0004
PUSH
MOV
CX
CX.4
SAVE COUNT
ADJUST
0037
03 E8 SHR AX.CL
0039
03 DO ADD OX, AX
SET PO I NTER TO NEXT MODULE
003B 59
POP CX RETR I VE COUNT
003C E8 0002 R CALL ROS CHECKSUM CNT
00 CHECKSUM
003F 74 06
JZ ROM::::CHECK_ 1 -
0041
E8 0000 E CALL ROM ERR POST CHECKSUM ERROR
0044 EB 14 90 JMP ROM:CHECK_END
AND EXIT
0047 ROM_CHECIC 1:
0047
52
PUSH
OX
SAVE PO INTER
0048
004F
0054
26: C7 06 0067 R 0003
26: 8C 1 E 0069 R
26:
fF
lE 0067 R
MOV
MOV
CALL
ES: 10 ROM INIT,0003H
ES: I O::::ROM::::SEG, OS
aWORD PTR ES: 10_ROM_INIT
LOAD OFFSET
LOAD SEGMENT
CALL 1 N
J
T ./TEST ROUT I NE
0059
5A POP DX
OD5A ROM_CHECK_END:
005A
C3
RET
RETURN TO CALLER
005B
ROM_CHECK ENDP
CONVERT AND PR I NT ASC I I CODE
AL MUST CONTAIN NUMBER TO BE CONVERTED.
005B
AX AND BX DESTROYED.
kpc:;;;:
~
-­-­----PRO;----N
E~R
---­--­ --­---­---­--­
-.-----~--
-----­--­--­--­--­
005B 50
PUSH AX SAVE FOR LOW NIBBLE DISPLAY
005C B1 04
MOV CL,4 SH I FT COUNT
DOSE
02 E8
SHR Al, Cl NIBBLE S\oIAP
0060
E8 0066 R CALL XlAT_PR DO THE HIGH NIBBLE DISPLAY
0063
56
POP AX RECOVER THE NIBBLE
0064
24 OF AND AL,OFH ISOLATE TO LOW NIBBLE
FALL I NTO LOW NIBBLE CONVERS I ON
0066 XLAT_PR PROC NEAR
CONVERT OO-OF TO ASCI I CHARACTER
0066
04 90 ADO Al.090H
ADD FIRST CONVERSION FACTOR
0068 27 OAA
ADJUST FOR NUMERIC AND ALPHA RANGE
0069
0068
14 40
27
AOC
OM
Al,040H ADD CONVERSION AND ADJUST LOW NIBBLE
ADJUST HIGH NIBBLE TO ASCHI RANGE
006C
006c B4 OE
PRT_HEX PROC
r~ov
NEAR
AH.14
DISPLAY CHARACTER IN AL
006E
0070
0072
B7 00
co 10
C3
MOV
I NT
RET
BH,O
'OH
CALL V I DEO_I
a
0073
PRT HEX ENDP
~
0073
XLAT_PR ENDP
0073 XPC_BYTE ENDP
~
-
PU;:-C~;R;CT
ER-TO -Tt;E -CRT -;OR -;: E;;:
~i
i-7N-­-­-----­
; PROTECTED MODE
0073
0073
,E
; AL>=ASCII CHARTER DI=CRT BUFFER POSITION
~RO;:
·PRT -H
~x
--­-PROC ----
NE~R
--­-­-----­--­--­-----­
- PUSH OS SAVE CURRENT SEGMENT REGS
0074
53 PUSH BX
; ------­ B/W V IDEO CARD
0075
0078
007A
BS OOZO
8E DB
E8 0098 R
MOV
MOV
CALL
BX,e_BWCRT_PTR
OS, ax
PROT_PRT
SET OS TO BW CRT BUFFER
GO PR I NT CHARACTER
Test 3 5-67