mirror of https://github.com/wwarthen/RomWBW.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
41 lines
768 B
41 lines
768 B
TITLE IOINIT - FORTRAN-80 I/O FLAG & VARIABLE INIT
|
|
|
|
.8080
|
|
|
|
ENTRY $IOINI
|
|
EXT $IOFLG,$LNPTR,$CPMBF,$LUNTB
|
|
EXT $FLFLG,$DSKER,$OPNFL
|
|
|
|
$IOINI: LDA $IOFLG ;SEE IF WE'VE ALREADY BEEN CALLED
|
|
ORA A
|
|
RNZ
|
|
INR A ;SET NON-ZERO
|
|
STA $IOFLG
|
|
|
|
LXI H,$CPMBF
|
|
MVI M,132+1 ;MAX CHRS TO READ FOR BDOS CALL
|
|
INX H
|
|
MVI M,0 ;ZERO NO. OF CHARS READ
|
|
INX H
|
|
SHLD $LNPTR ;PTR TO BEGINNING OF LINE
|
|
|
|
MVI M,10 ;STORE LINE FEED AT BEG. OF LINE
|
|
|
|
LDA $LUNTB ;GET NO. OF LUN'S
|
|
DCR A
|
|
MOV B,A ;SAVE LOOP COUNT
|
|
LXI H,$FLFLG ;INITIALIZE FLAGS FOR DSKDRV
|
|
XRA A
|
|
|
|
FLGLOP: MOV M,A ;ZERO $FLFLG BYTE
|
|
INX H ;INCREMENT PTR
|
|
DCR B ;DECREMENT COUNT
|
|
JNZ FLGLOP ;NEXT
|
|
STA $DSKER
|
|
|
|
XRA A
|
|
STA $OPNFL ;CLEAR $OPNFL FOR LPTDRV
|
|
RET
|
|
|
|
END
|
|
|