IBM 5150 - Page 142

LaC OBJ LINE
SOURCE
E689 2AE4
1433
SUB
AH.AH
; ZERO OUT AH
E688 8.6.4702
1434
MOV Al,[BX+2] ; GET LENGTH INDICATOR
E68E BI09
1435
MOV
Cl,09H ; MULTIPLY BY 512
E690 03EO
1436
SHe AX,Cl
E692 88C8
1437
MOV
eX.AX
; SET COUNT
E694 51
1438
PUSH
CX
E095 BI04
1439
MaV
Cl,4
£697 03E8 1440
SHR
AX,CL
E699 0300
1441
ADD DX,AX 5 SET POINTER TO NEXT MODULE
£698 59
1442
pop
CX
1443
E69C £88005 1444
CALL
ROS_CHECKSU"CCNT
J DO CHECKSUM
E69F 7405 1445
JZ
ROM_CHECK_I
E6Al E86501 1446
CAll ROM_ERR ; PRINT ERROR INFO
E6A4
EBl3 1447
JHP SHORT ROM_CHECK_END
E6A6 1448
RON_CHECK_l :
E6.o..6 52 1449
PUSH
OX I SAVE POINTER
HA7 26C70600010300 1450
MOV ES: ID_RON_INIT, 0003H LOAD OFFSET
EbAE 268CIE0201 1451
MOV
ES: IO_ROM_SEG,
os LOAD SEGMENT
E6B3 26FFIEOOOI 1452
CALL DWORD PTR ES:IO_RDH_INIT I CALL INIT RTN.
E6B8 5A 1453
pop
OX
E6B9 1454
RDH_CHECK_EHD :
£689 C3 1455
RET
1456
ROI1_CHECK
ENDP
1457
1458
; ----------- - ----------------- - ----------- - --------------
1459 I THIS SUBROUTINE WILL PRINT A MESSAGE ON TliE DISPLAY
1460
1461 ENTRY REQUIREMENTS:
1462 SI = OFFSET(ADDRESSI OF MESSAGE BUFFER
1463 CX = MESSAGE BYTE COUNT
1464
MAXII'1Ut1 MESSAGE LENGTH IS 36 CHARACTERS
1465
J--------------------------------------------------------
EbBA 1466
P _MS6 PROC NEAR
EbBA £88118 1467
CAll
DDS
fbeD 803£120001 1468
CHP
MFG_TST ,I ; I1F6 TEST MOOE?
£6e2 7505 1469
JNE
G12 J NO - DISPLAY ERROR MS6
E6C4 MOl 1470
MOV DH,I
I YES - SETUP TO BEEP SPEAKER
EfoC6 E906FF
1471
JHP ERR_BEEP I YES - BEEP SPEAKER
f6C9
1472 G12: ; WRITE_MSG:
E6C9 2E8A04
1473
MOV AL,CS:(SIl 1 PUT CHAR IN AL
Ebce 46
1474
IHC
51
; POINT TO NEXT CHAR
E6eD so
1475
PUSH
AX
; SAVE PRINT CHAR
EbCE E865FF 1476
CALL PRT_HEX
i CAll VIDEO_IO
f6P1 58
1477
POP
AX
i RECOVER PRINT CHAR
£602 XOA
1478
CHP AL,10 ; WAS IT LINE FEED
£604 7SF)
1479
JHE G12
; NO,KEEP PRINTING STRING
f606 C3 1480
RET
1481
P_MSG
ENDP
1482
E607 20524F4D 1483
nA DB
'
ROM',I3,IO
E60B 00
HOC 0.6.
1484
HOD
1485
D.EOI
,,"DC
HEAR
E60D 50
1486
PUSH AX
E6DE B02:0
1487
MDV
AL,20H
£6EO f620
1488
OUT
20H.AL
£6E2 58 1489
POP AX
E6El CF
1490
IRET
1491
D_EOI
EtIlP
1492
1493 1--- INT, 19 -----------------------------------------------------
1494 ; BOOT STRAP LOADER
1495 IF A 5 114" DISKETTE DRIVE IS AVAIlABLE ON THE SYSTEM,
1496 TRACK O. SECTOR 1 IS READ INTO TliE BOOT LOCATION
1497 (SEGMENT O. OFFSET 7COO) AND CONTROL IS TRANSFERRED
1498 TliERE.
1499
1500 IF THERE IS NO DISKETTE DRIVE, OR IF TliERE IS A
1501 HARDWARE ERROR CONTROL IS TRANSFERRED TO TliE RESIDENT
1502 BASIC ENTRY POINT.
1503 I
1504 ; IPL AS$(J1PTIONS:
1505 8255 PORT 60H BIT 0 = 1 IF IPL FROM DISKEnE
1506 1- ---------------------------- ------------- - -- -------------------
1507 ASSUME CS:CODE,DS:ABSO
System BIOS 5-49