* * GS BASIC * * (c) 1987, Apple Computer, Inc. * (m) 2014-2019, Brutal Deluxe Software * ^- m means modernized * * Visit http://www.brutaldeluxe.fr/ * xc xc mx %00 lst off rel dsk GSBD.L *-------------------------------------- * Versions * * 20190128 - AV * BASIC@ * Output ILLEGAL QUANTITY ERROR if asked variable * is above the max number of variables * TYPO * "destroy" was written "destory" * VERSION * changed to 1.0 Beta 5 *-------------------------------------- use 4/Ctl.Macs use 4/Desk.Macs use 4/Event.Macs use 4/Int.Macs use 4/Load.Macs use 4/Locator.Macs use 4/Mem.Macs use 4/Menu.Macs use 4/Misc.Macs use 4/Qd.Macs use 4/SANE.Macs use 4/Text.Macs use 4/Window.Macs use 4/Util.Macs *-------------------------------------- SOFTEV EQU $03F2 PWREDUP EQU $03F4 PADDL0 EQU $C064 PADDL1 EQU $C065 DISPATCH1 EQU $E10000 GSOS EQU $E100A8 GSOS2 EQU $E100B0 *-------------------------------------- L0000 BRL L36DC *-------------------------------------- L0003 DB $80 L0004 DB $00 L0005 DB $00 L0006 DB $00 L0007 DB $00 L0008 DB $00 DB $00 L000A DB $00 L000B DB $00 L000C DB $00 L000D DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L004C DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L007F DB $00 DB $00 L0081 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0087 DB $00 L0088 DB $00 L0089 DB $00 L008A DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L00A7 DB $00 L00A8 ASC 'GSB.HELLO' DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 ASC '11-SEP-87 15:29 ' L00F7 JMP LE772 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 JMPL L40D8 JMPL L36DC L0108 DB $00 L0109 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L01AA DB $00 L01AB DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L022A DB $00 DB $00 L022C DB $00 DB $00 L022E DB $50 L022F DB $20 L0230 DB $20 L0231 DB $20 L0232 DB $20 L0233 DB $20 L0234 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 L023F DB $20 DB $20 DB $20 DB $20 L0243 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 L0257 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 L025D DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 L026D DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 L027E DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 L032F DB $00 DB $00 L0331 DB $00 DB $00 L0333 DB $00 DB $00 L0335 DB $00 L0336 DB $00 L0337 DB $00 DB $00 L0339 DB $00 L033A DB $00 DB $00 L033C DB $00 L033D DB $00 L033E DB $00 DB $00 DB $00 DB $00 DB $00 L0343 DB $00 L0344 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L034B DB $00 DB $00 L034D DB $00 DB $00 L034F DB $00 L0350 DB $00 L0351 DB $00 L0352 DB $00 L0353 DB $00 DB $00 L0355 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L036E DB $00 DB $00 L0370 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L037B DB $00 L037C DB $00 L037D DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L039B DB $00 L039C DB $00 L039D DB $00 L039E DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L03B1 DB $00 L03B2 DB $00 L03B3 DB $00 L03B4 DB $00 DB $00 DB $00 DB $00 L03B8 DB $00 L03B9 DB $00 DB $00 DB $00 DB $00 DB $00 L03BE DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L03D2 DB $00 L03D3 DB $00 L03D4 DB $00 DB $00 L03D6 DB $00 L03D7 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L03EF DB $00 DB $00 DB $00 DB $00 L03F3 DB $00 L03F4 DB $00 L03F5 DB $00 L03F6 DB $00 L03F7 DB $00 L03F8 DB $00 L03F9 DB $00 L03FA DB $00 L03FB DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L04F8 DB $00 L04F9 DB $00 L04FA DB $00 L04FB DB $00 L04FC DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L05F7 DB $00 DB $00 L05F9 DB $00 L05FA DB $00 L05FB DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0639 DB $00 L063A DB $00 L063B DB $00 L063C DB $00 L063D DB $00 L063E DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L06E9 DB $00 DB $00 L06EB DB $00 L06EC DB $00 DB $00 DB $00 DB $00 L06F0 DB $00 L06F1 DB $00 L06F2 DB $00 L06F3 DB $00 L06F4 DB $00 L06F5 DB $00 L06F6 DB $00 L06F7 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L07E7 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L07F0 DB $00 L07F1 DB $00 L07F2 DB $00 L07F3 DB $00 L07F4 DB $00 L07F5 DB $00 L07F6 DB $00 L07F7 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L08E7 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L08F0 DB $00 L08F1 DB $00 L08F2 DB $00 L08F3 DB $00 L08F4 DB $00 L08F5 DB $00 L08F6 DB $00 L08F7 DB $00 L08F8 DB $00 L08F9 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0902 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L09ED DB $00 L09EE DB $00 L09EF DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0AEE DB $00 L0AEF DB $00 L0AF0 DB $00 L0AF1 DB $00 L0AF2 DB $00 L0AF3 DB $00 L0AF4 DB $00 DB $00 L0AF6 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0AFE DB $00 L0AFF DB $00 L0B00 DB $00 DB $00 L0B02 DB $00 DB $00 L0B04 DB $00 DB $00 L0B06 DB $00 DB $00 DB $00 DB $00 L0B0A DB $00 DB $00 L0B0C DB $00 DB $00 L0B0E DB $01 DB $00 L0B10 DB $00 DB $00 L0B12 DB $00 DB $00 L0B14 DB $00 DB $00 L0B16 DB $00 DB $00 L0B18 DB $00 DB $00 L0B1A DB $00 DB $00 L0B1C DB $00 DB $00 L0B1E DB $00 DB $00 L0B20 DB $07 DB $00 L0B22 DB $10 L0B23 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0B2C DB $F1 L0B2D DB $3A DB $D6 DB $10 L0B30 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0B3A DB $35 DB $C2 DB $68 DB $21 DB $A2 DB $DA DB $0F DB $C9 DB $00 L0B43 DB $40 L0B44 DB $FF DB $FF DB $FF DB $7F L0B48 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0B51 DB $00 L0B52 DB $00 DB $00 L0B54 DB $00 L0B55 DB $00 L0B56 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0B5C DB $00 DB $00 L0B5E DB $00 DB $00 L0B60 ADRL L82C1 L0B64 ADRL L4067 L0B68 DB $00 DB $00 L0B6A DB $00 DB $00 L0B6C DB $00 DB $00 L0B6E DB $00 DB $00 L0B70 DB $00 DB $00 L0B72 DB $00 DB $00 L0B74 DB $00 DB $00 L0B76 DB $00 DB $00 L0B78 DB $00 DB $00 L0B7A DB $00 DB $00 DB $00 DB $00 L0B7E DB $2F DB $00 L0B80 DB $00 DB $80 L0B82 DB $00 DB $00 L0B84 DB $00 DB $00 L0B86 DB $00 DB $00 L0B88 DB $00 DB $00 L0B8A JMPL LE80F DB $00 L0B8F JMPL DISPATCH1 DB $00 ; <= Mandatory! * GSBASIC VARIABLES (see BASIC@) L0B94 DA L2DFD ; 00 (L0BF4-L0B94) / 2 = 48 DA L2E0D ; 01 DA L2E70 ; 02 DA L0007 ; 03 DA L00A8 ; 04 DA L022F ; 05 DA L03D3 ; 06 DA L03F7 ; 07 DA L04FA ; 08 DA L06E9 ; 09 DA L0AF0 ; 10 DA L0B00 ; 11 DA L0B1A ; 12 DA L0B1C ; 13 DA L0B1E ; 14 DA L0B20 ; 15 DA L0B22 ; 16 DA L0B2C ; 17 DA L0B30 ; 18 DA L0B60 ; 19 DA L0B64 ; 20 DA L0B78 ; 21 DA L0B80 ; 22 DA L0B8A ; 23 DA L0C2B ; 24 DA L1030 ; 25 DA L104C ; 26 DA L10A3 ; 27 DA L10C5 ; 28 DA L10D1 ; 29 DA L16ED ; 30 DA L16EE ; 31 DA L1701 ; 32 DA L1707 ; 33 DA L1717 ; 34 DA L17D5 ; 35 DA L1897 ; 36 DA L18B5 ; 37 DA L18C3 ; 38 DA L1928 ; 39 DA L1A38 ; 40 DA L1BA2 ; 41 DA L1BE4 ; 42 DA L1C8E ; 43 DA L1D4D ; 44 DA L1E01 ; 45 DA L1E3D ; 46 DA L1E6F ; 47 L0BF4 DA $0000 ; DA $0000 ; L0BF8 DB ^L2DFD ; SEGMENT NUM DB ^L2E0D DB ^L2E70 DB ^L0007 DB ^L00A8 DB ^L022F DB ^L03D3 DB ^L03F7 DB ^L04FA DB ^L06E9 DB ^L0AF0 DB ^L0B00 DB ^L0B1A DB ^L0B1C DB ^L0B1E DB ^L0B20 DB ^L0B22 DB ^L0B2C DB ^L0B30 DB ^L0B60 DB ^L0B64 DB ^L0B78 DB ^L0B80 DB ^L0B8A DB ^L0C2B DB ^L1030 DB ^L104C DB ^L10A3 DB ^L10C5 DB ^L10D1 DB ^L16ED DB ^L16EE DB ^L1701 DB ^L1707 DB ^L1717 DB ^L17D5 DB ^L1897 DB ^L18B5 DB ^L18C3 DB ^L1928 DB ^L1A38 DB ^L1BA2 DB ^L1BE4 DB ^L1C8E DB ^L1D4D DB ^L1E01 DB ^L1E3D DB ^L1E6F DB $00 DB $00 L0C2A DB $00 L0C2B DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L102B DB $00 L102C DB $00 L102D DB $00 DB $04 DB $08 L1030 DB $00 DB $00 L1032 DB $00 DB $00 L1034 DB $00 DB $00 L1036 DB $00 DB $00 L1038 DB $00 DB $00 L103A DB $00 DB $00 L103C DB $00 DB $00 L103E DB $00 DB $00 L1040 DB $00 L1041 DB $80 L1042 DB $00 DB $00 L1044 DB $00 L1045 DB $02 L1046 DB $00 DB $00 L1048 DB $00 L1049 DB $02 L104A DB $00 DB $00 L104C DB $20 DB $00 DB $00 DB $00 L1050 DB $08 DB $00 DB $00 DB $00 L1054 DB $0C DB $00 DB $00 DB $00 DB $0C DB $00 DB $00 DB $00 DB $0C DB $00 DB $00 DB $00 L1060 DB $00 L1061 DB $00 L1062 DB $00 DB $00 L1064 DB $00 DB $00 L1066 DB $00 DB $00 L1068 DB $00 L1069 DB $00 L106A DB $00 DB $00 L106C DB $00 L106D DB $00 L106E DB $00 DB $00 L1070 DB $00 L1071 DB $00 L1072 DB $00 DB $00 L1074 DB $00 DB $00 L1076 DB $00 DB $00 L1078 DB $00 L1079 DB $00 L107A DB $00 DB $00 L107C DB $00 L107D DB $00 L107E DB $00 DB $00 L1080 DB $00 DB $00 L1082 DB $00 DB $00 DB $00 DB $00 DB $7E DB $00 L1088 DB $00 L1089 DB $00 L108A DB $00 L108B DB $00 L108C DB $00 DB $00 L108E DB $00 DB $00 DB $00 DB $00 L1092 DB $00 L1093 DB $00 L1094 DB $00 L1095 DB $00 L1096 DB $00 DB $00 L1098 DB $00 DB $00 L109A DB $00 L109B DB $00 L109C DB $00 L109D DB $00 DB $00 L109F DB $00 L10A0 DB $00 L10A1 DB $00 DB $00 L10A3 DB $00 L10A4 DB $00 L10A5 DB $00 DB $00 L10A7 DB $00 L10A8 DB $00 L10A9 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L10C5 DB $00 ; path name DB $00 L10C7 DB $00 DB $00 DW $0000 ; flags DB $00 DB $00 L10CD DW $0000 ; ref num L10CF DB $00 DB $00 L10D1 DB $00 L10D2 DB $00 L10D3 DW $0000 ; event code L10D5 ADRL $00000000 ; event message ADRL $00000000 ; tick count DW $0000 ; mouse location DW $0000 L10E1 DW $0000 ; modifiers L10E3 DB $00 DB $00 L10E5 DB $00 DB $00 L10E7 DB $FF DB $0F L10E9 DB $00 DB $00 L10EB DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L11EB DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L12EB DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L13EB DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L14E9 DB $00 DB $00 L14EB DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L15E9 DB $00 DB $00 L15EB DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L16ED DB $03 L16EE DB $00 L16EF DB $00 DB $00 L16F1 DB $00 DB $00 L16F3 DB $00 DB $00 L16F5 DB $00 DB $00 L16F7 DB $00 DB $00 L16F9 DB $00 DB $00 L16FB DB $00 L16FC DB $00 L16FD DB $00 L16FE DB $00 L16FF DB $00 DB $00 L1701 DB $00 L1702 DB $00 L1703 DB $00 DB $00 L1705 DB $00 DB $00 L1707 DB $00 DB $00 L1709 DB $00 DB $00 L170B DB $00 DB $00 L170D DB $00 DB $00 L170F DB $00 DB $00 L1711 DB $00 DB $00 L1713 DB $00 DB $00 L1715 DB $00 DB $00 L1717 DB $00 L1718 DB $00 L1719 DB $00 DB $00 L171B DB $00 DB $00 L171D DB $00 DB $00 L171F DB $00 L1720 DB $00 L1721 DW $0000 ; ref num L1723 ADRL $00000000 ; buffer ptr * L1727 ADRL $00000000 ; request count L172B ADRL $00000000 ; transfer count L172F DW $0000 ; ref num DW $0000 ; flags L1733 DW $0001 ; base L1735 DW $0001 ; displacement ADRL L0003 ; file name DW $0000 ; entry num L173D DW $0000 ; file type L173F ADRL $00000000 ; end of file L1743 ADRL $00000000 ; blocks used L1747 DS 8 ; creation date DS 8 ; modification date L1757 DW $0000 ; access L1759 ADRL $00000000 ; aux type DW $0000 ; file system L175F DW $0000 L1761 DW $0000 ; ref num ADRL L176F ; resource eof ADRL $00000001 ; resource blocks ADRL $00000000 ; transfer count L176F DB $00 DB $00 L1771 DB $00 L1772 DB $00 L1773 DB $00 DB $00 L1775 DB $00 DB $00 L1777 DW $0000 ; ref num ADRL L04FA ; buffer ptr ADRL $000000FF ; request count L1781 ADRL $00000000 ; transfer count L1785 DB $00 DB $00 L1787 DB $FF L1788 DB $FF L1789 DW $0000 ; version number L178B DB $00 DB $00 L178D DW $0000 ; prefix num L178F ADRL L0230 ; prefix ptr DB $00 DB $00 DB L0230 DB $02 DB $01 DB $00 L1799 DW $0000 ; prefix num ADRL L0007 ; prefix ptr L179F DW $0000 ; prefix num ADRL L0007 ; prefix ptr L17A5 DW $0000 ; prefix num L17A7 ADRL L01AA ; prefix ptr L17AB DW $0000 ; ref num DW $00FF ; enable mask DW $000D ; newline char L17B1 DW $0000 ; ref num DW $0000 ; enable mask DW $0000 ; newline char DB L0007 DB $00 DB $01 DB $00 L17BB DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L17C5 DB $00 DB $00 L17C7 DB $00 DB $00 L17C9 STR 'DICTIONARY' DB $00 L17D5 STR '.CONSOLE' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR '.PRINTER' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR '.MODEM' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR '.NETPTR1' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR '.NULL' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR '.MEMBUFR' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $FF DB $FF L1897 DB $03 L1898 DB $02 DB $01 DB $03 DB $02 DB $02 DB $07 DB $02 DB $00 DB $02 DB $00 DB $10 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L18AB DB $00 DB $00 L18AD DB $00 DB $00 L18AF DB $00 DB $00 L18B1 DB $00 DB $00 L18B3 DB $00 DB $00 L18B5 DB $00 DB $C1 DB $00 DB $C2 L18B9 DB $00 DB $C3 DB $00 DB $C4 DB $00 DB $C5 DB $00 DB $C6 L18C1 DB $00 DB $C7 L18C3 DB $00 DB $C1 DB $00 DB $C2 L18C7 DB $00 DB $C3 DB $00 DB $C4 DB $00 DB $C5 DB $00 DB $C6 DB $00 DB $C7 L18D1 JSL GSOS L18D5 DW $0000 L18D7 ADRL $00000000 RTS L18DC DW $0000 ; ref num L18DE DB $00 L18DF DB $00 L18E0 DB $00 L18E1 DB $00 L18E2 DB $00 L18E3 DB $00 L18E4 DB $00 L18E5 DB $00 L18E6 DB $00 DB $00 DB $00 DB $00 L18EA DB $00 DB $00 L18EC DB $00 L18ED DB $00 L18EE DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L18F4 ADRL L0007 ; device name L18F8 ADRL $00000000 ; volume name L18FC DW $0000 ; file system L18FE DA $0000 L1900 DW $0000 ; storage L1902 DS 4 ; creation date DS 4 ; modification date L190A ADRL $00000000 ; blocks used DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L1916 ADRL L0007 ; device name ADRL L039B ; volume name ADRL $00000000 ; total blocks L1922 ADRL $00000000 ; free blocks L1926 DW $0000 ; file system L1928 JMPL L8D0F JMPL L8D0F JMPL L8D0F JMPL L8D0F L1938 DB $00 DB $00 L193A DB $00 DB $00 L193C DB $01 L193D DB $00 DB $00 DB $01 DB $00 DB $02 DB $01 DB $03 DB $80 DB $04 DB $00 DB $05 DB $04 DB $0D DB $04 DB $0B DB $00 DB $0F DB $00 DB $06 DB $00 DB $07 DB $00 DB $09 DB $80 DB $0A DB $00 DB $10 DB $01 DB $11 DB $80 DB $12 DB $00 DB $22 DB $00 DB $32 DB $80 DB $13 DB $00 DB $23 DB $00 DB $33 DB $80 DB $14 DB $00 DB $24 DB $00 DB $34 DB $80 DB $15 DB $00 DB $25 DB $00 DB $35 DB $80 DB $16 DB $00 DB $26 DB $00 DB $36 DB $80 DB $17 DB $00 DB $27 DB $00 DB $37 DB $80 DB $18 DB $00 DB $28 DB $00 DB $38 DB $80 DB $19 DB $00 DB $29 DB $00 DB $39 DB $80 DB $1A DB $00 DB $2A DB $00 DB $3A DB $80 DB $1B DB $00 DB $2B DB $00 DB $3B DB $80 DB $1C DB $00 DB $2C DB $00 DB $3C DB $80 DB $1D DB $00 DB $2D DB $00 DB $3D DB $80 DB $1E DB $00 DB $2E DB $00 DB $3E DB $80 DB $1F DB $00 DB $2F DB $00 DB $3F DB $80 DB $20 DB $00 DB $30 DB $00 DB $40 DB $80 DB $21 DB $00 DB $31 DB $00 DB $41 L19BA DB $FF DB $00 DB $4F DB $00 DB $17 DB $00 DB $FE DB $00 DB $7F DB $00 DB $01 DB $00 DB $FF DB $7F DB $FF DB $7F DB $FF DB $00 DB $01 DB $00 DB $01 DB $00 DB $01 DB $00 DB $7F DB $00 DB $FF DB $00 DB $0F DB $00 DB $7F DB $00 DB $FF DB $00 DB $01 DB $00 DB $7F DB $00 DB $FF DB $00 DB $01 DB $00 DB $7F DB $00 DB $FF DB $00 DB $01 DB $00 DB $7F DB $00 DB $FF DB $00 DB $01 DB $00 DB $7F DB $00 DB $FF DB $00 DB $01 DB $00 DB $7F DB $00 DB $FF DB $00 DB $01 DB $00 DB $7F DB $00 DB $FF DB $00 DB $01 DB $00 DB $7F DB $00 DB $FF DB $00 DB $01 DB $00 DB $7F DB $00 DB $FF DB $00 DB $01 DB $00 DB $7F DB $00 DB $FF DB $00 DB $01 DB $00 DB $7F DB $00 DB $FF DB $00 DB $01 DB $00 DB $7F DB $00 DB $FF DB $00 DB $01 DB $00 DB $7F DB $00 DB $FF DB $00 DB $01 DB $00 DB $7F DB $00 DB $FF DB $00 DB $01 DB $00 DB $7F DB $00 DB $FF DB $00 DB $01 DB $00 DB $7F DB $00 DB $FF DB $00 DB $01 DB $00 L1A38 ADRL L9D1A L1A3C DB $00 L1A3D DB $00 L1A3E DB $00 L1A3F DB $FE L1A40 DB $20 L1A41 DB $00 L1A42 DB $00 L1A43 DB $00 DB $00 L1A45 DB $01 L1A46 DB $20 L1A47 DB $00 L1A48 DB $00 L1A49 DB $00 L1A4A DB $00 L1A4B DB $24 DB $00 L1A4D DB $02 L1A4E DB $0D L1A4F DB $1B DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L1A5E DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L1A6E DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L1A7E DB $00 DB $00 L1A80 DB $00 DB $00 L1A82 DB $00 DB $00 L1A84 DB $00 DB $00 L1A86 DB $00 DB $00 L1A88 DB $00 DB $00 L1A8A DB $00 DB $00 L1A8C DB $00 L1A8D DB $00 L1A8E DB $00 L1A8F DB $00 L1A90 DB $00 L1A91 DB $00 L1A92 DB $00 L1A93 DB $00 L1A94 DB $00 L1A95 DB $00 L1A96 DB $00 L1A97 DB $49 L1A98 DB $00 L1A99 DB $00 L1A9A DB $00 L1A9B DB $00 DB $00 L1A9D DB $00 L1A9E DB $00 L1A9F DB $00 L1AA0 DB $00 L1AA1 DB $00 L1AA2 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L1BA2 DB $EF L1BA3 DB $00 L1BA4 DB $00 DB $F0 DB $20 DB $00 DB $01 DB $00 DB $00 DB $01 DB $20 DB $00 DB $03 DB $80 DB $01 DB $24 DB $00 DB $02 DB $0D DB $1B DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L1BE4 DB $EF L1BE5 DB $00 L1BE6 DB $00 DB $F0 DB $20 L1BE9 DB $01 DB $01 DB $00 DB $00 DB $01 DB $20 DB $00 DB $03 DB $80 DB $01 DB $24 DB $00 L1BF5 DB $02 DB $0D DB $03 DB $0A DB $0B DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L1C26 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L1C76 DB $08 DB $20 DB $08 DB $00 L1C7A DB $00 DB $00 L1C7C DB $00 DB $00 L1C7E DB $00 L1C7F DB $00 DB $01 DB $02 DB $04 DB $05 DB $06 DB $10 DB $11 DB $13 DB $12 DB $14 DB $16 DB $17 DB $18 DB $19 *--------------------------------------- L1C8E DA L3CBE-1 DA L3CC8-1 DA L6311-1 DA L64A8-1 DA L8057-1 DA L3AF0-1 DA L3AF6-1 DA L8B5A-1 DA L8B65-1 DA L7AE7-1 DA L9045-1 DA L903F-1 DA L6D7E-1 DA L3FA4-1 DA L3F75-1 DA L5D47-1 DA L5D69-1 DA L72CA-1 DA LB755-1 DA LB222-1 DA L790C-1 DA L670D-1 DA LE558-1 DA L8C81-1 DA L6E97-1 DA L5E5F-1 DA L5E13-1 DA LE1DA-1 DA L5812-1 L1CC8 DA L5889-1 DA L5801-1 L1CCC DA L23FE-1 DA L25BD-1 DA L3C08-1 DA L3BEF-1 L1CD4 DB $02 DB $00 DB $04 DB $05 DB $07 DB $01 DB $03 L1CDB DB $C0 DB $C1 DB $C2 DB $C3 DB $84 DB $85 DB $06 DB $87 L1CE3 DB $40 DB $41 DB $42 DB $43 DB $04 DB $05 DB $06 DB $87 L1CEB DB $41 DB $58 DB $22 DB $2B DB $2D DB $26 DB $24 DB $2E DB $45 DB $43 DB $52 DB $2F DB $23 DB $5A DB $2A L1CFA DB $FF DB $80 DB $80 DB $21 DB $20 DB $44 DB $10 DB $04 DB $08 DB $FF DB $FF DB $80 DB $42 DB $41 DB $02 DB $30 DB $20 DB $20 DB $20 DB $00 DB $00 DB $00 DB $80 L1D11 DB $00 DB $08 DB $10 DB $18 DB $20 DB $28 DB $30 DB $38 DB $40 DB $48 DB $50 DB $58 DB $60 DB $68 DB $70 DB $78 DB $80 DB $88 DB $90 DB $98 DB $A0 DB $A8 DB $A8 DB $B0 DB $B8 DB $C0 DB $C8 DB $D0 DB $E0 DB $E8 DB $F0 DB $F8 L1D31 DB $00 L1D32 DB $02 DB $02 DB $04 DB $08 DB $04 DB $08 DB $01 DB $00 DB $01 DB $02 DB $04 DB $08 DB $04 DB $08 DB $01 L1D41 DA LC3D3-1 DA LC3F5-1 DA LC3E9-1 DA LC4AB-1 DA LC8B7-1 DA LC3E9-1 L1D4D ASC 'UNKBADPCDPTXTXTPDABINFNTFOTBA3DA3WPFSOS$' ASC '0D$0EDIRRPDRPIAFDAFMAFRSCLADBAWPASPGSBTD' ASC 'FBDFSRCOBJLIBS16RTLEXEPPIPTINDACDATOLDVR' ASC '$BC$BD$BEDOC$C0PIC$E0WAVDTSR16PASCMDDSKO' ASC '.SINTIVRBASVARRELSYS' L1E01 HEX 000102030405060708090A0B0C0D0E0F HEX 101112131415191A1BABACADB0B1B2B3 HEX B4B5B6B7B8B9BABBBCBDBEBFC0C1E0E1 HEX E2EEEFF0F1F9FAFBFCFDFEFF L1E3D ASC 'Jan-Feb-Mar-Apr-May-Jun-Jul-Aug-Sep-Oct-Nov-Dec-' DB $00 DB $00 L1E6F ASC 'Sun,Mon,Tue,Wed,Thu,Fri,Sat,' DB $00 DB $00 L1E8D ASC '[No Date]' L1E96 HEX 804020000201 L1E9C ASC 'DNB WR' L1EA2 HEX AB205B HEX AC205D HEX AD5A5E HEX 042056 HEX FF2041 HEX 0C2041 HEX F92040 HEX 0F5859 HEX B32055 HEX 062047 DB $00 L1EC1 HEX 0404030502010007 L1EC9 HEX 0102040804080A03 L1ED1 HEX 4040404000000080 L1ED9 HEX 0080028240C142C2 L1EE1 HEX 00FF00FFFF00FF00 L1EE9 DB $00 CLC XCE JMPL L415B DB $00 L1EF1 PHP SEP #$30 LDX #$20 BRL L21F1 PHP SEP #$30 LDX #$21 BRL L21F1 PHP SEP #$30 LDX #$22 BRL L21F1 PHP SEP #$30 LDX #$23 BRL L21F1 PHP SEP #$30 LDX #$24 BRL L21F1 PHP SEP #$30 LDX #$25 BRL L21F1 PHP SEP #$30 LDX #$26 BRL L21F1 PHP SEP #$30 LDX #$27 BRL L21F1 PHP SEP #$30 LDX #$28 BRL L21F1 PHP SEP #$30 LDX #$29 BRL L21F1 PHP SEP #$30 LDX #$2A BRL L21F1 PHP SEP #$30 LDX #$2B BRL L21F1 PHP SEP #$30 LDX #$2C BRL L21F1 PHP SEP #$30 LDX #$2D BRL L21F1 PHP SEP #$30 LDX #$2E BRL L21F1 PHP SEP #$30 LDX #$2F BRL L21F1 PHP SEP #$30 LDX #$30 BRL L21F1 PHP SEP #$30 LDX #$31 BRL L21F1 PHP SEP #$30 LDX #$32 BRL L21F1 PHP SEP #$30 LDX #$33 BRL L21F1 PHP SEP #$30 LDX #$34 BRL L21F1 PHP SEP #$30 LDX #$35 BRL L21F1 PHP SEP #$30 LDX #$36 BRL L21F1 PHP SEP #$30 LDX #$37 BRL L21F1 PHP SEP #$30 LDX #$38 BRL L21F1 PHP SEP #$30 LDX #$39 BRL L21F1 PHP SEP #$30 LDX #$3A BRL L21F1 PHP SEP #$30 LDX #$3B BRL L21F1 PHP SEP #$30 LDX #$3C BRL L21F1 PHP SEP #$30 LDX #$3D BRL L21F1 PHP SEP #$30 LDX #$3E BRL L21F1 PHP SEP #$30 LDX #$3F BRL L21F1 PHP SEP #$30 LDX #$40 BRL L21F1 PHP SEP #$30 LDX #$41 BRL L21F1 PHP SEP #$30 LDX #$42 BRL L21F1 PHP SEP #$30 LDX #$43 BRL L21F1 PHP SEP #$30 LDX #$44 BRL L21F1 PHP SEP #$30 LDX #$45 BRL L21F1 PHP SEP #$30 LDX #$46 BRL L21F1 PHP SEP #$30 LDX #$47 BRL L21F1 PHP SEP #$30 LDX #$48 BRL L21F1 PHP SEP #$30 LDX #$49 BRL L21F1 PHP SEP #$30 LDX #$4A BRL L21F1 PHP SEP #$30 LDX #$4B BRL L21F1 PHP SEP #$30 LDX #$4C BRL L21F1 PHP SEP #$30 LDX #$4D BRL L21F1 PHP SEP #$30 LDX #$4E BRL L21F1 PHP SEP #$30 LDX #$4F BRL L21F1 PHP SEP #$30 LDX #$50 BRL L21F1 PHP SEP #$30 LDX #$51 BRL L21F1 PHP SEP #$30 LDX #$52 BRL L21F1 PHP SEP #$30 LDX #$53 BRL L21F1 PHP SEP #$30 LDX #$54 BRL L21F1 PHP SEP #$30 LDX #$55 BRL L21F1 PHP SEP #$30 LDX #$56 BRL L21F1 PHP SEP #$30 LDX #$57 BRL L21F1 PHP SEP #$30 LDX #$58 BRL L21F1 PHP SEP #$30 LDX #$59 BRL L21F1 PHP SEP #$30 LDX #$5A BRL L21F1 PHP SEP #$30 LDX #$5B BRL L21F1 PHP SEP #$30 LDX #$5C BRL L21F1 PHP SEP #$30 LDX #$5D BRL L21F1 PHP SEP #$30 LDX #$5E BRL L21F1 PHP SEP #$30 LDX #$5F BRL L21F1 PHP SEP #$30 LDX #$60 BRL L21F1 PHP SEP #$30 LDX #$61 BRL L21F1 PHP SEP #$30 LDX #$62 BRL L21F1 PHP SEP #$30 LDX #$63 BRL L21F1 PHP SEP #$30 LDX #$64 BRL L21F1 PHP SEP #$30 LDX #$65 BRL L21F1 PHP SEP #$30 LDX #$66 BRL L21F1 PHP SEP #$30 LDX #$67 BRL L21F1 PHP SEP #$30 LDX #$68 BRL L21F1 PHP SEP #$30 LDX #$69 BRL L21F1 PHP SEP #$30 LDX #$6A BRL L21F1 PHP SEP #$30 LDX #$6B BRL L21F1 PHP SEP #$30 LDX #$6C BRL L21F1 PHP SEP #$30 LDX #$6D BRL L21F1 PHP SEP #$30 LDX #$6E BRL L21F1 PHP SEP #$30 LDX #$6F BRL L21F1 PHP SEP #$30 LDX #$70 BRL L21F1 PHP SEP #$30 LDX #$71 BRL L21F1 PHP SEP #$30 LDX #$72 BRL L21F1 PHP SEP #$30 LDX #$73 BRL L21F1 PHP SEP #$30 LDX #$74 BRL L21F1 PHP SEP #$30 LDX #$75 BRL L21F1 PHP SEP #$30 LDX #$76 BRL L21F1 PHP SEP #$30 LDX #$77 BRL L21F1 PHP SEP #$30 LDX #$78 BRL L21F1 PHP SEP #$30 LDX #$79 BRL L21F1 PHP SEP #$30 LDX #$7A BRL L21F1 PHP SEP #$30 LDX #$7B BRL L21F1 PHP SEP #$30 LDX #$7C BRL L21F1 PHP SEP #$30 LDX #$7D BRL L21F1 PHP SEP #$30 LDX #$7E BRL L21F1 PHP SEP #$30 LDX #$7F BRL L21F1 L21F1 PHB PHD LDA #^L06EB PHA PLB LDA L06EC XBA LDA L06EB TCD TXA JSL L9205 PLD PLB PLP RTL SEP #$30 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 *--------------------------------------- * GS BASIC TOKENS: VERBS *--------------------------------------- * The first six are direct commands and cannot be in source code * The others are verbs * DF is reserved for nouns * Where are adverbs and operators? L2210 DA L4274-1 ; 80 AUTO* DA L490B-1 ; 81 DEL* DA L4329-1 ; 82 EDIT* DA L41CA-1 ; 83 HLIST* DA L41D0-1 ; 84 LIST* DA L4F9E-1 ; 85 RENUM* DA L352C-1 ; 86 BREAK DA L8324-1 ; 87 FN DA L852D-1 ; 88 PROC DA L8B0D-1 ; 89 GOSUB DA L8B5A-1 ; 8A GOTO DA L8A02-1 ; 8B FOR DA L8C79-1 ; 8C THEN DA L8C79-1 ; 8D ELSE DA L8D56-1 ; 8E NEXT DA L81E2-1 ; 8F OFF DA L8CDC-1 ; 90 ON DA L7DB1-1 ; 91 INPUT DA LA888-1 ; 92 OUTPUT DA L752A-1 ; 93 TEXT DA L32A3-1 ; 94 TIMER DA L80F0-1 ; 95 EXCEPTION L223C DA LC1E4-1 ; 96 CAT DA LBABF-1 ; 97 COPY DA LBC74-1 ; 98 INIT DA LCCAE-1 ; 99 INVOKE DA LCA89-1 ; 9A LIBRARY DA LBF82-1 ; 9B PREFIX DA LC0D3-1 ; 9C TYPE DA LBE50-1 ; 9D LOAD DA LBCFE-1 ; 9E SAVE DA LBF7A-1 ; 9F DELETE DA L38B1-1 ; A0 RUN DA LBF11-1 ; A1 RENAME DA LBC12-1 ; A2 CREATE DA LBF61-1 ; A3 LOCK DA LBF5D-1 ; A4 UNLOCK DA LA89C-1 ; A5 EXEC DA LBA70-1 ; A6 CHAIN DA LC1E8-1 ; A7 CATALOG DA LAFBF-1 ; A8 OPEN DA L3E73-1 ; A9 QUIT DA LC1C8-1 ; AA DIR DA L6442-1 ; AB DIM DA L7FA4-1 ; AC READ DA LB3F8-1 ; AD WRITE DA LAC81-1 ; AE CLOSE DA L918F-1 ; AF TASKPOLL DA LABFA-1 ; B0 LOCATE DA L9138-1 ; B1 EVENTDEF DA L90B7-1 ; B2 MENUDEF DA LC037-1 ; B3 VOLUMES DA LD3D2-1 ; B4 CALL% DA LD522-1 ; B5 CALL DA LD522-1 ; B6 _ DA LAB7D-1 ; B7 TEXTPORT DA LD592-1 ; B8 PERFORM DA L7446-1 ; B9 GRAF DA L7AA5-1 ; BA DBUG DA L8C3B-1 ; BB POP DA L7545-1 ; BC HOME DA L71E7-1 ; BD SUB$( DA L750F-1 ; BE TRACE DA L7523-1 ; BF NOTRACE DA L7505-1 ; C0 NORMAL DA L750A-1 ; C1 INVERSE DA L8061-1 ; C2 RESUME DA L5DD8-1 ; C3 LET DA L8E11-1 ; C4 IF DA L3D84-1 ; C5 RESTORE DA L7709-1 ; C6 SWAP DA L8BEE-1 ; C7 RETURN DA L8C7C-1 ; C8 REM DA L3DFB-1 ; C9 STOP DA L8C79-1 ; CA DATA DA L8C79-1 ; CB IMAGE DA LD0C2-1 ; CC LIBFIND DA L82FD-1 ; CD DEF DA L93BE-1 ; CE PRINT DA L5990-1 ; CF CLEAR DA L7494-1 ; D0 RANDOMIZE DA L59EC-1 ; D1 NEW DA L7AC5-1 ; D2 POKE DA L754C-1 ; D3 ASSIGN DA LB37E-1 ; D4 GET DA LB3D6-1 ; D5 PUT DA L5F0E-1 ; D6 SET DA L7ACF-1 ; D7 ERROR DA L69DC-1 ; D8 ERASE DA L8901-1 ; D9 LOCAL DA L8944-1 ; DA WHILE DA L3E35-1 ; DB CONT DA L89EC-1 ; DC DO DA L89C8-1 ; DD UNTIL DA L85EE-1 ; DE END DA L6356-1 ; DF * EVERYTHING BUT VERBS * E0-E9 - weird verbs DA L74D4-1 ; E0 DA L74F3-1 ; E1 DA L6F8C-1 ; E2 DA L6F9B-1 ; E3 DA L7102-1 ; E4 DA L7135-1 ; E5 DA L74C0-1 ; E6 DA L74C7-1 ; E7 DA L7472-1 ; E8 DA L74B9-1 ; E9 DA L3F9A-1 ; EA NOT IMPLEMENTED DA L3F9A-1 ; EB NOT IMPLEMENTED DA L3F9A-1 ; EC NOT IMPLEMENTED DA L3F9A-1 ; ED NOT IMPLEMENTED DA L3F9A-1 ; EE NOT IMPLEMENTED DA L3F9A-1 ; EF NOT IMPLEMENTED DA L3F9A-1 ; F0 NOT IMPLEMENTED DA L3F9A-1 ; F1 NOT IMPLEMENTED DA L3F9A-1 ; F2 NOT IMPLEMENTED DA L3F9A-1 ; F3 NOT IMPLEMENTED DA L3F9A-1 ; F4 NOT IMPLEMENTED DA L3F9A-1 ; F5 NOT IMPLEMENTED *--------------------------------------- * GS BASIC TOKENS: NOUNS (DF) WITH A ( *--------------------------------------- L22FC DA L7A8A ; DF 80 TAB() L22FE DA L7A9D ; DF 81 TO DA L6F56 ; DF 82 SPC() DA L6F5C ; DF 83 USING DA L70DE ; DF 84 APPEND DA L711E ; DF 85 MOD DA L7C01 ; DF 86 REMDR DA L7C06 ; DF 87 STEP DA L747B ; DF 88 AND DA L7BFC ; DF 89 OR DA LB630 ; DF 8A XOR DA LD5AD ; DF 8B DIV DA L793F ; DF 8C SRC DA L77C4 ; DF 8D NOT DA L7BEC ; DF 8E DIR DA L7C14 ; DF 8F UPDATE DA L7C0B ; DF 90 TXT DA L7C10 ; DF 91 BDF DA L7BA5 ; DF 92 FILTYP= DA L7BAB ; DF 93 AS DA L7481 ; DF 94 AUTO DA L748D ; DF 95 ' ' DA LDF01-1 ; 96 SGN( DA LDF18-1 ; 97 INT( DA LDF70-1 ; DF 98 ABS( DA LB64F-1 ; 99 TYP( DA LB684-1 ; 9A REC( DA L7B48-1 ; 9B JOYX( DA L7B04-1 ; 9C PDL( DA L7BB4-1 ; 9D BTN( DA L78FC-1 ; 9E R.STACK%( DA L78D1-1 ; 9F R.STACK@( DA L78A9-1 ; A0 R.STACK&( DA LDF61-1 ; A1 SQR( DA LE115-1 ; A2 RND( DA LE0DE-1 ; A3 LOG( DA LE0E3-1 ; A4 LOG1( DA LE0E8-1 ; A5 LOG2( DA LE0ED-1 ; A6 LOGB%( DA LE0F2-1 ; A7 EXP( DA LE0F7-1 ; A8 EXP1( DA LE0FC-1 ; A9 EXP2( DA LE101-1 ; AA COS( DA LE106-1 ; AB SIN( DA LE10B-1 ; AC TAN( DA LE110-1 ; AD ATN( DA L791E-1 ; AE BASIC@( DA L6FF9-1 ; AF DATE( DA LB6B1-1 ; B0 EOFMARK( DA LB640-1 ; B1 FILTYP( DA LDF66-1 ; B2 FIX( DA L77E3-1 ; B3 FREMEN( DA LDF83-1 ; B4 NEGATE( DA L7AAE-1 ; B5 PEEK( DA LDF57-1 ; B6 ROUND( DA L92D4-1 ; B7 TASKREC%( DA L92EA-1 ; B8 TASKREC@( DA L7031-1 ; B9 TIME( DA L7D9B-1 ; BA UIR( DA L6F50-1 ; BB STR$( DA L76D2-1 ; BC HEX$( DA L70B6-1 ; BD PFX$( DA L7079-1 ; BE SPACE$( DA L7047-1 ; BF ERRTXT$( DA L72E4-1 ; C0 CHR$( DA LDC74-1 ; C1 RELATION( DA LE193-1 ; C2 ANU( DA LE197-1 ; C3 COMPI( DA LDEF6-1 ; C4 SCALB( DA L6356-1 ; C5 SCALE( DA L737D-1 ; C6 LEN( DA L73E4-1 ; C7 VAL( DA L73AD-1 ; C8 ASC( DA L71C5-1 ; C9 UCASE$( DA L765A-1 ; CA TEN( DA LE1A5-1 ; CB CONV#( DA LE1C0-1 ; CC CONV@( DA LE1AE-1 ; CD CONV( DA LE1B7-1 ; CE CONV&( DA LE1DA-1 ; CF CONV$( DA LE1C9-1 ; D0 CONV%( DA L72F6-1 ; D1 LEFT$( DA L732B-1 ; D2 RIGHT$( DA L7096-1 ; D3 REP$( DA L7336-1 ; D4 MID$( DA L713B-1 ; D5 INSTR( DA L7A39-1 ; D6 VARPTR( DA L7A5F-1 ; D7 VARPTR$( DA L79FF-1 ; D8 VAR$( DA L7954-1 ; D9 VAR( DA L6979-1 ; DA UBOUND( DA L75DB-1 ; DB FILE( DA L762A-1 ; DC EXEVENT@( L23B6 DB $04 DB $04 DB $04 DB $04 DB $04 DB $04 DB $04 DB $09 DB $03 DB $02 DB $02 DB $06 DB $06 DB $07 DB $08 DB $08 DB $05 DB $05 DB $01 L23C9 DA LDC91 DA LDC91 DA LDC91 DA LDC91 DA LDC91 DA LDC91 DA LDC91 DA LDB73 DA LDD5C DA LDD6C DA LDD7A DA LD9E0 DA LDB69 DA LD92C DA LDB6E DA LDA7A DA LD8A6 DA LD821 DB $00 L23EE DB $00 DB $3E DB $3D DB $3C DB $5E DB $88 DB $89 DB $8A DB $85 DB $86 DB $8B DB $2F DB $2A DB $2D DB $2B DB $00 L23FE DCI 'AUTO' ; 80 ADDRESS FOUND DCI 'DEL' ; 81 DCI 'EDIT' ; 82 DCI 'HLIST' ; 83 DCI 'LIST' ; 84 DCI 'RENUM' ; 85 L2417 DCI 'BREAK' ; 86 - ADDRESS FOUND DCI 'FN' ; 87 DCI 'PROC' ; 88 DCI 'GOSUB' ; 89 DCI 'GOTO' ; 8A DCI 'FOR' ; 8B DCI 'THEN' ; 8C DCI 'ELSE' ; 8D DCI 'NEXT' ; 8E DCI 'OFF' ; 8F DCI 'ON' ; 90 DCI 'INPUT' ; 91 DCI 'OUTPUT' ; 92 DCI 'TEXT' ; 93 DCI 'TIMER' ; 94 DCI 'EXCEPTION' ; 95 DCI 'CAT' ; 96 DCI 'COPY' ; 97 DCI 'INIT' ; 98 DCI 'INVOKE' ; 99 DCI 'LIBRARY' ; 9A DCI 'PREFIX' ; 9B DCI 'TYPE' ; 9C DCI 'LOAD' ; 9D DCI 'SAVE' ; 9E DCI 'DELETE' ; 9F DCI 'RUN' ; A0 DCI 'RENAME' ; A1 DCI 'CREATE' ; A2 DCI 'LOCK' ; A3 DCI 'UNLOCK' ; A4 DCI 'EXEC' ; A5 DCI 'CHAIN' ; A6 DCI 'CATALOG' ; A7 DCI 'OPEN' ; A8 DCI 'QUIT' ; A9 L24BD DCI 'DIR' ; AA - ADDRESS FOUND DCI 'DIM' ; AB DCI 'READ' ; AC DCI 'WRITE' ; AD DCI 'CLOSE' ; AE DCI 'TASKPOLL' ; AF DCI 'LOCATE' ; B0 DCI 'EVENTDEF' ; B1 DCI 'MENUDEF' ; B2 DCI 'VOLUMES' ; B3 DCI 'CALL%' ; B4 DCI 'CALL' ; B5 DCI '_' ; B6 DCI 'TEXTPORT' ; B7 DCI 'PERFORM' ; B8 DCI 'GRAF' ; B9 DCI 'DBUG' ; BA DCI 'POP' ; BB DCI 'HOME' ; BC DCI 'SUB$(' ; BD DCI 'TRACE' ; BE DCI 'NOTRACE' ; BF DCI 'NORMAL' ; C0 DCI 'INVERSE' ; C1 DCI 'RESUME' ; C2 DCI 'LET' ; C3 DCI 'IF' ; C4 DCI 'RESTORE' ; C5 DCI 'SWAP' ; C6 DCI 'RETURN' ; C7 DCI 'REM' ; C8 DCI 'STOP' ; C9 DCI 'DATA' ; CA DCI 'IMAGE' ; CB DCI 'LIBFIND' ; CC DCI 'DEF' ; CD DCI 'PRINT' ; CE DCI 'CLEAR' ; CF DCI 'RANDOMIZE' ; D0 DCI 'NEW' ; D1 DCI 'POKE' ; D2 DCI 'ASSIGN' ; D3 DCI 'GET' ; D4 DCI 'PUT' ; D5 DCI 'SET' ; D6 DCI 'ERROR' ; D7 DCI 'ERASE' ; D8 DCI 'LOCAL' ; D9 DCI 'WHILE' ; DA DCI 'CONT' ; DB DCI 'DO' ; DC DCI 'UNTIL' ; DD DCI 'END' ; DE DCI ' ' ; EVERYTHING BUT VERBS L25BD DCI 'HPOS' ; DF E0 DCI 'VPOS' ; DF E1 DCI 'TIME$' ; DF E2 DCI 'DATE$' ; DF E3 DCI 'PREFIX$' ; DF E4 DCI 'PROGNAM$' ; DF E5 DCI 'OUTREC' ; DF E6 DCI 'INDENT' ; DF E7 DCI 'SHOWDIGITS' ; DF E8 DCI 'LISTTAB' ; DF E9 DCI 'AUXID@' ; DF EA DCI 'EXFN' ; DF EB DCI 'SECONDS@' ; DF EC DCI 'FRE' ; DF ED DCI 'ERRLIN' ; DF EE DCI 'ERR' ; DF EF DCI 'KBD' ; DF F0 DCI 'EOF' ; DF F1 DCI 'JOYY' ; DF F2 DCI 'PDL9' ; DF F3 DCI 'PI' ; DF F4 DCI 'ERRTOOL' ; DF F5 DCI 'TAB(' ; DF 80 DCI 'TO' ; DF 81 DCI 'SPC(' ; DF 82 DCI 'USING' ; DF 83 DCI 'APPEND' ; DF 84 DCI 'MOD' ; DF 85 DCI 'REMDR' ; DF 86 DCI 'STEP' ; DF 87 DCI 'AND' ; DF 88 DCI 'OR' ; DF 89 DCI 'XOR' ; DF 8A DCI 'DIV' ; DF 8B DCI 'SRC' ; DF 8C DCI 'NOT' ; DF 8D DCI 'DIR' ; DF 8E DCI 'UPDATE' ; DF 8F DCI 'TXT' ; DF 90 DCI 'BDF' ; DF 91 DCI 'FILTYP=' ; DF 92 DCI 'AS' ; DF 93 DCI 'AUTO' ; DF 94 DCI ' ' ; DF 95 DCI 'SGN(' ; DF 96 - ADDRESS FOUND DCI 'INT(' ; DF 97 DCI 'ABS(' ; DF 98 DCI 'TYP(' ; DF 99 DCI 'REC(' ; DF 9A DCI 'JOYX(' ; DF 9B DCI 'PDL(' ; DF 9C DCI 'BTN(' ; DF 9D DCI 'R.STACK%(' ; DF 9E DCI 'R.STACK@(' ; DF 9F DCI 'R.STACK&(' ; DF A0 DCI 'SQR(' ; DF A1 DCI 'RND(' ; DF A2 DCI 'LOG(' ; DF A3 DCI 'LOG1(' ; DF A4 DCI 'LOG2(' ; DF A5 DCI 'LOGB%(' ; DF A6 DCI 'EXP(' ; DF A7 DCI 'EXP1(' ; DF A8 DCI 'EXP2(' ; DF A9 DCI 'COS(' ; DF AA DCI 'SIN(' ; DF AB DCI 'TAN(' ; DF AC DCI 'ATN(' ; DF AD DCI 'BASIC@(' ; DF AE DCI 'DATE(' ; DF AF DCI 'EOFMARK(' ; DF B0 DCI 'FILTYP(' ; DF B1 DCI 'FIX(' ; DF B2 DCI 'FREMEM(' ; DF B3 DCI 'NEGATE(' ; DF B4 DCI 'PEEK(' ; DF B5 DCI 'ROUND(' ; DF B6 DCI 'TASKREC%(' ; DF B7 DCI 'TASKREC@(' ; DF B8 DCI 'TIME(' ; DF B9 DCI 'UIR(' ; DF BA DCI 'STR$(' ; DF BB DCI 'HEX$(' ; DF BC DCI 'PFX$(' ; DF BD DCI 'SPACE$(' ; DF BE DCI 'ERRTXT$(' ; DF BF DCI 'CHR$(' ; DF C0 DCI 'RELATION(' ; DF C1 DCI 'ANU(' ; DF C2 DCI 'COMPI(' ; DF C3 DCI 'SCALB(' ; DF C4 DCI 'SCALE(' ; DF C5 DCI 'LEN(' ; DF C6 DCI 'VAL(' ; DF C7 DCI 'ASC(' ; DF C8 DCI 'UCASE$(' ; DF C9 DCI 'TEN(' ; DF CA DCI 'CONV#(' ; DF CB DCI 'CONV@(' ; DF CC DCI 'CONV(' ; DF CD DCI 'CONV&(' ; DF CE DCI 'CONV$(' ; DF CF DCI 'CONV%(' ; DF D0 DCI 'LEFT$(' ; DF D1 DCI 'RIGHT$(' ; DF D2 DCI 'REP$(' ; DF D3 DCI 'MID$(' ; DF D4 DCI 'INSTR(' ; DF D5 DCI 'VARPTR(' ; DF D6 DCI 'VARPTR$(' ; DF D7 DCI 'VAR$(' ; DF D8 DCI 'VAR(' ; DF D9 DCI 'UBOUND(' ; DF DA DCI 'FILE(' ; DF DB DCI 'EXEVENT@(' ; DF DC ASC 00 L280F ASC 'APPEND ' L2816 DCI 'NEXT w/o FOR' DCI 'SYNTAX' DCI 'RETURN w/o GOSUB' DCI 'OUT of DATA' DCI 'ILLEGAL QUANTITY' DCI 'INVALID DATA' DCI 'ILLEGAL LINE NUMBER/LABEL' DCI 'DUPLICATE LABEL' DCI 'OVERFLOW' DCI 'OUT of MEMORY' ASC 'UNDEF'27 DCI 'D STATEMENT' DCI 'BAD SUBSCRIPT' DCI 'RANGE' DCI 'STACK OVERFLOW' DCI 'DUPLICATE DEFINITION' DCI 'DIVISION by ZERO' DCI 'ILLEGAL DIRECT' DCI 'TYPE MISMATCH' DCI 'STRING TOO LONG' DCI 'FORMULA TOO COMPLEX' ASC 'CAN'27 DCI 'T CONTINUE' ASC 'UNDEF'27 DCI 'D PROC/FUNCTION' DCI 'VARIABLE' DCI 'TOOLSET CALL' DCI 'ProDOS CALL' DCI 'FILE OPEN' DCI 'VOLUME TYPE' DCI 'DRIVE EMPTY' DCI 'FILE TYPE' DCI 'I/O' DCI 'FILE TOO LARGE' DCI 'WRITE PROTECT' DCI 'VOLUME SWITCHED' DCI 'BAD PATH' DCI 'FILE NOT FOUND' DCI 'PATH NOT FOUND' DCI 'VOLUME NOT FOUND' DCI 'DUPLICATE FILE' DCI 'DISK FULL' DCI 'FILE LOCKED' DCI 'FILE NOT OPEN' DCI 'DEVICE NOT CONNECTED' DCI 'INT/FCB/VCB TBL FULL' DCI 'DIRECTORY FULL' DCI 'DUPLICATE VOLUME' DCI ' = ADRS: INTERNAL' DCI 'FOR w/o NEXT' DCI 'POSITION RANGE' DCI 'FILE CREATE' DCI 'DIFFERENT VOLUMES' DCI 'DAMAGED DIRECTORY' DCI 'LINE TOO LONG' DCI 'RESERVED WORD' DCI 'ARGUMENT COUNT' DCI 'ARGUMENT TYPE MISMATCH' DCI 'UNDEFINED ARRAY' DCI 'WHILE w/o UNTIL' DCI 'UNTIL w/o WHILE' DCI 'MULTI STATEMENT' DCI 'MISSING OPERAND' DCI 'NESTED DEF' DCI 'RECURSION' DCI 'MISSING END PROC/FN' DCI 'END PROC/FN w/o DEF' DCI 'MISSING RETURN' ASC 'DAMAGE REPORT SCOTTY?'0D'CAP'27 DCI 'N, THE LITERAL POOL IS COMPLETELY FRIED!!' DCI 'NOT LOCAL' DCI 'MULTI-LINE FN REF' DCI 'PROC NAME' DCI 'INPUT USING PARM' DCI 'UNCLAIMED EVENT' DCI 'SANE INVALID' DCI 'INEXACT' DCI 'UNDERFLOW' DCI 'NOT A NUMBER' DCI 'NO SEGMENT' DCI 'NO LIBRARY/INVOKE' DCI 'STRING SPACE' DCI 'MENU or EVENT' DCI 'TASKPOLL INIT &/ WINDSTARTUP' DCI 'DEVICE NOT FOUND' DCI 'INVALID DEVICE' DCI 'ProDOS VERSION' DCI 'RETURN 0' DCI 'DIR PATTERN' DCI 'CAN'27'T RENUMBER' DCI 'STRING TEMP OVERFLOW' DCI 'CLOSED FCB' DCI 'NOT IMPLEMENTED' L2D0D DCI 'PROGRAM' L2D14 ASC ' ERROR'0700 ASC 0D ASC 'Please Press SPACE BAR'00 L2D34 ASC ' IN '00 L2D39 ASC 'PROGRAM INTERRUPTED'0700 L2D4E ASC 'EXTRA INPUT IGNORED!'00 L2D63 ASC '?REENTER'0D00 * BD 201901 - Typo: destroy, was destory L2D6D ASC 'Press Y if you want to destroy '00 L2D8D ASC '.!'00 L2D90 STR 'GS BASIC CAN'27'T RESET ' L2DA6 STR 'GS BASIC ABORT: LOADTOOLS ERROR ' L2DC7 STR 'GS BASIC ABORT: MEM ALLOC ERROR ' L2DE8 STR 'GS BASIC CAN'27'T QUIT ' * BD 201901 - Added a space after a comma L2DFD STR 'John O. Arkley' ASC 00 L2E0D STR 'David Eyes, Taylor Pohlman, Dan Wendin, Clayton Lewis, Bill Goldberg, Jim Merritt, Tom Chavez, Doug Thom, Brutal Deluxe Software' ASC 00 L2E70 STR 'Don Dennman, Charles S. Mauro, JOA, Randy Wigginton' ASC 00 L2EA2 DB $10 DB $51 DB $11 DB $52 DB $25 DB $2B DB $27 DB $1E DB $28 DB $2A DB $2B DB $20 DB $2E DB $21 DB $2F DB $1C DB $40 DB $22 DB $41 DB $1D DB $42 DB $2B DB $44 DB $24 DB $45 DB $25 DB $46 DB $23 DB $47 DB $26 DB $48 DB $27 DB $49 DB $2C DB $4D DB $30 DB $4E DB $28 DB $4F DB $31 DB $50 DB $1A DB $51 DB $33 DB $52 DB $1B DB $54 DB $0A DB $55 DB $2B DB $57 DB $2D DB $58 DB $12 DB $5B DB $32 DB $FF DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 *----------------------- * GRAF INIT *----------------------- L2F00 JSR L742D XBA TYA XBA REP #$30 TAX BEQ L2F1C CMP #$0140 ; 320 BEQ L2F1C CMP #$0280 ; 640 BEQ L2F1C SEP #$30 BRL L6708 REP #$30 L2F1C PHA LDA L1030 STA $9B LDA L1032 STA $9D LDA [$9B] STA $9B PEA $0000 PEA $0000 _GetTick BCS L2F53 PLA STA $9D PLX L2F3E PEA $0000 PEA $0000 _GetTick BCS L2F53 PLA PLX CMP $9D BEQ L2F3E L2F53 STZ $9D LDA L102B BEQ L2F63 _QDShutDown BCS L2F88 L2F63 PLX STX L102B BNE L2F6C BRL L3026 L2F6C LDA #$0000 CPX #$0140 BEQ L2F77 LDA #$0080 L2F77 PEI $9B PHA PEA $00A0 PEI $07 _QDStartUp BCC L2F8B L2F88 BRL L3029 L2F8B _GrafOff BCS L2FD9 PEA $0000 LDX L102B LDA #$013F CPX #$0140 BEQ L2FA5 LDA #$027F L2FA5 PHA PEA $0000 PEA $00C7 _ClampMouse BCS L302C _HomeMouse PEA $0000 _WindStatus BCC L2FCD CMP #$0003 BCS L2FD9 L2FCD PLA STA $9D BEQ L2FDB _WindNewRes L2FD9 BCS L302C L2FDB PEA $0000 _MenuStatus BCC L2FEC CMP #$0003 BCS L302C L2FEC PLA BEQ L2FF8 _MenuNewRes BCS L302C L2FF8 PEA $0000 _CtlStatus BCC L3009 CMP #$0003 BCS L302C L3009 PLA BEQ L3015 _CtlNewRes BCS L302C L3015 LDA $9D BEQ L3026 PEA $0000 PEA $0000 _RefreshDesktop L3026 SEP #$30 RTS L3029 STZ L102B L302C SEP #$30 BRL L3F6A L3031 REP #$30 _TLStartUp BCS L3091 PEA $0000 _MMStartUp BCS L3091 PLA STA $07 _MTStartUp BCS L3091 PEA ^L3187 PEA L3187 _LoadTools BCS L3091 _TextStartUp BCS L3091 _IMStartUp BCS L3091 LDA $04 AND #$FF00 ADC #$0100 PHA _SANEStartUp BCS L3091 JSL GSOS DW $002A ; GetVersion ADRL L1789 L3091 BCS L30BF LDA L1789 AND #$7F00 CMP #$0200 BCC L30A1 DEC L178B L30A1 PEA $0000 PEA $0000 PEA $0000 PEA $0A00 PEI $07 PEA $4015 PEA $0000 PEA $0000 _NewHandle L30BF BCS L310A PLA STA L1030 STA $9B PLA STA L1032 STA $9D LDA [$9B] STA $9B STZ $9D STZ $F1 STZ $F3 LDA $9B CLC ADC #$0300 PHA PEA $0014 PEA $0000 PEA $0280 PEA $0000 PEA $00C8 PEI $07 _EMStartUp BCS L310A PEA $0000 _LoaderStatus BCS L310A PLA BNE L310C LDA #$1102 L310A BRA L3175 L310C PEA $0000 PEA $0000 PEA $0000 PEA $000A _GetTSPtr BCS L3175 PLA STA $9B PLA STA $9D LDY #$002E LDX #$000B L312D LDA [$9B],Y DEX STA L0B68,X DEY DEY DEX BPL L312D PEA $0000 PEA $0000 PEA $0000 PEA $000A _GetWAP BCS L3175 PLA STA L0B74 PLA STA L0B76 PEA ^L0B8A PEA L0B8A PEA $0005 LDX #$0000 JSL L00F7 PEA $001F PEA $0001 LDX #$0000 JSL L00F7 SEP #$30 RTS L3175 REP #$30 PHA PEA ^L2DA6 PEA L2DA6 _SysFailMgr BRK $B0 L3187 DW $0002 ; Number of tools DW $0008 ; Tool 8 DW $0100 ; version 1 DW $000A ; Tool 10 DW $0100 ; version 1 L3191 REP #$30 PHX LDY L1040,X LDA L1042,X PEA $0000 PEA $0000 PHA PHY PEI $07 LDA L1054,X PHA PEA $0000 PEA $0000 _NewHandle BCS L321A PLA PLY PLX PHX PEA $0000 PEA $0000 PHY PHA STA L1034,X STA $EB TYA STA L1036,X STA $ED _GetHandleSize BCS L321A PLA PLY PLX PHX STA L1040,X TYA STA L1042,X PEI $ED PEI $EB _HLock BCS L321A PLX LDY #$0002 LDA [$EB],Y TAY LDA [$EB] STA L1060,X TYA STA L1062,X LDA L1060,X CLC ADC L1040,X STA L106C,X LDA L1062,X ADC L1042,X STA L106E,X SEP #$30 RTS REP #$30 LDA #$BB01 L321A PHA PEA ^L2DC7 PEA L2DC7 _SysFailMgr BRK $B1 SEP #$30 L322C LDX #$08 L322E JSR L3191 DEX DEX DEX DEX CPX #$FC BNE L322E LDA L106C STA $6F LDA L1062 STA $62 LDA L1066 STA $74 REP #$30 LDA L106D DEC STA $70 LDA L1060 STA $60 LDA L1064 STA $72 LDA L1074 BNE L3262 DEC L1076 L3262 DEC STA L1074 LDA L1070 BNE L326E DEC L1072 L326E DEC STA L1070 LDA L1068 STA $4E LDX L106A STX $50 SEC ADC #$0004 BCC L3283 INX L3283 STA $4B SEP #$30 STX $4D LDA #$04 STA [$4E] LDY #$01 LDA #$10 STA [$4E],Y INY LDA L0B1E STA [$4E],Y INY LDA L0B1C STA [$4E],Y RTS L32A0 BRL L6356 *----------------------- * TIMER *----------------------- L32A3 BEQ L32A0 JSR L6306 CMP #$90 BEQ L32B3 CMP #$8F BNE L32A0 BRL L332E L32B3 LDA L170B BNE L32BE DEC L170B JSR L3358 L32BE REP #$30 PEA $0000 PEA $0000 PEA $0000 PEA $0000 _ReadTimeHex STZ $C1 STZ L1707 STZ L1709 SEP #$30 PLA STA L1707 LDA #$3C STA $C0 PLA STA $EF STZ $F0 JSR L694C REP #$30 LDA $C0 CLC ADC L1707 STA L1707 LDA #$0E10 STA $C0 SEP #$30 PLA STA $EF STZ $F0 JSR L694C REP #$30 LDA $C0 CLC ADC L1707 STA L1707 SEP #$30 LDA $C2 ADC L1709 STA L1709 PLA REP #$30 PLA PLA PEA $0006 _IntSource SEP #$30 RTS L332E LDA L170B BNE L3334 RTS L3334 REP #$30 STZ L170B PEA $0007 _IntSource PEA $0015 LDA L1711 PHA LDA L170F PHA _SetVector SEP #$30 RTS L3358 REP #$30 PEA $0000 _GetIRQEnable PLA AND #$0010 STA L170D PEA $0000 PEA $0000 PEA $0015 _GetVector PLA STA L170F PLX STX L1711 TAY BNE L3387 DEX L3387 DEC STA L1713 STX L1715 PEA $0015 PEA ^L33A1 PEA L33A1 _SetVector SEP #$30 RTS L33A1 LDAL L16FF BPL L33C8 REP #$30 LDAL L1701 DEC STAL L1701 BNE L33CA LDAL L1703 BEQ L33C1 DEC STAL L1702 BRA L33CA L33C1 LDA #$0040 STAL L16FF L33C8 REP #$30 L33CA LDAL L1707 INC STAL L1707 BNE L33DE LDAL L1709 INC STAL L1709 L33DE SEP #$30 LDAL $E1C032 AND #$BF STAL $E1C032 LDAL L170D BEQ L33FE LDAL L1715 PHA REP #$30 LDAL L1713 PHA SEP #$30 L33FE CLC RTL L3400 CMP L18AB BEQ L342E REP #$30 AND #$00FF BEQ L342F STA L18AB PEA $0000 PEA $0000 PHA _SetOutputDevice LDA L18AB ASL STA L18AD TAX LDA L18C1,X STAL $000036 SEP #$30 L342E RTS L342F JSR L3F4C L3432 REP #$30 LDX L18AD LDAL $000036 STA L18C1,X SEP #$30 RTS L3441 REP #$30 LDX L18B1 LDAL $000038 STA L18B3,X SEP #$30 RTS L3450 CMP L18AF BEQ L342E REP #$30 AND #$00FF BEQ L342F STA L18AF PEA $0000 PEA $0000 PHA _SetInputDevice LDA L18AF ASL STA L18B1 TAX LDA L18B3,X STAL $000038 SEP #$30 RTS CMP L18B3 BEQ L342E L3484 REP #$30 AND #$00FF BEQ L342F STA L18B3 PEA $0000 PEA $0000 PHA _SetErrorDevice LDA L18B3 CMP #$0003 BEQ L34AE PEA $0002 _InitTextDev L34AE SEP #$30 L34B0 RTS JSR LB1FA L34B4 SEP #$30 JSR L34C1 JSR L18D1 BCC L34B0 BRL L3F75 L34C1 LDA L1C7F,Y STA L18D5 LDY #L18F4 CMP #$10 BCC L34D9 BNE L34D3 LDY #L18EA BRA L34D9 L34D3 CMP #$20 BCS L34D9 LDY #L18DC L34D9 LDA #>L18DC STY L18D7 STA L18D7+1 LDA #^L18DC STA L18D7+2 RTS L34E7 STZ $0B LDY #$00 L34EB STY $0D LDA L17D5,Y BEQ L3511 BMI L351D CMP L0007 BNE L3511 LDX #$00 L34FB INX INY LDA L0007,X JSR L664D CMP L17D5,Y BNE L3511 CPX L0007 BCC L34FB LDX $0B SEC RTS L3511 INC $0B INC $0B LDA $0D CLC ADC #$10 TAY BRA L34EB L351D CLC RTS L351F LDA #$FF BRA L3525 L3523 LDA #$00 L3525 STA L1787 STA L1788 RTS *----------------------- * BREAK *----------------------- L352C BEQ L354D PHA JSR L3CBE PLA CMP #$90 BEQ L3543 CMP #$8F BNE L354D STZ $D1 L353D LDA #$40 TRB L16F1 RTS L3543 LDA #$40 STA $D1 L3547 LDA $D1 TSB L16F1 RTS L354D BRL L6356 L3550 LDA L0008 LDY L022A BNE L355A LDA #$30 L355A JSR L4F89 BCS L3565 CMP #$2F BEQ L358D LDA #$30 L3565 AND #$0F CMP #$07 BEQ L358D BCS L35A4 STA L17A5 JSL GSOS DW $000A ; GetPrefix ADRL L17A5 BCS L35A4 LDA #$07 STA L17A5 JSL GSOS DW $0009 ; SetPrefix ADRL L17A5 BCS L35A4 L358D JSR L35A7 BCS L35A3 LDA #$07 STA L17A5 JSL GSOS DW $0009 ; SetPrefix ADRL L17A5 BCS L35A4 L35A3 RTS L35A4 BRL L3F75 L35A7 LDX L022A BNE L35AE L35AC SEC RTS L35AE TXY STX L01AA LDA L0008 CMP #$2F BEQ L35D7 JSR L4F89 BCC L35C4 CPX #$02 BEQ L35AC BRA L35C6 L35C4 INY INY L35C6 STY L01AA JSR L35D7 REP #$30 LDA #$2F37 STA L01AB SEP #$30 RTS L35D7 LDA L0007,X STA L01AA,Y DEY DEX BNE L35D7 CLC RTS L35E3 LDY L0007 STY L022A BEQ L3615 LDX #$01 L35ED LDA L0007,Y CMP #$2F BEQ L35F8 INX DEY BNE L35ED L35F8 INX STY L022A JSR L3616 L35FF INY LDA L0007,Y JSR L664D INX STA L0087,X CPY L0007 BCC L35FF STX L0087 STZ L0088,X L3615 RTS L3616 LDA #$37 STA L0088 LDA #$2F STA L0089 LDX #$02 RTS L3623 LDA L0007 BEQ L3647 LDA L0008 CMP #$2E BNE L3647 JSL GSOS DW $0008 ; Volume ADRL L1916 BCS L3648 L363B LDY L039B L363E LDA L039B,Y STA L0007,Y DEY BPL L363E L3647 RTS L3648 BRL L3F75 L364B REP #$30 PEA $0000 PEA $0000 PEA $0000 PEA $0100 PEI $07 PEA $0201 PEA $0000 PEA $0000 _NewHandle BCS L36C9 PLA STA $47 PLX STX $49 JSR L36CC REP #$30 LDA #$0002 PHA LDA #$0001 PHA PEI $49 PEI $47 _MessageCenter BCS L36BC SEP #$30 LDY #$08 LDA [$9B],Y BEQ L36A5 CLC ADC #$08 BCS L36A5 TAY L369B LDA [$9B],Y STA L03EF,Y DEY CPY #$08 BCS L369B L36A5 REP #$30 LDA #$0003 PHA LDA #$0001 PHA PEI $49 PEI $47 _MessageCenter BCS L36BC L36BC REP #$30 PEI $49 PEI $47 _DisposeHandle L36C9 SEP #$30 RTS L36CC REP #$30 LDY #$0002 LDA [$47],Y STA $9D LDA [$47] STA $9B SEP #$30 RTS * * ENTRY POINT * L36DC SEP #$30 LDA #^L0003 PHA PLB LDX #$00 L36E4 STZ $00,X INX BNE L36E4 REP #$30 TSC SEC SBC #$0006 STAL SOFTEV DEC STA $47 DEC STA L06E9 TDC STA L06EB STA L0BF4 SEP #$30 LDY #$07 L3706 LDA L1EE9,Y STA [$47],Y DEY BPL L3706 LDAL SOFTEV+1 EOR #$A5 STAL PWREDUP LDA L06EC STA $05 PHB PLA STA $06 PHK PLA STA $00 JSR L3031 JSR L322C STZ $2F STZ $1A STZ $19 LDA #$80 STA $C4 LDA #$40 STA $D0 LDA L0B7E STA L0B84 LDA $71 STA $6E STA $6B REP #$30 LDA $6F STA $6C STA $69 LDA $72 STA L1078 SEP #$30 LDA $74 STA L107A LDAL $E0C02E AND #$7F STA L0B2D LDAL $E0C02F STA L0B2C REP #$30 PEA ^L0B2C PEA L0B2C PEA ^L0B30 PEA L0B30 LDA #$0300 ORA #$000E PHA LDX #$0000 JSL L00F7 SEP #$30 JSR L39CF LDA #$03 JSR L3484 REP #$30 PEA $0002 _InitTextDev SEP #$30 JSR L3A87 JSR L38EE REP #$30 PEA $0001 _InitTextDev SEP #$30 LDA #L3954 LDY #>L3954 LDX #^L3954 JSR LAB58 JSR L5AEE STZ $76 JSR L5A7B JSR L3432 JSR L3441 LDA #$00 STA L17A5 JSL GSOS DW $000A ; GetPrefix ADRL L17A5 BCS L37DE LDA L01AA BNE L380D L37DE LDA #$01 STA L17A5 JSL GSOS DW $000A ; GetPrefix ADRL L17A5 BCS L37F4 LDA L01AA BNE L37FE L37F4 JSL GSOS DW $0028 ; GetBootVol ADRL L17A7 L37FE LDA #$00 STA L17A5 JSL GSOS DW $0009 ; SetPrefix ADRL L17A5 L380D LDA #$07 STA L17A5 JSL GSOS DW $0009 ; SetPrefix ADRL L17A5 STZ L03F7 JSR L364B LDY L03F7 STY $0B BNE L3838 L3829 INY LDA L00A7,Y STA L03F7,Y BNE L3829 DEY STY L03F7 BEQ L385D L3838 DEC $76 REP #$30 LDA #L03F7 STA L18F4 LDA #^L03F7 STA L18F4+2 SEP #$30 JSL GSOS DW $0006 ; GetFileInfo ADRL L18F4 BCC L3863 LDX $0B BEQ L385D BRL L3F75 L385D JSR L3543 BRL L40D8 L3863 LDA #$01 STA $30 STZ $31 LDX L03F7 STZ L03F8,X STZ L03FA,X STZ L03FB,X STA L03F9,X LDA #^L03F8 STA $50 REP #$30 LDA #L03F8 STA $4E SEP #$30 LDA L18F8+2 CMP #$B0 BNE L38AE LDX L18FC+1 BNE L38AE LDA L18FC CMP #$BA BNE L38AE JSR L3CC8 JSR LA89C LDX $1A LDY L1D11,X LDA L06F3,Y AND #$DF STA L06F3,Y BRL L3BEF L38AE JSR L3CC8 *----------------------- * RUN *----------------------- L38B1 BNE L38C3 STZ $76 JSR L5A78 JSR L8358 JSR L5AEE STZ $E7 BRL L3BEF L38C3 BCC L38DC CMP #$2C BEQ L38D9 JSR LBA9D JSR LBD9F JSR L5A78 LDA #$80 STA $C4 JMP LBA79 ; BRL LBA79 L38D9 JSR L6346 L38DC JSR L3AF0 BNE L38ED JSR L5A78 JSR L8358 JSR L8B85 BRL L3BEF L38ED RTS L38EE REP #$30 PEA $00FF PEA $0000 _SetInGlobals PEA $00FF PEA $0080 _SetOutGlobals SEP #$30 JSR L3925 STZ L18AF STZ L18B9 STZ L18C7 LDA #$03 JSR L3450 STZ L18AB LDA #$03 BRL L3400 L3925 LDA L1897 LDY #$23 LDX #$00 STA L06F1,X LDA L1898 STA L06F0,X TYA STA L06F3,X PHX LDY #$00 L393C STZ L06F4,X INX INY CPY #$04 BCC L393C PLX PHX LDY #$00 L3949 STZ L07F0,X INX INY CPY #$08 BCC L3949 PLX RTS L3954 ASC 120E180C * ASC ' Apple IIGS BASIC V1.0 B4 11-SEP-87'0D0A * ASC 'Copyright by Apple Computer, Inc. 1980-83,87'0D0A ASC ' Apple IIGS BASIC V1.0B5 28-JAN-2019'0D0A ASC 'Copyright by Apple Computer, Inc. 1980-2019'0D0A ASC ' All Rights Reserved'0D0A00 L39CF LDX #$FF STX $76 STX $18 STZ $19 JSR L40C8 LDA #$5C STA $01 LDA #^L3F19 STA $04 LDA #>L3F19 STA $03 LDA #L3F19 STA $02 REP #$30 LDA #L0AF0 STA $9F LDA #^L0AF0 STA $A1 LDA #L0B00 STA $AF LDA #^L0B00 STA $B1 LDA #$000A STA L0B10 STA L0B14 STZ L0B16 LDA #L82C1 STA L0B60 SEP #$30 LDA #^L82C1 STA L0B60+2 STZ $CF LDX #$34 STX $32 LDA #$50 STA L0B1A LDA #$02 STA L0B1C LDA #$05 STA L0B1E LDA #$80 STA $C4 STZ $C5 STZ L10CF JSR L92BF STZ L16FF LDX #$FF L3A3F STZ L06F0,X STZ L07F0,X DEX CPX #$08 BCS L3A3F LDX #$0C L3A4C STZ L18B3,X STZ L18C1,X DEX DEX BPL L3A4C LDA L1060 STA $60 LDA L1061 STA $61 LDA L1062 STA $62 LDA #$00 LDY #$1E L3A69 STA [$4B],Y DEY BNE L3A69 LDA #$01 STA [$4B] LDA $4B CLC ADC #$04 STA L107C REP #$30 LDA $4C ADC #$0000 STA L107D SEP #$30 RTS L3A87 REP #$30 PEA $0000 PEA $0000 PEA $000F _GetVector PLA STA L0B8F+1 PLA STA L0B8F+3 STZ L16F1 PEA $000F PEA ^L3AB7 PEA L3AB7 _SetVector SEP #$30 RTS L3AB7 LDAL L16F1 BMI L3ADF BIT #$40 BEQ L3AE9 LDAL $E0C000 AND #$7F CMPL L16ED BNE L3AE9 LDAL $E0C025 BIT #$C0 BNE L3AE9 AND #$11 EORL L16EE BNE L3AE9 LDA #$40 L3ADF STAL L16EF LDA #$00 STAL L16F1 L3AE9 JMPL L0B8F L3AED JSR L3CC8 L3AF0 STZ L03D3 L3AF3 STZ L03D4 L3AF6 STZ $30 STZ $31 BCS L3B3A L3AFC SBC #$2F STA $0C LDA $31 STA $40 LDA $30 ASL ROL $40 ASL ROL $40 CLC ADC $30 STA $30 LDA $40 ADC $31 STA $31 ASL $30 ROL $31 LDA $30 ADC $0C STA $30 BCC L3B25 INC $31 L3B25 LDA $31 INC BEQ L3BA0 JSR L3CBE BCC L3AFC PHP XBA LDA $30 ORA $31 BEQ L3BA0 XBA PLP RTS L3B3A BMI L3B68 LDX #$00 JSR L6638 BCC L3B5E L3B43 INX CPX #$1F BCS L3BA0 JSR L664D STA L03D3,X JSR L3CBE BEQ L3B5E BCC L3B43 CMP #$2E BEQ L3B43 JSR L6638 BCS L3B43 L3B5E INX STZ L03D3,X STX L03D3 BRL L3CC8 L3B68 LDX #$00 CMP #$E0 BCC L3B5E CMP #$F0 BCS L3B80 AND #$0F STA $31 JSR L3D09 STA $30 L3B7B JSR L6306 BRA L3B5E L3B80 CMP #$FA BEQ L3B88 BCC L3B98 BCS L3BA0 L3B88 JSR L3D09 STA $30 JSR L3D09 STA $31 CMP #$FF BCC L3B7B BRA L3BA0 L3B98 AND #$0F STA $30 STZ $31 BNE L3B7B L3BA0 LDX #$07 BRL L3FA4 L3BA5 SEP #$30 BRL L6356 L3BAA REP #$30 PEA $0000 LDA L10D1 PHA PEA ^L10D3 PEA L10D3 _TaskMaster BCC L3BC8 STZ L10CF BRL L3F6A L3BC8 PLA SEP #$30 BNE L3BCE RTL L3BCE BIT $E7 BMI L3BE0 LDX $C4 BMI L3BE0 DEX STX $18 LDX #$40 PHA JSR L3D22 PLA L3BE0 JMP L9205 ;BRL L9205 L3BE3 BRL L8296 L3BE6 BRL L82A3 L3BE9 JSR L3CBE L3BEC JSR L3C91 L3BEF REP #$10 TSX STX $D4 SEP #$30 LDX $09 STX $0A LDA #$FF STA $18 JSR L3CC8 BNE L3BA5 LDX $76 INX L3C06 BEQ L3C19 L3C08 REP #$30 LDA $4E STA $79 SEP #$30 LDA $50 STA $7B BIT L16FF BVS L3BE3 L3C19 BIT L16EF BMI L3BE6 BVS L3C83 BIT L10CF BPL L3C29 JSL L3BAA L3C29 LDA [$4E] BNE L3C4A LDY #$01 LDA [$4E],Y TAY INY REP #$30 LDA [$4E],Y BEQ L3C74 INY LDA [$4E],Y STA $75 TYA SEC ADC $4E STA $4E SEP #$30 BCC L3C4A INC $50 L3C4A REP #$10 TSX STX $D4 SEP #$30 LDX $09 STX $0A BIT $C4 BMI L3BE9 LDX $76 INX BEQ L3BE9 LDA $C4 DEC STA $18 LDA $76 XBA LDA $75 LDX #$23 JSR L3D22 LDA #$FF STA $18 BRL L3BE9 L3C74 SEP #$30 CLC LDA #$FF STA $76 JSR L3DFD DB $00 DB $B3 L3C80 BRL L5DD8 L3C83 JSR L80D4 LDA #$03 STA L16F3 STZ L16F5 JSR L3DBD L3C91 BEQ L3CD8 ASL LDX #$34 STX $32 BCC L3C80 CMP #$BD BCC L3CB5 CMP #$BE BNE L3CDE INC $4E BNE L3CAC REP #$30 INC $4F SEP #$30 L3CAC LDA [$4E] BPL L3CD9 CMP #$E0 BCC L3CD9 ASL L3CB5 TAY LDA L2210+1,Y PHA LDA L2210,Y L3CBD PHA L3CBE INC $4E BNE L3CC8 INC $4F BNE L3CC8 L3CC6 INC $50 L3CC8 LDA [$4E] CMP #$3A BCS L3CD8 CMP #$20 BEQ L3CBE SEC SBC #$30 SEC SBC #$D0 L3CD8 RTS L3CD9 SEP #$30 BRL L6356 L3CDE CMP #$FE BNE L3CD9 INC $4E REP #$30 BNE L3CEA INC $4F L3CEA LDA [$4E] BPL L3CD9 AND #$8001 TAY LDA $F2 BEQ L3CD9 INC $4E SEP #$20 BNE L3CFE INC $50 L3CFE LDX #$0000 PEI $F3 PEI $F1 JSR L3CBE RTL L3D09 INC $4E BNE L3D13 INC $4F BNE L3D13 INC $50 L3D13 LDA [$4E] RTS L3D16 JSR L3CBE RTL L3D1A JSR L3CC8 RTL L3D1E JSR L3D09 RTL L3D22 PHX REP #$30 PHA PEA ^L03B3 PEA L03B3 PEA $0006 PEA $0000 _Int2Dec SEP #$30 LDA #$20 STA L03B9 LDX #$00 LDA #$20 L3D44 INX CMP L03B3,X BEQ L3D44 DEX PLA STA L03B3,X JSR LE6F0 STA $40 STY $41 STX $42 LDA #$07 JSR LAA74 INC $C5 LDA $C5 CMP #$0A BCC L3D83 STZ $C5 LDA #$0D JSR LA9B6 LDX $18 BPL L3D72 LDX $19 L3D72 LDY L1D11,X LDA L06F0,Y BMI L3D83 BIT #$01 BEQ L3D83 LDA #$0A JSR LA9B6 L3D83 RTS *----------------------- * RESTORE *----------------------- L3D84 BEQ L3DA5 JSR L3AF0 JSR L903F BCS L3D91 L3D8E BRL L8BE9 L3D91 LDA [$97] CLC ADC #$03 TAY LDA [$97],Y CMP #$CA BNE L3D8E LDX $99 LDA $97 LDY $98 BRA L3DAB L3DA5 LDX $4D LDA $4B LDY $4C L3DAB SEC SBC #$01 BCS L3DB6 DEY CPY #$FF BNE L3DB6 DEX L3DB6 STA $7E STX $80 STY $7F RTS L3DBD LDA L16EF L3DC0 AND #$BF STA L16EF LDX #$FF LDY $76 INY BEQ L3DF6 DEY STY $C8 STX $CC LDY $75 STY $C7 BIT L16F9 BPL L3DF6 REP #$10 LDX $D4 TXS SEP #$30 LDX $0A STX $09 REP #$30 LDA $79 STA $C9 SEP #$30 LDA $7B STA $CB LDX #$A0 BRL L82C2 L3DF6 STX $18 SEC BRA L3DFD *----------------------- * STOP *----------------------- L3DFB BNE L3E72 L3DFD LDA #$FF STA $18 STZ $19 LDA $4E LDY $4F LDX $76 INX BEQ L3E1C STA $79 STY $7A LDA $50 STA $7B LDA $75 LDY $76 STA $77 STY $78 L3E1C PLA PLA BCC L3E32 JSR L80D4 JSR L933A LDA #L2D39 LDX #^L2D39 LDY #>L2D39 JSR L93FB BRL L406B L3E32 BRL L40D8 *----------------------- * CONT *----------------------- L3E35 BNE L3E72 LDX $76 INX BNE L3E72 LDA L16FF BNE L3E47 LDA L1705 STA L16FF L3E47 STZ L16EF LDA L16F7 ORA $D1 STA L16F1 LDX #$15 LDY $7B BNE L3E5B BRL L3FA4 L3E5B LDA $79 STA $4E STY $50 LDA $7A STA $4F LDA $77 LDY $78 STA $75 STY $76 PLA PLA BRL L3C08 L3E72 RTS *----------------------- * QUIT *----------------------- L3E73 BEQ L3E88 JSR LB755 REP #$30 LDA #L0007 STA L10C5 LDA #^L0007 STA L10C7 BRA L3E90 L3E88 REP #$30 STZ L10C5 STZ L10C7 L3E90 SEP #$30 JSR LACAA REP #$30 _EMShutDown LDA L102B BEQ L3EAA _QDShutDown L3EAA PEI $07 _HUnlockAll JSR L3F02 JSR L3334 STZ L0087 REP #$30 LDA #L0087 STA L18F4 LDA #^L0087 STA L18F4+2 _SANEShutDown _DeskShutDown PEI $07 _MMShutDown JSL GSOS DW $0029 ; Quit ADRL L10C5 REP #$30 LDA #$BB03 PHA PEA ^L2DE8 PEA L2DE8 _SysFailMgr L3EFE BRA L3EFE SEP #$30 L3F02 REP #$30 PEA $000F LDA L0B8F+3 PHA LDA L0B8F+1 PHA _SetVector SEP #$30 RTS L3F19 SEP #$30 STA $F5 STX $F6 PLX CPX #$46 BCS L3F35 JSR L3F28 RTL L3F28 LDA L1C8E+1,X PHA LDA L1C8E,X PHA LDX $F6 LDA $F5 RTS L3F35 JSR L3F4C L3F38 PHA LSR LSR LSR LSR JSR L76FB JSR LA9BF PLA AND #$0F JSR L76FB JMP LA9BF ;BRL LA9BF L3F4C SEP #$30 LDA #$0D JSR LA9BF LDA #$24 JSR LA9BF PLA STA $CD TAY PLA STA $CE JSR L3F38 TYA JSR L3F38 LDX #$2E BRA L3FA4 L3F6A SEP #$30 STA $CD XBA STA $CE LDX #$18 L3F73 BRA L3FA4 L3F75 SEP #$30 LDX #$00 L3F79 CMP L2EA2,X BEQ L3F8C INX INX BCS L3F79 STA $CD LDA #$0D STA $CE LDX #$19 BRA L3FA4 L3F8C INX LDA L2EA2,X TAX L3F91 BRA L3FA4 JSR L5AC4 LDX #$54 BRA L3FA4 L3F9A LDX #$35 BRA L3FA4 L3F9E LDX #$12 L3FA0 BRA L3FA4 L3FA2 LDX #$0A L3FA4 SEP #$30 STX $CC LDA #$FF STA $18 STZ L171D L3FAF LDA $33 LDY $05 LDX #$00 JSR L7389 LDA #$34 CMP $32 BCC L3FAF REP #$10 LDX $D4 TXS SEP #$30 LDX $0A STX $09 LDX $CC LDY $76 INY BEQ L3FF9 DEY STY $C8 STY $78 LDY $75 STY $C7 STY $77 BIT $CF BPL L3FF6 LDA L0B60+2 PHA REP #$30 LDA L0B60 PHA LDA $79 STA $C9 SEP #$30 LDA $7B STA $CB LDX #$A5 RTL L3FF6 BRL L4068 L3FF9 LDA L0B64+2 PHA REP #$30 LDA L0B64 PHA SEP #$30 RTL L4006 LDA #$FF STA $18 STZ $19 JSR L933A JSR L93B9 LDX $CC CPX #$5A BCC L4027 REP #$30 LDA #L2D0D STA $40 SEP #$30 LDA #^L2D0D STA $42 BRA L402A L4027 JSR L409C L402A JSR L4088 LDA #$34 STA $32 LDA #L2D14 LDY #>L2D14 LDX #^L2816 JSR L93FB LDX $CC CPX #$5A BCS L4048 CPX #$19 BEQ L4048 CPX #$18 BNE L4067 L4048 LDA #$3D JSR LA9BF LDA #$24 JSR LA9BF LDX $CC TXA CPX #$5A BCS L4064 CPX #$18 BNE L4062 LDA $CE JSR L3F38 L4062 LDA $CD L4064 JSR L3F38 L4067 RTS L4068 JSR L4006 L406B LDY $76 INY BEQ L407C LDA #L2D34 LDY #>L2D34 LDX #^L2D34 JSR L93FB JSR L47FE L407C JSR L933A LDY $1A BEQ L40D8 JSR LAD3E BRA L40D8 L4088 LDA [$40],Y INY BNE L408F INC $41 L408F PHA JSR LA9B4 PLA CMP #$80 BCC L4088 INY BEQ L408F RTS * GET ERROR MESSAGE (X IS THE ERROR INDEX) L409C LDA #^L2816 STA $42 REP #$30 LDA #L2816 STA $40 SEP #$30 LDY #$00 L40AB DEX BEQ L40BF L40AE LDA [$40],Y INY BNE L40B9 REP #$30 INC $41 SEP #$30 L40B9 CMP #$80 BCC L40AE BRA L40AB L40BF RTS L40C0 LDX #^L4407 LDY #>L4407-1 LDA #L4407-1 BRA L40CE L40C8 LDX #^L4068 LDY #>L4068-1 LDA #L4068-1 L40CE STX L0B64+2 STY L0B64+1 STA L0B64 RTS L40D8 SEP #$30 ; LOGO JSL GSOS DW $0015 ; Flush ADRL L10CD JSR L3543 JSR LD491 JSR L92B8 L40ED LDA #$80 STA $E7 TRB L16FF TRB L10CF LDA #$FF STA $76 JSR L7BDC LDA L16FD STA $2F BEQ L4108 JSR L933A L4108 LDA #$80 TRB L16F1 STZ L16EF JSR LA4F6 JSR L418A XBA BEQ L40ED LDX L03F7 CPX L16ED BEQ L40ED JSR L4198 JSR L3CBE TAX BEQ L40ED LDX #$FF STX $76 STX $75 STX $98 STZ L03D3 BCS L4155 INC $98 STZ $7B JSR L49A9 BCC L4143 JSR L4A65 L4143 JSR L4A89 L4146 LDA $7B BNE L414D JSR L833A L414D JSR L5AEE JSR L5AC1 BRA L40ED L4155 JSR L4B09 BRL L3C4A L415B JSL GSOS DW $002A ; GetVersion ADRL L1789 BCC L417E L4167 REP #$30 LDA #$BB02 PHA PEA ^L2D90 PEA L2D90 _SysFailMgr BRK $B2 SEP #$30 L417E LDAL $E100FF BNE L4167 JSR L5A78 BRL L40D8 L418A LDA #^L03F6 STA $50 REP #$30 LDX #L03F6 STX $4E SEP #$30 RTS L4198 TAX L4199 DEX BEQ L41A8 LDA L03F7,X CMP #$20 BNE L41A8 STZ L03F7,X BRA L4199 L41A8 INX STX L03F5 STX L03F4 RTS L41B0 LDA [$97] TAY INY REP #$30 LDA [$97],Y STA $30 SEP #$30 RTS L41BD LDA $97 STA $1F LDA $98 STA $20 LDA $99 STA $21 RTS *----------------------- * HLIST *----------------------- L41CA JSR L7547 JSR L3CC8 *----------------------- * LIST *----------------------- L41D0 PHP JSR L47A6 STZ $1C STZ $12 JSR L3AED LDA $30 ORA $31 ORA L03D4 BNE L41E6 INC $30 L41E6 JSR L903F LDA L03D4 BEQ L41F8 BCC L41F5 JSR L41B0 BRA L41F8 L41F5 BRL L3BA0 L41F8 PLP BNE L41FF L41FB LDA #$FF STA $31 L41FF JSR L3CC8 BEQ L4234 CMP #$2D BEQ L420F CMP #$2C BEQ L420F L420C BRL L6356 L420F JSR L3CBE BEQ L41FB JSR L3AF0 BNE L420C LDA $30 ORA $31 ORA L03D4 BEQ L420C LDA L03D4 BEQ L4234 JSR L41BD JSR L903F BCC L41F5 JSR L41B0 BRA L4237 L4234 JSR L41BD L4237 LDA #$80 STA L16F1 L423C LDA [$1F] TAY LDA [$1F],Y BNE L4253 L4243 STZ L16F1 STZ L16EF JSR L80D4 LDA #$FF STA $18 JMP L933A ;BRL L933A L4253 JSR L933A JSR LC2B5 BCS L4243 LDA [$1F] TAY INY REP #$30 LDA [$1F],Y CMP $30 SEP #$30 BEQ L426C BCC L426C RTS L426C JSR L4692 JSR L4597 BRA L423C *----------------------- * AUTONUM *----------------------- L4274 JSR L47A6 LDA #$80 STA $8A REP #$30 CLC LDA L0B16 ADC #$000A STA L0B10 LDA #$000A STA L0B14 SEP #$30 JSR L3CC8 BEQ L4302 CMP #$2C BEQ L42E9 CMP #$2D BEQ L42E9 JSR L3AF0 LDA $30 ORA $31 ORA L03D4 BEQ L42DB REP #$30 LDA $30 BEQ L42B5 SEC SBC #$000A STA L0B16 L42B5 SEP #$30 JSR L903F BCC L42CD LDA [$97] TAY INY REP #$30 LDA [$97],Y STA L0B10 SEP #$30 STZ $8A BRA L42DB L42CD LDA L03D4 BNE L42F1 REP #$30 LDA $30 STA L0B10 SEP #$30 L42DB JSR L3CC8 BEQ L4302 CMP #$2D BEQ L42E9 JSR L6346 BRA L42EC L42E9 JSR L3CBE L42EC JSR L3AF6 BEQ L42F4 L42F1 BRL L3BA0 L42F4 REP #$30 LDA $30 BEQ L4302 CMP #$03E9 BCS L4302 STA L0B14 L4302 SEP #$30 BIT $8A BMI L4315 REP #$30 LDA L0B14 CLC ADC L0B10 STA $30 BRA L431C L4315 REP #$30 LDA #$FFFF STA $30 L431C REP #$30 LDA L0B14 STA L0B18 SEP #$30 BRL L43D1 *----------------------- * EDIT *----------------------- L4329 PHP JSR L47A6 STZ $8A LDA #$12 JSR LA9BF LDA #$18 JSR LA9BF JSR L752F LDA #$81 JSR L80A8 BNE L4365 JSR L933A JSR L6306 JSR LB71C BNE L4351 JMP LB6AC ;BRL LB6AC L4351 TXA ORA #$40 STA $8A REP #$30 LDA #$FFFF STA $30 STZ L0B10 SEP #$30 PLP BRA L43D1 L4365 REP #$30 LDA #$0001 STA L0B18 SEP #$30 JSR L3AED LDA $30 ORA $31 ORA L03D4 BNE L437D INC $30 L437D JSR L903F LDA L03D4 BEQ L438F BCC L438C JSR L41B0 BRA L438F L438C BRL L3BA0 L438F REP #$30 LDA $30 STA L0B10 SEP #$30 PLP BNE L43A1 L439B LDA #$FF STA $31 STZ $30 L43A1 JSR L3CC8 BEQ L43D1 CMP #$2D BEQ L43B1 CMP #$2C BEQ L43B1 L43AE BRL L6356 L43B1 JSR L3CBE BEQ L439B JSR L3AF0 BNE L43AE LDA $30 ORA $31 ORA L03D4 BEQ L43AE LDA L03D4 BEQ L43D1 JSR L903F BCC L438C JSR L41B0 L43D1 REP #$30 LDA $30 STA L0B12 SEP #$30 JSR L4578 JSR LA38A JSR L40C0 JSR L45A7 CPY #$14 BCC L43F7 LDY #$15 STY L193A LDA #$17 JSR LA9BF JSR LA9BF L43F7 BRA L4416 L43F9 JSR L45C9 JSR L4B09 JSR L3CBE JSR L3C91 BRA L440D L4407 JSR L4006 JSR L933A L440D JSR L45A7 JSR L45B1 JSR L4578 L4416 BRA L442B L4418 REP #$30 LDA L0B10 BEQ L442B CLC ADC L0B18 CMP #$FF00 BCS L4470 STA L0B10 L442B SEP #$30 JSR L45B1 LDA #$0C JSR LA9BF REP #$30 LDA L0B10 STA $30 SEP #$30 BEQ L446B JSR L903F LDA [$97] TAY BCS L4450 BIT $8A BMI L446B LDA [$97],Y BEQ L4470 L4450 STZ $8A INY REP #$30 LDA #$0001 STA L0B18 LDA [$97],Y CMP L0B12 STA L0B10 STA $30 SEP #$30 BEQ L446B BCS L4470 L446B JSR L45E5 BCC L4475 L4470 SEP #$30 BRL L4513 L4475 LDX L04F9 BEQ L4418 BIT $8A BVC L4481 BRL L4545 L4481 JSR LA5EB JSR L418A LDA L03F6 JSR L4198 JSR L3CBE TAX BEQ L4418 LDX #$FF STX $76 STZ $75 STZ L03D3 STX $98 BCC L44A3 BRL L43F9 L44A3 INC $98 STZ $7B LDY #$01 L44A9 LDA [$4E],Y BEQ L44B9 INY CMP #$20 BEQ L44A9 JSR L4F89 BCS L44A9 BRA L44D4 L44B9 JSR L3CC8 JSR L3AF6 REP #$30 LDA $30 STA L0B10 CMP L0B12 BCC L44D1 LDX #$FF00 STX L0B12 L44D1 BRL L442B L44D4 JSR L45C9 JSR L3CC8 JSR L49A9 BCC L44E2 JSR L4A65 L44E2 JSR L4A89 LDA $99 STA $21 REP #$30 LDA $97 STA $1F SEP #$30 LDA [$1F] TAY INY REP #$30 LDA [$1F],Y STA $30 STA L0B16 SEP #$30 STZ $2F LDX L1938 STX $1C JSR L4692 JSR L933A JSR L45A7 BRL L4418 L4513 SEP #$30 JSR L80D4 LDA #$FF STA $18 LDX #$1F LDY L1D11,X TYX STZ L06F0,X STZ L06F1,X STZ L06F3,X JSR LA38A STZ L03F7 STZ L03F6 JSR L40C8 JSR L752F JSR L45DC LDA #$0B JSR LA9BF BRL L4146 L4545 JSR L45C9 LDA $8A AND #$1F STA $18 JSR L4567 JSR LAA74 JSR L933A LDA #$FF STA $18 JSR L4567 JSR LAA74 JSR L933A BRL L440D L4567 LDA #^L04FA STA $42 REP #$30 LDA #L04FA STA $40 SEP #$30 LDA L04F9 RTS L4578 LDX #$1F LDY L1D11,X LDA #$10 STA L06F0,Y LDA #$00 STA L06F1,Y LDA #$04 STA L07F0,Y LDA #$00 STA L06F2,Y LDA #$02 STA L06F3,Y RTS L4597 INY L4598 TYA CLC ADC $1F STA $1F BCC L45A6 REP #$30 INC $20 SEP #$30 L45A6 RTS L45A7 JSR LA2A1 STX L1938 STY L193A RTS L45B1 LDA #$01 STA $2B LDA #$15 STA $2D LDA #$50 STA $2C LDA #$18 STA $2E JSR LABC0 LDA #$0C JMP LA9BF ;BRL LA9BF L45C9 LDA #$01 STA $2B LDA #$01 STA $2D LDA #$50 STA $2C LDA #$14 STA $2E JSR LABC0 L45DC LDX L1938 LDY L193A JMP LA2BA ;BRL LA2BA L45E5 LDX #$1F STX $18 BIT $8A BPL L4612 REP #$30 PEI $30 PEA ^L022F PEA L022F PEA $0005 PEA $0000 _Int2Dec SEP #$30 LDA #$20 STA L0234 LDX #$06 STX L022C BRA L464F L4612 STZ L022C LDA L0B1A PHA LDA L0B1C PHA LDA L0B1E PHA STZ L0B1A STZ L0B1C STZ L0B1E STZ $1C STZ $12 STZ $2F LDA $99 STA $21 REP #$30 LDA $97 STA $1F LDA $30 SEP #$30 BEQ L4643 JSR L4692 L4643 PLA STA L0B1E PLA STA L0B1C PLA STA L0B1A L464F LDX L022C STZ L022F,X STZ L0230,X LDX #$FF STX $18 JSR LA2A1 STX L1BA3 STY L1BA4 JSR LA362 STZ L1A43 STZ L1A8C LDA #$01 STA L1A8A LDA #^L022F STA $42 REP #$30 LDA #L022F STA $40 SEP #$30 LDA L022C JSR L9D1D CMP #$02 RTS LDA #L022F LDY #>L022F LDX #^L022F JMP L93FB ;BRL L93FB L4692 PHY REP #$30 PHA PEA ^L03B3 PEA L03B3 PEA $0005 PEA $0000 _Int2Dec STZ L03B9 SEP #$30 LDA L0B1E BMI L46D9 LDA #$20 STA L03B8 JSR LE6F0 STA $40 STY $41 STX $42 LDA L0B1E AND #$7F BNE L46D6 L46C8 LDA [$40] CMP #$20 BNE L46D6 INC $40 BNE L46C8 INC $41 BRA L46C8 L46D6 JSR L9401 L46D9 LDA [$1F] STA $1E DEC BEQ L46F3 LDY #$00 L46E2 INY CPY $1E BCS L46EE LDA [$1F],Y JSR L9415 BRA L46E2 L46EE LDA #$3A JSR L9415 L46F3 LDA L0B1E AND #$7F BEQ L4712 CMP $2F BCC L4705 BEQ L4705 JSR LA9B2 BRA L46F3 L4705 LDY L0B1A BEQ L4712 CMP L0B1A BCC L4712 BRL L82F8 L4712 PLY JSR L4598 LDY #$02 LDA [$1F],Y BIT $12 BPL L472B CMP #$8C BEQ L472B CMP #$8D BEQ L472B STZ $12 JSR L479F L472B CMP #$DD BEQ L474A CMP #$8E BNE L474D STY $13 L4735 DEC $1C BPL L473B STZ $1C L473B INY LDA [$1F],Y BEQ L474D CMP #$3A BEQ L474D CMP #$2C BEQ L4735 BRA L473B L474A JSR L479F L474D LDX L0B1C BEQ L475F L4752 LDY $1C BEQ L475F L4756 JSR LA9B2 DEY BNE L4756 DEX BNE L4752 L475F LDY $2F STY $1D LDY #$02 LDA [$1F],Y CMP #$DA BEQ L4775 CMP #$8B BEQ L4775 CMP #$C4 BNE L4777 STA $12 L4775 INC $1C L4777 LDA #$3A STA $15 BRA L4793 L477D CMP #$22 BNE L478D L4781 JSR L9415 INY LDA [$1F],Y BEQ L479E CMP #$22 BNE L4781 L478D JSR L9415 L4790 STA $15 INY L4793 LDA [$1F],Y BPL L479C JSR L487D BRA L4790 L479C BNE L477D L479E RTS L479F DEC $1C BPL L47A5 STZ $1C L47A5 RTS L47A6 LDX $76 INX BEQ L47B5 BRL L6356 L47AE INY BNE L47B3 INC $A4 L47B3 LDA [$A3],Y L47B5 RTS L47B6 LDY #L22FE STY $A3 LDY #>L22FE STY $A4 LDY #^L22FE STY $A5 CPX #$DF ; not a noun BNE L47DC LDY #L24BD STY $A3 LDY #>L24BD STY $A4 LDY #^L24BD STY $A5 CMP #$E0 BCC L47DA EOR #$60 BRA L47DC L47DA ADC #$16 L47DC AND #$7F TAX LDY #$FF L47E1 DEX BMI L47EF L47E4 INY BNE L47E9 INC $A4 L47E9 LDA [$A3],Y BPL L47E4 BRA L47E1 L47EF TYA CLC ADC $A3 STA $A3 BCC L47FD REP #$30 INC $A4 SEP #$30 L47FD RTS L47FE REP #$30 LDA $75 REP #$30 TAX LDA #$0000 L4808 JSR L4811 PHY JSR L9401 PLY RTS L4811 PHY PHA PHX PEA ^L03B3 PEA L03B3 PEA $000B PEA $FFFF _Long2Dec STZ L03BE SEP #$30 JSR LE6F0 STA $40 STY $41 STX $42 L4835 LDA [$40] CMP #$20 BNE L4843 INC $40 BNE L4835 INC $41 BRA L4835 L4843 PLY PLA RTS L4846 INY REP #$30 LDA [$1F],Y TAX INY INY LDA [$1F],Y L4850 JSR L4808 INY BRA L487A MX %11 L4856 CMP #$FC BEQ L4846 BCS L4861 INY INY INY BRA L487A L4861 TYA CLC ADC #$08 TAY BRA L487A L4868 INY STY $84 REP #$30 LDA [$1F],Y L486F TAX LDA #$0000 BRA L4850 MX %11 L4875 AND #$3F JSR L9415 L487A LDA $14 RTS L487D LDX #$00 STA $14 CMP #$DF BCC L48A9 BEQ L48A3 CMP #$FF BNE L488F JMPL L6356 L488F CMP #$FA BEQ L4868 BCS L4856 CMP #$F0 BCS L4875 REP #$30 LDA [$1F],Y XBA AND #$0FFF BRA L486F MX %11 L48A3 STZ $14 TAX INY LDA [$1F],Y L48A9 STA $86 STY $84 JSR L47B6 LDY $84 CPY #$03 BEQ L48DB BIT $14 BMI L48C0 LDA $86 CMP #$96 BCS L48DB L48C0 LDA $15 CMP #$FF BEQ L48DB CMP #$DF BEQ L48DB BCS L48D8 CMP #$80 BCS L48DB CMP #$3A BEQ L48DB CMP #$20 BEQ L48DB L48D8 JSR L9413 L48DB LDY #$00 L48DD JSR L47AE BMI L48E7 JSR L9415 BRA L48DD L48E7 AND #$7F JSR L9415 LDY $84 JSR L6638 BCC L4905 INY LDA [$1F],Y BMI L4901 CMP #$22 BEQ L4901 JSR L4F80 BCC L4904 L4901 JSR L9413 L4904 DEY L4905 LDA $14 RTS L4908 BRL L6356 *----------------------- * DEL *----------------------- L490B JSR L47A6 JSR L3AED LDA $30 ORA $31 ORA L03D4 BNE L491C INC $30 L491C JSR L903F BCS L4929 LDX L03D4 BEQ L4929 L4926 BRL L3BA0 L4929 REP #$30 LDA $97 PHA SEP #$30 LDA $99 PHA JSR L3CC8 BEQ L495E CMP #$2C BEQ L4940 CMP #$2D BNE L4908 L4940 JSR L3CBE BEQ L4908 JSR L3AF0 LDA $30 ORA $31 ORA L03D4 BEQ L4926 LDA L03D4 BEQ L495E JSR L903F BCC L4926 JSR L41B0 L495E INC $30 BNE L4964 INC $31 L4964 JSR L903F LDA $97 STA $40 LDA $98 STA $41 LDA $99 STA $42 PLA STA $99 REP #$30 PLA STA $97 LDA $40 SEC SBC $97 STA $1C SEP #$30 LDA $42 SBC $99 STA $1E ORA $1C ORA $1D BNE L4991 RTS L4991 JSR L55D0 BRL L5AC1 L4997 CPX L1076 BCC L49A6 BNE L49A5 REP #$20 CMP L1074 BCC L49A6 L49A5 SEC L49A6 SEP #$30 RTS L49A9 JSR L3AF6 JSR L6638 BCC L49EF XBA LDA $4E SBC #L03F7 PHA XBA LDY #$00 L49BA INY JSR L664D STA L03D3,Y LDA [$4E],Y BEQ L49EE CMP #$3A BEQ L49D0 JSR L4F80 BCS L49BA BRA L49EE L49D0 INY STY L03F3 PLX PHX JSR L4ECA BCS L49EE PLX JSR L4EB8 BCC L49E4 BRL L3BA0 L49E4 PHA LDY L03F3 STY L03D3 JSR L8C60 L49EE PLA L49EF JSR L4B09 TYA CLC ADC #$03 STA $0B STA L03F4 REP #$30 LDA $30 STA L03F5 SEP #$30 LDA L03D3 BNE L4A0C INC L03D3 L4A0C JSR L4A33 PHP LDY #$20 LDX L03D3 L4A15 LDA L03D2,X STA L03D3,Y DEY DEX BNE L4A15 STZ L03D4 REP #$30 TYA CLC ADC #L03D3 STA $81 SEP #$30 LDA #^L03D3 STA $83 PLP RTS L4A33 LDA L03D3 DEC BEQ L4A61 REP #$30 LDA $30 PHA STZ $30 SEP #$30 JSR L903F REP #$30 PLA STA $30 SEP #$30 BCC L4A61 LDA [$97] TAY INY REP #$30 LDA [$97],Y CMP $30 SEP #$30 BEQ L4A64 LDX #$08 BRL L3FA4 L4A61 JSR L903F L4A64 RTS L4A65 LDA [$97] TAY STZ $1E LDA [$97],Y REP #$30 STY $1C CLC AND #$00FF ADC $1C STA $1C CLC ADC $97 STA $40 SEP #$30 LDA $99 ADC #$00 STA $42 JSR L55D0 L4A88 RTS L4A89 LDA L03F7 BEQ L4A88 STZ $1E STZ $0C REP #$30 LDA $0B CLC ADC L03D3 STA $0B STA $1C SEP #$30 L4AA0 JSR L4AB1 REP #$10 LDY $0B L4AA7 LDA [$81],Y DEY STA [$97],Y BNE L4AA7 SEP #$30 RTS L4AB1 REP #$30 LDA L107C STA $91 CLC ADC $1C STA $8B SEP #$30 LDA L107E STA $93 ADC $1E STA $8D TAX LDA $8B JSR L4997 BCC L4AF8 REP #$30 LDA $97 SEC SBC $4B TAX SEP #$30 LDA $99 SBC $4D PHA XBA PHA PHX LDX #$08 JSR L5603 REP #$30 PLA CLC ADC $4B STA $97 SEP #$30 PLA ADC $4D STA $99 BRA L4AB1 L4AF8 STX L107E STA L107C XBA STA L107D JSR L5812 RTS L4B06 BRL L4CA4 L4B09 LDA $4E SEC SBC #L03F7 TAX STZ L03F6,X STZ $C0 DEX L4B15 STZ $11 STZ $EA STZ $0C L4B1B INX LDA L03F7,X BEQ L4B06 CMP #$20 BEQ L4B1B JSR L6638 BCS L4B4B CMP #$3F BNE L4B32 LDA #$CE BRA L4B38 L4B32 CMP #$21 BNE L4B40 LDA #$C8 L4B38 STA $0B STA $15 INX L4B3D BRL L4BBE L4B40 CMP #$5F BEQ L4B9A INX L4B45 DEX LDA #$02 BRL L4CE2 L4B4B JSR L4ECA BCS L4B58 JSR L4EB8 BCC L4B6C L4B55 BRL L4CDF L4B58 LDA $0B STA $15 CMP #$B5 BEQ L4B9F BIT $98 BMI L4B3D LDA $0B CMP #$86 BCS L4B3D BRA L4B55 L4B6C STX $BE L4B6E LDA L03F7,X BEQ L4B45 INX CMP #$20 BEQ L4B6E JSR L4F80 BCS L4B6E JSR L4F93 BCS L4B86 CMP #$21 BNE L4B90 L4B86 LDA L03F7,X BEQ L4B45 INX CMP #$20 BEQ L4B86 L4B90 CMP #$3D BEQ L4BA2 CMP #$28 BEQ L4BA2 BRA L4B45 L4B9A LDA #$B6 STA $0B INX L4B9F JSR L4D4C L4BA2 LDX $BE L4BA4 DEX LDY $C0 L4BA7 INX LDA L03F7,X JSR L4F80 BCC L4BBA STA L03F7,Y ORA #$00 BEQ L4BBA INY BRA L4BA7 L4BBA STY $C0 BRA L4C06 L4BBE JSR L4E8A CMP #$C8 BEQ L4BD1 CMP #$CA BEQ L4BD1 CMP #$AA BEQ L4BFE CMP #$CB BNE L4BD5 L4BD1 DEX BRL L4CC2 L4BD5 LDY $98 INY BNE L4C06 CMP #$99 BEQ L4BFE CMP #$9A BEQ L4BFE CMP #$9B BEQ L4BFE CMP #$96 BCC L4C06 CMP #$AB BCS L4C06 CMP #$97 BEQ L4BFA CMP #$98 BEQ L4BFE CMP #$A1 BNE L4C02 L4BFA LDA #$A0 BRA L4C04 L4BFE LDA #$C0 BRA L4C04 L4C02 LDA #$80 L4C04 STA $11 L4C06 DEX L4C07 INX LDA L03F7,X BNE L4C10 BRL L4CA4 L4C10 CMP #$3A BEQ L4C20 CMP #$2C BNE L4C2A BIT $11 BEQ L4C26 TRB $11 BRA L4C79 L4C20 JSR L4EAB BRL L4B15 L4C26 BVS L4C2A STZ $11 L4C2A BIT $11 BMI L4C79 CMP #$20 BEQ L4C07 CMP #$22 BNE L4C3C JSR L4EAB BRL L4CC4 L4C3C CMP #$2E BEQ L4C45 JSR L4F89 BCC L4C4A L4C45 JSR L4D8F BRA L4C06 L4C4A CMP #$5F BNE L4C69 LDY $EA CPY #$DF BNE L4C5A LDY $E9 CPY #$EB BEQ L4C79 L4C5A INX LDA #$B6 STA $0B STZ $0C JSR L4D4C LDX $BE L4C66 BRL L4BA4 L4C69 JSR L6638 BCS L4C7F CMP #$3F BNE L4C79 LDA #$CE STA $0B INX BRA L4C8F L4C79 JSR L4EAB BRL L4C07 L4C7F JSR L4EB3 BCC L4C8A JSR L4E8A BRL L4C06 L4C8A JSR L4ECA BCC L4C66 L4C8F LDA $15 CMP #$C4 BEQ L4CA1 CMP #$8C BEQ L4CA1 CMP #$8D BEQ L4CA1 CMP #$90 BNE L4CDF L4CA1 BRL L4BBE L4CA4 LDY $C0 STA L03F7,Y STA L03F9,Y STA L03FA,Y LDA #$01 STA L03F8,Y LDA #^L03F6 STA $50 LDA #>L03F6 STA $4F LDA #L03F6 STA $4E INY RTS L4CC2 LDA #$00 L4CC4 STA $0D LDY $C0 DEY L4CC9 INY INX LDA L03F7,X STA L03F7,Y STY $C0 BEQ L4CA4 CMP $0D BNE L4CC9 INY STY $C0 BRL L4C07 L4CDF DEX LDA #$35 L4CE2 PHA LDY $76 INY BNE L4D48 LDY $75 BEQ L4D48 STX $0C TXA LDX #$01 CMP #$9F BCC L4CFA SBC #$9F DEX BRA L4D03 L4CFA CMP #$4F BCC L4D02 SBC #$4F INX DEC L4D02 INC L4D03 TAY STX $0D LDX #$9F CPX L03F4 BCC L4D14 LDX #$4F CPX L03F4 BCS L4D18 L4D14 CPX $0C BCS L4D1A L4D18 STZ $0D L4D1A LDX #$5E STX $0C LDA $0D BEQ L4D2F ORA #$30 STA $0D CPY #$4F BCC L4D2F DEY STA $0C STX $0D L4D2F TYA BEQ L4D3C BMI L4D3C L4D34 JSR LA9B2 DEY BMI L4D3C BNE L4D34 L4D3C LDA $0C JSR LA9B4 LDA $0D BEQ L4D48 JSR LA9B4 L4D48 PLX BRL L3FA4 L4D4C STX $BE LDA $C0 CLC ADC #$05 BCS L4D62 CMP $BE BCC L4D7A LDA L03F5 TAY CLC ADC #$05 BCC L4D67 L4D62 LDX #$34 BRL L3FA4 L4D67 STA L03F5 TAX L4D6B LDA L03F7,Y STA L03F7,X DEX DEY CPY $BE BCS L4D6B INX STX $BE L4D7A JSR L4E8A LDA #$FB JSR L4EAB LDA #$FF PHX LDX #$03 L4D87 JSR L4EAB DEX BNE L4D87 PLX RTS L4D8F STX $BE DEX LDY #$00 L4D94 INX LDA L03F7,X JSR L4F89 BCC L4DF3 INY CPY #$0A BCC L4D94 L4DA2 STZ $0B STZ $0C LDX $BE LDY $C0 DEX BRA L4DB1 L4DAD STA L03F7,Y INY L4DB1 INX LDA L03F7,X BEQ L4DED CMP #$20 BEQ L4DB1 JSR L4F89 BCS L4DAD BIT $0C BMI L4DD0 BIT $0B BMI L4DD0 CMP #$2E BNE L4DD0 L4DCC DEC $0B BRA L4DAD L4DD0 BIT $0C BMI L4DE1 JSR L664D CMP #$45 BNE L4DED DEC $0C STZ $0B BRA L4DAD L4DE1 BIT $0B BMI L4DED CMP #$2B BEQ L4DCC CMP #$2D BEQ L4DCC L4DED STY $C0 STZ $0C CLC RTS L4DF3 CMP #$23 BEQ L4DA2 CMP #$2E BNE L4E0E CPY #$00 BNE L4DA2 INX LDA L03F7,X JSR L4F89 BCS L4DA2 LDA #$2E JSR L4EAB RTS L4E0E JSR L664D CMP #$45 BEQ L4DA2 LDA $BE STX $BE REP #$30 PEA $0000 PEA $0000 PEA ^L03F7 AND #$00FF CLC ADC #L03F7 PHA PHY PEA $FFFF _Dec2Long PLA STA $47 PLA STA $49 SEP #$30 BEQ L4E54 LDA #$FC JSR L4EAB LDX #$00 L4E48 LDA $47,X JSR L4EAB INX CPX #$04 BCC L4E48 BRA L4E86 L4E54 LDA $48 BNE L4E62 LDA $47 CMP #$0A BCS L4E6D ORA #$F0 BRA L4E83 L4E62 REP #$30 LDA $47 CMP #$1000 SEP #$30 BCS L4E77 L4E6D LDY $47 LDA $48 STY $48 ORA #$E0 BRA L4E7E L4E77 LDA #$FA JSR L4EAB LDA $47 L4E7E JSR L4EAB LDA $48 L4E83 JSR L4EAB L4E86 LDX $BE SEC RTS L4E8A LDA $0B STA $E9 LDA $0C STA $EA BMI L4E96 LDA $0B L4E96 LDY $C0 STA L03F7,Y INY CMP #$DF BNE L4EA8 LDA $0B STA L03F7,Y INY LDA #$00 L4EA8 STY $C0 RTS L4EAB LDY $C0 STA L03F7,Y INC $C0 RTS L4EB3 JSR L4EE9 BCS L4EC9 L4EB8 JSR L4EDB BCC L4EC9 LDA $0B SBC #$16 BMI L4EC6 CLC ADC #$76 L4EC6 STA $0B SEC L4EC9 RTS L4ECA JSR L4EF7 BCC L4EDA LDA #$DF CMP $0B BCS L4EDA LDA #$DF STA $0C SEC L4EDA RTS L4EDB LDA #$DF STA $0C LDA #$FE PHA REP #$30 LDA #L25BD BRA L4F01 MX %11 L4EE9 STZ $0C LDA #$9A PHA LDY #$86 REP #$30 LDA #L2417 BRA L4F04 MX %11 L4EF7 STZ $0C LDA #$E9 PHA REP #$30 LDA #L23FE L4F01 LDY #$0080 L4F04 STA $A3 SEP #$30 STY $0B LDA #^L23FE STA $A5 PLA STX $BE INC PHA LDY #$00 L4F15 LDX $BE L4F17 LDA L03F7,X AND #$7F JSR L664D EOR [$A3],Y INY INX ASL BNE L4F30 BCC L4F17 JSR L4F55 BCS L4F30 SEC PLA RTS L4F30 DEY BCS L4F39 L4F33 INY LDA [$A3],Y BPL L4F33 SEC L4F39 TYA ADC $A3 STA $A3 BCC L4F42 INC $A4 L4F42 LDY #$00 INC $0B LDA $0B CMP $01,S BCS L4F50 LDA [$A3],Y BNE L4F15 L4F50 CLC LDX $BE PLA RTS L4F55 LDA L03F7,X AND #$7F JSR L4F80 BCC L4F7F DEY LDA [$A3],Y INY AND #$7F JSR L4F80 BCC L4F7F LDA $0B BIT $0C BMI L4F7A CMP #$87 BEQ L4F78 CMP #$88 BNE L4F7E L4F78 CLC RTS L4F7A CMP #$8B BEQ L4F78 L4F7E SEC L4F7F RTS L4F80 JSR L6638 BCS L4F92 CMP #$2E BEQ L4F92 L4F89 CMP #$3A BCS L4F91 CMP #$30 BCS L4F92 L4F91 CLC L4F92 RTS L4F93 CMP #$40 BEQ L4F9D CMP #$27 BCS L4F91 CMP #$23 L4F9D RTS *----------------------- * RENUMBER *----------------------- L4F9E JSR L47A6 REP #$30 LDA #$000A STA $B3 STA $B9 LDA #$0001 STA $B5 LDA #$FEFF STA $B7 SEP #$30 JSR L3CC8 BEQ L5023 CMP #$2C BNE L4FC4 JSR L6306 BRA L4FDE L4FC4 JSR L3CC8 JSR L3AF6 REP #$30 LDA $30 STA $B3 SEP #$30 JSR L3CC8 BEQ L5023 JSR L6346 CMP #$2C BEQ L4FF1 L4FDE JSR L3CC8 JSR L3AF6 REP #$30 LDA $30 BEQ L4FF1 CMP #$03E9 BCS L4FF1 STA $B9 L4FF1 SEP #$30 JSR L3CC8 BEQ L5023 JSR L6346 JSR L3AF6 REP #$30 LDA $30 STA $B5 SEP #$30 JSR L3CC8 BEQ L5023 LDA #$2D JSR L6348 JSR L3AF6 REP #$30 LDA $30 STA $B7 SEP #$30 JSR L3CC8 BEQ L5023 BRL L6356 L5023 SEP #$30 JSR L5A7B JSR L5204 BCC L502E RTS L502E JSR L528B JSR L50DD LDA $4D STA $C2 STA $50 REP #$30 LDA $4B STA $4E STA $C0 SEP #$30 LDA #$80 JSR L52FF REP #$30 LDA $C0 SEC SBC L107C STA $1C SEP #$30 LDA $C2 SBC L107E BEQ L5062 STZ $1C LDA #$02 STA $1D L5062 LDA $1C STZ $1C BEQ L506A INC $1D L506A STZ $1E LDX L107E REP #$30 LDA $1C CLC ADC L107C SEP #$30 BCC L507C INX L507C JSR L4997 BCC L5096 REP #$30 LDA $1C PHA SEP #$30 STZ $1E LDX #$08 JSR L5603 REP #$30 PLA STA $1C SEP #$30 L5096 LDA $24 BEQ L50AB REP #$30 LDA $1C PHA SEP #$30 JSR L515B REP #$30 PLA STA $1C SEP #$30 L50AB STZ $1E LDA $4D STA $99 REP #$30 LDA $4B STA $97 SEP #$30 JSR L4AB1 REP #$30 LDA $97 STA $C0 LDA $8B STA $4E SEP #$30 LDA $99 STA $C2 LDA $8D STA $50 LDA #$00 JSR L52FF JSR L5A7B STZ $7B BRL L4146 L50DD STZ $24 REP #$30 LDA $22 ORA $28 BEQ L511A LDA $22 BEQ L50F1 CMP $B3 BEQ L511D BCS L50FD L50F1 LDA $28 BEQ L511A CMP $A6 BCC L50FD BEQ L511D BRA L511A L50FD LDA $B3 STA $30 SEP #$30 JSR L903F BCS L511D TXA BEQ L5116 INY REP #$30 LDA [$97],Y CMP $A6 BCC L511D BEQ L511D L5116 SEP #$30 DEC $24 L511A SEP #$30 RTS L511D SEP #$30 LDX #$56 BRL L3FA4 L5124 LDA $4D STA $99 REP #$30 LDA $4B STA $97 L512E SEP #$30 LDA [$97] TAY LDA [$97],Y TAX BEQ L5157 INY REP #$30 LDA [$97],Y DEY CMP $30 BEQ L5158 TXA CLC ADC $97 BCC L514B INC $99 CLC L514B STY $97 ADC $97 STA $97 BCC L512E INC $99 BRA L512E L5157 CLC L5158 SEP #$30 RTS L515B REP #$30 LDA $B5 STA $B9 LDA $A6 STA $30 SEP #$30 JSR L903F BCC L516F JSR L3F4C L516F LDA [$97] TAY INY REP #$30 LDA [$97],Y BNE L517A DEC L517A STA $25 L517C REP #$30 LDA $B9 STA $30 SEP #$30 JSR L5124 BCS L518C JSR L3F4C L518C LDA [$97] TAY LDA [$97],Y STY $BE CLC ADC $BE REP #$30 AND #$00FF BCC L51A0 ORA #$0100 L51A0 CLC STA $0B ADC $97 STA $44 SEP #$30 LDA $99 BCC L51AE INC L51AE STA $46 LDA [$44] TAY INY REP #$30 LDA [$44],Y STA $B9 SEP #$20 LDY $0B L51BE DEY BMI L51C8 LDA [$97],Y STA L03D7,Y BRA L51BE L51C8 SEP #$30 JSR L4A65 REP #$30 LDA $0B STA $1C LDA $25 STA $30 SEP #$30 JSR L5124 BCS L51E6 LDA $31 INC BEQ L51E6 JSR L3F4C L51E6 LDA #^L03D6 STA $83 REP #$30 LDA #L03D6 STA $81 SEP #$30 JSR L4AA0 REP #$30 LDA $B9 CMP $B7 BEQ L5200 BCS L5203 L5200 BRL L517C L5203 RTS L5204 LDA $62 STA $42 REP #$30 LDA $60 STA $40 LDA #$0001 STA $30 STZ $28 STZ $22 SEP #$30 JSR L903F TXA BNE L5221 SEC RTS L5221 INY REP #$30 LDA [$97],Y STA $30 INC $30 CMP $B5 BCS L5232 STA $22 BRA L525C L5232 CMP $B7 BCC L523C BEQ L523C STA $28 BRA L526C L523C STA [$40] LDY #$0002 LDA #$0000 STA [$40],Y SEP #$30 LDA #$04 CLC ADC $40 STA $40 REP #$30 LDA $41 BCC L5256 INC L5256 STA $41 CMP $70 BCS L5286 L525C SEP #$30 LDY $99 LDX $98 LDA $97 JSR L9045 BCS L5221 TXA BNE L5221 L526C REP #$30 LDA #$0000 STA [$40] LDA $40 CLC ADC #$0004 STA $5A SEP #$30 LDA $42 BCC L5282 INC L5282 STA $5C CLC RTS L5286 SEP #$30 BRL L3FA2 L528B LDA $62 STA $42 REP #$30 LDA $60 STA $40 LDA [$40] STA $B5 LDX $B3 LDY #$0002 L529E LDA [$40] BEQ L52BF STA $B7 TXA STA [$40],Y STA $A6 CLC ADC $B9 TAX LDA #$0004 CLC ADC $40 STA $40 BCC L529E SEP #$30 INC $42 REP #$30 BRA L529E L52BF SEP #$30 RTS L52C2 INY LDA [$4E],Y JSR L53FE BEQ L52DB BPL L52C2 JSR L53E9 LDA [$4E] CMP #$DF BEQ L52D8 BCS L52E1 DEY L52D8 INY SEC RTS L52DB INY JSR L53E9 CLC RTS L52E1 CMP #$F0 BCC L52FC CMP #$FA BCC L52FD BEQ L52FB CMP #$FC BCC L52FA BEQ L52F9 CMP #$FF BEQ L52FB INY INY INY INY L52F9 INY L52FA INY L52FB INY L52FC INY L52FD SEC RTS L52FF STA $15 L5301 LDA [$4E] TAY LDA [$4E],Y BNE L532A INY INY L530A LDA [$4E],Y JSR L53FE DEY BPL L530A LDA #$04 JSR L53EE BIT $15 BMI L5327 LDA $C2 STA L107E REP #$30 LDA $C0 STA L107C L5327 SEP #$30 RTS L532A PHY L532B LDA [$4E],Y JSR L53FE DEY BPL L532B PLY JSR L53E9 REP #$30 LDA $C0 STA $DA SEP #$30 LDA $C2 STA $DC LDY #$02 LDA [$4E],Y XBA DEY LDA [$4E],Y JSR L5407 LDY #$01 JSR L53FE XBA INY JSR L53FE L5358 JSR L52C2 BCS L537E L535D REP #$30 LDA $C0 SEC SBC $DA SEP #$30 XBA BNE L5372 XBA BIT $15 BMI L5370 STA [$DA] L5370 BRA L5301 L5372 BIT $15 BPL L537B LDX #$34 BRL L3FA4 L537B JSR L3F4C L537E PHY CMP #$89 BEQ L5394 CMP #$8A BEQ L5394 CMP #$B2 BEQ L538F CMP #$B1 BNE L5399 L538F JSR L54FC BCC L535D L5394 JSR L549F BRA L53E3 L5399 CMP #$C5 BEQ L53BD CMP #$C7 BEQ L53BD CMP #$A0 BEQ L53BD CMP #$8D BEQ L53BD CMP #$8C BEQ L53BD CMP #$DF BNE L53C2 LDA [$4E],Y CMP #$83 BNE L53C2 JSR L53FE JSR L53E9 L53BD JSR L54E6 BRA L53E3 L53C2 CMP #$97 BNE L53D3 JSR L555C BCC L53D0 JSR L555C BCS L53E3 L53D0 BRL L535D L53D3 TYA BEQ L53E3 L53D6 LDA [$4E],Y JSR L53FE DEY BNE L53D6 PLY PHY JSR L53E9 L53E3 PLY LDY #$00 BRL L5358 L53E9 PHY JSR L8C60 PLA L53EE LDY #$00 CLC ADC $C0 STA $C0 REP #$30 BCC L53FB INC $C1 L53FB SEP #$30 RTS L53FE PHP BIT $15 BMI L5405 STA [$C0],Y L5405 PLP RTS L5407 REP #$30 PHA LDA $62 AND #$00FF STA $42 LDA $60 STA $40 LDY #$0000 L5418 LDA [$40],Y BEQ L5435 CMP $01,S BCS L542A INY INY INY INY BNE L5418 INC $42 BRA L5418 L542A BNE L5435 PLX INY INY LDA [$40],Y SEP #$30 SEC RTS L5435 PLA CLC SEP #$30 RTS L543A PHY BCS L544E AND #$0F XBA INY LDA [$4E],Y L5443 JSR L6306 L5446 JSR L6306 JSR L5407 PLY RTS L544E CMP #$FA BEQ L545C BCS L5469 AND #$0F XBA LDA #$00 XBA BRA L5446 L545C INY LDA [$4E],Y XBA INY LDA [$4E],Y XBA JSR L6306 BRA L5443 L5469 LDX #$56 BRL L3FA4 L546E REP #$30 CMP #$000A BCS L547D SEP #$30 ORA #$F0 BRA L5498 REP #$30 L547D CMP #$1000 BCS L5489 XBA SEP #$30 ORA #$E0 BRA L5493 L5489 SEP #$30 TAX LDA #$FA JSR L53FE INY TXA L5493 JSR L53FE XBA INY L5498 JSR L53FE TYA BRL L53EE L549F INY LDA [$4E],Y CMP #$E0 BCS L54C8 JSR L6638 BCC L54E5 L54AB JSR L53FE INY LDA [$4E],Y BEQ L54E1 JSR L4F80 BCS L54AB CMP #$3A BEQ L54E1 CMP #$2C BNE L54E1 L54C0 JSR L53FE JSR L53E9 BRA L549F L54C8 CMP #$F0 BEQ L54E5 JSR L543A JSR L546E LDY #$01 LDA [$4E],Y BEQ L54E5 CMP #$3A BEQ L54E5 CMP #$2C BEQ L54C0 RTS L54E1 DEY JSR L53E9 L54E5 RTS L54E6 INY LDA [$4E],Y CMP #$E0 BCC L54FB CMP #$FB BCS L54FB CMP #$F0 BEQ L54FB JSR L543A JSR L546E L54FB RTS L54FC STZ $DD LDY #$00 L5500 INY LDA [$4E],Y JSR L53FE BEQ L551D CMP #$28 BNE L5510 INC $DD BRA L5500 L5510 CMP #$2C BNE L5523 LDX $DD BNE L5500 JSR L53E9 SEC RTS L551D INY JSR L53E9 CLC RTS L5523 CMP #$29 BNE L552F DEC $DD BPL L5500 STZ $DD BRA L5500 L552F CMP #$DF BCC L5500 BNE L5547 INY LDA [$4E],Y JSR L53FE CMP #$96 BCC L5500 CMP #$DD BCS L5500 INC $DD BRA L5500 L5547 STY $BE JSR L52E1 PHY L554D LDA [$4E],Y JSR L53FE DEY CPY $BE BEQ L5559 BCS L554D L5559 PLY BRA L5500 L555C STZ $DD LDY #$00 L5560 INY LDA [$4E],Y JSR L53FE BEQ L558F CMP #$22 BNE L557A L556C INY LDA [$4E],Y JSR L53FE BEQ L558F CMP #$22 BNE L556C BRA L5560 L557A CMP #$28 BNE L5582 INC $DD BRA L5560 L5582 CMP #$2C BNE L5595 LDX $DD BNE L5560 JSR L53E9 SEC RTS L558F INY JSR L53E9 CLC RTS L5595 CMP #$29 BNE L55A1 DEC $DD BPL L5560 STZ $DD BRA L5560 L55A1 CMP #$DF BCC L5560 BNE L55B9 INY LDA [$4E],Y JSR L53FE CMP #$96 BCC L5560 CMP #$DD BCS L5560 INC $DD BRA L5560 L55B9 STY $BE JSR L52E1 PHY L55BF LDA [$4E],Y JSR L53FE DEY CPY $BE BEQ L55CB BCS L55BF L55CB PLY BRA L5560 SEP #$30 L55D0 REP #$30 LDA $63 PHA LDA L107C STA $63 SEP #$30 LDA $65 PHA LDA L107E STA $65 JSR L5889 PLA STA $65 LDA L107C SEC SBC $1C STA L107C REP #$30 LDA L107D SBC $1D STA L107D PLA STA $63 SEP #$30 RTS L5603 LDY $1C STZ L1092 STZ L1095 REP #$30 LDA $1D CPY #$0000 BNE L5615 INC L5615 INC STA L1093 STA L108E LDA L1040,X CLC ADC L1092 STA L1092 LDA L1042,X ADC L1094 STA L1094 L562F SEP #$30 L5631 PHX LDA #$FF STA L102D JSR L5B24 JSR L5B6A PLX PHX REP #$30 LDY L1092 LDA L1094 PHA PHY LDA L1036,X PHA LDA L1034,X PHA _SetHandleSize BCC L5670 CMP #$0201 BEQ L5662 BRL L3F6A L5662 SEP #$30 LDA L108E STZ L102D JSR L5D47 PLX BRA L5631 L5670 SEP #$30 JSR L5B6E JSR L5B28 STZ L102D PLX REP #$30 LDA L1092 LDY L1094 STA L1040,X TYA STA L1042,X LDA L1060,X STA L1096 LDA L1062,X STA L1098 SEP #$30 JSR L56A0 JSR L5758 RTS L56A0 LDA $76 INC BEQ L56AA LDX #$4E JSR L5744 L56AA LDX #$79 JSR L5744 LDX #$C9 JSR L5744 LDX #$7E JSR L5744 REP #$30 LDA L107C SEC SBC L1068 STA L107C LDA L107E SBC L106A STA L107E LDY L103E LDA L103C STA $EB STY $ED LDY #$0002 LDA [$EB],Y TAY LDA [$EB] STA L1068 STY L106A CLC ADC L1048 TAX TYA ADC L104A CPX #$0000 BNE L56F5 DEC L56F5 DEX STX L1074 STA L1076 LDA L1068 STA $EB SEP #$30 STY $ED LDA [$EB] SEC ADC $EB STA $4B REP #$30 LDA $EC ADC #$0000 STA $4C LDA L107C CLC ADC L1068 STA L107C LDA L107E ADC L106A STA L107E SEP #$30 LDX #$7E JSR L5744 LDX #$79 JSR L5744 LDX #$C9 JSR L5744 LDA $76 INC BEQ L5743 LDX #$4E JSR L5744 L5743 RTS L5744 REP #$30 LDA L1068 SEC SBC $00,X STA $00,X SEP #$30 LDA L106A SBC $02,X STA $02,X RTS L5758 LDA L1078 SEC SBC $72 STA L1078 REP #$30 LDA L1079 SBC $73 STA L1079 LDY L103A LDA L1038 STA $EB STY $ED LDY #$0002 LDA [$EB],Y TAY LDA [$EB] STA $72 STA L1064 STY L1066 CLC ADC L1044 TAX TYA ADC L1046 CPX #$0000 BNE L5794 DEC L5794 DEX STX L1070 STA L1072 LDA L1078 CLC ADC $72 STA L1078 SEP #$30 STY $74 LDA L107A ADC $74 STA L107A RTS LDY #$02 LDX $53 REP #$30 LDA $51 BRA L57DD SEP #$30 L57BD LDY #$0B LDX $5C REP #$30 LDA $5A BRA L57DD SEP #$30 L57C9 LDY #$0E LDX $5F REP #$30 LDA $5D BRA L57DD SEP #$30 L57D5 LDY #$08 LDX $59 REP #$30 LDA $57 L57DD STA $97 SEP #$30 STX $99 REP #$30 LDA $63 STA $91 CLC ADC $1C STA $8B SEP #$30 LDA $65 STA $93 ADC $1E STA $8D TAX LDA $8B JSR L5801 L57FE BRL L592C L5801 JSR L594C REP #$30 STA $63 SEP #$30 STX $65 PHY JSR L5812 PLX L5811 RTS L5812 SEP #$30 LDA $91 CMP $97 REP #$30 LDA $92 SBC $98 BEQ L5862 CMP #$0100 BCS L5841 STA $5833 STA $583B XBA TAY DEY DEY LDA $8C SEC SBC #$FF00 STA $8C LDA $92 SEC SBC #$FF00 STA $92 BRA L5854 L5841 SEC LDA $8C SBC #$0100 STA $8C LDA $92 SEC SBC #$0100 STA $92 LDY #$FFFE L5854 LDA [$91],Y STA [$8B],Y DEY DEY BNE L5854 LDA [$91],Y STA [$8B],Y BRA L5812 L5862 LDX $8D LDA $91 SEC SBC $97 BEQ L5886 TAY LDA $8B STY $8B SEC SBC $8B STA $8B SEP #$30 TXA SBC #$00 STA $8D DEY L587D LDA [$97],Y STA [$8B],Y DEY CPY #$FF BNE L587D L5886 SEP #$30 L5888 RTS L5889 LDA $97 PHA LDA $98 PHA LDA $99 PHA L5892 SEP #$30 LDA $63 CMP $40 REP #$30 LDA $64 SBC $41 BEQ L58DD CMP #$0100 BCC L58BE XBA AND #$00FF TAX LDY #$0000 L58AD LDA [$40],Y STA [$97],Y INY INY BNE L58AD INC $99 INC $42 DEX BNE L58AD BRA L5892 L58BE PHA XBA TAX LDY #$0000 L58C4 LDA [$40],Y STA [$97],Y INY INY DEX DEX BNE L58C4 PLA PHA CLC ADC $98 STA $98 PLA CLC ADC $41 STA $41 BRA L5892 L58DD SEP #$30 SEC LDA $63 SBC $40 BEQ L58F1 TAX LDY #$00 L58E9 LDA [$40],Y STA [$97],Y INY DEX BNE L58E9 L58F1 PLA STA $99 PLA STA $98 PLA STA $97 RTS L58FB LDX #$0B BRA L5905 L58FF LDX #$08 BRA L5905 L5903 LDX #$0E L5905 PHX LDA $97 SEC SBC $40 STA $1C REP #$30 LDA $98 SBC $41 STA $1D SEP #$30 JSR L5889 LDA $63 CLC ADC $1C STA $63 REP #$30 LDA $64 ADC $1D STA $64 SEP #$30 PLX L592C CPX #$15 BCC L5933 JSR L3F4C L5933 CLC LDA $4F,X ADC $1C STA $4F,X LDA $50,X ADC $1D STA $50,X LDA $51,X ADC $1E STA $51,X DEX DEX DEX BPL L5933 RTS L594C CPX $6B BCC L596F BNE L5958 REP #$20 CMP $69 BCC L596F L5958 SEP #$30 PHY PHA PHX JSR L5977 PLX PLA PLY CPX $6B BCC L596F BNE L5972 REP #$20 CMP $69 BCS L5972 L596F SEP #$30 RTS L5972 SEP #$30 BRL L3FA2 L5977 LDX #$10 XBA L597A PHA LDA $8B,X DEX BPL L597A JSR L6B5C LDX #$00 L5985 PLA STA $8B,X INX CPX #$10 BCC L5985 PLA XBA RTS *----------------------- * CLEAR *----------------------- L5990 BNE L5995 BRL L5A78 L5995 CMP #$9A BNE L599C JMP LD15E ;BRL LD15E L599C CMP #$99 BNE L59A3 JMP LD180 ;BRL LD180 L59A3 JSR L608F JSR LE440 LDA L0AF3 BEQ L59B1 L59AE BRL L6708 L59B1 LDA L0AF0 BEQ L59C1 STZ L0AF0 INC L0AF1 BNE L59C1 INC L0AF2 L59C1 LDA L0AF2 BMI L59AE BEQ L59D1 CMP #$7F BCS L59AE LDA L0AF1 BRA L59D9 L59D1 LDA L0AF1 CMP L104C BCC L59AE L59D9 STA L1089 STZ L1088 LDA L0AF2 STA L108A JSR L6B5C JSR L5BAA RTS *----------------------- * NEW *----------------------- L59EC BEQ L5A4E JSR L608F JSR LE440 LDA L0AF3 BEQ L59FC L59F9 BRL L6708 L59FC LDA L0AF0 BEQ L5A0B STZ L0AF0 REP #$30 INC L0AF1 SEP #$30 L5A0B LDA L0AF2 BEQ L5A19 CMP #$10 BCS L59F9 LDA L0AF1 BRA L5A20 L5A19 LDA L0AF1 CMP #$02 BCC L59F9 L5A20 STA L1093 STZ L1092 LDA L0AF2 STA L1094 STZ L1095 LDA L107C CMP L1068 REP #$30 LDA L107D SBC L1069 INC CMP L1093 BCC L5A46 STA L1093 L5A46 SEP #$30 LDX #$08 JSR L562F RTS L5A4E STZ $12 LDX #$1F STX $1A L5A54 LDX $1A JSR LB742 LDA L06F0,Y BEQ L5A61 JSR LACC4 L5A61 DEC $1A BNE L5A54 JSR LAC95 JSR L39CF JSR L5AEE STZ $76 STZ L0087 STZ L0088 BRA L5A7B L5A78 JSR LACAA L5A7B LDA $6C LDX $6E LDY $6D STA $69 STY $6A STX $6B LDA $60 LDY $61 LDX $62 STA $5D STY $5E STX $5F STZ $D9 STA $5A STY $5B STX $5C STA $57 STY $58 STX $59 STA $54 STY $55 STX $56 STA $51 STY $52 STX $53 STA $63 STY $64 STX $65 STZ L16F3 STZ $CC STZ $C7 STZ $C8 STZ $D2 STZ L17BB L5AC1 JSR L3DA5 L5AC4 REP #$30 PLA LDX L06E9 TXS PHK LDX #L3F91+1 PHX TSX STX $D4 PHA SEP #$30 LDA #$01 STA L0B0E LDA #$FD STA $09 STZ L09ED STZ L09EE LDA #$00 STZ L05FB STZ L0B0C RTS L5AEE SEC LDA $4B SBC #$01 STA $4E LDA $4C SBC #$00 STA $4F LDA $4D SBC #$00 STA $50 LDY #$00 TYA STA [$4E],Y L5B06 JSR L822B JSR L8207 JSR L8217 JSR L820D JSR L8223 STZ L16EF LDX #$91 L5B1A STZ L0639,X DEX BNE L5B1A TXY STZ $CB RTS L5B24 LDA #$22 BRA L5B2A L5B28 LDA #$20 L5B2A PHA LDA #$02 PHA STZ $12 LDX #$1D L5B32 LDY L1D11,X LDA L06F0,Y BEQ L5B5D LDA L06F3,Y BIT #$40 BEQ L5B5D PHX REP #$30 LDA $02,S TAX LDA L06F6,Y AND #$00FF PHA LDA L06F4,Y PHA JSL DISPATCH1 SEP #$30 BCC L5B5C STA $12 L5B5C PLX L5B5D DEX BNE L5B32 PLA PLA LDA $12 BEQ L5B69 BRL L3F6A L5B69 RTS L5B6A LDA #$22 BRA L5B70 L5B6E LDA #$20 L5B70 PHA LDA #$02 PHA STZ $12 LDX #$03 L5B78 LDA L102C,X BMI L5B97 PHX TAY REP #$30 LDA $02,S TAX LDA L1036,Y PHA LDA L1034,Y PHA JSL DISPATCH1 SEP #$30 BCS L5B96 STA $12 L5B96 PLX L5B97 DEX BNE L5B78 PLA PLA LDA $12 BEQ L5BA6 STZ L102D BRL L3F6A L5BA6 RTS L5BA7 JSR L5977 L5BAA STZ $44 LDA $69 CMP $63 REP #$30 LDA $6A SBC $64 STZ $45 BEQ L5BC4 CMP L1050 BCC L5BC4 SBC L1050 STA $45 L5BC4 SEP #$30 LDA $6F SEC SBC $44 TAX REP #$30 LDA $70 SBC $45 XBA SEP #$30 TAY TXA SEC SBC $60 TAX TYA REP #$30 XBA SBC $61 CMP L1089 BCC L5BEE STA L1089 SEP #$30 STX L1088 L5BEE SEP #$30 SEP #$30 JSR L5CEF LDA $6F SEC SBC $60 STA $9B REP #$30 LDA $70 SBC $61 STA $9C SEP #$30 STZ $9E JSR L5B24 JSR L5B6A REP #$30 STZ L108C LDA L108A PHA LDA L1088 PHA LDA L1036 PHA LDA L1034 PHA _SetHandleSize BCC L5C40 CMP #$0201 BNE L5C70 DEC L108C LDA L1040 STA L1088 LDA L1042 STA L108A L5C40 LDA $9B STA L1040 LDA $9D STA L1042 _CompactMem BCS L5C70 SEP #$30 JSR L5B6E JSR L5B28 JSR L5C73 JSR L56A0 JSR L5758 JSR L5D81 BIT L108C BPL L5C6F BRL L3FA2 L5C6F RTS L5C70 BRL L3F6A L5C73 REP #$30 LDA L1036 STA $9D LDA L1034 STA $9B LDA [$9B] TAX LDY #$0002 LDA [$9B],Y TAY TXA SEC SBC L1060 STA $47 TYA SBC L1062 STA $49 STX L1060 STY L1062 ORA $47 SEP #$30 BEQ L5CDC LDX #$5D JSR L5CDD LDX #$5A JSR L5CDD LDX #$57 JSR L5CDD LDX #$54 JSR L5CDD LDX #$51 JSR L5CDD LDX #$63 JSR L5CDD LDX #$69 JSR L5CDD LDX #$6C JSR L5CDD LDX #$6F JSR L5CDD REP #$30 LDA L1060 STA $60 SEP #$30 LDA L1062 STA $62 L5CDC RTS L5CDD REP #$30 LDA $00,X CLC ADC $47 STA $00,X SEP #$30 LDA $02,X ADC $49 STA $02,X RTS L5CEF LDA $69 STA $40 STA $97 REP #$30 LDA $6A STA $41 SEC SBC $45 STA $98 LDA $63 PHA LDA $6F STA $63 SEP #$30 LDA $65 PHA LDA $71 STA $65 JSR L5889 LDA $6F SEC SBC $44 STA $6F REP #$30 LDA $70 SBC $45 STA $70 L5D22 SEP #$30 LDA $6C SEC SBC $44 STA $6C PLA STA $65 REP #$30 PLA STA $63 LDA $97 STA $69 LDA $6D SBC $45 STA $6D SEP #$30 LDA $99 STA $6B RTS L5D44 BRL L3F6A L5D47 REP #$30 AND #$00FF XBA STA L1088 LDA L1040 SEC SBC L1088 STA L1088 LDA L1042 SBC #$0000 STA L108A SEP #$30 JSR L5BA7 RTS L5D69 REP #$30 AND #$00FF CLC ADC L1041 STA L1089 SEP #$30 STZ L1088 STZ L108B JSR L5BA7 RTS L5D81 LDA L1088 SEC SBC L1040 STA $1C REP #$30 LDA L1089 SEC SBC L1041 DEC STA $1D SEP #$30 LDA $6F STA $91 STA $8B REP #$30 LDA $70 STA $92 CLC ADC $1D STA $70 STA $8C LDA $6D CLC ADC $1D STA $6D LDA $69 STA $97 SEP #$30 LDA $6B STA $99 JSR L5812 LDA $8B STA $69 REP #$30 LDA $8C STA $6A LDA L1088 STA L1040 LDA L108A STA L1042 SEP #$30 L5DD7 RTS *----------------------- * LET *----------------------- L5DD8 JSR L649E JSR L633A LDA $0F PHA LDA $D3 PHA L5DE4 LDX #$84 JSR L603B LDA $86 PHA REP #$30 LDA $84 PHA SEP #$30 INC $D8 LDA $10 AND #$80 JSR L60AD STZ $D8 REP #$30 PLA STA $84 SEP #$30 PLA STA $86 PLA PLX STA $D3 STX $0F LDX #$84 L5E10 JSR L603B L5E13 LDX $0F LDA L1ED1,X STA $10 BIT $A5 BMI L5E5F L5E1E LDY $86 REP #$30 LDA $84 SEP #$30 L5E26 REP #$30 STA $40 SEP #$30 STY $42 CPX $A4 BEQ L5E35 JSR LE44E L5E35 LDX $A4 BIT $A5 BVC L5E4D CPX #$00 BNE L5E4D LDA L0AF1 BEQ L5E47 BRL L6708 L5E47 LDA L0AF0 STA [$40] RTS L5E4D LDY $A6 REP #$30 L5E51 DEY DEY BMI L5E5C LDA L0AF0,Y STA [$40],Y BRA L5E51 L5E5C SEP #$30 L5E5E RTS L5E5F TDC LDA #$00 XBA REP #$30 CMP $A7 SEP #$30 BEQ L5E73 LDA [$A6] JSR L6DD5 JSR L6EED L5E73 LDA $A6 LDY $A7 LDX $A8 STA $87 STX $89 STY $88 JSR L6DB5 LDA $84 LDY $85 LDX $86 JSR L6D67 JSR L6D9F LDY #$02 L5E90 LDA [$87],Y STA [$84],Y DEY BPL L5E90 TAX BEQ L5EC2 L5E9A LDX #$84 JSR L603B LDX $D3 BMI L5EA9 LDA $86 CMP #$FF BNE L5EC3 L5EA9 LDY #$02 LDA $85 STA [$8B],Y DEY LDA $84 STA [$8B],Y TXA BPL L5EBB LDA $86 ORA #$80 L5EBB BNE L5EBF LDA #$60 L5EBF DEY STA [$8B],Y L5EC2 RTS L5EC3 LDX #$17 BRL L3FA4 L5EC8 JSR L6475 BCC L5EC3 CPX #$00 BNE L5F08 JSR L803D LDA $8A CLC ADC #$03 STA $20 JSR L6730 PHA SEP #$30 JSR L804A JSR L691D BCC L5F02 STA $84 STY $85 STX $86 DEC $0B JSR L66CF REP #$30 LDA [$8B] SEC SBC $01,S PLX PLX PHA PHX SEP #$30 RTS L5F02 BRL L69D1 L5F05 BRL L6356 L5F08 BRL L3F9E L5F0B BRL L6548 *----------------------- * SET *----------------------- L5F0E CMP #$28 BNE L5F05 JSR L6306 JSR L5EC8 LDX $0F LDA L1ED1,X STA $10 JSR L3CC8 CMP #$29 BEQ L5F46 JSR L6346 JSR L6089 JSR L670D XBA TYA REP #$30 CMP $01,S BCS L5F39 STA $01,S L5F39 SEP #$30 BCC L5F3F BNE L5F0B L5F3F REP #$30 TAY SEP #$30 BEQ L5F79 L5F46 JSR L6332 JSR L633A CMP #$5E BNE L5F7C JSR L6306 JSR L60A7 JSR L6D61 TAX REP #$30 TXA CMP $01,S BCC L5F66 LDA $01,S DEC STA $01,S L5F66 SEP #$30 BEQ L5F79 STA [$84] INC $84 BNE L5F76 REP #$30 INC $85 SEP #$30 L5F76 BRL L5FFE L5F79 BRL L6708 L5F7C CMP #$2A BNE L5FC0 JSR L6306 JSR L608F JSR LE440 REP #$30 LDA L0AF0 STA $40 LDA L0AF2 CMP #$0100 SEP #$30 BCS L5F79 STA $42 JSR L3CC8 BEQ L5FB2 JSR L6346 JSR L6089 JSR L670D XBA TYA REP #$30 BRA L600B SEP #$30 L5FB2 LDA [$40] REP #$30 INC $40 SEP #$30 BNE L6006 INC $42 BRA L6006 L5FC0 JSR L60A1 BIT $A5 BMI L5FFE REP #$30 LDA #L0AF0 STA $40 SEP #$30 LDA #^L0AF0 STA $42 LDA $A4 CMP #$06 BCC L5FF8 LDX #$04 REP #$30 LDA $02,S CMP #$000A BEQ L5FF8 CMP #$0004 BEQ L5FF3 INX CMP #$0008 BEQ L5FF3 BRL L82F8 L5FF3 SEP #$30 JSR LE44E L5FF8 SEP #$30 LDA $A6 BRA L6006 L5FFE JSR L6D6F PHA JSR L6D9D PLA L6006 REP #$30 AND #$00FF L600B AND #$FFFF BEQ L6036 LDY #$0000 CMP $01,S BEQ L601B BCC L601B LDA $01,S L601B SEP #$30 TAX XBA L601F XBA L6020 LDA [$40] STA [$84],Y INC $40 BNE L602E REP #$30 INC $41 SEP #$30 L602E INY DEX BNE L6020 XBA DEC BPL L601F L6036 SEP #$30 PLA PLA RTS L603B LDA $D3 L603D BPL L6053 LDA $60 SEC SBC $00,X STA $00,X LDA $61 SBC $01,X STA $01,X LDA $62 SBC $02,X STA $02,X RTS L6053 BEQ L606D CMP #$01 BEQ L6080 L6059 LDA $57 SEC SBC $00,X STA $00,X LDA $58 SBC $01,X STA $01,X LDA $59 SBC $02,X STA $02,X RTS L606D LDA $5A SEC SBC $00,X STA $00,X LDA $5B SBC $01,X STA $01,X LDA $5C SBC $02,X STA $02,X L6080 RTS L6081 LDA #$80 JSR L6313 SEC BRA L6095 L6089 JSR L608F JMP LE43C ; BRL LE43C L608F LDA #$00 JSR L6313 CLC L6095 BIT $A5 BMI L609C BCS L609E L609B RTS L609C BCS L609B L609E BRL L3F9E L60A1 LDA #$F0 STZ $A5 BRA L60AD L60A7 LDA #$80 BRA L60AD L60AB LDA #$00 L60AD CMP #$F0 BEQ L60B3 STA $A5 L60B3 LDX L0B0A STX $E6 LDX L0B0C STX $D6 LDX L0B0E STZ L05FA,X INX STX $D7 L60C6 PHA JSR L6363 L60CA JSR L61F8 JSR L3CC8 LDY #$00 LDX #$0F CMP #$80 BCC L60DF CMP #$DF BNE L60E7 INY LDA [$4E],Y L60DF CMP L23EE,X BEQ L60EA DEX BNE L60DF L60E7 LDX #$0F DEY L60EA INX INX INX INX DEY BMI L60F4 JSR L3CBE L60F4 CPX #$08 BCS L611D STZ $15 L60FA CMP #$3F BCS L6118 CMP #$3C BCC L6118 EOR #$3F CMP #$03 ADC #$00 EOR $15 CMP $15 BCC L6115 STA $15 JSR L3CBE BRA L60FA L6115 BRL L6356 L6118 JSR L6363 LDX $15 L611D LDY $D7 LDA L05F9,Y AND #$0F CMP L23B6-1,X BCS L618A LDA $A5 AND #$F0 ORA L23B6-1,X STA L05FB,Y TXA STA L05FA,Y INY INY CMP #$13 BNE L6142 LDA L05F7,Y BEQ L617B L6142 STY $D7 CPY #$40 BCC L614B BRL L6351 L614B LDA $D6 ADC #$0B STA $D6 TAY BIT $A5 BPL L6167 LDX #$A6 LDA $A9 JSR L603D LDX #$03 L615F LDA $A6,X STA L0AF0,X DEX BPL L615F L6167 LDX #$09 L6169 LDA L0AF0,X STA L09EF,Y DEY DEX BPL L6169 LDA $A4 STA L09EF,Y BRL L60CA L617B PLA CMP #$F0 BEQ L6186 EOR $A5 AND #$80 BNE L6187 L6186 RTS L6187 BRL L3F9E L618A PHX JSR LDDB4 LDA $D6 TAY SBC #$0B STA $D6 LDX #$0A L6197 LDA L09EF,Y STA L0AEF,X DEY DEX BNE L6197 LDA L09EF,Y TAX JSR LE24E BIT $A5 BPL L61BF LDX #$03 L61AE LDA L0AF0,X STA $A6,X DEX BPL L61AE LDX #$A6 LDA $A9 JSR L603D BRA L61C2 L61BF JSR LE460 L61C2 LDY $D7 DEY DEY STY $D7 LDA L05FB,Y EOR $B5 AND #$80 BNE L6187 LDA L05FA,Y STA $15 ASL TAX BIT $A5 BMI L61E3 JSR (L23C9-2,X) L61DF PLX BRL L611D L61E3 CPX #$24 BEQ L61F0 CMP #$0F BCS L61F5 JSR L63EB BRA L61DF L61F0 JSR L6CD8 BRA L61DF L61F5 BRL L6356 L61F8 JSR L3CBE BCC L6225 CMP #$2B BEQ L6220 CMP #$2D BNE L620B JSR $6220 JMP LDF83 ; BRL LDF83 L620B CMP #$DF BNE L622B LDY #$01 LDA [$4E],Y CMP #$8D BNE L6233 JSR L6306 JSR $6220 JMP LDD96 ; BRL LDD96 L6220 JSR L3CBE BCS L622B L6225 JSR LE558 BCC L61F5 RTS L622B CMP #$80 BCC L623F CMP #$DF BNE L6236 L6233 BRL L62EB L6236 BCS L626B CMP #$87 BEQ L6252 BRL L6356 L623F JSR L6638 BCC L6247 BRL L635B L6247 CMP #$2E BEQ L6225 CMP #$22 BEQ L6257 BRL L632C L6252 JSL L86EC RTS L6257 LDA $4E LDX $50 LDY $4F ADC #$00 BCC L6265 INY BNE L6265 INX L6265 JSR L6E5F BRL L7407 L626B JSR LE28B CMP #$F0 BCS L627C AND #$0F TAX JSR L3D09 TAY TXA BRA L6287 L627C CMP #$FA BEQ L628D BCS L62A1 AND #$0F TAY LDA #$00 L6287 JSR L6306 BRL L790C L628D JSR L3D09 TAY JSR L3D09 BPL L6287 STA L0AF1 STY L0AF0 JSR L6306 BRA L62BB L62A1 CMP #$FC BEQ L62A9 BCS L62C1 BRA L62E8 L62A9 LDX #$00 JSR L6306 L62AE LDA [$4E] STA L0AF0,X JSR L6306 INX CPX #$04 BCC L62AE L62BB JSR LE248 JMP LE460 ; BRL LE460 L62C1 CMP #$FF BEQ L62E8 TAY LDX #$00 JSR L6306 L62CB LDA [$4E] STA L0AF0,X JSR L6306 INX CPX #$08 BCC L62CB CPY #$FD BEQ L62E2 JSR LE23C JMP LE460 ;BRL LE460 L62E2 JSR LE238 JMP LE460 ;BRL LE460 L62E8 BRL L6356 L62EB JSR L3CBE CMP #$E0 BCS L62FA TAX JSR L3CBE TXA BRL L6372 L62FA CMP #$F6 BCS L62E8 ASL TAX JSR L3CBE JMP (L223C,X) L6306 INC $4E BNE L6310 REP #$30 INC $4F SEP #$30 L6310 RTS L6311 LDA #$F0 L6313 STA $A5 L6315 LDX $D7 INX STZ L05FA,X INX STX $D7 CPX #$40 BCS L6351 LDA $A5 JSR L60C6 DEC $D7 DEC $D7 RTS L632C JSR L6342 L632F JSR L6315 L6332 LDA #$29 BRA L6348 L6336 LDA #$3B BRA L6348 L633A LDA #$3D BRA L6348 L633E LDA #$23 BRA L6348 L6342 LDA #$28 BRA L6348 L6346 LDA #$2C L6348 LDY #$00 CMP [$4E] BNE L6356 BRL L3CBE L6351 LDX #$14 L6353 BRL L3FA4 *----------------------- * SCALE( / NOUNS/ADVERBS *----------------------- L6356 LDX #$02 BRL L3FA4 L635B LDX #$FF JSR L64AA JMP LDE7E ;BRL LDE7E L6363 LDA $4E BNE L636F LDA $4F BNE L636D DEC $50 L636D DEC $4F L636F DEC $4E RTS L6372 ASL CMP #$AC BCC L637A BRL L63E1 L637A CMP #$2C BCC L6356 PHA TAX CPX #$A1 BCC L63BA JSR L6081 JSR L6346 PLX LDA $A8 PHA LDA $A7 PHA LDA $A6 PHA PHX CPX #$AA BNE L63B3 JSR L6081 PLX LDA $A8 PHA LDA $A7 PHA LDA $A6 PHA PHX JSR L3CC8 LDX #$01 CMP #$2C BNE L63B6 JSR L3CBE L63B3 JSR L73D3 L63B6 PLY PHX BRA L63E2 L63BA CPX #$81 BCC L63D9 CPX #$8C BCS L63CD JSR L608F JSR L6346 JSR LDDB4 BRA L63D9 L63CD CPX #$96 BCC L63D5 LDA #$F0 BRA L63DB L63D5 LDA #$80 BRA L63DB L63D9 LDA #$00 L63DB STA $A5 JSR L632F PLA L63E1 TAY L63E2 REP #$30 LDA L22FC,Y PHA SEP #$30 RTS L63EB LDA $B6 LDY $B7 LDX $B8 JSR L6D75 PHP STA $AB STX $B6 STY $B7 LDX $42 STX $B8 PLP JSR L6D9D JSR L6D6F PHA JSR L6D9D PLA TAX SEC SBC $AB BEQ L6419 LDA #$01 BCC L6419 LDX $AB LDA #$FF L6419 STA $AA LDY #$FF INX L641E INY DEX BNE L6429 LDX $AA BMI L6435 CLC BRA L6435 L6429 LDA [$40],Y CMP [$B6],Y BEQ L641E LDX #$FF BCS L6435 LDX #$01 L6435 INX TXA ROL AND $15 BEQ L643E LDA #$01 L643E TAY L643F BRL L7A91 *----------------------- * DIM *----------------------- L6442 JSR L6475 BCC L649B LDA $8A CLC ADC #$03 STA $20 JSR L671B STY $0B JSR L6332 JSR L674D LDX #$0F BCC L6460 BRL L3FA4 L6460 LDX $0F LDA L1CDB,X STA $10 JSR L67AA JSR L3CC8 BEQ L6474 JSR L6346 BRA L6442 L6474 RTS L6475 STZ $D3 LDA #$3F STA $10 L647B JSR L3CC8 LDA $4E STA $DE LDA $4F STA $DF LDA $50 STA $E0 JSR L65FB STY $8A LDY L1CD4,X TYX LDY L1EC9,X STY $1F STX $0F RTS L649B BRL L6356 L649E JSR L64A8 STA $84 STY $85 STX $86 L64A7 RTS L64A8 LDX #$00 L64AA STX $11 JSR L6475 BCS L64E5 JSR L6555 BCC L64BC LDA #$40 STA $D3 BRA L64CB L64BC JSR L658F BCS L64CB LDX $0F LDA L1CDB,X STA $10 JSR L668E L64CB SEC TYA ADC $97 BCC L64D6 INX BNE L64D6 INC $99 L64D6 STX $23 TXY STA $22 XBA LDA $D3 XBA LDX $99 STX $24 SEC RTS L64E5 LDA $8A CLC ADC #$03 STA $20 JSR L671B STY $0B JSR L6332 JSR L674D BCS L652C LDA $11 BEQ L6515 LDA #L0B48 LDY #>L0B48 STA $22 STY $23 LDA #^L0B48 STA $24 LDX $0B REP #$30 L650D PLA DEX BNE L650D SEP #$30 BRA L653B L6515 LDX $0B REP #$30 LDA #$000B L651C PHA DEX BNE L651C SEP #$30 LDX $0F LDA L1CDB,X STA $10 JSR L67AA L652C CLC LDA #$00 JSR L66D3 LDA $0B CMP [$8B] BNE L6548 JSR L6892 L653B LDA #$80 STA $D3 XBA LDA $22 LDY $23 LDX $24 SEC RTS L6548 LDX #$0C BRL L3FA4 L654D BIT $10 BPL L6552 RTS L6552 BRL L3F9E L6555 REP #$30 LDA $51 LDX $52 CPX $55 BNE L6563 CMP $54 BEQ L6573 L6563 STA $94 SEP #$30 LDA $53 STA $96 LDA $54 LDX $55 LDY $56 BRA L65A1 L6573 STA $97 STX $98 SEP #$30 CLC RTS L657B REP #$30 LDA $5A STA $94 SEP #$30 LDA $5C STA $96 LDA $5D LDX $5E LDY $5F BRA L65A1 L658F REP #$30 LDA $57 STA $94 SEP #$30 LDA $59 STA $96 LDA $5A LDX $5B LDY $5C L65A1 STY $99 BRA L65B1 L65A5 CLC LDA $20 ADC $97 BCC L65B3 INX BNE L65B1 INC $99 L65B1 STX $98 L65B3 STA $97 CMP $94 BNE L65C5 CPX $95 BNE L65C5 LDY $99 CPY $96 BNE L65C5 CLC RTS L65C5 LDY #$00 LDA [$97] STA $20 L65CB LDA [$DE],Y INY CMP #$2E BEQ L65DD BCC L65E1 CMP #$40 BEQ L65E1 BCC L65DD JSR L664D L65DD CMP [$97],Y BEQ L65CB L65E1 LDA [$97],Y BPL L65A5 AND $10 CMP $0F BNE L65A5 CPY $8A BNE L65A5 LDA [$97],Y CMP #$87 BEQ L65F7 AND #$7F L65F7 SEC STA $10 RTS L65FB LDY #$00 JSR L3CC8 JSR L6638 BCS L6608 L6605 BRL L6356 L6608 INY CPY #$1E BCS L6605 JSR L3CBE BCC L6608 JSR L4F80 BCS L6608 PHA AND #$0F TAX PLA INY JSR L4F93 BCS L662A CMP #$21 BEQ L662A LDX #$02 BRA L662D L662A JSR L3CBE L662D CMP #$28 BNE L6632 RTS L6632 CPX #$01 BEQ L6605 CLC RTS L6638 CMP #$41 BCC L664C SBC #$5B SEC SBC #$A5 BCS L664C CMP #$61 BCC L664C SBC #$7B SEC SBC #$85 L664C RTS L664D CMP #$61 BCC L6657 CMP #$7B BCS L6657 AND #$5F L6657 RTS L6658 SEC LDA $8A STA $20 ADC $1F PHA LDX $65 REP #$30 AND #$00FF ADC $63 SEP #$30 BCC L666E INX L666E JSR L594C REP #$30 STA $63 SEP #$30 STX $65 BRA L669F L667B SEC LDA $8A STA $20 ADC $1F PHA STA $1C STZ $1D STZ $1E JSR L57BD BRA L669F L668E SEC LDA $8A STA $20 ADC $1F PHA STA $1C STZ $1D STZ $1E JSR L57D5 L669F PLA LDY #$00 STA [$97],Y TAY DEY LDX $1F LDA #$00 L66AA STA [$97],Y DEY DEX BNE L66AA LDA $10 STA [$97],Y CMP #$87 BEQ L66BC AND #$7F STA $10 L66BC DEY DEY BMI L66CA LDA [$DE],Y JSR L664D INY STA [$97],Y BRA L66BC L66CA LDX $98 LDY $20 RTS L66CF LDA $0B ASL L66D2 SEC L66D3 ADC $20 ADC $97 LDY $98 LDX $99 BCC L66E1 INY BNE L66E1 INX L66E1 STA $8B STY $8C STX $8D RTS L66E8 JSR L3CBE LDA $DE PHA LDA $DF PHA LDA $E0 PHA LDA $11 PHA JSR L608F PLA STA $11 PLA STA $E0 PLA STA $DF PLA STA $DE BRA L670D *----------------------- * DISPLAY ILLEGAL QUANTITY ERROR *----------------------- L6708 LDX #$05 BRL L3FA4 L670D LDA $AA BMI L6708 JSR LE43C LDA L0AF1 LDY L0AF0 RTS L671B LDY #$00 L671D JSR L6730 INC TAX PLA PHX PHA SEP #$30 INY JSR L3CC8 CMP #$2C BEQ L671D RTS L6730 REP #$30 PHY LDA $0F PHA LDA $1F PHA SEP #$30 JSR L66E8 REP #$30 PLA STA $1F PLA STA $0F PLY LDA L0AF0 RTS SEP #$30 L674D LDA $61 LDX $60 LDY $62 L6753 STA $98 STX $97 STY $99 CPY $5F BNE L6767 CMP $5E BNE L6767 CPX $5D BNE L6767 CLC RTS L6767 LDY #$02 L6769 DEY DEY LDA [$DE],Y INY INY INY JSR L664D CMP [$97],Y BEQ L6769 LDA [$97],Y BPL L6786 AND $10 CMP $0F BNE L6786 INY CPY $20 BEQ L679D L6786 LDY #$00 LDA [$97],Y CLC ADC $97 TAX INY LDA [$97],Y ADC $98 XBA INY LDA [$97],Y ADC $99 TAY XBA BRA L6753 L679D DEY LDA [$97],Y CMP #$87 BEQ L67A6 AND #$7F L67A6 SEC STA $10 RTS L67AA LDA $0B STA $40 LDA $1F STA $C0 STZ $C2 STZ $C1 LDA #$03 STA $41 STZ $42 TSC STA $8B XBA STA $8C STZ $8D L67C4 REP #$30 LDY $41 LDA [$8B],Y INY INY STY $41 SEP #$30 TAY XBA TAX JSR L6939 DEC $40 BNE L67C4 LDX $C2 LDY $C1 LDA $0B ASL SEC ADC $20 ADC $C0 STA $C0 BCC L67EE INY BNE L67EE INX L67EE CPX #$80 BCC L67F5 BRL L3FA2 L67F5 STY $C1 STX $C2 STX $1E STY $1D LDA $C0 STA $1C JSR L57C9 LDA $0B STA $41 STZ $42 LDA #$00 JSR L66D2 REP #$30 PLX LDY #$0000 L6815 PLA STA [$8B],Y INY INY DEC $41 BNE L6815 PHX SEP #$30 LDA $C0 STA [$97] LDA $C1 LDY #$01 STA [$97],Y LDA $C2 INY STA [$97],Y LDA $20 SEC SBC #$02 STA $40 L6837 DEY DEY LDA [$DE],Y INY INY INY JSR L664D STA [$97],Y CPY $40 BCC L6837 LDA $10 INY STA [$97],Y CMP #$87 BEQ L6854 AND #$7F STA $10 L6854 INY LDA $0B STA [$97],Y JSR L66CF LDA $5D SEC SBC $8B STA $C0 LDA $5E SBC $8C STA $C1 LDA $5F SBC $8D STA $C2 REP #$30 LDX $C1 BEQ L6886 LDA #$0000 L6878 LDY #$0100 L687B DEY DEY STA [$8B],Y BNE L687B INC $8C DEX BNE L6878 L6886 SEP #$30 LDY $C0 BEQ L6891 L688C DEY STA [$8B],Y BNE L688C L6891 RTS L6892 LDA $0B STA $41 LDA #$00 JSR L66D2 LDY #$00 STY $C0 STY $C1 STY $C2 L68A3 REP #$30 PLA PLX DEX STX L0AF0 PHA TXA CMP [$8B],Y SEP #$30 BCC L68B6 BRL L6548 L68B6 INY LDA $C1 ORA $C2 ORA $C0 CLC BEQ L68D7 STY $40 LDA [$8B],Y TAX DEY LDA [$8B],Y TAY JSR L6939 CLC LDA $C0 ADC L0AF0 TAX LDA $C1 LDY $40 L68D7 ADC L0AF1 STX $C0 STA $C1 BCC L68E2 INC $C2 L68E2 INY DEC $41 BNE L68A3 JSR L66CF LDY $1F LDX #$00 JSR L6939 REP #$30 LDA $C0 CLC ADC $8B STA $22 SEP #$30 LDA $C2 ADC $8D STA $24 RTS L6903 JSR L6475 BCS L6916 JSR L6555 BCS L6912 JSR L658F BCC L6915 L6912 BRL L64CB L6915 RTS L6916 LDA $8A CLC ADC #$03 STA $20 L691D JSR L671B STY $0B JSR L6332 JSR L674D BCC L692D BRL L652C L692D LDX $0B REP #$30 L6931 PLA DEX BNE L6931 SEP #$30 CLC RTS L6939 STY $EF STX $F0 JSR L694C XBA BNE L6949 XBA CMP #$80 BCS L6949 RTS L6949 BRL L3FA2 L694C STZ $C3 REP #$20 STZ $EB STZ $ED LDY #$10 L6956 ASL $EB ROL $ED ASL $EF BCC L696B CLC LDA $C0 ADC $EB STA $EB LDA $C2 ADC $ED STA $ED L696B DEY BNE L6956 LDA $EB STA $C0 LDA $ED STA $C2 SEP #$30 RTS *----------------------- * UBOUND() *----------------------- L6979 JSR L6475 BCC L6984 JSR L6306 JSR L6332 L6984 JSR L3CC8 BNE L6990 REP #$30 LDA #$0001 BRA L699E MX %11 L6990 CMP #$2C BNE L69D9 LDA $8A CLC ADC #$03 STA $20 JSR L6730 L699E PHA SEP #$30 JSR L6332 JSR L674D BCC L69D1 PLA BEQ L69BE PLX BNE L69BE STA $0B LDA #$00 CLC JSR L66D3 LDA [$8B] SEC SBC $0B BCS L69C1 L69BE BRL L6708 L69C1 STA $0B JSR L66CF REP #$30 LDA [$8B] SEP #$30 TAY XBA BRL L790C L69D1 LDX #$38 BRL L3FA4 L69D6 BRL L5EC3 L69D9 BRL L6356 *----------------------- * ERASE *----------------------- L69DC BEQ L69D9 L69DE JSR L6475 BCS L6A12 JSR L658F BCC L69D6 LDA [$97] REP #$30 AND #$00FF CLC ADC $97 STA $40 SEP #$30 LDA $99 BCC L69FB INC L69FB STA $42 JSR L58FF JSR L6AF9 L6A03 JSR L3CC8 BNE L6A09 RTS L6A09 CMP #$2C BNE L69D9 JSR L6306 BRA L69DE L6A12 LDA $8A CLC ADC #$03 STA $20 JSR L6306 JSR L6332 JSR L674D BCC L69D1 LDY #$03 L6A26 INY LDA [$97],Y BPL L6A26 CMP #$87 BNE L6A45 JSR L6ACF L6A32 LDA [$A6] BEQ L6A3C JSR L6D61 JSR L6D9F L6A3C JSR L6AB9 BCC L6A32 CMP $94 BNE L6A32 L6A45 REP #$30 LDA [$97] CLC ADC $97 STA $40 SEP #$30 LDY #$02 LDA [$97],Y ADC $99 STA $42 JSR L5903 JSR L6A60 BRA L6A03 L6A60 REP #$30 LDA $98 SEP #$30 LDX $97 L6A68 STX $97 REP #$30 CMP $5E SEP #$30 BNE L6A77 CPX $5D BNE L6A77 RTS L6A77 LDY #$03 L6A79 INY LDA [$97],Y BPL L6A79 CMP #$87 BEQ L6A96 LDY #$01 LDA [$97] CLC ADC $97 TAX REP #$30 LDA [$97],Y ADC $98 STA $98 SEP #$30 BRA L6A68 L6A96 JSR L6ACF L6A99 LDA [$A6] BEQ L6AAD JSR L6D61 TAY INY REP #$30 LDA [$40],Y SEC SBC $1C STA [$40],Y SEP #$30 L6AAD JSR L6AB9 BCC L6A99 CMP $94 BNE L6A99 BRL L6A68 L6AB9 LDA $A6 CLC ADC #$03 STA $A6 BCC L6AC6 REP #$30 INC $A7 L6AC6 REP #$30 LDX $A7 CPX $95 SEP #$30 RTS L6ACF INY LDA [$97],Y STA $0B STY $20 LDY #$01 LDA [$97] CLC ADC $97 STA $94 REP #$30 LDA [$97],Y ADC $98 STA $95 SEP #$30 JSR L66CF LDA $8D STA $A8 REP #$30 LDA $8B STA $A6 SEP #$30 RTS L6AF9 REP #$30 LDA $94 CLC ADC $1C STA $94 SEP #$30 LDA $96 ADC $1E STA $96 LDA $97 BRA L6B1B L6B0E LDA $20 CLC ADC $97 BCC L6B1B REP #$30 INC $98 SEP #$30 L6B1B STA $97 CMP $94 BNE L6B2C REP #$30 LDA $98 CMP $95 SEP #$30 BNE L6B2C RTS L6B2C LDA [$97] STA $20 LDY #$01 L6B32 INY LDA [$97],Y BPL L6B32 CMP #$87 BNE L6B0E INY TYA CLC LDY $98 LDX $99 ADC $97 BCC L6B4A INY BNE L6B4A INX L6B4A JSR L6D67 TAY REP #$30 INY LDA [$40],Y SEC SBC $1C STA [$40],Y SEP #$30 BRA L6B0E L6B5C STZ $14 STZ $16 STZ $17 LDA $6C LDX $6E LDY $6D STA $8B STX $8D STY $8C BRL L6C33 L6B71 LDA [$94] STA $BE STA $DC LDY #$01 LDA [$94],Y STA $DA INY LDA [$94],Y STA $DB STA $21 LDA $BE CMP #$00 BNE L6BB5 LDA $16 LDY $17 CLC ADC $21 BCC L6B94 INY L6B94 CLC ADC #$03 BCC L6B9A INY L6B9A STA $16 STY $17 LDX $14 STZ $14 BEQ L6C22 LDA $66 STA $97 LDA $68 STA $99 LDA $67 STA $98 JSR L5812 BRA L6C22 L6BB5 LDX $14 STA $14 BNE L6BC7 LDA $66 STA $91 LDA $67 STA $92 LDA $68 STA $93 L6BC7 LDA $BE CMP #$50 BNE L6BD2 JSR L6C79 BRA L6C12 L6BD2 CMP #$60 BEQ L6BF3 CMP #$80 BCS L6BE3 CMP #$40 BEQ L6BEB LDX #$42 BRL L3FA4 L6BE3 LDY $61 LDX $62 LDA $60 BRA L6BFF L6BEB LDY $58 LDX $59 LDA $57 BRA L6BF9 L6BF3 LDY $5B LDX $5C LDA $5A L6BF9 XBA LDA #$FF STA $DC XBA L6BFF SEC SBC $DA STA $DA TYA SBC $DB STA $DB TXA SBC $DC STA $DC LDA [$DA] STA $21 L6C12 LDY #$01 SEC LDA [$DA],Y SBC $16 STA [$DA],Y INY LDA [$DA],Y SBC $17 STA [$DA],Y L6C22 LDA $94 LDY $95 LDX $96 SEC SBC $21 BCS L6C33 LDY $95 BNE L6C32 DEX L6C32 DEY L6C33 STA $66 STY $67 STX $68 CPX $6B BNE L6C55 CPY $6A BNE L6C55 CMP $69 BNE L6C55 LDA $14 CMP #$00 BEQ L6C6C LDA $69 STA $97 STX $99 STY $98 BRA L6C69 L6C55 SEC SBC #$03 BCS L6C60 LDY $67 BNE L6C5F DEX L6C5F DEY L6C60 STX $96 STY $95 STA $94 BRL L6B71 L6C69 JSR L5812 L6C6C LDA $8B STA $69 LDA $8C STA $6A LDA $8D STA $6B RTS L6C79 LDA #$00 STA $DC LDA #$34 LDX $05 STA $DA STX $DB L6C85 CMP $32 BEQ L6CCD LDY #$00 LDA [$DA],Y BEQ L6CC4 STA $21 INY LDA $6C SEC SBC [$DA],Y STA $97 INY LDA $6D SBC [$DA],Y STA $98 LDA $6E SBC #$00 STA $99 LDA $21 CLC ADC $97 STA $97 LDX $99 LDY $98 BCC L6CB7 INY BNE L6CB7 INX L6CB7 CPX $96 BNE L6CC4 CPY $95 BNE L6CC4 CMP $94 BNE L6CC4 RTS L6CC4 LDA #$03 CLC ADC $DA STA $DA BRA L6C85 L6CCD JSR L3F4C BRL L5EC3 L6CD3 LDX #$13 BRL L3FA4 L6CD8 LDY #$00 LDA [$A6],Y CLC ADC [$B6],Y BCC L6CE6 JSR L6D1A BRA L6CD3 L6CE6 JSR L6DD5 LDX $A6 LDY $A7 STX $BB STY $BC LDX $A8 STX $BD JSR L6D3C CLC ADC $66 STA $66 BCC L6D05 INC $67 BNE L6D05 INC $68 L6D05 LDX $B6 LDY $B7 STX $BB STY $BC LDX $B8 STX $BD JSR L6D3C JSR L6D1A BRL L6EAA L6D1A LDA $B6 LDY $B7 LDX $B8 JSR L7389 BRL L72CA L6D26 PHA LDA $6C SEC SBC $40 STA $40 LDA $6D SBC $41 STA $41 LDA $6E SBC $42 STA $42 PLA RTS L6D3C LDY #$00 LDA [$BB],Y PHA INY LDA [$BB],Y STA $40 INY LDA [$BB],Y STA $41 LDA #$00 STA $42 JSR L6D26 PLA L6D53 TAY BEQ L6D60 PHA L6D57 DEY LDA [$40],Y STA [$66],Y TYA BNE L6D57 PLA L6D60 RTS L6D61 LDA $A6 LDY $A7 LDX $A8 L6D67 STA $40 STY $41 STX $42 BRA L6D7E L6D6F LDA $A6 LDX $A8 LDY $A7 L6D75 STA $40 STX $42 STY $41 L6D7B JSR L6DB5 L6D7E PHP LDY #$00 LDA [$40],Y PHA INY LDA [$40],Y TAX INY LDA [$40],Y LDY #$00 STY $42 STA $41 STX $40 JSR L6D26 LDX $40 LDY $41 PLA PLP RTS L6D9D BNE L6DB4 L6D9F CMP #$00 BEQ L6DB4 TAY REP #$10 XBA LDA #$00 STA [$40],Y INY STA [$40],Y XBA INY STA [$40],Y SEP #$30 L6DB4 RTS L6DB5 PHA LDA #$34 CMP $32 PLA BCC L6DC0 LDA #$FF RTS L6DC0 CPX #$00 BNE L6DD4 CPY $05 BNE L6DD4 CMP $33 BNE L6DD4 STA $32 SBC #$03 STA $33 LDY #$00 L6DD4 RTS L6DD5 LDX $A8 STX $89 LDX $A6 LDY $A7 L6DDD STX $87 STY $88 L6DE1 JSR L6E01 STX $AC LDX $68 STX $AE STY $AD STA $AB TAX BEQ L6E00 LDY #$02 STA [$8B],Y DEY LDA #$00 STA [$8B],Y DEY LDA #$50 STA [$8B],Y TXA L6E00 RTS L6E01 AND #$FF BEQ L6E5E PHA BRA L6E0D L6E08 LDX #$0A JSR L6B5C L6E0D LDA $69 LDY $6A LDX $6B SEC SBC #$03 BCS L6E1E LDY $6A BNE L6E1D DEX L6E1D DEY L6E1E STY $8C STX $8D STA $8B SEC SBC $01,S BCS L6E2F LDY $8C BNE L6E2E DEX L6E2E DEY L6E2F CPX $65 BCC L6E08 BNE L6E3D DEY CPY $64 BCC L6E08 BEQ L6E08 INY L6E3D STA $66 STY $67 STX $68 PHA CLC SBC $6C TYA SBC $6D TXA SBC $6E CLC ADC #$01 PLA BCC L6E08 STX $6B STA $69 STY $6A LDX $66 LDY $67 PLA L6E5E RTS L6E5F PHA LDA #$22 STA $0C STA $0D PLA L6E67 STA $BB STY $BC STX $BD LDY #$FF L6E6F INY LDA [$BB],Y BEQ L6E80 CMP $0C BEQ L6E7C CMP $0D BNE L6E6F L6E7C CMP #$22 BEQ L6E81 L6E80 CLC L6E81 STY $AB TYA ADC $BB STA $C0 LDX $BD STX $C2 LDX $BC BCC L6E95 INX BNE L6E95 INC $C2 L6E95 STX $C1 L6E97 TYA JSR L6DD5 LDX $BB LDY $BC STX $40 STY $41 LDX $BD STX $42 JSR L6D53 L6EAA LDX $32 CPX #$44 BNE L6EB5 LDX #$57 BRL L3FA4 L6EB5 LDA $AB STA $00,X BEQ L6ED1 SEC LDA $6C SBC $AC STA $01,X LDA $6D SBC $AD STA $02,X LDA $6E SBC $AE BEQ L6ED5 JSR L3F4C L6ED1 STZ $01,X STZ $02,X L6ED5 STX $A6 LDY $05 STY $A7 LDY #$00 STY $A8 LDY #$01 STY $A9 STX $33 INX INX INX STX $32 JMP LE234 ;BRL LE234 L6EED LDA $87 LDY $88 LDX $89 STA $BB STY $BC STX $BD JSR L6D3C BRA L6EAA L6EFE LDA $56 STA $99 REP #$30 LDA $54 STA $97 SEP #$30 BRA L6F19 L6F0C LDA $20 CLC ADC $97 BCC L6F19 REP #$30 INC $98 SEP #$30 L6F19 STA $97 CMP $51 BNE L6F2A REP #$30 LDA $98 CMP $52 SEP #$30 BNE L6F2A RTS L6F2A LDA [$97] STA $20 LDY #$01 L6F30 INY LDA [$97],Y BPL L6F30 CMP #$87 BNE L6F0C INY TYA CLC LDY $98 LDX $99 ADC $97 BCC L6F48 INY BNE L6F48 INX L6F48 JSR L6D67 JSR L6D9F L6F4E BRA L6F0C *----------------------- * STR$() *----------------------- L6F50 JSR LE658 BRL L6E5F L6F56 LDY #$09 LDA #$0B BRA L6F60 L6F5C LDA #$08 LDY #$00 L6F60 PHY PHA REP #$30 PEA ^L0231 PEA L0231 _ReadAsciiTime SEP #$30 PLA PLY STA $0B LDX #$00 L6F79 LDA L0231,Y AND #$7F STA L0231,X INX INY CPX $0B BCC L6F79 LDA $0B BRL L70F2 *----------------------- * E2 - LOGO *----------------------- L6F8C JSR L6FC8 LDX #$03 L6F91 LDA $BF,X STA L0B56,X DEX BNE L6F91 BRA L6FB1 *----------------------- * E3 - LOGO *----------------------- L6F9B JSR L6FC8 DEC $C1 DEC $C2 LDA $C0 STA L0B56 LDA $C1 STA L0B54 LDA $C2 STA L0B55 L6FB1 LDX #$00 L6FB3 LDA L0B54,X PHA INX CPX #$06 BCC L6FB3 REP #$30 _WriteTimeHex SEP #$30 RTS L6FC8 JSR L73D3 STX $C0 JSR L6346 JSR L73D3 STX $C1 JSR L6346 JSR L73D3 STX $C2 L6FDD REP #$30 LDA #$0000 PHA PHA PHA PHA _ReadTimeHex SEP #$30 LDX #$08 L6FF1 PLA STA L0B51,X DEX BNE L6FF1 RTS *----------------------- * DATE() *----------------------- L6FF9 JSR L73D6 CPX #$01 BCC L700A BEQ L7012 CPX #$04 BCC L702A BEQ L7025 BRA L7036 L700A JSR L6FDD LDY L0B56 BRA L702E L7012 LDA L0B56 REP #$30 AND #$00FF CLC ADC #$076C SEP #$30 TAY XBA BRL L790C L7025 LDY L0B52 BRA L702E L702A LDY L0B52,X INY L702E BRL L7A91 *----------------------- * TIME() *----------------------- L7031 JSR L73D6 CPX #$04 L7036 BCS L7094 CPX #$01 BCS L7041 JSR L6FDD LDX #$01 L7041 LDY L0B56,X BRL L7A91 *----------------------- * ERRTXT$() *----------------------- L7047 JSR L73D6 CPX #$5A BCS L7094 JSR L409C TYA LDX $42 LDY $41 CLC ADC $40 STA $BB BCC L7061 INY BNE L7061 INX L7061 STX $BD STY $BC LDY #$FF L7067 INY LDA [$BB],Y BPL L7067 PHY INY JSR L6E97 PLY LDA [$66],Y AND #$7F STA [$66],Y RTS *----------------------- * SPACE$() *----------------------- L7079 JSR L73D6 LDA #$20 L707E PHA TXA JSR L6DE1 TAY PLA TYX BEQ L7091 L7088 DEY BEQ L708F STA [$AC],Y BRA L7088 L708F STA [$AC] L7091 BRL L6EAA L7094 BRA L70CC *----------------------- * REP$() *----------------------- L7096 JSR L7361 PHA LDA [$87] BNE L70A3 LDA #$3F PLX BRA L707E L70A3 LDA $87 LDY $88 LDX $89 JSR L6D67 LDA [$40] PHA JSR L7383 PLA PLX BRA L707E *----------------------- * PFX$() *----------------------- L70B6 JSR L73D6 TXA CMP #$08 BCC L70E0 BNE L70CC JSL GSOS DW $0028 ; GetBootVol ADRL L178F BCC L70EF L70CC BRL L6708 JSR L73D3 CPX #$08 BCS L70CC STX L1799 JSR L6332 BRA L7105 L70DE LDA #$00 L70E0 STA L178D JSL GSOS DW $000A ; GetPrefix ADRL L178D BCS L711B L70EF LDA L0230 L70F2 TAY LDA #L0231 STA $BB LDA #>L0231 STA $BC LDA #^L0231 STA $BD L70FF BRL L6E97 *----------------------- * E4 - LOGO *----------------------- L7102 STZ L1799 L7105 JSR L633A JSR LB755 JSR L3623 JSL GSOS DW $0009 ; SetPrefix ADRL L1799 BCS L711B RTS L711B BRL L3F75 L711E LDY L0087 BEQ L7125 DEY DEY L7125 LDA #^L008A STA $BD REP #$30 LDA #L008A STA $BB SEP #$30 BRL L6E97 *----------------------- * E5 - LOGO *----------------------- L7135 JSR L633A BRL LB749 *----------------------- * INSTR() *----------------------- L713B PLA STA $BE JSR L6332 PLA STA $40 STA $A6 PLA STA $41 STA $A7 PLA STA $42 STA $A8 PLA STA $B6 PLA STA $B7 PLA STA $B8 JSR L6D7E STA $13 LDY #$00 LDA [$B6],Y CMP $13 BCC L71AF SEC SBC $13 STA $0E DEC $BE INY REP #$30 LDA [$B6],Y STA $44 SEP #$30 STZ $46 JSR L72D0 LDA $BE CLC ADC $44 STA $44 BCC L718A INC $45 BNE L718A INC $46 L718A LDA $0E CMP $BE BCC L71AF LDY #$00 L7192 LDA [$44],Y CMP [$40],Y BNE L71A1 INY CPY $13 BCC L7192 LDY $BE BRA L71B1 L71A1 INC $BE INC $44 BNE L718A REP #$30 INC $45 SEP #$30 BRA L718A L71AF LDY #$FF L71B1 INY TYA PHA JSR L72CA LDX $B8 LDA $B6 LDY $B7 JSR L7389 PLA TAY BRL L7A91 *----------------------- * UCASE$() *----------------------- L71C5 LDA $A9 CMP #$01 BEQ L71D5 LDA [$A6] BEQ L71E6 JSR L6DD5 JSR L6EED L71D5 JSR L6D61 TAY L71D9 TYA BEQ L71E6 DEY LDA [$40],Y JSR L664D STA [$40],Y BRA L71D9 L71E6 RTS *----------------------- * SUB$( *----------------------- L71E7 JSR L64A8 JSR L654D LDX #$22 JSR L603B LDA $22 PHA LDA $23 PHA LDA $24 PHA LDA $D3 PHA JSR L6346 JSR L73D3 PHX JSR L3CC8 CMP #$2C BNE L7214 JSR L3CBE JSR L73D3 BRA L7216 L7214 LDX #$FF L7216 PHX JSR L6332 JSR L633A JSR L60A7 PLA STA $1C PLA STA $13 BEQ L725A DEC $13 LDA [$A6] CMP $1C BCS L7232 STA $1C L7232 PLA STA $D3 PLA STA $86 PLA STA $85 PLA STA $84 LDX #$84 JSR L603B LDA [$84] STA $1D LDY #$01 REP #$30 LDA [$84],Y STA $44 SEP #$30 STZ $46 LDA $13 CLC ADC $1C BCC L725D L725A BRL L6708 L725D CMP $1D BCC L72A8 BEQ L72A8 LDX $86 STX $89 LDX $84 LDY $85 JSR L6DDD TAY DEY LDA #$20 L7272 STA [$66],Y DEY BNE L7272 STA [$66],Y LDA $1C PHA LDA $13 PHA LDA $A6 PHA LDA $A7 PHA LDA $A8 PHA JSR L6EED PLA STA $A8 PLA STA $A7 PLA STA $A6 PLA STA $13 PLA STA $1C LDA $AD STA $45 LDA $AC STA $44 LDA $AE STA $46 BRA L72AB L72A8 JSR L72D0 L72AB LDA $13 CLC ADC $44 STA $44 BCC L72BA INC $45 BNE L72BA INC $46 L72BA JSR L6D61 LDY #$00 BEQ L72C6 L72C1 LDA [$40],Y STA [$44],Y INY L72C6 CPY $1C L72C8 BCC L72C1 L72CA JSR L6D6F BRL L6D9D L72D0 SEC LDA $6C SBC $44 STA $44 LDA $6D SBC $45 STA $45 LDA $6E SBC $46 STA $46 RTS *----------------------- * CHR$() *----------------------- L72E4 JSR L73D6 TXA L72E8 PHA LDA #$01 JSR L6DE1 PLA LDY #$00 STA [$AC],Y BRL L6EAA *----------------------- * LEFT$() *----------------------- L72F6 JSR L7361 CMP [$87],Y TYA L72FC BCC L7302 LDA [$87],Y TAX TYA L7302 PHA L7303 TXA L7304 PHA JSR L6DE1 LDA $87 LDX $89 LDY $88 JSR L6D67 PLA TAY PLA CLC ADC $40 STA $40 BCC L7321 INC $41 BNE L7321 INC $42 L7321 TYA JSR L6D53 JSR L7383 BRL L6EAA *----------------------- * RIGHT$() *----------------------- L732B JSR L7361 CLC SBC [$87],Y EOR #$FF BRL L72FC *----------------------- * MID$() *----------------------- L7336 LDA #$FF STA L0AF0 JSR L3CC8 CMP #$29 BEQ L7348 JSR L6346 JSR L73D3 L7348 JSR L7361 DEX TXA PHA CLC LDX #$00 SBC [$87],Y BCS L7303 EOR #$FF CMP L0AF0 BCC L7304 LDA L0AF0 BRA L7304 L7361 JSR L6332 JSR LE234 PLY PLA XBA PLX PLA STA $87 PLA STA $88 PLA STA $89 XBA PHA PHY LDY #$00 TXA BEQ L73C8 RTS *----------------------- * LEN() *----------------------- L737D JSR L738F JSR L7A91 L7383 LDA $87 LDX $89 LDY $88 L7389 JSR L6D75 BRL L6D9D L738F LDA $A6 STA $40 STA $87 LDA $A7 STA $41 STA $88 LDA $A8 STA $42 STA $89 JSR L6D7E TAY JSR LE24C JSR LE28B TYA RTS *----------------------- * ASC() *----------------------- L73AD JSR L738F BNE L73BD LDA #$01 STA $A4 JSR LE298 JSR LDF83 RTS L73BD LDY #$00 LDA [$40],Y TAY JSR L7A91 BRL L7383 L73C8 BRL L6708 L73CB JSR L6346 ; check for comma BRA L73D3 L73D0 JSR L3CBE L73D3 JSR L608F L73D6 JSR L670D LDX L0AF1 BNE L73C8 LDX L0AF0 L73E1 BRL L3CC8 *----------------------- * VAL() *----------------------- L73E4 JSR L737D BEQ L7413 LDX $4E LDY $4F STX $C0 STY $C1 LDX $50 STX $C2 LDX $40 STX $4E LDX $42 STX $50 LDY $41 STY $4F JSR L3CC8 JSR LE558 L7407 LDX $C0 LDY $C1 STX $4E STY $4F LDX $C2 STX $50 L7413 RTS L7414 JSR L6089 LDA L0AF0 ROL LDA #$00 ADC L0AF1 BEQ L7424 BRA L7443 L7424 LDX L0AF0 BRL L3CC8 JSR L3CBE L742D JSR L608F JSR LE440 REP #$30 LDA L0AF2 SEP #$30 BNE L7443 LDA L0AF0 LDY L0AF1 RTS L7443 BRL L6708 *----------------------- * GRAF *----------------------- L7446 BEQ L7465 ; exit if direct JSR L6306 CMP #$8F ; OFF BEQ L7466 CMP #$90 ; ON BEQ L745A CMP #$98 ; INIT BNE L7465 BRL L2F00 L745A REP #$30 _GrafOn SEP #$30 L7465 RTS L7466 REP #$30 _GrafOff SEP #$30 RTS *----------------------- * E8 - LOGO *----------------------- L7472 JSR L74CE CPX #$02 STX L0B20 RTS L747B LDY L0B20 BRL L7A91 L7481 LDA #$06 XBA LDA #L0B3A LDY #>L0B3A LDX #^L0B3A BRL LDE84 L748D LDA $CE LDY $CD L7491 BRL L790C *----------------------- * RANDOMIZE *----------------------- L7494 JSR L60AB JSR LE440 REP #$30 PEA ^L0AF0 PEA L0AF0 PEA ^L0B30 PEA L0B30 LDA #$0300 ORA #$000E PHA LDX #$0000 JSL L00F7 SEP #$30 RTS *----------------------- * E9 - LOGO *----------------------- L74B9 JSR L74CE STX L0B1E RTS *----------------------- * E6 - LOGO *----------------------- L74C0 JSR L74CE STX L0B1A RTS *----------------------- * E7 - LOGO *----------------------- L74C7 JSR L74CE STX L0B1C RTS L74CE JSR L633A L74D1 BRL L73D3 *----------------------- * E0 - LOGO *----------------------- L74D4 JSR L74DD STA $2F RTS L74DA BRL L6708 L74DD LDAL $0005FB STA $2C JSR L74CE TXA BEQ L74EA DEC L74EA STA $2B JSR LAC26 LDA $2B INC RTS *----------------------- * DF E1 - VPOS *----------------------- L74F3 LDAL $00057B STA $2B JSR L74CE TXA BEQ L7500 DEC L7500 STA $2C L7502 BRL LAC26 *----------------------- * NORMAL *----------------------- L7505 LDA #$0E L7507 BRL LA9C4 *----------------------- * INVERSE *----------------------- L750A LDA #$0F L750C BRL LA9C4 *----------------------- * TRACE *----------------------- L750F BEQ L751E LDA #$81 JSR L80C3 JSR LB71C BNE L7520 BRL LB6AC L751E LDX #$FF L7520 INX L7521 BRA L7527 *----------------------- * NOTRACE *----------------------- L7523 BNE L7529 LDX #$80 L7527 STX $C4 L7529 RTS *----------------------- * TEXT *----------------------- L752A BNE L7544 JSR L7466 L752F STZ $2B STZ $2D LDA #$50 ; 80 columns STA $2C LDA #$18 ; 24 lines STA $2E JSR LABE4 JSR LA2D1 JSR L933A L7544 RTS *----------------------- * HOME *----------------------- L7545 BNE L7544 L7547 LDA #$0C BRL LA9C4 *----------------------- * ASSIGN *----------------------- L754C JSR LB755 JSR L6346 JSR L60AB JSR LE440 BIT $AA BMI L75CD JSR L34E7 BCC L7567 LDX #$26 L7563 TXA BRL L3FA4 L7567 LDY #$00 LDX #$2B L756B LDA L17D5,Y BMI L7563 BEQ L7579 TYA CLC ADC #$10 TAY BRA L756B L7579 TYA LSR LSR LSR STA $0B LDX #$00 L7581 LDA L0007,X JSR L664D STA L17D5,Y INY INX CPX L0007 BCC L7581 BEQ L7581 LDA #$02 STA $BE JSR L3CC8 BEQ L75A6 JSR L6346 LDA #$94 JSR L80C3 INC $BE L75A6 LDA L0AF2 ORA L0AF1 BNE L75CA LDA L0AF0 BNE L75B7 LDA #$08 STA $BE L75B7 CMP #$08 BCC L75BE BRL L6708 L75BE LDX $0B STA L1897,X LDA $BE STA L1898,X BRA L75DA L75CA BRL LD58D L75CD JSR L34E7 BCC L75DA LDX $0D STZ L17D5,X STZ L17D5+1,X L75DA RTS *----------------------- * FILE() *----------------------- L75DB STZ $77 STZ $78 STZ $84 JSR LB7AE JSR L3CC8 CMP #$29 BEQ L7601 JSR L6346 LDX #$01 LDA #$92 JSR L80A8 BEQ L7627 JSR L6306 JSR LB5E4 STX $78 DEC $77 L7601 JSR L6332 JSR LB219 BCC L7613 CMP #$46 BNE L7610 L760D BRL LDD9D L7610 BRL L3F75 L7613 BIT $77 BPL L761E LDA $78 CMP L18F8+2 BNE L760D L761E LDA L18F8+2 STA L07F0 BRL LDDA6 L7627 BRL L6356 *----------------------- * EXEVENT@() *----------------------- L762A JSR L73D3 JSR L6332 CPX #$80 BCC L7637 L7634 BRL L6708 L7637 CPX #$20 BCC L7634 TXA SBC #$20 ASL JSR LE28F REP #$30 ASL ASL AND #$03FF CLC ADC #L1EF1 STA L0AF0 SEP #$30 LDX #^L1EF1 STX L0AF2 BRL L78F3 *----------------------- * TEN() *----------------------- L765A JSR L738F LDX #$08 LDA #$30 L7661 STA L0B23,X DEX BNE L7661 LDX #$08 L7669 TYA BEQ L768D DEY LDA [$40],Y CMP #$24 BEQ L768D CMP #$20 BEQ L768D JSR L4F89 BCS L7687 JSR L664D CMP #$41 BCC L768D CMP #$47 BCS L768D L7687 STA L0B23,X DEX BNE L7669 L768D LDY #$08 LDX #$00 L7691 LDA L0B23,Y JSR L76B8 ORA L0AF0,X STA L0AF0,X DEY LDA L0B23,Y JSR L76B8 ASL ASL ASL ASL ORA L0AF0,X STA L0AF0,X INX DEY BNE L7691 JSR L7383 BRL L78F3 L76B8 CMP #$5B BCC L76BE AND #$5F L76BE SEC SBC #$30 BCC L7704 CMP #$0A BCC L76D1 SBC #$07 CMP #$10 BCS L7704 CMP #$0A BCC L7704 L76D1 RTS *----------------------- * HEX$() *----------------------- L76D2 JSR LE440 LDA #$08 JSR L6DE1 LDY #$07 LDX #$00 L76DE LDA L0AF0,X PHA AND #$0F JSR L76FB STA [$AC],Y DEY PLA LSR LSR LSR LSR JSR L76FB STA [$AC],Y INX DEY BPL L76DE BRL L6EAA L76FB ORA #$30 CMP #$3A BCC L7703 ADC #$06 L7703 RTS L7704 LDX #$05 BRL L3FA4 *----------------------- * SWAP *----------------------- L7709 JSR L64A8 PHA PHY LDA $24 PHA LDA $D3 PHA LDX $10 PHX JSR L6346 JSR L64A8 PLA CMP $10 BEQ L7725 BRL L3F9E L7725 PLA STA $BE PLA STA $42 PLA STA $41 PLA STA $40 LDY $1F DEY JSR L778F LDY #$00 LDA [$40],Y BNE L7752 LDA [$22],Y BEQ L778E LDA $22 PHA LDA $23 PHA LDA $24 PHA LDA $D3 PHA JSR L779D BRA L7762 L7752 LDA [$22],Y BNE L7780 LDA $40 PHA LDA $41 PHA LDA $42 PHA LDA $BE PHA L7762 JSR L77B3 LDA $40 STA $8B LDA $41 STA $8C LDA $42 STA $8D PLA STA $D3 PLA STA $86 PLA STA $85 PLA STA $84 BRL L5E9A L7780 JSR L77B3 JSR L779D JSR L77B3 LDY #$02 JSR L778F L778E RTS L778F LDA [$40],Y TAX LDA [$22],Y STA [$40],Y TXA STA [$22],Y DEY BPL L778F RTS L779D LDX #$01 L779F LDA $40,X LDY $22,X STY $40,X STA $22,X DEX BPL L779F LDA $42 LDY $24 STY $42 STA $24 RTS L77B3 JSR L6D7E CLC ADC $40 STA $40 BCC L77C3 INC $41 BNE L77C3 INC $42 L77C3 RTS L77C4 JSR L6B5C L77C7 JSR LE28F SEC LDA $69 SBC $63 STA L0AF0 LDA $6A SBC $64 STA L0AF1 LDA $6B SBC $65 STA L0AF2 BRL L78F3 *----------------------- * FREMEN() *----------------------- L77E3 JSR L73D6 TXA JSR LE28F CMP #$01 BCC L77C7 BEQ L780E CMP #$03 BCC L781B BEQ L7832 CMP #$05 BCC L7842 BEQ L7856 CMP #$07 BCC L7862 BEQ L786C CMP #$09 BCC L787D BEQ L780B BRL L6708 L780B BRL L788E L780E JSR L6B5C LDX L1040 REP #$30 LDA L1041 BRA L7827 L781B SEC LDA $5D SBC $60 TAX REP #$30 LDA $5E SBC $61 L7827 STA L0AF1 SEP #$30 STX L0AF0 L782F BRL L78F3 L7832 SEC LDA $57 SBC $5A TAX REP #$30 LDA $58 SBC $5B BRA L7827 SEP #$30 L7842 SEC LDA L107C SBC L1068 TAX REP #$30 LDA L107D SBC L1069 BRA L7827 SEP #$30 L7856 LDX L1048 REP #$30 LDA L1049 BRA L7827 SEP #$30 L7862 LDX L1044 REP #$30 LDA L1045 BRA L7827 L786C REP #$30 PEA $0000 PEA $0000 _FreeMem BRA L789D L787D REP #$30 PEA $0000 PEA $0000 _MaxBlock BRA L789D L788E REP #$30 PEA $0000 PEA $0000 _TotalMem L789D PLA STA L0AF0 PLA STA L0AF2 SEP #$30 BRA L782F *----------------------- * R.STACK&() *----------------------- L78A9 JSR L73D6 CPX #$0E BCS L78F9 TXA JSR LE28F ASL TAY LDX #$00 REP #$30 L78BA LDA L10A3,Y STA L0AF0,X INY INY INX INX CPX #$0008 BCC L78BA SEP #$30 JSR LE238 JMP LE460 ;BRL LE460 *----------------------- * R.STACK@() *----------------------- L78D1 JSR L73D6 CPX #$10 BCS L78F9 TXA JSR LE28F ASL TAY LDX #$00 REP #$30 L78E2 LDA L10A3,Y STA L0AF0,X INY INY INX INX CPX #$0004 BCC L78E2 SEP #$30 L78F3 JSR LE248 JMP LE460 ;BRL LE460 L78F9 BRL L6708 *----------------------- * R.STACK%() *----------------------- L78FC JSR L73D6 CPX #$10 BCS L78F9 TXA ASL TAX LDY L10A3,X L7909 LDA L10A4,X L790C PHX JSR LE28F STA L0AF1 STY L0AF0 JSR LE24C JSR LE460 PLX RTS *----------------------- * BASIC@( *----------------------- L791E JSR L73D6 ; BASIC@ TXY JSR LE28F REP #$30 TYA TYX ASL TAY cpy #L0BF4-L0B94 ; BD 201901 - over max variable bcs errL791E LDA L0B94,Y STA L0AF0 SEP #$30 LDA L0BF8,X STA L0AF2 STZ L0AF3 BRL L78F3 errL791E sep #$30 ; switch back to 8-bit native because of a brl L6708 ; non existing basic variable, output an error L793F JSR LE28F REP #$30 LDA L1707 STA L0AF0 LDA L1709 STA L0AF2 SEP #$30 BRA L78F3 *----------------------- * VAR() *----------------------- L7954 JSR L647B PHP LDA $E0 STA $50 REP #$30 LDA $DE STA $4E SEP #$30 PLP BCS L7974 JSR L7AE7 REP #$30 LDA #$00FF PHA SEP #$30 BRA L7977 L7974 JSR L5EC8 L7977 JSR L6346 JSR L73D3 JSR L3CC8 CMP #$29 ; ) TO END COMMAND BEQ L799A PHX JSR L73CB TXA BEQ L7997 PLX PHA JSR L6332 PLA CPX #$07 BEQ L79BB BCC L79B1 L7997 BRL L6708 L799A JSR L6306 CPX #$07 BCC L79B1 BNE L7997 LDA [$84] INC $84 BNE L79B1 REP #$30 INC $85 SEP #$30 BRA L79BB L79B1 LDA #$0A DEX BMI L7997 BEQ L79BB LDA L1D32,X L79BB TAY REP #$30 PLA STA $DE CPY $DE SEP #$30 BCC L79CC BEQ L79CC BRL LB67F L79CC CPX #$07 BEQ L79F0 TXA BNE L79D5 LDX #$06 L79D5 STX $A4 JSR LE28F REP #$10 L79DC DEY BMI L79E6 LDA [$84],Y STA L0AF0,Y BRA L79DC L79E6 SEP #$30 LDX $A4 JSR LE24E JMP LE460 ;BRL LE460 L79F0 LDA $84 STA $BB REP #$30 LDA $85 STA $BC SEP #$30 BRL L6E97 *----------------------- * VAR$() *----------------------- L79FF JSR L7AE7 JSR L3CC8 CMP #$29 BNE L7A1B JSR L6306 LDA [$84] TAY INC $84 BNE L79F0 REP #$30 INC $85 SEP #$30 BRA L79F0 L7A1B JSR L73CB STX L0AF0 JSR L6332 LDY #$00 L7A26 LDA [$84],Y BEQ L7A32 INY BNE L7A26 L7A2D LDY L0AF0 BRA L7A37 L7A32 CPY L0AF0 BCS L7A2D L7A37 BRA L79F0 *----------------------- * VARPTR() *----------------------- L7A39 JSR L6903 BCS L7A44 L7A3E STZ $24 LDY #$00 LDA #$00 L7A44 PHA PHY JSR L6332 PLY PLA LDX $24 L7A4D STZ L0AF3 L7A50 STX L0AF2 STY L0AF1 STA L0AF0 JSR LE248 JMP LE460 ;BRL LE460 *----------------------- * VARPTR$() *----------------------- L7A5F JSR L6903 BCC L7A3E BIT $10 BPL L7A87 STA $A6 STY $A7 LDX $24 STX $A8 LDY #$00 LDA [$22],Y BEQ L7A84 JSR L6D61 JSR L6332 LDX $42 LDY $41 LDA $40 BRA L7A4D L7A84 BRL L5EC3 L7A87 BRL L3F9E L7A8A JSR L7BDC LDY L16FD L7A90 INY L7A91 JSR LE28F STY L0AF0 JSR LE24C JMP LE460 ;BRL LE460 L7A9D JSR L7BDC LDY L16FE L7AA3 BRA L7A90 *----------------------- * DBUG *----------------------- L7AA5 PLA PLA BRK $DB SEP #$30 BRL L40D8 *----------------------- * PEEK *----------------------- L7AAE JSR LE440 REP #$30 LDA L0AF0 STA $40 SEP #$30 LDA L0AF2 STA $42 LDA [$40] TAY BRL L7A91 *----------------------- * POKE *----------------------- L7AC5 JSR L7AE7 ; Get address JSR L73CB ; Get value TXA STA [$84] RTS *----------------------- * ERROR *----------------------- L7ACF JSR L742D CPY #$00 BEQ L7ADD CPY #$0D BNE L7AE1 BRL L3F75 L7ADD TAX BRL L3FA4 L7AE1 XBA TYA XBA L7AE4 BRL L3F6A L7AE7 JSR L608F JSR LE440 REP #$30 LDA L0AF0 STA $84 LDA L0AF2 CMP #$0100 ; must be <256 SEP #$30 BCC L7B01 BRL L6708 L7B01 STA $86 RTS *----------------------- * PDL() *----------------------- L7B04 JSR L73D6 CPX #$04 BCS L7B45 LDAL $E0C070 INC L16FB DEC L16FB INC L16FB DEC L16FB PHB LDA #$E0 PHA PLB REP #$10 LDY #$0200 L7B25 LDAL PADDL0,X BPL L7B2E DEY BNE L7B25 L7B2E PLB STY L16FB REP #$30 LDA #$0200 SEC SBC L16FB STA L16FB ASL SEP #$30 TAY BRL L7A91 L7B45 BRL L6708 *----------------------- * JOYX *----------------------- L7B48 JSR L73D6 CPX #$03 L7B4D BCS L7B45 LDAL $E0C070 STZ L16FB STZ L16FC PHB LDA #$E0 PHA PLB L7B5E LDAL PADDL0,X ANDL PADDL0,X BPL L7B71 INC L16FB NOP NOP BNE L7B5E BRA L7B9E L7B71 LDA L16FB STA L16FC LDAL PADDL0,X BPL L7B99 BRA L7B89 L7B7F LDAL PADDL0,X ANDL PADDL0,X BPL L7B9E L7B89 INC L16FB BNE L7B7F RTS L7B8F LDAL PADDL0,X ANDL PADDL0,X BPL L7B9E L7B99 INC L16FC BNE L7B8F L7B9E PLB LDY L16FB BRL L7A91 L7BA5 LDY L16FC BRL L7A91 L7BAB LDY L16FB LDA L16FC BRL L790C *----------------------- * BTN() *----------------------- L7BB4 JSR L73D6 CPX #$03 BCS L7B4D LDA #$80 CPX #$00 BEQ L7BCB CPX #$01 BEQ L7BD1 ANDL $E0C063 BRA L7BD5 L7BCB ANDL $E0C061 BRA L7BD5 L7BD1 ANDL $E0C062 L7BD5 CLC ROL ROL TAY BRL L7A91 *----------------------- * *----------------------- L7BDC LDAL $00057B STA L16FD LDAL $0005FB TAY STY L16FE RTS L7BEC JSR LE28B LDA $C8 LDY $C7 STA L0AF1 STY L0AF0 JMP LE248 ;BRL LE248 L7BFC LDY L0B1E BRA L7C16 L7C01 LDY L0B1A BRA L7C16 L7C06 LDY L0B1C BRA L7C16 L7C0B LDY L16F3 BRA L7C16 L7C10 LDY $D2 BRA L7C16 L7C14 LDY $CC L7C16 BRL L7A91 L7C19 JSR L3CBE CMP #$23 BNE L7C30 JSR L73D0 JSR LB725 JSR LB809 LDX $1B STX $18 JSR L6336 L7C30 JSR L649E JSR L3CC8 BNE L7C4A JSR L3523 JSR LA7CF PHA JSR L351F PLA JSR L72E8 JSR L5E5F RTS L7C4A BRL L6356 L7C4D CMP #$F0 BNE L7C5A JSR L6306 JSR L6336 BRL L7D55 L7C5A JSR L959B JSR L6336 LDA $50 PHA REP #$30 LDA $4E PHA LDA $BB STA $4E SEP #$30 LDA $BD STA $50 LDA #$FE STA L033C STZ L1A4D L7C7A INC L033C INC L033C LDX L033C CPX #$7E BCC L7C8A BRL L7D2A L7C8A LDA L193C,X BMI L7CA3 CMP #$02 BCC L7C98 JSR L6089 BRA L7CD0 L7C98 JSR L73D3 STX L0AF0 STZ L0AF1 BRA L7CD0 L7CA3 JSR L3CC8 TAY BEQ L7CC5 BCC L7C98 CMP #$22 BNE L7CC7 JSR L6306 LDA [$4E] BEQ L7CC5 STA L0AF0 STZ L0AF1 JSR L3CBE BEQ L7CC5 CMP #$22 BEQ L7CCD L7CC5 BRA L7D0F L7CC7 STA L0AF0 STZ L0AF1 L7CCD JSR L6306 L7CD0 LDX L033C LDA L193C,X BMI L7D08 CMP #$02 BCS L7CF2 LSR LDA L0AF1 BNE L7D0F LDA L0AF0 BNE L7CE9 BCS L7D0F L7CE9 CMP L19BA,X BCC L7D19 BEQ L7D19 BRA L7D0F L7CF2 LDY L193D,X REP #$30 LDA L0AF0 CMP L19BA,X BCC L7D01 BNE L7D0F L7D01 STA L1A3C,Y SEP #$30 BRA L7D1F L7D08 LDA L0AF0 CMP #$80 BCC L7D19 L7D0F SEP #$30 LDX #$46 BRL L3FA4 L7D16 BRL L6356 L7D19 LDY L193D,X STA L1A3C,Y L7D1F JSR L3CC8 BEQ L7D2A JSR L6346 BRL L7C7A L7D2A LDX L033C CPX #$22 BCS L7D34 BRL L84C3 L7D34 LDA L1A3D BEQ L7D3A DEC L7D3A STA L1A3D LDA L1A3E BEQ L7D43 DEC L7D43 STA L1A3E REP #$30 PLA STA $4E SEP #$30 PLA STA $50 LDA #$01 STA L1A8A L7D55 JSR L649E LDX $0F CPX #$07 BEQ L7D61 BRL L3F9E L7D61 JSR L3CC8 BNE L7D16 LDA $84 LDY $85 LDX $86 JSR L6D67 PHA STZ L1A8C LDA L1A40 CMP #$20 BCS L7D7D INC L1A8C L7D7D PLA JSR L9D1D JSR L72CA LDY L04F9 REP #$30 LDA #L04FA STA $BB SEP #$30 LDA #^L04FA STA $BD JSR L6E97 JSR L5E5F RTS *----------------------- * UIR() *----------------------- L7D9B JSR L8057 JSR L73D6 CPX #$07 BCC L7DA8 BRL L6708 L7DA8 TXA ASL TAX LDY L1A7E,X BRL L7A91 *----------------------- * INPUT *----------------------- L7DB1 LDA #$83 JSR L80A8 BNE L7DBB BRL L7C4D L7DBB JSR L3CC8 CMP #$22 BNE L7DD6 JSR L6257 JSR L3CC8 CMP #$2C BEQ L7DCE LDA #$3B L7DCE JSR L6348 JSR L93A6 BRA L7E13 L7DD6 CMP #$23 BNE L7E10 LDA #$80 STA $E8 JSR L6306 JSR L73D3 CPX #$1F BCS L7DF9 JSR LB729 JSR LB8A2 JSR LB7D4 JSR L3CC8 CMP #$3B BEQ L7DFC RTS L7DF9 BRL L6708 L7DFC LDA $1B STA $18 JSR L3CBE JSR LA63F JSR L7F8B LDA #$2C STA L04F9 BRA L7E32 L7E10 JSR L93B9 L7E13 LDX #$00 STX $DD DEX STX $18 JSR L7F85 LDA #$2C STA L04F9 LDA L04FA CMP L16ED BNE L7E32 L7E2A JSR L7F97 LDA #$40 BRL L3DC0 L7E32 STX $81 STY $82 LDX $13 STX $83 L7E3A JSR L649E JSR L3CC8 BEQ L7E46 CMP #$3B BNE L7E4A L7E46 LDA #$80 STA $DD L7E4A JSR L7F2C LDA [$4E] BNE L7E76 BIT $18 BMI L7E5D JSR LA63F JSR L7F8B BRA L7E6E L7E5D JSR L933A JSR L93B9 JSR L7F82 LDA L04FA CMP L16ED BEQ L7E2A L7E6E STX $4E STY $4F LDX $13 STX $50 L7E76 JSR L6306 BIT $10 BPL L7E82 JSR L7F3C BRA L7E90 L7E82 LDA [$4E] BEQ L7E99 JSR LE558 BCC L7E99 LDX $0F JSR L5E1E L7E90 JSR L3CC8 BEQ L7E9B CMP #$2C BEQ L7E9B L7E99 BRA L7EF1 L7E9B JSR L7F1A BEQ L7EB1 CMP #$3B BNE L7EAC JSR L3CBE BEQ L7EC5 BRL L6356 L7EAC JSR L6346 BRA L7E3A L7EB1 BIT $18 BPL L7EC5 LDA #$0D JSR LA9C4 LDA L06F0 LSR BCC L7EC5 LDA #$0A JSR LA9C4 L7EC5 STZ $DD LDY #$00 LDA [$81],Y BEQ L7EEE BIT $CF BPL L7EDE JSR L8038 LDX #$FD LDY $76 INY BEQ L7EDE BRL L3FA4 L7EDE BIT $18 BPL L7EEE LDA #L2D4E LDX #^L2D4E LDY #>L2D4E JSR L93FB JSR L933A L7EEE BRL L8038 L7EF1 BIT $18 BMI L7EF8 BRL L3F9E L7EF8 BIT $CF BPL L7F06 LDY $76 INY BEQ L7F06 LDX #$FE BRL L3FA4 L7F06 JSR L933A LDA #L2D63 LDX #^L2D63 LDY #>L2D63 JSR L93A3 JSR L7F97 PLA PLA BRL L3C08 L7F1A LDA $4E LDX $50 LDY $4F STA $81 STX $83 STY $82 JSR L804A BRL L3CC8 L7F2C JSR L803D LDX $81 LDY $82 LDA $83 STA $50 STX $4E STY $4F RTS L7F3C LDY #$00 LDA [$4E],Y STA $0C BIT $DD BVS L7F4E BPL L7F52 LDA #$00 STA $0C BRA L7F5A L7F4E CMP #$27 BEQ L7F5B L7F52 CMP #$22 BEQ L7F5B LDA #$2C STA $0C L7F5A CLC L7F5B STA $0D LDA $4E LDY $4F LDX $50 ADC #$00 BCC L7F6B INY BNE L7F6B INX L7F6B JSR L6E67 JSR L7407 JSR L5E5F BIT $DD BVC L7F81 LDA $0C CMP #$27 BNE L7F81 JSR L6306 L7F81 RTS L7F82 JSR L93B9 L7F85 JSR LA4E8 JSR LA646 L7F8B STZ L04FA,X LDA #^L04F9 STA $13 LDX #L04F9 LDY #>L04F9 RTS L7F97 LDA $79 LDY $7A LDX $7B STX $50 STA $4E STY $4F RTS *----------------------- * READ *----------------------- L7FA4 CMP #$23 BNE L7FAB BRL LB2BE L7FAB LDX #$40 STA $DD LDX $7E LDY $7F STX $81 STY $82 LDX $80 STX $83 L7FBB JSR L649E JSR L7F2C L7FC1 LDA [$4E] BEQ L7FD1 JSR L6306 JSR L3CC8 BIT $10 BPL L8006 BRA L8001 L7FD1 JSR L8C81 INY TAX BNE L7FF2 JSR L8C60 LDX #$04 LDA [$4E] TAY LDA [$4E],Y BNE L7FE7 BRL L3FA4 L7FE7 INY LDA [$4E],Y STA $7C INY LDA [$4E],Y INY STA $7D L7FF2 LDA [$4E],Y TAX JSR L8C60 CPX #$CA BNE L7FD1 JSR L6306 BRA L7FC1 L8001 JSR L7F3C BRA L800E L8006 JSR LE558 LDX $0F JSR L5E1E L800E JSR L3CC8 BEQ L8022 CMP #$2C BEQ L8022 LDA $7C LDY $7D STA $75 STY $76 BRL L6356 L8022 JSR L7F1A BEQ L802D JSR L6346 BRL L7FBB L802D STZ $DD LDA $81 LDY $82 LDX $83 BRL L3DB6 L8038 LDA #$FF STA $18 RTS L803D LDA $4E LDY $4F LDX $50 STX $27 STA $25 STY $26 RTS L804A LDA $25 STA $4E LDA $26 STA $4F LDA $27 STA $50 L8056 RTS L8057 LDX $76 INX BNE L8056 LDX #$11 L805E BRL L3FA4 *----------------------- * RESUME *----------------------- L8061 BEQ L8074 JSR L8057 CMP #$97 BNE L806D PLA PLA RTS L806D CMP #$8E BNE L80A7 JSR L6306 L8074 TAY JSR L8057 LDA $CB BEQ L80A7 STA $50 LDA $C7 STA $75 LDA $C8 STA $76 LDA $C9 STA $4E LDA $CA STA $4F CPY #$8E BNE L80A7 LDA [$4E] BNE L80A1 LDY #$01 LDA [$4E],Y CLC ADC #$03 TAY JSR L8C60 L80A1 JSR L6306 JSR L8C5D L80A7 RTS L80A8 STY $13 LDY #$01 CMP [$4E],Y BNE L80BB LDA [$4E] CMP #$DF BNE L80BB JSR L6306 LDA #$00 L80BB PHP JSR L3CC8 LDY $13 PLP RTS L80C3 PHA LDA #$DF JSR L6348 PLA BRL L6348 L80CD REP #$30 LDA #$0020 BRA L80D9 L80D4 REP #$30 LDA #$0028 L80D9 PEA $0000 PHA PEA $0000 _FlushEvents BCC L80EC BRL L3F6A L80EC PLA SEP #$30 RTS *----------------------- * EXCEPTION *----------------------- L80F0 BNE L80F5 BRL L6356 L80F5 JSR L6306 CMP #$8F BNE L8101 LDX L0B7E BRA L8111 L8101 CMP #$90 BNE L8119 JSR L3CC8 BEQ L811F JSR L73D3 CPX #$40 BCS L8120 L8111 STX L0B84 LDA #$40 STA $D0 RTS L8119 CMP #$F0 BNE L811F STZ $D0 L811F RTS L8120 BRL L6708 L8123 JSR L8057 LDA #$80 STA $CF LDX #$A5 BRA L81A9 L812E JSR L8057 LDA #$80 STA L16F9 LDX #$A0 BRA L81A9 L813A JSR L8057 LDA #$80 STA $D0 LDX #$96 BRA L81A9 L8145 JSR L8057 JSR L80D4 LDA #$80 STA L16F7 TSB L16F1 LDX #$00 BRA L81A9 L8157 JSR L6306 JSR L8057 LDA #$00 STA $A5 JSR L632C JSR LE440 REP #$30 LDA L0AF1 STA L1702 CMP #$0151 SEP #$30 BCC L8182 BEQ L817B L8178 BRL L6708 L817B LDA L0AF0 CMP #$80 BCS L8178 L8182 LDA L0AF0 STA L1701 LDA #$80 STA L1705 STA L16FF LDX #$1F BRA L819D L8194 JSR L3CBE JSR L8057 JSR LB71C L819D JSR L6363 TXA PHA ASL ASL CLC ADC $01,S TAX PLA L81A9 JSR L81CE LDA $4E STA L063A,X LDA $4F STA L063B,X LDA $50 STA L063C,X JSR L81CE LDA $75 STA L063D,X LDA $76 STA L063E,X JSR L8C85 BRL L8C60 L81CE SEC LDA $4B SBC $4E STA $4E LDA $4C SBC $4F STA $4F LDA $4D SBC $50 STA $50 L81E1 RTS *----------------------- * OFF *----------------------- L81E2 JSR L6306 CMP #$94 BEQ L820D CMP #$95 BEQ L8223 CMP #$86 BEQ L8217 CMP #$DF BNE L81E1 JSR L3CC8 JSR L6306 CMP #$F0 BEQ L822B CMP #$F1 BEQ L823A CMP #$EF BNE L81E1 L8207 STZ $CF LDX #$21 BRA L823D L820D STZ L1705 STZ L16FF LDX #$1F BRA L823D L8217 STZ L16F9 LDA #$40 TRB L16EF LDX #$20 BRA L823D L8223 LDA #$40 STA $D0 LDX #$1E BRA L823D L822B LDA #$80 TRB L16F1 STZ L16F7 TRB L16EF LDX #$00 BRA L823D L823A JSR LB71C L823D TXA PHA ASL ASL CLC ADC $01,S TAX PLA LDA #$00 STZ L063A,X STZ L063B,X STZ L063C,X STZ L063D,X STZ L063E,X RTS L8258 STZ L16EF REP #$30 PEA $0000 PEA $0428 PEA ^L10D3 PEA L10D3 _GetNextEvent BCS L8293 PLA BNE L827E SEP #$30 STA L16F3 STA L16F5 RTS L827E LDA L10E1 ASL ASL XBA SEP #$30 EOR #$03 STA L16F5 TAX LDA L10D5 STA L16F3 RTS L8293 BRL L3F6A L8296 STZ L16FF STZ L1705 JSR L8AD8 LDX #$9B BRA L82C2 L82A3 JSR L8258 JSR L8AD8 LDX #$00 BRA L82C2 L82AD LDA $1B STA $D2 ASL ASL CLC ADC $1B REP #$10 LDX $D4 TXS SEP #$30 LDX $0A STX $09 L82C1 TAX L82C2 LDA #$FF STA $18 LDA L063C,X BEQ L82E7 STA $50 LDA L063A,X STA $4E LDA L063B,X STA $4F LDA L063D,X STA $75 LDA L063E,X STA $76 JSR L81CE BRL L3C4A L82E7 CPX #$96 BCC L82F0 L82EB LDX #$47 BRL L3FA4 L82F0 TXA BEQ L82EB LDX #$04 BRL L3FA4 L82F8 LDX #$0D L82FA BRL L3FA4 *----------------------- * DEF *----------------------- L82FD JSR L8057 LDY #$00 L8302 INY LDA [$4E],Y BEQ L830F CMP #$3D BEQ L8321 CMP #$3A BNE L8302 L830F LDA #$DE ; LOGO STA $0D LDA #$87 STA $0C LDX #$00 JSR L8EDD BCS L8321 BRL L85EE L8321 BRL L8C7C *----------------------- * FN *----------------------- L8324 JSR L649E JSR L633A LDX $D3 LDA $0F CPX #$40 BEQ L8335 BRL L8916 L8335 PHA PHX BRL L5DE4 L833A LDA $D9 STZ $D9 BMI L8341 RTS L8341 LDA $5F STA $99 LDA $5C STA $42 REP #$30 LDA $5D STA $97 LDA $5A STA $40 SEP #$30 BRL L58FB L8358 JSR L833A REP #$30 LDA $4B STA $4E SEP #$30 LDA $4D STA $50 BRA L8373 L8369 INC $4E BNE L8373 REP #$30 INC $4F SEP #$30 L8373 LDA [$4E] TAY LDA [$4E],Y BNE L837B RTS L837B TAX TYA CLC ADC $4E STA $4E BCC L838A REP #$30 INC $4F SEP #$30 L838A LDY #$01 REP #$30 LDA [$4E],Y STA $75 SEP #$30 INY INY LDA [$4E],Y CMP #$CD BEQ L83AC REP #$30 TXA CLC ADC $4E STA $4E SEP #$30 BCC L8373 INC $50 BRA L8373 L83AC JSR L8C60 JSR L3CBE STA $BE JSR L8412 LDA $BE BNE L83C0 JSR L8C7C BRA L8369 L83C0 LDA #$DE STA $0D LDA #$CD STA $0C LDX #$00 JSR L8EDD BCS L83D4 L83CF LDX #$3F L83D1 BRL L3FA4 L83D4 LDA $0B BEQ L83DC LDX #$3D BRA L83D1 L83DC JSR L3CBE CMP $BE BNE L83CF LDY #$00 L83E5 JSR L3CBE BEQ L83F6 JSR L664D EOR [$DE],Y AND #$DF BNE L83CF INY BRA L83E5 L83F6 CPY #$00 BEQ L8406 LDA [$DE],Y BEQ L8406 CMP #$28 BEQ L8406 CMP #$3A BNE L83CF L8406 LDA [$4E] BNE L840D BRL L8369 L840D LDX #$3B BRL L3FA4 L8412 TAX JSR L3CBE STZ $BF LDY #$10 CPX #$87 BEQ L8427 DEC $BF LDY #$20 CPX #$88 BEQ L8427 RTS L8427 TYA JSR L84CE BCC L8432 LDX #$0F BRL L3FA4 L8432 LDA #$06 STA $1F LDA $0F AND #$30 STA $10 ORA #$80 TSB $D9 LDA $0F AND #$0F STA $0F TAX LDA L1CDB,X ORA $10 STA $10 JSR L667B JSR L8500 PEI $75 LDA $50 PHA REP #$30 LDA $4E PHA SEP #$30 JSR L84B1 LDA #$00 PHA JSR L3CC8 BEQ L84A5 JSR L6342 L846E JSR L65FB BCC L8476 L8473 BRL L6356 L8476 TAX LDA $01,S INC STA $01,S CPX #$2C BNE L8485 JSR L6306 BRA L846E L8485 JSR L6332 BNE L8498 BIT $BF BMI L84A5 LDA $10 AND #$0F CMP #$07 BEQ L8515 BRA L84A5 L8498 BIT $BF BMI L8473 CMP #$3D BNE L8473 JSR L8C5D STZ $BE L84A5 LDX #$05 LDY #$FF L84A9 INY PLA STA [$28],Y DEX BPL L84A9 RTS L84B1 REP #$30 LDA $4B SEC SBC $03,S STA $03,S SEP #$30 LDA $4D SBC $05,S STA $05,S RTS L84C3 LDX #$3C BRL L3FA4 L84C8 LDA #$20 BRA L84CE L84CC LDA #$10 L84CE PHA JSR L6475 LDA $01,S BIT #$20 BCS L84DA BEQ L84C3 L84DA BEQ L84E7 LDX $0F CPX #$04 BEQ L84E7 LDX #$45 BRL L3FA4 L84E7 LDX $0F BEQ L8515 CPX #$06 BEQ L8515 PLA ORA $0F STA $0F CLC BIT $D9 BPL L8514 BEQ L8514 JSR L657B BCC L8514 L8500 PHP TYA SEC ADC $97 LDY $99 BCC L850D INX BNE L850D INY L850D PLP STA $28 STY $2A STX $29 L8514 RTS L8515 BRL L3F9E BRL L6356 L851B REP #$30 LDA $57 SEC SBC $03,S STA $03,S SEP #$30 LDA $59 SBC $05,S STA $05,S RTS *----------------------- * PROC *----------------------- L852D LDA $65 STA $8D REP #$30 LDA $63 STA $8B SEP #$30 JSR L8896 LDA [$4E] CMP #$FB BNE L856E LDY #$03 LDA [$4E],Y TAX LDY #$01 REP #$30 LDA [$4E],Y CLC ADC $5D STA $28 SEP #$30 TXA ADC $5F STA $2A LDA #$04 CLC ADC $4E STA $4E BCC L8568 REP #$30 INC $4F SEP #$30 L8568 LDA #$24 STA $0F BRA L8579 L856E JSR L84C8 BCS L8579 BRL L8703 L8576 BRL L8887 L8579 JSR L3CC8 BEQ L8589 LDX #$02 CMP #$28 BNE L8576 JSR L8782 BRA L85A7 L8589 JSR L803D LDY #$03 LDA [$28],Y PHA LDY #$01 REP #$30 LDA [$28],Y PHA SEP #$30 JSR L84B1 REP #$30 PLA STA $4E SEP #$30 PLA STA $50 L85A7 LDX #$88 L85A9 LDA $50 PHA REP #$30 LDA $4E PHA SEP #$30 JSR L804A PHX JSR L8AD8 PLA LDX $09 STA L08F1,X TAX JSR L8694 LDY #$04 REP #$30 LDA [$28],Y STA $75 L85CC REP #$30 PLA STA $4E SEP #$30 PLA STA $50 CPX #$87 BEQ L85DB RTS L85DB LDA $D6 STA L0B0C LDA $E6 STA L0B0A LDA $D7 INC STA L0B0E L85EB BRL L3BEF *----------------------- * END *----------------------- L85EE BNE L85F4 CLC BRL L3DFD L85F4 CMP #$88 BEQ L85FF CMP #$87 BEQ L85FF BRL L6356 L85FF PHA JSR L866A TXA CLC ADC #$06 STA $09 PLA CMP L08F1,X BEQ L8612 BRL L3F9E L8612 JSR L6306 PHX CMP #$87 BEQ L8624 JSR L6EFE JSR L86A9 PLX BRL L8C12 L8624 JSR L6475 JSR L6555 BCS L862F JSR L3F4C L862F JSR L64CB XBA LDA $D3 XBA JSR LDE7E LDA L0B0C STA $D6 LDA L0B0A STA $E6 LDA L0B0E DEC STA $D7 JSR L6EFE JSR L86A9 PLX JSR L8C1A PLA PLA LDA $03,S CMP $00 BNE L8664 REP #$30 LDA $01,S CMP #L6252+3 BEQ L8667 L8664 JSR L3F4C L8667 SEP #$30 RTL L866A LDX $09 L866C LDA L08F1,X BEQ L868B CMP #$88 BEQ L86A8 CMP #$87 BEQ L86A8 CMP #$89 BEQ L868F CMP #$8B BNE L8688 TXA CLC ADC #$19 TAX BRA L866C L8688 JSR L3F4C L868B LDX #$40 BRA L8691 L868F LDX #$41 L8691 BRL L3FA4 L8694 LDA $8D STA $56 LDA $65 STA $53 REP #$30 LDA $8B STA $54 LDA $63 STA $51 SEP #$30 L86A8 RTS L86A9 LDY #$0C LDA [$54],Y STA $D8 DEY LDA [$54],Y STA L0B0A DEY LDA [$54],Y STA L0B0C DEY LDA [$54],Y STA L0B0E LDX #$02 L86C3 DEY LDA $54,X STA $63,X LDA [$54],Y STA $51,X DEX CPY #$07 BCS L86C3 LDX #$51 JSR L6059 DEY LDA [$54],Y TAX DEY DEY REP #$30 LDA [$54],Y STA $54 SEP #$30 STX $56 LDX #$54 JSR L6059 RTS L86EC LDA $65 STA $8D REP #$30 LDA $63 STA $8B SEP #$30 JSR L8896 JSR L6306 JSR L84CC BCS L8708 L8703 LDX #$16 L8705 BRL L8887 L8708 LDA $0F AND #$07 TAX LDA L1CDB,X STA $10 JSR L88F2 LDX #$02 JSR L3CC8 CMP #$28 BNE L8705 JSR L8782 JSR L3CC8 BNE L8735 LDA $D8 STZ $D8 BNE L8730 LDX #$44 BRA L8705 L8730 LDX #$87 BRL L85A9 L8735 CMP #$3D BEQ L873C BRL L8703 L873C LDA $27 PHA REP #$30 LDA $25 PHA SEP #$30 JSR L84B1 JSR L8694 JSR L6306 JSR L6311 JSR L3CC8 BEQ L875A BRL L6356 L875A JSR L84B1 REP #$30 PLA STA $4E SEP #$30 PLA STA $50 JSR L86A9 LDA $03,S CMP $00 BNE L8779 REP #$30 LDA $01,S CMP #L6252+3 BEQ L877C L8779 JSR L3F4C L877C SEP #$30 JSR L3CC8 RTL L8782 LDA $8D PHA REP #$30 LDA $8B PHA SEP #$30 JSR L851B LDA [$28] BNE L8796 BRL L887D L8796 LDA #$00 PHA LDY #$03 L879B LDA [$28],Y PHA DEY BNE L879B L87A1 LDX #$28 JSR L606D LDA $2A PHA REP #$30 LDA $28 PHA SEP #$30 JSR L6306 JSR L6311 JSR L803D REP #$30 PLA STA $28 SEP #$30 PLA STA $2A LDX #$28 JSR L606D JSR L84B1 REP #$30 PLA STA $4E SEP #$30 PLA STA $50 JSR L6306 JSR L647B LDA L1CDB,X STA $10 LDA L1CE3,X EOR $A5 AND #$80 BEQ L87EE LDX #$37 BRL L8887 L87EE JSR L88F2 JSR L64CB XBA TYA XBA TXY LDX $0F CPX #$07 BNE L8829 LDA $D3 XBA LDA $86 REP #$30 PHA LDA $84 PHA LDA $22 STA $84 SEP #$30 LDA $24 STA $86 LDA #$40 STA $D3 JSR L5E5F REP #$30 PLA STA $84 PLA SEP #$30 STA $86 XBA STA $D3 BRA L882C L8829 JSR L5E26 L882C PLA INC CMP [$28] BCS L884D PHA LDA $50 PHA REP #$30 LDA $4E PHA SEP #$30 JSR L84B1 JSR L804A JSR L3CC8 CMP #$2C BNE L887D BRL L87A1 L884D JSR L3CC8 CMP #$29 BNE L8881 JSR L3CBE LDA [$25] CMP #$29 BNE L8881 INC $25 BNE L886F REP #$30 INC $26 SEP #$30 LDA [$25] BEQ L886F CMP #$3A BNE L8881 L886F JSR L851B REP #$30 PLA STA $8B SEP #$30 PLA STA $8D RTS L887D LDX #$36 BRA L8887 L8881 LDX #$02 CMP #$2C BEQ L887D L8887 REP #$30 LDA $51 STA $63 SEP #$30 LDA $53 STA $65 BRL L3FA4 L8896 LDA $D8 PHA LDA L0B0A PHA LDA L0B0C PHA LDA L0B0E PHA LDA $53 PHA REP #$30 LDA $51 PHA SEP #$30 JSR L851B LDA $56 PHA REP #$30 LDA $54 PHA LDA #L2D8D STA $DE SEP #$30 JSR L851B LDA #^L2D8D STA $E0 LDA #$0A STA $1F LDA #$02 STA $8A LDA #$90 STA $10 JSR L88F2 TYA SEC ADC $97 STA $97 BCC L88E4 INX BNE L88E4 INC $99 L88E4 STX $98 LDX $1F LDY #$FF L88EA INY PLA STA [$97],Y DEX BNE L88EA RTS L88F2 REP #$30 LDA $63 STA $97 SEP #$30 LDA $65 STA $99 BRL L6658 *----------------------- * LOCAL *----------------------- L8901 REP #$30 LDA $54 CMP $51 SEP #$30 BEQ L8916 L890B JSR L891B BEQ L8915 JSR L6346 BRA L890B L8915 RTS L8916 LDX #$43 BRL L3FA4 L891B JSR L6475 BCC L8923 BRL L5EC3 L8923 JSR L6555 BCC L892B BRL L69D1 L892B LDX $0F LDA L1CDB,X STA $10 JSR L6658 LDA $65 STA $53 REP #$30 LDA $63 STA $51 SEP #$30 BRL L3CC8 *----------------------- * WHILE *----------------------- L8944 PHP JSR L803D LDA #$01 STA $DD PLP BEQ L8954 JSR L89AF BEQ L8978 L8954 LDA $50 PHA REP #$30 LDA $4E PHA SEP #$30 LDX $09 LDA L08F1,X CMP #$DC BEQ L8974 JSR L804A JSR L8AD8 LDX $09 LDA #$DA STA L08F1,X L8974 TAX BRL L85CC L8978 LDA #$DD STA $0D LDA #$DA STA $0C L8980 LDX #$00 JSR L8EDD BCS L898C LDX #$39 BRL L3FA4 L898C DEC $DD LDA $0B CLC ADC $DD STA $DD BEQ L899C JSR L6306 BRA L8980 L899C JSR L8C5D LDX $09 LDA L08F1,X CMP #$DC BNE L89AB JSR L8C56 L89AB RTS L89AC BRL L6356 L89AF JSR L60A1 BIT $A5 BPL L89C0 LDA [$A6] PHA JSR L72CA PLY JSR L7A91 L89C0 JSR L3CC8 BNE L89AC LDA $A9 RTS *----------------------- * UNTIL *----------------------- L89C8 BEQ L89CF JSR L89AF BNE L89E7 L89CF JSR L803D LDA #$DA JSR L8B9F JSR L8C1A JSR L3CC8 BEQ L89F8 JSR L89AF BNE L89F8 JSR L804A L89E7 LDA #$DA BRL L8C53 *----------------------- * DO *----------------------- L89EC BNE L89AC JSR L8AD8 LDX $09 LDA #$DC STA L08F1,X L89F8 RTS L89F9 LDX #$09 BRA L89FF L89FD LDX #$0E L89FF BRL L3FA4 *----------------------- * FOR *----------------------- L8A02 PLA PLA LDA $50 PHA LDA $4F PHA LDA $4E PHA JSR L5DD8 LDA $A4 BEQ L8A18 CMP #$06 BCC L8A1B L8A18 BRL L3F9E L8A1B ORA $D3 STA $C6 LDX #$84 LDA $D3 BPL L8A28 BRL L6548 L8A28 JSR L603B LDY $86 CPY #$FF BEQ L8A34 BRL L5EC3 L8A34 LDY #$FF JSR L8FCC BEQ L8A3E TXY BRA L8A55 L8A3E TXA CLC ADC #$19 TAY CPX $09 BEQ L8A53 L8A47 LDA L08F0,X STA L08F0,Y DEX DEY CPX $09 BNE L8A47 L8A53 STY $09 L8A55 CPY #$19 BCC L89FD LDA #$81 JSR L80C3 JSR L608F LDA $C6 AND #$0F TAX JSR LE44E JSR L8ABD JSR LE298 LDA #$87 JSR L80A8 BNE L8A84 JSR L3CBE JSR L608F LDA $C6 AND #$0F TAX JSR LE44E L8A84 JSR L8ABD JSR L803D PLA STA $44 PLA STA $45 PLA STA $46 JSR L8F3D JSR L804A JSR L8AD8 INC $09 LDA $09 SEC SBC #$04 STA $09 TAX LDA $85 STA L08F4,X LDA $84 STA L08F3,X LDA $C6 STA L08F2,X LDA #$8B STA L08F1,X BRL L3BEF L8ABD LDA $09 TAY SEC SBC #$08 STA $09 LDX #$08 REP #$30 L8AC9 LDA L0AEE,X DEY STA L08F0,Y DEY DEX DEX BNE L8AC9 SEP #$30 RTS L8AD8 LDA $09 CMP #$06 BCS L8AE1 BRL L89FD L8AE1 SEC SBC #$06 STA $09 TAX SEC LDA $4E SBC $4B STA L08F6,X LDA $4F SBC $4C STA L08F5,X LDA $50 SBC $4D STA L08F4,X LDA $76 STA L08F3,X LDA $75 STA L08F2,X LDA #$89 STA L08F1,X RTS *----------------------- * GOSUB *----------------------- L8B0D JSR L803D LDA [$4E] CMP #$FB BNE L8B2B LDA $4E CLC ADC #$04 STA $4E BCC L8B25 REP #$30 INC $4F SEP #$30 L8B25 JSR L3CC8 BEQ L8B30 L8B2A RTS L8B2B JSR L3AED BNE L8B2A L8B30 JSR L8AD8 JSR L804A LDA [$4E] CMP #$FB BNE L8B65 PHP L8B3D PLP LDA #$80 TRB $E7 LDY #$03 LDA [$4E],Y TAX LDY #$01 REP #$30 LDA [$4E],Y CLC ADC $4E STA $4E SEP #$30 TXA ADC $50 STA $50 L8B59 RTS *----------------------- * GOTO *----------------------- L8B5A PHP CMP #$FB BEQ L8B3D PLP JSR L3AF0 L8B63 BNE L8B9E L8B65 JSR L8C85 REP #$30 LDA $75 CMP $30 SEP #$30 BCS L8B85 TYA LDY $50 SEC ADC $4E LDX $4F BCC L8B80 INX BNE L8B80 INY L8B80 JSR L9045 BRA L8B88 L8B85 JSR L903F L8B88 BCC L8BE9 LDA #$80 TRB $E7 REP #$20 LDY $99 LDA $97 BNE L8B97 DEY L8B97 DEC STA $4E STY $50 SEP #$30 L8B9E RTS L8B9F PHA LDX $09 L8BA2 LDA L08F1,X BEQ L8BDA CMP $01,S BEQ L8BD3 CMP #$88 BEQ L8BE5 CMP #$87 BEQ L8BE5 CMP #$8B BNE L8BBE TXA CLC ADC #$19 TAX BRA L8BA2 L8BBE CMP #$DA BNE L8BC9 L8BC2 TXA CLC ADC #$06 TAX BRA L8BA2 L8BC9 CMP #$DC BNE L8BD7 LDA #$DA CMP $01,S BNE L8BC2 L8BD3 PLA LDA #$00 RTS L8BD7 JSR L3F4C L8BDA PLA LDX #$03 CMP #$89 BEQ L8BEB LDX #$3A BRA L8BEB L8BE5 LDX #L3F4C BRA L8BEB L8BE9 LDX #$0B L8BEB BRL L3FA4 *----------------------- * RETURN *----------------------- L8BEE BEQ L8C0F CMP #$F0 BNE L8C06 PLA PLA LDA L10CF AND #$40 ASL TSB L10CF JSR L8C51 JSR L8C1A RTL L8C06 JSR L8C51 JSR L3CC8 BRL L8B5A L8C0F JSR L8C51 L8C12 PLA PLA JSR L8C1A BRL L3C08 L8C1A LDA L08F2,X STA $75 LDA L08F3,X STA $76 LDA $4B CLC ADC L08F6,X STA $4E LDA $4C ADC L08F5,X STA $4F LDA $4D ADC L08F4,X STA $50 RTS *----------------------- * POP *----------------------- L8C3B BNE L8C75 LDX $09 LDA L08F1,X BNE L8C49 LDX #$0E BRL L3FA4 L8C49 CMP #$DC BEQ L8C56 CMP #$DA BEQ L8C56 L8C51 LDA #$89 L8C53 JSR L8B9F L8C56 TXA CLC ADC #$06 STA $09 RTS L8C5D JSR L8C81 L8C60 TYA CLC ADC $4E STA $4E BCC L8C75 LDA $4F LDY $4D ADC #$00 STA $4F BNE L8C75 INY STY $4D L8C75 RTS L8C76 BRL L6356 *----------------------- * THEN / ELSE / DATA / IMAGE *----------------------- L8C79 JSR L8057 *----------------------- * REM *----------------------- L8C7C JSR L8C85 L8C7F BRA L8C60 L8C81 LDX #$3A BRA L8C87 L8C85 LDX #$00 L8C87 STX $0C LDY #$00 STY $0D L8C8D LDA $0D LDX $0C STA $0C STX $0D L8C95 LDA [$4E],Y BEQ L8C75 BMI L8CAC CMP $0D BEQ L8C75 BRA L8CA5 L8CA1 INY L8CA2 INY L8CA3 INY L8CA4 INY L8CA5 INY CMP #$22 BNE L8C95 BEQ L8C8D L8CAC CMP #$DF BCC L8CA5 BEQ L8CA4 CMP #$F0 BCC L8CA4 CMP #$FA BCC L8CA5 BEQ L8CA3 CMP #$FC BCC L8CA2 BEQ L8CA1 CMP #$FF BEQ L8CA3 TYA SEC ADC #$08 TAY BRA L8C95 L8CCD BRL L8123 L8CD0 BRL L8145 L8CD3 BRL L8157 L8CD6 BRL L813A L8CD9 BRL L812E *----------------------- * ON *----------------------- L8CDC CMP #$80 BCC L8D0F CMP #$94 BEQ L8CD3 CMP #$95 BEQ L8CD6 CMP #$86 BEQ L8CD9 CMP #$DF BNE L8D08 LDA #$F0 JSR L80A8 BEQ L8CD0 LDA #$F1 JSR L80A8 BNE L8D01 BRL L8194 L8D01 LDA #$EF JSR L80A8 BEQ L8CCD L8D08 CMP #$FF BNE L8D0F JMP L1928 L8D0F JSR L73D3 PHA CMP #$89 BEQ L8D1E CMP #$8A BEQ L8D1E BRL L8C76 L8D1E DEC L0AF0 BNE L8D38 PLA CMP #$89 BNE L8D44 JSR L803D JSR L8C5D JSR L8AD8 JSR L804A JSR L8D44 RTS L8D38 JSR L3CBE JSR L3AF0 CMP #$2C BEQ L8D1E PLA RTS L8D44 JSR L3CBE PHP CMP #$FB BNE L8D4F BRL L8B3D L8D4F PLP JSR L3AF0 BRL L8B65 *----------------------- * NEXT *----------------------- L8D56 BNE L8D5E STZ $85 STZ $84 BRA L8D73 L8D5E JSR L649E LDX #$84 LDA $D3 BPL L8D6A BRL L6548 L8D6A JSR L603D LDA $0F ORA $D3 STA $C6 L8D73 LDY #$00 JSR L8FCC BEQ L8D7E TAX BRL L3FA4 L8D7E STX $09 PLA PLA LDA $C6 AND #$0F XBA TXA CLC ADC #$0A CLC LDY #>L08F0 ADC #L08F0 BCC L8D93 INY L8D93 LDX #^L08F0 JSR LDEBD LDA #$40 BIT $BA BMI L8D9F ASL L8D9F PHA LDA #$FF STA $86 LDX #$84 JSR L603B LDA $C6 AND #$0F JSR LDE73 JSR LD821 JSR L5E13 LDA $C6 AND #$0F XBA LDA $09 CLC LDY #>L0902 LDX #^L0902 ADC #L0902 BCC L8DC7 INY L8DC7 JSR LDEBD JSR LDB86 TXA LDX $09 CMP #$01 BEQ L8DD9 SEC SBC $01,S BNE L8DED L8DD9 PLA TXA CLC ADC #$19 STA $09 JSR L3CC8 CMP #$2C BNE L8E0E JSR L3CBE JSR L8D5E L8DED PLA LDA L08F5,X STA $75 LDA L08F6,X STA $76 LDA L08F9,X CLC ADC $4B STA $4E LDA L08F8,X ADC $4C STA $4F LDA $4D ADC L08F7,X STA $50 L8E0E BRL L3BEF *----------------------- * IF *----------------------- L8E11 LDA #$01 STA $DD JSR L60A1 BIT $A5 BPL L8E26 LDA [$A6] PHA JSR L72CA PLY JSR L7A91 L8E26 LDA [$4E] BNE L8E47 LDY #$01 LDA [$4E],Y TAY INY LDA [$4E],Y BNE L8E37 L8E34 BRL L6356 L8E37 TYA CLC ADC #$03 TAY LDA [$4E],Y CMP #$8C BNE L8E34 JSR L8C60 BRA L8E26 L8E47 CMP #$8A BEQ L8E52 CMP #$8C BNE L8E34 JSR L6306 L8E52 LDA $A9 BNE L8E95 LDA #$8D STA $0D LDA #$C4 STA $0C L8E5E LDX #$FF JSR L8EDD BCS L8E87 BEQ L8E81 INY REP #$30 LDA [$4E],Y STA $75 SEP #$30 INY INY LDA [$4E],Y CMP #$8D BEQ L8E84 CMP #$8C BNE L8E81 JSR L8C60 BRA L8E89 L8E81 BRL L6363 L8E84 JSR L8C60 L8E87 DEC $DD L8E89 JSR L6306 LDA $0B CLC ADC $DD STA $DD BNE L8E5E L8E95 JSR L3CC8 BCC L8EB4 TAX BMI L8EA9 JSR L6638 BCC L8EB7 JSR L8EBF BCC L8EB7 BRA L8EB1 L8EA9 CMP #$FF BEQ L8EB7 CMP #$E0 BCC L8EB7 L8EB1 JSR L3CC8 L8EB4 BRL L8B5A L8EB7 PLA PLA JSR L6363 BRL L3C08 L8EBF LDY #$00 L8EC1 INY LDA [$4E],Y BEQ L8ED9 JSR L4F80 BCS L8EC1 CMP #$3A BEQ L8EDA CMP #$3B BEQ L8ED7 CMP #$2C BNE L8EDB L8ED7 ORA #$00 L8ED9 SEC L8EDA RTS L8EDB CLC RTS L8EDD STZ $0B LDY #$00 LDA [$4E],Y BEQ L8EE9 BPL L8EFC BRA L8EFD L8EE9 INY JSR L8C60 LDA [$4E] TAY LDA [$4E],Y BEQ L8F15 TXA BMI L8F15 JSR L8C60 LDY #$02 L8EFC INY L8EFD LDA [$4E],Y BEQ L8EE9 BPL L8EFC CMP #$DF BEQ L8F35 BCS L8F17 CMP $0D BEQ L8F38 CMP $0C BNE L8EFC INC $0B BNE L8EFC L8F15 CLC RTS L8F17 CMP #$F0 BCC L8F35 CMP #$FA BCC L8EFC BEQ L8F34 CMP #$FC BCC L8F33 BEQ L8F32 CMP #$FF BEQ L8F34 TYA CLC ADC #$08 TAY BRA L8EFC L8F32 INY L8F33 INY L8F34 INY L8F35 INY BRA L8EFC L8F38 JSR L8C60 SEC RTS L8F3D LDA #$8E STA $0D LDA #$8B STA $0C STZ $DD L8F47 LDX #$00 JSR L8EDD LDA $DD BMI L8FAD BCC L8FBE CLC ADC $0B STA $DD DEC $DD BMI L8F78 L8F5B LDA [$4E] BMI L8F69 JSR L3CBE BEQ L8FC8 JSR L6638 BCC L8FC8 L8F69 JSR L3CBE BEQ L8F47 CMP #$2C BNE L8F69 DEC $DD BPL L8F5B * BRA L8F81 L8F78 JSR L3CBE BEQ L8FCB LDY #$FF BRA L8F8A L8F81 LDY #$FF L8F83 STZ $0B JSR L3CBE BEQ L8F8F L8F8A JSR L664D STA $0B L8F8F INY LDA [$44],Y JSR L664D CMP $0B BEQ L8F83 CMP #$3D BEQ L8FA3 LDX $0B BEQ L8F47 BRA L8F69 L8FA3 LDA $0B BEQ L8FCB CMP #$2C BEQ L8FCB BRA L8F47 L8FAD DEC $DD LDA $0B BNE L8FBE LDA $DD CMP #$F6 BCC L8FBE JSR L3CBE BNE L8F8A L8FBE LDX #$2F JMP L3FA4 ;BRL L3FA4 JSR L3CBE BEQ L8FCB L8FC8 BRL L6356 L8FCB RTS L8FCC LDX $09 L8FCE JSR L900D BEQ L8FEC LDA L08F1,X BEQ L8FE3 CMP #$8B BNE L8FE6 TXA CLC ADC #$19 TAX BRA L8FCE L8FE3 LDA #$01 RTS L8FE6 CMP #$89 BNE L8FED LDA #$41 L8FEC RTS L8FED CMP #$88 BNE L8FF4 L8FF1 LDA #$3F RTS L8FF4 CMP #$87 BEQ L8FF1 CMP #$DA BEQ L9000 CMP #$DC BNE L900A L9000 TYA BNE L8FEC TXA CLC ADC #$06 TAX BRA L8FCE L900A JSR L3F4C L900D LDA L08F1,X CMP #$8B BNE L9026 LDA $84 ORA $85 BEQ L9027 LDA $85 CMP L08F4,X BNE L9026 LDA $84 CMP L08F3,X L9026 RTS L9027 LDA L08F3,X STA $84 LDA L08F4,X STA $85 LDA L08F2,X PHA AND #$40 STA $D3 PLA STA $C6 CMP $C6 L903E RTS L903F LDA $4B LDX $4C L9043 LDY $4D L9045 STY $99 STX $98 STA $97 LDA $30 ORA $31 BEQ L907F L9051 SEP #$30 LDA [$97] TAY LDA [$97],Y TAX BEQ L907B INY REP #$30 LDA [$97],Y DEY CMP $30 BCS L9079 TXA ADC $97 BCC L906D INC $99 CLC L906D STY $97 ADC $97 STA $97 BCC L9051 INC $99 BRA L9051 L9079 BEQ L907C L907B CLC L907C SEP #$30 RTS L907F LDA [$97] TAY CMP L03D3 BNE L9097 L9087 DEY BEQ L90B6 LDA [$97],Y JSR L664D CMP L03D3,Y BEQ L9087 LDY L03D3 L9097 LDA [$97],Y BEQ L90B5 REP #$31 AND #$00FF ADC $97 BCC L90A7 INC $99 CLC L90A7 STY $97 ADC $97 STA $97 SEP #$30 BCC L907F INC $99 BRA L907F L90B5 CLC L90B6 RTS *----------------------- * MENUDEF *----------------------- L90B7 JSR L8057 JSR L73D3 TXA BMI L910B ASL STA $DD L90C3 JSR L6346 CMP #$FB BNE L90F2 LDY #$03 LDA [$4E],Y LDX $DD LDY #$01 REP #$30 ORA #$FF00 STA L15EB,X STA L11EB,X LDA [$4E],Y STA L13EB,X LDA #$0004 CLC ADC $4E STA $4E SEP #$30 BCC L9100 INC $50 BRA L9100 L90F2 JSR L9113 LDX $DD REP #$30 LDA $30 STA L11EB,X SEP #$30 L9100 JSR L3CC8 BEQ L9137 INC $DD INC $DD BNE L90C3 L910B BRL L6708 L910E SEP #$30 JMP L3BA0 ;BRL L3BA0 L9113 CMP #$F0 BNE L911F JSR L6306 STZ $30 STZ $31 RTS L911F JSR L3AED JSR L903F BCC L910E LDA [$97] TAY INY REP #$30 LDA $30 BNE L9135 LDA [$97],Y STA $30 L9135 SEP #$30 L9137 RTS *----------------------- * EVENTDEF *----------------------- L9138 JSR L8057 JSR L73D3 TXA BMI L910B ASL STA $DD L9144 JSR L6346 CMP #$FB BNE L9173 LDY #$03 LDA [$4E],Y LDX $DD LDY #$01 REP #$30 ORA #$FF00 STA L14EB,X STA L10EB,X LDA [$4E],Y STA L12EB,X LDA #$0004 CLC ADC $4E STA $4E SEP #$30 BCC L9181 INC $50 BRA L9181 L9173 JSR L9113 LDX $DD REP #$30 LDA $30 STA L10EB,X SEP #$30 L9181 JSR L3CC8 BEQ L9137 INC $DD INC $DD BNE L9144 L918C BRL L6708 *----------------------- * TASKPOLL *----------------------- L918F JSR L8057 CMP #$8F BNE L919F JSR L6306 LDA #$C0 TRB L10CF RTS L919F CMP #$90 BNE L91B8 JSR L6306 LDA L10CF BIT #$20 BNE L91B2 LDX #$50 JMP L3FA4 ;BRL L3FA4 L91B2 LDA #$C1 TSB L10CF RTS L91B8 CMP #$98 BNE L9201 JSR L6306 JSR L60AB JSR LE440 REP #$30 LDA L0AF0 STA L10E7 LDA L0AF2 STA L10E9 SEP #$30 JSR L6346 JSR L60AB JSR LE440 REP #$30 LDA L0AF0 STA L10D1 PEA $0000 _WindStatus BCC L91F7 CMP #$0003 BCS L9202 L91F7 PLA SEP #$30 BEQ L9201 LDA #$20 STA L10CF L9201 RTS L9202 JMP L3F6A ;BRL L3F6A L9205 TAX BPL L920D LDX #$47 JMP L3FA4 ;BRL L3FA4 L920D ASL TAX REP #$30 LDA L10EB,X BNE L9248 CPX #$0022 BEQ L9233 SEP #$30 RTL L921E REP #$30 PEA $0000 LDA L10E5 PHA Tool $2C14 ; LOGO - LineEdit does not have such a tool call SEP #$30 RTL REP #$30 L9233 LDA L10E3 CMP #$0100 BCC L921E AND #$007F ASL ORA #$0100 TAX LDA L10EB,X BEQ L921E L9248 LDA L14EB,X BPL L9274 PHX SEP #$30 JSR L8AD8 REP #$30 PLX LDA L10EB,X STA $75 LDA L12EB,X STA $4E LDA L14EB,X SEP #$30 STA $50 L9267 JSR L81CE LDA #$80 TRB L10CF JMP L3C4A ;BRL L3C4A REP #$30 L9274 LDA L10EB,X STA $30 PHX SEP #$30 JSR L903F BCS L9286 LDX #$4F JMP L3FA4 ;BRL L3FA4 L9286 JSR L8AD8 LDA [$97] INC INC CLC ADC $97 STA $4E REP #$30 LDA $98 BCC L9299 INC L9299 STA $4F SEP #$30 JSR L81CE LDA $50 REP #$30 PLX ORA #$FF00 STA L14EB,X LDA $4E STA L12EB,X LDA $30 STA $75 SEP #$30 BRA L9267 L92B8 LDA #$01 TRB L10CF BEQ L92D3 L92BF REP #$30 LDY #$0100 LDA #$0000 L92C7 STA L14E9,Y STA L15E9,Y DEY DEY BNE L92C7 SEP #$30 L92D3 RTS *----------------------- * TASKREC%() *----------------------- L92D4 JSR L73D6 CPX #$0D BCS L92E7 TXA ASL TAX LDY L10D1,X LDA L10D2,X BRL L790C L92E7 BRL L6708 *----------------------- * TASKREC@() *----------------------- L92EA JSR L73D6 CPX #$0C BCS L92E7 TXA ASL TAX REP #$30 LDA L10D3,X STA L0AF2 LDA L10D1,X STA L0AF0 SEP #$30 BRL L78F3 L9307 JSR L93A6 JSR L3CC8 L930D BEQ L933A L930F BEQ L9362 LDA #$80 JSR L80A8 BEQ L9377 LDA #$82 JSR L80A8 CLC BEQ L9377 CMP #$2C BEQ L936A CMP #$3B BNE L932B BRL L9398 L932B JSR L60A1 BIT $A5 BMI L9307 JSR LE658 JSR L6E5F BRA L9307 L933A LDA #$0D JSR LA9B4 STX $BE STY $0E LDX $18 BPL L9349 LDX $19 L9349 LDY L1D11,X LDA L06F0,Y BMI L935A BIT #$01 BEQ L935A LDA #$0A JSR LA9B4 L935A LDX #$00 STX $2F LDX $BE LDY $0E L9362 RTS L9363 BIT $A5 BPL L9362 BRL L72CA L936A LDA $2F ADC #$0F AND #$F0 SEC SBC $2F TAX BRL L939E L9377 PHP JSR L73D0 STX $BE JSR L6332 JSR L6363 PLP LDX $BE BCC L9394 BNE L938D BRL L74DA L938D DEX TXA SBC $2F BCC L9398 TAX L9394 INX L9395 DEX BNE L939E L9398 JSR L3CBE BRL L930F L939E JSR LA9B2 BRA L9395 L93A3 JSR L6E5F L93A6 JSR L6D61 TAX L93AA TXA BEQ L93B6 CLC ADC $2F STA $2F TXA JSR LAA74 L93B6 BRL L9363 L93B9 LDA #$3F L93BB BRL LA9B4 *----------------------- * PRINT *----------------------- L93BE CMP #$23 BEQ L93D0 BIT $18 BPL L93EE JSR L7BDC LDA L16FD STA $2F BRA L93EE L93D0 STZ $E8 JSR LB71C JSR LB8A2 JSR LB5C6 JSR LB7D4 LDA $1B STA $18 JSR L3CC8 BEQ L93F5 CMP #$3B BNE L93EE JSR L3CBE L93EE LDA #$83 JSR L80A8 BEQ L943D L93F5 JSR L3CC8 BRL L930D L93FB STA $40 STY $41 STX $42 L9401 LDY #$FF L9403 INY LDA [$40],Y BNE L9403 TYA TAX LDA #$00 STA $A5 STZ $A4 BRL L93AA L9413 LDA #$20 L9415 PHA LDA L0B1A BEQ L9436 CLC SBC $2F BEQ L9422 BCS L9436 L9422 JSR L933A L9425 JSR LA9B2 LDA $1D CMP $2F BCS L9425 CMP L0B1A BCC L9436 BRL L82F8 L9436 PLA BRL LA9B4 L943A BRL L6356 L943D JSR L959B JSR L3CC8 CMP #$3B BNE L943A LDX #$FF STX $AD JSR L96DC BEQ L943A STX $AD INX STX $AE JSR L6306 L9458 JSR L3CC8 BNE L9461 LDA #$00 BRA L946E L9461 CMP #$2C BNE L946A JSR L6306 BRA L9458 L946A CMP #$3B BNE L9495 L946E STA $A3 TAX BEQ L947B JSR L3CBE BEQ L947B BRL L6356 L947B LDA #$20 JSR L6E01 JSR L9643 JSR L96C0 DEC $B3 BEQ L948D BRL L9589 L948D LDA $A3 BNE L9494 BRL L933A L9494 RTS L9495 LDA $AD PHA LDA $2E PHA LDA $BB PHA LDA $BC PHA LDA $AE PHA LDA #$00 PHA LDA #$C5 JSR L80A8 BNE L94CC JSR L3CBE JSR L7414 PLA PHX JSR L6346 JSR L60A1 JSR L6332 BEQ L94CF CMP #$2C BEQ L94CF CMP #$3B BEQ L94CF BRL L6356 L94CC JSR L60A1 L94CF BIT $A5 BPL L94DA JSR L6D61 STA $B5 BRA L9549 L94DA LDX #$1C REP #$30 STX L0331 STZ L032F LDA $A2 PEA ^L032F PEA L032F PEI $A1 PEI $9F PEA ^L034D PEA L034D ORA #$000B PHA LDX #$0000 JSL L00F7 SEP #$30 LDX L0351 CPX #$1C BEQ L952B LDA L0352 CMP #$30 BEQ L951F CMP #$49 BEQ L951C CMP #$4E BEQ L951C JSR L3F4C L951C STZ L0351 L951F REP #$30 LDA #$FFE4 STA L034F SEP #$30 LDX #$1C L952B STZ L039E,X L952E DEX BMI L953B LDA L0352,X AND #$0F STA L039D,X BRA L952E L953B REP #$30 LDA #$001C CLC ADC L034F STA L034F SEP #$30 L9549 STZ L033E PLA STA L033D BPL L9555 DEC L033E L9555 PLA STA $AE PLA STA $BC PLA STA $BB PLA STA $2E PLA STA $AD LDA #$20 JSR L6E01 L9569 JSR L9643 LDX $B3 BEQ L957A BMI L957A LDA $AE BEQ L9586 STA $AD BRA L9569 L957A LDA #$FF STA $AE SEC LDA $A5 TAX EOR $B3 BPL L958C L9586 JSR L96C0 L9589 JMP L3F9E ;BRL L3F9E L958C TXA BPL L9592 BRL L9669 L9592 JSR L99CB L9595 JSR L96C0 BRL L9458 L959B JSR L3CBE BCC L9601 BMI L9601 CMP #$22 BEQ L95D3 JSR L6638 BCC L95FB JSR L8EBF BCS L9601 LDX #$FF JSR L64AA LDX $0F CPX #$07 BNE L95FB STA $40 STY $41 LDA $24 STA $42 JSR L6D7E STA $2E STX $BB STY $BC LDA $42 STA $BD BRL L9642 L95D3 LDY #$00 L95D5 JSR L3CBE BEQ L95FB CPY #$00 BNE L95EA LDX $4E STX $BB LDX $4F STX $BC LDX $50 STX $BD L95EA CMP #$22 BEQ L95F1 INY BNE L95D5 L95F1 STY $2E TYA BEQ L95FB JSR L3CBE BNE L9642 L95FB BRL L6356 L95FE BRL L8BE9 L9601 JSR L3AED LDA $50 PHA REP #$30 LDA $4E PHA SEP #$30 JSR L8B65 LDA [$97] CLC ADC #$03 TAY JSR L8C60 JSR L3CBE TAX CPX #$CB BNE L95FE JSR L3CBE BEQ L95FE LDA $4E STA $BB LDA $4F STA $BC LDA $50 STA $BD JSR L8C85 STY $2E REP #$30 PLA STA $4E SEP #$30 PLA STA $50 L9642 RTS L9643 LDY #$1F LDA #$00 L9647 STA [$66],Y DEY BPL L9647 JSR L975B BIT $B3 BMI L9654 L9653 RTS L9654 BVS L9653 L9656 LDY #$00 LDX $2D L965A LDA [$97],Y JSR LA9B4 INY DEX BNE L965A DEC $0B BNE L9656 BRA L9643 L9669 LDA $B5 STA $2D LDA $0B SEC SBC $2D BEQ L969F BCS L967C LDX $0B STX $2D BRA L969F L967C LDY $AA CPY #$41 BEQ L969F CPY #$61 BEQ L969F CPY #$43 BEQ L968E CPY #$63 BNE L9693 L968E LDX $2D BEQ L9693 LSR L9693 TAX INX L9695 DEX BEQ L969F JSR LA9B2 DEC $0B BNE L9695 L969F LDY #$00 LDX $2D BEQ L96B0 L96A5 LDA [$40],Y JSR LA9B4 INY DEC $0B DEX BNE L96A5 L96B0 LDX $0B L96B2 BEQ L96BA JSR LA9B2 DEX BRA L96B2 L96BA JSR L72CA BRL L9595 L96C0 LDA #$20 LDY $67 LDX $66 STX $40 STY $41 LDX $68 STX $42 BRL L6D9F L96D1 PLA L96D2 JSR L96DC PHP CMP #$20 BEQ L96D1 PLP RTS L96DC INC $AD L96DE LDY $AD LDA #$00 CPY #$FF BNE L96EA DEC $AD BRA L9706 L96EA CPY $2E BCS L9706 LDA [$BB],Y CMP #$2C BEQ L9707 CMP #$41 BCC L96FC CMP #$5B BCC L9709 L96FC CMP #$3A BCS L9706 SEC SBC #$30 SEC SBC #$D0 L9706 TAY L9707 CLV RTS L9709 SEP #$40 CMP #$40 RTS L970E LDY $B9 INY CPY #$20 BCS L971A STA [$66],Y STY $B9 RTS L971A BRL L6356 L971D PHA LDY $B4 BEQ L9753 LDX #$01 LDA #$04 BIT $B7 PHP BNE L9736 LDA $B6 CMP #$41 BNE L9735 LDA $B8 BNE L971A L9735 DEX L9736 TYA STA $AB,X LDX $B6 BEQ L971A CPX #$44 BNE L9745 CMP #$05 BCC L971A L9745 LDA #$00 L9747 JSR L970E DEC $B4 BNE L9747 PLP BNE L9753 STY $BE L9753 LDY #$02 LDA #$00 STA $B6 PLA RTS L975B LDY #$01 STY $B3 STZ $BF STZ $AB STZ $AC STZ $B8 STZ $B4 STZ $B7 STZ $B6 LDY #$FF STZ L0339 STY $BE STY $B9 JSR L993C BPL L97E0 STA $B3 BIT $B3 BVS L97B7 LDA $AA CMP #$2F BEQ L97C0 CMP #$58 BEQ L97CA CMP #$78 BEQ L97CA LDA $AD SEC ADC $BB LDX $BD LDY $BC BCC L979E INY BNE L979E INX L979E STA $97 STY $98 STX $99 LDX #$FF L97A6 INX JSR L96DC CMP #$00 BEQ L97BD CMP #$22 BNE L97A6 STX $2D JSR L96D2 L97B7 JSR L96DE BNE L97BD RTS L97BD BRL L6356 L97C0 LDA #$0A STA $0D LDY #$02 LDA #$0D BRA L97CE L97CA LDA #$20 LDY #$01 L97CE STA $0C LDX #$00 STX $99 LDX $05 LDA #$0C STA $97 STX $98 STY $2D BRA L97B7 L97E0 LDY #$02 CMP #$02 BNE L982F CPY $0B BNE L9858 LDA #$10 STA $B8 LDA $AA STA $BF JSR L990E BRA L982F L97F7 CMP #$10 BEQ L97FC RTS L97FC BIT $B7 BNE L9858 ORA $B7 STA $B7 CPY $0B BNE L980E LDA $B8 BNE L9858 BRA L9817 L980E DEY CPY $0B BNE L9858 LDA $B8 BEQ L9827 L9817 CMP #$40 LDA #$20 BCC L981F LDA #$80 L981F ORA $B8 STA $B8 INC $B9 BRA L982C L9827 LDA $AA JSR L970E L982C BRL L990E L982F JSR L97F7 BIT #$20 BEQ L9863 ORA $B7 STA $B7 CPY $0B BNE L9844 LDA $B8 BNE L9858 BRA L984D L9844 DEY CPY $0B BNE L9858 LDA $B8 BEQ L985B L984D LDA #$40 ORA $B8 STA $B8 INC $B9 BRL L9860 L9858 BRL L6356 L985B LDA $AA JSR L970E L9860 JSR L990E L9863 JSR L97F7 L9866 CMP #$41 BCC L98A1 TAX BMI L9858 LDA #$80 ORA $B7 STA $B7 LDA $0B CLC ADC $B4 STA $B4 CPX $B6 BCS L9880 LDX $B6 L9880 LDA #$04 BIT $B7 BEQ L988A LDX #$41 BRA L989A L988A LDA $BF AND #$7F CMP #$2A BEQ L9895 LDA L1CC8,X L9895 ORA L1CCC,X STA $BF L989A STX $B6 L989C JSR L9915 BRA L9866 L98A1 JSR L971D CMP #$04 BNE L98C1 BIT $B7 BNE L9858 DEY CPY $0B BNE L9858 ORA $B7 STA $B7 LDA $AA JSR L970E LDA $B9 STA L0339 BRA L989C L98C1 BIT #$20 BEQ L98DA DEY CPY $0B BNE L9936 BIT $B7 BNE L9936 ORA $B7 STA $B7 LDA $AA JSR L970E JSR L9915 L98DA CMP #$08 BNE L9936 CPY $0B BCS L9936 LDY #$06 CPY $0B BCC L9936 ORA $B7 STA $B7 LDA $AA L98EE JSR L970E DEC $0B BNE L98EE LDA #$F0 LDX $AB BEQ L9904 DEX BEQ L9904 CPX #$02 BNE L9936 LDA #$B0 L9904 AND $B8 BNE L9936 JSR L97B7 JSR L9920 L990E JSR L96DE BEQ L9936 BRA L991A L9915 JSR L96DE BEQ L9920 L991A JSR L993C LDY #$02 RTS L9920 LDA $B7 BPL L9936 JSR L971D LDA $B8 BEQ L992F LDA $AB BEQ L9936 L992F LDA #$00 STA $B3 PLA PLA RTS L9936 JSR L96C0 BRL L6356 L993C LDY #$00 STY $AA STY $0B L9942 JSR L96D2 BNE L994E CMP #$2C BEQ L9942 PLA PLA RTS L994E BCS L99A3 LDX $AA BEQ L9958 CPX #$39 BNE L9985 L9958 LDY $0B CPY #$1A BCC L9964 L995E JSR L96C0 BRL L6708 L9964 LDX #$39 STX $AA TYA ASL ASL ASL ADC $0B ADC $0B STA $0B LDY $AD LDA [$BB],Y AND #$0F ADC $0B BCS L995E STA $0B L997E JSR L96D2 BEQ L9987 BNE L994E L9985 DEC $AD L9987 LDA $AA CMP #$5B BCC L998F SBC #$20 L998F LDY #$0E L9991 CMP L1CEB,Y BEQ L999F DEY BPL L9991 L9999 JSR L96C0 BRL L6356 L999F LDA L1CFA,Y RTS L99A3 LDY $AA BEQ L99B1 CPY #$39 BNE L99BD LDY $0B BEQ L995E BNE L99B5 L99B1 LDY #$01 STY $0B L99B5 STA $AA CMP #$22 BEQ L9987 BNE L997E L99BD CMP $AA BNE L9985 CMP #$22 BEQ L9999 INC $0B BNE L997E BRA L9999 L99CB INC $B9 LDA L0351 BNE L99E0 LDX L0352 LDA #$3F CPX #$4E BEQ L99DD LDA #$5E L99DD BRL L9A53 L99E0 LDA L034D CMP #$01 ROR L034D REP #$30 LDA L034F SEC SBC #$0001 CLC ADC L033D STA L034F CMP #$ECA9 BCS L9A0A CMP #$1345 BCC L9A0A SEP #$30 JSR L96C0 BRL L6708 L9A0A SEP #$30 JSR L9C6D LDY #$00 STY $BA STY $B4 LDA #$08 BIT $B7 BEQ L9A1E BRL L9BB2 L9A1E BIT $BF BPL L9A39 LDA $AB AND #$03 CMP #$01 LDA $AB TAX BCC L9A2F SBC #$01 L9A2F LSR LSR STA $AB TXA SEC SBC $AB STA $AB L9A39 LDA #$FF SEC SBC $AC TAX JSR L9CD0 JSR L9C94 LDA L0335 BIT L034F BMI L9A5F CMP $AB BCC L9A5F L9A51 LDA #$21 L9A53 LDY $B9 L9A55 DEY BMI L9A5C STA [$66],Y BNE L9A55 L9A5C BRL L9B8D L9A5F LDA $AB BNE L9A66 BRL L9AEC L9A66 LDX #$FF LDY $BE L9A6A INX CPX $AB BCS L9AAC JSR L9C4B BPL L9A79 TXA BNE L9A95 LDA #$30 L9A79 BIT $BF BPL L9A90 PHA LDA $BA CMP #$03 BCC L9A8D LDA #$2C STA [$66],Y DEY LDA #$00 STA $BA L9A8D INC $BA PLA L9A90 STA [$66],Y DEY BPL L9A6A L9A95 LDA #$20 BIT $B7 BNE L9AAC BIT L034D BPL L9AAC TYA BMI L9A51 LDA [$66],Y BNE L9A51 LDA #$2D STA [$66],Y DEY L9AAC LDA $B8 AND #$E0 BEQ L9ADA ASL BCC L9ABC TAX LDA #$24 STA [$66],Y DEY TXA L9ABC ASL BCC L9AD2 TAX LDA $B7 LSR LDA #$2D BIT L034D BMI L9ACE BCC L9AD1 LDA #$2B L9ACE STA [$66],Y DEY L9AD1 TXA L9AD2 ASL BCC L9ADA LDA #$24 STA [$66],Y DEY L9ADA TYA BMI L9AEC LDA $BF AND #$7F TAX L9AE2 LDA [$66],Y BNE L9AEC TXA STA [$66],Y DEY BPL L9AE2 L9AEC LDA $AC BEQ L9B18 LDY L0339 INY LDX #$00 TXA SEC SBC $AC STA $AC L9AFC DEX CPX $AC BCC L9B18 LDA #$08 BIT $B7 BNE L9B10 JSR L9C4B BPL L9B13 LDA #$30 BPL L9B13 L9B10 JSR L9C63 L9B13 STA [$66],Y INY BRA L9AFC L9B18 LDA #$08 BIT $B7 BEQ L9B8D LDY #$00 L9B20 LDA [$66],Y AND #$DF INY CMP #$45 BNE L9B20 DEY STA [$66],Y INY LDA #$2B BIT L0350 BPL L9B36 LDA #$2D L9B36 STA [$66],Y PHY REP #$30 LDA L0335 PHA PEA ^L0344 PEA L0344 PEA $0004 PEA $0000 _Int2Dec SEP #$30 BCS L9B77 LDY #$04 LDX #$00 L9B5A LDA L0344,X CMP #$20 BNE L9B6A DEY LDA #$30 STA L0344,X INX BNE L9B5A L9B6A STY L0343 PLY TYA CLC ADC L0343 CMP $B9 BCC L9B7A L9B77 JSR L9BA4 L9B7A INY STY $40 LDY $B9 DEY LDX #$04 L9B82 DEX LDA L0344,X STA [$66],Y DEY CPY $40 BCS L9B82 L9B8D LDA #$00 STA $A5 STZ $A4 LDA $66 STA $40 LDA $67 STA $41 LDA $68 STA $42 LDX $B9 BRL L93AA L9BA4 LDA #$21 LDX #$04 STX L0343 L9BAB STA L0343,X DEX BNE L9BAB RTS L9BB2 LDA $AB CLC ADC $AC TAX JSR L9CDA JSR L9C94 LDX $AB BEQ L9BDA DEX BNE L9BE1 LDY #$00 LDA [$66],Y BEQ L9BCC INY L9BCC LDA $AB BEQ L9BDE JSR L9C63 STA [$66],Y DEC $AB INY BNE L9BCC L9BDA SEC JSR L9C94 L9BDE BRL L9AEC L9BE1 REP #$30 LDA L034F L9BE6 BPL L9BEE CLC ADC #$0003 BMI L9BE6 L9BEE CMP #$0003 BCC L9BF8 SBC #$0003 BNE L9BE6 L9BF8 STA L033A SEP #$30 STA $AB REP #$30 LDA L034F SEC SBC L033A STA L034F SEP #$30 JSR L9CA6 LDA #$02 SEC SBC $AB STA L033A INC $AB LDY L033A LDA $B8 BEQ L9C34 INC L033A LDA $B7 LSR LDA #$2D BIT L034D BMI L9C32 BCC L9C34 LDA #$2B L9C32 STA [$66],Y L9C34 DEY BMI L9C45 LDA $BF AND #$7F TAX L9C3C LDA [$66],Y BNE L9C45 TXA STA [$66],Y BNE L9C3C L9C45 LDY L033A BRL L9BCC L9C4B JSR L9CB7 BMI L9C56 L9C50 CMP #$16 BCC L9C57 LDA #$30 L9C56 RTS L9C57 TAX LDA L039D,X ORA #$30 LDX L0337 AND #$7F RTS L9C63 STX L0337 LDA $B4 INC $B4 BRL L9C50 L9C6D LDA #$20 BIT $B7 BEQ L9C93 LDY #$FF L9C75 INY CPY $B9 BEQ L9C93 LDA [$66],Y CMP #$2D BEQ L9C88 CMP #$2B BNE L9C75 LDA #$2B BNE L9C8A L9C88 LDA #$20 L9C8A BIT L034D BPL L9C91 LDA #$2D L9C91 STA [$66],Y L9C93 RTS L9C94 LDA #$01 BCC L9CA6 STA $0B REP #$30 CLC AND #$00FF ADC L034F STA L034F L9CA6 REP #$30 LDA L034F BPL L9CB1 EOR #$FFFF INC L9CB1 STA L0335 SEP #$30 RTS L9CB7 LDA #$FF CPX #$80 BCS L9CBF LDA #$00 L9CBF XBA TXA REP #$30 STA L0337 LDA L034F SEC SBC L0337 SEP #$30 RTS L9CD0 JSR L9CB7 BMI L9CF8 CMP #$16 BCS L9CF8 TAX L9CDA LDA L039D,X CMP #$05 BCC L9CF9 LDA #$09 BCS L9CEB L9CE5 DEX BMI L9CFA LDA L039D,X L9CEB SED ADC #$00 CLD CMP #$10 AND #$0F STA L039D,X BCS L9CE5 L9CF8 CLC L9CF9 RTS L9CFA LDA #$01 STA L039D RTS L9D00 LDA L1A38+2 PHA REP #$30 LDA L1A38 DEC PHA LDX #L1A3C LDY #^L1A3C SEP #$20 LDA L1A82 XBA LDA L1A80 L9D1A RTL SEP #$30 L9D1D STA L04F9 TAY L9D21 DEY CPY #$FF BEQ L9D3B LDA [$40],Y STA L04FA,Y BRA L9D21 L9D2D LDX #$00 STX L1A7E LDX #$02 STX L1A84 JSL L9D00 L9D3B LDX L1A84 BEQ L9D5A LDX L1A86 LDY L1A88 JSR LA2B4 LDX L1A84 CPX #$02 BNE L9D5A LDA L1A80 ORA L1A82 BNE L9D83 BRA L9D77 L9D5A JSR L9D9E LDX L1A84 BNE L9D74 JSR L9E25 LDA L1A43 BEQ L9D77 LDX #$00 STZ L1A80 STZ L1A82 BRA L9D2D L9D74 JSR L9E57 L9D77 JSR LA319 LDA L1A43 BEQ L9D83 BIT $E7 BPL L9D2D L9D83 JSR L9F1B BMI L9D77 BEQ L9D96 DEX LDA L1A6E,X BEQ L9D93 BRL LA34D L9D93 BRL LA340 L9D96 JSR LA18E JSR L9ED9 BRA L9D77 L9D9E LDX L1A3F CPX #$FF BCC L9DA8 DEC L1A3F L9DA8 LDAL $000021 TAX LDAL $000023 SEC SBC L1A3E TAY STX L1A93 STY L1A94 LDX L1A3D INX STX L1A9D STZ L1A9E LDA L1A93 STA L1A9F STZ L1AA0 LDY L1A94 REP #$20 LDA #$0000 L9DD7 CLC ADC L1A9F DEY BNE L9DD7 SEC SBC L1A9D STA L1AA0 SEP #$30 XBA BNE L9DF7 LDX L1AA0 DEX DEX CPX L1A3F BCS L9DF7 STX L1A3F L9DF7 LDX L1A3C CPX L1A3F BCS L9E02 STX L1A3F L9E02 LDA L04F9 STA L1A8E CMP L1A3F BEQ L9E15 BCC L9E15 LDA L1A3F STA L1A8E L9E15 CMP L1A8A BCS L9E1F TAX INX STX L1A8A L9E1F LDA #$FF STA L1A90 RTS L9E25 JSR LA2AE LDA L1A40 LDX #$00 CMP #$20 BCS L9E32 INX L9E32 STX L1A8C LDA L1A8E STA L1A8D STA L1A8F BEQ L9E4C TAY L9E41 LDA L04F9,Y STA L1AA2,Y DEY CPY #$FF BNE L9E41 L9E4C JSR LA26F LDX #$01 STX L1A8A BRL LA212 L9E57 JSR LA26F BRL LA210 L9E5D LDA L1A90 BMI L9E8F BEQ L9E8A JSR L9ECC BNE L9ECB JSR L9EED JSR LA292 LDX L1A47 LDY L1A48 LDA L1A41 BEQ L9E80 LDX L1A49 LDY L1A4A L9E80 STX L1A91 STY L1A92 LDA #$00 BRA L9EC8 L9E8A JSR L9ECC BNE L9ECB L9E8F JSR L9ED9 LDA L1A41 BEQ L9EB1 LDA L1A95 LDX L1A8A CPX L1A8E BEQ L9EA6 BCC L9EA6 LDA #$20 L9EA6 JSR LA2DE LDX L1A47 LDY L1A48 BRA L9EBF L9EB1 LDA #$5F STA L1A96 JSR LA294 LDX L1A49 LDY L1A4A L9EBF STX L1A91 STY L1A92 JSR LA292 L9EC8 STA L1A90 L9ECB RTS L9ECC REP #$30 LDA L1A91 BEQ L9ED6 DEC L1A91 L9ED6 SEP #$30 RTS L9ED9 LDY L1A8A LDA L04F9,Y CPY L1A3F BEQ L9EE9 BCC L9EE9 LDA L1A46 L9EE9 STA L1A95 RTS L9EED LDX L1A8C BEQ L9F09 LDX L1A8E CPX L1A8A BCS L9F07 CPX L1A3F BEQ L9F07 JSR LA2C4 LDX #$01 BRL L9F09 L9F07 LDX #$00 L9F09 STX L1A9B JSR L9ED9 JSR LA294 LDX L1A9B BEQ L9F1A JSR LA2D1 L9F1A RTS L9F1B JSR L9EED JSR LA292 JSR L9ED9 LDA L1A80 LDX L1A82 JSR L664D LDY #$FF L9F2F INY CPY L1A4D BCS L9F50 CMP L1A4E,Y BNE L9F2F XBA TXA AND L1A4B CMP L1A5E,Y BEQ L9F47 XBA BRA L9F2F L9F47 TYX INX STX L1A7E LDA L1A80 RTS L9F50 TXA AND #$24 BEQ L9F82 CMP #$20 LDA L1A80 BCS L9FB8 CMP #$08 BNE L9F63 BRL LA08D L9F63 CMP #$15 BNE L9F6A BRL LA0C8 L9F6A CMP #$3C BEQ L9F72 CMP #$2C BNE L9F75 L9F72 BRL LA079 L9F75 CMP #$3E BEQ L9F7F CMP #$2E BEQ L9F7F BRA L9FB8 L9F7F BRL LA087 L9F82 LDA L1A80 CMP #$05 BNE L9F8C BRL LA125 L9F8C CMP #$18 BNE L9F93 BRL LA133 L9F93 CMP #$19 BNE L9F9A BRL LA14A L9F9A CMP #$1A BNE L9FA1 BRL LA156 L9FA1 CMP #$06 BNE L9FA8 BRL LA074 L9FA8 CMP #$08 BEQ L9FFB CMP #$15 BEQ LA015 CMP #$7F BEQ LA020 CMP #$04 BEQ LA020 L9FB8 CMP #$20 BCC L9FC3 TXA AND #$04 BNE L9FEF BRA L9FDA L9FC3 LDX L1A42 BEQ L9FEF LDA L1A82 AND #$64 CMP #$60 BNE L9FEF LDA L1A80 CMP #$11 BEQ L9FEF LDA #$80 L9FDA ORA L1A80 LDY L1A8A CPY L1A3F BEQ L9FEC BCC L9FEC JSR LA333 BRA L9FF2 L9FEC LDX #$00 RTS L9FEF JSR LA336 L9FF2 JSR L9ED9 LDX #$FF STX L1A90 RTS L9FFB LDX #$01 CPX L1A8A BNE LA007 JSR LA333 BRA L9FF2 LA007 JSR L9EED DEC L1A8A JSR LA292 JSR LA294 BRA L9FF2 LA015 JSR LA17C JSR L9EED INC L1A8A BRA L9FF2 LA020 LDX #$01 CPX L1A8A BNE LA02C JSR LA333 BRA L9FF2 LA02C JSR L9EED JSR LA292 JSR LA294 DEC L1A8A LA038 LDY L1A8A INY LA03C BEQ LA050 CPY L1A3C BEQ LA047 BCC LA047 BRA LA050 LA047 LDA L04F9,Y STA L04F8,Y INY BRA LA03C LA050 DEC L1A8D LDX L1A8E CPX L1A8D BCC LA071 BEQ LA060 DEC L1A8E LA060 LDA L1A40 LDY L1A8C BEQ LA06B LDA L1A97 LA06B LDY L1A3C STA L04F9,Y LA071 BRL LA144 LA074 JSR LA17C BRA LA038 LA079 JSR L9EED LA07C LDA #$01 STA L1A8A JSR LA2AE BRL LA147 LA087 JSR L9EED BRL LA16E LA08D JSR L9EED JSR LA292 JSR LA292 LDY L1A8A DEY BEQ LA0AC LA09C LDA L04F9,Y JSR LA0FB BNE LA0AE PHY JSR LA292 PLY DEY BNE LA09C LA0AC BRA LA07C LA0AE DEY BEQ LA07C LDA L04F9,Y JSR LA0FB BEQ LA0C0 PHY JSR LA292 PLY BRA LA0AE LA0C0 INY LA0C1 TYA STY L1A8A BRL L9FF2 LA0C8 JSR L9EED JSR LA292 LDY L1A8A LA0D1 LDA L04F9,Y JSR LA0FB BEQ LA0E6 PHY JSR LA28E PLY INY CPY L1A8E BCC LA0D1 BRA LA0C1 LA0E6 PHY JSR LA28E PLY INY CPY L1A8E BCS LA0C1 LDA L04F9,Y JSR LA0FB BEQ LA0E6 BRA LA0C1 LA0FB CMP #$20 BEQ LA121 BIT $E7 BPL LA122 CMP #$5F BEQ LA121 CMP #$5E BEQ LA121 CMP #$3F BCS LA122 CMP #$3A BCS LA11F CMP #$2F BEQ LA121 CMP #$2E BCS LA122 CMP #$28 BCC LA121 LA11F LDA #$00 LA121 RTS LA122 ORA #$00 RTS LA125 LDA #$00 LDX L1A41 BNE LA12E LDA #$01 LA12E STA L1A41 BRA LA147 LA133 STZ L1A8E STZ L1A8D LDX #$01 STX L1A8A JSR LA2AE LA141 JSR LA26F LA144 JSR LA210 LA147 BRL L9FF2 LA14A LDY L1A8A DEY STY L1A8E STY L1A8D BRA LA141 LA156 LDA L1A8F STA L1A8E STA L1A8D BEQ LA16B TAY LA162 LDA L1AA2,Y STA L04F9,Y DEY BPL LA162 LA16B JSR LA26F LA16E JSR LA2AE LDX #$01 STX L1A8A JSR LA212 LA179 BRL L9FF2 LA17C LDY L1A8A CPY L1A8E BCC LA18D BEQ LA18D JSR LA333 PLA PLA BRA LA179 LA18D RTS LA18E STA L1A9F LDY L1A8D LDA L1A41 BEQ LA1A0 CPY L1A8A BCC LA1AE BRA LA1C4 LA1A0 CPY L1A8A BCC LA1AE LDA L04F9,Y STA L04FA,Y DEY BRA LA1A0 LA1AE LDY L1A8D CPY L1A3C BCS LA1B9 INC L1A8D LA1B9 LDY L1A3F CPY L1A8E BEQ LA1C4 INC L1A8E LA1C4 LDY L1A8A LDA L1A9F STA L04F9,Y CPY L1A8E BCC LA1D7 BEQ LA1D7 STY L1A8E LA1D7 LDA L1A41 BNE LA1E8 JSR LA1F7 LDX L1A86 LDY L1A88 JSR LA2B4 LA1E8 LDA L1A9F JSR LA294 INC L1A8A LDA L1A9F BRL LA297 LA1F7 CLC LDA #L04F9 ADC L1A8A XBA LDA #$00 ADC #>L04F9 TAY SEC LDA L1A8E SBC L1A8A INC TAX XBA BRL LA30D LA210 LDX #$00 LA212 STX L1A9D LDX L1A86 LDY L1A88 STX L1AA0 STY L1AA1 JSR LA1F7 LDX L1A9D BEQ LA232 JSR LA297 STX L1AA0 STY L1AA1 LA232 LDA L1A8C BEQ LA23A JSR LA2C4 LA23A SEC LDA #L04F9 LDY #>L04F9 ADC L1A8E XBA BCC LA246 INY LA246 SEC LDA L1A3F SBC L1A8E TAX XBA JSR LA30D LDA L1A8C BEQ LA25A JSR LA2D1 LA25A LDX L1A9D BEQ LA266 LDY L1A8E INY STY L1A8A LA266 LDX L1AA0 LDY L1AA1 BRL LA2B4 LA26F LDY L1A8D INY BEQ LA28D LDA L1A40 LDX L1A8C BEQ LA280 LDA L1A97 LA280 STA L04F9,Y INY BEQ LA28D CPY L1A3C BEQ LA280 BCC LA280 LA28D RTS LA28E LDA #$1C BRA LA294 LA292 LDA #$08 LA294 JSR LA9BF LA297 JSR LA2A1 STX L1A86 STY L1A88 RTS LA2A1 PHA LDAL $00057B TAX LDAL $0005FB TAY PLA RTS LA2AE LDX L1A3D LDY L1A3E LA2B4 STX L1A86 STY L1A88 LA2BA PHA STX $2B STY $2C JSR LAC26 PLA RTS LA2C4 PHA LDA #$1B JSR LA9BF LDA #$0F JSR LA9BF PLA RTS LA2D1 PHA LDA #$0E JSR LA9BF LDA #$18 JSR LA9BF PLA RTS LA2DE STA L1A99 PHX PHY LDX #$0F LDY #$0E LDAL $000032 BMI LA2F0 TXY LDX #$0E LA2F0 STX L1A98 STY L1A9A LDA #L1A98 STA $40 LDA #>L1A98 STA $41 LDA #^L1A98 STA $42 LDA #$03 JSR LAA7D LDA L1A99 PLY PLX RTS LA30D STA $40 STY $41 LDA #^L04FA STA $42 TXA BRL LAA7D LA319 JSR L8258 BNE LA32A JSR L9E5D LDA L1A43 BEQ LA319 LDA #$00 LDX #$00 LA32A AND #$7F STA L1A80 STX L1A82 LA332 RTS LA333 JSR L80CD LA336 LDA L1A45 BEQ LA332 LDA #$07 BRL LA294 LA340 JSR L9EED LDA #$01 STA L1A8A STZ L1A84 BRA LA355 LA34D JSR L9EED LDA #$01 STA L1A84 LA355 JSR LA292 LDX L1A8E STX L04F9 LDA L1A7E RTS LA362 LDY #$40 REP #$30 LA366 LDA L1BA2,Y STA L1A3C,Y DEY DEY BPL LA366 SEP #$30 RTS LA373 LDY #$40 REP #$30 LA377 LDA L1BE4,Y STA L1A3C,Y DEY DEY BPL LA377 SEP #$30 LDA L16ED STA L1A4F RTS LA38A LDY #$4E PHA REP #$30 LA38F LDA L1A3C,Y TAX LDA L1C26,Y STA L1A3C,Y TXA STA L1C26,Y DEY DEY BPL LA38F SEP #$30 PLA RTS LA3A5 STX L1C7C STA L1C7E STY L1C7A LDA L18AF CMP #$03 BNE LA41A LA3B5 JSR LA2A1 STX L1BE5 STY L1BE6 TYA INC INC SEC SBCL $000023 BCC LA3DC TAY LA3C9 LDA #$17 JSR LA9BF LDA #$1F JSR LA9BF TYA LDY #$00 CMP #$00 BNE LA3C9 BRA LA3B5 LA3DC JSR LA38A JSR LA373 STZ L1A43 STZ L1A8C LDA #$01 STA L1A8A LDA [$40] BEQ LA3FB INC $40 BNE LA3FB REP #$30 INC $41 SEP #$30 LA3FB JSR L9D1D PHA LDA L1A80 JSR LA38A PLX CPX #$01 BNE LA414 LDA #$0D LDX L04F9 STA L04FA,X INX RTS LA414 STA L04FA LDX #$01 RTS LA41A JSR L3523 LDA #$05 JSR LA9BF LA422 LDX L1C7C LA425 STZ L04FA,X DEX BNE LA425 STZ L04FA LDX #$00 BRA LA442 LA432 STA L04FA,X INX JSR LA4DF CPX L1C7C BCC LA442 LA43E JSR L351F RTS LA442 PHX JSR LA7D7 PLX AND L1C7A CMP #$7F BEQ LA49E CMP #$20 BCS LA432 CMP #$15 BNE LA45F LDA L04FA,X BNE LA432 LDA #$20 BRA LA432 LA45F CMP #$0D BNE LA469 STA L04FA,X INX BRA LA43E LA469 CMP #$07 BEQ LA432 CMP #$1A BNE LA476 JSR LA4C1 BRA LA422 LA476 CMP #$0B BNE LA485 LA47A LDA L04FA,X BEQ LA442 JSR LA4DF INX BRA LA47A LA485 CMP #$0A BEQ LA48D CMP #$19 BNE LA49A LA48D PHX LA48E STZ L04FA,X INX CPX L1C7C BCC LA48E PLX BRA LA442 LA49A CMP #$08 BNE LA4AF LA49E CPX #$00 BEQ LA442 DEX LDA L04FA,X CMP #$20 BCC LA442 JSR LA4CE BRA LA442 LA4AF CMP #$18 BNE LA4B9 JSR LA4C1 BRL LA442 LA4B9 LDA #$07 JSR LA4DF BRL LA442 LA4C1 CPX #$00 BEQ LA4CD LA4C5 PHX JSR LA4CE PLX DEX BNE LA4C5 LA4CD RTS LA4CE BIT L1C7E BPL LA4DE PHX LDX #^L1C76 LDA #L1C76 LDY #>L1C76 JSR LAB58 PLX LA4DE RTS LA4DF BIT L1C7E BPL LA4E7 JMP LA9C4 LA4E7 RTS LA4E8 LDA #^L0B48 STA $42 REP #$30 LDA #L0B48 STA $40 SEP #$30 RTS LA4F6 LDA #$04 STA L1BF5 STZ L1771 STZ L1772 LDA #$01 LA503 STA L1BE9 LDX #^L0C2A REP #$30 LDA L1771 CLC ADC #L0C2A STA $40 SEP #$30 BCC LA518 INX LA518 STX $42 LDX $1A BNE LA52C LA51E LDA #$29 JSR LA9C4 LA523 JSR LA646 BCC LA53E LDX $1A BEQ LA523 LA52C LDY L1D11,X LDA L06F3,Y BIT #$20 BNE LA51E JSR LA646 BCS LA503 BRL LA5EB LA53E CPX #$01 BCC LA58B BNE LA59C LDA L04FA CMP #$0A BNE LA573 REP #$30 LDA L1771 BNE LA556 DEX BRL LA5D9 LA556 LDA #$0000 LA559 TAY LDA L0C2A,Y AND #$00FF STY L1775 SEC ADC L1775 CMP L1771 BCC LA559 STY L1771 BRA LA58B SEP #$30 LA573 CMP #$0B BNE LA59C LDY L1771 LDA L0C2A,Y SEC ADC L1771 CMP L1773 BCC LA588 LDA #$00 LA588 STA L1771 LA58B SEP #$30 LDX L1BE5 DEX LDY L1BE6 JSR LA2B4 LDA #$00 BRL LA503 LA59C REP #$30 LA59E TXA SEC ADC L1773 CMP #$0400 BCC LA5AD JSR LA60B BRA LA59E LA5AD LDY L1773 STA L1773 PHX BEQ LA5C3 TAX SEP #$20 LA5B9 LDA L0C2A,Y STA L0C2A,X DEX DEY BNE LA5B9 LA5C3 SEP #$20 LDA $01,S LDY #$0000 LA5CA STA L0C2B,Y TYA CMP $01,S BEQ LA5D8 LDA L04FA,Y INY BRA LA5CA LA5D8 PLX LA5D9 SEP #$30 LDA #$0D JSR LA9C4 LDA L06F0 LSR BCC LA5EB LDA #$0A JSR LA9BF LA5EB CPX #$00 BEQ LA5FB PHX LA5F0 DEX LDA L04FA,X STA L03F7,X TXA BNE LA5F0 PLX LA5FB STZ L03F7,X STX L03F6 LDA #$02 STA L1BF5 TXA XBA RTS REP #$30 LA60B LDA #$0000 LA60E TAY LDA L0C2B,Y AND #$00FF STY L1775 SEC ADC L1775 CMP L1773 BCC LA60E LDA #$0000 STA L0C2B,Y STY L1773 RTS SEP #$30 LA62D CPX $1A BNE LA633 STZ $1A LA633 CPX $18 BNE LA63A JSR L8038 LA63A LDX #$58 JMP L3FA4 ;BRL L3FA4 LA63F JSR LA4E8 LDX $18 BPL LA648 LA646 LDX $1A LA648 JSR LB742 LDA L06F0,Y BEQ LA62D BMI LA6B1 CMP #$10 BEQ LA697 JSR L353D LDA L06F3,Y STZ L1785 BIT #$20 BEQ LA666 INC L1785 LA666 BIT #$10 BNE LA678 LDA L06F1,Y BNE LA67D LA66F LDA #$0D STA L04FA LDX #$01 BRA LA691 LA678 LDA L06F2,Y BEQ LA66F LA67D JSR L3450 LDA L1785 AND L1787 BEQ LA68A LDA #$FF LA68A LDX #$FF LDY #$7F JSR LA3A5 LA691 JSR L3547 BRL LA724 LA697 LDY L022C LDX #$00 LA69C LDA L022F,Y STA L04FA,X INX INY BEQ LA6AC CMP #$0D BNE LA69C LDY #$00 LA6AC STY L022C BRA LA724 LA6B1 LDA L07F0,Y CMP #$0F BNE LA6BF JSR LA995 BCS LA6FF BRA LA722 LA6BF JSR LB8AB JSR LB5C2 LDA L18DC STA L1777 JSL GSOS DW $0012 ; Read ADRL L1777 LDY $2B LDX L1781 BCC LA702 PHA LDA L06F0,Y BIT #$40 BEQ LA6FA LDA L06F2,Y STA $1A BNE LA6EE STZ L0108 LA6EE JSR LAD3E PLA CMP #$4C BNE LA6F7 RTS LA6F7 JMP L3F75 ;BRL L3F75 LA6FA PLA CMP #$4C BNE LA6F7 LA6FF BRL L82AD LA702 LDA L06F0,Y BIT #$40 BEQ LA710 PHX PHY JSR LA73B PLY PLX LA710 LDA L06F3,Y BIT #$20 BEQ LA724 JSR LA724 STZ L04FA,X PHX JSR LA732 PLX LA722 CLC RTS LA724 LDA L04F9,X CMP #$0D BEQ LA72C INX LA72C DEX CLC RTS JMP L3F75 ;BRL L3F75 LA732 LDX #^L04FA LDY #>L04FA LDA #L04FA BRL LAB58 LA73B LDA L0108 BEQ LA74F LDX #$00 LA742 LDA L04FA,X CMP #$7B BEQ LA750 LA749 INX TXA CMP $04,S BCC LA742 LA74F RTS LA750 LDA L04FC,X CMP #$7D BNE LA749 BNE LA749 LDA L04FB,X JSR L4F89 BCC LA749 SBC #$30 BEQ LA74F XBA LDY #$00 LA768 XBA DEC BEQ LA77C XBA LA76D LDA L0109,Y INY CMP #$2C BEQ LA768 CPY L0108 BCC LA76D BRA LA74F LA77C PHX PHY TXY INY INY INY LA782 LDA L04FA,Y STA L04FA,X INY INX TYA CMP $06,S BCC LA782 LDA $06,S SEC SBC #$03 STA $06,S PLY PHY LDX #$00 LA79A INX INY LDA L0109,Y CMP #$2C BNE LA79A TXA CLC ADC $06,S STA $06,S TXA EOR #$FF TAX LDY #$FF LA7AF LDA L04FA,X STA L04FA,Y DEY DEX TXA CMP $02,S BCS LA7AF PLY PLX LA7BE LDA L0109,Y CMP #$2C BEQ LA7CC STA L04FA,X INY INX BRA LA7BE LA7CC BRL LA742 LA7CF BIT $18 BMI LA7DB LDX $18 BRA LA7DD LA7D7 LDX #$00 BRA LA7DD LA7DB LDX $1A LA7DD JSR LB742 LDA L06F0,Y BNE LA7E8 BRL LA62D LA7E8 BMI LA843 CMP #$10 BEQ LA836 JSR L353D LDA L06F3,Y STZ L1785 BIT #$20 BEQ LA7FE INC L1785 LA7FE BIT #$10 BNE LA809 LDA L06F1,Y BNE LA812 BRA LA80E LA809 LDA L06F2,Y BNE LA812 LA80E LDA #$0D BRA LA82B LA812 JSR L3450 REP #$30 PEA $0000 LDA L1785 AND L1787 PHA _ReadChar PLA SEP #$30 LA82B STA L176F JSR L3547 JSR L3441 BRA LA884 LA836 LDY L022C LDA L022F,Y STA L176F INC L022C RTS LA843 JSR LB8A2 JSR LB5C2 REP #$30 LDA L18DC STA L175F+2 JSL GSOS DW $0012 ; Read ADRL L1761 SEP #$30 BCC LA884 PHA LDY $2B LDA L06F0,Y BIT #$40 BEQ LA87C LDA L06F2,Y STA $1A JSR LAD3E PLA CMP #$4C BNE LA879 BRL LA7DB LA879 JMP L3F75 ;BRL L3F75 LA87C PLA CMP #$4C BNE LA879 BRL L82AD LA884 LDA L176F RTS *----------------------- * OUTPUT *----------------------- LA888 JSR L633E JSR L73D3 JSR LB725 TXA BEQ LA899 JSR LB8A2 LDA $1B LA899 STA $19 RTS *----------------------- * EXEC *----------------------- LA89C CMP #$23 BNE LA8AE JSR LB71C JSR LB8C6 LDX $1B LDA $1A STZ $1A BRA LA8C8 LA8AE LDX $1A BEQ LA8BA LDY L1D11,X STZ $1A JSR LAD3E LA8BA STZ $1A JSR LB755 LDX #$1E STX $1B STZ L0108 LDA #$00 LA8C8 STA $0B LDY L1D11,X STY $2B LDA #$01 LDX #$00 JSR LB222 LDA L18F8+2 CMP #$04 BEQ LA8E7 CMP #$B0 BEQ LA8E7 JSR LAD4A BRL LCCA6 LA8E7 LDY $2B STA L07F0,Y LDA $0B STA L06F2,Y LDA L18DC STA L06F1,Y LDA #$C0 STA L06F0,Y LDX #$20 JSR L3CC8 BEQ LA914 JSR L6346 CMP #$8F BNE LA914 LDX #$00 JSR L3CBE BEQ LA914 JSR L6346 LA914 TXA ORA #$01 LDY $2B STA L06F3,Y JSR L3CC8 BEQ LA972 LDX $0B BNE LA946 CMP #$22 BEQ LA949 JSR L60A7 JSR L6D6F PHA JSR L6D9D PLY CPY #$A0 BCC LA93A LDY #$A0 LA93A TYX LA93B DEY LDA [$40],Y STA L0109,Y TYA BNE LA93B BRA LA965 LA946 BRL L6356 LA949 LDX #$00 LA94B JSR L3CBE BEQ LA96A CMP #$22 BNE LA95D JSR L6306 LDA [$4E] CMP #$22 BNE LA96A LA95D STA L0109,X INX CPX #$9F BCC LA94B LA965 JSR L3CBE BNE LA965 LA96A STX L0108 LDA #$2C STA L0109,X LA972 JSR LA97A LDA $1B STA $1A RTS LA97A LDA L18DC STA L17AB JSL GSOS DW $0011 ; NewLine ADRL L17AB BCS LA98D RTS LA98D PHA JSR LAD4A PLA JMP L3F75 ;BRL L3F75 LA995 JSR LC3AE BCS LA9A9 LDX #$00 LA99C LDA L022F,X STA L04FA,X INX CPX #$4F BCC LA99C DEX RTS LA9A9 BRL L82AD DEC BPL LA9B0 INC LA9B0 BRA LA9BF LA9B2 LDA #$20 LA9B4 INC $2F LA9B6 BIT $18 BMI LA9C4 PHX LDX $18 BRA LA9C7 LA9BF PHX LDX #$00 BRA LA9C7 LA9C4 PHX LDX $19 LA9C7 PHY PHA JSR LB742 LDA L06F0,Y BNE LA9D4 BRL LA63A LA9D4 BMI LAA50 CMP #$10 BEQ LAA3C CMP #$04 BCC LAA1F LDA L07F5,Y TAX REP #$30 LDA L07F3,Y PHX PHA LDA L06F0,Y LDX #$1B04 ; SetPort BIT #$0004 BNE LA9F7 LDX #$4D0E ; StartDrawing LA9F7 JSL DISPATCH1 BCC LAA00 JMP L3F6A ;BRL L3F6A LAA00 SEP #$30 LDY $2B LDA L06F7,Y XBA LDA L06F1,Y REP #$30 TAX PLA PHA AND #$00FF PHA JSL DISPATCH1 SEP #$30 BCC LAA38 JMP L3F6A ;BRL L3F6A LAA1F LDA L06F1,Y BEQ LAA38 JSR L3400 REP #$30 PLA PHA PHA _WriteChar SEP #$30 JSR L3432 LAA38 PLA PLY PLX RTS LAA3C LDY L022C LDA $01,S STA L022F,Y INC L022C CMP #$0D BNE LAA38 STZ L022C BRA LAA38 LAA50 JSR LB8AB JSR LB5C6 PLA PHA STA L176F REP #$30 LDA L18DC STA L175F+2 JSL GSOS DW $0013 ; Write ADRL L1761 SEP #$30 BCC LAA38 JMP L3F75 ;BRL L3F75 LAA74 BIT $18 BMI LAA7D PHX LDX $18 BRA LAA80 LAA7D PHX LDX $19 LAA80 PHY PHA JSR LB742 LDA L06F0,Y BPL LAA8D BRL LAB2C LAA8D BNE LAA92 BRL LA63A LAA92 CMP #$10 BEQ LAB0A CMP #$04 BCC LAAE3 LDA L07F5,Y TAX REP #$30 LDA L07F3,Y PHX PHA LDA L06F0,Y LDX #$1B04 ; SetPort BIT #$0004 BNE LAAB3 LDX #$4D0E ; StartDrawing LAAB3 JSL DISPATCH1 BCC LAABC JMP L3F6A ;BRL L3F6A LAABC SEP #$30 LDY $2B LDA L06F7,Y CLC ADC #$03 XBA LDA L06F1,Y PLY PHY REP #$30 TAX LDA $42 AND #$00FF PHA PEI $40 PHY JSL DISPATCH1 SEP #$30 BCC LAB08 JMP L3F6A ;BRL L3F6A LAAE3 LDA L06F1,Y BEQ LAB08 JSR L3400 PLX PHX REP #$30 LDA $42 AND #$00FF PHA LDA $40 PHA PEA $0000 PHX _TextWriteBlock SEP #$30 JSR L3432 LAB08 BRA LAB52 LAB0A LDX L022C PLA PHA BEQ LAB52 LDY #$00 LAB13 LDA [$40],Y STA L022F,X INX BEQ LAB52 CMP #$0D BNE LAB21 LDX #$00 LAB21 STX L022C INY TYA CMP $01,S BCC LAB13 BRA LAB52 LAB2C JSR LB8AB JSR LB5C6 LDA $42 STA L18E0 STZ L18E1 PLA PHA STA L18E2 REP #$30 LDA $40 STA L18DE STZ L18E3 STZ L18E4 LDY #$0008 JSR L34B4 LAB52 SEP #$30 PLA PLY PLX RTS LAB58 XBA TYA XBA REP #$30 PHX PHA SEP #$30 LDA L06F0 BMI LAB7C LDA L06F1 BEQ LAB7C JSR L3400 REP #$30 _WriteCString SEP #$30 JSR L3432 LAB7C RTS *----------------------- * TEXTPORT *----------------------- LAB7D JSR L73D3 TXA BNE LAB84 INC LAB84 STA $2B JSR L6346 JSR L73D3 TXA BNE LAB90 INC LAB90 STA $2D LDA #$81 JSR L80C3 JSR L73D3 TXA BNE LAB9E INC LAB9E STA $2C CMP $2B BCS LABAA LDX $2B STA $2B STX $2C LABAA JSR L6346 JSR L73D3 TXA BNE LABB4 INC LABB4 STA $2E CMP $2D BCS LABC0 LDX $2D STA $2D STX $2E LABC0 LDA $2B CMP #$51 BCS LABF7 LDA $2C CMP #$51 BCS LABF7 LDA $2D CMP #$19 BCS LABF7 LDA $2E CMP #$19 BCS LABF7 DEC $2B DEC $2D JSR LABE4 LDA #$19 BRL LA9BF LABE4 LDA $2C SEC SBC $2B STA $2C LDX #$03 LABED LDA $2B,X STAL $000020,X DEX BPL LABED RTS LABF7 BRL L6708 *----------------------- * LOCATE *----------------------- LABFA LDAL $00057B STA $2B LDAL $0005FB STA $2C LDA [$4E] CMP #$2C BEQ LAC1A JSR L73D3 TXA BEQ LAC13 DEC LAC13 STA $2C JSR L3CC8 BEQ LAC26 LAC1A JSR L6346 JSR L73D3 TXA BEQ LAC24 DEC LAC24 STA $2B LAC26 LDX $2B TXA CMPL $000021 BCC LAC35 LDAL $000021 DEC TAX LAC35 LDA $2C CMPL $000023 BCC LAC42 LDAL $000023 DEC LAC42 STAL $000025 STAL $0005FB TXA STAL $000024 STAL $00057B REP #$30 PEA $FC22 JSR LAC5E PLA PLA RTS LAC5E REP #$30 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PHA PHX PHY LDA $11,S PHA _FWEntry PLY PLX PLA PLP PLP SEP #$30 RTS *----------------------- * CLOSE *----------------------- LAC81 BEQ LACA2 JSR L633E JSR L73D3 CPX #$1F BCS LAC9F JSR LB742 STZ $12 JSR LACC4 LAC95 LDA $12 STZ $12 BNE LAC9C RTS LAC9C JMP L3F75 ;BRL L3F75 LAC9F BRL L6708 LACA2 LDA $C4 BMI LACAA BEQ LACAA STZ $C4 LACAA STZ $12 LDX #$1F LACAE PHX JSR LB742 LDA L06F0,Y BEQ LACBE CMP #$C0 BEQ LACBE JSR LACC4 LACBE PLX DEX BNE LACAE BRA LAC95 LACC4 CPX $19 BNE LACCE LDA #$FF STA $18 STZ $19 LACCE STY $13 JSR LB95E BCC LACD7 STA $12 LACD7 LDY $13 LDA L06F0,Y BNE LACE1 BRL LB6AC LACE1 LDA L06F2,Y BEQ LACFF BMI LACFC PHY TAY LDA L1D11,Y TAY LDA L06F2,Y DEC BMI LACF6 LDA #$00 LACF6 STA L06F2,Y PLY BRA LACFF LACFC JSR LAD90 LACFF LDA L06F3,Y BIT #$40 BEQ LAD37 REP #$30 LDA L06F6,Y AND #$00FF PHA TAX LDA L06F4,Y PHA PHX PHA _HUnlock BCS LAD2A _DisposeHandle SEP #$30 BCC LAD2D LAD2A JMP L3F6A ;BRL L3F6A LAD2D LDY $13 LDA L06F3,Y AND #$BF STA L06F3,Y LAD37 LDY $13 LDA L06F0,Y BPL LAD4F LAD3E LDA L06F1,Y STA L18DC STZ L18DC+1 JSR LAD82 LAD4A LDY #$0A JMP L34B4 ;BRL L34B4 LAD4F AND #$7E CMP #$02 BNE LAD5A BIT L178B BMI LAD3E LAD5A CMP #$08 BNE LAD82 LDA L07F5,Y TAX REP #$30 PHX LDA L07F3,Y PHA _CloseWindow BCC LAD7E PHA SEP #$30 JSR LAD80 REP #$30 PLA JMP L3F6A ;BRL L3F6A LAD7E SEP #$30 LAD80 LDY $13 LAD82 LDA #$08 TYX LAD85 STZ L06F0,X STZ L07F0,X INX DEC BNE LAD85 RTS LAD90 TAX TYA LSR LSR LSR PHA PHX LDX #$00 LAD99 INX CPX #$1E BCS LADCC LDY L1D11,X LDA L06F2,Y CMP $02,S BNE LAD99 LDA $01,S DEC BMI LADAF LDA #$00 LADAF STA L06F2,Y BEQ LADCC PLA PHX LADB6 INX CPX #$1E BCS LADCC LDY L1D11,X LDA L06F2,Y CMP $02,S BNE LADB6 LDA $01,S STA L06F2,Y BRA LADB6 LADCC PLA PLA LDY $13 RTS LADD1 JSR LB71C BNE LADD9 BRL LB6AC LADD9 PHY JSR L6346 CMP #$8B BEQ LADE4 LADE1 BRL L6356 LADE4 JSR L3CBE LDX #$01 CMP #$91 BEQ LADFC LDX #$02 CMP #$92 BEQ LADFC LDX #$03 LDA #$8F JSR L80A8 BNE LADE1 LADFC STX $77 JSR L6306 LDA #$93 JSR L80C3 JSR LB71C BEQ LAE13 PHX JSR LACC4 PLX JSR LB742 LAE13 PLX LDA L06F0,X EOR L06F0,Y AND #$FE BEQ LAE21 LAE1E JMP L3F9E ;BRL L3F9E LAE21 LDA L06F0,X CMP #$80 BCC LAE37 BEQ LAE2C BRA LAE1E LAE2C LDA $77 CMP #$01 BNE LAE37 LDA #$4E JMP L3F75 ;BRL L3F75 LAE37 LDA L06F0,X STA L06F0,Y LDA $77 ORA #$08 STA L06F3,Y LDA L07F0,X STA L07F0,Y STA $78 LDA #$00 STA L07F1,Y REP #$30 LDA L07F6,X STA L07F6,Y STA L18FC SEP #$30 LDA L06F2,X BMI LAE65 LDA #$7F LAE65 INC STA L06F2,X TXA STA L06F2,Y JSR LB925 LDY $2B LDA $E9 ORA $EA BEQ LAE84 REP #$30 LDA $E9 STA L07F6,Y STA L18FC SEP #$30 LAE84 BRL LB10D LAE87 JSR L6363 JSR L60AB LDX L0AF2 STX $83 REP #$30 LDA L0AF0 STA $81 SEP #$30 LDA [$81] STA $77 JSR L6346 LDX #$01 LDA #$92 JSR L80A8 BNE LAEB1 JSR L6306 JSR L73D3 LAEB1 STX $78 JSR L3CC8 CMP #$8B BEQ LAEBD LAEBA BRL L6356 LAEBD JSR L3CBE CMP #$92 BNE LAEBA JSR L6306 LDA #$93 JSR L80C3 JSR LB71C BEQ LAED9 PHX JSR LACC4 PLX JSR LB742 LAED9 LDA #$02 STA L06F3,Y LDA $78 STA L07F0,Y LDY #$02 LDA [$81],Y XBA INY LDA [$81],Y LDY $2B STA L06F7,Y XBA STA L06F1,Y LDA $77 AND #$0F STA L06F0,Y CMP #$08 BEQ LAF10 LDY #$06 LDA [$81],Y TAX LDY #$04 REP #$30 LDA [$81],Y SEP #$30 JSR LAFB1 RTS LAF10 LDA #$10 BIT $77 BEQ LAF2B LDX #^L06F0 REP #$30 TYA CLC ADC #L06F0 LDY #$0010 STA [$81],Y INY INY TXA STA [$81],Y SEP #$30 LAF2B LDA #$20 BIT $77 BEQ LAF5D LDA #$09 XBA LDY #$02 LDA [$81],Y CMP #$04 BEQ LAF5D REP #$30 TAX JSL DISPATCH1 BCC LAF53 LAF45 PHA SEP #$30 LDY $2B JSR LAD82 REP #$30 PLA JMP L3F6A ;BRL L3F6A LAF53 PLA PLX LDY #$0042 STA [$81],Y TXA STA [$81],Y LAF5D SEP #$30 LDX $83 REP #$30 LDA $81 CLC ADC #$0008 BCC LAF6C INX LAF6C PHX PHA _NewWindow BCS LAF45 PLA PLX SEP #$30 JSR LAFB1 STZ $78 JSR LB925 LDY $2B LDA $E9 ORA $EA BEQ LAFAE REP #$30 LDA $E9 STA L07F6,Y STA L18FC SEP #$30 JSR LB10D BIT $77 BPL LAFAE JSR LB8D5 LDA #$20 REP #$10 LDY L18FC LAFA8 DEY STA [$8E],Y TYX BNE LAFA8 LAFAE SEP #$30 RTS LAFB1 LDY $2B STA L07F3,Y XBA STA L07F4,Y TXA STA L07F5,Y RTS *----------------------- * OPEN *----------------------- LAFBF CMP #$23 BNE LAFC6 BRL LADD1 LAFC6 LDA #$D6 JSR L80A8 BNE LAFD0 BRL LAE87 LAFD0 JSR LB755 JSR L6346 LDX #$01 LDA #$92 JSR L80A8 BNE LAFE5 JSR L6306 JSR LB5E4 LAFE5 STX $78 LDY #$03 CMP #$8B BNE LB016 JSR L3CBE CMP #$91 BNE LAFF8 LDY #$01 BRA LB013 LAFF8 CMP #$92 BNE LB000 LDY #$02 BRA LB013 LB000 LDA #$84 JSR L80A8 BEQ LB011 LDA #$8F JSR L80A8 BEQ LB013 BRL L6356 LB011 LDY #$06 LB013 JSR L6306 LB016 STY $77 LDA #$93 JSR L80C3 JSR LB71C BEQ LB02A PHX JSR LACC4 PLX JSR LB742 LB02A LDA $77 ORA #$08 STA L06F3,Y BIT L178B BMI LB064 LDA L0008 CMP #$2E BNE LB064 JSR L34E7 BCC LB064 LDY $2B LDA L1897,X STA L06F1,Y LDA #$03 STA L06F3,Y LDA L1898,X STA L06F0,Y LDA #$04 STA L18F8+2 LDA #$01 STA $E9 STZ $EA LDA #$00 BRA LB09C LB064 JSR LB93B LDY $2B LDA $78 STA L07F0,Y CMP #$01 BNE LB074 STZ $78 LB074 LDX $E9 LDY $EA CMP #$AD BNE LB084 TYA BNE LB084 TXA BNE LB084 LDY #$02 LB084 STX L18FC STY L18FC+1 JSR LB228 LDY $2B LDA L18EA STA L06F1,Y LDA #$80 STA L06F0,Y AND $77 LB09C STA L07F1,Y LDA L18F8+2 CMP #$0F BNE LB0AC STA L07F0,Y BRL LC32B LB0AC LDA L07F0,Y BEQ LB0CA CMP #$01 BNE LB0D0 LDA L18F8+2 CMP #$B0 BEQ LB0CD CMP #$AD BEQ LB0CD CMP #$04 BEQ LB0CD JSR LAD3E BRL LCCA6 LB0CA LDA L18F8+2 LB0CD STA L07F0,Y LB0D0 STA $78 JSR LB928 LDA $78 CMP #$AD BNE LB0E3 LDY L18FC LDX L18FC+1 BRA LB0FD LB0E3 LDX #$02 LDY #$00 CMP #$B0 BEQ LB0EF CPY #$04 BNE LB0F3 LB0EF LDX #$00 LDY #$01 LB0F3 LDA $E9 ORA $EA BEQ LB0FD LDY $E9 LDX $EA LB0FD TYA LDY $2B STA L07F6,Y STA L18FC TXA STA L07F7,Y STA L18FC+1 LB10D LDA $78 CMP #$B0 BEQ LB117 CMP #$04 BNE LB11A LB117 BRL LB1B4 LB11A STZ L108C LB11D LDY L18FC+1 LDX L18FC TYA XBA TXA REP #$30 BIT #$0001 BEQ LB12E INC LB12E PEA $0000 PEA $0000 PEA $0000 PHA PEI $07 PEA $0000 PEA $0000 PEA $0000 _NewHandle SEP #$30 BCC LB16A CMP #$01 BNE LB167 BIT L108C BPL LB15A JMP L3FA2 ;BRL L3FA2 LB15A LDA L18FC+1 INC DEC L108C JSR L5D47 BRL LB11D LB167 JMP L3F6A ;BRL L3F6A LB16A LDX $2B REP #$30 PLA STA L06F4,X STA $9B TAY PLA STA $9D STA L06F6,X PHA PHY _HLock BCS LB167 LDA [$9B] TAX LDY #$0002 LDA [$9B],Y STA $9D STX $9B LDA L18FC BIT #$0001 BNE LB19B DEC LB19B DEC TAY LDA #$0000 LB1A0 STA [$9B],Y DEY DEY BPL LB1A0 SEP #$30 LDX $2B LDA L06F3,X ORA #$40 STA L06F3,X BRA LB1C7 LB1B4 LDX $2B LDA L06F3,X AND #$F7 STA L06F3,X LDA L06F0,X BMI LB1C4 RTS LB1C4 JSR LA97A LB1C7 LDX $2B LDA L07F1,X STZ L07F1,X TAY LDA L06F3,X BIT #$04 BEQ LB1F9 TYA BMI LB1F9 LDY #$0E JSR LB6DA REP #$30 LDA $ED BEQ LB1E6 DEC LB1E6 PHA SEP #$30 SEC ROR $E8 JSR LBA0D LDY $2B REP #$30 PLA STA L07F1,Y SEP #$30 LB1F9 RTS LB1FA LDA #L0007 LDY #>L0007 LDX #^L0007 STZ L18F4+3 STA L18EC STY L18ED STX L18EE STA L18F4 STY L18F4+1 STX L18F4+2 RTS LB216 JSR LB1FA LB219 LDY #$05 JSR L34C1 JSR L18D1 LB221 RTS LB222 AND #$03 STA $77 STX $78 LB228 JSR LB216 BCS LB28F LDA L18FC STA L1717 LDA L18FC+1 STA L1718 LDA $78 BEQ LB246 CMP L18F8+2 BEQ LB246 LDA #$41 BRA LB25E LB246 LDA $77 AND #$03 STA L18DC LDA $77 AND L18F8 AND #$03 CMP L18DC STZ L18DC BEQ LB260 LDA #$4E LB25E BRA LB2BB LB260 LDA #$02 STA L108C LB265 LDY #$06 JSR L34C1 JSR L18D1 BCC LB282 CMP #$54 BNE LB2BB BIT L108C BMI LB2BB DEC L108C LDA #$04 JSR L5D47 BRA LB265 LB282 LDX L18EA STX L18DC CLC STZ L18DC+1 LDA $77 RTS LB28F CMP #$46 BNE LB2BB LDX $78 BEQ LB2BB LDA $77 AND #$03 CMP #$01 BEQ LB2B9 LDA $77 CMP #$C3 BNE LB2A9 LDA #$4F BRA LB2BB LB2A9 LDA #$C3 STA $77 LDX $78 LDY #$00 JSR LBC4D BCS LB2BB BRL LB228 LB2B9 LDA #$46 LB2BB JMP L3F75 ;BRL L3F75 LB2BE SEC ROR $E8 JSR LB71C JSR LB8B7 JSR LB5C2 JSR LB809 JSR LB7ED JSR L3CC8 CMP #$3B BNE LB2DC JSR L6306 BRA LB2E5 LB2DC RTS LB2DD JSR L3CC8 BEQ LB2DC JSR L6346 LB2E5 LDY $2B REP #$30 LDA L07F1,Y CMP L07F6,Y SEP #$30 BCC LB2F8 LB2F3 JSR LB864 BCS LB303 LB2F8 JSR LB8D5 LDA [$8E] CMP #$00 BNE LB306 BRA LB2F3 LB303 BRL L82AD LB306 JSR LB5D5 TAX JSR LE24E BPL LB312 BRL LB34E LB312 PHX JSR L649E BIT $10 BMI LB34B PLX PEI $0F STX $0F LDA L1ED1,X STA $10 LDA $8E LDY $8F LDX $90 INC BNE LB331 INY BNE LB331 INX LB331 JSR LDE7E PLX PLA STX $0F JSR L5E13 LB33B JSR LB8D5 LDA [$8E] STA $0D JSR LB571 JSR LB916 BRL LB2DD LB34B JMP L3F9E ;BRL L3F9E LB34E JSR L649E BIT $10 BPL LB34B LDX $0F JSR LE24E LDY #$01 LDA [$8E],Y PHA INY TYA CLC ADC $8E STA $BB LDA $8F ADC #$00 STA $BC LDA $90 ADC #$00 STA $BD PLA TAY CLC JSR L6E81 JSR L5E5F BRL LB33B *----------------------- * GET *----------------------- LB37E CMP #$24 BNE LB385 BRL L7C19 LB385 SEC JSR LB4C1 PHP JSR LB5C2 PLP JSR LB50F STZ L17B1 LDY $2B LDA L07F0,Y CMP #$04 BEQ LB3A1 CMP #$B0 BNE LB3B3 LB3A1 LDA L18DC STA L17B1 JSL GSOS DW $0011 ; NewLine ADRL L17B1 BCS LB3D3 LB3B3 JSR LB87D BCS LB3D0 JSR LB3EC LDA L17B1 BEQ LB3CF STA L17AB JSL GSOS DW $0011 ; NewLine ADRL L17AB BCS LB3D3 LB3CF RTS LB3D0 BRL L82AD LB3D3 JMP L3F75 ;BRL L3F75 *----------------------- * PUT *----------------------- LB3D6 CLC JSR LB4C1 PHP JSR LB5C6 PLP JSR LB50F LDY #$08 JSR L34C1 JSR L18D1 BCS LB3D3 LB3EC REP #$30 LDA L18E6 STA $E9 SEP #$30 BRL LB916 *----------------------- * WRITE *----------------------- LB3F8 LSR $E8 JSR LB71C JSR LB8B7 JSR LB5C6 JSR LB809 BNE LB40B JSR LBA04 LB40B JSR L3CC8 CMP #$3B BNE LB417 JSR L6306 BRA LB420 LB417 RTS LB418 JSR L3CC8 BEQ LB417 JSR L6346 LB420 JSR LB58D LB423 LDX $2B REP #$30 LDA L07F1,X SEP #$30 BNE LB43C JSR LBA0D JSR LB9A2 LDY #$08 JSR L34B4 JSR LBA0D LB43C JSR LB8D5 JSR LB571 JSR LB903 BCS LB45C LDY $2B REP #$30 LDA L07F6,Y CMP $E9 SEP #$30 BCC LB459 JSR LB864 BRA LB423 LB459 BRL LB303 LB45C REP #$10 LDY #$0000 LDX $E9 DEX LDA $0D CMP #$08 BCC LB46D JSR L3F4C LB46D STA [$8E],Y INY CMP #$07 BCC LB48A BEQ LB483 DEX DEX REP #$30 LDA $0B STA [$8E],Y SEP #$20 INY BRA LB489 LB483 DEX TXA STA [$8E],Y BEQ LB49C LB489 INY LB48A LDA [$22] STA [$8E],Y INY INC $22 BNE LB499 INC $23 BNE LB499 INC $24 LB499 DEX BNE LB48A LB49C SEP #$30 JSR LB916 LDY $2B LDA L06F3,Y ORA #$80 STA L06F3,Y JSR LB8FD BCC LB4B7 JSR LB8D5 LDA #$00 STA [$8E] LB4B7 BIT $A5 BPL LB4BE JSR L72CA LB4BE BRL LB418 LB4C1 ROR $E8 JSR LB71C PHP PLX REP #$30 LDA L07F6,Y PLY PHA PHY SEP #$30 PHX JSR L3CC8 CMP #$3B BNE LB4E0 PLP BNE LB4FB LB4DD BRL LB6AC LB4E0 JSR L6346 CMP #$2C BEQ LB4F5 JSR L6089 JSR L670D XBA TYA REP #$30 STA $04,S SEP #$30 LB4F5 PLP BEQ LB4DD JSR LB809 LB4FB PHP JSR L6336 JSR L5EC8 REP #$30 PLA CMP $04,S BCS LB50B STA $04,S LB50B SEP #$30 PLP RTS LB50F BEQ LB551 LDX $2B REP #$30 LDA L07F1,X BEQ LB551 TAY LDA L07F6,X CMP #$0001 BEQ LB529 TYA CMP L07F6,X BCS LB547 LB529 PHY SEP #$30 JSR LB9DD REP #$30 PLA CLC ADC L18DE STA L18DE BCC LB53E INC L18E0 LB53E SEP #$30 JSR LBA10 BRA LB556 REP #$30 LB547 INC L07F3,X BNE LB551 SEP #$30 INC L07F3,X LB551 SEP #$30 JSR LBA04 LB556 JSR LB9C6 REP #$30 PLX PLA PHX STA L18E2 STZ L18E4 LDA $84 STA L18DE SEP #$30 LDA $86 STA L18E0 RTS LB571 STZ $EA LDY $0D LDA L1D31,Y CPY #$07 BCC LB584 BEQ LB581 BRL LD58D LB581 LDA [$A6] SEC LB584 ADC #$01 STA $E9 BCC LB58C INC $EA LB58C RTS LB58D JSR L60A1 LDA #L0AF0 LDY #>L0AF0 LDX #^L0AF0 BIT $A5 BPL LB5A3 JSR L6D61 LDA $40 LDY $41 LDX $42 LB5A3 STA $22 STY $23 STX $24 BIT $A5 BMI LB5B8 BVS LB5B8 LDX $A4 CMP #$06 BNE LB5B8 JSR LE44C LB5B8 LDX $A4 BIT $A5 BMI LB5BF INX LB5BF STX $0D RTS LB5C2 LDA #$01 BRA LB5C8 LB5C6 LDA #$02 LB5C8 LDY $2B AND L06F3,Y BEQ LB5D0 RTS LB5D0 LDA #$4E JMP L3F75 ;BRL L3F75 LB5D5 CMP #$08 BCS LB5E1 AND #$07 CMP #$07 BEQ LB5E0 DEC LB5E0 RTS LB5E1 BRL LB67F LB5E4 LDX #$01 JSR L3CC8 BNE LB5EE LB5EB BRL L6356 LB5EE CMP #$DF BEQ LB602 BCS LB62D CMP #$93 BEQ LB612 CMP #$A7 BEQ LB609 CMP #$96 BEQ LB609 BRA LB626 LB602 LDA #$8E JSR L80A8 BNE LB60B LB609 LDX #$0F LB60B LDA #$90 JSR L80A8 BNE LB614 LB612 LDX #$04 LB614 LDA #$91 JSR L80A8 BNE LB61D LDX #$AD LB61D LDA #$8C JSR L80A8 BNE LB626 LDX #$B0 LB626 CPX #$01 BEQ LB5EB JMP L3CBE ;BRL L3CBE LB62D BRL L73D3 LB630 JSR LE28F REP #$30 LDA L1717 STA L0AF0 SEP #$30 BRL L78F3 *----------------------- * FILTYP() *----------------------- LB640 JSR L73D6 JSR LB742 BEQ LB6AC LDA L07F0,Y TAY BRL L7A91 *----------------------- * TYP() *----------------------- LB64F JSR L73D6 JSR LB722 SEC ROR $E8 JSR LB8B7 JSR LB7EF LB65E JSR LB8D5 LDA [$8E] CMP #$00 BNE LB677 LDY $2B REP #$30 LDA L07F1,Y SEP #$30 BEQ LB677 JSR LB864 BRA LB65E LB677 CMP #$08 BCS LB67F TAY BRL L7A91 LB67F LDX #$06 JMP L3FA4 ;BRL L3FA4 *----------------------- * REC() *----------------------- LB684 JSR L73D6 JSR LB722 BEQ LB6AC LDA L07F0,Y CMP #$B0 BEQ LB697 CMP #$04 BNE LB69A LB697 JSR LB6D0 LB69A LDY $2B LDA L07F5,Y TAX LDA L07F3,Y XBA LDA L07F4,Y TAY XBA BRL L7A4D LB6AC LDX #$29 JMP L3FA4 ;BRL L3FA4 *----------------------- * EOFMARK() *----------------------- LB6B1 JSR L73D6 JSR LB722 BEQ LB6AC LDY #$0E JSR L34B4 LDA L18E1 STA L0AF3 LDX L18E0 LDY L18DF LDA L18DE BRL L7A50 LB6D0 LDY $2B LDA L06F1,Y STA L18DC LDY #$0C LB6DA JSR L34B4 LDY $2B REP #$30 PEA $0000 PEA $0000 PEA $0000 PEA $0000 LDA L18E0 PHA LDA L18DE PHA LDA #$0000 PHA LDA L07F6,Y PHA _LongDivide SEP #$30 LDY $2B REP #$30 PLA STA L07F3,Y PLX PLA STA $ED PLA STA $EF SEP #$30 TXA STA L07F5,Y RTS LB71C JSR L633E JSR L73D3 LB722 TXA BEQ LB746 LB725 CPX #$1E BCS LB746 LB729 STX $1B LDY L1D11,X STY $2B LDA L06F0,Y STZ L18DC BPL LB73E LDA L06F1,Y STA L18DC LB73E STZ L18DC+1 RTS LB742 CPX #$20 BCC LB729 LB746 JMP L6708 ;BRL L6708 LB749 JSR LB755 JSR L35E3 JSR L3550 LDX $84 LB754 RTS LB755 LDX #$00 LB757 LDY $76 STX $84 INY BNE LB7AE JSR L3CC8 CMP #$80 BCS LB7AE CMP #$22 BEQ LB7AE DEY LB76A INY INX LDA [$4E],Y BMI LB781 CMP #$3A BEQ LB781 CMP #$2C BEQ LB781 CMP #$20 BCC LB781 STA L0007,X BRA LB76A LB781 TYA PHA JSR L8C60 PLA LB787 LDY $84 LB789 STA L0007,Y CLC TYA ADC #L0007 STA L18F4 STA L18EC LDA #$00 ADC #>L0007 STA L18F4+1 STA L18ED LDA #^L0007 STA L18F4+2 STA L18EE STZ L18F4+3 JMP L3CC8 ;BRL L3CC8 LB7AE JSR L60A7 JSR L6D61 LDX $84 PHA JSR LB787 PLA STA $84 BEQ LB7CC LDY #$FF LB7C1 INY INX LDA [$40],Y STA L0007,X DEC $84 BNE LB7C1 LB7CC STX $84 JSR L72CA LDX $84 LB7D3 RTS LB7D4 JSR L3CC8 CMP #$2C BNE LB7D3 LDY $2B LDA L06F0,Y BMI LB7E5 BRL LCCA6 LB7E5 JSR LB809 BNE LB7D3 BRL LBA04 LB7ED BEQ LB7F8 LB7EF LDY $2B LDA L06F3,Y BIT #$08 BEQ LB808 LB7F8 JSR LBA04 JSR LB87A LDY $2B LDA L06F3,Y AND #$F7 STA L06F3,Y LB808 RTS LB809 JSR L3CC8 CMP #$2C BNE LB860 JSR L6346 JSR L608F JSR LE440 LDX $AA BPL LB820 LB81D JMP L6708 ;BRL L6708 LB820 LDY $2B LDA L06F0,Y BPL LB847 LDA L06F3,Y BIT #$40 BNE LB842 LDA L06F1,Y STA L18DC JSL GSOS DW $0015 ; Flush ADRL L18DC BCS LB861 BRA LB847 LB842 JSR LB95E BCS LB861 LB847 LDY $2B REP #$30 LDA L0AF0 STA L07F3,Y LDA L0AF2 CMP #$0080 SEP #$30 BCS LB81D STA L07F5,Y LDA #$00 LB860 RTS LB861 JMP L3F75 ;BRL L3F75 LB864 JSR LB95E BCS LB861 LDX $2B INC L07F3,X BNE LB877 REP #$30 INC L07F4,X SEP #$30 LB877 JSR LBA04 LB87A JSR LB9A2 LB87D LDY #$09 JSR L34C1 JSR L18D1 BCC LB8A1 CMP #$4C BEQ LB88E JMP L3F75 ;BRL L3F75 LB88E LDY $2B LDA L06F3,Y BIT #$40 BEQ LB89E JSR LB8D5 LDA #$00 STA [$8E] LB89E LDA #$4C SEC LB8A1 RTS LB8A2 LDY $2B LDA L06F0,Y BEQ LB8D2 BPL LB8B6 LB8AB LDA L07F0,Y CMP #$B0 BEQ LB8B6 CMP #$04 BNE LB8CF LB8B6 RTS LB8B7 LDY $2B LDA L06F0,Y BPL LB8CD LDA #$AD CMP L07F0,Y BNE LB8CF RTS LB8C6 LDY $2B LDA L06F0,Y BMI LB8AB LB8CD BEQ LB8D2 LB8CF BRL LCCA6 LB8D2 BRL LB6AC LB8D5 LDX $2B STZ $9E LDA L06F4,X STA $9B REP #$30 LDA L06F5,X STA $9C LDA [$9B] CLC ADC L07F1,X STA $8E SEP #$30 LDY #$02 LDA [$9B],Y ADC #$00 STA $90 LDY #$00 RTS JMP L3F6A ;BRL L3F6A LB8FD LDA #$01 STA $E9 STZ $EA LB903 LDY $2B REP #$31 LDA $E9 ADC L07F1,Y STA $DE LDA L07F6,Y CMP $DE SEP #$30 RTS LB916 LDY $2B REP #$31 LDA $E9 ADC L07F1,Y STA L07F1,Y SEP #$30 RTS LB925 JSR LB93B LB928 LDX $78 CPX #$AD BNE LB93A LDA $EA BNE LB93A LDA $E9 BEQ LB93A CMP #$03 BCC LB95B LB93A RTS LB93B STZ $E9 STZ $EA JSR L3CC8 BEQ LB95A JSR L6346 JSR L608F JSR L670D LDA $A9 BEQ LB95B REP #$30 LDA L0AF0 STA $E9 SEP #$30 LB95A RTS LB95B JMP L6708 ;BRL L6708 LB95E LDY $2B CLC LDA L06F3,Y BPL LB95A REP #$30 LDA L07F1,Y PHA SEP #$30 BEQ LB97B JSR LB8FD PHP JSR LBA0D JSR LB9A2 PLP LB97B REP #$30 PLA ADC #$0000 STA L18E2 SEP #$30 LDY #$08 JSR L34C1 JSR L18D1 BCS LB9A1 LDX $2B LDA L06F3,X AND #$7F STA L06F3,X REP #$30 STZ L07F1,X SEP #$30 LB9A1 RTS LB9A2 LDX $2B STZ $9E LDA L06F4,X STA $9B REP #$30 LDA L06F5,X STA $9C LDA [$9B] STA L18DE LDA L07F6,X STA L18E2 SEP #$30 LDY #$02 LDA [$9B],Y STA L18E0 LB9C6 STZ L18E1 STZ L18E4 STZ L18E5 LDY $2B LDA L06F1,Y BEQ LB9DA STA L18DC RTS LB9DA JSR L3F4C LB9DD LDY $2B REP #$30 LDA L07F4,Y STA $C1 LDA L07F6,Y STA $EF SEP #$30 LDA L07F3,Y STA $C0 JSR L694C REP #$30 LDA $EB STA L18DE LDA $ED STA L18E0 SEP #$30 LBA03 RTS LBA04 LDX $2B REP #$30 STZ L07F1,X SEP #$30 LBA0D JSR LB9DD LBA10 LDY #$0B JSR L34C1 JSR L18D1 BCC LBA03 CMP #$4D BEQ LBA21 JMP L3F75 ;BRL L3F75 LBA21 BIT $E8 BMI LBA5E JSR LB5C6 LDX $2B REP #$30 LDA L07F6,X CLC ADC L18DE STA L18DE SEP #$30 BCC LBA3D INC L18E0 LBA3D LDY #$0D JSR L34B4 LDX $2B REP #$30 LDA L18DE SEC SBC L07F6,X STA L18DE SEP #$30 BCS LBA10 LDA L18E0 SBC #$00 STA L18E0 BRA LBA10 LBA5E LDY $2B LDA L06F3,Y BIT #$40 BEQ LBA6D JSR LB8D5 TYA STA [$8E] LBA6D BRL L82AD *----------------------- * CHAIN *----------------------- LBA70 JSR LBA9D JSR LBD9F JSR L5AC1 LBA79 JSR L8358 JSR L5AEE JSR L5AC4 LDA $30 ORA $31 ORA L03D4 BEQ LBA98 JSR L8B85 BCS LBA98 LDA L03D4 BEQ LBA98 BRL L8BE9 LBA98 STZ $E7 JMP L3BEF ;BRL L3BEF LBA9D JSR LB749 LDA #$01 LDX #$AB JSR LB222 JSR L3CC8 BEQ LBAB2 JSR L6346 JMP L3FA0 ;BRL L3AF0 LBAB2 LDA #$00 STZ $30 STZ $31 STZ L03D3 STZ L03D4 RTS *----------------------- * COPY *----------------------- LBABF LDA L171D BEQ LBAC9 LDX #$3E JMP L3FA4 ;BRL L3FA4 LBAC9 REP #$30 LDA $6A SEC SBC $64 DEC BMI LBAD8 CMP #$0005 BCS LBADB LBAD8 JMP L3FA2 ;BRL L3FA2 LBADB CMP #$00FF BCC LBAE3 LDA #$00FE LBAE3 STA L1727+1 LDA $64 INC STA L1723+1 SEP #$30 STZ L1723 STZ L1727 JSR LBEE2 LDA #$FF STA L171D JSR L3CC8 BEQ LBB42 JSR L6346 JSR L3AF0 BNE LBB15 LDA $30 ORA $31 ORA L03D4 BNE LBB16 JMP L3BA0 ;BRL L3BA0 LBB15 RTS LBB16 JSR L903F BCS LBB1E BRL L8BE9 LBB1E JSR L8AD8 LDA [$97] INC TAY INC CLC ADC $97 STA $4E REP #$30 LDA $98 BCC LBB32 INC LBB32 STA $4F LDA [$97],Y STA $75 SEP #$30 STY L171D LDX #$AA JSR L81A9 LBB42 REP #$30 LDA L18F8 STA L1719 LDA L18F8+2 STA L171B SEP #$30 JSR LBC07 LDX #$00 LDA #$01 JSR LB222 LDA #$41 LDX L18F8+2 CPX #$0F BEQ LBB9A LDA L18DC STA L171F JSR LBC07 REP #$30 LDA L1719 STA L18EC STA L18F4 LDA L171B STA L18F4+2 STA L18EE SEP #$30 LDX L18F8+2 LDA #$C3 LDY #$01 JSR LBC4D BCS LBB9A LDY #$06 JSR L34C1 JSR L18D1 BCC LBBA0 LBB9A BRL LA98D LBB9D JMP L3F75 ;BRL L3F75 LBBA0 LDA L18EA STA L1720 LBBA6 JSR LBC07 LDA L171F STA L1721 JSL GSOS DW $0012 ; Read ADRL L1721 BCS LBBDA REP #$30 LDA L172B STA L1727 SEP #$30 JSR LBC07 LDA L1720 STA L1721 JSL GSOS DW $0013 ; Write ADRL L1721 BCC LBBA6 LBBDA PHA LDA L171F STA L18DC JSR LAD4A LDA L1720 STA L18DC JSR LAD4A STZ L171F STZ L1720 PLA CMP #$4C BNE LBB9D BIT L171D BMI LBC03 JSR L8C51 JSR L8C1A LBC03 STZ L171D RTS LBC07 BIT L171D BMI LBC11 LDX #$AA BRL L82C2 LBC11 RTS *----------------------- * CREATE *----------------------- LBC12 JSR LB755 JSR L6346 LDA #$92 JSR L80C3 JSR LB5E4 STX $78 JSR LB925 LDX $78 REP #$30 LDA $E9 BNE LBC35 CPX #$00AD BNE LBC35 LDA #$0200 LBC35 STA L18FC SEP #$30 LDY #$00 LDA #$C3 CPX #$0F BNE LBC44 LDY #$0D LBC44 JSR LBC4D BCS LBC4A RTS LBC4A JMP L3F75 ;BRL L3F75 LBC4D STX L18F8+2 STY L1900 STA L18F8 STZ L1900+1 STZ L18F8+3 STZ L18F8+1 REP #$30 STZ L1902+2 STZ L1902 STZ L18FE SEP #$30 LDY #$01 JSR L34C1 JMP L18D1 ;BRL L18D1 *----------------------- * INIT *----------------------- LBC74 JSR LBEE2 LDA #$01 STA L18FC STZ L18FC+1 JSL GSOS DW $0008 ; Volume ADRL L1916 BCS LBCAB LDA L1926 CMP #$01 BNE LBCC9 LDA $76 INC BNE LBCAF JSR L933A LDA #L2D6D LDY #>L2D6D LDX #^L2D6D JSR LBCCE PHP JSR L933A PLP BEQ LBCAF RTS LBCAB CMP #$27 BNE LBCCB LBCAF LDAL $0197C9 PHA JSL GSOS DW $0024 ; Format ADRL L18F4 PLX PHA TXA STAL $0197C9 PLA BCS LBCCB RTS LBCC9 LDA #$52 LBCCB JMP L3F75 ;BRL L3F75 LBCCE JSR L93FB LDX L039B STZ L039C,X LDA #L039C LDY #>L039C LDX #^L039C JSR L93FB JSR L93B9 JSR L80D4 STZ L16F1 STZ L16EF JSR L351F JSR LA7DB CMP #$59 BEQ LBCF8 CMP #$79 LBCF8 RTS LBCF9 LDA #$40 LBCFB JMP L3F75 ;BRL L3F75 *----------------------- * SAVE *----------------------- LBCFE BNE LBD10 LDY L0087 BEQ LBCF9 LBD05 LDA L0087,Y STA L0007,Y DEY BPL LBD05 BRA LBD4E LBD10 BPL LBD1C LDA #$93 JSR L80C3 BEQ LBD3F LBD19 BRL LB749 LBD1C JSR L664D CMP #$41 BNE LBD4B LDY #$02 LDA [$4E],Y BEQ LBD2D CMP #$20 BNE LBD4B LBD2D DEY LDA [$4E],Y JSR L664D CMP #$53 BNE LBD4B JSR L6306 JSR L3CBE BNE LBD19 LBD3F LDA #L0088 LDY #>L0088 LDX #^L0088 JSR L93FB BRL L933A LBD4B JSR LB749 LBD4E LDA #$02 LDX #$AB JSR LB222 LDA L107C SEC SBC L1068 STA $C0 REP #$30 LDA L107D SBC L1069 STA $C1 SEP #$30 STZ $C3 REP #$30 LDA L1068 STA $40 SEP #$30 LDA L106A STA $42 LDY #$01 LDA #$10 STA [$40],Y INY LDA L0B1E STA [$40],Y INY LDA L0B1C STA [$40],Y STZ $E8 JSR LBE6B LDY #$0C JSR L34B4 LDY #$0D JSR L34B4 JSR LAD4A RTS LBD9F JSR L5B06 LDY #$0E JSR L34B4 LDX $C0 STZ L1092 REP #$30 LDA L18DE STA $C0 LDA L18E0 STA $C2 LDA $C1 CPX #$0000 BEQ LBDC0 INC LBDC0 INC STA L1093 CMP L1049 BCC LBDFD BEQ LBDFD LDX $75 CPX #$FF00 BCC LBDE5 LDX $19 CPX #$0100 BCS LBDE5 LDA $C1 LSR LSR LSR CLC ADC L1093 STA L1093 LBDE5 LDA L1092 SEC SBC L1048 STA $1C SEP #$30 LDA L1094 SBC L104A STA $1E LDX #$08 JSR L562F LBDFD REP #$30 LDA L1068 STA $40 CLC ADC $C0 STA L107C SEP #$30 LDA L106A STA $42 ADC $C2 STA L107E LDA #$01 STA $E8 JSR LBE6B LDA L106A STA $42 REP #$30 LDA L1068 STA $40 SEP #$30 LDY #$02 LDA [$40],Y STA L0B1E INY LDA [$40],Y STA L0B1C LDA [$40] SEC ADC $40 STA $4B REP #$30 LDA $41 BCC LBE46 INC LBE46 STA $4C SEP #$30 BRL LAD4A LBE4D JMP L3FA2 ;BRL L3FA2 *----------------------- * LOAD *----------------------- LBE50 JSR LB749 LDA #$01 LDX #$AB JSR LB222 JSR L5A7B JSR LBD9F LDA #$80 STA $C4 JMP L40D8 ;BRL L40D8 LBE67 HEX 00FE0000 LBE6B LDA $C2 BEQ LBEAB LBE6F LDX #$03 LBE71 LDA LBE67,X STA L18E2,X DEX BPL LBE71 JSR LBEC2 LDA $40 CLC ADC LBE67 STA $40 LDA $41 ADC LBE67+1 STA $41 LDA $42 ADC LBE67+2 STA $42 LDA $C0 SEC SBC LBE67 STA $C0 LDA $C1 SBC LBE67+1 STA $C1 LDA $C2 SBC LBE67+2 STA $C2 BRA LBE6B LBEAB LDA $C1 CMP LBE67+1 BCS LBE6F LDA $C1 STA L18E3 LDA $C0 STA L18E2 STZ L18E4 STZ L18E5 LBEC2 LDX $42 REP #$30 LDA $40 STA L18DE STX L18E0 SEP #$30 LDA $E8 CLC ADC #$08 TAY JSR L34C1 JSR L18D1 BCC LBEE1 BRL LA98D LBEE1 RTS LBEE2 JSR LB755 REP #$30 LDA L18F4+2 PHA LDA L18F4 PHA SEP #$30 JSR L6346 INX JSR LB757 REP #$30 LDA L18F4 STA L18F8 LDA L18F4+2 STA L18F8+2 PLA STA L18F4 PLA STA L18F4+2 SEP #$30 RTS *----------------------- * RENAME *----------------------- LBF11 JSR LBEE2 JSR L3CC8 BNE LBF1B LDA #$00 LBF1B STA $0D BEQ LBF33 CMP #$2C BEQ LBF26 JMP L6356 ;BRL L6356 LBF26 JSR L3CBE LDA #$92 JSR L80C3 JSR LB5E4 STX $78 LBF33 LDY #$03 JSR L34B4 LDA $0D BNE LBF3D RTS LBF3D REP #$30 LDA L18F8 STA L18F4 LDA L18F8+2 STA L18F4+2 SEP #$30 JSR LB219 BCC LBF55 JMP L3F75 ;BRL L3F75 LBF55 LDA $78 STA L18F8+2 LBF5A BRL LBF72 *----------------------- * UNLOCK *----------------------- LBF5D LDA #$C3 BRA LBF63 *----------------------- * LOCK *----------------------- LBF61 LDA #$01 LBF63 STA $77 JSR LB755 JSR LB216 BCS LBF77 LDA $77 STA L18F8 LBF72 LDY #$04 JMP L34B4 ;BRL L34B4 LBF77 JMP L3F75 ;BRL L3F75 *----------------------- * DELETE *----------------------- LBF7A JSR LB755 LDY #$02 JMP L34B4 ;BRL L34B4 *----------------------- * PREFIX *----------------------- LBF82 BEQ LBFB5 CMP #$24 BEQ LBFAF CMP #$3F BNE LBFE1 JSR L6306 LDA #$00 STA L179F LBF94 LDA L179F ORA #$30 JSR L9415 JSR L9413 JSR LBFBA INC L179F LDA L179F CMP #$08 BCC LBF94 BRL L933A LBFAF JSR L6306 BRL L7102 LBFB5 LDA #$00 STA L179F LBFBA JSL GSOS DW $000A ; GetPrefix ADRL L179F BCS LC034 LDX L0007 STZ L0008,X JSR LBFD8 LBFCF LDX $76 INX BNE LBFD7 BRL L933A LBFD7 RTS LBFD8 LDA #L0008 LDY #>L0008 LDX #^L0008 BRL L93FB LBFE1 STZ L179F CMP #$F0 BCC LBFF0 CMP #$F8 BCS LBFFB AND #$0F BRA LBFFE LBFF0 JSR L4F89 BCC LC01D SBC #$30 CMP #$08 BCC LBFFE LBFFB JMP L6708 ;BRL L6708 LBFFE STA L179F JSR L3CBE BEQ LBFBA CMP #$2C BNE LC00F JSR L6306 BRA LC01D LC00F CMP #$2F BEQ LC017 LDA #$40 BRA LC034 LC017 JSR L6363 JSR L6363 LC01D JSR LB755 JSR L3623 JSL GSOS DW $0009 ; SetPrefix ADRL L179F BCS LC034 BIT $E7 BMI LBFBA RTS LC034 JMP L3F75 ;BRL L3F75 *----------------------- * VOLUMES *----------------------- LC037 LDA #$01 LC039 STA $0B ORA #$30 STA L000A ; n REP #$30 LDA #$442E ; .D STA L0008 LDA #$2020 ; SPC SPC STA L000B SEP #$30 STZ L000D LDA #$03 STA L0007 JSL GSOS DW $0008 ; Volume ADRL L1916 BCC LC094 CMP #$11 BEQ LC0C2 LDX #$51 CMP #$10 BEQ LC087 LDX #$2A CMP #$28 BEQ LC087 LDX #$1B CMP #$52 BEQ LC087 LDX #$1C CMP #$27 BEQ LC087 CMP #$2F BEQ LC087 JMP L3F75 ;BRL L3F75 LC087 PHX JSR LBFD8 PLX JSR L409C JSR L4088 BRA LC0B3 LC094 JSR LBFD8 JSR L363B LDX L0007 STZ L0008,X JSR LBFD8 LDA #$16 JSR LC0C5 REP #$30 LDA L1922+2 LDX L1922 JSR L4808 LC0B3 SEP #$30 JSR LBFCF LDA $0B INC CMP #$0A BCS LC0C2 BRL LC039 LC0C2 BRL L933A LC0C5 PHA LC0C6 LDA $2F CMP $01,S BCS LC0D1 JSR L9413 BRA LC0C6 LC0D1 PLA RTS *----------------------- * TYPE *----------------------- LC0D3 JSR LB755 LDA #$01 LDX #$00 JSR LB222 LDA L18F8+2 CMP #$04 BEQ LC0EE CMP #$B0 BEQ LC0EE LC0E8 JSR LAD4A BRL LCCA6 LC0EE JSR LA97A LDA #$00 STA $0B JSR L3CC8 BEQ LC13B CMP #$2C BNE LC130 JSR L6306 LDA #$81 JSR L80A8 BNE LC136 JSR L6306 JSR L633E JSR L73D3 JSR LB725 STX $18 TXA BEQ LC124 LDA L07F0,Y CMP #$04 BEQ LC124 CMP #$B0 BNE LC0E8 LC124 JSR L3CC8 BEQ LC13B JSR L6306 CMP #$2C BEQ LC136 LC130 JSR LAD4A JMP L6356 ;BRL L6356 LC136 JSR L73D3 STX $0B LC13B LDA #$80 STA L16F1 LC140 REP #$30 LDA #L0007 STA L18DE LDA #^L0007 STA L18E0 LDA #$00FF STA L18E2 STZ L18E4 LDA L17AB STA L18DC SEP #$30 LDY #$09 JSR L34C1 JSR L18D1 BCC LC170 CMP #$4C BEQ LC1AF BRL LA98D LC170 LDY L18E6 LDA L0006,Y STA $0C CMP #$0D BEQ LC180 CMP #$8D BNE LC183 LC180 DEC L18E6 LC183 LDX $0B BEQ LC18C CPX L18E6 BCC LC18F LC18C LDX L18E6 LC18F STZ L0007,X LDA #L0007 LDY #>L0007 LDX #^L0007 JSR L93FB LDA $0C CMP #$0D BEQ LC1A5 CMP #$8D BNE LC140 LC1A5 JSR L933A JSR LC2B5 BCS LC1AF BRA LC140 LC1AF LDA #$FF STA $18 JSR L933A STZ L16F1 STZ L16EF JSR L80D4 LDA L17AB STA L18DC BRL LAD4A *----------------------- * DIR *----------------------- LC1C8 JSR L7505 LDA #$FF STA L175F LDA #$01 STA L037B LDA #$3D STA L037C STZ L037D STZ L0370 LDA #$50 BRA LC1ED *----------------------- * CAT *----------------------- LC1E4 LDA #$28 BRA LC1EA *----------------------- * CATALOG *----------------------- LC1E8 LDA #$50 LC1EA STZ L175F LC1ED STA L022E JSR L3CC8 BEQ LC228 BCC LC201 CMP #$F9 BCS LC239 CMP #$F0 BCC LC20A AND #$3F LC201 XBA JSR L3CBE BEQ LC21C JSR L6363 LC20A JSR LB755 BIT L175F BPL LC217 JSR LC5C1 BCS LC228 LC217 JSR L3623 BRA LC23C LC21C XBA SEC SBC #$30 CMP #$08 BCC LC22A LDA #$40 BRA LC239 LC228 LDA #$00 LC22A STA L179F JSL GSOS DW $000A ; GetPrefix ADRL L179F BCC LC23C LC239 JMP L3F75 ;BRL L3F75 LC23C LDX L0007 LDY #$00 TXA JSR LB789 LDA #$01 LDX #$00 JSR LB222 LDY #$08 LDA #$00 LC250 STA L07E7,Y STA L08E7,Y DEY BNE LC250 LDY #$F8 STY $2B JSR LC32B LDA L18DC STA L06F1,Y LDA #$80 STA L06F0,Y LDA #$80 STA L16F1 BIT L175F BPL LC284 JSR L3CC8 BEQ LC284 CMP #$2C BEQ LC281 JMP L6356 ;BRL L6356 LC281 JSR LC60B LC284 JSR L933A JSR LC2B5 BCS LC297 LDY #$F8 STY $2B JSR LC2DA BCS LC2A6 BRA LC284 LC297 JSR L933A LDX #$F8 STX $2B LDA #$04 STA L06F7,X JSR LC2DA LC2A6 JSR L933A STZ L16F1 STZ L16EF JSR L80D4 BRL LC938 LC2B5 BIT L16EF BPL LC2D6 JSR L8258 LDA #$80 STA L16F1 LDA L16F3 CMP L16ED BEQ LC2D8 CMP #$20 BNE LC2D6 JSR L80CD LC2D1 LDA L16EF BPL LC2D1 LC2D6 CLC RTS LC2D8 SEC RTS LC2DA JSR LC3AE BCC LC2E0 RTS LC2E0 LDX L022E CPX #$50 BCS LC2EA STZ L022F,X LC2EA BIT L175F BPL LC320 LDA L0230 BPL LC320 AND #$7F STA L0230 LDA L022F CMP #$20 BNE LC308 JSR L9413 JSR LA2C4 BRA LC311 LC308 JSR LA2C4 LDA L022F JSR L9415 LC311 LDA L0230 JSR L9415 JSR LA2D1 LDA #L0231 LDY #>L0231 BRA LC324 LC320 LDY #>L022F LDA #L022F LC324 LDX #^L022F JSR L93A3 CLC RTS LC32B LDY $2B LDA #$01 STA L06F3,Y LDA #$00 STA L06F7,Y STA L07F1,Y STA L07F2,Y LDX L1900 CPX #$0F BNE LC368 LDA L18FC STA L07F5,Y LDA L18FC+1 STA L07F6,Y LDA L18FE STA L07F7,Y LDA L190A STA L06F4,Y LDA L190A+1 STA L06F5,Y LDA L190A+2 STA L06F6,Y LC368 RTS LC369 XBA TYA REP #$30 TAY LC36E REP #$30 LC370 LDA #$0000 LC373 STY L0333 STA L0335 LDA #$0000 STA L0331 LDA #$0001 STA L032F PEA ^L032F PEA L032F PEA ^L0333 PEA L0333 PEA ^L034D PEA L034D LDA #$0300 ORA #$000B PHA LDX #$0000 JSL L00F7 SEP #$30 LDX L0351 STZ L0352,X RTS LC3AE LDY #$50 LDA #$20 LC3B2 STA L022E,Y DEY BNE LC3B2 STY L027E LDX $2B INC L07F3,X BNE LC3C5 INC L07F4,X LC3C5 LDA L06F7,X ASL TAY LDA L1D41+1,Y PHA LDA L1D41,Y PHA RTS LC3D3 STZ L1733 LDA #$01 STA L1735 LDY L0007 LC3DE LDA L0007,Y STA L022F,Y DEY BNE LC3DE BRA LC3E9 LC3E9 LDX $2B INC L06F7,X TXY LDA L06F7,Y CMP #$06 RTS LC3F5 LDY #LC45D-LC40E BIT L175F BMI LC3FE LDY #$00 LC3FE LDX #$00 LC400 LDA LC40E,Y BEQ LC40C STA L0230,X INY INX BRA LC400 LC40C BRA LC3E9 LC40E ASC 'NAME TYPE KBYTES MODIFIED ' ASC ' CREATED ENDFILE SUBTYPE'00 LC45D ASC ' FILE NAME TYPE' ASC ' SIZE LAST MODIFIED ACCESS'00 LC4AB JSR LC907 LDA #$01 STA L1733 BCC LC4B8 BRL LC3E9 LC4B8 BIT L175F BPL LC4C0 BRL LC73B LC4C0 LDA L1757 AND #$C3 CMP #$01 BNE LC4CD LDA #$2A BNE LC4D3 LC4CD CMP #$C3 BEQ LC4D6 LDA #$2B LC4D3 STA L022F LC4D6 LDY L0005 CPY #$10 BCC LC4DF LDY #$0F LC4DF LDA L0006,Y STA L022F,Y DEY BNE LC4DF LDA L0005 CMP #$10 BCC LC4F4 LDA #$2B STA L023F LC4F4 LDY #$11 JSR LC7F7 REP #$30 LDY L173F LDA L173F+2 AND #$00FF JSR LC373 MX %11 LDX #$08 LDY L0351 LC50C LDA L0351,Y STA L026D,X DEX DEY BNE LC50C REP #$30 LDA L1743 LSR TAY JSR LC370 MX %11 LDY L0351 LDX #$05 LDA L1743 LSR BCC LC539 LDA #$2E STA L0352,Y LDA #$35 STA L0353,Y INY INY INX INX LC539 LDA L0351,Y STA L0243,X DEX DEY BNE LC539 LDX #$08 LDY #$1E JSR LC946 LDX #$00 LDY #$2F JSR LC946 LDX #$08 LDY #$28 JSR LC9FD LDX #$00 LDY #$39 JSR LC9FD LDY #$48 LDA L173D CMP #$AB BEQ LC590 CMP #$06 BEQ LC590 CMP #$04 BEQ LC578 CMP #$B0 BEQ LC578 CMP #$AD BNE LC5BF LC578 LDA #$52 STA L022F,Y LDA #$3D STA L0230,Y INY INY TYX LDA L1759+1 LDY L1759 JSR LCA3B BRA LC5BF LC590 LDA #$41 STA L022F,Y LDA #$24 STA L0231,Y REP #$30 PHY PEA $0000 PEA $0000 LDA L1759 PHA _HexIt PLX PLA PLY STA L0234,Y TXA STA L0232,Y SEP #$30 LDA #$3D STA L0230,Y LC5BF CLC RTS LC5C1 LDX L0007 BEQ LC609 STZ $0B INX LC5C9 DEX BEQ LC5E3 LDA L0007,X CMP #$2F BEQ LC5E3 CMP #$2D BEQ LC5DF CMP #$23 BEQ LC5DF CMP #$3D BNE LC5C9 LC5DF INC $0B BRA LC5C9 LC5E3 LDA $0B BEQ LC609 LDA L0007 STA L037B STX L0007 LDY #$00 LC5F2 INX LDA L0007,X STA L037C,Y INY CPX L037B BCC LC5F2 STY L037B LDX L0007 BNE LC609 SEC RTS LC609 CLC RTS LC60B STZ L0370 STZ L036E LC611 JSR L3CC8 BNE LC617 RTS LC617 CMP #$2C BEQ LC61E JMP L6356 ;BRL L6356 LC61E JSR L3CBE CMP #$2D BNE LC62D JSR L3CBE LDA #$FF STA L036E LC62D LDA [$4E] CMP #$DF BEQ LC642 TAX BMI LC63D JSR L664D CMP #$41 BCS LC642 LC63D JSR L73D3 BRA LC645 LC642 JSR LC858 LC645 TXA INC L0370 LDX L0370 STA L0370,X BRA LC611 LC651 LDY #$00 LDX #$01 LC655 LDA L037B,X CMP #$23 BNE LC68A LDA L0007,Y JSR L4F89 BCS LC66E BRA LC66C LC666 INY CPY L0005 BEQ LC6A8 LC66C CLC RTS LC66E INX CPX L037B BEQ LC676 BCS LC666 LC676 INY CPY L0005 BCC LC655 CPX L037B BNE LC66C LDA L037B,X CMP #$3D BNE LC66C BRA LC6A8 LC68A CMP #$2D BEQ LC66E CMP #$3D BEQ LC6A3 JSR L664D STA $B6 LDA L0007,Y JSR L664D CMP $B6 BEQ LC66E BRA LC66C LC6A3 CPX L037B BCC LC6AA LC6A8 SEC RTS LC6AA INX STX $B7 LDA L037B,X CMP #$3D BEQ LC711 CMP #$2D BEQ LC711 LDA L037B,X JSR L664D STA $B6 LC6C0 LDX $B7 JSR LC716 BCC LC66C STY $B8 LC6C9 INX CPX L037B BEQ LC6D9 BCC LC6D9 INY CPY L0005 BCC LC6FD BRA LC6A8 LC6D9 LDA L037B,X CMP #$3D BEQ LC676 CMP #$2D BEQ LC676 INY CPY L0005 BCS LC66C CMP #$23 BEQ LC707 JSR L664D STA $B3 LDA L0007,Y JSR L664D CMP $B3 BEQ LC6C9 LC6FD LDY $B8 INY CPY L0005 BCC LC6C0 CLC RTS LC707 LDA L0007,Y JSR L4F89 BCS LC6C9 BRA LC6FD LC711 LDX #$55 JMP L3FA4 ;BRL L3FA4 LC716 PHY LC717 LDA $B6 CMP #$23 BEQ LC731 LDA L0007,Y JSR L664D CMP $B6 BEQ LC739 LC727 INY CPY L0005 BCC LC717 CLC PLY INY RTS LC731 LDA L0007,Y JSR L4F89 BCC LC727 LC739 PLA RTS LC73B LDX L0370 BEQ LC758 LDA L173D LC743 CMP L0370,X BEQ LC753 DEX BNE LC743 LDA L036E BMI LC758 LC750 BRL LC4AB LC753 LDA L036E BMI LC750 LC758 LDX L037B BEQ LC76D CPX #$01 BNE LC768 LDA L037B,X CMP #$3D BEQ LC76D LC768 JSR LC651 BCC LC750 LC76D LDY L0005 CPY #$21 BCC LC776 LDY #$20 LC776 LDA L0006,Y STA L0232,Y DEY BNE LC776 LDX #$FD LC781 INX INX INX LDA L1EA2,X BEQ LC79C CMP L173D BNE LC781 LDA L1EA2+1,X STA L022F LDA L1EA2+2,X ORA #$80 STA L0230 LC79C LDY #$25 JSR LC7F7 REP #$30 LDA L1743 LSR BCC LC7AA INC LC7AA TAY JSR LC370 SEP #$30 LDY L0351 LDX #$05 LC7B5 LDA L0351,Y STA L0257,X DEX DEY BNE LC7B5 LDA #$4B STA L025D LDY #$30 LDX #$08 JSR LC9E7 LDY #$35 LDX #$08 JSR LC99C LDY #$42 LDX #$08 JSR LC9FD LDY #$48 LDX #$00 LC7DD LDA L1E96,X AND L1757 BEQ LC7EA LDA L1E9C,X BRA LC7EC LC7EA LDA #$20 LC7EC STA L022F,Y INY INX CPX #$06 BCC LC7DD CLC RTS LC7F7 PHY LDA L173D JSR LC838 PLY BCS LC811 LDA #$03 LC803 XBA LDA L1D4D,X STA L022F,Y INX INY XBA DEC BNE LC803 RTS LC811 LDA #$24 STA L022F,Y LDA L173D AND #$0F INY INY LDX #$02 LC81F ORA #$30 CMP #$3A BCC LC827 ADC #$06 LC827 STA L022F,Y DEY DEX BEQ LC837 LDA L173D LSR LSR LSR LSR BRA LC81F LC837 RTS LC838 XBA LDA #$3C TAX CLC ADC #$3C ADC #$3C XBA LC842 XBA SEC SBC #$03 XBA DEX CPX #$FF BEQ LC856 CMP L1E01,X BNE LC842 XBA TAX XBA CLC RTS LC856 SEC RTS LC858 LDX #$0F LDA #$8E JSR L80A8 BEQ LC873 LDX #$04 LDA #$90 JSR L80A8 BEQ LC873 LDX #$B0 LDA #$8C JSR L80A8 BNE LC877 LC873 JSR L6306 RTS LC877 STZ $0B JSR L3CC8 LDX #$FD LC87E INX INX INX INC $0B LDA L1D4D,X BEQ LC8B4 LDA [$4E] JSR L664D CMP L1D4D,X BNE LC87E LDY #$01 LDA [$4E],Y JSR L664D CMP L1D4D+1,X BNE LC87E INY LDA [$4E],Y JSR L664D CMP L1D4D+2,X BNE LC87E INY JSR L8C60 LDX $0B LDA L1E01-1,X TAX RTS LC8B4 BRL LCCA6 LC8B7 LDA L07F5,X ORA L07F6,X ORA L07F7,X BEQ LC901 LDY #$3A LC8C4 LDA LCA4E,Y STA L022F,Y DEY BNE LC8C4 LDA L07F5,X TAY LDA L07F6,X LDX #$36 JSR LCA3B LDX $2B LDA L06F4,X TAY LDA L06F5,X LDX #$21 JSR LCA3B LDX $2B LDA L07F5,X SEC SBC L06F4,X TAY LDA L07F6,X SBC L06F5,X LDX #$0E JSR LCA3B LDX $2B DEC L06F7,X LC901 INC L06F7,X BRL LC3E9 LC907 LDY $2B LDA L06F1,Y STA L172F JSL GSOS DW $001C ; GetDirEntry ADRL L172F BCS LC91C LC91B RTS LC91C CMP #$4A BEQ LC930 CMP #$61 BEQ LC91B CMP #$01 BNE LC932 JSR LC938 LDX #$53 JMP L3FA4 ;BRL L3FA4 LC930 LDA #$44 LC932 JSR LC938 JMP L3F75 ;BRL L3F75 LC938 PHA STZ L0370 STZ L037B LDY #$F8 JSR LAD3E PLA RTS LC946 STX L007F STY L0081 LDA L1747+3,X BNE LC959 ORA L1747+5,X ORA L1747+4,X BEQ LC98D LC959 LDY L1747+4,X LDA #$00 JSR LCA18 LDA #$2D STA L0231,Y LDX L007F LDY L1747+3,X LDA #$07 JSR LCA19 LDY L0081 INY INY INY LC977 LDX L007F LDA L1747+5,X ASL ASL TAX LC980 LDA L1E3D,X STA L022F,Y INY INX CMP #$2D BNE LC980 RTS LC98D LDX #$00 LC98F LDA L1E8D,X STA L022F,Y INY INX CPX #$09 BCC LC98F RTS LC99C STX L007F STY L0081 LDA L1747+3,X BNE LC9AF ORA L1747+5,X ORA L1747+4,X BEQ LC98D LC9AF JSR LC977 LDA #$20 STA L022E,Y LDX L007F LDY L1747+4,X LDA #$04 JSR LCA18 LDA #$2C STA L0231,Y LDX L007F LDA L1747+3,X CMP #$64 REP #$30 LDA #$3931 BCC LC9D9 LDA #$3032 LC9D9 STA L0233,Y SEP #$30 LDY L1747+3,X LDA #$0A JSR LCA19 RTS LC9E7 LDA L1747+7,X BEQ LC9FC DEC ASL ASL TAX LC9F0 LDA L1E6F,X STA L022F,Y INY INX CMP #$2C BNE LC9F0 LC9FC RTS LC9FD STX L007F STY L0081 LDY L1747+2,X LDA #$00 JSR LCA19 LDA #$3A STA L0231,Y LDX L007F LDY L1747+1,X LDA #$03 LCA18 INY LCA19 PHA JSR LC36E PLA CLC ADC L0081 TAY LDA L0352 STA L022F,Y STA L0230,Y LDA L0353 BEQ LCA35 STA L0230,Y RTS LCA35 LDA #$30 STA L022F,Y RTS LCA3B PHX JSR LC369 LDY #$00 PLX LCA42 LDA L0352,Y BEQ LCA4E STA L022F,X INY INX BRA LCA42 LCA4E RTS LCA4F ASC 'BLOCKS FREE: BLOCKS USED: ' ASC 'TOTAL BLOCKS: ' *----------------------- * LIBRARY *----------------------- LCA89 CMP #$DF BNE LCA99 LDA #$84 JSR L80A8 BNE LCA99 JSR L6306 BRA LCAA6 LCA99 JSR LCBF8 BCS LCAA6 BIT L0B5E BPL LCAA6 JSR LCC46 LCAA6 JSR L3CC8 BNE LCAAC RTS LCAAC JSR LB755 LDA #$01 LDX #$AC JSR LB222 REP #$30 LDA #L0007 STA L18DE LDA #^L0007 STA L18E0 LDA #$0074 STA L18E2 STZ L18E4 SEP #$30 LDY #$09 JSR L34C1 JSR L18D1 BCC LCADC LCAD9 BRL LA98D LCADC REP #$30 STZ L18DE STZ L18E0 SEP #$30 LDY #$0B JSR L34C1 JSR L18D1 BCS LCAD9 BIT L0B5E BPL LCB00 JSR LCC17 BCC LCB00 JSR LAD4A BRL LCBEA LCB00 LDY #$0E JSR L34B4 LDA L18E0 ORA L18E1 BEQ LCB12 LDX #$1F JMP L3FA4 ;BRL L3FA4 LCB12 LDA L18DE CMP #$01 REP #$30 LDA L18DF ADC L1079 INC CMP L1071 BCC LCB34 SBC L1071 INC STA $1D SEP #$30 STZ $1C LDX #$04 JSR L5603 LCB34 SEP #$30 JSR LCE44 BIT L0B5C BPL LCB62 LDX L107A STX $93 REP #$30 LDA L1078 STA $91 CLC ADC L18DE STA $8B LDA $81 STA $97 BCC LCB57 INX LCB57 SEP #$30 STX $8D LDA $83 STA $99 JSR L5812 LCB62 REP #$30 LDA L1080 CLC ADC L18DE STA L1080 BCC LCB73 INC L1082 LCB73 LDA L1078 CLC ADC L18DE STA L1078 BCC LCB82 INC L107A LCB82 SEP #$30 LDX $83 REP #$30 LDA L18DE STA L18E2 LDA $81 STA L18DE STX L18E0 SEP #$30 LDA #$80 STA L0B5E LDY #$09 JSR L34C1 JSR L18D1 BCC LCBAA BRL LA98D LCBAA JSR LAD4A LDY #$29 LCBAF CLC TYA ADC #$19 TAY LDA [$81],Y BIT #$01 BEQ LCBDC STY $0B INY INY INY REP #$20 LCBC1 LDA [$81],Y PHA DEY DEY CPY $0B BCS LCBC1 REP #$30 _LoadOneTool SEP #$30 BCC LCBDA JMP L3F6A ;BRL L3F6A LCBDA LDY $0B LCBDC LDA [$81],Y BPL LCBAF JSR LCE44 REP #$30 LDA #$0000 STA [$81] LCBEA SEP #$30 JSR L3CC8 BEQ LCBF7 JSR L6346 BRL LCAAC LCBF7 RTS LCBF8 BIT $E7 BPL LCC15 LDY #$06 LCBFE LDA [$4E],Y JSR L664D CMP L280F,Y BNE LCC15 DEY BPL LCBFE LDY #$07 JSR L8C60 JSR L3CC8 SEC RTS LCC15 CLC RTS LCC17 LDA $74 STA $83 REP #$30 LDA $72 STA $81 LCC21 SEP #$30 LDY #$45 LDA [$81],Y CMP L004C BNE LCC2D RTS LCC2D REP #$30 LDA [$81] CLC ADC $81 STA $81 BCC LCC3E SEP #$30 INC $83 REP #$30 LCC3E LDA [$81] BNE LCC21 CLC SEP #$30 RTS LCC46 STZ $1C STZ $1D BIT L0B5C BPL LCC86 JSR LCE44 LDA $83 STA $42 LDA $74 STA $99 REP #$30 LDA $63 PHA LDA L1078 STA $63 SEC SBC $81 STA $1C LDA $81 STA $40 LDA $72 STA $97 SEP #$30 LDA $65 PHA LDA L107A STA $65 JSR L5889 PLA STA $65 REP #$30 PLA STA $63 LCC86 REP #$30 LDA $72 CLC ADC $1C STA L1078 STZ L1080 STZ L1082 SEP #$30 LDA $74 ADC #$00 STA L107A STZ L0B5E RTS LCCA3 JMP L3FA2 ;BRL L3FA2 LCCA6 LDA #$41 JMP L3F75 ;BRL L3F75 LCCAB JMP L3F6A ;BRL L3F6A *----------------------- * INVOKE *----------------------- LCCAE CMP #$DF BNE LCCBE LDA #$84 JSR L80A8 BNE LCCBE JSR L6306 BRA LCCDB LCCBE JSR LCBF8 BCS LCCDB BIT L0B5C BPL LCCDB JSR LCD96 PHP JSR LCDFC PLP BCC LCCDB REP #$30 LDA L17C5 BRA LCCAB SEP #$30 LCCDB JSR L3CC8 BNE LCCE4 STZ L0B5C RTS LCCE4 JSR LCE44 BIT L0B5C BMI LCD22 REP #$30 LDA #$0200 STA $1C LDA $82 INC CMP L1071 SEP #$30 BCC LCD07 STZ $1E LDX #$04 JSR L5603 JSR LCE44 LCD07 LDA #$00 TAY LCD0A STA [$81],Y INY CPY #$42 BCC LCD0A REP #$30 TYA CLC ADC L1078 STA L1078 SEP #$30 BCC LCD22 INC L107A LCD22 JSR LCF5C LDA $6F SEC SBC #$0A STA $E1 REP #$30 LDA $70 SBC #$0000 STA $E2 LDY #$0008 LDA #$0000 LCD3B STA [$E1],Y DEY DEY BPL LCD3B LDA $E1 SEC SBC $6C STA $8E SEP #$30 LDA #$80 STA L0B5C JSR LB755 JSR LCE5C REP #$30 LDA $07 ORA #$0300 LDX L17C7 PHA PHX PEA $0001 PEA $0000 PEA $0000 PHA PHX PEA $0001 _LoadSegNum BCC LCD7B BRL LCE88 LCD7B LDY #$0000 LDX #$0005 LCD81 PLA STA [$E1],Y INY INY DEX BNE LCD81 SEP #$30 JSR L3CC8 BEQ LCD95 JSR L6346 BRA LCD22 LCD95 RTS LCD96 LDX $6E STX $E3 LDY #$08 REP #$30 STZ L17C5 LDA $6C STA $E1 LCDA5 LDA [$E1],Y PHA DEY DEY CPY #$0004 BCS LCDA5 TAX BEQ LCDC3 _UnloadSegNum BCC LCDC3 LDX L17C5 BNE LCDC3 STA L17C5 LCDC3 LDY #$0008 LDA #$0000 LCDC9 STA [$E1],Y DEY DEY BPL LCDC9 LDA #$000A CLC ADC $E1 STA $E1 SEP #$30 BCC LCDDD INC $E3 LCDDD REP #$30 LDY #$0008 LDX $E2 LDA $E1 CPX $70 BCC LCDA5 BNE LCDF9 CMP $6F BNE LCDA5 LDA L17C5 CMP #$0001 SEP #$30 RTS LCDF9 JSR L3F4C LCDFC LDA $71 STA $8D LDA $6E STA $93 LDA $6B STA $99 REP #$30 LDA $6F STA $8B LDA $6C STA $91 LDA $69 STA $97 SEP #$30 JSR L5812 LDA $8D STA $6B REP #$30 LDA $8B LCE23 STA $69 LDA $6F STA $6C SEP #$30 LDA $71 STA $6E STZ L0B5C JSR LCE44 REP #$30 LDA $81 STA L1078 SEP #$30 LDA $83 STA L107A RTS LCE44 REP #$30 LDA L1080 CLC ADC $72 STA $81 SEP #$30 LDA $74 ADC #$00 STA $83 RTS LCE57 LDX #$4C JMP L3FA4 ;BRL L3FA4 LCE5C REP #$30 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 LDA $07 ORA #$0300 PHA PEA ^L0007 PEA L0007 PEA ^L17C9 PEA L17C9 _LoadSegName BCC LCEA4 LCE88 CMP #$0100 BCC LCEA1 LCE8D CMP #$1104 BNE LCE97 SEP #$30 BRL LCCA6 MX %00 LCE97 CMP #$1101 SEP #$30 BEQ LCE57 JMP L3F6A ;BRL L3F6A LCEA1 JMP L3F75 ;BRL L3F75 LCEA4 REP #$30 LDA $01,S STA $44 SEP #$30 LDA $03,S STA $46 LDY #$01 LDA [$44],Y CMP #$01 BEQ LCEBE JSR LCF36 BRL LB67F LCEBE LDX L107A REP #$30 INY LDA [$44],Y CLC ADC L1078 STA $1C BCC LCECF INX LCECF SEP #$30 STX $1E REP #$30 LDA $1D CMP L1071 BCC LCEEC LDA $1C SBC L1070 STA $1C SEP #$30 STZ $1E LDX #$04 JSR L5603 LCEEC REP #$30 LDA L1078 STA $84 LDA $44 CLC ADC #$0004 STA $40 LDA $03,S BCC LCF00 INC LCF00 TAX LDY #$0002 LDA [$44],Y TAY SEP #$20 TXA STA $42 LDA L107A STA $86 LCF11 DEY LDA [$40],Y STA [$84],Y TYX BNE LCF11 LDA [$44] STA $0B LDY #$0002 REP #$30 LDA [$44],Y CLC ADC L1078 STA L1078 BCC LCF30 INC L107A LCF30 JSR LCF36 BRL LCF8D LCF36 PLA STA $44 PLA PLA LDA $01,S TAX LDA $05,S STA $01,S TXA STA $05,S LDA $03,S STA L17C7 _UnloadSegNum BCS LCF59 LDA $44 PHA SEP #$30 RTS LCF59 JMP L3F6A ;BRL L3F6A LCF5C LDA #$0A STA $44 STZ $45 STZ $46 REP #$30 LDA $63 PHA LDA $6F STA $63 LDA $69 STA $40 SEC SBC $44 STA $97 SEP #$30 LDA $6B STA $42 SBC $46 STA $99 LDA $65 PHA LDA $6E STA $65 JSR L5889 JMP L5D22 ;BRL L5D22 LCF8D JSR L803D LDY #$0E REP #$30 TYA CLC ADC $84 STA $4E SEP #$30 LDA $86 BCC LCFA1 INC LCFA1 STA $50 JSR LD076 JSR L804A JSR LCFED BCC LCFB3 LDX #$0F JMP L3FA4 ;BRL L3FA4 LCFB3 LDA [$84] LDY #$02 STA [$84],Y LDY #$05 REP #$30 LDA $8E STA [$84],Y LDA $84 SEC SBC $97 STA [$97] LDA [$84] TAX LDA #$0000 STA [$84] TXA CLC ADC $84 STA $84 SEP #$30 BCC LCFDC INC $86 LCFDC DEC $0B BNE LCF8D RTS LCFE1 LDA $74 STA $83 REP #$30 LDA $72 STA $81 BRA LD000 LCFED REP #$30 LDA $72 CLC ADC L1080 STA $81 SEP #$30 LDA $74 ADC L1082 STA $83 LD000 SEP #$30 LDA $8A AND #$1F INC ASL CLC ADC $81 STA $97 REP #$30 LDA $82 BCC LD014 INC LD014 STA $98 BRA LD06D LD018 LDA [$81] CLC ADC $81 STA $81 BCC LD027 SEP #$30 INC $83 REP #$30 LD027 LDA [$81] BNE LD000 SEP #$30 CLC RTS REP #$30 LD031 CLC ADC $97 STA $97 BCC LD03A INC $99 LD03A LDY #$000D LDA $1F CMP [$97],Y BNE LD06D AND #$00FF TAX INY TYA CLC ADC $97 STA $94 SEP #$30 LDA $99 BCC LD055 INC LD055 STA $96 LDY #$00 LD059 LDA [$DE],Y CMP #$61 BCC LD061 AND #$DF LD061 CMP [$94],Y BNE LD06B INY DEX BNE LD059 SEC RTS LD06B REP #$30 LD06D LDA [$97] BEQ LD018 BRA LD031 LD073 JMP L6356 ;BRL L6356 MX %11 LD076 LDY #$00 LDA [$4E] CMP #$61 BCC LD080 AND #$5F LD080 STA $20 STZ $8A BRA LD090 CLC LD087 ADC $8A STA $8A INY CPY #$15 BCS LD073 LD090 LDA [$4E],Y BMI LD0A8 BEQ LD0A8 CMP #$3A BEQ LD0A8 CMP #$29 BCC LD0A8 CMP #$61 BCC LD0A4 AND #$5F LD0A4 CMP #$41 BRA LD087 LD0A8 STY $1F LDA $4E STA $DE TYA CLC ADC $4E STA $4E REP #$30 LDA $4F STA $DF BCC LD0BF INC STA $4F LD0BF SEP #$30 RTS *----------------------- * LIBFIND *----------------------- LD0C2 JSR L60A7 JSR L6346 JSR L6D6F STA $0B JSR L6D9D LDA $0B BEQ LD116 BIT L0B5E BPL LD116 STZ $8A LDA [$40] JSR L664D STA $20 LDY #$00 BRA LD0F4 LD0E6 CLC LD0E7 ADC $8A STA $8A INY CPY $0B BCS LD103 CPY #$15 BCS LD157 LD0F4 LDA [$40],Y JSR L664D JSR L4F89 BCS LD0E6 JSR L6638 BCS LD0E7 LD103 STY $1F LDA $42 STA $E0 REP #$30 LDA $40 STA $DE SEP #$30 JSR LCFE1 BCS LD123 LD116 LDA #^L0B43 STA $99 REP #$30 LDA #L0B43 STA $97 SEP #$30 LD123 REP #$30 LDA $97 STA $81 SEP #$30 LDA $99 STA $83 LDA #$05 STA $0B LD133 JSR L64A8 LDX $0F CPX #$01 BNE LD15B LDY $0B INC $0B LDA [$81],Y REP #$30 AND #$00FF STA [$22] SEP #$30 JSR L3CC8 BEQ LD15A JSR L6306 CMP #$2C BEQ LD133 LD157 JMP L6356 ;BRL L6356 LD15A RTS LD15B JMP L3F9E ;BRL L3F9E LD15E JSR L6306 BIT L0B5E BPL LD169 JSR LCC46 LD169 BIT L0B5C BMI LD1A1 LD16E REP #$30 LDA #$0200 STA L1092 STZ L1094 SEP #$30 LDX #$04 JMP L562F ;BRL L562F LD180 JSR L6306 BIT L0B5C BPL LD1A1 JSR LCD96 PHP JSR LCDFC PLP BCC LD19C REP #$30 LDA L17C5 JMP L3F6A ;BRL L3F6A SEP #$30 LD19C BIT L0B5E BPL LD16E LD1A1 RTS LD1A2 JSR L6342 LDA $E6 CLC ADC #$06 STA $E6 LD1AC JSR L6311 LDX $E6 LDA L0004,X STA $83 REP #$30 LDA L0000+2,X STA $81 SEP #$30 LDY L0005,X LDA [$81],Y BPL LD210 LDX $A4 CPX #$07 BEQ LD1D5 CPX #$02 BNE LD231 BRL LD2BD BNE LD231 LD1D5 JSR LD308 LDA [$A6] CMP #$FF BCC LD1E1 JMP L6CD3 ;BRL L6CD3 LD1E1 JSR L6D6F INC JSR L6DE1 TAX LDA #$00 STA [$8B] DEX TXA STA [$66] REP #$30 INC $66 SEP #$30 BNE LD1FB INC $68 LD1FB JSR L6D53 LDX $AE REP #$30 PLY TXA PHA PEI $AC PHY SEP #$30 BRL LD2CB LD20D BRL LD2BA LD210 CMP $A4 BEQ LD236 LDX $A4 CPX #$07 BEQ LD231 CMP #$06 BEQ LD289 CMP #$02 BCC LD27A BEQ LD20D CMP #$04 BCC LD290 BEQ LD267 CMP #$05 BEQ LD2A5 BRL LB67F LD231 LDX #$37 JMP L3FA4 ;BRL L3FA4 LD236 LDA $A4 CMP #$06 BEQ LD28C CMP #$02 BCC LD27D BEQ LD2BD CMP #$04 BCC LD293 BEQ LD26A CMP #$05 BEQ LD2A8 CMP #$07 BEQ LD253 JSR L3F4C LD253 JSR LD308 REP #$30 PLY LDA $A8 AND #$00FF PHA LDA $A6 PHA PHY SEP #$30 BRA LD2CB LD267 JSR LE1AE LD26A REP #$30 PLY LDA L0AF2 PHA LDA L0AF0 PHA PHY SEP #$30 BRA LD2CB LD27A JSR LE1C9 LD27D REP #$30 PLY LDA L0AF0 PHA PHY SEP #$30 BRA LD2CB LD289 JSR LE361 LD28C LDX #$08 BRA LD295 LD290 JSR LE1B7 LD293 LDX #$06 LD295 REP #$30 PLY LD298 LDA L0AF0,X PHA DEX DEX BPL LD298 PHY SEP #$30 BRA LD2CB LD2A5 JSR LE1A5 LD2A8 LDX #$06 REP #$30 PLY LD2AD LDA L0AF0,X PHA DEX DEX BPL LD2AD PHY SEP #$30 BRA LD2CB LD2BA JSR LE1C0 LD2BD REP #$30 PLY LDA L0AF2 PHA LDA L0AF0 PHA PHY SEP #$30 LD2CB LDX $E6 LDA L0005,X INC STA L0005,X LDA L0006,X INC STA L0006,X LDY #$0B CMP [$81],Y BEQ LD2F9 JSR L3CC8 JSR L6306 CMP #$2C BNE LD2EE BRL LD1AC LD2EE CMP #$29 BEQ LD303 CMP #$2C BEQ LD303 JMP L6356 ;BRL L6356 LD2F9 JSR L3CC8 CMP #$29 BNE LD2EE JMP L3CBE ;BRL L3CBE LD303 LDX #$36 JMP L3FA4 ;BRL L3FA4 LD308 BIT $E4 BMI LD329 REP #$30 LDA $6A SEC SBC L0B22 CMP $64 BCC LD321 ADC #$00FF CMP $6D SEP #$30 BCS LD326 LD321 SEP #$30 JSR L5977 LD326 DEC $E4 RTS LD329 REP #$30 LDA $6A DEC CMP $64 BCC LD340 BEQ LD340 ADC #$00FE CMP $6D SEP #$30 BEQ LD340 BCC LD340 RTS LD340 SEP #$30 LDX #$4E JMP L3FA4 ;BRL L3FA4 LD347 JSR L6342 LDA $E6 CLC ADC #$06 STA $E6 LD351 JSR L6311 LDA $A4 CMP #$07 BCC LD390 JSR LD308 LDA [$A6] CMP #$FF BCC LD366 JMP L6CD3 ;BRL L6CD3 LD366 JSR L6D6F INC JSR L6DE1 TAX LDA #$00 STA [$8B] TXA STA [$66] REP #$30 INC $66 SEP #$30 BNE LD37F INC $68 LD37F JSR L6D53 LDX $AE REP #$30 PLY TXA PHA PEI $AC PHY SEP #$30 BRA LD3BC LD390 CMP #$02 BCC LD3A2 BEQ LD3A6 CMP #$04 BCC LD3AE BEQ LD3A6 CMP #$06 BCC LD3AE BRA LD3AA LD3A2 LDX #$00 BRA LD3B0 LD3A6 LDX #$02 BRA LD3B0 LD3AA LDX #$08 BRA LD3B0 LD3AE LDX #$06 LD3B0 REP #$30 PLY LD3B3 LDA L0AF0,X PHA DEX DEX BPL LD3B3 PHY LD3BC SEP #$30 JSR L3CC8 CMP #$29 BEQ LD3CF JSR L6306 CMP #$2C BEQ LD351 JMP L6356 ;BRL L6356 LD3CF JMP L3CBE ;BRL L3CBE *----------------------- * CALL% *----------------------- LD3D2 BNE LD3D7 JMP L6356 ;BRL L6356 LD3D7 JSR L73D3 STX L109B JSR L6346 JSR L73D3 STX L109A JSR L6346 JSR L73D3 TXA AND #$1F STA L109D TXA AND #$E0 LSR LSR LSR LSR STA L109C LDA L109D BEQ LD40B TAX REP #$30 LDA #$0000 LD407 PHA DEX BNE LD407 LD40B SEP #$30 JSR L3CC8 BEQ LD43C STZ $E4 LDY #$00 LDX L0B0A STX $E6 LD41B LDA L109A,Y STA L0007,X INX INY CPY #$04 BCC LD41B JSR LD347 LDX $E6 DEX DEX LDY #$03 LD430 DEX LDA L0007,X STA L109A,Y DEY BPL LD430 STX $E6 LD43C REP #$30 LDX L109A JSL DISPATCH1 STZ L10A3 BCC LD478 CMP #$01FF BCS LD45F REP #$10 LDX $D4 TXS SEP #$30 LDX $0A STX $09 JMP L3F6A ;BRL L3F6A REP #$30 LD45F STA L109F STX L10A1 INC L10A3 LDA #L1094 STA $81 LDA #>L1094 STA $82 LDA L10A3 BRL LD7B4 LD478 LDY L109D BEQ LD48E LDX #$0000 LD480 PLA CPX #$0020 BCS LD48B STA L10A5,X INX INX LD48B DEY BNE LD480 LD48E SEP #$30 RTS LD491 LDA $E7 BPL LD496 LD495 RTS LD496 BEQ LD495 LDA $4D STA $50 REP #$30 LDA $4B STA $4E SEP #$30 JSR L6363 LD4A7 LDA #$B6 STA $0D LDA #$B5 STA $0C LDA $50 STA $96 REP #$30 LDA $4E STA $94 SEP #$30 LDX #$00 JSR L8EDD BCC LD4D5 JSR L6306 LDA [$4E] CMP #$FB BNE LD4D5 LDA #$FF LDY #$03 LD4CF STA [$4E],Y DEY BNE LD4CF SEC LD4D5 LDA $0B BEQ LD50A JSR LD50D PHP LDA $0B LD4DF PHA LDA #$B5 STA $0D LDA #$B6 STA $0B LDX #$00 JSR L8EDD BCC LD505 JSR L6306 LDA [$4E] CMP #$FB BNE LD501 LDY #$03 LDA #$FF LD4FC STA [$4E],Y DEY BNE LD4FC LD501 PLA DEC BNE LD4DF LD505 JSR LD50D PLA PLP LD50A BCS LD4A7 RTS LD50D LDA $96 LDX $50 STA $50 STX $96 REP #$30 LDA $94 LDX $4E STA $4E STX $94 SEP #$30 RTS *----------------------- * CALL / _ *----------------------- LD522 BEQ LD59F LDY #$03 LDA [$4E],Y BMI LD568 LDY #$01 TAX REP #$30 LDA [$4E],Y CLC ADC $72 STA $97 SEP #$30 TXA ADC $74 STA $99 LDY #$04 LD53F INY LDA [$4E],Y BEQ LD54E CMP #$28 BEQ LD54E CMP #$3A BEQ LD54E BRA LD53F LD54E TYA CLC ADC $4E STA $4E BCC LD55C REP #$30 INC $4F SEP #$30 LD55C STZ $E5 STZ $E4 LDA L0B0A STA $E6 BRL LD638 LD568 LDX #$83 BIT $E7 BMI LD57C LDA $50 STA $E3 REP #$30 LDA $4E STA $E1 SEP #$30 LDX #$C3 LD57C LDA #$04 CLC ADC $4E STA $4E BCC LD58B REP #$30 INC $4F SEP #$30 LD58B BRA LD596 LD58D LDX #$59 LD58F JMP L3FA4 ;BRL L3FA4 *----------------------- * PERFORM *----------------------- LD592 BEQ LD59F LDX #$01 LD596 STZ $E4 LDA L0B0A STA $E6 BRA LD5E0 LD59F JMP L6356 ;BRL L6356 LD5A2 BRL L84C3 LD5A5 BRL L8703 LD5A8 LDX #$4D JMP L3FA4 ;BRL L3FA4 LD5AD BEQ LD5A2 TAX REP #$30 PLA PHA CMP #L60CA+2 SEP #$30 BNE LD5A5 CPX #$41 BCS LD5C5 JSR L3CBE TAX BEQ LD5A2 LD5C5 TXA LDX #$12 CMP #$5F BNE LD5D3 JSR L3CBE BEQ LD5A2 LDX #$93 LD5D3 LDA $E6 CMP L0B0A BNE LD5DC STZ $E4 LD5DC JSR LD5E0 RTS LD5E0 STX $E5 JSR LD076 BIT $E5 BMI LD602 BIT L0B5C BPL LD5A8 JSR LCFED BCC LD5A5 LDY #$09 LDA $E5 AND #$0F AND [$97],Y BNE LD638 LD5FD JMP L3F9E ;BRL L3F9E BRA LD5A5 LD602 BIT L0B5E BPL LD5A8 JSR LCFE1 BCC LD5A5 LDA $E5 AND #$0F LDY #$09 AND [$97],Y BEQ LD5FD BIT $E5 BVC LD638 LDY #$01 REP #$30 LDA $97 SEC SBC $72 STA [$E1],Y SEP #$30 INY INY LDA $99 SBC $74 BPL LD632 JSR L3F4C LD632 STA [$E1],Y LDA #$01 TSB $E7 LD638 LDY #$07 LDA [$97],Y BEQ LD648 TAY REP #$30 LDA #$0000 LD644 PHA DEY BNE LD644 LD648 SEP #$30 LDA $E5 AND #$10 LDY #$09 ORA [$97],Y STA $E5 BIT #$C0 BNE LD663 LDA #^LD71C PHA REP #$30 LDA #LD71C PHA SEP #$30 LD663 LDA [$4E] CMP #$28 BEQ LD67E LDA $97 STA $81 REP #$30 LDA $98 STA $82 SEP #$30 LDY #$0B LDA [$81],Y BEQ LD6AE BRL LD303 LD67E LDX $E6 LDA $99 STA L000A,X REP #$30 LDA $97 STA L0008,X SEP #$30 LDY #$0C LDA [$97],Y STA L000B,X STZ L000C,X LDA $E5 STA L0007,X JSR LD1A2 LDA $E6 SEC SBC #$06 STA $E6 LDX $E6 LDA L0007,X STA $E5 LD6AE BIT $E5 BMI LD6DE BVC LD700 LDY #$07 LDA [$81],Y CMP #$21 BCC LD6BF BRL LB67F LD6BF ASL TAX REP #$30 LD6C3 PLA STA L10A3,X DEX DEX BNE LD6C3 PEA ^L10A5 PEA L10A5 LDY #$0005 LDA [$81],Y PHA JSL GSOS2 BRL LD71D MX %11 LD6DE LDY #$05 REP #$30 LDA [$81],Y TAX JSL DISPATCH1 BCC LD71D CMP #$01FF BCS LD71D REP #$10 LDX $D4 TXS SEP #$30 LDX $0A STX $09 JMP L3F6A ;BRL L3F6A SEP #$30 LD700 LDY #$05 REP #$30 LDA [$81],Y TAY LDA [$6C],Y TAX SEP #$20 INY INY LDA [$6C],Y PHA REP #$30 TXA CLC LDY #$0003 ADC [$81],Y DEC PHA LD71C RTL LD71D STA L10A5 STA L109F STX L10A7 STX L10A1 STY L10A9 STZ L10A3 SEP #$30 BCC LD736 INC L10A3 LD736 LDY #$07 LDA [$81],Y BEQ LD751 TAY LDX #$00 REP #$30 LD741 PLA CPX #$0020 BCS LD74C STA L10A5,X INX INX LD74C DEY BNE LD741 SEP #$30 LD751 LDA L10A3 BEQ LD759 BRL LD7B4 LD759 LDA $E5 BIT #$10 BEQ LD7B3 LDY #$0A LDA [$81],Y CLC BEQ LD7B4 CMP #$07 BCS LD776 XBA LDA #L10A5 LDY #>L10A5 LDX #^L10A5 JSR LDE84 BRA LD7B3 LD776 LDX L10A7 STX $42 REP #$30 LDX L10A5 STX $40 SEP #$30 CMP #$07 BEQ LD7A7 CMP #$0F BEQ LD799 LDY #$00 LD78E LDA [$40],Y BEQ LD796 INY BNE LD78E DEY LD796 TYA BRA LD7AA LD799 LDA [$40] REP #$30 INC $40 SEP #$30 BNE LD7AA INC $42 BRA LD7AA LD7A7 LDA L10A8 LD7AA JSR L6DE1 JSR L6D53 JMP L6EAA ;BRL L6EAA LD7B3 RTS LD7B4 SEP #$30 LDY #$08 LDA [$81],Y TAX CPX #$0F BCC LD7C2 BRL LB67F LD7C2 JSR (LD80C,X) LD7C5 RTS LD7C6 LDX L10A1 STX L10A3 JMP L3FA4 ;BRL L3FA4 LD7CF LDA L109F STA L10A3 JMP L3F75 ;BRL L3F75 LD7D8 REP #$30 LDA L109F STA L10A3 JMP L3F6A ;BRL L3F6A SEP #$30 LD7E5 LDY L10A3 BRL L7A91 LD7EB LDY L10A1 STY L10A3 BRL L7A91 LD7F4 LDY L109F STY L10A3 BRL L7A91 LD7FD LDA L10A0 LDY L109F STA L10A4 STY L10A3 BRL L790C LD80C DA LD7C5 DA LD7C6 DA LD7CF DA LD7D8 DA LD7E5 DA LD7EB DA LD7F4 DA LD7FD LD81C LDX #$00 BRL LE494 LD821 LDX $A4 LDY $B4 CPX #$02 BCS LD831 CPY #$02 BCC LD840 BEQ LD862 BRA LD81C LD831 BEQ LD838 CPX #$07 BCC LD81C RTS LD838 CPY #$02 BEQ LD86A BCS LD81C BCC LD867 LD840 REP #$30 LDA L0AF0 CLC ADC L0B00 STA L0AF0 BVC LD85D STZ L0AF2 BMI LD856 DEC L0AF2 LD856 SEP #$30 LDX #$02 JSR LE24E LD85D SEP #$30 BRL LE460 LD862 JSR LE2AF BRA LD86A LD867 JSR LE2D2 LD86A REP #$30 LDA L0AF0 CLC ADC L0B00 STA L0AF0 LDA L0AF2 ADC L0B02 STA L0AF2 BVC LD899 STZ L0AF4 STZ L0AF6 BMI LD88F DEC L0AF4 DEC L0AF6 LD88F SEP #$30 LDX #$03 JSR LE24E BRL LE460 LD899 SEP #$30 JSR LE636 BRL LE460 LD8A1 LDX #$02 BRL LE494 LD8A6 LDX $A4 CPX #$07 BCC LD8AD RTS LD8AD LDY $B4 CPX #$03 BCS LD8A1 CPY #$03 BCS LD8A1 CPX #$02 BEQ LD8E6 CPY #$02 BEQ LD8E1 REP #$30 LDA L0AF0 SEC SBC L0B00 STA L0AF0 BVC LD8DC STZ L0AF2 BMI LD8D5 DEC L0AF2 LD8D5 SEP #$30 LDX #$02 JSR LE24E LD8DC SEP #$30 BRL LE460 LD8E1 JSR LE2AF BRA LD8E9 LD8E6 JSR LE2D2 LD8E9 REP #$30 LDA L0AF0 SEC SBC L0B00 STA L0AF0 LDA L0AF2 SBC L0B02 STA L0AF2 BVC LD918 STZ L0AF4 STZ L0AF6 BMI LD90E DEC L0AF4 DEC L0AF6 LD90E SEP #$30 LDX #$03 JSR LE24E BRL LE460 LD918 SEP #$30 JSR LE636 BRL LE460 LD920 JSR LDF57 JSR LDF5C JSR LDB6E BRL LDF66 LD92C LDX $A4 CPX #$07 BCC LD933 RTS LD933 LDY $B4 CPX #$03 BCS LD920 CPY #$03 BCS LD920 CPX #$02 BEQ LD96C CPY #$02 BEQ LD966 REP #$30 PEA $0000 PEA $0000 LDA L0AF0 PHA LDA L0B00 PHA _SDivide PLA PLX STA L0AF0 SEP #$30 BRL LE460 LD966 JSR LE2AF BRL LD96F LD96C JSR LE2D2 LD96F JSR LE077 BEQ LD920 JSR LE049 BEQ LD920 BIT $AA BPL LD980 JSR LE087 LD980 BIT $BA BPL LD987 JSR LE059 LD987 REP #$30 PEA $0000 PEA $0000 PEA $0000 PEA $0000 LDA L0AF2 PHA LDA L0AF0 PHA LDA L0B02 PHA LDA L0B00 PHA _LongDivide PLA STA L0AF0 PLA STA L0AF2 PLA PLA SEP #$30 LDA $AA EOR $BA BPL LD9C1 JSR LE087 LD9C1 BRL LE460 LD9C4 LDA $B9 BEQ LD9DF JSR LDF57 JSR LDF5C LDA $AA PHA JSR LDB69 PLA EOR $AA BPL LD9DF JSR LDFE2 JSR LD81C LD9DF RTS LD9E0 LDX $A4 CPX #$07 BCC LD9E7 RTS LD9E7 LDY $B4 CPX #$03 BCS LD9C4 CPY #$03 BCS LD9C4 CPX #$02 BEQ LDA1F CPY #$02 BEQ LDA1A REP #$30 PEA $0000 PEA $0000 LDA L0AF0 PHA LDA L0B00 PHA _SDivide PLX PLA STA L0AF0 SEP #$30 BRL LE460 LDA1A JSR LE2AF BRA LDA22 LDA1F JSR LE2D2 LDA22 JSR LE077 BEQ LD9C4 JSR LE049 BEQ LD9C4 BIT $AA BPL LDA33 JSR LE087 LDA33 BIT $BA BPL LDA3A JSR LE059 LDA3A REP #$30 PEA $0000 PEA $0000 PEA $0000 PEA $0000 LDA L0AF2 PHA LDA L0AF0 PHA LDA L0B02 PHA LDA L0B00 PHA _LongDivide PLA PLA PLA STA L0AF0 PLA STA L0AF2 SEP #$30 LDA $AA BPL LDA72 JSR LE087 LDA72 BRL LE460 LDA75 LDX #$04 BRL LE494 LDA7A LDX $A4 LDY $B4 CPX #$02 BCS LDA8A CPY #$02 BCC LDA99 BEQ LDAFD BRA LDA75 LDA8A BEQ LDA91 CPX #$07 BCC LDA75 RTS LDA91 CPY #$02 BEQ LDB05 BCC LDB02 BRA LDA75 LDA99 REP #$30 LDA L0AF0 BPL LDAA9 CMP #$8000 BEQ LDAF8 EOR #$FFFF INC LDAA9 TAX LDA L0B00 BPL LDAB8 CMP #$8000 BEQ LDAF8 EOR #$FFFF INC LDAB8 PEA $0000 PEA $0000 PHA PHX _Multiply PLX PLY LDA L0AF0 EOR L0B00 BPL LDAE7 TYA EOR #$FFFF STA L0AF2 TXA EOR #$FFFF INC STA L0AF0 BNE LDAED INC L0AF2 BRA LDAED LDAE7 STX L0AF0 STY L0AF2 LDAED SEP #$30 JSR LE248 JSR LE636 BRL LE460 LDAF8 SEP #$30 JSR LE2D2 LDAFD JSR LE2AF BRA LDB05 LDB02 JSR LE2D2 LDB05 JSR LE077 BNE LDB0D LDB0A BRL LDA75 LDB0D JSR LE049 BEQ LDB0A BIT $AA BPL LDB19 JSR LE087 LDB19 BIT $BA BPL LDB20 JSR LE059 LDB20 REP #$30 LDY L0B02 LDA L0AF2 PEA $0000 PEA $0000 PEA $0000 PEA $0000 LDX L0AF0 PHA PHX LDA L0B00 PHY PHA _LongMul PLA STA L0AF0 PLA STA L0AF2 PLA STA L0AF4 PLA STA L0AF6 LDA $A9 EOR $B9 BPL LDB5E JSR LE0A5 LDB5E SEP #$30 JSR LE238 JSR LE2F6 BRL LE460 LDB69 LDX #$0C BRL LE494 LDB6E LDX #$06 BRL LE494 LDB73 LDX $B4 CPX #$02 BCS LDB81 LDX #$10 JSR LE3D3 BRL LE460 LDB81 LDX #$12 BRL LE49C LDB86 LDX $A4 LDY $B4 CPX #$02 BCS LDB97 CPY #$02 BCC LDBA0 BEQ LDBBA LDB94 BRL LDC6B LDB97 BEQ LDBAF CPX #$07 BCC LDBEA JMP L63EB ;BRL L63EB LDBA0 REP #$30 LDA L0AF0 SEC SBC L0B00 STA $47 BRA LDBD0 SEP #$30 LDBAF CPY #$02 BEQ LDBBD BCS LDB94 JSR LE2D2 BRA LDBBD LDBBA JSR LE2AF LDBBD REP #$30 LDA L0AF0 SEC SBC L0B00 STA $47 LDA L0AF2 SBC L0B02 STA $49 LDBD0 PHP ORA $47 SEP #$30 BNE LDBDB PLA LDX #$02 RTS LDBDB PLA AND #$C0 BEQ LDBE7 CMP #$C0 BEQ LDBE7 LDX #$40 RTS LDBE7 LDX #$80 RTS LDBEA LDA L0B78 BEQ LDC6B CPY #$04 BCC LDC6B CPX #$03 BEQ LDC6B CPX $B4 BEQ LDC6B PHP REP #$30 PEA ^L0B7A PEA L0B7A PEA $0017 LDX #$0000 JSL L00F7 SEP #$30 LDA #$80 LDX $B4 PLP PHP BCS LDC1A LDX $A4 LDC1A CPX #$04 BEQ LDC1F LSR LDC1F LDY #$00 PHY PHA LDA L0B7A AND #$C0 BEQ LDC32 CMP $01,S BCC LDC32 BEQ LDC32 STA $01,S LDC32 REP #$30 LDA L0B7A AND #$FF3F ORA $01,S STA $01,S PEA $0001 LDX #$0000 JSL L00F7 SEP #$30 PLP BCC LDC54 LDA $A3 JSR LE367 BRA LDC59 LDC54 LDA $B3 JSR LE31E LDC59 REP #$30 LDA L0B7A PHA PEA $0001 LDX #$0000 JSL L00F7 SEP #$30 LDC6B LDX #$08 JSR LE361 JSR LE3B5 RTS *----------------------- * RELATION() *----------------------- LDC74 JSR LDC6B TYA BEQ LDC86 BMI LDC8A LDY #$01 CPX #$40 BEQ LDC8C LDY #$04 BRA LDC8C LDC86 LDY #$03 BRA LDC8C LDC8A LDY #$02 LDC8C BRL L7A91 STA $15 LDC91 JSR LDB86 STX $AA LDA $15 AND #$07 TAY BNE LDCA0 JSR L3F4C LDCA0 CPX #$01 BNE LDCB1 LDA L1EE1,Y BEQ LDCB1 LDA #$20 STA L0B82 JSR LE4FF LDCB1 LDA L1ED9,Y BIT $AA BEQ LDCBB BRL LDDA6 LDCBB BRL LDD9D LDCBE LDX $A4 CPX #$03 BCS LDCF1 REP #$30 LDA #$0000 CPX #$0001 BEQ LDCD0 BCS LDCE1 LDCD0 LDX L0AF0 BEQ LDCDA BPL LDCD9 LDCD7 SEC ROL LDCD9 INC LDCDA STA $A9 SEP #$30 RTS REP #$30 LDCE1 LDX L0AF2 BMI LDCD7 BNE LDCD9 LDX L0AF0 BEQ LDCDA BRA LDCD9 SEP #$30 LDCF1 CPX #$07 BCC LDD00 LDA [$A6] BEQ LDCFB LDA #$01 LDCFB STA $A9 STZ $AA RTS LDD00 SEP #$30 LDX #$1C JSR LE39B INX STX $A9 STY $AA RTS LDD0D LDX $B4 CPX #$03 BCS LDD40 REP #$30 LDA #$0000 CPX #$0001 BEQ LDD1F BCS LDD30 LDD1F LDX L0B00 BEQ LDD29 BPL LDD28 LDD26 SEC ROL LDD28 INC LDD29 STA $B9 SEP #$30 RTS REP #$30 LDD30 LDX L0B02 BMI LDD26 BNE LDD28 LDX L0B00 BEQ LDD29 BRA LDD28 SEP #$30 LDD40 CPX #$07 BCC LDD00 LDA [$B6] BEQ LDD4A LDA #$01 LDD4A STA $B9 STZ $BA RTS SEP #$30 LDX #$1C JSR LE347 INX STX $B9 STY $BA RTS LDD5C JSR LDCBE JSR LDD0D LDA $A9 BEQ LDD9D LDA $B9 BEQ LDD9D BRA LDDA6 LDD6C JSR LDCBE JSR LDD0D LDA $A9 ORA $B9 BNE LDDA6 BRA LDD9D LDD7A JSR LDCBE JSR LDD0D LDA #$01 LDX $A9 BNE LDD87 DEC LDD87 STA $A9 LDA #$01 LDX $B9 BNE LDD90 DEC LDD90 EOR $A9 BNE LDDA6 BRA LDD9D LDD96 JSR LE460 LDA $A9 BEQ LDDA6 LDD9D JSR LE28B JSR LE24C BRL LE460 LDDA6 JSR LE28B LDA #$01 STA L0AF0 JSR LE24C BRL LE460 LDDB4 LDX #$06 REP #$30 LDDB8 LDA $A3,X STA $B3,X DEX DEX BPL LDDB8 BIT $A5 BMI LDDD6 LDX #$0008 LDDC7 LDA L0AF0,X STA L0B00,X DEX DEX BPL LDDC7 SEP #$30 RTS REP #$30 LDDD6 LDA $A6 STA $B6 SEP #$30 LDA $A8 STA $B8 RTS LDX #$06 REP #$30 LDDE5 LDA $B3,X STA $A3,X DEX DEX BPL LDDE5 BIT $B5 BMI LDE03 LDX #$0008 LDDF4 LDA L0B00,X STA L0AF0,X DEX DEX BPL LDDF4 SEP #$30 RTS REP #$30 LDE03 LDA $B6 STA $A6 SEP #$30 LDA $B8 STA $A8 RTS LDE0E LDX $A4 LDA $B4 CPX #$07 BCC LDE1B CMP #$07 BEQ LDE53 LDE1A RTS LDE1B CMP #$07 BCS LDE1A PHY JSR $DE3D LDX #$08 REP #$30 LDE27 LDA L0B00,X TAY LDA L0AF0,X STA L0B00,X TYA STA L0AF0,X DEX DEX BPL LDE27 SEP #$30 PLY RTS REP #$30 LDX #$0006 LDE42 LDA $B3,X TAY LDA $A3,X STA $B3,X TYA STA $A3,X DEX DEX BPL LDE42 SEP #$30 RTS LDE53 REP #$30 LDA $B6 LDX $A6 STX $B6 STA $A6 SEP #$30 LDA $B8 LDX $A8 STX $B8 STA $A8 RTS LDE68 LDA $D3 XBA LDA $22 LDY $23 LDX $24 BRA LDE7E LDE73 STA $0F LDA $D3 XBA LDA $84 LDY $85 LDX $86 LDE7E XBA STA $A9 LDA $0F XBA LDE84 STA $A6 STY $A7 STX $A8 XBA TAX STX $A4 CPX #$07 BNE LDE95 BRL LE24E LDE95 TXY JSR LE28F TYX CPX #$00 BNE LDEA5 LDA [$A6] STA L0AF0 BRA LDEB7 LDEA5 LDY L1EC9,X REP #$30 LDEAA DEY DEY BMI LDEB5 LDA [$A6],Y STA L0AF0,Y BRA LDEAA LDEB5 SEP #$30 LDEB7 JSR LE24E BRL LE460 LDEBD STA $B6 STY $B7 STX $B8 XBA TAX STX $B4 CPX #$07 BNE LDECE BRL LE266 LDECE TXY JSR LE282 TYX CPX #$00 BNE LDEDE LDA [$B6] STA L0B00 BRA LDEF0 LDEDE LDY L1EC9,X REP #$30 LDEE3 DEY DEY BMI LDEEE LDA [$B6],Y STA L0B00,Y BRA LDEE3 LDEEE SEP #$30 LDEF0 JSR LE266 BRL LE4D3 *----------------------- * SCALB() *----------------------- LDEF6 JSR LE4AF LDEF9 LDX #$18 JSR LE390 LDEFE BRL LE460 *----------------------- * SGN() *----------------------- LDF01 JSR LE460 LDA $A9 BEQ LDF14 LDA $AA PHA JSR LE298 PLA BPL LDF17 BRL LDF83 LDF14 JSR LE28B LDF17 RTS *----------------------- * INT() *----------------------- LDF18 REP #$30 PEA ^L0B7A PEA L0B7A PEA $0017 LDX #$0000 JSL L00F7 LDA #$801F PHA PEA $0001 LDX #$0000 JSL L00F7 SEP #$30 LDX #$14 JSR LE48C REP #$30 LDA L0B7A PHA PEA $0019 LDX #$0000 JSL L00F7 SEP #$30 BCC LDF56 JSR LE4FF LDF56 RTS *----------------------- * ROUND() *----------------------- LDF57 LDX #$14 BRL LE48C LDF5C LDX #$14 BRL LE4CD *----------------------- * SQL() *----------------------- LDF61 LDX #$12 BRL LE48C *----------------------- * FIX() *----------------------- LDF66 LDX #$16 BRL LE48C LDF6B LDX #$0F BRL LE48C *----------------------- * ABS() *----------------------- LDF70 LDX $A4 CPX #$03 BCS LDF6B LDX $A6 CPX #$01 BNE LDF7D INX LDF7D LDA L0AEF,X BMI LDF83 RTS *----------------------- * NEGATE() *----------------------- LDF83 LDX $A4 CPX #$02 BEQ LDFAC BCS LDFD3 REP #$30 LDA L0AF0 CMP #$8000 BEQ LDFA1 EOR #$FFFF INC STA L0AF0 SEP #$30 BRL LE460 LDFA1 STZ L0AF2 SEP #$30 JSR LE248 BRL LE460 LDFAC REP #$30 LDA L0AF0 BNE LDFCB LDA L0AF2 BPL LDFCB CMP #$8000 BNE LDFCB STZ L0AF4 STZ L0AF6 SEP #$30 JSR LE238 BRL LE460 LDFCB SEP #$30 JSR LE087 BRL LE460 LDFD3 CPX #$07 BCC LDFD8 RTS LDFD8 LDX #$0D BRL LE48C LDFDD LDX #$0F BRL LE4CD LDFE2 LDX $B4 CPX #$03 BCS LDFDD LDX $B6 CPX #$01 BNE LDFEF INX LDFEF LDA L0AFF,X BMI LDFF5 RTS LDFF5 LDX $B4 CPX #$02 BEQ LE019 BCS LE03F REP #$30 LDA L0B00 CMP #$8000 BEQ LE013 EOR #$FFFF INC STA L0B00 SEP #$30 BRL LE4D3 LE013 STZ L0B02 BRL LE2EC LE019 REP #$30 LDA L0B00 BNE LE037 LDA L0B02 BPL LE037 CMP #$8000 BNE LE037 STZ L0B04 STZ L0B06 SEP #$30 LDX #$03 BRL LE2F0 LE037 SEP #$30 JSR LE059 BRL LE4D3 LE03F CPX #$07 BCC LE044 RTS LE044 LDX #$0D BRL LE4CD LE049 REP #$30 LDA L0B02 CMP #$8000 BNE LE056 LDA L0B00 LE056 SEP #$30 RTS LE059 CLC REP #$30 LDA L0B02 EOR #$FFFF STA L0B02 LDA L0B00 EOR #$FFFF INC STA L0B00 BNE LE074 INC L0B02 LE074 SEP #$30 RTS LE077 REP #$30 LDA L0AF2 CMP #$8000 BNE LE084 LDA L0AF0 LE084 SEP #$30 RTS LE087 CLC REP #$30 LDA L0AF2 EOR #$FFFF STA L0AF2 LDA L0AF0 EOR #$FFFF INC STA L0AF0 BNE LE0A2 INC L0AF2 LE0A2 SEP #$30 RTS LE0A5 REP #$30 LDA L0AF6 EOR #$FFFF STA L0AF6 LDA L0AF4 EOR #$FFFF STA L0AF4 LDA L0AF2 EOR #$FFFF STA L0AF2 LDA L0AF0 EOR #$FFFF INC STA L0AF0 BNE LE0DB INC L0AF2 BNE LE0DB INC L0AF4 BNE LE0DB INC L0AF6 LE0DB SEP #$30 RTS *----------------------- * LOG() *----------------------- LE0DE LDX #$00 BRL LE4A7 *----------------------- * LOG1() *----------------------- LE0E3 LDX #$04 BRL LE4A7 *----------------------- * LOG2() *----------------------- LE0E8 LDX #$02 BRL LE4A7 *----------------------- * LOGB%() *----------------------- LE0ED LDX #$1A BRL LE48C *----------------------- * EXP() *----------------------- LE0F2 LDX #$08 BRL LE4A7 *----------------------- * EXP1() *----------------------- LE0F7 LDX #$0C BRL LE4A7 *----------------------- * EXP2() *----------------------- LE0FC LDX #$0A BRL LE4A7 *----------------------- * COS() *----------------------- LE101 LDX #$1C BRL LE4A7 *----------------------- * SIN() *----------------------- LE106 LDX #$1A BRL LE4A7 *----------------------- * TAN() *----------------------- LE10B LDX #$1E BRL LE4A7 *----------------------- * ATN() *----------------------- LE110 LDX #$18 BRL LE4A7 *----------------------- * RND() *----------------------- LE115 LDA $A9 BEQ LE15F BIT $AA BPL LE15A JSR LDF57 JSR LDF83 JSR LDDB4 JSR LE0ED JSR LE43C JSR LDE0E REP #$30 LDA #$001E SEC SBC L0B00 BVS LE13E BMI LE147 BRA LE140 LE13E BPL LE147 LE140 AND #$7FF0 BEQ LE152 BRA LE14A LE147 AND #$FFF0 LE14A STA L0B00 SEP #$30 JSR LDEF9 LE152 SEP #$30 JSR LE180 JSR LE180 LE15A JSR LE17D BRA LE162 LE15F JSR LE171 LE162 LDA #$02 XBA LDA #L0B44 LDY #>L0B44 LDX #^L0B44 JSR LDEBD BRL LDB6E LE171 LDA #$06 XBA LDA #L0B30 LDY #>L0B30 LDX #^L0B30 BRL LDE84 LE17D JSR LE171 LE180 LDX #$20 JSR LE4A7 LDY #^L0B30 REP #$30 LDA #L0B30 SEP #$30 LDX #$06 JMP L5E26 ;BRL L5E26 LE193 LDX #$16 BRA LE199 *----------------------- * COMPI() *----------------------- LE197 LDX #$14 LE199 JSR LE361 JSR LE318 JSR LE416 BRL LE460 *----------------------- * CONV#() *----------------------- LE1A5 LDX #$05 BIT $A5 BMI LE1D2 BRL LE44E *----------------------- * CONV() *----------------------- LE1AE LDX #$04 BIT $A5 BMI LE1D2 BRL LE44E *----------------------- * CONV&() *----------------------- LE1B7 LDX #$03 BIT $A5 BMI LE1D2 BRL LE44E *----------------------- * CONV@() *----------------------- LE1C0 LDX #$02 BIT $A5 BMI LE1D2 BRL LE44E *----------------------- * CONV%() *----------------------- LE1C9 LDX #$01 BIT $A5 BMI LE1D2 BRL LE44E LE1D2 PHX JSR L73E4 PLX BRL LE44E *----------------------- * CONV$() *----------------------- LE1DA LDX #$07 BIT $A5 BMI LE233 BVS LE1E5 JMP L6F50 ;BRL L6F50 LE1E5 REP #$30 LDA #$0000 STA L0331 LDA #$0001 STA L032F PEA ^L032F PEA L032F PEI $A1 PEI $9F PEA ^L034D PEA L034D LDA $A2 ORA #$000B PHA LDX #$0000 JSL L00F7 SEP #$30 LDX L0351 STZ L0352,X LDA #$2D STA L0351 LDA L034D ROR LDA #L0351 LDY #>L0351 LDX #^L0351 BCS LE230 INC BNE LE230 INY BNE LE230 INX LE230 JMP L6E5F ;BRL L6E5F LE233 RTS LE234 LDX #$07 BRA LE24E LE238 LDX #$03 BRA LE24E LE23C LDX #$05 BRA LE24E LDX #$04 BRA LE24E LDX #$06 BRA LE24E LE248 LDX #$02 BRA LE24E LE24C LDX #$01 LE24E STX $A4 CPX #$07 BEQ LE25B LDA L1EC9,X STA $A6 STZ $A7 LE25B LDA L1EC1,X STA $A3 LDA L1ED1,X STA $A5 RTS LE266 STX $B4 CPX #$07 BEQ LE273 LDA L1EC9,X STA $B6 STZ $B7 LE273 LDA L1EC1,X STA $B3 LDA L1ED1,X STA $B5 RTS STZ $B9 STZ $BA LE282 LDX #$0A LE284 STZ L0AFF,X DEX BNE LE284 RTS LE28B STZ $A9 STZ $AA LE28F LDX #$0A LE291 STZ L0AEF,X DEX BNE LE291 RTS LE298 JSR LE28F LDA #$01 STA L0AF0 BIT $A5 BVS LE2AE LDA #$04 JSR LE372 LDX $A4 BRL LE456 LE2AE RTS LE2AF LDX $A4 CPX #$02 BCS LE2D1 REP #$30 LDX #$FFFF BIT L0AF0 BMI LE2C0 INX LE2C0 STX L0AF2 STX L0AF4 STX L0AF6 SEP #$30 JSR LE248 BRL LE460 LE2D1 RTS LE2D2 LDX $B4 CPX #$02 BCS LE2D1 REP #$30 LDX #$FFFF BIT L0B00 BMI LE2E3 INX LE2E3 STX L0B02 STX L0B04 STX L0B06 LE2EC SEP #$30 LDX #$02 LE2F0 JSR LE266 BRL LE4D3 LE2F6 REP #$30 LDA L0AF6 BIT L0AF2 BMI LE305 ORA L0AF4 BRA LE30D LE305 CMP #$FFFF BNE LE30D CMP L0AF4 LE30D SEP #$30 BNE LE314 JSR LE248 LE314 RTS BRL LD58D LE318 LDA $B3 CMP #$00 BEQ LE328 LE31E PHX JSR LE329 LDX #$06 JSR LE266 PLX LE328 RTS LE329 LDX #$0E LE32B XBA TXA REP #$30 PEI $B1 PEI $AF PEI $B1 PEI $AF PHA LDX #$0000 JSL L00F7 SEP #$30 BCC LE346 JSR LE4FF LE346 RTS LE347 LDA $B3 XBA TXA REP #$30 PEI $B1 PEI $AF PHA LDX #$0000 JSL L00F7 SEP #$30 BCC LE360 JSR LE4FF LE360 RTS LE361 LDA $A3 CMP #$00 BEQ LE371 LE367 PHX JSR LE372 LDX #$06 JSR LE24E PLX LE371 RTS LE372 LDX #$0E LE374 XBA TXA REP #$30 PEI $A1 PEI $9F PEI $A1 PEI $9F PHA LDX #$0000 JSL L00F7 SEP #$30 BCC LE38F JSR LE4FF LE38F RTS LE390 JSR LE361 REP #$30 LDA L0B00 PHA SEP #$30 LE39B LDA $A3 XBA TXA REP #$30 PEI $A1 PEI $9F PHA LDX #$0000 JSL L00F7 SEP #$30 BCC LE3B4 JSR LE4FF LE3B4 RTS LE3B5 LDA $B3 XBA TXA REP #$30 PEI $B1 PEI $AF PEI $A1 PEI $9F PHA LDX #$0000 JSL L00F7 SEP #$30 BCC LE3D2 JSR LE4FF LE3D2 RTS LE3D3 JSR LE361 REP #$30 LDA L0B00 PHA SEP #$30 LE3DE LDA $A3 XBA TXA REP #$30 PEI $A1 PEI $9F PHA LDX #$0004 JSL L00F7 SEP #$30 BCC LE3F7 JSR LE4FF LE3F7 RTS LE3F8 LDA $B3 XBA TXA REP #$30 PEI $B1 PEI $AF PEI $A1 PEI $9F PHA LDX #$0004 JSL L00F7 SEP #$30 BCC LE415 JSR LE4FF LE415 RTS LE416 LDA $B3 XBA TXA REP #$30 PEI $B1 PEI $AF PEI $A1 PEI $9F PEI $A1 PEI $9F PHA LDX #$0004 JSL L00F7 SEP #$30 BCC LE437 JSR LE4FF LE437 RTS LDX $0F BRA LE44E LE43C LDX #$01 BRA LE44E LE440 LDX #$02 BRA LE44E LDX #$03 BRA LE44E LDX #$04 BRA LE44E LE44C LDX #$05 LE44E TXA EOR $A4 BEQ LE460 JSR LE361 LE456 JSR LE24E LDX #$10 LDA $A3 JSR LE374 LE460 LDA #$01 STA $A9 LDX $A6 CPX #$01 BNE LE46B INX LE46B LDA L0AEF,X AND #$80 STA $AA REP #$30 LDA L0AEE,X AND #$7FFF BNE LE489 LE47C DEX DEX BEQ LE487 ORA L0AEE,X BEQ LE47C BNE LE489 LE487 STZ $A9 LE489 SEP #$30 RTS LE48C JSR LE361 JSR LE39B BRA LE460 LE494 JSR LE361 JSR LE3B5 BRA LE460 LE49C JSR LE361 JSR LE318 JSR LE3F8 BRA LE460 LE4A7 JSR LE361 JSR LE3DE BRA LE460 LE4AF LDX #$01 BRA LE4B9 LDX #$04 BRA LE4B9 LDX #$05 LE4B9 TXA EOR $B4 BEQ LE4D3 JSR LE318 JSR LE266 LDX #$10 LDA $B3 JSR LE32B BRA LE4D3 LE4CD JSR LE318 JSR LE347 LE4D3 LDA #$01 STA $B9 LDX $B6 CPX #$01 BNE LE4DE INX LE4DE LDA L0AFF,X AND #$80 STA $BA REP #$30 LDA L0AFE,X AND #$7FFF BNE LE4FC LE4EF DEX DEX BEQ LE4FA ORA L0AFE,X BEQ LE4EF BNE LE4FC LE4FA STZ $B9 LE4FC SEP #$30 RTS LE4FF SEP #$30 AND L0B84 BEQ LE556 BIT $D0 BPL LE531 AND #$7F CLC ADC #$80 STA $CC REP #$30 LDA $75 STA $C7 LDA $79 STA $C9 SEP #$30 LDA $7B STA $CB REP #$10 LDX $D4 TXS SEP #$30 LDX $0A STX $09 LDX #$96 BRL L82C2 LE531 BVC LE556 LDX #$4B BIT #$20 BNE LE553 LDX #$48 BIT #$01 BNE LE553 LDX #$10 BIT #$08 BNE LE553 LDX #$09 BIT #$04 BNE LE553 LDX #$4A BIT #$02 BNE LE553 LDX #$49 LE553 JMP L3FA4 ;BRL L3FA4 LE556 CLC LE557 RTS LE558 LDX #$01 JSR LE24E JSR LE28B JSR L3CC8 REP #$30 LDA $50 AND #$00FF PHA PEI $4E LDA #$0000 STA L0333 PEA ^L0333 PEA L0333 PEA ^L034D PEA L034D PEA ^L0335 PEA L0335 PEA $0002 LDX #$0002 JSL L00F7 LDA L0333 SEP #$30 BEQ LE5AD LDA L0352 CMP #$49 BEQ LE601 CMP #$4E BNE LE5B1 REP #$30 LDA L0355 CMP #$3131 SEP #$30 BNE LE601 LE5AD CLC BRL LE62D LE5B1 JSR L4F89 BCC LE5AD LDY L0333 LDA [$4E],Y STZ L0336 CMP #$23 BNE LE5C8 DEC L0336 INC L0333 LE5C8 REP #$30 LDA L034F SEP #$30 BMI LE5EC XBA BEQ LE5DB CMP #$14 BCC LE5EC BRL L89F9 LE5DB XBA CMP #$0A BCS LE5EC LDA L0351 ADC L034F LDX #$02 CMP #$0A BCC LE603 LE5EC LDA L0351 LDX #$04 CMP #$08 BCS LE5FC BIT L0336 BPL LE603 LDA #$0F LE5FC INX CMP #$10 BCC LE603 LE601 LDX #$06 LE603 JSR LE24E REP #$30 LDA $A2 PEA ^L034D PEA L034D PEI $A1 PEI $9F ORA #$0009 PHA LDX #$0000 JSL L00F7 SEP #$30 BCC LE626 JSR LE4FF LE626 JSR LE636 JSR LE460 SEC LE62D PHP LDY L0333 JSR L8C60 PLP RTS LE636 LDX $A4 CPX #$02 BNE LE657 BIT L0AF1 REP #$30 BMI LE648 LDA L0AF2 BRA LE64E LE648 LDA L0AF2 CMP #$FFFF LE64E SEP #$30 BNE LE657 LDX #$01 JSR LE24E LE657 RTS LE658 LDX L0B20 CPX #$1C BCC LE661 LDX #$1C LE661 CPX #$02 BCS LE667 LDX #$02 LE667 REP #$30 STZ L032F STX L0331 STX L0B20 LDA $A2 PEA ^L032F PEA L032F PEI $A1 PEI $9F PEA ^L034D PEA L034D ORA #$000B PHA LDX #$0000 JSL L00F7 SEP #$30 JSR LE6F7 BIT L0350 BMI LE6A7 XBA BNE LE6BB XBA CLC ADC L0351 BCS LE6BB LDY #$00 BRA LE6AC LE6A7 XBA BNE LE6BB XBA TAY LE6AC CMP L0B20 BEQ LE6B3 BCS LE6BB LE6B3 TYX REP #$30 LDA #$0001 BRA LE6C1 LE6BB REP #$30 DEX LDA #$0000 LE6C1 STA L032F STX L0331 PEA ^L032F PEA L032F PEA ^L034D PEA L034D PEA ^L03B2 PEA L03B2 PEA $0001 LDX #$0002 JSL L00F7 SEP #$30 JSR LE739 LDX L03B2 STZ L03B3,X TXA XBA LE6F0 LDA #L03B3 LDY #>L03B3 LDX #^L03B3 RTS LE6F7 LDX L0351 CPX #$01 REP #$10 BNE LE710 LDA L0352 CMP #$30 BEQ LE70B CMP #$3A BCC LE710 LE70B LDY #$0000 BRA LE720 LE710 LDY L034F LE713 DEX BEQ LE720 LDA L0352,X CMP #$30 BNE LE720 INY BRA LE713 LE720 STY L034F REP #$30 TYA BPL LE72C EOR #$FFFF INC LE72C STA L034B SEP #$30 INX STX L0351 STZ L0352,X RTS LE739 LDA L032F BNE LE771 LDX L03B2 DEX LDA L03B2,X CMP #$2B BEQ LE74D CMP #$2D BNE LE761 LE74D LDA L03B3,X STA L03B4,X LDA #$30 STA L03B3,X INC L03B2 LDA #$45 STA L03B1,X RTS LE761 DEX LE762 DEX BEQ LE771 LDA L03B3,X CMP #$65 BNE LE762 LDA #$45 STA L03B3,X LE771 RTS LE772 REP #$30 CPX #$0005 BCC LE77C JSR L3F4C LE77C LDAL $000018 STA L0B86 LDAL $00001A STA L0B88 LDA L0B8A STAL $000018 LDA L0B8A+2 STAL $00001A PHK JSR (LE7D0,X) BCS LE7BD LDA L0B86 STAL $000018 LDA L0B88 STAL $00001A LDA #$0000 CLC BIT L0B82 BPL LE7BC SEC LDA L0B82 STZ L0B82 LE7BC RTL LE7BD PHA LDA L0B86 STAL $000018 LDA L0B88 STAL $00001A PLA JMP L3F6A ;BRL L3F6A LE7D0 DA LE7D6 DA LE7E9 DA LE7FC LE7D6 SEP #$10 LDX L0B6A PHX REP #$10 LDX L0B68 PHX LDA L0B74 LDY L0B76 RTL LE7E9 SEP #$10 LDX L0B6E PHX REP #$10 LDX L0B6C PHX LDA L0B74 LDY L0B76 RTL LE7FC SEP #$10 LDX L0B72 PHX REP #$10 LDX L0B70 PHX LDA L0B74 LDY L0B76 RTL LE80F LDA $1E ORAL L0B80 STAL L0B82 AND #$001F RTL SEP #$30