IBM XT 5160 Technical Reference page 316

Hide thumbs Also See for XT 5160:
Table of Contents

Advertisement

LI NE
SOURCE
(BIOS FOR THE
IBM PERSONAL COMPUTER XT)
1 1/08/82
BLINK LED PROCEDURE FOR MFG RUN-IN TESTS
I FLED
(S ON,
TURN
I T OFF.
(F OFF,
TURN ON.
5-169
PR I NTER SOURCE TABLE
01 SPLA Y CHARACTER
IN AL
SAVE FOR LOW N (BBLE 0 ( SPLA Y
SHIFT COUNT
NYBBLE SWAP
DO THE HIGH NIBBLE DISPLAY
RECOVER THE NIBBLE
( SOLA TE TO LOW NIBBLE
F ALL
I NTO LOW NIBBLE CONVER S I ON
CONVERT DO-OF TO ASC I I
CHARACTER
ADD FIRST CONVERS I ON FACTOR
ADJUST FOR NUMER I C AND ALPHA RANGE
ADD CONVERS ION AND ADJUST LOW NIBBLE
ADJUST HIGH NIBBLE TO ASCH I RANGE
RETURN TO CALLER
SET COUNT
SAVE COUNT
ADJUST
POST CHECKSUM ERROR
AND EX IT
SET PO I NTER TO NEXT MODULE
RETR I VE COUNT
DO CHECKSUM
ZERO OUT AH
GET LENGTH
I NO I CA TOR
MULT I PL Y BY 5 I 2
RESTORE AX REG
FLIP ALL BITS
I SOLA TE CONTROL BI T
MASK OUT OF ORIGINAL VAL
OR NEW CONTROL B (T IN
SAVE AX REG CONTENTS
READ CURRENT VAL OF PORT B
SYSTEM BOARD ERROR
EXPANS ION
10 BOX ERROR
ROM CHECKSUM ERROR
MEMORY ERROR
; POINT ES TO DATA AREA
OX
SAVE PO INTER
ES: (0 ROM
I NIT, 0003H
LOAD OFFSET
ES: 10-ROM-SEG,DS
;
LOAD SEGMENT
DWORD-PTR-ES: 10 ROM INIT
;
CALL
INIT ./TEST ROUTINE
OX
-
-
ENDP
'? ????',
13, \ 0
'PARITY CHECK
\',13,10
ENDP
'PAR I TY CHECK 2', 13, 10
, 1801',13, \ 0
'ROM', 13,10
AX
AL,PORT B
AH,AL
-
AL
AL,O I OOOOOOB
AH, 10 111111B
AL,AH
PORT B,AL
AL,EOI
INTAOO,AL
AX
OS :DATA
PROC
NEAR
,
201',13,10
PC-XT System BIOS (11/08/82)
DB
DB
DB
DB
DB
MESSAGE AREA FOR POST
XLA T _PR PROC
NEAR
ADD
AL,090H
DAA
ADC
AL,040H
DAA
PRT _HEX PROC
NEAR
MOV
AH,14
MOV
BH,O
INT
10H
RET
PRT HEX ENDP
XLAT PR ENDP
XPCJ3YTE
ENDP
F4
LABEL
WORD
OW
3BCH
OW
318H
OW
218H
F4E
LABEL
WORD
.
- - - - - - - - - - - -
-
- - - - - - -
----------
- - - - -
-----
--------
XPC BYTE
PROC
NEAR
-
PUSH
AX
MOV
CL,4
SHR
AL,CL
CALL
XLAT PR
POP
A X -
AND
AL,OFH
e
-
_ _
ROM CHECK
PROC
NEAR
-
MOV
AX,DATA
MOV
ES,AX
SUB
AH,AH
MOV
AL,[BX+2]
MOV
CL,09H
SHL
AX,CL
MOV
CX,AX
PUSH
CX
MOV
CX,4
SHR
AX,CL
ADD
OX ,AX
POP
CX
CALL
ROS CHECKSUM CNT
JZ
ROM-CHECK
1 -
CALL
ROM-ERR-
JMP
ROM::::CHECK_END
ROM CHECK
1:
-
PUSH
MOV
MOV
CALL
POP
ROM CHECK END:
-
RET
ROM_CHECK
.
------------------------------------------------
;
CONVERT AND PR I NT ASC I I CODE
:
AL MUST CONTAIN NUMBER TO BE CONVERTED.
:
AX AND BX DESTROYED.
.--------------------------------------------------------
;
TH I S ROUT I NE CHECKSUMS OPT I aNAL ROM MODULES AND
;
I F CHECKSUM
I S OK, CALLS
I N IT /TEST CODE
I N MODULE
ASSUME
BLINK
INT
-
STI
PUSH
IN
MOV
NOT
AND
AND
OR
OUT
MOV
OUT
POP
IRET
BLINK
INT
. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
EO
DB
' 101' , 13,10
5251
5258
5259
5260
5261
5262
5263
5264
5265
5266
5261
5268
5269
5210
5211
5212
5213
5214
5215
5216
5211
5218
5219
5280
5281
5282
5283
5284
5285
5286
5281
5288
5289
5290
5291
5292
5293
5294
5295
5296
5291
5298
5299
5300
5301
5302
5303
5304
5305
5306
5301
5308
5309
5310
5311
5312
5313
5314
5315
5316
5311
5318
5319
5320
5321
5322
5323
5324
5325
5326
5321
5328
5329
5330
5331
5332
5333
5334
5335
5336
5331
5338
5339
5340
5341
5342
5256
D2A
5255
02
5254
0 I
5253
5252
F3A
5251
5241
5248
5249
5250
LaC OBJECT
F98B
F98B 50
F98C Bl04
F98E D2E8
F990 E80300
F993 58
F994 240F
F9A3
F9A3 BC03
F9A5 1803
F9A 1 1802
F9A9
F996
F996 0490
F998 21
F999
1440
F99B 21
F99C
F99C B40E
F99E B100
F9AG COlO
F9A2 C3
F953
F953 B84000
F956 8ECO
F958 2AE4
F95A 8A4102
F95D Bl09
F95F D3EO
F961
8BC8
F963 51
F964 B90400
F961 D3E8
F969 0300
F96B 59
F96C E886FF
F96F 1406
F911
E851ED
F914 EB1490
F911
F911 52
F918 26C10661000300
F91F 268C I E6900
F984 26FFIE6100
F989 5A
F98A
F98A C3
F93C
F93C FB
F93D 50
F93E E461
F940 8AEO
F942 F6DO
F944 2440
F946 80E4BF
F949 OAC4
F94B E661
F94D B020
F94F E620
F951
58
F952 CF
F8FF 313031
F902 00
F903 OA
F904 20323031
F908 00
F909 OA
F90A 524F4D
F90D 00
F90E OA
F90F 31383031
F913 00
F914 OA
F9 I 5 50415249545920
434845434B2032
F923 00
F924 OA
F925 50415249545920
434845434B203 I
F933 00
F934 OA
F935 3F3F3F3F3F
F93A 00
F93B OA

Hide quick links:

Advertisement

Table of Contents
loading

Table of Contents