Т > Tape/src 1.00 )Т Tape calls from Basic without error : (ERRSP=23613 2ч mcode% &100 <TapeBuffer=&5BEF FЦ P=0 ╦ 1 PP%=23300 ZO%=mcode% d[OPT P*3+4 *n.L23300:JP TapeInfo ; TapeInfo entry *x.L23303:JP TapeLoad ; TapeLoad entry ,┌.L23306:JP TapeHeader ; TapeHeader entry *▄.L23309 ; TapeSave entry √: ═.TapeSave ╙ж TapeData:JR TapeSaveGo Є.TapeHeader Ўж TapeHdr х.TapeSaveGo рLD HL,(ERRSP):PUSH HL эж TapeSaveCall ФJR TapeReturn П.TapeSaveCall *ЗLD (ERRSP),SP:JP &04C2 ; Call SV_BYTES : .TapeLoad ж TapeData:JR TapeLoadGo ".TapeInfo ,ж TapeHdr 6.TapeLoadGo @LD HL,(ERRSP):PUSH HL JSCF:ж TapeLoadCall T.TapeReturn ^POP HL:LD (ERRSP),HL 'hLD BC,0:RET C ; BC=0 - Ok 'rINC C:ж &1F54:RET NC ; BC=1 - BREAK 5|INC C:RET ; BC=2 - Block not loaded ├; ░.TapeLoadCall * LD (ERRSP),SP:JP &0556 ; Call LD_BYTES є: ў.TapeHdr ╦LD IX,TapeBuffer:LD DE,17 бXOR A:RET л.TapeData жLD IX,(TapeBuffer+13) ЮLD DE,(TapeBuffer+11) ЙLD A,&FF:RET Т]М ЧЮ Т Create the machine code: &&Ц a=23300 ╦ 23390:С b:POKE a,b:М a <0э 195,42,91,195,37,91,195,18,91,205,84,91,24,3,205,75,91 ::э 42,61,92,229,205,30,91,24,23,237,115,61,92,195,194,4 HТ On return from calls: RТ bc=0 - Ok \Т bc=1 - BREAK fТ bc=2 - Block not loaded p ЪЪ