IBM 5150

LOC OBJ
LINE SOURCE
£481 E2FB
E483
E463 IF
E484 IE
E485 8040
E487 E66l
E489 BOFF
E488 f621
E480 B086
E48F E643
E491 880304
E494 E642
E496 8"'C4
E496 E642
E49" E462
E49C 2410
E49E A26800
E4"1 E80514
E4"4 E60214
E4"7 noe
E4A9 81FB4005
E4AD 1306
E4AF 81FBI004
E483 7307
E485
E485
BE39FF90
E489 E8FEOl
E49C
E4BC BAooe8
E4BF
E4Bf 8ED"
E4Cl ZBDB
E4C3 8B07
E4CS 3DS5AA
E4(8 7505
E4CA f6B701
E4CO E804
E4CF
E4CF 81C28000
E403
E403
81FAOOF6
E407 7e£6
[409 E80190
E4DC
E4DC
E4DC ZBDB
E4DE 8EOA
E4EO E86907
1049
lOOP F7A
1050 ; --------------------------------------------------------
1051 CASSETTE DATA WRAP TEST
1052 I DESCRIPTION
1053 ~N CASSETTE HOTOR OFF. WRITE A BIT OUT TO THE
1054 CASSETTE DATA BUS. VERIFY THAT CASSETTE DATA
1055 REAO IS WITHIN A VALID RANGE.
1056 1------------------------------------------ --------------
1057
1058
j----- Tt.IRN THE CASSETTE MOTOR OFF
1059
1060 TSTl3:
1061
pop OS
1062 PUSH OS
1063 MOV
AL,04DH
1 SET TIMER 2 SPK OUT, AND CASST
1064
OUT PORT_B,AL
lOUT BITS ON, CASSETTE MOT OFF
1065
1066 ; ----- WRITE A BIT
1067
1068
MOV AL,OFFH
I
DISABLE TIMER INTERRUPTS
1069
OUT INTAOl,AL
1070
MOV AL,OB6H
1 SEL TIM 2, LSB, MSB, HO 3
1071
OUT TIMER+3,AL
; WRITE
6253 CHOIl10DE REG
1072
MOV AX,I23s
; SET TIMER 2 CNT FOR 1000 USEC
Ion OUT
TIMER+2,AL
; WRITE
TIMER 2 COUNTER REG
1074
MOV AL,AH ; WRITE MSB
1075
OUT TIMER+2,AL
1076
1077 ;----- READ CASSETTE INPUT
1076
1079
IH
AL,PORT_C
I READ VALUE OF CASS IN BIT
1060
AND
AL,lOH j ISOLATE FROM OTHER BITS
1081
MOV LAST_VAL,AL
1082
CALL
READ_HALF _BIT
1083
CALL READ_HALF _BIT
1084
JCXZ
Fe
1085
CMP BX ,MAX_PERIOD
1086
JHC
F8
1087
CMP BX,MIN_PERIOD
1088
JHe ROM_SCAN
I GO TO NEXT TEST IF OK
108Q F8:
I CAS_ERR
1090
MOV SI,OFFSET F2
; CASSETTE
WRAP FAILED
1091 CALL
P_MSG
; GO PRINT ERROR MSG
1092
1----------------- -- -------- - -------- ---- -- --------- -- ----- ---------- ----
1093 CHECK FOR OPTIONAL ROM FROM ceOOO->F4000 IN 2K INCREMENTS
1094 fA VALID MODULE HAS 'S5U' IN THE FIRST 2 LOCATIONS, LENGTH
1095 INDICATOR (LENGTH/512) IN THE 3RD LOCATION AND TEST IINIT.
1096 CODE STARTING IN THE 4TH LOCATION.)
1097 ;------------------------------------------------------------------------
1096
ROM_SCAN:
1099 NOV OX,OC800H
1 SET BEGINNING ADDRESS
1100 ROM_SCAN_1 :
1101
MOV DS,DX
1102
SUB BX,BX I SET BX=OOOO
1103 MOV AX,(BXI ; GET 1ST WORD FROM MODULE
1104
CMP AX,OAA55H
I = TO 10 WORD?
1105
JHZ
NEXT_ROM
I PROCEED TO NEXT RON IF NOT
1106
CALL ROM_CHECK
; GO DO CHECKSUM AND CALL
1107
JMP SHORT ARE_WE_DONE
;
CHECK FOR EtIl OF ROH SPACE
1108
NEXT_RON:
1109
ADO DX,0060H I POINT TO NEXT 2K ADDRESS
1110
ARE_WE_DONE:
1111
CMP
DX,OF600H ; AT F6000 YEn
1112
Jl RDH_SCAN_I I GO CHECK ANOTHER ADD.
IF NOT
1113 JMP
BASE_RDM_CHK
; GO CHECK BASIC ROM
1114 ;------------------------------------------------
1115 ROS CHECKSUM II
1116 ; DESCRIPTION
1117 A CHECKSUM IS DONE FOR THE 4 ROS
1116 MODULES CONTAINING BASIC CODE
1119 ;------------------------------------------------
1120:
1121
E4:
1122 SUB BX,BX
I SETUP
STARTING ROS AooR
1123 MOV DS,OX
1124
CALL ROS_CHECKSUI'1
I
CHECK ROS
5-44 System BIOS