; ARGUMENTS: STRING POINTER IN HL
; RETURNS:
; DESTROYS: PSW, HL, C
PRINTM:
F233    7E      MOV     A,M
F234    B7      ORA     A
F235    C8      RZ
F236    4F      MOV     C,A
F237    CD66F3  CALL    CONOUT
F23A    23      INX     H
F23B    C333F2  JMP     PRINTM

;
; SIGNON MESSAGE
BMSG:
F23E    0D      DB      0DH,0AH,'SBC-80/24 AND SBX-218 CPA 2.2 V3.0'
F23F    0A
F240    5342432D
F244    38302F32
F248    3420616E
F24C    64205342
F250    582D3231
F254    38204350
F258    2F4D2032
F25C    2E322056
F260    332E30
F263    20287265 DB      ' (REVISED 01/15/82)',0DH,0AH,0
F267    76697365
F268    64203031
F26F    2F31352F
F273    383229
F276    0D
F277    0A
F278    00

;
; ******************************************
;
;       BOOTSTRAP OPERATIONS
;
; ******************************************
BOOT:
; INITIALIZE THE PPIS AND TURNOFF THE EPROM
F279    3E81    MVI     A,81H
F27B    D3E7    OUT     PT1CTL
F27D    D3E8    OUT     PT2CTL          ; INITIALIZE PORTS AND TURN OFF EPROM

; INITIALIZE THE 8272
F27F    CD62F8  CALL    DKINIT

; INITIALIZE INTERRUPT CONTROLLER
F282    F3      DI
F283    3E96    MVI     A,ICW1A
F285    D3D8    OUT     ICW1
F287    3EFF    MVI     A,ICW2A
F289    D3D9    OUT     ICW2
F28B    3E87    MVI     A,IMASK
F28D    D3D9    OUT     IMR
F28F    FB      EI

; INITIALIZE THE CONSOLE PORT AT 9600 BAUD
F290    AF      XRA     A
F291    D3C1    OUT     CMX351
F293    D3C1    OUT     CMX351
F295    D3C1    OUT     CMX351
F297    3E40    MVI     A,RSTUST
F299    D3ED    OUT     CM8251
F29B    3ECE    MVI     A,(MODE OR 80H)
F29D    D3ED    OUT     CM8251
F29F    3E35    MVI     A,35H
F2A1    D3ED    OUT     CM8251
F2A3    3E86    MVI     A,C2M3
F2A5    D3DF    OUT     TMCP
F2A7    210700  LXI     H,B9600
F2AA    7D      MOV     A,L
F2AB    D3DE    OUT     CTR2
F2AD    7C      MOV     A,H
F2AE    D3DE    OUT     CTR2