********************************************* ** ZERO PAGE VARIABLES ** ** (MOVED TO $0020 FOR THE MC3) ** ********************************************* ORG $0020 M0000 RMB 1 M0001 RMB 1 M0002 RMB 1 M0003 RMB 1 M0004 RMB 1 M0005 RMB 1 M0006 RMB 1 M0007 RMB 1 M0008 RMB 1 M0009 RMB 1 M000A RMB 1 M000B RMB 1 M000C RMB 1 M000D RMB 1 M000E RMB 1 M000F RMB 1 M0010 RMB 1 M0011 RMB 1 M0012 RMB 1 M0013 RMB 1 M0014 RMB 1 M0015 RMB 1 M0016 RMB 1 M0017 RMB 1 M0018 RMB 1 M0019 RMB 1 M001A RMB 2 M001C RMB 2 M001E RMB 2 M0020 RMB 2 M0022 RMB 1 M0023 RMB 1 M0024 RMB 1 ********************************************* ** PROGRAM BEGIN HERE ** ** (CODE AND ROUTINES ARE NOT RELOCATABLE) ** ********************************************* ORG $0100 BRA START FCB $03 BRA START2 QUIT JMP $D003 $C000 GETCHR JMP $C006 PUTCHR JMP $C003 OUTDEC JMP XOUTDEC ADDBX ABX RTS FCB $01 FCB $01,$01,$01,$01,$01,$01,$01,$01,$01 M011D FCB $08 M011E FCB $18 M011F FCB $0C,$04,$04,$04,$04 M0124 FCB $01 M0125 FCB $00,$64 M0127 FCB $01 M0128 FCB $01 M0129 FCB $4F M012A FCB $B6 M012B FCB $34 M012C FCB $15 M012D FCB $04 M012E FCB $19 START LDAB M012B STAB $013B LDX #M2270 Z0138 LDAA ,X STAA $34,X INX DECB BNE Z0138 JSR NPAGE LDX #M0877 JSR PTEXT JSR GETCHR LDAA M0124 STAA M0004 LDX M0125 STX M0002 CLRA STAA M0000 STAA M0001 STAA M0005 STAA M0006 STAA M0010 STAA M0012 STAA M0014 JSR NPAGE LDX #M0AEB JSR PTEXT JSR GETCHR CMPA #$59 BNE START2 JSR DLOAD START2 JSR NPAGE JSR Z057C Z017E CLR M0007 JSR Z0279 Z0184 CLR M0008 LDX #M0B33 JSR PTEXT2 LDX #M0023 Z0190 INX Z0191 JSR GETCHR CMPA M011E BEQ Z0184 CMPA M011D BNE Z01A6 DEX CPX #M0023 BEQ Z0190 BRA Z0191 Z01A6 STAA ,X CMPA #$0D BNE Z0190 LDAA #$04 STAA ,X JSR PCRLF BSR Z020F BCC Z01CD LDX #M0B49 JSR PTEXT LDX #M0024 JSR PTEXT LDAA #$22 JSR PUTCHR JSR PCRLF BRA Z0184 Z01CD JSR Z0279 LDAA M22A5 BEQ Z017E LDX M0002 BEQ Z01DE DEX STX M0002 BNE Z01EF Z01DE CLR M22A5 STAA M22A4 CLR M0000 LDX #M0B82 JSR PTEXT2 Z01ED BRA Z017E Z01EF LDAA M0002 BNE Z017E LDAA M0003 CMPA M012E BHI Z017E LDX #M0B5E JSR PTEXT2 LDX #M0002 CLRB JSR OUTDEC LDX #M0B75 JSR PTEXT BRA Z01ED Z020F LDX #M0023 STX M001C LDX #M19EC BSR Z0236 BCS Z0235 STAA M0007 Z021D LDAA ,X INX CMPA #$20 BHI Z021D CMPA #$04 BEQ Z0234 DEX STX M001C LDX #M1B84 BSR Z0236 BCS Z0235 STAA M0008 Z0234 CLC Z0235 RTS Z0236 NOP SEI NOP CLRB STS M001A Z023C LDS M001C LDAA #$04 STAA M0019 INCB CMPB M0129 BLS Z024B SEC BRA Z0273 Z024B PULA CMPA ,X BNE Z025E INX LDAA ,X CMPA #$04 BEQ Z0268 DEC M0019 BEQ Z0268 BRA Z024B Z025E LDAA ,X INX CMPA #$04 BNE Z025E INX BRA Z023C Z0268 LDAA ,X INX CMPA #$04 BNE Z0268 LDAA ,X TSX CLC Z0273 LDS M001A NOP CLI NOP RTS Z0279 CLRA STAA M000C DECA STAA M0009 STAA M000B LDAB M0007 CMPB #$01 BNE Z0290 LDAA M0008 CMPA #$07 BCC Z0290 JMP Z0459 Z0290 LDAA M012A STAA M0017 LDX #M0E8C Z0298 STX M001C LDAB M0007 LDAA ,X BEQ Z02A4 TSTB BNE Z02A4 RTS Z02A4 CBA BEQ Z02A9 BRA Z02BA Z02A9 LDAA $01,X TSTB BNE Z02BD PSHA CLR M0009 JSR Z0860 PULA CMPA M000D BHI Z02C4 Z02BA JMP Z0333 Z02BD TSTA BEQ Z02C4 CMPA M0008 BNE Z02BA Z02C4 CLRA STAA M0009 DECA STAA M000B STAA M000C LDAA #$05 STAA M0018 Z02D0 LDAA #$FF STAA M000A INX INX LDAA ,X STAA M000F STX M001E LDAB $01,X BEQ Z02ED CLR M000A LDX #M04C6 BSR Z0342 BNE Z02ED DEC M000A Z02ED LDAA M000A ANDA M000B STAA M000B BEQ Z0333 LDX M001E DEC M0018 BNE Z02D0 CLRA STAA M0011 LDAA #$04 Z0301 STAA M0018 LSRA BCS Z030E INX INX STX M001E LDAB ,X BRA Z0310 Z030E LDAB $01,X Z0310 BEQ Z0328 CMPB #$15 BHI Z031D LDX #M0552 BSR Z0342 BRA Z0328 Z031D SUBB #$15 LDX #M277D JSR Z082A JSR PCRLF Z0328 LDX M001E LDAA M0018 DECA BNE Z0301 LDAA M0007 BNE Z034D Z0333 LDX M001C LDAB #$10 JSR ADDBX DEC M0017 BEQ Z034D JMP Z0298 Z0342 DECB BEQ Z0349 ASLB JSR ADDBX Z0349 LDX ,X JMP ,X Z034D LDAA M0007 BEQ Z03B2 CMPA #$0A BEQ Z0359 CMPA #$12 BNE Z0376 Z0359 ANDA M000C BNE Z0376 LDAA M0008 BNE Z0369 LDX #M0CEF JSR PTEXT BRA Z0373 Z0369 LDAA M0007 CMPA #$0A BNE Z03B3 BSR Z0389 BCC Z03B3 Z0373 CLR M0009 Z0376 LDAA M0009 BEQ Z037F LDX #M0C7A BRA Z0386 Z037F LDAA M000B BNE Z03B2 LDX #M0C9D Z0386 JMP PTEXT Z0389 CLRB STAB M0015 STAB M000F Z038E INC M000F LDAB M000F CMPB M012B BHI Z03A2 JSR Z04E2 BNE Z038E INC M0015 BRA Z038E Z03A2 LDAA M0015 CMPA M012D BCS Z03B1 LDX #M0CBF JSR PTEXT2 SEC RTS Z03B1 CLC Z03B2 RTS Z03B3 CLRB STAB M0013 LDX #M22D8 STX M0020 Z03BB LDX M0020 Z03BD INCB CMPB M012B BHI Z040C Z03C3 LDAA ,X INX CMPA #$04 BNE Z03C3 LDAA ,X BNE Z03D1 INX BRA Z03BD Z03D1 INX CMPA M0008 BNE Z03BD STAB M000F STX M0020 LDAA M0007 CMPA #$0A BEQ Z03EF JSR Z04E2 BEQ Z03E9 LDAA #$01 BRA Z03F6 Z03E9 LDAA M0004 STAA ,X BRA Z0404 Z03EF JSR Z04E7 BEQ Z03FC LDAA #$02 Z03F6 STAA M0013 LDAB M000F BRA Z03BB Z03FC LDAA #$FF STAA ,X LDAA #$03 STAA M0013 Z0404 LDX #M0CF8 CLR M0009 BRA Z0456 Z040C LDAA M0013 BNE Z0432 LDAA M000C BEQ Z0415 RTS Z0415 LDX #M0024 JSR PTEXT LDX #M0D28 JSR PTEXT LDX #M0024 JSR PTEXT LDAA #$22 JSR PUTCHR CLR M0009 JMP PCRLF Z0432 CLR M0009 DECA BNE Z0442 LDX #M0024 BSR Z0456 LDX #M0CFF BRA Z0445 Z0442 LDX #M0D16 Z0445 BSR Z044A JMP PCRLF Z044A BSR Z0456 LDX #M0024 Z044F LDAA ,X INX CMPA #$20 BNE Z044F Z0456 JMP PTEXT Z0459 CLR M0015 LDAA M0001 BEQ Z0476 LDAA M0000 BEQ Z046D LDAA M22A5 BMI Z0476 CMPA M0004 BEQ Z0476 Z046D LDAA #$FF STAA M0015 LDX #M0BBF BSR Z04B7 Z0476 LDAA M0008 BNE Z0484 LDX #M0024 BSR Z04B7 LDX #M0BED BRA Z04B7 Z0484 LDX #M21D4 LDAA M0004 Z0489 DECA BEQ Z0493 LDAB #$06 JSR ADDBX BRA Z0489 Z0493 LDAA M0008 Z0495 DECA BEQ Z049B INX BRA Z0495 Z049B LDAA ,X BNE Z04BA LDAB M0015 BEQ Z04AE LDX #M0C14 JSR PTEXT2 JSR Z0637 BRA Z04BA Z04AE LDX #M0C47 JSR Z044A LDX #M0C53 Z04B7 JMP PTEXT Z04BA STAA M0004 LDAA M0015 BNE Z04C3 JSR NPAGE Z04C3 JMP Z057C M04C6 FCB $04,$E2,$04,$E7,$04,$EC,$05,$14,$04,$F2,$04,$FB,$05 FCB $19,$05,$1D,$05,$36,$05,$3C,$05,$4C,$04,$FF,$05,$05 FCB $05,$09 Z04E2 BSR Z0509 Z04E4 CMPA #$FF RTS Z04E7 BSR Z0509 CMPA M0004 Z04EB RTS BSR Z04E7 BEQ Z04EB BRA Z04E4 Z04F2 BSR Z04E7 Z04F4 BEQ Z04F8 Z04F6 CLRA RTS Z04F8 LDAA #$FF Z04FA RTS Z04FB BSR Z04E2 BRA Z04F4 BSR Z04F2 BNE Z04FA BRA Z04FB BSR Z0509 BRA Z04F4 Z0509 LDX #M22A3 LDAB M000F JSR ADDBX LDAA ,X RTS Z0514 LDAA M0004 CMPA M000F RTS BSR Z0514 BRA Z04F4 Z051D CLRA LDAB #$01 TST M000F BEQ Z052C Z0525 ASLB ROLA DEC M000F BNE Z0525 Z052C ANDA M0005 BNE Z04F6 ANDB M0006 BNE Z04F6 BRA Z04F8 BSR Z051D BNE Z04F6 BRA Z04F8 Z053C LDAA M012B STAA M000F Z0541 BSR Z0509 BMI Z04F6 DEC M000F BEQ Z04F8 BRA Z0541 BSR Z053C BNE Z04F6 BRA Z04F8 M0552 FCB $06,$57,$06,$64,$06,$8C,$06,$87,$06,$23,$06,$1F,$06 FCB $AE,$06,$27,$06,$BE,$06,$52,$06,$6A,$08,$16,$05,$7C FCB $07,$B2,$06,$DF,$06,$AB,$06,$BB,$06,$33,$08,$5B,$07 FCB $1A,$06,$74 Z057C TST M0001 BEQ Z0598 TST M0000 BEQ Z058F LDAA M22A5 BMI Z0598 CMPA M0004 BEQ Z0598 Z058F LDX #M0B9C JSR PTEXT JMP PCRLF Z0598 LDAB M0004 LDX #M1D5A JSR Z082A CLRB STAB M0013 Z05A3 INCB STAB M000F CMPB M012B BHI Z05CD PSHB JSR Z04E7 PULB BNE Z05A3 TST M0013 BNE Z05C0 LDX #M0B19 JSR PTEXT2 DEC M0013 Z05C0 PSHB LDX #M22D8 DEC M0010 JSR Z082A PULB BRA Z05A3 Z05CD CLR M0013 LDX #M21D4 LDAA M0004 Z05D5 DECA BEQ Z05DF LDAB #$06 JSR ADDBX BRA Z05D5 Z05DF CLRB DEX Z05E1 INCB CMPB #$07 BEQ Z061C INX LDAA ,X BEQ Z05E1 PSHB STX M0022 TST M0013 BNE Z05FE LDX #M0C63 JSR PTEXT DEC M0013 BRA Z0604 Z05FE LDX #M0D77 JSR PTEXT Z0604 LDX #M1B84 Z0607 DECB BEQ Z0614 Z060A LDAA ,X INX CMPA #$04 BNE Z060A INX BRA Z0607 Z0614 JSR PTEXT PULB LDX M0022 BRA Z05E1 Z061C JMP PCRLF CLR M0001 RTS DEC M0001 RTS LDX M0002 BEQ Z0630 LDAA #$FF STAA M0000 RTS Z0630 INS INS RTS CLR M0000 RTS Z0637 LDX #M0D48 JSR PTEXT2 LDX #M0024 JSR PTEXT JSR PCRLF JSR PCRLF LDAA M012C STAA M0004 CLR M0001 RTS BSR Z0637 JMP Z057C JSR Z0389 BCC Z065F JMP Z034D Z065F BSR Z0691 JMP Z03FC BSR Z0691 LDAA M0004 BRA Z0684 BSR Z0691 STX M0020 BSR Z0691 LDX M0020 BRA Z0684 BSR Z0691 LDAA ,X STX M0020 PSHA BSR Z0691 LDAA ,X PULB STAB ,X LDX M0020 Z0684 STAA ,X RTS BSR Z0691 CLRA BRA Z0684 BSR Z0691 STAA M0004 RTS Z0691 LDX M001C LDAB M0011 Z0695 INCB INC M0011 Z0699 INX INX DECB BNE Z0699 LDAA $01,X BNE Z0695 LDAA ,X TAB LDX #M22A3 JMP ADDBX CLRA BRA Z06B0 BSR Z0691 Z06B0 BSR Z06CD ORAA M0005 STAA M0005 ORAB M0006 STAB M0006 RTS CLRA BRA Z06C0 BSR Z0691 Z06C0 BSR Z06CD COMA COMB ANDA M0005 STAA M0005 ANDB M0006 STAB M0006 RTS Z06CD STAA M0016 CLRA LDAB #$01 TST M0016 Z06D5 BEQ Z06DE ASLB ROLA DEC M0016 BRA Z06D5 Z06DE RTS JSR NPAGE LDX #M0D7A JSR PTEXT CLRB STAB M0013 LDX #M22A4 Z06EE INCB CMPB M012B BHI Z070D LDAA ,X INX CMPA #$FF BNE Z06EE STAA M0010 STAA M0013 STX M0020 PSHB LDX #M22D8 JSR Z082A PULB LDX M0020 BRA Z06EE Z070D LDAA M0013 BNE Z0717 LDX #M0D81 JSR PTEXT Z0717 JMP PCRLF JMP FSAVE ; NEW GAME SAVE ROUTINE ORG $0743 ; REMOVED CODE DLOAD JMP FLOAD ; NEW GAME LOAD ROUTINE ORG $07B2 ; REMOVED CODE LDAA M0127 STAA M0015 CLRB STAB M0013 LDX #M22D8 Z07BD INCB CMPB M012B BHI Z07EC LDAA ,X INX STX M0020 CMPA #$2A BNE Z07E0 PSHB LDX #M22A3 JSR ADDBX LDAA ,X CMPA M0128 BNE Z07DD INC M0013 Z07DD PULB LDX M0020 Z07E0 LDAA ,X INX STX M0020 CMPA #$04 BNE Z07E0 INX BRA Z07BD Z07EC LDX #M0E2F BSR PTEXT2 LDX #M0012 CLRB JSR OUTDEC LDX #M0E42 BSR PTEXT LDX #M0014 CLRB JSR OUTDEC LDX #M0E5B BSR PTEXT LDAA M0013 CMPA M0015 BEQ Z0811 BRA PCRLF Z0811 LDX #M0E64 BSR PTEXT2 Z0816 INS INS LDX #M0D93 BSR PTEXT2 JSR GETCHR CMPA #$59 BNE Z0827 JMP START Z0827 JMP EXIT Z082A DECB BEQ Z083B Z082D LDAA ,X INX CMPA #$04 BNE Z082D LDAA M0010 BEQ Z0839 INX Z0839 BRA Z082A Z083B LDAA M0010 TPA STAB M0010 TAP BEQ PTEXT PTEXT2 BSR PCRLF PTEXT LDAA ,X INX CMPA #$04 BEQ Z0876 JSR PUTCHR BRA PTEXT PCRLF LDAA #$0D JSR PUTCHR LDAA #$0A JMP PUTCHR NPAGE LDX #M011F BRA PTEXT Z0860 LDAA M000D Z0862 ROLA EORA M000D RORA INC M000E ADDA M000E BVC Z0870 INC M000E Z0870 STAA M000D CMPA #$65 BCC Z0862 Z0876 RTS M0877 FCC "-*- A MARK DATA PRODUCTS ADVENTURE, COPYRIGHT 1981 -*-" FCB $0D,$0A,$0A FCC "YOUR GOAL IN THIS ADVENTURE IS TO FIND A TREASURE..." FCB $0D,$0A FCC "AND RETURN IT TO IT'S PROPER LOCATION.!" FCB $0D,$0A,$0A FCC "I'M AT YOUR COMMAND. GIVE ME INSTRUCTIONS THAT" FCB $0D,$0A FCC "CONSIST OF A " FCB $22 FCC "VERB" FCB $22 FCC " AND A " FCB $22 FCC "NOUN" FCB $22 FCC ". FOR EXAMPLE..." FCB $0D,$0A,$0A FCC "TO PASS THRU A DOOR YOU MIGHT SAY; " FCB $22 FCC "GO DOOR" FCB $22,$0D,$0A FCC "TO PICK UP A VASE YOU MIGHT SAY; " FCB $22 FCC "GET VASE" FCB $22,$0D,$0A FCC "TO SAVE THE CURRENT GAME; " FCB $22 FCC "SAVE GAME" FCB $22,$0D,$0A FCC "SOME INSTRUCTIONS MAY BE GIVEN BY USING A SINGLE VERB." FCB $0D,$0A,$0A FCC "AT TIMES YOU WILL FIND A NEED FOR CERTAIN ITEMS TO DO THINGS BUT" FCB $0D,$0A FCC "A GOOD ADVENTURER WILL BE RESOURCEFUL AND FIGURE THESE THINGS OUT..." FCB $0D,$0A,$0A FCC "HAPPY ADVENTURING ... PRESS " FCB $22 FCC "RETURN" FCB $22 FCC " TO PROCEED. " FCB $04 M0AEB FCC "DO YOU WANT TO USE A " FCB $22 FCC "SAVED" FCB $22 FCC " GAME (Y OR N) ? " FCB $04 M0B19 FCB $0D,$0A FCC "VISIBLE ITEMS HERE ARE:" FCB $04 M0B33 FCC "TELL ME WHAT TO DO ! " FCB $04 M0B49 FCC "I DON'T UNDERSTAND " FCB $22,$04 M0B5E FCC "THE LIGHT RUNS OUT IN " FCB $04 M0B75 FCC " TURN(S) !" FCB $0D,$0A,$04 M0B82 FCC "THE LIGHT HAS RUN OUT !" FCB $0D,$0A,$04 M0B9C FCC "IT'S VERY DARK HERE...I CAN'T SEE." FCB $04 M0BBF FCC "IT'S DANGEROUS TO MOVE AROUND IN THE DARK !" FCB $0D,$0A,$04 M0BED FCC " WHERE.? ... I NEED A DIRECTION TOO." FCB $0D,$0A,$04 M0C14 FCC "OOH! OUCH!! ... I FELL DOWN AND CRACKED MY HEAD.." FCC "!" FCB $04 M0C47 FCC "I CAN'T GO " FCB $04 M0C53 FCC " FROM HERE..." FCB $0D,$0A,$04 M0C63 FCB $0D,$0A,$0A FCC "I SEE A WAY TO GO " FCB $04 M0C7A FCC "I DON'T UNDERSTAND YOUR REQUEST." FCB $0D,$0A,$04 M0C9D FCC "I HAVE NO WAY TO DO THAT NOW..." FCB $0D,$0A,$04 M0CBF FCC "I CAN'T CARRY ANY MORE...TRY " FCB $22 FCC "TAKE INVENTORY" FCB $22,$0D,$0A,$04 M0CEF FCC "WHAT ?" FCB $0D,$0A,$04 M0CF8 FCC "O.K." FCB $0D,$0A,$04 M0CFF FCC " ?...I DON'T HAVE ANY " FCB $04 M0D16 FCC "I CAN'T FIND ANY " FCB $04 M0D28 FCC " ??...HOW DO YOU EXPECT ME TO " FCB $22,$04 M0D48 FCC "I'M DEAD !!..." FCB $0D,$0A FCC "YOU SHOULDN'T HAVE TOLD ME TO " FCB $04 M0D77 FCC ", " FCB $04 M0D7A FCC "I HAVE" FCB $04 M0D81 FCC " NOTHING WITH ME." FCB $04 M0D93 FCC "THE GAME IS OVER..." FCB $0D,$0A FCC "HOW ABOUT ANOTHER (Y OR N) ? " FCB $04 M0DC6 FCC "INSTALL 'GAME SAVE' DISC IN WORK DRIVE..." FCB $0D,$0A,$0A FCC "PRESS RETURN WHEN READY " FCB $04 M0E0B FCB $0D,$0A FCC "ENTER THE NAME OF THE DATA FILE: " FCB $04 M0E2F FCC "YOU HAVE RETURNED " FCB $04 M0E42 FCC " TREASURE(S)...YOU NEED " FCB $04 M0E5B FCC " TO WIN." FCB $04 M0E64 FCC "CONGRATULATIONS ... YOU'VE DONE IT !!" FCB $0D,$0A,$04 M0E8C FCB $00,$64,$0F,$09,$0F,$00,$00,$00,$00,$00,$00,$00,$16 FCB $07,$00,$00,$00,$64,$02,$03,$0A,$08,$0A,$00,$00,$00 FCB $00,$00,$30,$0D,$09,$00,$00,$64,$01,$04,$00,$00,$00 FCB $00,$00,$00,$00,$00,$06,$00,$00,$00,$00,$64,$05,$04 FCB $00,$00,$00,$00,$00,$00,$00,$00,$06,$00,$00,$00,$00 FCB $64,$05,$01,$14,$0E,$15,$0E,$14,$00,$00,$00,$2B,$02 FCB $00,$00,$00,$1E,$06,$04,$00,$00,$00,$00,$00,$00,$00 FCB $00,$3B,$00,$00,$00,$00,$64,$06,$04,$00,$08,$31,$00 FCB $32,$00,$00,$00,$15,$00,$00,$00,$00,$64,$06,$04,$00 FCB $08,$32,$0D,$11,$00,$08,$00,$0B,$11,$0D,$00,$00,$64 FCB $06,$04,$00,$08,$31,$0D,$11,$00,$05,$00,$0B,$11,$0D FCB $00,$00,$64,$12,$04,$00,$08,$08,$00,$00,$00,$00,$00 FCB $11,$07,$45,$00,$00,$64,$12,$04,$06,$02,$0C,$09,$0C FCB $00,$11,$00,$07,$04,$00,$00,$00,$3C,$0F,$04,$10,$06 FCB $15,$00,$00,$00,$00,$00,$03,$4E,$0C,$00,$00,$64,$16 FCB $04,$06,$08,$00,$08,$15,$00,$00,$00,$03,$11,$59,$0C FCB $00,$64,$16,$04,$06,$08,$00,$09,$00,$00,$00,$00,$10 FCB $58,$00,$00,$00,$64,$16,$04,$06,$09,$00,$08,$00,$00 FCB $00,$00,$33,$11,$00,$00,$00,$64,$00,$08,$1A,$04,$34 FCB $0D,$11,$00,$08,$00,$0B,$00,$00,$00,$00,$64,$00,$08 FCB $1A,$04,$34,$0D,$21,$00,$11,$00,$0B,$11,$00,$00,$00 FCB $64,$11,$07,$05,$00,$00,$00,$00,$00,$00,$00,$09,$00 FCB $00,$00,$00,$4B,$11,$04,$21,$02,$05,$09,$05,$00,$00 FCB $00,$62,$07,$00,$00,$00,$64,$15,$04,$00,$00,$00,$00 FCB $00,$00,$00,$00,$0C,$00,$00,$00,$0A,$1C,$00,$00,$00 FCB $00,$00,$00,$00,$00,$00,$00,$0F,$00,$00,$00,$05,$18 FCB $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0C,$00,$00 FCB $00,$05,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 FCB $0C,$00,$00,$00,$08,$18,$00,$00,$00,$00,$00,$00,$00 FCB $00,$00,$00,$14,$00,$00,$00,$08,$00,$00,$00,$00,$00 FCB $00,$00,$00,$00,$00,$00,$14,$00,$00,$00,$11,$00,$01 FCB $04,$00,$00,$00,$00,$00,$00,$00,$00,$26,$00,$00,$00 FCB $04,$0C,$14,$0E,$15,$0E,$01,$04,$00,$00,$00,$00,$1A FCB $00,$00,$00,$04,$0C,$05,$03,$00,$00,$00,$00,$00,$00 FCB $00,$00,$2D,$00,$00,$00,$04,$0B,$01,$04,$0E,$09,$00 FCB $00,$00,$00,$00,$00,$17,$18,$00,$00,$0F,$0B,$01,$04 FCB $0E,$09,$00,$00,$00,$00,$00,$00,$18,$00,$00,$00,$10 FCB $0B,$01,$04,$22,$06,$00,$00,$00,$00,$00,$00,$41,$00 FCB $00,$00,$10,$0B,$01,$04,$22,$01,$0E,$09,$0E,$00,$00 FCB $00,$07,$19,$00,$00,$0F,$0B,$01,$04,$0E,$08,$00,$00 FCB $00,$00,$00,$00,$19,$00,$00,$00,$04,$0B,$01,$04,$0E FCB $08,$29,$0E,$00,$00,$00,$00,$1D,$51,$00,$00,$04,$09 FCB $0E,$08,$29,$06,$00,$00,$00,$00,$00,$00,$1F,$00,$00 FCB $00,$06,$09,$0E,$08,$29,$06,$00,$00,$00,$00,$00,$00 FCB $1F,$00,$00,$00,$0A,$09,$01,$04,$0E,$08,$29,$0E,$29 FCB $00,$00,$00,$01,$00,$00,$00,$0A,$09,$29,$02,$29,$00 FCB $00,$00,$00,$00,$00,$00,$01,$00,$00,$00,$04,$09,$29 FCB $01,$07,$06,$00,$00,$00,$00,$00,$00,$17,$52,$00,$00 FCB $06,$09,$29,$01,$07,$06,$00,$00,$00,$00,$00,$00,$17 FCB $52,$00,$00,$04,$09,$29,$01,$07,$01,$00,$00,$00,$00 FCB $00,$00,$53,$00,$00,$00,$06,$09,$29,$01,$07,$01,$00 FCB $00,$00,$00,$00,$00,$53,$00,$00,$00,$04,$0B,$29,$0D FCB $00,$00,$00,$00,$00,$00,$00,$00,$1E,$00,$00,$00,$01 FCB $25,$01,$04,$14,$02,$00,$00,$00,$00,$00,$00,$17,$24 FCB $00,$00,$04,$25,$01,$04,$14,$0D,$00,$00,$00,$00,$00 FCB $00,$1A,$1B,$00,$00,$0F,$25,$01,$04,$14,$02,$14,$00 FCB $15,$00,$00,$00,$15,$1D,$00,$00,$0A,$28,$01,$04,$00 FCB $00,$00,$00,$00,$00,$00,$00,$21,$00,$00,$00,$0A,$0B FCB $01,$04,$00,$00,$00,$00,$00,$00,$00,$00,$21,$00,$00 FCB $00,$0A,$2A,$01,$04,$00,$00,$00,$00,$00,$00,$00,$00 FCB $17,$2A,$00,$00,$04,$28,$01,$04,$12,$02,$13,$0E,$13 FCB $00,$00,$00,$02,$29,$00,$00,$04,$28,$01,$04,$13,$0D FCB $00,$00,$00,$00,$00,$00,$2D,$00,$00,$00,$06,$29,$13 FCB $03,$00,$00,$00,$00,$00,$00,$00,$00,$25,$00,$00,$00 FCB $01,$07,$01,$04,$02,$00,$00,$00,$00,$00,$00,$00,$03 FCB $13,$0D,$00,$11,$00,$02,$04,$00,$00,$00,$00,$00,$00 FCB $00,$00,$26,$00,$00,$00,$04,$0D,$06,$01,$00,$00,$00 FCB $00,$00,$00,$00,$00,$27,$00,$00,$00,$0F,$0D,$06,$01 FCB $00,$00,$00,$00,$00,$00,$00,$00,$27,$00,$00,$00,$04 FCB $0D,$06,$02,$0D,$09,$00,$00,$00,$00,$00,$00,$1A,$1B FCB $00,$00,$0F,$0D,$06,$02,$0D,$09,$0D,$00,$00,$00,$00 FCB $00,$19,$07,$00,$00,$0F,$0D,$06,$02,$0D,$08,$00,$00 FCB $00,$00,$00,$00,$19,$00,$00,$00,$04,$0D,$06,$02,$0D FCB $08,$07,$0E,$00,$00,$00,$00,$22,$00,$00,$00,$04,$0A FCB $07,$06,$00,$00,$00,$00,$00,$00,$00,$00,$40,$00,$00 FCB $00,$0A,$0A,$06,$02,$0D,$08,$07,$0E,$07,$00,$00,$00 FCB $01,$00,$00,$00,$0A,$0A,$07,$0D,$07,$00,$00,$00,$00 FCB $00,$00,$00,$01,$00,$00,$00,$04,$0A,$07,$01,$00,$00 FCB $00,$00,$00,$00,$00,$00,$28,$00,$00,$00,$04,$0D,$06 FCB $02,$07,$0D,$08,$0E,$00,$00,$00,$00,$23,$00,$00,$00 FCB $04,$10,$08,$06,$00,$00,$00,$00,$00,$00,$00,$00,$1F FCB $00,$00,$00,$06,$10,$08,$0C,$00,$00,$00,$00,$00,$00 FCB $00,$00,$1F,$00,$00,$00,$0A,$10,$06,$02,$07,$0D,$08 FCB $00,$00,$00,$00,$00,$01,$00,$00,$00,$0A,$10,$08,$02 FCB $08,$00,$00,$00,$00,$00,$00,$00,$01,$00,$00,$00,$04 FCB $10,$08,$03,$00,$00,$00,$00,$00,$00,$00,$00,$1A,$00 FCB $00,$00,$06,$10,$08,$03,$17,$0C,$00,$00,$00,$00,$00 FCB $00,$2E,$00,$00,$00,$04,$0D,$06,$02,$07,$0D,$08,$0D FCB $00,$00,$00,$00,$2F,$00,$00,$00,$04,$0E,$09,$03,$00 FCB $00,$00,$00,$00,$00,$00,$00,$2D,$00,$00,$00,$0E,$11 FCB $01,$01,$01,$00,$02,$00,$0A,$00,$00,$00,$13,$15,$07 FCB $08,$0C,$11,$02,$01,$01,$00,$02,$00,$00,$00,$00,$00 FCB $15,$12,$3A,$00,$01,$2A,$01,$04,$15,$0D,$03,$00,$00 FCB $00,$00,$00,$03,$13,$05,$0D,$04,$12,$0A,$03,$00,$00 FCB $00,$00,$00,$00,$00,$00,$2D,$00,$00,$00,$04,$13,$0B FCB $03,$00,$00,$00,$00,$00,$00,$00,$00,$2D,$00,$00,$00 FCB $04,$0F,$0D,$03,$00,$00,$00,$00,$00,$00,$00,$00,$20 FCB $00,$00,$00,$0F,$14,$03,$04,$00,$00,$00,$00,$00,$00 FCB $00,$00,$19,$00,$00,$00,$04,$14,$03,$04,$0C,$02,$0D FCB $0E,$00,$00,$00,$00,$31,$00,$00,$00,$04,$0F,$0D,$06 FCB $00,$00,$00,$00,$00,$00,$00,$00,$1F,$00,$00,$00,$0A FCB $0F,$0D,$02,$0D,$00,$00,$00,$00,$00,$00,$00,$01,$00 FCB $00,$00,$0A,$0F,$0D,$0E,$03,$04,$0D,$00,$00,$00,$00 FCB $00,$01,$00,$00,$00,$04,$0F,$0D,$03,$00,$00,$00,$00 FCB $00,$00,$00,$00,$20,$00,$00,$00,$04,$14,$03,$04,$0D FCB $0D,$00,$00,$00,$00,$00,$00,$1D,$32,$00,$00,$0B,$15 FCB $03,$04,$0D,$0D,$0C,$00,$0F,$00,$00,$00,$15,$35,$00 FCB $00,$11,$00,$03,$04,$0F,$0E,$00,$00,$00,$00,$00,$00 FCB $43,$00,$00,$00,$01,$08,$03,$04,$0F,$0D,$04,$00,$00 FCB $00,$00,$00,$03,$13,$0D,$00,$04,$16,$10,$03,$00,$00 FCB $00,$00,$00,$00,$00,$00,$36,$00,$00,$00,$04,$17,$11 FCB $02,$00,$00,$00,$00,$00,$00,$00,$00,$38,$00,$00,$00 FCB $01,$08,$05,$04,$04,$00,$00,$00,$00,$00,$00,$00,$03 FCB $13,$05,$0D,$11,$00,$05,$04,$00,$00,$00,$00,$00,$00 FCB $00,$00,$43,$00,$00,$00,$01,$17,$05,$04,$06,$00,$00 FCB $00,$00,$00,$00,$00,$03,$13,$0D,$00,$04,$2C,$06,$04 FCB $00,$00,$00,$00,$00,$00,$00,$00,$39,$00,$00,$00,$06 FCB $10,$06,$04,$08,$03,$00,$00,$00,$00,$00,$00,$3C,$00 FCB $00,$00,$0B,$2D,$06,$04,$09,$09,$09,$00,$00,$00,$00 FCB $00,$3D,$07,$00,$00,$0B,$15,$06,$04,$09,$09,$00,$00 FCB $00,$00,$00,$00,$3E,$00,$00,$00,$0B,$15,$06,$04,$09 FCB $08,$09,$00,$00,$00,$00,$00,$13,$3F,$09,$10,$01,$2E FCB $06,$04,$31,$0D,$05,$00,$00,$00,$00,$00,$03,$13,$0D FCB $00,$01,$2F,$06,$04,$32,$0D,$08,$00,$00,$00,$00,$00 FCB $03,$13,$0D,$00,$01,$17,$08,$04,$11,$02,$06,$00,$00 FCB $00,$00,$00,$03,$13,$0D,$00,$01,$30,$09,$04,$19,$0D FCB $00,$00,$00,$00,$00,$00,$17,$42,$00,$00,$04,$30,$09 FCB $04,$19,$0D,$00,$00,$00,$00,$00,$00,$42,$00,$00,$00 FCB $0D,$30,$09,$04,$23,$01,$19,$00,$27,$00,$00,$00,$15 FCB $33,$00,$00,$01,$30,$09,$04,$27,$0D,$0A,$00,$00,$00 FCB $00,$00,$03,$13,$0D,$00,$01,$31,$0A,$04,$0B,$00,$00 FCB $00,$00,$00,$00,$00,$03,$05,$13,$0D,$01,$31,$0B,$04 FCB $0A,$00,$00,$00,$00,$00,$00,$00,$03,$13,$0D,$06,$0A FCB $23,$0E,$04,$1D,$0D,$00,$00,$00,$00,$00,$00,$4B,$00 FCB $00,$00,$0A,$23,$0E,$04,$1D,$0E,$1C,$00,$00,$00,$00 FCB $00,$01,$00,$00,$00,$0A,$23,$0E,$07,$1C,$02,$1C,$00 FCB $00,$00,$00,$00,$01,$00,$00,$00,$09,$26,$0E,$04,$00 FCB $00,$00,$00,$00,$00,$00,$00,$34,$00,$00,$00,$12,$26 FCB $0E,$04,$1D,$02,$26,$01,$1D,$00,$26,$00,$04,$04,$4C FCB $00,$12,$27,$0E,$04,$1D,$02,$26,$01,$1D,$00,$26,$00 FCB $04,$04,$4C,$00,$12,$27,$26,$01,$26,$00,$00,$00,$00 FCB $00,$00,$00,$02,$5C,$00,$00,$01,$32,$08,$04,$0F,$00 FCB $00,$00,$00,$00,$00,$00,$03,$13,$0D,$00,$01,$32,$10 FCB $04,$0F,$00,$00,$00,$00,$00,$00,$00,$03,$13,$0D,$00 FCB $04,$33,$10,$04,$00,$00,$00,$00,$00,$00,$00,$00,$1A FCB $1C,$00,$00,$01,$33,$10,$04,$14,$00,$00,$00,$00,$00 FCB $00,$00,$03,$13,$0D,$00,$0A,$1D,$20,$02,$20,$00,$00 FCB $00,$00,$00,$00,$00,$01,$00,$00,$00,$12,$1D,$20,$01 FCB $20,$00,$00,$00,$00,$00,$00,$00,$02,$5C,$00,$00,$18 FCB $1D,$20,$01,$00,$00,$00,$00,$00,$00,$00,$00,$27,$00 FCB $00,$00,$18,$1D,$20,$03,$0A,$0C,$00,$00,$00,$00,$00 FCB $00,$4D,$00,$00,$00,$18,$1D,$20,$02,$0A,$01,$20,$00 FCB $28,$00,$00,$00,$15,$33,$00,$00,$0A,$1D,$28,$0D,$00 FCB $00,$00,$00,$00,$00,$00,$00,$4F,$00,$00,$00,$19,$1D FCB $28,$0D,$28,$00,$20,$00,$00,$00,$00,$00,$15,$2F,$00 FCB $00,$0A,$27,$0D,$0C,$14,$04,$26,$02,$00,$00,$00,$00 FCB $44,$00,$00,$00,$0A,$27,$0D,$03,$14,$04,$26,$02,$26 FCB $00,$00,$00,$01,$00,$00,$00,$01,$30,$10,$04,$11,$00 FCB $00,$00,$00,$00,$00,$00,$03,$13,$0D,$00,$01,$1F,$11 FCB $04,$0C,$08,$13,$00,$00,$00,$00,$00,$03,$13,$0D,$00 FCB $01,$1F,$11,$04,$0C,$09,$12,$00,$00,$00,$00,$00,$03 FCB $13,$0D,$10,$0A,$1B,$12,$04,$22,$02,$08,$08,$00,$00 FCB $00,$00,$48,$00,$00,$00,$0A,$1E,$12,$04,$23,$02,$08 FCB $08,$00,$00,$00,$00,$48,$00,$00,$00,$09,$21,$00,$00 FCB $00,$00,$00,$00,$00,$00,$00,$00,$61,$00,$00,$00,$0A FCB $1B,$12,$04,$22,$02,$08,$09,$22,$00,$08,$00,$01,$07 FCB $00,$00,$0A,$1B,$12,$07,$22,$02,$22,$00,$00,$00,$00 FCB $00,$01,$00,$00,$00,$0A,$1E,$12,$04,$23,$02,$08,$09 FCB $23,$00,$08,$00,$01,$07,$00,$00,$0A,$1E,$12,$07,$23 FCB $02,$23,$00,$00,$00,$00,$00,$01,$00,$00,$00,$17,$0C FCB $12,$04,$05,$01,$05,$00,$0B,$00,$08,$00,$02,$07,$09 FCB $47,$17,$0D,$12,$04,$06,$01,$0B,$08,$06,$00,$08,$00 FCB $02,$47,$09,$00,$17,$00,$12,$04,$0B,$09,$00,$00,$00 FCB $00,$00,$00,$46,$49,$00,$00,$17,$00,$12,$04,$0B,$08 FCB $00,$00,$00,$00,$00,$00,$46,$4A,$00,$00,$0A,$0C,$12 FCB $04,$05,$02,$00,$00,$00,$00,$00,$00,$48,$00,$00,$00 FCB $0A,$0C,$05,$02,$05,$00,$00,$00,$00,$00,$00,$00,$01 FCB $00,$00,$00,$0A,$0D,$12,$04,$06,$02,$00,$00,$00,$00 FCB $00,$00,$48,$00,$00,$00,$0A,$0D,$06,$02,$06,$00,$00 FCB $00,$00,$00,$00,$00,$01,$00,$00,$00,$04,$1D,$20,$02 FCB $00,$00,$00,$00,$00,$00,$00,$00,$55,$00,$00,$00,$04 FCB $1D,$28,$02,$00,$00,$00,$00,$00,$00,$00,$00,$56,$00 FCB $00,$00,$01,$1D,$11,$07,$19,$07,$28,$02,$00,$00,$00 FCB $00,$54,$00,$00,$00,$01,$1D,$20,$02,$00,$00,$00,$00 FCB $00,$00,$00,$00,$55,$00,$00,$00,$01,$1D,$11,$04,$28 FCB $02,$16,$00,$00,$00,$00,$00,$03,$13,$0D,$00,$01,$1D FCB $16,$04,$1C,$0C,$00,$00,$00,$00,$00,$00,$57,$00,$00 FCB $00,$01,$21,$16,$04,$2A,$0D,$11,$00,$28,$00,$11,$00 FCB $03,$0B,$13,$0D,$01,$1D,$16,$04,$2A,$0D,$2A,$00,$33 FCB $00,$06,$00,$15,$07,$13,$0D,$03,$1D,$16,$04,$0B,$03 FCB $06,$00,$00,$00,$00,$00,$09,$00,$00,$00,$01,$1D,$33 FCB $0D,$07,$09,$2B,$00,$33,$00,$07,$00,$15,$13,$0D,$07 FCB $01,$35,$16,$04,$2B,$0D,$19,$00,$28,$00,$19,$00,$03 FCB $0B,$13,$0D,$01,$1D,$19,$04,$28,$02,$16,$00,$00,$00 FCB $00,$00,$03,$13,$0D,$00,$01,$1D,$16,$04,$2B,$0D,$2B FCB $00,$33,$00,$06,$00,$15,$07,$13,$0D,$01,$1D,$33,$0D FCB $07,$08,$33,$00,$2A,$00,$07,$00,$15,$13,$0D,$09,$01 FCB $30,$19,$04,$2E,$0D,$00,$00,$00,$00,$00,$00,$5A,$00 FCB $00,$00,$09,$22,$19,$04,$2E,$0D,$00,$00,$00,$00,$00 FCB $00,$61,$00,$00,$00,$12,$0E,$19,$04,$09,$03,$2E,$0D FCB $2E,$00,$09,$00,$04,$04,$5B,$00,$12,$0E,$18,$07,$09 FCB $01,$09,$00,$00,$00,$00,$00,$02,$5C,$00,$00,$01,$30 FCB $19,$04,$2E,$0E,$1A,$00,$2E,$00,$19,$00,$03,$13,$0D FCB $0B,$04,$36,$1A,$04,$00,$00,$00,$00,$00,$00,$00,$00 FCB $5D,$00,$00,$00,$04,$19,$1A,$04,$00,$00,$00,$00,$00 FCB $00,$00,$00,$5E,$00,$00,$00,$0A,$36,$1A,$04,$00,$00 FCB $00,$00,$00,$00,$00,$00,$21,$00,$00,$00,$0A,$19,$1A FCB $04,$00,$00,$00,$00,$00,$00,$00,$00,$21,$00,$00,$00 FCB $13,$21,$1A,$04,$1F,$06,$00,$00,$00,$00,$00,$00,$60 FCB $00,$00,$00,$13,$21,$1A,$04,$2F,$0D,$00,$00,$00,$00 FCB $00,$00,$1E,$00,$00,$00,$13,$21,$1A,$04,$34,$0E,$34 FCB $00,$28,$00,$20,$00,$02,$15,$1D,$10,$04,$38,$34,$03 FCB $00,$00,$00,$00,$00,$00,$00,$00,$64,$00,$00,$00,$13 FCB $21,$1A,$04,$34,$0D,$2F,$0E,$2F,$00,$00,$00,$02,$1D FCB $00,$00,$04,$37,$2F,$03,$00,$00,$00,$00,$00,$00,$00 FCB $00,$5F,$00,$00,$00,$16,$2B,$00,$00,$00,$00,$00,$00 FCB $00,$00,$00,$00,$37,$00,$00,$00,$16,$00,$00,$00,$00 FCB $00,$00,$00,$00,$00,$00,$00,$37,$00,$00,$00,$02,$34 FCB $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$50,$00,$00 FCB $00,$07,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 FCB $0E,$00,$00,$00,$11,$00,$00,$00,$00,$00,$00,$00,$00 FCB $00,$00,$00,$63,$00,$00,$00,$04,$1A,$00,$00,$00,$00 FCB $00,$00,$00,$00,$00,$00,$13,$0D,$00,$00,$04,$00,$00 FCB $00,$00,$00,$00,$00,$00,$00,$00,$00,$13,$0D,$00,$00 M19EC FCC "GO" FCB $04,$01 FCC "CLIM" FCB $04,$01 FCC "WALK" FCB $04,$01 FCC "RUN" FCB $04,$01 FCC "ENTE" FCB $04,$01 FCC "FOLL" FCB $04,$01 FCC "JUMP" FCB $04,$01 FCC "SIT" FCB $04,$01 FCC "LAUN" FCB $04,$01 FCC "SAIL" FCB $04,$01 FCC "ROW" FCB $04,$01 FCC "PADD" FCB $04,$01 FCC "SAY" FCB $04,$02 FCC "BAIL" FCB $04,$03 FCC "LOOK" FCB $04,$04 FCC "EXAM" FCB $04,$04 FCC "QUIT" FCB $04,$05 FCC "READ" FCB $04,$06 FCC "SCOR" FCB $04,$07 FCC "SAVE" FCB $04,$08 FCC "KILL" FCB $04,$09 FCC "ATTA" FCB $04,$09 FCC "FIGH" FCB $04,$09 FCC "GET" FCB $04,$0A FCC "TAKE" FCB $04,$0A FCC "CATC" FCB $04,$0A FCC "LIFT" FCB $04,$0A FCC "TRAP" FCB $04,$0A FCC "REMO" FCB $04,$0A FCC "WEAR" FCB $04,$0A FCC "PUSH" FCB $04,$0B FCC "PULL" FCB $04,$0B FCC "FLIP" FCB $04,$0B FCC "TURN" FCB $04,$0B FCC "ACTI" FCB $04,$0B FCC "PRES" FCB $04,$0B FCC "UNLI" FCB $04,$0C FCC "CUT" FCB $04,$0D FCC "CLEA" FCB $04,$0D FCC "LIGH" FCB $04,$0E FCC "OPEN" FCB $04,$0F FCC "BREA" FCB $04,$0F FCC "SMAS" FCB $04,$0F FCC "UNLO" FCB $04,$10 FCC "HELP" FCB $04,$11 FCC "DROP" FCB $04,$12 FCC "RELE" FCB $04,$12 FCC "THRO" FCB $04,$12 FCC "LEAV" FCB $04,$12 FCC "GIVE" FCB $04,$12 FCC "FEED" FCB $04,$12 FCC "DIG" FCB $04,$13 FCC "FIND" FCB $04,$14 FCC "LIST" FCB $04,$16 FCC "HEAR" FCB $04,$16 FCC "TRAD" FCB $04,$17 FCC "SWAP" FCB $04,$17 FCC "PUMP" FCB $04,$18 FCC "INFL" FCB $04,$18 FCC "DEFL" FCB $04,$19 FCC "." FCB $04,$00 FCC "." FCB $04,$00 FCC "." FCB $04,$00 FCC "." FCB $04,$00 FCC "." FCB $04,$00 FCC "." FCB $04,$00 FCC "." FCB $04,$00 FCC "." FCB $04,$00 FCC "." FCB $04,$00 FCC "." FCB $04,$00 FCC "." FCB $04,$00 FCC "." FCB $04,$00 FCC "." FCB $04,$00 FCC "." FCB $04,$00 FCC "." FCB $04,$00 FCC "." FCB $04,$00 FCC "." FCB $04,$00 FCC "." FCB $04,$00 FCC "." FCB $04,$00 M1B84 FCC "NORTH" FCB $04,$01 FCC "SOUTH" FCB $04,$02 FCC "EAST" FCB $04,$03 FCC "WEST" FCB $04,$04 FCC "UP" FCB $04,$05 FCC "DOWN" FCB $04,$06 FCC "STAI" FCB $04,$07 FCC "PASS" FCB $04,$08 FCC "MICR" FCB $04,$09 FCC "SPEC" FCB $04,$0A FCC "DESK" FCB $04,$0B FCC "RUG" FCB $04,$0C FCC "CHES" FCB $04,$0D FCC "BOX" FCB $04,$0E FCC "JEWE" FCB $04,$0E FCC "TRAP" FCB $04,$0F FCC "MOUS" FCB $04,$0F FCC "MANU" FCB $04,$10 FCC "INST" FCB $04,$10 FCC "FLAS" FCB $04,$11 FCC "PUMP" FCB $04,$12 FCC "BUCK" FCB $04,$13 FCC "CABI" FCB $04,$14 FCC "SWIT" FCB $04,$15 FCC "BUTT" FCB $04,$15 FCC "BOOT" FCB $04,$16 FCC "DEVI" FCB $04,$17 FCC "TELE" FCB $04,$17 FCC "SEAT" FCB $04,$17 FCC "GAME" FCB $04,$18 FCC "IDOL" FCB $04,$19 FCC "AROU" FCB $04,$1A FCC "KEY" FCB $04,$1B FCC "INVE" FCB $04,$1C FCC "BOAT" FCB $04,$1D FCC "WATE" FCB $04,$1D FCC "AIR" FCB $04,$1D FCC "MACH" FCB $04,$1E FCC "SHAC" FCB $04,$1F FCC "PYRA" FCB $04 FCC " WALL" FCB $04 FCC " ROOM" FCB $04 FCC " BEAC" FCB $04 FCC "!SAND" FCB $04 FCC "!JACK" FCB $04 FCC "!HOLE" FCB $04 FCC "!NATI" FCB $04,$22 FCC "PADD" FCB $04 FCC "#SHOV" FCB $04 FCC "$DOOR" FCB $04 FCC "%SNAK" FCB $04,$26 FCC "MICE" FCB $04 FCC "'TABL" FCB $04 FCC "(MESS" FCB $04 FCC ")LADD" FCB $04 FCC "*CELL" FCB $04 FCC "*SOUN" FCB $04 FCC "+NOIS" FCB $04 FCC "+PANE" FCB $04 FCC ",SPEA" FCB $04 FCC ",ENER" FCB $04 FCC "-LABO" FCB $04 FCC ".FIEL" FCB $04 FCC "/PATH" FCB $04 FCC "0FOLI" FCB $04 FCC "0JUNG" FCB $04 FCC "0GROW" FCB $04 FCC "0CLEA" FCB $04 FCC "0CREV" FCB $04 FCC "1HILL" FCB $04 FCC "2SHED" FCB $04 FCC "3SCOR" FCB $04 FCC "4SHOR" FCB $04 FCC "5CALI" FCB $04 FCC "5ISLA" FCB $04 FCC "5TOMB" FCB $04 FCC "6TREA" FCB $04 FCC "7CROW" FCB $04 FCC "7POTT" FCB $04 FCC "8" M1D5A FCC "I'M IN PROFESSOR LAGARTO'S COMFORTABLE STUDY." FCB $04 FCC "I'M IN A DIMLY LIT ATTIC FILLED WITH OLD FURNITURE." FCB $04 FCC "I'M IN A MUSTY STORAGE CELLAR." FCB $04 FCC "I'M IN A LONG NARROW PASSAGEWAY...A SIGN ON THE WALL READS" FCB $0D,$0A FCC "- TO LIGHT IS GOOD, TO UNLIGHT IS WISE -" FCB $04 FCC "I'M IN THE PROFESSOR'S SECRET LABORATORY FILLED WITH" FCB $0D,$0A FCC "COMPLEX HIGH ENERGY MACHINERY AND TEST EQUIPMENT." FCB $04 FCC "I'M SEATED INSIDE AN UNUSUAL LOOKING DEVICE." FCB $04 FCC " " FCB $04 FCC "I'M IN A MARSHY FIELD AT THE BASE OF A STEEP ROCKY HILL." FCB $04 FCC "I'M IN A TROPICAL JUNGLE." FCB $04 FCC "I,M AT THE RUINS OF AN ANCIENT MAYAN PYRAMID..." FCB $0D,$0A FCC "THE JUNGLE HAS OVERGROWN MUCH OF IT." FCB $04 FCC "I'M IN A MAYAN PYRAMID. STRANGE DESIGNS COVER THE WALLS." FCB $04 FCC "I'M IN A MAYAN PYRAMID. STRANGE DESIGNS COVER THE WALLS." FCB $04 FCC "I'M IN A MAYAN PYRAMID. STRANGE DESIGNS COVER THE WALLS." FCB $04 FCC "I'M IN A LARGE ROOM DECORATED WITH MAYAN ARTWORK." FCB $04 FCC "I'M ON THE SIDE OF A STEEP ROCKY HILL." FCB $04 FCC "I'M ON A HILLTOP. I CAN SEE CALIXTO ISLAND IN THE DISTANCE." FCB $0D,$0A FCC "A PATH SLOPES TO A BEACH BELOW..." FCB $04 FCC "I'M ON A WARM TROPICAL BEACH...THE OCEAN EXTENDS SOUTHWARD." FCB $04 FCC "I'M IN A SMALL GRASS SHACK" FCB $04 FCC "I'M IN AN EMPTY GRASS SHACK." FCB $04 FCC "I'M IN AN OLD STORAGE SHED." FCB $04 FCC " " FCB $04 FCC "I'M IN A RUBBER BOAT." FCB $04 FCC " " FCB $04 FCC " " FCB $04 FCC "I'M ON THE SHORE OF CALIXTO ISLAND." FCB $04 FCC "I'M IN A NATIVE CEREMONIAL AREA." FCB $04 M21D4 FCB $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$01,$00 FCB $00,$00,$00,$01,$00,$03,$05,$00,$00,$00,$00,$00,$00 FCB $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 FCB $00,$00,$00,$00,$00,$00,$09,$00,$00,$00,$00,$08,$00 FCB $00,$00,$09,$00,$00,$00,$00,$00,$00,$0C,$0C,$0C,$00 FCB $00,$0B,$0C,$0D,$0C,$00,$00,$0D,$0E,$0D,$0C,$00,$00 FCB $0D,$00,$00,$00,$00,$00,$00,$00,$00,$00,$10,$08,$0F FCB $00,$00,$00,$00,$00,$00,$00,$00,$00,$10,$00,$00,$00 FCB $11,$00,$00,$00,$00,$00,$11,$00,$00,$00,$00,$00,$00 FCB $10,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 FCB $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 FCB $00,$00,$00,$00,$00,$00,$00,$00,$00,$19,$00,$00,$00 M2270 FCB $02,$00,$01,$01,$01,$02,$00,$00,$02,$03,$03,$03,$00 FCB $00,$00,$05,$05,$01,$00,$00,$00,$06,$06,$05,$09,$0A FCB $0B,$0E,$0E,$10,$14,$14,$12,$12,$12,$11,$11,$14,$00 FCB $00,$00,$16,$00,$1A,$1A,$19,$00,$19,$06,$00,$00 M22A3 FCB $00 M22A4 FCB $02 M22A5 FCB $00,$01,$01,$01,$02,$00,$00,$02,$03,$03,$03,$00,$00 FCB $00,$05,$05,$01,$00,$00,$00,$06,$06,$05,$09,$0A,$0B FCB $0E,$0E,$10,$14,$14,$12,$12,$12,$11,$11,$14,$00,$00 FCB $00,$16,$00,$1A,$1A,$19,$00,$19,$06,$00,$00,$00 M22D8 FCC "AN UNLIT FLASHLIGHT." FCB $04,$11 FCC "A LIT FLASHLIGHT." FCB $04,$11 FCC "A FLIGHT OF STAIRS." FCB $04,$00 FCC "A ROLLTOP DESK." FCB $04,$00 FCC "AN ORIENTAL RUG." FCB $04,$0C FCC "AN OLD WOODEN CHEST." FCB $04,$0D FCC "A PAIR OF SPECTACLES." FCB $04,$0A FCC "AN INSTRUCTION MANUAL." FCB $04,$10 FCC "A BOX OF COSTUME JEWELRY." FCB $04,$0E FCC "A TIRE PUMP." FCB $04,$12 FCC "A BUCKET." FCB $04,$13 FCC "A STORAGE CABINET." FCB $04,$00 FCC "A MOUSE TRAP." FCB $04,$0F FCC "A CONCEALED SWITCH." FCB $04,$00 FCC "A STORAGE CABINET WITH A SECRET PASSAGE BEHIND IT..." FCB $04,$00 FCC "A PAIR OF HIKING BOOTS." FCB $04,$16 FCC "AN UNUSUAL LOOKING DEVICE." FCB $04,$00 FCC "AN ANTIQUE TABLE." FCB $04,$00 FCC "A HANDWRITTEN MESSAGE." FCB $04 FCC ")A TRAP DOOR IN THE FLOOR." FCB $04,$00 FCC "A LADDER LEADING TO A CELLAR." FCB $04,$00 FCC "AN INSTRUMENT PANEL WITH PULSING LIGHTS." FCB $04,$00 FCC "A SMALL SPEAKER." FCB $04,$00 FCC "A PASSAGEWAY." FCB $04,$00 FCC "A PATH BARELY VISIBLE THROUGH DENSE FOLIAGE." FCB $04,$00 FCC "A CREVICE BETWEEN TWO STONE BLOCKS." FCB $04,$00 FCC "A NARROW CREVICE IN THE WALL." FCB $04,$00 FCC "ANCIENT CANOE PADDLES." FCB $04 FCC "#A LARGE HUNGRY LOOKING RATTLESNAKE." FCB $04,$00 FCC "A STORAGE SHED." FCB $04,$00 FCC "A SHOVEL." FCB $04 FCC "$A DEFLATED RUBBER BOAT." FCB $04,$1D FCC "TRADER JACK THE BEACHCOMBER." FCB $04,$00 FCC "SOME KEYS ON A CHAIN." FCB $04,$1B FCC "A MACHETE." FCB $04,$1E FCC "A GRASS SHACK." FCB $04,$1F FCC "SAND." FCB $04 FCC "!MICE." FCB $04 FCC "'A FRESHLY CUT PATH." FCB $04,$00 FCC "A BIG RUBBER BOAT." FCB $04,$1D FCC "MICROFILM." FCB $04,$09 FCC "A WARM TROPICAL BEACH." FCB $04,$00 FCC "THE SANDY SHORE OF CALIXTO ISLAND." FCB $04,$00 FCC "A TOMBSTONE." FCB $04,$00 FCC "A PAGAN IDOL." FCB $04,$00 FCC "UNFRIENDLY NATIVES." FCB $04,$22 FCC "* MONTEZUMA'S JEWELLED CROWN *" FCB $04 FCC "7A CLEARING IN THE JUNGLE." FCB $04 FCC "0THE PROFESSOR'S LABORATORY." FCB $04,$00 FCC "A MARSHY FIELD." FCB $04,$00 FCC "A LOT OF OCEAN." FCB $04,$00 FCC "ANCIENT MAYAN POTTERY." FCB $04 FCC "8" M277D FCB $0D,$0A FCC "WELCOME TO THE CALIXTO ISLAND ADVENTURE" FCB $04 FCC "SORRY, I CAN'T DO THAT." FCB $04 FCC "IT'S LOCKED." FCB $04 FCC "IT'S OPEN..." FCB $04 FCC "IT LOOKS MIGHTY INTERESTING ALRIGHT..." FCB $04 FCC "MAYBE I SHOULD OPEN IT ?" FCB $04 FCC "MAYBE I SHOULD GO THERE ?" FCB $04 FCC "I FOUND SOMETHING !" FCB $04 FCC "I CAN'T FIND ANYTHING." FCB $04 FCC "I DON'T HAVE IT !" FCB $04 FCC "IT'S JUST A REGULAR OLD MOUSETRAP." FCB $04 FCC "IT'S TOO BIG AND HEAVY !" FCB $04 FCC "THERE'S A PAIR OF SPECTACLES HERE." FCB $04 FCC "THERE'S AN INSTRUCTION MANUAL HERE." FCB $04 FCC "IT'S CLOSED." FCB $04 FCC "THE MESSAGE READS..." FCB $0D,$0A FCC "- THE PROFESSOR'S NOTES SHOULD GIVE SOME CLUES -" FCB $04 FCC "EXAMINE THINGS CLOSELY..." FCB $04 FCC "NOT WHILE I'M CARRYING IT." FCB $04 FCC "THEY'RE WIRE FRAMED READING GLASSES." FCB $04 FCC "THERE'S A MESSAGE HERE !" FCB $04 FCC "IT'S BOLTED DOWN." FCB $04 FCC "WOW!! THERE'S A TRAP DOOR UNDER IT !" FCB $04 FCC "MAYBE I SHOULD READ IT." FCB $04 FCC "I DON'T SEE ANYTHING UNUSUAL..." FCB $04 FCC "THE TITLE IS - TELEPORTER OPERATING MANUAL -" FCB $0D,$0A FCC "THE INTRODUCTION SAYS - TO BE USED IF PROBLEMS ARISE -" FCB $04 FCC "IT'S EMPTY." FCB $04 FCC "THE FLASHLIGHT IS LIT !" FCB $04 FCC "THERE'S A MOUSETRAP IN IT." FCB $04 FCC "IT'S A CONCEALED SWITCH !" FCB $04 FCC "BOY !...THAT WAS HARD WORK !" FCB $04 FCC "NO WAY ! I WON'T GO NEAR IT !" FCB $04 FCC "I HEARD A STRANGE SOUND..." FCB $04 FCC "THEY'RE MADE OF HEAVY LEATHER WITH RUBBER CLEATS." FCB $04 FCC "I DON'T HEAR ANYTHING NOW..." FCB $04 FCC "THE DEVICE IS QUITE LARGE..." FCB $0D,$0A FCC "I SEE AN ILLUMINATED INSTRUMENT PANEL AND A RECLINING SEAT." FCB $04 FCC "I'M NOT SURE I UNDERSTAND THESE COMPLEX THINGS." FCB $04 FCC "OK, IT'S OFF." FCB $04 FCC "A MECHANICAL SOUNDING VOICE FROM THE SPEAKER SAYS" FCC "..." FCB $0D,$0A FCC "- PLEASE READ YOUR MANUAL BEFORE OPERATING THE TELEPORTER -" FCB $04 FCC "THE MANUAL SAYS..." FCB $0D,$0A FCC "1. ACTIVATE THE ENERGIZER" FCB $0D,$0A FCC "2. PRESS THE TELEPORT BUTTON" FCB $04 FCC "THE TELEPORTER VIBRATES SLIGHTLY AND EMITS A LOW HUM..." FCB $04 FCC "NOTHING IS HAPPENING !" FCB $04 FCC "THE HUM BECOMES A LOUD ROAR ! I FEEL DIZZY." FCB $0D,$0A FCC "THERE IS A MOMENT OF DARKNESS AND THEN..." FCB $04 FCC "I DON'T HAVE THEM..." FCB $04 FCC "I HAVE NO KEY." FCB $04 FCC "THE JUNGLE GROWTH IS VERY DENSE." FCB $04 FCC "THERE ARE SECRETS TO BE DISCOVERED !" FCB $04 FCC "I HAVE NO TRAP." FCB $04 FCC "TRADER JACK SAYS - HI BUB ! GOT SOMETHING TO TRADE ?" FCB $04 FCC "JACK SAYS - NO DEAL BUB ! -" FCB $04 FCC "JACK SAYS - YA' GOT A DEAL BUB ! TAKE WHAT YER' NEEDIN' _" FCB $04 FCC "JACK WON'T LET ME. HE SAYS - THAT'S STEALIN' NOT TRADIN' -" FCB $04 FCC "I'M NEEDIN' SOMETHIN' TO COVER MY DIRT FLOOR..." FCB $04 FCC "I'M NEEDIN' SOMETHIN' TO STORE MY JUNK IN..." FCB $04 FCC "NOT WITH THAT SNAKE THERE !" FCB $04 FCC "THE SNAKE GRABS A MOUSE AND SLITHERS AWAY..." FCB $04 FCC "I HAVE NO PUMP." FCB $04 FCC "I LOST MY FOOTING AND FELL ON THE ROCKS BELOW." FCB $0D,$0A FCC "I'M DEAD..." FCB $04 FCC "IT'S TOO BIG AND BULKY." FCB $04 FCC "USE ONE WORD." FCB $04 FCC "IT'S SOME MICROFILM." FCB $04 FCC "THE PRINT IS TOO SMALL !" FCB $04 FCC "THE MICROFILM SAYS..." FCB $0D,$0A FCC "IT MUST BE BURIED AT THE PAGAN IDOL ON CALIXTO ISLAND." FCB $0D,$0A FCC "I AM CONTINUING MY SEARCH..." FCB $0D,$0A FCC "IF YOU FIND IT, RETURN IT TO MY STUDY AND SAY " FCB $22 FCC "SCORE" FCB $22 FCC "." FCB $04 FCC "I THINK WE NEED SOME WATER." FCB $04 FCC "IT NEEDS AIR." FCB $04 FCC "IT'S FULL OF AIR." FCB $04 FCC "I HAVE NO PADDLES." FCB $04 FCC "THE BOAT IS LEAKING ! MAYBE I SHOULD " FCB $22 FCC "BAIL WATER" FCB $22 FCC " !" FCB $04 FCC "I CAN'T SWIM !! BLUB...BLUB" FCB $0D,$0A FCC "BLUB...I'M DROWNING...BLUB..." FCB $0D,$0A FCC "I'M DEAD." FCB $04 FCC "THE NATIVES WON'T LET ME." FCB $04 FCC "THEY GRAB THE JEWELRY AND HAPPILY WANDER AWAY !" FCB $04 FCC "O.K." FCB $04 FCC "THE EPITAPH SAYS..." FCB $0D,$0A FCC "PROFESSOR LAGARTO DIDN'T MAKE IT." FCB $04 FCC "IT'S JUST A COMMON, ORDINARY PAGAN IDOL." FCB $04 FCC "IT'S MADE OF GOLD AND PRECIOUS RUBIES..." FCB $04 FCC "I NEED A SHOVEL." FCB $04 FCC "THAT'S NOT A VERY NICE THING TO DO !" FCB $04 FCC "JACK SAYS... HI BUB ! GOOD SEEIN' YA' AGAIN." FCB $04 FCC "I'M STUMPED TOO !" FCB $04 FCC "IT'S BRIGHTLY DECORATED." FCB $04 ********************************************* ** ADDITIONAL FIXES AND CODE FOR THE MC3 ** ********************************************* ** ADJUST STACK BEFORE WE QUIT EXIT INS INS JSR PCRLF JMP QUIT ** ROUTINE FOR PRINTING 2 BYTE DEC NUMBER POINTED AT BY X ** FOR NOW OUTPUT HEX INSTEAD ** OUTPUT HEX CHARS OUTHL LSRA OUT HEX LEFT BCD DIGIT LSRA LSRA LSRA OUTHR ANDA #$F OUT HEX RIGHT BCD DIGIT ADDA #$30 CMPA #$39 BLS OUTHE ADDA #$7 OUTHE JMP PUTCHR OUT2H LDAA 0,X JSR OUTHL OUTPUT LEFT HEX CHAR LDAA 0,X INX JMP OUTHR OUTPUT RIGHT HEX CHAR XOUTDEC OUT4HS BSR OUT2H OUTPUT 4 HEX CHAR + SPACE OUT2HS BSR OUT2H OUTPUT 2 HEX CHAR + SPACE RTS ** REPLACEMENT MCFS2 GAME FILE SAVE ROUTINE FSAVE JSR GETGAME GET GAME DATA TO BE SAVED JSR FNAME ENTER FILE NAME LDAA #$08 DELETE FILE COMMAND STAA FCB LDX #NAMBUF SET FILE NAME STX FPNAM LDX #FCB ISSUE COMMAND JSR FSCALL LDX #SAVBUF STX FADDR1 LDX #SAVBUFE STX FADDR2 LDAA #$20 SAVE FILE COMMAND STAA FCB LDX #NAMBUF SET FILE NAME STX FPNAM LDAA #$03 SET FILE FLAGS STAA FFLAG LDX #FCB ISSUE COMMAND JSR FSCALL LDX #FCB CHECK FOR ERROR TST 1,X BNE FERROR LDX #TXSOK JSR PTEXT RTS ** REPLACEMENT MCFS2 GAME FILE LOAD ROUTINE FLOAD JSR FNAME ENTER FILE NAME LDX #SAVBUF STX FADDR1 LDX #$0000 STX FADDR2 LDAA #$11 LOAD FILE SECTOR COMMAND STAA FCB LDX #NAMBUF SET FILE NAME STX FPNAM LDAA #$03 SET FILE FLAGS STAA FFLAG LDX #FCB ISSUE COMMAND JSR FSCALL LDX #FCB CHECK FOR ERROR TST 1,X BNE FERROR JMP SETGAME SET LOADED GAME DATA ** ERROR HANDLING FOR FILE ROUTINES FERROR LDX #TXERR JSR PTEXT LDX #FCB JSR OUT4HS LDX #TXRETN JSR PTEXT2 JSR GETCHR RTS ** COPY GAME DATA INTO FILE BUFFER GETGAME CLRB GETGAM1 LDX #M0000 ABX LDAA ,X LDX #SAVBUF ABX STAA ,X INCB CMPB #7 BNE GETGAM1 CLRB GETGAM2 LDX #M22A4 ABX LDAA ,X LDX #SAVBUF+7 ABX STAA ,X INCB CMPB #52 BNE GETGAM2 RTS ** COPY GAME DATA FROM FILE BUFFER SETGAME CLRB SETGAM1 LDX #SAVBUF ABX LDAA ,X LDX #M0000 ABX STAA ,X INCB CMPB #7 BNE SETGAM1 CLRB SETGAM2 LDX #SAVBUF+7 ABX LDAA ,X LDX #M22A4 ABX STAA ,X INCB CMPB #52 BNE SETGAM2 RTS ** ENTER SAVE FILE NAME FNAME JSR NPAGE LDX #M0E0B JSR PTEXT2 JSR ENAM JSR NPAGE RTS ** LET USER EDIT FILE NAME BUFFER ENAM CLRB LDX #NAMBUF ENAMPL LDAA ,X PRINT EXISTING BUFFER CMPA #$00 BEQ ENAMLO FOUND END OF BUFFER JSR PUTCHR INX INCB CMPB #NAMLEN BHI *+4 BRA ENAMPL ENAMLO JSR CONIVEC GET CHARACTER FROM ACIA CMPA #$7F IS CHARACTER DELETE ($7F) OR NON-PRINTABLE? BEQ ENAMLO READ NEW CHARACTER BHI ENAMLO READ NEW CHARACTER CMPA #$08 IS CHARACTER A BACKSPACE ($08)? BEQ ENAM_BS CMPA #$0D IS CHARACTER A CARRIAGE RETURN ($0D)? BEQ ENAM_CR CMPA #$1F IS CHARACTER PRINTABLE? BLS ENAMLO READ NEW CHARACTER JMP ENAM_OK IF WE HAVE COME THIS FAR CHARACTER IS OK ENAM_BS CMPB #0 BEQ ENAMLO IF AT BEGINNING OF BUFFER DONT DELETE DEX DECB JSR PUTCHR PRINT THE RECIEVED BACKSPACE LDAA #$20 JSR PUTCHR PRINT SPACE LDAA #$08 JSR PUTCHR PRINT BACKSPACE CLRA STAA ,X CLEAR CHARACTER FROM BUFFER (STORE $00 AT ITS PLACE) JMP ENAMLO READ NER CHARACTER ENAM_OK CMPB #NAMLEN BEQ ENAMLO IF AT END OF BUFFER DONT ENTER NEW CHARACTER JSR PUTCHR ECHO ENTERED CHARACTER STAA ,X INX INCB JMP ENAMLO READ NEW CHARACTER ENAM_CR CLR ,X RTS ** EXTRA FILE HANDLING TEXTS TXSOK FCC "SAVE OK" FCB $0D,$0A,$04 TXRETN FCC "PRESS RETURN TO CONTINUE" FCB $0D,$0A,$04 TXERR FCC "SORRY. AN ERROR OCCURED " FCB $04 ** FILE NAME BUFFER NAMBUF FCB $00,$00,$00,$00,$00,$00,$00,$00 FILE NAME (16 CHARS) FCB $00,$00,$00,$00,$00,$00,$00,$00,$00 PLUS ENDING $00 NAMLEN EQU 16 ** FILE CONTROL BLOCK FOR MCFS2 FCB FCB $00 COMMAND FCB $00 ERROR CODE FPNAM FDB $0000 NAME POINTER FADDR1 FDB $0000 START OF FILE DATA FADDR2 FDB $0000 END OF FILE DATA OR SECTOR TO READ FFLAG FCB $03 ** SAVE BUFFER (FIRST 7+52=59 BYTES USED) SAVBUF RMB 512 SAVBUFE EQU *-1 ** EXTERNAL VECTORS CONIVEC EQU $7FEB FSCALL EQU $D006 END