QR,FILECIOCMSTADERROIOCBIOCICCOICSTICBAICBAICBLICBLAUXTEMLOHIGBYTE@A6@ A4A5 A6 A7 A@ AA @44THIS PROGRAM LOADS PAGE 6 FROM THE FILE D:TESTd);@ ,;@,)6.hhh*LVdj..CIO$ IS PLA,PLA,PLA,TAX,JMP $E456 (CIOV)n6.D:TEST- *FILE NAMEx%6-@6-A6% B("@%(TRANSFER COMPLETE(&GG(ERROR #  OCCURRED AT LINE # F:A,%AV$F:A,,_ CIO SETUP SUBROUTINE60u1u2u88THIS ROUTINE LOADS OR SAVES MEMORY FILE FROM BASIC3u44BY SETTING UP AN IOCB AND CALLING CIO DIRECTLY4u6u&&ON ENTRY CMD=7 MEANS LOAD MEMORY8u_CMD=11 MEANS SAVE MEMORY9u00_STADR= THE ADDRESS TO LOAD OR SAVE MEMORY:u11_BYTES= THE NUMBER OF BYTES TO SAVE OR LOAD;u_IOCB= THE IOCB TO USEu..ON EXIT ERROR=1 MEANS SUCCESSFUL COMMANDBu((_ERROR<>1 THEN ITS AN ERROR STATUSCuDu_ *** IOCB EQUATES ***FuHu-6-$@6-A4%-6-A5%Ju6-A6%6-A7%Lu6-A@%6-AA%MuNu'6-@"@'6-@Su B Xu 6- Bu u 6- Bu u 6-?:C:,<,u 6-F:,$u\v99_ ***ROUTINE RETURNS HIGH,LOW BYTE OF 16 BIT NUMBERv$w*6-P:'AV,'6-P:&$AV,*$Vww55***TRAP HERE IF ERROR OCCURS DURING ROUTINE****x6-F:A,x  $ D:CH8PRG7.BAS