*
*
*      BASIC  INITIALIZATION
*
 ORG IBUF  PLACE IT IN THE I/O BUFFERS
INIT EQU $
*
*   SET BASIC'S STACK
*
 LXI H,0000H  WIPE OUT JUMP TO INIT.
 SHLD PROGSTART
 SHLD PROGSTART+1
 LXI H,CMNDSP
 SHLD SPTR
 SPHL
*
*  INITIALIZE SOME OTHER STUFF
*
 CALL CFF  INIT NUMBER PRINTING FORMAT
 CALL DFC
*
 MVI A,64  INIT LINE LENGTH
 STA LINLEN
*
 LDA IXOPORT  INIT OUTPUT PORT
 STA XOPORT
 MVI B,VCLEAR
 ORA A
 CZ SYSOT
*
*    TEST FOR AUTO XEQ
*
 LXI H,IBUF  THIS WILL OVERWRITE SOME OF THE ABOVE CODE
 XCHG
*
 MVI A,PSN
 CALL PSCAN
 JC XIT5  SOME ERROR, IGNORE IT
 JZ XIT5  NO CHARACTERS
*
 LXI H,IBUF  CONVERT TREMINATING ZERO TO A CR
ITL1 MOV A,M
 ANI 7FH
 MOV M,A
 ORA A
 INX H
 JNZ ITL1
 DCX H
 MVI M,CR
*
 MVI A,-1
 STA FFFFF
*
 MVI A,1
 STA DIRF
*
 LXI H,0
 SHLD BEG
 SHLD DEL
*   
 XRA A
 STA OPEF
 JMP XIT6
*
*  PRINT INTRODUCTION
*
XIT5 MVI B,VCLEAR
 CALL SYSOT
 CALL CRLF
 CALL CRLF
*
XIT6 CALL INITIT
 CALL CSCR
 LXI H,IBUF
 SHLD TXA   FOR 'XEQ'
 LDA FFFFF
 ORA A
 CNZ CXEQ  XEQ IT! (RUN POPS OFF THE RETURN LINK)
 JMP IT  DO IT!
*
*
FFFFF DB 0  XEQ FLAG
IXOPORT DB 1
*
*