CALCULATOR.SRC
FILE INFORMATION
FILENAME(S): CALCULATOR.SRC
FILE TYPE(S): PRG
FILE SIZE: 3.2K
FIRST SEEN: 2025-11-02 17:01:55
APPEARS ON: 2 disk(s)
FILE HASH
c558fa3976a666a42c565f3cf30b70cf5bed4787674e8f365a68bba3a912110e
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MISC04 | CALCULATOR.SRC | PRG | Treasure Chest - Spook | 11 | 9 | DOWNLOAD FILE |
| MAGIC DISK 64 | CALCULATOR.SRC | PRG | hedning, German ebay | 11 | 11 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 64 00 CC 00 14 08 6E 00 AC B2 20 24 |....d.....n... $|
00000010: 43 30 30 30 00 20 08 78 00 2E 4F 50 54 20 4F 4F |C000. .x..OPT OO|
00000020: 00 2C 08 82 00 3B 4B 45 52 4E 41 4C 00 3A 08 8C |.,...;KERNAL.:..|
00000030: 00 99 20 B2 20 24 46 46 44 32 00 45 08 96 00 3B |.. . $FFD2.E...;|
00000040: 5A 45 52 4F EE 00 54 08 A0 00 46 49 52 45 20 B2 |ZERO..T...FIRE .|
00000050: 20 24 30 33 00 60 08 AA 00 EB 20 B2 20 24 46 37 | $03.`.... . $F7|
00000060: 00 6E 08 B4 00 43 4F 4C 20 B2 20 24 46 38 00 7D |.n...COL . $F8.}|
00000070: 08 BE 00 52 45 47 31 20 B2 20 24 46 42 00 8C 08 |...REG1 . $FB...|
00000080: C8 00 52 45 47 32 20 B2 20 24 46 43 00 9B 08 D2 |..REG2 . $FC....|
00000090: 00 52 45 47 33 20 B2 20 24 46 44 00 A9 08 DC 00 |.REG3 . $FD.....|
000000A0: B8 45 31 20 B2 20 24 30 32 00 B7 08 E6 00 82 20 |.E1 . $02...... |
000000B0: B2 20 24 30 32 35 38 00 C7 08 F0 00 4C 4F EB 20 |. $0258.....LO. |
000000C0: B2 20 24 30 33 46 38 00 D9 08 FA 00 52 55 43 4F |. $03F8.....RUCO|
000000D0: 4C 20 B2 20 24 30 33 46 39 00 E8 08 04 01 57 57 |L . $03F9.....WW|
000000E0: 20 B2 20 24 30 33 46 36 00 FD 08 0E 01 53 54 41 | . $03F6.....STA|
000000F0: 52 54 56 45 43 20 B2 20 24 30 33 31 31 00 0A 09 |RTVEC . $0311...|
00000100: 18 01 3B 53 91 53 54 49 47 45 00 17 09 22 01 3B |..;S.STIGE...".;|
00000110: 46 41 4E 54 41 53 59 00 28 09 2C 01 DC 4F 55 54 |FANTASY.(.,..OUT|
00000120: 20 B2 20 24 37 44 30 30 00 39 09 36 01 EC 4F 55 | . $7D00.9.6..OU|
00000130: 54 20 B2 20 24 37 44 33 31 00 4A 09 40 01 53 43 |T . $7D31.J.@.SC|
00000140: 52 B9 20 B2 20 24 37 44 46 39 00 5D 09 4A 01 57 |R. . $7DF9.].J.W|
00000150: 49 4E 44 4F 57 20 B2 20 24 38 31 37 41 00 6E 09 |INDOW . $817A.n.|
00000160: 54 01 53 43 52 A1 20 B2 20 24 37 45 46 41 00 81 |T.SCR. . $7EFA..|
00000170: 09 5E 01 57 34 46 49 52 45 20 B2 20 24 38 30 44 |.^.W4FIRE . $80D|
00000180: 32 00 8F 09 68 01 92 20 B2 20 24 38 38 39 46 00 |2...h.. . $889F.|
00000190: A3 09 72 01 44 4F 55 42 4C 45 A1 20 B2 20 24 38 |..r.DOUBLE. . $8|
000001A0: 38 45 34 00 B4 09 7C 01 45 52 52 B0 20 B2 20 24 |8E4...|.ERR. . $|
000001B0: 38 39 43 45 00 C3 09 86 01 92 57 20 B2 20 24 38 |89CE......W . $8|
000001C0: 41 37 33 00 D4 09 90 01 57 53 45 54 20 B2 20 24 |A73.....WSET . $|
000001D0: 38 41 46 43 00 F1 09 9A 01 4C 44 41 20 23 24 30 |8AFC.....LDA #$0|
000001E0: 30 20 3B 20 49 4E 49 54 49 41 4C 49 53 49 45 8A |0 ; INITIALISIE.|
000001F0: 47 00 FB 09 A4 01 53 54 41 20 82 00 09 0A AE 01 |G.....STA ......|
00000200: 4C 44 41 20 23 B3 45 52 52 00 17 0A B8 01 53 54 |LDA #.ERR.....ST|
00000210: 41 20 24 30 33 30 30 00 25 0A C2 01 4C 44 41 20 |A $0300.%...LDA |
00000220: 23 B1 45 52 52 00 33 0A CC 01 53 54 41 20 24 30 |#.ERR.3...STA $0|
00000230: 33 30 31 00 50 0A D6 01 4C 44 41 20 23 24 31 30 |301.P...LDA #$10|
00000240: 20 3B 20 57 49 4E 44 4F 57 20 4F 45 46 A5 45 4E | ; WINDOW OEF.EN|
00000250: 00 5B 0A E0 01 53 54 41 20 57 57 00 68 0A EA 01 |.[...STA WW.h...|
00000260: 4C 44 58 20 23 24 31 30 00 75 0A F4 01 4C 44 59 |LDX #$10.u...LDY|
00000270: 20 23 24 30 38 00 82 0A FE 01 4C 44 41 20 23 24 | #$08.....LDA #$|
00000280: 30 43 00 8F 0A 08 02 4A 53 52 20 57 53 45 54 00 |0C.....JSR WSET.|
00000290: A0 0A 12 02 4C 44 41 20 23 B3 43 41 4C 43 54 49 |....LDA #.CALCTI|
000002A0: 00 B1 0A 1C 02 4C 44 59 20 23 B1 43 41 4C 43 54 |.....LDY #.CALCT|
000002B0: 49 00 C0 0A 26 02 4A 53 52 20 57 49 4E 44 4F 57 |I...&.JSR WINDOW|
000002C0: 00 D0 0A 30 02 4C 44 41 20 23 B3 43 41 4C 43 54 |...0.LDA #.CALCT|
000002D0: 00 E0 0A 3A 02 4C 44 59 20 23 B1 43 41 4C 43 54 |...:.LDY #.CALCT|
000002E0: 00 ED 0A 44 02 4A 53 52 20 EC 4F 55 54 00 11 0B |...D.JSR .OUT...|
000002F0: 4E 02 43 41 31 20 4A 53 52 20 92 57 20 3B 20 41 |N.CA1 JSR .W ; A|
00000300: 55 46 20 45 49 4E 47 41 42 45 20 57 41 52 54 45 |UF EINGABE WARTE|
00000310: 4E 00 1E 0B 58 02 43 4D 50 20 23 24 30 33 00 2A |N...X.CMP #$03.*|
00000320: 0B 62 02 42 43 43 20 43 41 31 00 37 0B 6C 02 43 |.b.BCC CA1.7.l.C|
00000330: 4D 50 20 23 24 46 46 00 43 0B 76 02 42 4E 45 20 |MP #$FF.C.v.BNE |
00000340: 43 41 32 00 53 0B 80 02 4A 53 52 20 44 4F 55 42 |CA2.S...JSR DOUB|
00000350: 4C 45 A1 00 63 0B 8A 02 4C 44 41 20 23 B3 24 45 |LE..c...LDA #.$E|
00000360: 33 38 42 00 71 0B 94 02 53 54 41 20 24 30 33 30 |38B.q...STA $030|
00000370: 30 00 81 0B 9E 02 4C 44 41 20 23 B1 24 45 33 38 |0.....LDA #.$E38|
00000380: 42 00 8F 0B A8 02 53 54 41 20 24 30 33 30 31 00 |B.....STA $0301.|
00000390: A7 0B B2 02 4A 4D 50 20 28 53 54 41 52 54 56 45 |....JMP (STARTVE|
000003A0: 43 29 20 3B 20 80 45 00 CC 0B BC 02 43 41 32 20 |C) ; .E.....CA2 |
000003B0: 4C 44 58 20 EB 20 3B 20 45 49 4E 47 41 42 45 4E |LDX . ; EINGABEN|
000003C0: 20 41 4E 41 4C 59 53 49 45 52 45 4E 00 D8 0B C6 | ANALYSIEREN....|
000003D0: 02 4C 44 59 20 43 4F 4C 00 E5 0B D0 02 4A 53 52 |.LDY COL.....JSR|
000003E0: 20 53 43 52 B9 00 F2 0B DA 02 4C 44 59 20 23 24 | SCR......LDY #$|
000003F0: 30 30 00 03 0C E4 02 4C 44 41 20 28 52 45 47 33 |00.....LDA (REG3|
00000400: 29 2C 59 00 10 0C EE 02 43 4D 50 20 23 24 31 45 |),Y.....CMP #$1E|
00000410: 00 1C 0C F8 02 42 45 51 20 43 41 37 00 29 0C 02 |.....BEQ CA7.)..|
00000420: 03 43 4D 50 20 23 22 43 22 00 33 0C 0C 03 42 45 |.CMP #"C".3...BE|
00000430: 51 20 E8 00 40 0C 16 03 43 4D 50 20 23 22 3D 22 |Q ..@...CMP #"="|
00000440: 00 4C 0C 20 03 42 45 51 20 45 52 47 00 59 0C 2A |.L. .BEQ ERG.Y.*|
00000450: 03 43 4D 50 20 23 22 28 22 00 65 0C 34 03 42 43 |.CMP #"(".e.4.BC|
00000460: 43 20 43 41 31 00 72 0C 3E 03 43 4D 50 20 23 22 |C CA1.r.>.CMP #"|
00000470: 3A 22 00 7E 0C 48 03 42 43 53 20 43 41 31 00 8F |:".~.H.BCS CA1..|
00000480: 0C 52 03 43 41 37 20 4C 44 59 20 23 24 30 30 00 |.R.CA7 LDY #$00.|
00000490: 9B 0C 5C 03 53 54 41 20 B8 45 31 00 AE 0C 66 03 |..\.STA .E1...f.|
000004A0: 43 41 33 20 4C 44 41 20 54 41 42 31 2C 59 00 BA |CA3 LDA TAB1,Y..|
000004B0: 0C 70 03 42 45 51 20 43 41 35 00 C6 0C 7A 03 43 |.p.BEQ CA5...z.C|
000004C0: 4D 50 20 B8 45 31 00 D2 0C 84 03 42 45 51 20 43 |MP .E1.....BEQ C|
000004D0: 41 34 00 DA 0C 8E 03 49 4E 59 00 E6 0C 98 03 42 |A4.....INY.....B|
000004E0: 4E 45 20 43 41 33 00 F9 0C A2 03 43 41 34 20 4C |NE CA3.....CA4 L|
000004F0: 44 41 20 54 41 42 32 2C 59 00 05 0D AC 03 42 4E |DA TAB2,Y.....BN|
00000500: 45 20 43 41 36 00 15 0D B6 03 43 41 35 20 4C 44 |E CA6.....CA5 LD|
00000510: 41 20 B8 45 31 00 22 0D C0 03 43 4D 50 20 23 22 |A .E1."...CMP #"|
00000520: 20 22 00 2E 0D CA 03 42 45 51 20 43 41 31 00 3C | ".....BEQ CA1.<|
00000530: 0D D4 03 43 41 36 20 4A 53 52 20 EA 00 49 0D DE |...CA6 JSR ..I..|
00000540: 03 43 4D 50 20 23 24 38 30 00 55 0D E8 03 42 43 |.CMP #$80.U...BC|
00000550: 53 20 43 41 58 00 62 0D F2 03 43 4D 50 20 23 22 |S CAX.b...CMP #"|
00000560: 28 22 00 6E 0D FC 03 42 45 51 20 43 41 58 00 7B |(".n...BEQ CAX.{|
00000570: 0D 06 04 43 4D 50 20 23 22 29 22 00 87 0D 10 04 |...CMP #")".....|
00000580: 42 45 51 20 43 41 58 00 97 0D 1A 04 4A 53 52 20 |BEQ CAX.....JSR |
00000590: 44 49 53 50 4C 41 59 00 A3 0D 24 04 42 43 53 20 |DISPLAY...$.BCS |
000005A0: 43 41 31 00 B2 0D 2E 04 43 41 4C 43 20 4C 44 59 |CA1.....CALC LDY|
000005B0: 20 82 00 C5 0D 38 04 53 54 41 20 42 55 46 46 45 | ....8.STA BUFFE|
000005C0: 52 AA 31 2C 59 00 CF 0D 42 04 49 4E 43 20 82 00 |R.1,Y...B.INC ..|
000005D0: DB 0D 4C 04 42 45 51 20 45 52 47 00 06 0E 56 04 |..L.BEQ ERG...V.|
000005E0: 4A 4D 50 20 43 41 31 20 3B 20 45 49 4E 47 41 42 |JMP CA1 ; EINGAB|
000005F0: 45 4E 20 49 4D 20 50 55 46 46 45 52 20 53 50 45 |EN IM PUFFER SPE|
00000600: 49 43 48 45 52 4E 00 26 0E 60 04 E8 20 4A 53 52 |ICHERN.&.`.. JSR|
00000610: 20 EA 20 3B 20 45 49 4E 47 41 42 45 4E 20 4C 4F | . ; EINGABEN LO|
00000620: 45 53 43 48 45 4E 00 33 0E 6A 04 4C 44 41 20 23 |ESCHEN.3.j.LDA #|
00000630: 24 30 30 00 3D 0E 74 04 53 54 41 20 82 00 49 0E |$00.=.t.STA ..I.|
00000640: 7E 04 4A 53 52 20 E8 49 54 00 55 0E 88 04 4A 4D |~.JSR .IT.U...JM|
00000650: 50 20 43 41 31 00 61 0E 92 04 43 41 58 20 50 48 |P CA1.a...CAX PH|
00000660: 41 00 6D 0E 9C 04 4A 53 52 20 E8 49 54 00 75 0E |A.m...JSR .IT.u.|
00000670: A6 04 50 4C 41 00 82 0E B0 04 4A 4D 50 20 43 41 |..PLA.....JMP CA|
00000680: 4C 43 00 A5 0E BA 04 45 52 47 20 4A 53 52 20 EA |LC.....ERG JSR .|
00000690: 20 3B 20 45 52 47 45 42 4E 49 53 20 42 45 52 45 | ; ERGEBNIS BERE|
000006A0: 43 48 4E 45 4E 00 B1 0E C4 04 4A 53 52 20 E8 49 |CHNEN.....JSR .I|
000006B0: 54 00 BE 0E CE 04 4C 44 41 20 23 24 30 30 00 C8 |T.....LDA #$00..|
000006C0: 0E D8 04 4C 44 59 20 82 00 DB 0E E2 04 53 54 41 |...LDY ......STA|
000006D0: 20 42 55 46 46 45 52 AA 31 2C 59 00 EE 0E EC 04 | BUFFER.1,Y.....|
000006E0: 4C 44 41 20 23 B3 42 55 46 46 45 52 AA 31 00 01 |LDA #.BUFFER.1..|
000006F0: 0F F6 04 4C 44 59 20 23 B1 42 55 46 46 45 52 AA |...LDY #.BUFFER.|
00000700: 31 00 0D 0F 00 05 53 54 41 20 24 37 41 00 19 0F |1.....STA $7A...|
00000710: 0A 05 53 54 59 20 24 37 42 00 27 0F 14 05 4A 53 |..STY $7B.'...JS|
00000720: 52 20 24 41 44 38 41 00 34 0F 1E 05 4C 44 41 20 |R $AD8A.4...LDA |
00000730: 23 22 13 22 00 3E 0F 28 05 4A 53 52 20 99 00 4C |#".".>.(.JSR ..L|
00000740: 0F 32 05 4A 53 52 20 24 42 44 44 44 00 59 0F 3C |.2.JSR $BDDD.Y.<|
00000750: 05 53 54 41 20 52 45 47 31 00 66 0F 46 05 53 54 |.STA REG1.f.F.ST|
00000760: 59 20 52 45 47 32 00 73 0F 50 05 4C 44 59 20 23 |Y REG2.s.P.LDY #|
00000770: 24 30 30 00 89 0F 5A 05 45 52 47 31 20 4C 44 41 |$00...Z.ERG1 LDA|
00000780: 20 28 52 45 47 31 29 2C 59 00 96 0F 64 05 42 45 | (REG1),Y...d.BE|
00000790: 51 20 45 52 47 32 00 9E 0F 6E 05 49 4E 59 00 AB |Q ERG2...n.INY..|
000007A0: 0F 78 05 42 4E 45 20 45 52 47 31 00 BC 0F 82 05 |.x.BNE ERG1.....|
000007B0: 45 52 47 32 20 53 54 59 20 B8 45 31 00 CA 0F 8C |ERG2 STY .E1....|
000007C0: 05 4C 44 41 20 52 55 43 4F 4C 00 D2 0F 96 05 53 |.LDA RUCOL.....S|
000007D0: 45 43 00 DE 0F A0 05 53 42 43 20 B8 45 31 00 E6 |EC.....SBC .E1..|
000007E0: 0F AA 05 54 41 59 00 EE 0F B4 05 49 4E 59 00 FA |...TAY.....INY..|
000007F0: 0F BE 05 4C 44 58 20 4C 4F EB 00 02 10 C8 05 43 |...LDX LO......C|
00000800: 4C 43 00 10 10 D2 05 4A 53 52 20 24 46 46 46 30 |LC.....JSR $FFF0|
00000810: 00 1D 10 DC 05 4C 44 41 20 52 45 47 31 00 2A 10 |.....LDA REG1.*.|
00000820: E6 05 4C 44 59 20 52 45 47 32 00 38 10 F0 05 4A |..LDY REG2.8...J|
00000830: 53 52 20 24 41 42 31 45 00 4A 10 FA 05 45 52 47 |SR $AB1E.J...ERG|
00000840: 33 20 4C 44 41 20 46 49 52 45 00 57 10 04 06 42 |3 LDA FIRE.W...B|
00000850: 45 51 20 45 52 47 33 00 64 10 0E 06 4C 44 41 20 |EQ ERG3.d...LDA |
00000860: 23 24 30 30 00 6E 10 18 06 53 54 41 20 82 00 7A |#$00.n...STA ..z|
00000870: 10 22 06 4A 53 52 20 E8 49 54 00 86 10 2C 06 4A |.".JSR .IT...,.J|
00000880: 4D 50 20 43 41 31 00 97 10 36 06 45 52 52 20 4C |MP CA1...6.ERR L|
00000890: 44 41 20 23 22 13 22 00 A1 10 40 06 4A 53 52 20 |DA #"."...@.JSR |
000008A0: 99 00 B0 10 4A 06 4C 44 41 20 23 B3 45 52 52 B0 |....J.LDA #.ERR.|
000008B0: 00 BF 10 54 06 4C 44 59 20 23 B1 45 52 52 B0 00 |...T.LDY #.ERR..|
000008C0: CC 10 5E 06 4A 53 52 20 EC 4F 55 54 00 DE 10 68 |..^.JSR .OUT...h|
000008D0: 06 4C 44 41 20 23 B3 43 4C 54 58 54 AA 36 00 F0 |.LDA #.CLTXT.6..|
000008E0: 10 72 06 4C 44 59 20 23 B1 43 4C 54 58 54 AA 36 |.r.LDY #.CLTXT.6|
000008F0: 00 FD 10 7C 06 4A 53 52 20 EC 4F 55 54 00 0C 11 |...|.JSR .OUT...|
00000900: 86 06 4A 53 52 20 57 34 46 49 52 45 00 18 11 90 |..JSR W4FIRE....|
00000910: 06 4A 4D 50 20 E8 AA 33 00 33 11 9A 06 EA 20 50 |.JMP ..3.3.... P|
00000920: 48 41 20 3B 20 22 54 41 53 54 45 22 20 EA 49 45 |HA ; "TASTE" .IE|
00000930: 52 45 4E 00 40 11 A4 06 4C 44 59 20 23 24 30 30 |REN.@...LDY #$00|
00000940: 00 51 11 AE 06 4C 44 41 20 28 52 45 47 33 29 2C |.Q...LDA (REG3),|
00000950: 59 00 5D 11 B8 06 45 B0 20 23 24 38 30 00 6E 11 |Y.]...E. #$80.n.|
00000960: C2 06 53 54 41 20 28 52 45 47 33 29 2C 59 00 78 |..STA (REG3),Y.x|
00000970: 11 CC 06 4A 53 52 20 92 00 89 11 D6 06 4C 44 41 |...JSR ......LDA|
00000980: 20 28 52 45 47 33 29 2C 59 00 95 11 E0 06 45 B0 | (REG3),Y.....E.|
00000990: 20 23 24 38 30 00 A6 11 EA 06 53 54 41 20 28 52 | #$80.....STA (R|
000009A0: 45 47 33 29 2C 59 00 AE 11 F4 06 50 4C 41 00 B6 |EG3),Y.....PLA..|
000009B0: 11 FE 06 52 54 53 00 C3 11 08 07 3B 20 54 41 42 |...RTS.....; TAB|
000009C0: 45 4C C3 00 E3 11 12 07 43 41 4C 43 54 20 2E C6 |EL......CALCT ..|
000009D0: 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | " |
000009E0: 20 20 22 00 F4 11 1C 07 2E 42 59 54 20 24 30 44 | "......BYT $0D|
000009F0: 2C 24 30 44 00 0E 12 26 07 2E C6 20 22 20 B9 A3 |,$0D...&... " ..|
00000A00: A3 A3 A3 A3 B8 20 20 B9 A3 A3 A3 B8 20 22 00 28 |..... ..... ".(|
00000A10: 12 30 07 2E C6 20 22 20 B4 37 20 38 20 39 B5 20 |.0... " .7 8 9. |
00000A20: 20 B4 28 20 29 B5 20 22 00 42 12 3A 07 2E C6 20 | .( ). ".B.:... |
00000A30: 22 20 B4 20 20 20 20 20 B5 20 20 B4 20 20 20 B5 |" . . . .|
00000A40: 20 22 00 5C 12 44 07 2E C6 20 22 20 B4 34 20 35 | ".\.D... " .4 5|
00000A50: 20 36 B5 20 20 B4 5E 20 C3 B5 20 22 00 76 12 4E | 6. .^ .. ".v.N|
00000A60: 07 2E C6 20 22 20 B4 20 20 20 20 20 B5 20 20 B4 |... " . . .|
00000A70: 20 20 20 B5 20 22 00 90 12 58 07 2E C6 20 22 20 | . "...X... " |
00000A80: B4 31 20 32 20 33 B5 20 20 B4 2A 20 2F B5 20 22 |.1 2 3. .* /. "|
00000A90: 00 AA 12 62 07 2E C6 20 22 20 B4 20 20 20 20 20 |...b... " . |
00000AA0: B5 20 20 B4 20 20 20 B5 20 22 00 C4 12 6C 07 2E |. . . "...l..|
00000AB0: C6 20 22 20 B4 30 20 2E 20 3D B5 20 20 B4 2B 20 |. " .0 . =. .+ |
00000AC0: 2D B5 20 22 00 DD 12 76 07 2E C6 20 22 20 AD A4 |-. "...v... " ..|
00000AD0: A4 A4 A4 A4 B3 20 20 AD A4 A4 A4 B3 22 00 EA 12 |..... ....."...|
00000AE0: 80 07 2E 42 59 54 20 24 30 30 00 0A 13 8A 07 54 |...BYT $00.....T|
00000AF0: 41 42 31 20 2E C6 20 22 2B 2D 2A 2F 22 3A 2E 42 |AB1 .. "+-*/":.B|
00000B00: 59 54 20 24 31 45 2C 24 30 30 00 2C 13 94 07 54 |YT $1E,$00.,...T|
00000B10: 41 42 32 20 2E 42 59 54 20 24 41 41 2C 24 41 42 |AB2 .BYT $AA,$AB|
00000B20: 2C 24 41 43 2C 24 41 44 2C 24 41 45 00 56 13 9E |,$AC,$AD,$AE.V..|
00000B30: 07 43 4C 54 58 54 20 2E C6 20 22 13 20 20 20 20 |.CLTXT .. ". |
00000B40: 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 2E 42 | ":.B|
00000B50: 59 54 20 24 30 30 00 7A 13 A8 07 43 41 4C 43 54 |YT $00.z...CALCT|
00000B60: 49 20 2E C6 20 22 C3 41 4C 43 55 4C 41 54 4F 52 |I .. ".ALCULATOR|
00000B70: 22 3A 2E 42 59 54 20 24 30 30 00 A3 13 B2 07 44 |":.BYT $00.....D|
00000B80: 49 53 50 4C 41 59 20 4C 44 41 20 24 30 35 41 31 |ISPLAY LDA $05A1|
00000B90: 20 3B 20 45 49 4E 47 41 42 45 20 41 4E 5A 45 49 | ; EINGABE ANZEI|
00000BA0: 47 45 4E 00 B0 13 BC 07 43 4D 50 20 23 22 20 22 |GEN.....CMP #" "|
00000BB0: 00 BD 13 C6 07 42 4E 45 20 89 45 52 47 00 CA 13 |.....BNE .ERG...|
00000BC0: D0 07 4C 44 59 20 23 24 30 30 00 E0 13 DA 07 44 |..LDY #$00.....D|
00000BD0: 49 53 50 31 20 4C 44 41 20 24 30 35 41 32 2C 59 |ISP1 LDA $05A2,Y|
00000BE0: 00 F0 13 E4 07 53 54 41 20 24 30 35 41 31 2C 59 |.....STA $05A1,Y|
00000BF0: 00 F8 13 EE 07 49 4E 59 00 05 14 F8 07 43 50 59 |.....INY.....CPY|
00000C00: 20 23 24 30 46 00 13 14 02 08 42 4E 45 20 44 49 | #$0F.....BNE DI|
00000C10: 53 50 31 00 20 14 0C 08 4C 44 59 20 23 24 30 30 |SP1. ...LDY #$00|
00000C20: 00 31 14 16 08 4C 44 41 20 28 52 45 47 33 29 2C |.1...LDA (REG3),|
00000C30: 59 00 3F 14 20 08 53 54 41 20 24 30 35 42 30 00 |Y.?. .STA $05B0.|
00000C40: 47 14 2A 08 43 4C 43 00 4F 14 34 08 52 54 53 00 |G.*.CLC.O.4.RTS.|
00000C50: 5C 14 3E 08 89 45 52 47 20 53 45 43 00 64 14 48 |\.>..ERG SEC.d.H|
00000C60: 08 52 54 53 00 8F 14 52 08 E8 49 54 20 4C 44 41 |.RTS...R..IT LDA|
00000C70: 20 23 B3 43 4C 54 58 54 20 3B 20 45 49 4E 47 41 | #.CLTXT ; EINGA|
00000C80: 42 45 46 45 4C 44 20 4C 4F 45 53 43 48 45 4E 00 |BEFELD LOESCHEN.|
00000C90: 9F 14 5C 08 4C 44 59 20 23 B1 43 4C 54 58 54 00 |..\.LDY #.CLTXT.|
00000CA0: AC 14 66 08 4A 4D 50 20 EC 4F 55 54 00 E4 14 70 |..f.JMP .OUT...p|
00000CB0: 08 42 55 46 46 45 52 20 2E 42 59 54 20 24 46 46 |.BUFFER .BYT $FF|
00000CC0: 20 3B 20 42 45 47 49 4E 20 45 49 4E 47 41 42 45 | ; BEGIN EINGABE|
00000CD0: 50 55 46 46 45 52 20 28 32 35 35 20 5A 45 49 43 |PUFFER (255 ZEIC|
00000CE0: 48 45 4E 29 00 00 00 |HEN)... |
....D.L...N... $C000. .X..OPT OO.,...;KE
RNAL.:.... . $FFD2.E...;ZERO..T. .FIRE .
$03.`.... . $F7.N...COL . $F8.}...REG1
. $FB...H.REG2 . $FC...R.REG3 . $FD.....
.E1 . $02...... . $0258.G...LO. . $03F8.
Y...RUCOL . $03F9.....WW . $03F6.....STA
RTVEC . $0311.....;S.STIGE...".;FANTASY.
(.,..OUT . $7D00.9.6..OUT . $7D31.J.@.SC
R. . $7DF9.].J.WINDOW . $817A.N.T.SCR. .
$7EFA...^.W4FIRE . $80D2...H.. . $889F.
..R.DOUBLE. . $88E4...|.ERR. . $89CE.C..
..W . $8A73.T...WSET . $8AFC.....LDA #$0
0 ; INITIALISIE.G.....STA ......LDA #.ER
R.....STA $0300.%.B.LDA #.ERR.3.L.STA $0
301.P.V.LDA #$10 ; WINDOW OEF.EN.[...STA
WW.H...LDX #$10.U...LDY #$08.....LDA #$
0C.....JSR WSET. ...LDA #.CALCTI.....LDY
#.CALCTI...&.JSR WINDOW.P.0.LDA #.CALCT
...:.LDY #.CALCT...D.JSR .OUT...N.CA1 JS
R .W ; AUF EINGABE WARTEN...X.CMP #$03.*
.B.BCC CA1.7.L.CMP #$FF.C.V.BNE CA2.S...
JSR DOUBLE..C...LDA #.$E38B.Q...STA $030
0.....LDA #.$E38B.....STA $0301.....JMP
(STARTVEC) ; .E.L...CA2 LDX . ; EINGABEN
ANALYSIEREN.X.F.LDY COL...P.JSR SCR....
Z.LDY #$00.....LDA (REG3),Y.....CMP #$1E
.....BEQ CA7.)...CMP #"C".3...BEQ ..@...
CMP #"=".L. .BEQ ERG.Y.*.CMP #"(".E.4.BC
C CA1.R.>.CMP #":".~.H.BCS CA1...R.CA7 L
DY #$00...\.STA .E1...F.CA3 LDA TAB1,Y..
.P.BEQ CA5.F.Z.CMP .E1.R...BEQ CA4.Z...I
NY.....BNE CA3.....CA4 LDA TAB2,Y.....BN
E CA6.....CA5 LDA .E1."...CMP #" "...J.B
EQ CA1.<.T.CA6 JSR ..I...CMP #$80.U...BC
S CAX.B...CMP #"(".N...BEQ CAX.{...CMP #
")".....BEQ CAX.....JSR DISPLAY...$.BCS
CA1.....CALC LDY ..E.8.STA BUFFER.1,Y.O.
B.INC ....L.BEQ ERG...V.JMP CA1 ; EINGAB
EN IM PUFFER SPEICHERN.&.`.. JSR . ; EIN
GABEN LOESCHEN.3.J.LDA #$00.=.T.STA ..I.
~.JSR .IT.U...JMP CA1.A...CAX PHA.M...JS
R .IT.U...PLA.....JMP CALC.....ERG JSR .
; ERGEBNIS BERECHNEN...D.JSR .IT...N.LD
A #$00.H.X.LDY ......STA BUFFER.1,Y.....
LDA #.BUFFER.1.....LDY #.BUFFER.1.....ST
A $7A.....STY $7B.'...JSR $AD8A.4...LDA
#".".>.(.JSR ..L.2.JSR $BDDD.Y.<.STA REG
1.F.F.STY REG2.S.P.LDY #$00...Z.ERG1 LDA
(REG1),Y...D.BEQ ERG2...N.INY...X.BNE E
RG1.....ERG2 STY .E1.J...LDA RUCOL.R...S
EC... .SBC .E1.....TAY.....INY.....LDX L
O....H.CLC...R.JSR $FFF0.....LDA REG1.*.
..LDY REG2.8...JSR $AB1E.J...ERG3 LDA FI
RE.W...BEQ ERG3.D...LDA #$00.N...STA ..Z
.".JSR .IT...,.JMP CA1...6.ERR LDA #".".
..@.JSR ....J.LDA #.ERR....T.LDY #.ERR..
L.^.JSR .OUT...H.LDA #.CLTXT.6...R.LDY #
.CLTXT.6...|.JSR .OUT.....JSR W4FIRE....
.JMP ..3.3.... PHA ; "TASTE" .IEREN.@...
LDY #$00.Q...LDA (REG3),Y.]...E. #$80.N.
B.STA (REG3),Y.X.L.JSR ....V.LDA (REG3),
Y.....E. #$80.....STA (REG3),Y.....PLA..
...RTS.C...; TABELC.....CALCT .F "
"......BYT $0D,$0D...&..F " ..
..... ..... ".(.0..F " .7 8 9. .( ). "
.B.:..F " . . . . ".\.D..F " .4 5
6. .^ C. ".V.N..F " . . . . "..
.X..F " .1 2 3. .* /. "...B..F " .
. . . ".D.L..F " .0 . =. .+ -. "...V
..F " ....... ....."......BYT $00.....T
AB1 .F "+-*/":.BYT $1E,$00.,...TAB2 .BYT
$AA,$AB,$AC,$AD,$AE.V...CLTXT .F ".
":.BYT $00.Z...CALCTI .F "CA
LCULATOR":.BYT $00.....DISPLAY LDA $05A1
; EINGABE ANZEIGEN.....CMP #" "...F.BNE
.ERG.J.P.LDY #$00...Z.DISP1 LDA $05A2,Y
.....STA $05A1,Y.....INY.....CPY #$0F...
..BNE DISP1. ...LDY #$00.1...LDA (REG3),
Y.?. .STA $05B0.G.*.CLC.O.4.RTS.\.>..ERG
SEC.D.H.RTS...R..IT LDA #.CLTXT ; EINGA
BEFELD LOESCHEN...\.LDY #.CLTXT...F.JMP
.OUT...P.BUFFER .BYT $FF ; BEGIN EINGABE
PUFFER (255 ZEICHEN)...
> CLICK IMAGE PREVIEW FOR FULL MODAL