IBM 5150 Technical Reference 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