Prev: E211 Up: Map Next: E257
E219: get parameters for OPEN/CLOSE
Used by the routines at E1BE and E1C7.
E219 A9 00 LDA #$00 clear the filename length
E21B 20 BD FF JSR $FFBD clear the filename
E21E 20 11 E2 JSR $E211 scan for valid byte, else do syntax error then warm start
E221 20 9E B7 JSR $B79E get byte parameter, logical file number
E224 86 49 STX $49 save logical file number
E226 8A TXA copy logical file number to A
E227 A2 01 LDX #$01 set default device number, cassette
E229 A0 00 LDY #$00 set default command
E22B 20 BA FF JSR $FFBA set logical, first and second addresses
E22E 20 06 E2 JSR $E206 exit function if [EOT] or ":"
E231 20 00 E2 JSR $E200 scan and get byte, else do syntax error then warm start
E234 86 4A STX $4A save device number
E236 A0 00 LDY #$00 clear command
E238 A5 49 LDA $49 get logical file number
E23A E0 03 CPX #$03 compare device number with screen
E23C 90 01 BCC $E23F branch if less than screen
E23E 88 DEY else decrement command
E23F 20 BA FF JSR $FFBA set logical, first and second addresses
E242 20 06 E2 JSR $E206 exit function if [EOT] or ":"
E245 20 00 E2 JSR $E200 scan and get byte, else do syntax error then warm start
E248 8A TXA copy command to A
E249 A8 TAY copy command to Y
E24A A6 4A LDX $4A get device number
E24C A5 49 LDA $49 get logical file number
E24E 20 BA FF JSR $FFBA set logical, first and second addresses
E251 20 06 E2 JSR $E206 exit function if [EOT] or ":"
E254 20 0E E2 JSR $E20E scan for ",byte", else do syntax error then warm start
Prev: E211 Up: Map Next: E257