XCALC 22.S
FILE INFORMATION
FILENAME(S): XCALC 22.S
FILE TYPE(S): SEQ
FILE SIZE: 10.3K
FIRST SEEN: 2025-12-02 02:00:26
APPEARS ON: 1 disk(s)
FILE HASH
bb5581991bb67e55197df9d0efca921fd8c0ea49a845332b310cad24cbbf5e25
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR122 S2 | XCALC 22.S | SEQ | marcus | 6 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 2E 4F 52 47 20 32 30 34 38 0D 3B 2E 4D 45 4D 0D |.ORG 2048.;.MEM.| 00000010: 2E 4F 42 4A 20 22 40 30 3A 58 43 41 4C 43 20 32 |.OBJ "@0:XCALC 2| 00000020: 32 22 0D 0D 5A 50 20 20 20 20 20 3D 20 39 37 0D |2"..ZP = 97.| 00000030: 5A 50 43 20 20 20 20 3D 20 39 39 0D 5A 50 45 20 |ZPC = 99.ZPE | 00000040: 20 20 20 3D 20 31 30 31 0D 5A 50 32 20 20 20 20 | = 101.ZP2 | 00000050: 3D 20 32 34 37 0D 0D 43 48 52 4F 55 54 20 3D 20 |= 247..CHROUT = | 00000060: 24 46 46 44 32 0D 47 45 54 49 4E 20 20 3D 20 24 |$FFD2.GETIN = $| 00000070: 46 46 45 34 0D 50 4C 4F 54 20 20 20 3D 20 24 46 |FFE4.PLOT = $F| 00000080: 46 46 30 0D 43 55 52 50 4F 53 20 3D 20 32 31 31 |FF0.CURPOS = 211| 00000090: 0D 0D 4C 44 41 20 23 30 20 20 20 20 0D 53 54 41 |..LDA #0 .STA| 000000A0: 20 35 33 32 38 31 0D 53 54 41 20 35 33 32 38 30 | 53281.STA 53280| 000000B0: 0D 4C 44 41 20 23 31 0D 53 54 41 20 4D 46 4C 41 |.LDA #1.STA MFLA| 000000C0: 47 0D 4A 53 52 20 53 54 41 52 54 4D 0D 0D 53 54 |G.JSR STARTM..ST| 000000D0: 41 52 54 20 3D 2A 0D 0D 4A 53 52 20 54 49 54 4C |ART =*..JSR TITL| 000000E0: 45 53 43 52 45 45 4E 0D 2D 20 4A 53 52 20 47 45 |ESCREEN.- JSR GE| 000000F0: 54 49 4E 0D 53 54 41 20 54 45 4D 50 0D 4A 53 52 |TIN.STA TEMP.JSR| 00000100: 20 43 48 45 43 4B 4D 0D 4C 44 41 20 54 45 4D 50 | CHECKM.LDA TEMP| 00000110: 0D 42 45 51 20 2D 0D 43 4D 50 20 23 34 39 0D 42 |.BEQ -.CMP #49.B| 00000120: 43 43 20 2D 0D 43 4D 50 20 23 35 37 0D 42 43 53 |CC -.CMP #57.BCS| 00000130: 20 2D 0D 43 4D 50 20 23 35 36 0D 42 4E 45 20 2B | -.CMP #56.BNE +| 00000140: 0D 4A 53 52 20 53 54 4F 50 4D 0D 4C 44 41 20 23 |.JSR STOPM.LDA #| 00000150: 32 33 0D 53 54 41 20 35 33 32 37 32 0D 52 54 53 |23.STA 53272.RTS| 00000160: 20 3B 20 52 45 4D 20 4C 4F 41 44 53 54 41 52 0D | ; REM LOADSTAR.| 00000170: 2B 20 43 4D 50 20 23 35 35 0D 42 4E 45 20 2B 0D |+ CMP #55.BNE +.| 00000180: 4A 53 52 20 54 4F 47 47 4C 45 0D 4A 4D 50 20 2D |JSR TOGGLE.JMP -| 00000190: 0D 2B 20 53 45 43 0D 53 42 43 20 23 34 39 0D 53 |.+ SEC.SBC #49.S| 000001A0: 54 41 20 50 55 5A 5A 4C 45 0D 4A 53 52 20 53 43 |TA PUZZLE.JSR SC| 000001B0: 52 45 45 4E 31 0D 4C 44 41 20 3C 31 31 39 39 0D |REEN1.LDA <1199.| 000001C0: 53 54 41 20 5A 50 43 0D 4C 44 41 20 3E 31 31 39 |STA ZPC.LDA >119| 000001D0: 39 0D 53 54 41 20 5A 50 43 2B 31 0D 4C 44 41 20 |9.STA ZPC+1.LDA | 000001E0: 23 30 0D 53 54 41 20 52 4F 57 0D 53 54 41 20 43 |#0.STA ROW.STA C| 000001F0: 4F 4C 4D 0D 4A 53 52 20 50 52 49 4E 54 50 55 5A |OLM.JSR PRINTPUZ| 00000200: 5A 4C 45 0D 4A 53 52 20 50 52 49 4E 54 4B 45 59 |ZLE.JSR PRINTKEY| 00000210: 53 0D 0D 49 4E 50 55 54 20 3D 2A 0D 0D 4C 44 59 |S..INPUT =*..LDY| 00000220: 20 23 30 0D 4C 44 41 20 28 5A 50 43 29 2C 59 0D | #0.LDA (ZPC),Y.| 00000230: 45 4F 52 20 23 31 32 38 0D 53 54 41 20 28 5A 50 |EOR #128.STA (ZP| 00000240: 43 29 2C 59 0D 4A 53 52 20 44 45 4C 41 59 0D 4C |C),Y.JSR DELAY.L| 00000250: 44 41 20 28 5A 50 43 29 2C 59 0D 45 4F 52 20 23 |DA (ZPC),Y.EOR #| 00000260: 31 32 38 0D 53 54 41 20 28 5A 50 43 29 2C 59 0D |128.STA (ZPC),Y.| 00000270: 4A 53 52 20 44 45 4C 41 59 0D 4A 53 52 20 43 48 |JSR DELAY.JSR CH| 00000280: 45 43 4B 4D 0D 4A 53 52 20 47 45 54 49 4E 0D 42 |ECKM.JSR GETIN.B| 00000290: 45 51 20 49 4E 50 55 54 0D 43 4D 50 20 23 32 39 |EQ INPUT.CMP #29| 000002A0: 20 20 0D 42 4E 45 20 2B 0D 4A 53 52 20 52 49 47 | .BNE +.JSR RIG| 000002B0: 48 54 0D 4A 4D 50 20 49 4E 50 55 54 0D 2B 20 43 |HT.JMP INPUT.+ C| 000002C0: 4D 50 20 23 31 35 37 0D 42 4E 45 20 2B 0D 4A 53 |MP #157.BNE +.JS| 000002D0: 52 20 4C 45 46 54 0D 4A 4D 50 20 49 4E 50 55 54 |R LEFT.JMP INPUT| 000002E0: 0D 2B 20 43 4D 50 20 23 31 34 30 0D 42 4E 45 20 |.+ CMP #140.BNE | 000002F0: 2B 0D 4A 53 52 20 48 41 52 44 43 4F 50 59 0D 4A |+.JSR HARDCOPY.J| 00000300: 4D 50 20 49 4E 50 55 54 0D 2B 20 43 4D 50 20 23 |MP INPUT.+ CMP #| 00000310: 31 37 0D 42 4E 45 20 2B 0D 4A 53 52 20 44 4F 57 |17.BNE +.JSR DOW| 00000320: 4E 0D 4A 4D 50 20 49 4E 50 55 54 0D 2B 20 43 4D |N.JMP INPUT.+ CM| 00000330: 50 20 23 31 34 35 0D 42 4E 45 20 2B 0D 4A 53 52 |P #145.BNE +.JSR| 00000340: 20 55 50 0D 4A 4D 50 20 49 4E 50 55 54 0D 2B 20 | UP.JMP INPUT.+ | 00000350: 43 4D 50 20 23 31 33 36 0D 42 4E 45 20 2B 0D 4A |CMP #136.BNE +.J| 00000360: 4D 50 20 48 49 4E 54 0D 2B 20 43 4D 50 20 23 33 |MP HINT.+ CMP #3| 00000370: 32 0D 42 45 51 20 2B 0D 4A 4D 50 20 53 32 0D 2B |2.BEQ +.JMP S2.+| 00000380: 20 4C 44 59 20 23 30 0D 4C 44 41 20 28 5A 50 43 | LDY #0.LDA (ZPC| 00000390: 29 2C 59 0D 43 4D 50 20 23 33 32 0D 42 4E 45 20 |),Y.CMP #32.BNE | 000003A0: 2B 2B 0D 2B 20 4A 4D 50 20 49 4E 50 55 54 0D 2B |++.+ JMP INPUT.+| 000003B0: 20 53 54 41 20 54 45 4D 50 0D 4C 44 59 20 23 30 | STA TEMP.LDY #0| 000003C0: 0D 2D 20 4C 44 41 20 31 37 35 36 2C 59 0D 43 4D |.- LDA 1756,Y.CM| 000003D0: 50 20 23 33 32 0D 42 45 51 20 2B 0D 49 4E 59 0D |P #32.BEQ +.INY.| 000003E0: 49 4E 59 0D 43 50 59 20 23 31 37 0D 42 4E 45 20 |INY.CPY #17.BNE | 000003F0: 2D 0D 2B 20 4C 44 41 20 54 45 4D 50 0D 53 54 41 |-.+ LDA TEMP.STA| 00000400: 20 31 37 35 36 2C 59 0D 4C 44 59 20 23 30 0D 4C | 1756,Y.LDY #0.L| 00000410: 44 41 20 23 33 32 0D 53 54 41 20 28 5A 50 43 29 |DA #32.STA (ZPC)| 00000420: 2C 59 0D 4A 4D 50 20 49 4E 50 55 54 0D 53 32 20 |,Y.JMP INPUT.S2 | 00000430: 43 4D 50 20 23 31 33 33 3B 46 31 0D 42 4E 45 20 |CMP #133;F1.BNE | 00000440: 2B 0D 4A 4D 50 20 53 54 41 52 54 0D 2B 20 43 4D |+.JMP START.+ CM| 00000450: 50 20 23 31 33 37 3B 46 32 0D 42 4E 45 20 2B 0D |P #137;F2.BNE +.| 00000460: 4A 4D 50 20 53 4F 4C 55 54 49 4F 4E 53 0D 0D 2B |JMP SOLUTIONS..+| 00000470: 20 43 4D 50 20 23 34 39 0D 42 43 53 20 2B 0D 4A | CMP #49.BCS +.J| 00000480: 4D 50 20 49 4E 50 55 54 0D 2B 20 43 4D 50 20 23 |MP INPUT.+ CMP #| 00000490: 35 38 0D 42 43 43 20 53 31 0D 4A 4D 50 20 49 4E |58.BCC S1.JMP IN| 000004A0: 50 55 54 0D 53 31 20 53 54 41 20 54 45 4D 50 0D |PUT.S1 STA TEMP.| 000004B0: 4C 44 59 20 23 30 0D 4C 44 41 20 28 5A 50 43 29 |LDY #0.LDA (ZPC)| 000004C0: 2C 59 0D 43 4D 50 20 23 33 32 0D 42 4E 45 20 2B |,Y.CMP #32.BNE +| 000004D0: 2B 0D 4C 44 59 20 23 30 0D 2D 20 4C 44 41 20 31 |+.LDY #0.- LDA 1| 000004E0: 37 35 36 2C 59 0D 43 4D 50 20 54 45 4D 50 0D 42 |756,Y.CMP TEMP.B| 000004F0: 45 51 20 2B 0D 49 4E 59 0D 43 50 59 20 23 31 37 |EQ +.INY.CPY #17| 00000500: 0D 42 4E 45 20 2D 0D 4A 4D 50 20 49 4E 50 55 54 |.BNE -.JMP INPUT| 00000510: 0D 2B 20 4C 44 41 20 23 33 32 0D 53 54 41 20 31 |.+ LDA #32.STA 1| 00000520: 37 35 36 2C 59 0D 4C 44 59 20 23 30 0D 4C 44 41 |756,Y.LDY #0.LDA| 00000530: 20 54 45 4D 50 0D 53 54 41 20 28 5A 50 43 29 2C | TEMP.STA (ZPC),| 00000540: 59 0D 2B 20 4A 4D 50 20 43 48 45 43 4B 0D 2B 20 |Y.+ JMP CHECK.+ | 00000550: 4A 4D 50 20 49 4E 50 55 54 0D 0D 48 49 4E 54 20 |JMP INPUT..HINT | 00000560: 3D 2A 0D 0D 4C 44 41 20 50 55 5A 5A 4C 45 0D 41 |=*..LDA PUZZLE.A| 00000570: 53 4C 0D 54 41 58 0D 4C 44 41 20 41 4E 53 57 45 |SL.TAX.LDA ANSWE| 00000580: 52 2C 58 0D 53 54 41 20 5A 50 45 0D 49 4E 58 0D |R,X.STA ZPE.INX.| 00000590: 4C 44 41 20 41 4E 53 57 45 52 2C 58 0D 53 54 41 |LDA ANSWER,X.STA| 000005A0: 20 5A 50 45 2B 31 0D 0D 4C 44 41 20 23 30 0D 53 | ZPE+1..LDA #0.S| 000005B0: 54 41 20 43 4F 55 4E 54 45 52 0D 53 54 41 20 54 |TA COUNTER.STA T| 000005C0: 45 4D 50 32 0D 2D 20 43 4D 50 20 52 4F 57 0D 42 |EMP2.- CMP ROW.B| 000005D0: 45 51 20 2B 0D 43 4C 43 0D 4C 44 41 20 54 45 4D |EQ +.CLC.LDA TEM| 000005E0: 50 32 0D 41 44 43 20 23 31 30 0D 53 54 41 20 54 |P2.ADC #10.STA T| 000005F0: 45 4D 50 32 0D 49 4E 43 20 43 4F 55 4E 54 45 52 |EMP2.INC COUNTER| 00000600: 0D 4C 44 41 20 43 4F 55 4E 54 45 52 0D 4A 4D 50 |.LDA COUNTER.JMP| 00000610: 20 2D 0D 0D 2B 20 4C 44 41 20 43 4F 4C 4D 0D 41 | -..+ LDA COLM.A| 00000620: 53 4C 0D 41 53 4C 0D 43 4C 43 0D 41 44 43 20 54 |SL.ASL.CLC.ADC T| 00000630: 45 4D 50 32 0D 54 41 59 0D 4C 44 41 20 28 5A 50 |EMP2.TAY.LDA (ZP| 00000640: 45 29 2C 59 20 20 20 20 0D 4A 4D 50 20 53 31 0D |E),Y .JMP S1.| 00000650: 0D 55 50 20 3D 2A 0D 0D 4A 53 52 20 53 55 42 31 |.UP =*..JSR SUB1| 00000660: 36 30 0D 4C 44 41 20 52 4F 57 0D 43 4D 50 20 23 |60.LDA ROW.CMP #| 00000670: 32 35 35 0D 42 4E 45 20 2B 0D 4A 53 52 20 41 44 |255.BNE +.JSR AD| 00000680: 44 31 36 30 0D 2B 20 52 54 53 0D 0D 44 4F 57 4E |D160.+ RTS..DOWN| 00000690: 20 3D 2A 0D 0D 4A 53 52 20 41 44 44 31 36 30 0D | =*..JSR ADD160.| 000006A0: 4C 44 41 20 52 4F 57 0D 43 4D 50 20 23 33 0D 42 |LDA ROW.CMP #3.B| 000006B0: 4E 45 20 2B 0D 4A 53 52 20 53 55 42 31 36 30 0D |NE +.JSR SUB160.| 000006C0: 2B 20 52 54 53 0D 0D 41 44 44 34 20 3D 2A 0D 0D |+ RTS..ADD4 =*..| 000006D0: 43 4C 43 0D 4C 44 41 20 5A 50 43 0D 41 44 43 20 |CLC.LDA ZPC.ADC | 000006E0: 23 34 0D 53 54 41 20 5A 50 43 0D 4C 44 41 20 5A |#4.STA ZPC.LDA Z| 000006F0: 50 43 2B 31 0D 41 44 43 20 23 30 0D 53 54 41 20 |PC+1.ADC #0.STA | 00000700: 5A 50 43 2B 31 0D 49 4E 43 20 43 4F 4C 4D 0D 52 |ZPC+1.INC COLM.R| 00000710: 54 53 0D 0D 53 55 42 34 20 3D 2A 0D 0D 53 45 43 |TS..SUB4 =*..SEC| 00000720: 0D 4C 44 41 20 5A 50 43 0D 53 42 43 20 23 34 0D |.LDA ZPC.SBC #4.| 00000730: 53 54 41 20 5A 50 43 0D 4C 44 41 20 5A 50 43 2B |STA ZPC.LDA ZPC+| 00000740: 31 0D 53 42 43 20 23 30 0D 53 54 41 20 5A 50 43 |1.SBC #0.STA ZPC| 00000750: 2B 31 0D 44 45 43 20 43 4F 4C 4D 0D 52 54 53 0D |+1.DEC COLM.RTS.| 00000760: 0D 41 44 44 38 30 5A 50 20 3D 2A 0D 0D 43 4C 43 |.ADD80ZP =*..CLC| 00000770: 0D 4C 44 41 20 5A 50 0D 41 44 43 20 23 38 30 0D |.LDA ZP.ADC #80.| 00000780: 53 54 41 20 5A 50 0D 4C 44 41 20 5A 50 2B 31 0D |STA ZP.LDA ZP+1.| 00000790: 41 44 43 20 23 30 0D 53 54 41 20 5A 50 2B 31 0D |ADC #0.STA ZP+1.| 000007A0: 52 54 53 0D 0D 41 44 44 31 36 30 20 3D 2A 0D 0D |RTS..ADD160 =*..| 000007B0: 43 4C 43 0D 4C 44 41 20 5A 50 43 0D 41 44 43 20 |CLC.LDA ZPC.ADC | 000007C0: 23 31 36 30 0D 53 54 41 20 5A 50 43 0D 4C 44 41 |#160.STA ZPC.LDA| 000007D0: 20 5A 50 43 2B 31 0D 41 44 43 20 23 30 0D 53 54 | ZPC+1.ADC #0.ST| 000007E0: 41 20 5A 50 43 2B 31 0D 49 4E 43 20 52 4F 57 0D |A ZPC+1.INC ROW.| 000007F0: 52 54 53 0D 0D 53 55 42 31 36 30 20 3D 2A 0D 0D |RTS..SUB160 =*..| 00000800: 53 45 43 0D 4C 44 41 20 5A 50 43 0D 53 42 43 20 |SEC.LDA ZPC.SBC | 00000810: 23 31 36 30 0D 53 54 41 20 5A 50 43 0D 4C 44 41 |#160.STA ZPC.LDA| 00000820: 20 5A 50 43 2B 31 0D 53 42 43 20 23 30 0D 53 54 | ZPC+1.SBC #0.ST| 00000830: 41 20 5A 50 43 2B 31 0D 44 45 43 20 52 4F 57 0D |A ZPC+1.DEC ROW.| 00000840: 52 54 53 0D 0D 52 49 47 48 54 20 3D 2A 0D 0D 4A |RTS..RIGHT =*..J| 00000850: 53 52 20 41 44 44 34 0D 4C 44 41 20 43 4F 4C 4D |SR ADD4.LDA COLM| 00000860: 0D 43 4D 50 20 23 33 0D 42 4E 45 20 2B 0D 4A 53 |.CMP #3.BNE +.JS| 00000870: 52 20 53 55 42 34 0D 2B 20 52 54 53 0D 0D 4C 45 |R SUB4.+ RTS..LE| 00000880: 46 54 20 3D 2A 0D 0D 4A 53 52 20 53 55 42 34 0D |FT =*..JSR SUB4.| 00000890: 4C 44 41 20 43 4F 4C 4D 0D 43 4D 50 20 23 32 35 |LDA COLM.CMP #25| 000008A0: 35 0D 42 4E 45 20 2B 0D 4A 53 52 20 41 44 44 34 |5.BNE +.JSR ADD4| 000008B0: 0D 2B 20 52 54 53 0D 0D 57 52 49 54 45 20 3D 2A |.+ RTS..WRITE =*| 000008C0: 0D 0D 4C 44 59 20 23 30 0D 50 4C 41 0D 53 54 41 |..LDY #0.PLA.STA| 000008D0: 20 5A 50 0D 50 4C 41 0D 53 54 41 20 5A 50 2B 31 | ZP.PLA.STA ZP+1| 000008E0: 0D 2D 20 49 4E 43 20 5A 50 0D 42 4E 45 20 2B 0D |.- INC ZP.BNE +.| 000008F0: 49 4E 43 20 5A 50 2B 31 0D 2B 20 4C 44 41 20 28 |INC ZP+1.+ LDA (| 00000900: 5A 50 29 2C 59 0D 42 45 51 20 2B 0D 4A 53 52 20 |ZP),Y.BEQ +.JSR | 00000910: 43 48 52 4F 55 54 0D 42 4E 45 20 2D 0D 2B 20 4C |CHROUT.BNE -.+ L| 00000920: 44 41 20 5A 50 2B 31 0D 50 48 41 0D 4C 44 41 20 |DA ZP+1.PHA.LDA | 00000930: 5A 50 0D 50 48 41 0D 52 54 53 0D 0D 44 45 4C 41 |ZP.PHA.RTS..DELA| 00000940: 59 20 3D 2A 0D 0D 4C 44 58 20 23 32 35 0D 2D 20 |Y =*..LDX #25.- | 00000950: 4C 44 59 20 23 30 0D 2D 20 44 45 59 0D 42 4E 45 |LDY #0.- DEY.BNE| 00000960: 20 2D 0D 44 45 58 0D 42 4E 45 20 2D 2D 0D 52 54 | -.DEX.BNE --.RT| 00000970: 53 0D 0D 52 49 4E 47 42 45 4C 4C 20 3D 2A 0D 0D |S..RINGBELL =*..| 00000980: 4C 44 41 20 4D 46 4C 41 47 0D 42 45 51 20 2B 0D |LDA MFLAG.BEQ +.| 00000990: 52 54 53 0D 2B 20 4C 44 41 20 23 32 31 0D 53 54 |RTS.+ LDA #21.ST| 000009A0: 41 20 35 34 32 39 36 0D 4C 44 41 20 23 39 0D 53 |A 54296.LDA #9.S| 000009B0: 54 41 20 35 34 32 37 37 0D 4C 44 41 20 23 30 0D |TA 54277.LDA #0.| 000009C0: 53 54 41 20 35 34 32 37 38 0D 4C 44 41 20 23 34 |STA 54278.LDA #4| 000009D0: 38 0D 53 54 41 20 35 34 32 37 33 0D 4C 44 41 20 |8.STA 54273.LDA | 000009E0: 23 33 32 0D 53 54 41 20 35 34 32 37 36 0D 4C 44 |#32.STA 54276.LD| 000009F0: 41 20 23 33 33 0D 53 54 41 20 35 34 32 37 36 0D |A #33.STA 54276.| 00000A00: 52 54 53 0D 0D 53 43 52 45 45 4E 31 20 3D 2A 0D |RTS..SCREEN1 =*.| 00000A10: 0D 4A 53 52 20 57 52 49 54 45 0D 2E 42 59 54 45 |.JSR WRITE..BYTE| 00000A20: 20 31 34 37 2C 31 35 36 2C 31 38 0D 2E 41 53 43 | 147,156,18..ASC| 00000A30: 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | " | 00000A40: 43 52 4F 53 53 20 43 41 4C 43 20 23 20 20 20 20 |CROSS CALC # | 00000A50: 20 20 20 20 20 20 20 20 20 20 22 0D 2E 42 59 54 | "..BYT| 00000A60: 45 20 31 33 2C 31 33 2C 31 35 34 2C 31 34 36 0D |E 13,13,154,146.| 00000A70: 2E 41 53 43 20 22 20 20 20 20 20 20 20 20 20 20 |.ASC " | 00000A80: 20 20 20 20 22 0D 2E 42 59 54 45 20 31 37 36 2C | "..BYTE 176,| 00000A90: 39 36 2C 31 37 38 2C 39 36 2C 31 37 38 2C 39 36 |96,178,96,178,96| 00000AA0: 2C 31 37 38 2C 39 36 2C 31 37 38 2C 39 36 2C 31 |,178,96,178,96,1| 00000AB0: 37 38 2C 39 36 2C 39 36 2C 31 37 34 2C 31 33 0D |78,96,96,174,13.| 00000AC0: 2E 41 53 43 20 22 20 20 20 20 20 20 20 20 20 20 |.ASC " | 00000AD0: 20 20 20 20 DD 20 DD 20 DD 20 DD 20 DD 20 DD 20 | . . . . . . | 00000AE0: 20 DD 22 0D 2E 42 59 54 45 20 31 33 0D 2E 41 53 | ."..BYTE 13..AS| 00000AF0: 43 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |C " | 00000B00: 20 AB C0 DB C0 DB C0 DB C0 DB C0 DB C0 C0 BD 22 | .............."| 00000B10: 0D 2E 42 59 54 45 20 31 33 0D 2E 41 53 43 20 22 |..BYTE 13..ASC "| 00000B20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 DD 20 | . | 00000B30: DD A6 DD 20 DD A6 DD 20 DD 22 0D 2E 42 59 54 45 |... ... ."..BYTE| 00000B40: 20 31 33 0D 2E 41 53 43 20 22 20 20 20 20 20 20 | 13..ASC " | 00000B50: 20 20 20 20 20 20 20 20 AB C0 DB C0 DB C0 DB C0 | ........| 00000B60: DB C0 DB C0 C0 22 0D 2E 42 59 54 45 20 31 37 34 |....."..BYTE 174| 00000B70: 2C 31 33 0D 2E 41 53 43 20 22 20 20 20 20 20 20 |,13..ASC " | 00000B80: 20 20 20 20 20 20 20 20 DD 20 DD 20 DD 20 DD 20 | . . . . | 00000B90: DD 20 DD 20 20 DD 22 0D 2E 42 59 54 45 20 31 33 |. . ."..BYTE 13| 00000BA0: 0D 2E 41 53 43 20 22 20 20 20 20 20 20 20 20 20 |..ASC " | 00000BB0: 20 20 20 20 20 AB C0 DB C0 DB C0 DB C0 DB C0 DB | ...........| 00000BC0: C0 C0 BD 22 0D 2E 42 59 54 45 20 31 33 0D 2E 41 |..."..BYTE 13..A| 00000BD0: 53 43 20 22 20 20 20 20 20 20 20 20 20 20 20 20 |SC " | 00000BE0: 20 20 DD 20 DD A6 DD 20 DD A6 DD 20 DD 22 0D 2E | . ... ... ."..| 00000BF0: 42 59 54 45 20 31 33 0D 2E 41 53 43 20 22 20 20 |BYTE 13..ASC " | 00000C00: 20 20 20 20 20 20 20 20 20 20 20 20 AB C0 DB C0 | ....| 00000C10: DB C0 DB C0 DB C0 DB C0 C0 22 0D 2E 42 59 54 45 |........."..BYTE| 00000C20: 20 31 37 34 2C 31 33 0D 2E 41 53 43 20 22 20 20 | 174,13..ASC " | 00000C30: 20 20 20 20 20 20 20 20 20 20 20 20 DD 20 DD 20 | . . | 00000C40: DD 20 DD 20 DD 20 DD 20 20 DD 22 0D 2E 42 59 54 |. . . . ."..BYT| 00000C50: 45 20 31 33 0D 2E 41 53 43 20 22 20 20 20 20 20 |E 13..ASC " | 00000C60: 20 20 20 20 20 20 20 20 20 22 0D 2E 42 59 54 45 | "..BYTE| 00000C70: 20 31 37 31 2C 39 36 2C 31 37 37 2C 31 37 38 2C | 171,96,177,178,| 00000C80: 31 32 33 2C 39 36 2C 31 37 37 2C 31 37 38 2C 31 |123,96,177,178,1| 00000C90: 32 33 2C 39 36 2C 31 37 37 2C 31 37 38 2C 39 36 |23,96,177,178,96| 00000CA0: 2C 31 38 39 2C 31 33 0D 2E 41 53 43 20 22 20 20 |,189,13..ASC " | 00000CB0: 20 20 20 20 20 20 20 20 20 20 20 20 DD 20 20 DD | . .| 00000CC0: DD 20 20 DD DD 20 20 DD 22 0D 2E 42 59 54 45 20 |. .. ."..BYTE | 00000CD0: 31 33 0D 2E 41 53 43 20 22 20 20 20 20 20 20 20 |13..ASC " | 00000CE0: 20 20 20 20 20 20 20 22 0D 2E 42 59 54 45 20 31 | "..BYTE 1| 00000CF0: 37 33 2C 39 36 2C 39 36 2C 31 38 39 2C 31 37 33 |73,96,96,189,173| 00000D00: 2C 39 36 2C 39 36 2C 31 38 39 2C 31 37 33 2C 39 |,96,96,189,173,9| 00000D10: 36 2C 39 36 2C 31 38 39 2C 31 33 0D 2E 42 59 54 |6,96,189,13..BYT| 00000D20: 45 20 31 33 2C 31 33 2C 31 33 2C 31 33 2C 31 33 |E 13,13,13,13,13| 00000D30: 2C 31 33 2C 31 38 0D 2E 41 53 43 20 22 20 20 20 |,13,18..ASC " | 00000D40: 46 31 3D 45 58 49 54 20 20 46 37 3D 48 49 4E 54 |F1=EXIT F7=HINT| 00000D50: 20 20 46 32 3D 53 4F 4C 4E 20 20 46 38 3D 50 52 | F2=SOLN F8=PR| 00000D60: 49 4E 54 20 20 22 0D 2E 42 59 54 45 20 30 0D 4C |INT "..BYTE 0.L| 00000D70: 44 41 20 50 55 5A 5A 4C 45 0D 43 4C 43 0D 41 44 |DA PUZZLE.CLC.AD| 00000D80: 43 20 23 31 32 38 2B 34 39 0D 53 54 41 20 31 30 |C #128+49.STA 10| 00000D90: 35 30 0D 52 54 53 0D 0D 50 52 49 4E 54 50 55 5A |50.RTS..PRINTPUZ| 00000DA0: 5A 4C 45 20 3D 2A 0D 0D 4C 44 41 20 50 55 5A 5A |ZLE =*..LDA PUZZ| 00000DB0: 4C 45 0D 41 53 4C 0D 54 41 58 0D 4C 44 41 20 44 |LE.ASL.TAX.LDA D| 00000DC0: 45 46 53 2C 58 0D 53 54 41 20 5A 50 45 0D 49 4E |EFS,X.STA ZPE.IN| 00000DD0: 58 0D 4C 44 41 20 44 45 46 53 2C 58 0D 53 54 41 |X.LDA DEFS,X.STA| 00000DE0: 20 5A 50 45 2B 31 0D 0D 4C 44 41 20 3C 31 31 39 | ZPE+1..LDA <119| 00000DF0: 39 0D 53 54 41 20 5A 50 0D 4C 44 41 20 3E 31 31 |9.STA ZP.LDA >11| 00000E00: 39 39 0D 53 54 41 20 5A 50 2B 31 0D 0D 4C 44 41 |99.STA ZP+1..LDA| 00000E10: 20 3C 31 31 39 39 2B 35 34 32 37 32 0D 53 54 41 | <1199+54272.STA| 00000E20: 20 5A 50 32 0D 4C 44 41 20 3E 31 31 39 39 2B 35 | ZP2.LDA >1199+5| 00000E30: 34 32 37 32 0D 53 54 41 20 5A 50 32 2B 31 0D 0D |4272.STA ZP2+1..| 00000E40: 4C 44 41 20 23 30 0D 53 54 41 20 43 4F 55 4E 54 |LDA #0.STA COUNT| 00000E50: 45 52 0D 4C 44 58 20 23 30 0D 2D 20 4C 44 59 20 |ER.LDX #0.- LDY | 00000E60: 23 30 0D 2D 20 4C 44 41 20 28 5A 50 45 2C 58 29 |#0.- LDA (ZPE,X)| 00000E70: 0D 43 4D 50 20 40 22 DD 22 0D 42 45 51 20 2B 2B |.CMP @".".BEQ ++| 00000E80: 0D 53 54 41 20 28 5A 50 29 2C 59 0D 43 4D 50 20 |.STA (ZP),Y.CMP | 00000E90: 23 33 32 0D 42 4E 45 20 2B 0D 4C 44 41 20 23 31 |#32.BNE +.LDA #1| 00000EA0: 0D 53 54 41 20 28 5A 50 32 29 2C 59 0D 4A 4D 50 |.STA (ZP2),Y.JMP| 00000EB0: 20 2B 2B 0D 2B 20 4C 44 41 20 23 31 33 0D 53 54 | ++.+ LDA #13.ST| 00000EC0: 41 20 28 5A 50 32 29 2C 59 0D 2B 20 4A 53 52 20 |A (ZP2),Y.+ JSR | 00000ED0: 41 44 44 31 5A 50 45 0D 49 4E 59 0D 43 50 59 20 |ADD1ZPE.INY.CPY | 00000EE0: 23 31 34 0D 42 4E 45 20 2D 0D 4A 53 52 20 41 44 |#14.BNE -.JSR AD| 00000EF0: 44 38 30 5A 50 0D 4A 53 52 20 41 44 44 38 30 5A |D80ZP.JSR ADD80Z| 00000F00: 50 32 0D 49 4E 43 20 43 4F 55 4E 54 45 52 0D 4C |P2.INC COUNTER.L| 00000F10: 44 41 20 43 4F 55 4E 54 45 52 0D 43 4D 50 20 23 |DA COUNTER.CMP #| 00000F20: 36 0D 42 4E 45 20 2D 2D 0D 52 54 53 0D 0D 50 52 |6.BNE --.RTS..PR| 00000F30: 49 4E 54 4B 45 59 53 20 3D 2A 0D 0D 4C 44 41 20 |INTKEYS =*..LDA | 00000F40: 50 55 5A 5A 4C 45 0D 41 53 4C 0D 54 41 58 0D 4C |PUZZLE.ASL.TAX.L| 00000F50: 44 41 20 4B 45 59 53 2C 58 0D 53 54 41 20 5A 50 |DA KEYS,X.STA ZP| 00000F60: 45 0D 49 4E 58 0D 4C 44 41 20 4B 45 59 53 2C 58 |E.INX.LDA KEYS,X| 00000F70: 0D 53 54 41 20 5A 50 45 2B 31 0D 0D 4C 44 41 20 |.STA ZPE+1..LDA | 00000F80: 3C 31 37 35 36 0D 53 54 41 20 5A 50 0D 4C 44 41 |<1756.STA ZP.LDA| 00000F90: 20 3E 31 37 35 36 0D 53 54 41 20 5A 50 2B 31 0D | >1756.STA ZP+1.| 00000FA0: 0D 4C 44 41 20 3C 31 37 35 36 2B 35 34 32 37 32 |.LDA <1756+54272| 00000FB0: 0D 53 54 41 20 5A 50 32 0D 4C 44 41 20 3E 31 37 |.STA ZP2.LDA >17| 00000FC0: 35 36 2B 35 34 32 37 32 0D 53 54 41 20 5A 50 32 |56+54272.STA ZP2| 00000FD0: 2B 31 0D 0D 4C 44 58 20 23 30 0D 4C 44 59 20 23 |+1..LDX #0.LDY #| 00000FE0: 30 0D 2D 20 4C 44 41 20 28 5A 50 45 2C 58 29 0D |0.- LDA (ZPE,X).| 00000FF0: 53 54 41 20 28 5A 50 29 2C 59 0D 4C 44 41 20 23 |STA (ZP),Y.LDA #| 00001000: 31 0D 53 54 41 20 28 5A 50 32 29 2C 59 0D 2B 20 |1.STA (ZP2),Y.+ | 00001010: 4A 53 52 20 41 44 44 31 5A 50 45 0D 49 4E 59 0D |JSR ADD1ZPE.INY.| 00001020: 49 4E 59 0D 43 50 59 20 23 31 38 0D 42 4E 45 20 |INY.CPY #18.BNE | 00001030: 2D 0D 52 54 53 0D 0D 43 48 45 43 4B 20 3D 2A 0D |-.RTS..CHECK =*.| 00001040: 0D 4C 44 41 20 50 55 5A 5A 4C 45 0D 41 53 4C 0D |.LDA PUZZLE.ASL.| 00001050: 54 41 58 0D 4C 44 41 20 41 4E 53 57 45 52 2C 58 |TAX.LDA ANSWER,X| 00001060: 0D 53 54 41 20 5A 50 45 0D 49 4E 58 0D 4C 44 41 |.STA ZPE.INX.LDA| 00001070: 20 41 4E 53 57 45 52 2C 58 0D 53 54 41 20 5A 50 | ANSWER,X.STA ZP| 00001080: 45 2B 31 0D 0D 4C 44 41 20 3C 31 31 39 39 0D 53 |E+1..LDA <1199.S| 00001090: 54 41 20 5A 50 0D 4C 44 41 20 3E 31 31 39 39 0D |TA ZP.LDA >1199.| 000010A0: 53 54 41 20 5A 50 2B 31 0D 0D 4C 44 41 20 23 30 |STA ZP+1..LDA #0| 000010B0: 0D 53 54 41 20 43 4F 55 4E 54 45 52 0D 4C 44 58 |.STA COUNTER.LDX| 000010C0: 20 23 30 0D 2D 20 4C 44 59 20 23 30 0D 2D 20 4C | #0.- LDY #0.- L| 000010D0: 44 41 20 28 5A 50 45 2C 58 29 0D 43 4D 50 20 28 |DA (ZPE,X).CMP (| 000010E0: 5A 50 29 2C 59 0D 42 45 51 20 2B 0D 4A 4D 50 20 |ZP),Y.BEQ +.JMP | 000010F0: 49 4E 50 55 54 0D 2B 20 4A 53 52 20 41 44 44 31 |INPUT.+ JSR ADD1| 00001100: 5A 50 45 0D 49 4E 59 0D 43 50 59 20 23 31 30 0D |ZPE.INY.CPY #10.| 00001110: 42 4E 45 20 2D 0D 4A 53 52 20 41 44 44 38 30 5A |BNE -.JSR ADD80Z| 00001120: 50 0D 4A 53 52 20 41 44 44 38 30 5A 50 0D 49 4E |P.JSR ADD80ZP.IN| 00001130: 43 20 43 4F 55 4E 54 45 52 0D 4C 44 41 20 43 4F |C COUNTER.LDA CO| 00001140: 55 4E 54 45 52 0D 43 4D 50 20 23 33 0D 42 4E 45 |UNTER.CMP #3.BNE| 00001150: 20 2D 2D 0D 0D 53 4F 4C 56 45 20 3D 2A 0D 0D 4C | --..SOLVE =*..L| 00001160: 44 41 20 23 31 0D 53 54 41 20 43 4F 55 4E 54 45 |DA #1.STA COUNTE| 00001170: 52 0D 2D 20 53 54 41 20 36 34 36 0D 4C 44 58 20 |R.- STA 646.LDX | 00001180: 23 32 32 0D 4C 44 59 20 23 30 0D 43 4C 43 0D 4A |#22.LDY #0.CLC.J| 00001190: 53 52 20 50 4C 4F 54 0D 4A 53 52 20 57 52 49 54 |SR PLOT.JSR WRIT| 000011A0: 45 0D 2E 42 59 54 45 20 31 38 20 20 20 0D 2E 41 |E..BYTE 18 ..A| 000011B0: 53 43 20 22 20 20 20 20 20 20 20 20 20 20 20 20 |SC " | 000011C0: 20 20 20 53 4F 4C 56 45 44 21 21 21 20 20 20 20 | SOLVED!!! | 000011D0: 20 20 20 20 20 20 20 20 20 20 20 20 22 0D 2E 42 | "..B| 000011E0: 59 54 45 20 30 0D 4C 44 41 20 43 4F 55 4E 54 45 |YTE 0.LDA COUNTE| 000011F0: 52 0D 53 54 41 20 35 36 32 39 35 0D 4A 53 52 20 |R.STA 56295.JSR | 00001200: 52 49 4E 47 42 45 4C 4C 0D 4A 53 52 20 44 45 4C |RINGBELL.JSR DEL| 00001210: 41 59 0D 4A 53 52 20 44 45 4C 41 59 0D 4A 53 52 |AY.JSR DELAY.JSR| 00001220: 20 44 45 4C 41 59 0D 4A 53 52 20 44 45 4C 41 59 | DELAY.JSR DELAY| 00001230: 0D 49 4E 43 20 43 4F 55 4E 54 45 52 0D 4C 44 41 |.INC COUNTER.LDA| 00001240: 20 43 4F 55 4E 54 45 52 0D 43 4D 50 20 23 31 35 | COUNTER.CMP #15| 00001250: 0D 42 4E 45 20 2D 20 0D 0D 47 45 54 46 31 20 3D |.BNE - ..GETF1 =| 00001260: 2A 0D 0D 4C 44 58 20 23 32 32 0D 4C 44 59 20 23 |*..LDX #22.LDY #| 00001270: 30 0D 43 4C 43 0D 4A 53 52 20 50 4C 4F 54 0D 4A |0.CLC.JSR PLOT.J| 00001280: 53 52 20 57 52 49 54 45 0D 2E 42 59 54 45 20 31 |SR WRITE..BYTE 1| 00001290: 38 2C 31 35 34 0D 2E 41 53 43 20 22 20 20 20 20 |8,154..ASC " | 000012A0: 20 20 20 20 20 20 20 20 20 20 20 50 52 45 53 53 | PRESS| 000012B0: 20 46 31 20 20 20 20 20 20 20 20 20 20 20 20 20 | F1 | 000012C0: 20 20 20 22 0D 2E 42 59 54 45 20 30 0D 2D 20 4A | "..BYTE 0.- J| 000012D0: 53 52 20 47 45 54 49 4E 0D 53 54 41 20 54 45 4D |SR GETIN.STA TEM| 000012E0: 50 0D 4A 53 52 20 43 48 45 43 4B 4D 0D 4C 44 41 |P.JSR CHECKM.LDA| 000012F0: 20 54 45 4D 50 0D 43 4D 50 20 23 31 33 33 0D 42 | TEMP.CMP #133.B| 00001300: 4E 45 20 2D 0D 4A 4D 50 20 53 54 41 52 54 0D 0D |NE -.JMP START..| 00001310: 53 4F 4C 55 54 49 4F 4E 53 20 3D 2A 0D 20 0D 4C |SOLUTIONS =*. .L| 00001320: 44 41 20 50 55 5A 5A 4C 45 0D 41 53 4C 0D 54 41 |DA PUZZLE.ASL.TA| 00001330: 58 0D 4C 44 41 20 41 4E 53 57 45 52 2C 58 0D 53 |X.LDA ANSWER,X.S| 00001340: 54 41 20 5A 50 45 0D 49 4E 58 0D 4C 44 41 20 41 |TA ZPE.INX.LDA A| 00001350: 4E 53 57 45 52 2C 58 0D 53 54 41 20 5A 50 45 2B |NSWER,X.STA ZPE+| 00001360: 31 0D 0D 4C 44 41 20 3C 31 31 39 39 0D 53 54 41 |1..LDA <1199.STA| 00001370: 20 5A 50 0D 4C 44 41 20 3E 31 31 39 39 0D 53 54 | ZP.LDA >1199.ST| 00001380: 41 20 5A 50 2B 31 0D 0D 4C 44 41 20 3C 31 31 39 |A ZP+1..LDA <119| 00001390: 39 2B 35 34 32 37 32 0D 53 54 41 20 5A 50 32 0D |9+54272.STA ZP2.| 000013A0: 4C 44 41 20 3E 31 31 39 39 2B 35 34 32 37 32 0D |LDA >1199+54272.| 000013B0: 53 54 41 20 5A 50 32 2B 31 0D 0D 4C 44 41 20 23 |STA ZP2+1..LDA #| 000013C0: 30 0D 53 54 41 20 43 4F 55 4E 54 45 52 0D 4C 44 |0.STA COUNTER.LD| 000013D0: 58 20 23 30 0D 2D 20 4C 44 59 20 23 30 0D 2D 20 |X #0.- LDY #0.- | 000013E0: 4C 44 41 20 28 5A 50 45 2C 58 29 0D 43 4D 50 20 |LDA (ZPE,X).CMP | 000013F0: 40 22 31 22 0D 42 43 43 20 2B 0D 43 4D 50 20 23 |@"1".BCC +.CMP #| 00001400: 35 38 0D 42 43 53 20 2B 0D 43 4C 43 0D 41 44 43 |58.BCS +.CLC.ADC| 00001410: 20 23 31 32 38 0D 53 54 41 20 28 5A 50 29 2C 59 | #128.STA (ZP),Y| 00001420: 0D 4C 44 41 20 23 31 30 0D 53 54 41 20 28 5A 50 |.LDA #10.STA (ZP| 00001430: 32 29 2C 59 0D 2B 20 4A 53 52 20 41 44 44 31 5A |2),Y.+ JSR ADD1Z| 00001440: 50 45 0D 49 4E 59 0D 43 50 59 20 23 31 30 0D 42 |PE.INY.CPY #10.B| 00001450: 4E 45 20 2D 0D 4A 53 52 20 41 44 44 38 30 5A 50 |NE -.JSR ADD80ZP| 00001460: 0D 4A 53 52 20 41 44 44 38 30 5A 50 32 0D 4A 53 |.JSR ADD80ZP2.JS| 00001470: 52 20 41 44 44 38 30 5A 50 0D 4A 53 52 20 41 44 |R ADD80ZP.JSR AD| 00001480: 44 38 30 5A 50 32 0D 49 4E 43 20 43 4F 55 4E 54 |D80ZP2.INC COUNT| 00001490: 45 52 0D 4C 44 41 20 43 4F 55 4E 54 45 52 0D 43 |ER.LDA COUNTER.C| 000014A0: 4D 50 20 23 33 0D 42 4E 45 20 2D 2D 0D 4A 4D 50 |MP #3.BNE --.JMP| 000014B0: 20 47 45 54 46 31 0D 0D 41 44 44 38 30 5A 50 32 | GETF1..ADD80ZP2| 000014C0: 20 3D 2A 0D 0D 43 4C 43 0D 4C 44 41 20 5A 50 32 | =*..CLC.LDA ZP2| 000014D0: 0D 41 44 43 20 23 38 30 0D 53 54 41 20 5A 50 32 |.ADC #80.STA ZP2| 000014E0: 0D 4C 44 41 20 5A 50 32 2B 31 0D 41 44 43 20 23 |.LDA ZP2+1.ADC #| 000014F0: 30 0D 53 54 41 20 5A 50 32 2B 31 0D 52 54 53 0D |0.STA ZP2+1.RTS.| 00001500: 0D 41 44 44 31 5A 50 45 20 3D 2A 0D 0D 43 4C 43 |.ADD1ZPE =*..CLC| 00001510: 0D 4C 44 41 20 5A 50 45 0D 41 44 43 20 23 31 0D |.LDA ZPE.ADC #1.| 00001520: 53 54 41 20 5A 50 45 0D 4C 44 41 20 5A 50 45 2B |STA ZPE.LDA ZPE+| 00001530: 31 0D 41 44 43 20 23 30 0D 53 54 41 20 5A 50 45 |1.ADC #0.STA ZPE| 00001540: 2B 31 0D 52 54 53 0D 0D 43 4F 55 4E 54 45 52 20 |+1.RTS..COUNTER | 00001550: 2E 42 59 54 45 20 30 0D 46 4C 41 47 20 20 20 2E |.BYTE 0.FLAG .| 00001560: 42 59 54 45 20 31 0D 54 45 4D 50 20 20 20 2E 57 |BYTE 1.TEMP .W| 00001570: 4F 52 44 20 30 0D 54 45 4D 50 43 20 20 2E 42 59 |ORD 0.TEMPC .BY| 00001580: 54 45 20 30 0D 54 45 4D 50 32 20 20 2E 42 59 54 |TE 0.TEMP2 .BYT| 00001590: 45 20 30 0D 50 55 5A 5A 4C 45 20 2E 42 59 54 45 |E 0.PUZZLE .BYTE| 000015A0: 20 30 0D 43 46 4C 41 47 20 20 2E 42 59 54 45 20 | 0.CFLAG .BYTE | 000015B0: 30 0D 52 4F 57 20 20 20 20 2E 42 59 54 45 20 30 |0.ROW .BYTE 0| 000015C0: 0D 43 4F 4C 4D 20 20 20 2E 42 59 54 45 20 30 0D |.COLM .BYTE 0.| 000015D0: 0D 44 45 46 53 20 20 20 2E 57 4F 52 44 20 44 45 |.DEFS .WORD DE| 000015E0: 46 31 2C 44 45 46 32 2C 44 45 46 33 2C 44 45 46 |F1,DEF2,DEF3,DEF| 000015F0: 34 2C 44 45 46 35 2C 44 45 46 36 0D 41 4E 53 57 |4,DEF5,DEF6.ANSW| 00001600: 45 52 20 2E 57 4F 52 44 20 48 49 4E 54 31 2C 48 |ER .WORD HINT1,H| 00001610: 49 4E 54 32 2C 48 49 4E 54 33 2C 48 49 4E 54 34 |INT2,HINT3,HINT4| 00001620: 2C 48 49 4E 54 35 2C 48 49 4E 54 36 0D 4B 45 59 |,HINT5,HINT6.KEY| 00001630: 53 20 20 20 2E 57 4F 52 44 20 4B 45 59 31 2C 4B |S .WORD KEY1,K| 00001640: 45 59 32 2C 4B 45 59 33 2C 4B 45 59 34 2C 4B 45 |EY2,KEY3,KEY4,KE| 00001650: 59 35 2C 4B 45 59 36 0D 0D 4B 45 59 31 20 2E 53 |Y5,KEY6..KEY1 .S| 00001660: 43 52 20 22 33 33 33 34 36 38 38 39 39 22 0D 4B |CR "333468899".K| 00001670: 45 59 32 20 2E 53 43 52 20 22 31 33 33 33 34 35 |EY2 .SCR "133345| 00001680: 36 37 39 22 0D 4B 45 59 33 20 2E 53 43 52 20 22 |679".KEY3 .SCR "| 00001690: 31 31 32 32 33 34 34 39 39 22 0D 4B 45 59 34 20 |112234499".KEY4 | 000016A0: 2E 53 43 52 20 22 31 32 32 32 35 36 36 38 39 22 |.SCR "122256689"| 000016B0: 0D 4B 45 59 35 20 2E 53 43 52 20 22 32 32 34 34 |.KEY5 .SCR "2244| 000016C0: 35 36 37 39 39 22 0D 4B 45 59 36 20 2E 53 43 52 |56799".KEY6 .SCR| 000016D0: 20 22 31 34 35 36 36 36 37 37 39 22 0D 0D 44 45 | "145666779"..DE| 000016E0: 46 31 20 2E 53 43 52 20 22 20 DD 2A DD 20 DD C0 |F1 .SCR " .*. ..| 000016F0: DD 20 DD 36 33 DD 20 22 0D 20 20 20 20 20 2E 53 |. .63. ". .S| 00001700: 43 52 20 22 2B DD A6 DD 2F DD A6 DD 2B DD 20 20 |CR "+.../...+. | 00001710: 20 20 22 0D 20 20 20 20 20 2E 53 43 52 20 22 20 | ". .SCR " | 00001720: DD 2A DD 20 DD 2F DD 20 DD 20 38 DD 20 22 0D 20 |.*. ./. . 8. ". | 00001730: 20 20 20 20 2E 53 43 52 20 22 2F DD A6 DD 2A DD | .SCR "/...*.| 00001740: A6 DD 2B DD 20 20 20 20 22 0D 20 20 20 20 20 2E |..+. ". .| 00001750: 53 43 52 20 22 20 DD 2A DD 20 DD 2B DD 20 DD 32 |SCR " .*. .+. .2| 00001760: 32 DD 20 22 0D 20 20 20 20 20 2E 53 43 52 20 22 |2. ". .SCR "| 00001770: 20 34 DD DD 20 36 DD DD 31 36 DD 20 20 20 22 0D | 4.. 6..16. ".| 00001780: 0D 44 45 46 32 20 2E 53 43 52 20 22 20 DD 2B DD |.DEF2 .SCR " .+.| 00001790: 20 DD 2A DD 20 DD 31 32 DD 20 22 0D 20 20 20 20 | .*. .12. ". | 000017A0: 20 2E 53 43 52 20 22 2B DD A6 DD 2A DD A6 DD 2B | .SCR "+...*...+| 000017B0: DD 20 20 20 20 22 0D 20 20 20 20 20 2E 53 43 52 |. ". .SCR| 000017C0: 20 22 20 DD C0 DD 20 DD 2A DD 20 DD 20 39 DD 20 | " ... .*. . 9. | 000017D0: 22 0D 20 20 20 20 20 2E 53 43 52 20 22 2B DD A6 |". .SCR "+..| 000017E0: DD C0 DD A6 DD 2A DD 20 20 20 20 22 0D 20 20 20 |.....*. ". | 000017F0: 20 20 2E 53 43 52 20 22 20 DD 2A DD 20 DD C0 DD | .SCR " .*. ...| 00001800: 20 DD 33 31 DD 20 22 0D 20 20 20 20 20 2E 53 43 | .31. ". .SC| 00001810: 52 20 22 32 32 DD DD 20 34 DD DD 31 36 DD 20 20 |R "22.. 4..16. | 00001820: 20 22 0D 0D 44 45 46 33 20 2E 53 43 52 20 22 20 | "..DEF3 .SCR " | 00001830: DD 2A DD 20 DD 2A DD 20 DD 20 38 DD 20 22 0D 20 |.*. .*. . 8. ". | 00001840: 20 20 20 20 2E 53 43 52 20 22 2B DD A6 DD 2A DD | .SCR "+...*.| 00001850: A6 DD 2B DD 20 20 20 20 22 0D 20 20 20 20 20 2E |..+. ". .| 00001860: 53 43 52 20 22 20 DD 2A DD 20 DD C0 DD 20 DD 20 |SCR " .*. ... . | 00001870: 37 DD 20 22 0D 20 20 20 20 20 2E 53 43 52 20 22 |7. ". .SCR "| 00001880: 2B DD A6 DD 2B DD A6 DD 2A DD 20 20 20 20 22 0D |+...+...*. ".| 00001890: 20 20 20 20 20 2E 53 43 52 20 22 20 DD 2B DD 20 | .SCR " .+. | 000018A0: DD C0 DD 20 DD 20 38 DD 20 22 0D 20 20 20 20 20 |... . 8. ". | 000018B0: 2E 53 43 52 20 22 32 32 DD DD 20 34 DD DD 31 36 |.SCR "22.. 4..16| 000018C0: DD 20 20 20 22 0D 0D 44 45 46 34 20 2E 53 43 52 |. "..DEF4 .SCR| 000018D0: 20 22 20 DD 2A DD 20 DD C0 DD 20 DD 20 33 DD 20 | " .*. ... . 3. | 000018E0: 22 0D 20 20 20 20 20 2E 53 43 52 20 22 2B DD A6 |". .SCR "+..| 000018F0: DD C0 DD A6 DD C0 DD 20 20 20 20 22 0D 20 20 20 |....... ". | 00001900: 20 20 2E 53 43 52 20 22 20 DD 2B DD 20 DD 2A DD | .SCR " .+. .*.| 00001910: 20 DD 37 38 DD 20 22 0D 20 20 20 20 20 2E 53 43 | .78. ". .SC| 00001920: 52 20 22 2A DD A6 DD 2A DD A6 DD 2A DD 20 20 20 |R "*...*...*. | 00001930: 20 22 0D 20 20 20 20 20 2E 53 43 52 20 22 20 DD | ". .SCR " .| 00001940: 2F DD 20 DD 2A DD 20 DD 20 31 DD 20 22 0D 20 20 |/. .*. . 1. ". | 00001950: 20 20 20 2E 53 43 52 20 22 32 30 DD DD 20 32 DD | .SCR "20.. 2.| 00001960: DD 20 33 DD 20 20 20 22 0D 0D 44 45 46 35 20 2E |. 3. "..DEF5 .| 00001970: 53 43 52 20 22 20 DD 2B DD 20 DD C0 DD 20 DD 31 |SCR " .+. ... .1| 00001980: 31 DD 20 22 0D 20 20 20 20 20 2E 53 43 52 20 22 |1. ". .SCR "| 00001990: 2B DD A6 DD 2B DD A6 DD 2A DD 20 20 20 20 22 0D |+...+...*. ".| 000019A0: 20 20 20 20 20 2E 53 43 52 20 22 20 DD 2B DD 20 | .SCR " .+. | 000019B0: DD 2B DD 20 DD 31 31 DD 20 22 0D 20 20 20 20 20 |.+. .11. ". | 000019C0: 2E 53 43 52 20 22 2B DD A6 DD C0 DD A6 DD 2A DD |.SCR "+.......*.| 000019D0: 20 20 20 20 22 0D 20 20 20 20 20 2E 53 43 52 20 | ". .SCR | 000019E0: 22 20 DD C0 DD 20 DD 2A DD 20 DD 31 36 DD 20 22 |" ... .*. .16. "| 000019F0: 0D 20 20 20 20 20 2E 53 43 52 20 22 32 32 DD DD |. .SCR "22..| 00001A00: 20 36 DD DD 33 32 DD 20 20 20 22 0D 0D 44 45 46 | 6..32. "..DEF| 00001A10: 36 20 2E 53 43 52 20 22 20 DD 2B DD 20 DD C0 DD |6 .SCR " .+. ...| 00001A20: 20 DD 31 34 DD 20 22 0D 20 20 20 20 20 2E 53 43 | .14. ". .SC| 00001A30: 52 20 22 2A DD A6 DD 2F DD A6 DD 2B DD 20 20 20 |R "*.../...+. | 00001A40: 20 22 0D 20 20 20 20 20 2E 53 43 52 20 22 20 DD | ". .SCR " .| 00001A50: 2B DD 20 DD 2A DD 20 DD 37 30 DD 20 22 0D 20 20 |+. .*. .70. ". | 00001A60: 20 20 20 2E 53 43 52 20 22 C0 DD A6 DD 2B DD A6 | .SCR "....+..| 00001A70: DD 2A DD 20 20 20 20 22 0D 20 20 20 20 20 2E 53 |.*. ". .S| 00001A80: 43 52 20 22 20 DD 2A DD 20 DD C0 DD 20 DD 33 37 |CR " .*. ... .37| 00001A90: DD 20 22 0D 20 20 20 20 20 2E 53 43 52 20 22 33 |. ". .SCR "3| 00001AA0: 30 DD DD 20 38 DD DD 34 30 DD 20 20 20 22 0D 0D |0.. 8..40. "..| 00001AB0: 48 49 4E 54 31 20 2E 53 43 52 20 22 39 DD 2A DD |HINT1 .SCR "9.*.| 00001AC0: 38 DD C0 DD 39 DD 22 0D 20 20 20 20 20 20 2E 53 |8...9.". .S| 00001AD0: 43 52 20 22 33 DD 2A DD 38 DD 2F DD 33 DD 22 0D |CR "3.*.8./.3.".| 00001AE0: 20 20 20 20 20 20 2E 53 43 52 20 22 33 DD 2A DD | .SCR "3.*.| 00001AF0: 36 DD 2B DD 34 DD 22 0D 0D 48 49 4E 54 32 20 2E |6.+.4."..HINT2 .| 00001B00: 53 43 52 20 22 39 DD 2B DD 33 DD 2A DD 31 DD 22 |SCR "9.+.3.*.1."| 00001B10: 0D 20 20 20 20 20 20 2E 53 43 52 20 22 36 DD C0 |. .SCR "6..| 00001B20: DD 33 DD 2A DD 33 DD 22 0D 20 20 20 20 20 20 2E |.3.*.3.". .| 00001B30: 53 43 52 20 22 37 DD 2A DD 35 DD C0 DD 34 DD 22 |SCR "7.*.5...4."| 00001B40: 0D 0D 48 49 4E 54 33 20 2E 53 43 52 20 22 34 DD |..HINT3 .SCR "4.| 00001B50: 2A DD 31 DD 2A DD 32 DD 22 0D 20 20 20 20 20 20 |*.1.*.2.". | 00001B60: 2E 53 43 52 20 22 39 DD 2A DD 31 DD C0 DD 32 DD |.SCR "9.*.1...2.| 00001B70: 22 0D 20 20 20 20 20 20 2E 53 43 52 20 22 39 DD |". .SCR "9.| 00001B80: 2B DD 33 DD C0 DD 34 DD 22 0D 0D 48 49 4E 54 34 |+.3...4."..HINT4| 00001B90: 20 2E 53 43 52 20 22 32 DD 2A DD 36 DD C0 DD 39 | .SCR "2.*.6...9| 00001BA0: DD 22 0D 20 20 20 20 20 20 2E 53 43 52 20 22 38 |.". .SCR "8| 00001BB0: DD 2B DD 35 DD 2A DD 36 DD 22 0D 20 20 20 20 20 |.+.5.*.6.". | 00001BC0: 20 2E 53 43 52 20 22 32 DD 2F DD 32 DD 2A DD 31 | .SCR "2./.2.*.1| 00001BD0: DD 22 0D 0D 48 49 4E 54 35 20 2E 53 43 52 20 22 |."..HINT5 .SCR "| 00001BE0: 36 DD 2B DD 39 DD C0 DD 34 DD 22 0D 20 20 20 20 |6.+.9...4.". | 00001BF0: 20 20 2E 53 43 52 20 22 37 DD 2B DD 32 DD 2B DD | .SCR "7.+.2.+.| 00001C00: 32 DD 22 0D 20 20 20 20 20 20 2E 53 43 52 20 22 |2.". .SCR "| 00001C10: 39 DD C0 DD 35 DD 2A DD 34 DD 22 0D 0D 48 49 4E |9...5.*.4."..HIN| 00001C20: 54 36 20 2E 53 43 52 20 22 39 DD 2B DD 36 DD C0 |T6 .SCR "9.+.6..| 00001C30: DD 31 DD 22 0D 20 20 20 20 20 20 2E 53 43 52 20 |.1.". .SCR | 00001C40: 22 34 DD 2B DD 36 DD 2A DD 37 DD 22 0D 20 20 20 |"4.+.6.*.7.". | 00001C50: 20 20 20 2E 53 43 52 20 22 36 DD 2A DD 37 DD C0 | .SCR "6.*.7..| 00001C60: DD 35 DD 22 0D 0D 54 49 54 4C 45 53 43 52 45 45 |.5."..TITLESCREE| 00001C70: 4E 20 3D 2A 0D 0D 4A 53 52 20 57 52 49 54 45 0D |N =*..JSR WRITE.| 00001C80: 2E 42 59 54 45 20 31 34 37 2C 33 31 2C 31 34 36 |.BYTE 147,31,146| 00001C90: 2C 35 2C 31 37 36 0D 2E 41 53 43 20 22 C0 C0 C0 |,5,176..ASC "...| 00001CA0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00001CB0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00001CC0: C0 C0 C0 22 0D 2E 42 59 54 45 20 31 37 34 0D 2E |..."..BYTE 174..| 00001CD0: 42 59 54 45 20 31 32 35 2C 31 38 2C 31 35 36 0D |BYTE 125,18,156.| 00001CE0: 2E 41 53 43 20 22 20 20 20 20 20 20 20 20 20 20 |.ASC " | 00001CF0: 20 20 20 20 43 52 4F 53 53 20 43 41 4C 43 20 20 | CROSS CALC | 00001D00: 20 20 20 20 20 20 20 20 20 20 20 20 22 0D 2E 42 | "..B| 00001D10: 59 54 45 20 31 34 36 2C 35 2C 31 32 35 0D 2E 42 |YTE 146,5,125..B| 00001D20: 59 54 45 20 31 37 31 0D 2E 41 53 43 20 22 C0 C0 |YTE 171..ASC "..| 00001D30: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00001D40: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00001D50: C0 C0 C0 C0 22 0D 2E 42 59 54 45 20 31 37 39 0D |...."..BYTE 179.| 00001D60: 2E 42 59 54 45 20 31 32 35 2C 31 35 35 2C 31 38 |.BYTE 125,155,18| 00001D70: 0D 2E 41 53 43 20 22 20 20 20 20 20 20 20 20 20 |..ASC " | 00001D80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001D90: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 0D 2E | "..| 00001DA0: 42 59 54 45 20 35 2C 31 34 36 2C 31 32 35 0D 2E |BYTE 5,146,125..| 00001DB0: 42 59 54 45 20 31 32 35 2C 31 35 35 2C 31 38 0D |BYTE 125,155,18.| 00001DC0: 2E 41 53 43 20 22 20 20 20 20 20 20 20 20 20 20 |.ASC " | 00001DD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001DE0: 20 20 20 20 20 20 20 20 20 20 20 20 22 0D 2E 42 | "..B| 00001DF0: 59 54 45 20 35 2C 31 34 36 2C 31 32 35 0D 2E 42 |YTE 5,146,125..B| 00001E00: 59 54 45 20 31 32 35 2C 31 35 35 2C 31 38 0D 2E |YTE 125,155,18..| 00001E10: 41 53 43 20 22 20 20 20 20 20 20 20 20 20 20 20 |ASC " | 00001E20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001E30: 20 20 20 20 20 20 20 20 20 20 20 22 0D 2E 42 59 | "..BY| 00001E40: 54 45 20 35 2C 31 34 36 2C 31 32 35 0D 2E 42 59 |TE 5,146,125..BY| 00001E50: 54 45 20 31 32 35 2C 31 35 35 2C 31 38 0D 2E 41 |TE 125,155,18..A| 00001E60: 53 43 20 22 20 20 20 20 20 20 20 20 20 20 20 20 |SC " | 00001E70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001E80: 20 20 20 20 20 20 20 20 20 20 22 0D 2E 42 59 54 | "..BYT| 00001E90: 45 20 35 2C 31 34 36 2C 31 32 35 0D 2E 42 59 54 |E 5,146,125..BYT| 00001EA0: 45 20 31 32 35 2C 31 35 35 2C 31 38 0D 2E 41 53 |E 125,155,18..AS| 00001EB0: 43 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |C " | 00001EC0: 31 5D 20 50 55 5A 5A 4C 45 20 23 31 20 20 20 20 |1] PUZZLE #1 | 00001ED0: 20 20 20 20 20 20 20 20 20 22 0D 2E 42 59 54 45 | "..BYTE| 00001EE0: 20 35 2C 31 34 36 2C 31 32 35 0D 2E 42 59 54 45 | 5,146,125..BYTE| 00001EF0: 20 31 32 35 2C 31 35 35 2C 31 38 0D 2E 41 53 43 | 125,155,18..ASC| 00001F00: 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 32 | " 2| 00001F10: 5D 20 50 55 5A 5A 4C 45 20 23 32 20 20 20 20 20 |] PUZZLE #2 | 00001F20: 20 20 20 20 20 20 20 20 22 0D 2E 42 59 54 45 20 | "..BYTE | 00001F30: 35 2C 31 34 36 2C 31 32 35 0D 2E 42 59 54 45 20 |5,146,125..BYTE | 00001F40: 31 32 35 2C 31 35 35 2C 31 38 0D 2E 41 53 43 20 |125,155,18..ASC | 00001F50: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 33 5D |" 3]| 00001F60: 20 50 55 5A 5A 4C 45 20 23 33 20 20 20 20 20 20 | PUZZLE #3 | 00001F70: 20 20 20 20 20 20 20 22 0D 2E 42 59 54 45 20 35 | "..BYTE 5| 00001F80: 2C 31 34 36 2C 31 32 35 0D 2E 42 59 54 45 20 31 |,146,125..BYTE 1| 00001F90: 32 35 2C 31 35 35 2C 31 38 0D 2E 41 53 43 20 22 |25,155,18..ASC "| 00001FA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 34 5D 20 | 4] | 00001FB0: 50 55 5A 5A 4C 45 20 23 34 20 20 20 20 20 20 20 |PUZZLE #4 | 00001FC0: 20 20 20 20 20 20 22 0D 2E 42 59 54 45 20 35 2C | "..BYTE 5,| 00001FD0: 31 34 36 2C 31 32 35 0D 2E 42 59 54 45 20 31 32 |146,125..BYTE 12| 00001FE0: 35 2C 31 35 35 2C 31 38 0D 2E 41 53 43 20 22 20 |5,155,18..ASC " | 00001FF0: 20 20 20 20 20 20 20 20 20 20 20 20 35 5D 20 50 | 5] P| 00002000: 55 5A 5A 4C 45 20 23 35 20 20 20 20 20 20 20 20 |UZZLE #5 | 00002010: 20 20 20 20 20 22 0D 2E 42 59 54 45 20 35 2C 31 | "..BYTE 5,1| 00002020: 34 36 2C 31 32 35 0D 2E 42 59 54 45 20 31 32 35 |46,125..BYTE 125| 00002030: 2C 31 35 35 2C 31 38 0D 2E 41 53 43 20 22 20 20 |,155,18..ASC " | 00002040: 20 20 20 20 20 20 20 20 20 20 20 36 5D 20 50 55 | 6] PU| 00002050: 5A 5A 4C 45 20 23 36 20 20 20 20 20 20 20 20 20 |ZZLE #6 | 00002060: 20 20 20 20 22 0D 2E 42 59 54 45 20 35 2C 31 34 | "..BYTE 5,14| 00002070: 36 2C 31 32 35 0D 2E 42 59 54 45 20 31 32 35 2C |6,125..BYTE 125,| 00002080: 31 35 35 2C 31 38 0D 2E 41 53 43 20 22 20 20 20 |155,18..ASC " | 00002090: 20 20 20 20 20 20 20 20 20 20 37 5D 20 54 4F 47 | 7] TOG| 000020A0: 47 4C 45 20 4D 55 53 49 43 20 20 20 20 20 20 20 |GLE MUSIC | 000020B0: 20 20 20 22 0D 2E 42 59 54 45 20 35 2C 31 34 36 | "..BYTE 5,146| 000020C0: 2C 31 32 35 0D 2E 42 59 54 45 20 31 32 35 2C 31 |,125..BYTE 125,1| 000020D0: 35 35 2C 31 38 0D 2E 41 53 43 20 22 20 20 20 20 |55,18..ASC " | 000020E0: 20 20 20 20 20 20 20 20 20 38 5D 20 45 58 49 54 | 8] EXIT| 000020F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002100: 20 20 22 0D 2E 42 59 54 45 20 35 2C 31 34 36 2C | "..BYTE 5,146,| 00002110: 31 32 35 0D 2E 42 59 54 45 20 31 32 35 2C 31 35 |125..BYTE 125,15| 00002120: 35 2C 31 38 0D 2E 41 53 43 20 22 20 20 20 20 20 |5,18..ASC " | 00002130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002150: 20 22 0D 2E 42 59 54 45 20 35 2C 31 34 36 2C 31 | "..BYTE 5,146,1| 00002160: 32 35 0D 2E 42 59 54 45 20 31 32 35 2C 31 35 35 |25..BYTE 125,155| 00002170: 2C 31 38 0D 2E 41 53 43 20 22 20 20 20 20 20 20 |,18..ASC " | 00002180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000021A0: 22 0D 2E 42 59 54 45 20 35 2C 31 34 36 2C 31 32 |"..BYTE 5,146,12| 000021B0: 35 0D 2E 42 59 54 45 20 31 32 35 2C 31 35 35 2C |5..BYTE 125,155,| 000021C0: 31 38 0D 2E 41 53 43 20 22 20 20 20 20 20 20 20 |18..ASC " | 000021D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000021E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "| 000021F0: 0D 2E 42 59 54 45 20 35 2C 31 34 36 2C 31 32 35 |..BYTE 5,146,125| 00002200: 0D 2E 42 59 54 45 20 31 32 35 2C 31 35 35 2C 31 |..BYTE 125,155,1| 00002210: 38 0D 2E 41 53 43 20 22 20 20 20 20 20 20 20 20 |8..ASC " | 00002220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 0D | ".| 00002240: 2E 42 59 54 45 20 35 2C 31 34 36 2C 31 32 35 0D |.BYTE 5,146,125.| 00002250: 0D 2E 42 59 54 45 20 35 2C 31 37 31 0D 2E 41 53 |..BYTE 5,171..AS| 00002260: 43 20 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |C ".............| 00002270: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00002280: C0 C0 C0 C0 C0 C0 C0 C0 C0 22 0D 2E 42 59 54 45 |........."..BYTE| 00002290: 20 31 37 39 0D 2E 42 59 54 45 20 31 32 35 2C 31 | 179..BYTE 125,1| 000022A0: 35 34 2C 31 38 0D 2E 41 53 43 20 22 20 20 20 20 |54,18..ASC " | 000022B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000022C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000022D0: 20 20 22 0D 2E 42 59 54 45 20 35 2C 31 34 36 2C | "..BYTE 5,146,| 000022E0: 31 32 35 0D 2E 42 59 54 45 20 35 2C 31 32 35 2C |125..BYTE 5,125,| 000022F0: 31 38 2C 31 35 34 0D 2E 41 53 43 20 22 20 20 20 |18,154..ASC " | 00002300: 20 20 50 52 4F 47 52 41 4D 20 42 59 20 42 41 52 | PROGRAM BY BAR| 00002310: 42 41 52 41 20 48 2E 20 53 43 48 55 4C 41 4B 20 |BARA H. SCHULAK | 00002320: 20 20 20 22 0D 2E 42 59 54 45 20 35 2C 31 34 36 | "..BYTE 5,146| 00002330: 2C 31 32 35 0D 2E 42 59 54 45 20 35 2C 31 32 35 |,125..BYTE 5,125| 00002340: 2C 31 38 2C 31 35 34 0D 2E 41 53 43 20 22 20 20 |,18,154..ASC " | 00002350: 20 20 20 50 55 5A 5A 4C 45 53 20 42 59 20 46 45 | PUZZLES BY FE| 00002360: 4E 44 45 52 20 54 55 43 4B 45 52 20 20 20 20 20 |NDER TUCKER | 00002370: 20 20 20 20 22 0D 2E 42 59 54 45 20 35 2C 31 34 | "..BYTE 5,14| 00002380: 36 2C 31 32 35 0D 2E 42 59 54 45 20 31 32 35 2C |6,125..BYTE 125,| 00002390: 31 35 34 2C 31 38 0D 2E 41 53 43 20 22 20 20 20 |154,18..ASC " | 000023A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000023B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000023C0: 20 20 20 22 0D 2E 42 59 54 45 20 35 2C 31 34 36 | "..BYTE 5,146| 000023D0: 2C 31 32 35 0D 2E 42 59 54 45 20 35 2C 31 34 36 |,125..BYTE 5,146| 000023E0: 2C 31 37 33 0D 2E 41 53 43 20 22 C0 C0 C0 C0 C0 |,173..ASC ".....| 000023F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00002400: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00002410: C0 22 0D 2E 42 59 54 45 20 30 0D 4C 44 41 20 23 |."..BYTE 0.LDA #| 00002420: 31 32 35 0D 53 54 41 20 32 30 32 33 0D 4C 44 41 |125.STA 2023.LDA| 00002430: 20 23 31 0D 53 54 41 20 32 30 32 33 2B 35 34 32 | #1.STA 2023+542| 00002440: 37 32 0D 52 54 53 0D 0D 4D 46 4C 41 47 20 2E 42 |72.RTS..MFLAG .B| 00002450: 59 54 45 20 30 0D 0D 53 54 41 52 54 4D 20 3D 2A |YTE 0..STARTM =*| 00002460: 0D 0D 4A 53 52 20 34 39 34 33 35 0D 4C 44 58 20 |..JSR 49435.LDX | 00002470: 23 39 36 0D 4C 44 59 20 23 31 30 39 0D 4A 53 52 |#96.LDY #109.JSR| 00002480: 20 34 39 34 35 38 0D 4C 44 41 20 23 37 0D 53 54 | 49458.LDA #7.ST| 00002490: 41 20 34 39 31 35 32 0D 52 54 53 0D 0D 53 54 4F |A 49152.RTS..STO| 000024A0: 50 4D 20 3D 2A 0D 0D 4C 44 41 20 23 30 0D 53 54 |PM =*..LDA #0.ST| 000024B0: 41 20 34 39 31 35 32 0D 53 54 41 20 35 34 32 37 |A 49152.STA 5427| 000024C0: 36 0D 53 54 41 20 35 34 32 38 33 0D 53 54 41 20 |6.STA 54283.STA | 000024D0: 35 34 32 39 30 0D 4A 53 52 20 34 39 36 32 39 0D |54290.JSR 49629.| 000024E0: 52 54 53 0D 0D 54 4F 47 47 4C 45 20 3D 2A 0D 0D |RTS..TOGGLE =*..| 000024F0: 4C 44 41 20 4D 46 4C 41 47 0D 42 45 51 20 2B 0D |LDA MFLAG.BEQ +.| 00002500: 4C 44 41 20 23 30 0D 53 54 41 20 4D 46 4C 41 47 |LDA #0.STA MFLAG| 00002510: 0D 4A 53 52 20 53 54 4F 50 4D 0D 52 54 53 0D 2B |.JSR STOPM.RTS.+| 00002520: 20 4C 44 41 20 23 31 0D 53 54 41 20 4D 46 4C 41 | LDA #1.STA MFLA| 00002530: 47 0D 4A 53 52 20 53 54 41 52 54 4D 0D 52 54 53 |G.JSR STARTM.RTS| 00002540: 0D 0D 43 48 45 43 4B 4D 20 3D 2A 0D 0D 4C 44 41 |..CHECKM =*..LDA| 00002550: 20 34 39 31 35 32 0D 42 45 51 20 2B 0D 52 54 53 | 49152.BEQ +.RTS| 00002560: 0D 2B 20 4C 44 41 20 4D 46 4C 41 47 0D 42 4E 45 |.+ LDA MFLAG.BNE| 00002570: 20 2B 0D 52 54 53 0D 2B 20 4A 53 52 20 53 54 4F | +.RTS.+ JSR STO| 00002580: 50 4D 0D 4A 53 52 20 53 54 41 52 54 4D 0D 52 54 |PM.JSR STARTM.RT| 00002590: 53 0D 0D 0D 3B 48 41 52 44 43 4F 50 59 20 4F 46 |S...;HARDCOPY OF| 000025A0: 20 53 43 52 45 45 4E 0D 3B 53 59 53 34 39 31 35 | SCREEN.;SYS4915| 000025B0: 32 2C 4C 4D 2C 54 4D 2C 52 4D 2C 42 4D 2C 53 41 |2,LM,TM,RM,BM,SA| 000025C0: 0D 3B 53 59 53 34 39 31 35 32 2C 58 2C 59 2C 58 |.;SYS49152,X,Y,X| 000025D0: 31 2C 59 31 2C 53 45 43 4F 4E 44 41 52 59 20 41 |1,Y1,SECONDARY A| 000025E0: 44 44 52 45 53 53 0D 0D 48 41 52 44 43 4F 50 59 |DDRESS..HARDCOPY| 000025F0: 20 3D 2A 0D 0D 53 45 54 4C 46 53 20 3D 20 36 35 | =*..SETLFS = 65| 00002600: 34 36 36 0D 4F 50 45 4E 20 20 20 3D 20 36 35 34 |466.OPEN = 654| 00002610: 37 32 0D 43 48 4B 4F 55 54 20 3D 20 36 35 34 38 |72.CHKOUT = 6548| 00002620: 31 0D 43 4C 4F 53 45 20 20 3D 20 36 35 34 37 35 |1.CLOSE = 65475| 00002630: 0D 43 4C 52 43 48 4E 20 3D 20 36 35 34 38 34 0D |.CLRCHN = 65484.| 00002640: 53 45 54 4E 41 4D 20 3D 20 36 35 34 36 39 0D 43 |SETNAM = 65469.C| 00002650: 4F 4D 4E 55 4D 20 3D 20 34 37 30 38 39 0D 53 43 |OMNUM = 47089.SC| 00002660: 52 45 45 4E 20 3D 20 31 30 32 34 20 0D 0D 4A 53 |REEN = 1024 ..JS| 00002670: 52 20 53 54 4F 50 4D 0D 4C 44 41 20 3C 53 43 52 |R STOPM.LDA <SCR| 00002680: 45 45 4E 0D 53 54 41 20 5A 50 0D 4C 44 41 20 3E |EEN.STA ZP.LDA >| 00002690: 53 43 52 45 45 4E 0D 53 54 41 20 5A 50 2B 31 0D |SCREEN.STA ZP+1.| 000026A0: 4C 44 59 20 54 4D 0D 42 45 51 20 50 52 49 4E 54 |LDY TM.BEQ PRINT| 000026B0: 53 43 52 45 45 4E 0D 4C 44 59 20 23 30 0D 2D 20 |SCREEN.LDY #0.- | 000026C0: 43 4C 43 0D 4C 44 41 20 5A 50 0D 41 44 43 20 23 |CLC.LDA ZP.ADC #| 000026D0: 34 30 0D 53 54 41 20 5A 50 0D 4C 44 41 20 5A 50 |40.STA ZP.LDA ZP| 000026E0: 2B 31 0D 41 44 43 20 23 30 0D 53 54 41 20 5A 50 |+1.ADC #0.STA ZP| 000026F0: 2B 31 0D 49 4E 59 0D 43 50 59 20 54 4D 0D 42 4E |+1.INY.CPY TM.BN| 00002700: 45 20 2D 0D 0D 50 52 49 4E 54 53 43 52 45 45 4E |E -..PRINTSCREEN| 00002710: 20 3D 2A 0D 0D 4A 53 52 20 43 4C 52 43 48 4E 0D | =*..JSR CLRCHN.| 00002720: 4C 44 41 20 23 34 0D 4C 44 58 20 23 34 0D 4C 44 |LDA #4.LDX #4.LD| 00002730: 59 20 53 41 0D 4A 53 52 20 53 45 54 4C 46 53 0D |Y SA.JSR SETLFS.| 00002740: 4C 44 41 20 23 30 0D 4C 44 58 20 23 30 0D 4C 44 |LDA #0.LDX #0.LD| 00002750: 59 20 23 30 0D 4A 53 52 20 53 45 54 4E 41 4D 0D |Y #0.JSR SETNAM.| 00002760: 4A 53 52 20 4F 50 45 4E 20 0D 4C 44 58 20 23 34 |JSR OPEN .LDX #4| 00002770: 0D 4A 53 52 20 43 48 4B 4F 55 54 0D 0D 4C 44 58 |.JSR CHKOUT..LDX| 00002780: 20 54 4D 20 20 0D 2D 20 4C 44 59 20 4C 4D 0D 2D | TM .- LDY LM.-| 00002790: 20 53 54 59 20 59 0D 4C 44 41 20 28 5A 50 29 2C | STY Y.LDA (ZP),| 000027A0: 59 0D 43 4D 50 20 23 30 0D 50 48 50 0D 41 4E 44 |Y.CMP #0.PHP.AND| 000027B0: 20 23 31 32 37 0D 4C 44 59 20 23 34 0D 2D 20 44 | #127.LDY #4.- D| 000027C0: 45 59 0D 43 4D 50 20 55 50 50 4C 49 4D 2C 59 0D |EY.CMP UPPLIM,Y.| 000027D0: 42 43 53 20 2D 0D 45 4F 52 20 46 4C 49 50 54 42 |BCS -.EOR FLIPTB| 000027E0: 2C 59 0D 50 4C 50 0D 4A 53 52 20 43 48 52 4F 55 |,Y.PLP.JSR CHROU| 000027F0: 54 0D 4C 44 59 20 59 0D 49 4E 59 0D 43 50 59 20 |T.LDY Y.INY.CPY | 00002800: 52 4D 0D 42 4E 45 20 2D 2D 0D 4C 44 41 20 23 31 |RM.BNE --.LDA #1| 00002810: 33 0D 4A 53 52 20 43 48 52 4F 55 54 0D 0D 43 4C |3.JSR CHROUT..CL| 00002820: 43 0D 4C 44 41 20 5A 50 0D 41 44 43 20 23 34 30 |C.LDA ZP.ADC #40| 00002830: 0D 53 54 41 20 5A 50 0D 4C 44 41 20 5A 50 2B 31 |.STA ZP.LDA ZP+1| 00002840: 0D 41 44 43 20 23 30 0D 53 54 41 20 5A 50 2B 31 |.ADC #0.STA ZP+1| 00002850: 0D 0D 49 4E 58 0D 43 50 58 20 42 4D 0D 42 4E 45 |..INX.CPX BM.BNE| 00002860: 20 2D 2D 2D 0D 4C 44 41 20 23 34 0D 4A 53 52 20 | ---.LDA #4.JSR | 00002870: 43 4C 4F 53 45 0D 4A 53 52 20 43 4C 52 43 48 4E |CLOSE.JSR CLRCHN| 00002880: 0D 4C 44 41 20 23 31 0D 53 54 41 20 4D 46 4C 41 |.LDA #1.STA MFLA| 00002890: 47 0D 4A 53 52 20 53 54 41 52 54 4D 0D 0D 52 54 |G.JSR STARTM..RT| 000028A0: 53 0D 0D 59 20 20 20 20 2E 42 59 54 45 20 30 0D |S..Y .BYTE 0.| 000028B0: 53 41 20 20 20 2E 42 59 54 45 20 30 0D 4C 4D 20 |SA .BYTE 0.LM | 000028C0: 20 20 2E 42 59 54 45 20 30 0D 54 4D 20 20 20 2E | .BYTE 0.TM .| 000028D0: 42 59 54 45 20 30 0D 52 4D 20 20 20 2E 42 59 54 |BYTE 0.RM .BYT| 000028E0: 45 20 33 39 0D 42 4D 20 20 20 2E 42 59 54 45 20 |E 39.BM .BYTE | 000028F0: 32 31 0D 0D 55 50 50 4C 49 4D 20 2E 42 59 54 45 |21..UPPLIM .BYTE| 00002900: 20 31 32 38 2C 39 36 2C 36 34 2C 33 32 0D 46 4C | 128,96,64,32.FL| 00002910: 49 50 54 42 20 2E 42 59 54 45 20 31 39 32 2C 33 |IPTB .BYTE 192,3| 00002920: 32 2C 30 2C 36 34 0D |2,0,64. |
.ORG 2048.;.MEM..OBJ "@0:XCALC 22"..ZP
= 97.ZPC = 99.ZPE = 101.ZP2
= 247..CHROUT = $FFD2.GETIN = $FFE4.PLO
T = $FFF0.CURPOS = 211..LDA #0 .STA
53281.STA 53280.LDA #1.STA MFLAG.JSR ST
ARTM..START =*..JSR TITLESCREEN.- JSR GE
TIN.STA TEMP.JSR CHECKM.LDA TEMP.BEQ -.C
MP #49.BCC -.CMP #57.BCS -.CMP #56.BNE +
.JSR STOPM.LDA #23.STA 53272.RTS ; REM L
OADSTAR.+ CMP #55.BNE +.JSR TOGGLE.JMP -
.+ SEC.SBC #49.STA PUZZLE.JSR SCREEN1.LD
A <1199.STA ZPC.LDA >1199.STA ZPC+1.LDA
#0.STA ROW.STA COLM.JSR PRINTPUZZLE.JSR
PRINTKEYS..INPUT =*..LDY #0.LDA (ZPC),Y.
EOR #128.STA (ZPC),Y.JSR DELAY.LDA (ZPC)
,Y.EOR #128.STA (ZPC),Y.JSR DELAY.JSR CH
ECKM.JSR GETIN.BEQ INPUT.CMP #29 .BNE +
.JSR RIGHT.JMP INPUT.+ CMP #157.BNE +.JS
R LEFT.JMP INPUT.+ CMP #140.BNE +.JSR HA
RDCOPY.JMP INPUT.+ CMP #17.BNE +.JSR DOW
N.JMP INPUT.+ CMP #145.BNE +.JSR UP.JMP
INPUT.+ CMP #136.BNE +.JMP HINT.+ CMP #3
2.BEQ +.JMP S2.+ LDY #0.LDA (ZPC),Y.CMP
#32.BNE ++.+ JMP INPUT.+ STA TEMP.LDY #0
.- LDA 1756,Y.CMP #32.BEQ +.INY.INY.CPY
#17.BNE -.+ LDA TEMP.STA 1756,Y.LDY #0.L
DA #32.STA (ZPC),Y.JMP INPUT.S2 CMP #133
;F1.BNE +.JMP START.+ CMP #137;F2.BNE +.
JMP SOLUTIONS..+ CMP #49.BCS +.JMP INPUT
.+ CMP #58.BCC S1.JMP INPUT.S1 STA TEMP.
LDY #0.LDA (ZPC),Y.CMP #32.BNE ++.LDY #0
.- LDA 1756,Y.CMP TEMP.BEQ +.INY.CPY #17
.BNE -.JMP INPUT.+ LDA #32.STA 1756,Y.LD
Y #0.LDA TEMP.STA (ZPC),Y.+ JMP CHECK.+
JMP INPUT..HINT =*..LDA PUZZLE.ASL.TAX.L
DA ANSWER,X.STA ZPE.INX.LDA ANSWER,X.STA
ZPE+1..LDA #0.STA COUNTER.STA TEMP2.- C
MP ROW.BEQ +.CLC.LDA TEMP2.ADC #10.STA T
EMP2.INC COUNTER.LDA COUNTER.JMP -..+ LD
A COLM.ASL.ASL.CLC.ADC TEMP2.TAY.LDA (ZP
E),Y .JMP S1..UP =*..JSR SUB160.LDA R
OW.CMP #255.BNE +.JSR ADD160.+ RTS..DOWN
=*..JSR ADD160.LDA ROW.CMP #3.BNE +.JSR
SUB160.+ RTS..ADD4 =*..CLC.LDA ZPC.ADC
#4.STA ZPC.LDA ZPC+1.ADC #0.STA ZPC+1.IN
C COLM.RTS..SUB4 =*..SEC.LDA ZPC.SBC #4.
STA ZPC.LDA ZPC+1.SBC #0.STA ZPC+1.DEC C
OLM.RTS..ADD80ZP =*..CLC.LDA ZP.ADC #80.
STA ZP.LDA ZP+1.ADC #0.STA ZP+1.RTS..ADD
160 =*..CLC.LDA ZPC.ADC #160.STA ZPC.LDA
ZPC+1.ADC #0.STA ZPC+1.INC ROW.RTS..SUB
160 =*..SEC.LDA ZPC.SBC #160.STA ZPC.LDA
ZPC+1.SBC #0.STA ZPC+1.DEC ROW.RTS..RIG
HT =*..JSR ADD4.LDA COLM.CMP #3.BNE +.JS
R SUB4.+ RTS..LEFT =*..JSR SUB4.LDA COLM
.CMP #255.BNE +.JSR ADD4.+ RTS..WRITE =*
..LDY #0.PLA.STA ZP.PLA.STA ZP+1.- INC Z
P.BNE +.INC ZP+1.+ LDA (ZP),Y.BEQ +.JSR
CHROUT.BNE -.+ LDA ZP+1.PHA.LDA ZP.PHA.R
TS..DELAY =*..LDX #25.- LDY #0.- DEY.BNE
-.DEX.BNE --.RTS..RINGBELL =*..LDA MFLA
G.BEQ +.RTS.+ LDA #21.STA 54296.LDA #9.S
TA 54277.LDA #0.STA 54278.LDA #48.STA 54
273.LDA #32.STA 54276.LDA #33.STA 54276.
RTS..SCREEN1 =*..JSR WRITE..BYTE 147,156
,18..ASC " CROSS CALC #
"..BYTE 13,13,154,146..ASC "
"..BYTE 176,96,178,96,178,96
,178,96,178,96,178,96,96,174,13..ASC "
. . . . . . ."..BYTE 13..AS
C " .............."..BYTE 1
3..ASC " . ... ... ."..BYTE
13..ASC " ............."..
BYTE 174,13..ASC " . . . .
. . ."..BYTE 13..ASC " ...
..........."..BYTE 13..ASC "
. ... ... ."..BYTE 13..ASC "
............."..BYTE 174,13..ASC "
. . . . . . ."..BYTE 13..AS
C " "..BYTE 171,96,177,178,
123,96,177,178,123,96,177,178,96,189,13.
.ASC " . .. .. ."..BYTE
13..ASC " "..BYTE 173,96,96
,189,173,96,96,189,173,96,96,189,13..BYT
E 13,13,13,13,13,13,18..ASC " F1=EXIT
F7=HINT F2=SOLN F8=PRINT "..BYTE 0.L
DA PUZZLE.CLC.ADC #128+49.STA 1050.RTS..
PRINTPUZZLE =*..LDA PUZZLE.ASL.TAX.LDA D
EFS,X.STA ZPE.INX.LDA DEFS,X.STA ZPE+1..
LDA <1199.STA ZP.LDA >1199.STA ZP+1..LDA
<1199+54272.STA ZP2.LDA >1199+54272.STA
ZP2+1..LDA #0.STA COUNTER.LDX #0.- LDY
#0.- LDA (ZPE,X).CMP @".".BEQ ++.STA (ZP
),Y.CMP #32.BNE +.LDA #1.STA (ZP2),Y.JMP
++.+ LDA #13.STA (ZP2),Y.+ JSR ADD1ZPE.
INY.CPY #14.BNE -.JSR ADD80ZP.JSR ADD80Z
P2.INC COUNTER.LDA COUNTER.CMP #6.BNE --
.RTS..PRINTKEYS =*..LDA PUZZLE.ASL.TAX.L
DA KEYS,X.STA ZPE.INX.LDA KEYS,X.STA ZPE
+1..LDA <1756.STA ZP.LDA >1756.STA ZP+1.
.LDA <1756+54272.STA ZP2.LDA >1756+54272
.STA ZP2+1..LDX #0.LDY #0.- LDA (ZPE,X).
STA (ZP),Y.LDA #1.STA (ZP2),Y.+ JSR ADD1
ZPE.INY.INY.CPY #18.BNE -.RTS..CHECK =*.
.LDA PUZZLE.ASL.TAX.LDA ANSWER,X.STA ZPE
.INX.LDA ANSWER,X.STA ZPE+1..LDA <1199.S
TA ZP.LDA >1199.STA ZP+1..LDA #0.STA COU
NTER.LDX #0.- LDY #0.- LDA (ZPE,X).CMP (
ZP),Y.BEQ +.JMP INPUT.+ JSR ADD1ZPE.INY.
CPY #10.BNE -.JSR ADD80ZP.JSR ADD80ZP.IN
C COUNTER.LDA COUNTER.CMP #3.BNE --..SOL
VE =*..LDA #1.STA COUNTER.- STA 646.LDX
#22.LDY #0.CLC.JSR PLOT.JSR WRITE..BYTE
18 ..ASC " SOLVED!!!
"..BYTE 0.LDA COUNTER.STA 56
295.JSR RINGBELL.JSR DELAY.JSR DELAY.JSR
DELAY.JSR DELAY.INC COUNTER.LDA COUNTER
.CMP #15.BNE - ..GETF1 =*..LDX #22.LDY #
0.CLC.JSR PLOT.JSR WRITE..BYTE 18,154..A
SC " PRESS F1
"..BYTE 0.- JSR GETIN.STA TEMP.JSR CH
ECKM.LDA TEMP.CMP #133.BNE -.JMP START..
SOLUTIONS =*. .LDA PUZZLE.ASL.TAX.LDA AN
SWER,X.STA ZPE.INX.LDA ANSWER,X.STA ZPE+
1..LDA <1199.STA ZP.LDA >1199.STA ZP+1..
LDA <1199+54272.STA ZP2.LDA >1199+54272.
STA ZP2+1..LDA #0.STA COUNTER.LDX #0.- L
DY #0.- LDA (ZPE,X).CMP @"1".BCC +.CMP #
58.BCS +.CLC.ADC #128.STA (ZP),Y.LDA #10
.STA (ZP2),Y.+ JSR ADD1ZPE.INY.CPY #10.B
NE -.JSR ADD80ZP.JSR ADD80ZP2.JSR ADD80Z
P.JSR ADD80ZP2.INC COUNTER.LDA COUNTER.C
MP #3.BNE --.JMP GETF1..ADD80ZP2 =*..CLC
.LDA ZP2.ADC #80.STA ZP2.LDA ZP2+1.ADC #
0.STA ZP2+1.RTS..ADD1ZPE =*..CLC.LDA ZPE
.ADC #1.STA ZPE.LDA ZPE+1.ADC #0.STA ZPE
+1.RTS..COUNTER .BYTE 0.FLAG .BYTE 1.T
EMP .WORD 0.TEMPC .BYTE 0.TEMP2 .BYT
E 0.PUZZLE .BYTE 0.CFLAG .BYTE 0.ROW
.BYTE 0.COLM .BYTE 0..DEFS .WORD DE
F1,DEF2,DEF3,DEF4,DEF5,DEF6.ANSWER .WORD
HINT1,HINT2,HINT3,HINT4,HINT5,HINT6.KEY
S .WORD KEY1,KEY2,KEY3,KEY4,KEY5,KEY6.
.KEY1 .SCR "333468899".KEY2 .SCR "133345
679".KEY3 .SCR "112234499".KEY4 .SCR "12
2256689".KEY5 .SCR "224456799".KEY6 .SCR
"145666779"..DEF1 .SCR " .*. ... .63. "
. .SCR "+.../...+. ". .SCR "
.*. ./. . 8. ". .SCR "/...*...+.
". .SCR " .*. .+. .22. ". .SCR "
4.. 6..16. "..DEF2 .SCR " .+. .*. .12
. ". .SCR "+...*...+. ". .SCR
" ... .*. . 9. ". .SCR "+.......*.
". .SCR " .*. ... .31. ". .SC
R "22.. 4..16. "..DEF3 .SCR " .*. .*.
. 8. ". .SCR "+...*...+. ". .
SCR " .*. ... . 7. ". .SCR "+...+...
*. ". .SCR " .+. ... . 8. ".
.SCR "22.. 4..16. "..DEF4 .SCR " .*. .
.. . 3. ". .SCR "+......... ".
.SCR " .+. .*. .78. ". .SCR "*...*
...*. ". .SCR " ./. .*. . 1. ".
.SCR "20.. 2.. 3. "..DEF5 .SCR " .+
. ... .11. ". .SCR "+...+...*. ".
.SCR " .+. .+. .11. ". .SCR "+.
......*. ". .SCR " ... .*. .16. "
. .SCR "22.. 6..32. "..DEF6 .SCR "
.+. ... .14. ". .SCR "*.../...+.
". .SCR " .+. .*. .70. ". .SCR
"....+...*. ". .SCR " .*. ... .37
. ". .SCR "30.. 8..40. "..HINT1 .S
CR "9.*.8...9.". .SCR "3.*.8./.3.".
.SCR "3.*.6.+.4."..HINT2 .SCR "9.+
.3.*.1.". .SCR "6...3.*.3.". .
SCR "7.*.5...4."..HINT3 .SCR "4.*.1.*.2.
". .SCR "9.*.1...2.". .SCR "9.
+.3...4."..HINT4 .SCR "2.*.6...9.".
.SCR "8.+.5.*.6.". .SCR "2./.2.*.1
."..HINT5 .SCR "6.+.9...4.". .SCR "
7.+.2.+.2.". .SCR "9...5.*.4."..HIN
T6 .SCR "9.+.6...1.". .SCR "4.+.6.*
.7.". .SCR "6.*.7...5."..TITLESCREE
N =*..JSR WRITE..BYTE 147,31,146,5,176..
ASC "...................................
..."..BYTE 174..BYTE 125,18,156..ASC "
CROSS CALC "..B
YTE 146,5,125..BYTE 171..ASC "..........
............................"..BYTE 179.
.BYTE 125,155,18..ASC "
"..BYTE 5,146,125..
BYTE 125,155,18..ASC "
"..BYTE 5,146,125..B
YTE 125,155,18..ASC "
"..BYTE 5,146,125..BY
TE 125,155,18..ASC "
"..BYTE 5,146,125..BYT
E 125,155,18..ASC " 1] PUZZL
E #1 "..BYTE 5,146,125..BYTE
125,155,18..ASC " 2] PUZZLE
#2 "..BYTE 5,146,125..BYTE
125,155,18..ASC " 3] PUZZLE
#3 "..BYTE 5,146,125..BYTE 1
25,155,18..ASC " 4] PUZZLE #
4 "..BYTE 5,146,125..BYTE 12
5,155,18..ASC " 5] PUZZLE #5
"..BYTE 5,146,125..BYTE 125
,155,18..ASC " 6] PUZZLE #6
"..BYTE 5,146,125..BYTE 125,
155,18..ASC " 7] TOGGLE MUSI
C "..BYTE 5,146,125..BYTE 125,1
55,18..ASC " 8] EXIT
"..BYTE 5,146,125..BYTE 125,15
5,18..ASC "
"..BYTE 5,146,125..BYTE 125,155
,18..ASC "
"..BYTE 5,146,125..BYTE 125,155,
18..ASC "
"..BYTE 5,146,125..BYTE 125,155,1
8..ASC "
"..BYTE 5,146,125...BYTE 5,171..AS
C ".....................................
."..BYTE 179..BYTE 125,154,18..ASC "
"..BYT
E 5,146,125..BYTE 5,125,18,154..ASC "
PROGRAM BY BARBARA H. SCHULAK "..BY
TE 5,146,125..BYTE 5,125,18,154..ASC "
PUZZLES BY FENDER TUCKER "..B
YTE 5,146,125..BYTE 125,154,18..ASC "
"..BY
TE 5,146,125..BYTE 5,146,173..ASC ".....
................................."..BYTE
0.LDA #125.STA 2023.LDA #1.STA 2023+542
72.RTS..MFLAG .BYTE 0..STARTM =*..JSR 49
435.LDX #96.LDY #109.JSR 49458.LDA #7.ST
A 49152.RTS..STOPM =*..LDA #0.STA 49152.
STA 54276.STA 54283.STA 54290.JSR 49629.
RTS..TOGGLE =*..LDA MFLAG.BEQ +.LDA #0.S
TA MFLAG.JSR STOPM.RTS.+ LDA #1.STA MFLA
G.JSR STARTM.RTS..CHECKM =*..LDA 49152.B
EQ +.RTS.+ LDA MFLAG.BNE +.RTS.+ JSR STO
PM.JSR STARTM.RTS...;HARDCOPY OF SCREEN.
;SYS49152,LM,TM,RM,BM,SA.;SYS49152,X,Y,X
1,Y1,SECONDARY ADDRESS..HARDCOPY =*..SET
LFS = 65466.OPEN = 65472.CHKOUT = 6548
1.CLOSE = 65475.CLRCHN = 65484.SETNAM =
65469.COMNUM = 47089.SCREEN = 1024 ..JS
R STOPM.LDA <SCREEN.STA ZP.LDA >SCREEN.S
TA ZP+1.LDY TM.BEQ PRINTSCREEN.LDY #0.-
CLC.LDA ZP.ADC #40.STA ZP.LDA ZP+1.ADC #
0.STA ZP+1.INY.CPY TM.BNE -..PRINTSCREEN
=*..JSR CLRCHN.LDA #4.LDX #4.LDY SA.JSR
SETLFS.LDA #0.LDX #0.LDY #0.JSR SETNAM.
JSR OPEN .LDX #4.JSR CHKOUT..LDX TM .-
LDY LM.- STY Y.LDA (ZP),Y.CMP #0.PHP.AND
#127.LDY #4.- DEY.CMP UPPLIM,Y.BCS -.EO
R FLIPTB,Y.PLP.JSR CHROUT.LDY Y.INY.CPY
RM.BNE --.LDA #13.JSR CHROUT..CLC.LDA ZP
.ADC #40.STA ZP.LDA ZP+1.ADC #0.STA ZP+1
..INX.CPX BM.BNE ---.LDA #4.JSR CLOSE.JS
R CLRCHN.LDA #1.STA MFLAG.JSR STARTM..RT
S..Y .BYTE 0.SA .BYTE 0.LM .BYTE
0.TM .BYTE 0.RM .BYTE 39.BM .BYTE
21..UPPLIM .BYTE 128,96,64,32.FLIPTB .BY
TE 192,32,0,64.
> CLICK IMAGE PREVIEW FOR FULL MODAL