LINEASS.ASM
FILE INFORMATION
FILENAME(S): LINEASS.ASM
FILE TYPE(S): SEQ
FILE SIZE: 30.5K
FIRST SEEN: 2025-10-20 00:37:12
APPEARS ON: 2 disk(s)
FILE HASH
a60d3514a594f57a86bf889546c2f8be049d29a7041d6e1fbd8a5d40e17d8c4c
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RUN SPEZIAL 1 | LINEASS.ASM | SEQ | Treasure Chest - Holger | 15 | 0 | DOWNLOAD FILE |
| RUN SPEZIAL 1 | LINEASS.ASM | SEQ | Treasure Chest - Plattfuss | 15 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 2E 50 52 4E 54 20 27 4F 42 4A | .PRNT 'OBJ| 00000010: 45 4B 54 43 4F 44 45 20 41 42 20 24 43 30 30 30 |EKTCODE AB $C000| 00000020: 2C 20 27 0D 20 20 20 20 20 20 2E 49 4E 50 54 20 |, '. .INPT | 00000030: 27 53 54 41 52 54 41 44 52 45 53 53 45 3D 3F 20 |'STARTADRESSE=? | 00000040: 27 2C 53 54 41 52 54 0D 20 20 20 20 20 20 2E 4F |',START. .O| 00000050: 46 46 53 20 24 43 30 30 30 20 2D 20 53 54 41 52 |FFS $C000 - STAR| 00000060: 54 0D 20 20 20 20 20 20 2A 3D 20 53 54 41 52 54 |T. *= START| 00000070: 0D 53 54 41 54 55 53 3D 24 39 30 0D 53 41 20 20 |.STATUS=$90.SA | 00000080: 20 20 3D 24 42 39 0D 47 41 20 20 20 20 3D 24 42 | =$B9.GA =$B| 00000090: 41 0D 54 42 55 46 46 20 3D 24 30 32 37 37 0D 49 |A.TBUFF =$0277.I| 000000A0: 52 51 56 20 20 3D 24 30 33 31 34 0D 42 52 4B 56 |RQV =$0314.BRKV| 000000B0: 20 20 3D 24 30 33 31 36 0D 42 4F 52 44 45 52 3D | =$0316.BORDER=| 000000C0: 24 44 30 32 30 0D 53 43 52 45 45 4E 3D 24 44 30 |$D020.SCREEN=$D0| 000000D0: 32 31 0D 47 43 48 41 52 20 3D 24 46 31 35 42 0D |21.GCHAR =$F15B.| 000000E0: 53 45 43 54 4C 4B 3D 24 46 46 39 36 0D 49 45 43 |SECTLK=$FF96.IEC| 000000F0: 49 4E 20 3D 24 46 46 41 35 0D 55 4E 54 4C 4B 20 |IN =$FFA5.UNTLK | 00000100: 3D 24 46 46 41 42 0D 54 41 4C 4B 20 20 3D 24 46 |=$FFAB.TALK =$F| 00000110: 46 42 34 0D 53 45 54 50 41 52 3D 24 46 46 42 41 |FB4.SETPAR=$FFBA| 00000120: 0D 53 45 54 4E 41 4D 3D 24 46 46 42 44 0D 4F 50 |.SETNAM=$FFBD.OP| 00000130: 45 4E 20 20 3D 24 46 46 43 30 0D 43 4C 4F 53 45 |EN =$FFC0.CLOSE| 00000140: 20 3D 24 46 46 43 33 0D 42 53 4F 55 54 20 3D 24 | =$FFC3.BSOUT =$| 00000150: 46 46 44 32 0D 43 4C 4F 41 44 20 3D 24 46 46 44 |FFD2.CLOAD =$FFD| 00000160: 35 0D 43 53 41 56 45 20 3D 24 46 46 44 38 0D 53 |5.CSAVE =$FFD8.S| 00000170: 54 4B 45 59 20 3D 24 46 46 45 31 0D 43 4C 41 4C |TKEY =$FFE1.CLAL| 00000180: 4C 20 3D 24 46 46 45 37 0D 20 20 20 20 20 20 4C |L =$FFE7. L| 00000190: 44 41 20 23 24 30 30 20 20 20 20 3B D2 45 47 49 |DA #$00 ;.EGI| 000001A0: 53 54 45 52 20 53 45 54 5A 45 4E 0D 20 20 20 20 |STER SETZEN. | 000001B0: 20 20 53 54 41 20 41 43 0D 20 20 20 20 20 20 53 | STA AC. S| 000001C0: 54 41 20 59 52 0D 20 20 20 20 20 20 53 54 41 20 |TA YR. STA | 000001D0: 58 52 0D 20 20 20 20 20 20 53 54 41 20 50 43 0D |XR. STA PC.| 000001E0: 20 20 20 20 20 20 53 54 41 20 50 43 2B 31 0D 20 | STA PC+1. | 000001F0: 20 20 20 20 20 53 54 41 20 24 35 43 0D 20 20 20 | STA $5C. | 00000200: 20 20 20 53 54 41 20 24 35 44 0D 20 20 20 20 20 | STA $5D. | 00000210: 20 4C 44 58 20 23 24 46 38 0D 20 20 20 20 20 20 | LDX #$F8. | 00000220: 53 54 58 20 53 50 0D 20 20 20 20 20 20 50 48 50 |STX SP. PHP| 00000230: 0D 20 20 20 20 20 20 50 4C 41 0D 20 20 20 20 20 |. PLA. | 00000240: 20 53 54 41 20 50 53 0D 20 20 20 20 20 20 4A 53 | STA PS. JS| 00000250: 52 20 4D 45 53 53 20 20 20 20 3B D3 54 41 52 54 |R MESS ;.TART| 00000260: 4D 45 4C 44 55 4E 47 0D 20 20 20 20 20 20 4C 44 |MELDUNG. LD| 00000270: 41 20 23 3C 42 52 45 41 4B 20 3B C2 52 45 41 4B |A #<BREAK ;.REAK| 00000280: 20 53 45 54 5A 45 4E 0D 20 20 20 20 20 20 53 54 | SETZEN. ST| 00000290: 41 20 42 52 4B 56 0D 20 20 20 20 20 20 4C 44 41 |A BRKV. LDA| 000002A0: 20 23 3E 42 52 45 41 4B 0D 20 20 20 20 20 20 53 | #>BREAK. S| 000002B0: 54 41 20 42 52 4B 56 2B 31 0D 20 20 20 20 20 20 |TA BRKV+1. | 000002C0: 4C 44 41 20 23 24 30 38 0D 20 20 20 20 20 20 53 |LDA #$08. S| 000002D0: 54 41 20 44 45 56 49 43 45 0D 43 4F 4D 4D 20 20 |TA DEVICE.COMM | 000002E0: 4C 44 58 20 53 50 0D 20 20 20 20 20 20 54 58 53 |LDX SP. TXS| 000002F0: 0D 20 20 20 20 20 20 4A 53 52 20 50 52 4D 50 54 |. JSR PRMPT| 00000300: 20 20 20 3B D0 52 4F 4D 50 54 20 44 52 55 43 4B | ;.ROMPT DRUCK| 00000310: 45 4E 0D 20 20 20 20 20 20 4C 44 58 20 23 24 30 |EN. LDX #$0| 00000320: 30 20 20 20 20 3B C5 49 4E 47 41 42 45 20 56 4F |0 ;.INGABE VO| 00000330: 4D 20 C2 49 4C 44 2D 0D 49 4E 20 20 20 20 4A 53 |M .ILD-.IN JS| 00000340: 52 20 47 43 48 41 52 20 20 20 3B 53 43 48 49 52 |R GCHAR ;SCHIR| 00000350: 4D 20 49 4E 20 D0 55 46 46 45 52 0D 20 20 20 20 |M IN .UFFER. | 00000360: 20 20 53 54 41 20 24 30 32 30 30 2C 58 0D 20 20 | STA $0200,X. | 00000370: 20 20 20 20 49 4E 58 0D 20 20 20 20 20 20 43 4D | INX. CM| 00000380: 50 20 23 24 30 44 0D 20 20 20 20 20 20 42 4E 45 |P #$0D. BNE| 00000390: 20 49 4E 0D 20 20 20 20 20 20 4C 44 41 20 23 24 | IN. LDA #$| 000003A0: 30 30 0D 20 20 20 20 20 20 53 54 41 20 24 30 31 |00. STA $01| 000003B0: 46 46 2C 58 0D 20 20 20 20 20 20 4C 44 41 20 23 |FF,X. LDA #| 000003C0: 24 46 46 20 20 20 20 3B D4 45 53 54 20 41 55 46 |$FF ;.EST AUF| 000003D0: 20 4C 45 45 52 45 0D 20 20 20 20 20 20 53 54 41 | LEERE. STA| 000003E0: 20 45 50 4F 49 4E 20 20 20 3B DA 45 49 4C 45 0D | EPOIN ;.EILE.| 000003F0: 47 45 54 31 20 20 4A 53 52 20 45 47 45 54 0D 20 |GET1 JSR EGET. | 00000400: 20 20 20 20 20 42 45 51 20 43 4F 4D 4D 0D 20 20 | BEQ COMM. | 00000410: 20 20 20 20 43 4D 50 20 23 27 3E 20 20 20 20 20 | CMP #'> | 00000420: 3B D4 45 53 54 20 41 55 46 20 D0 52 4F 4D 50 54 |;.EST AUF .ROMPT| 00000430: 0D 20 20 20 20 20 20 42 45 51 20 47 45 54 31 0D |. BEQ GET1.| 00000440: 20 20 20 20 20 20 4C 44 58 20 23 24 30 46 20 20 | LDX #$0F | 00000450: 20 20 3B C2 45 46 45 48 4C 53 41 55 53 57 45 52 | ;.EFEHLSAUSWER| 00000460: 54 55 4E 47 0D 43 4F 4D 31 20 20 43 4D 50 20 43 |TUNG.COM1 CMP C| 00000470: 4F 4D 4D 54 2C 58 0D 20 20 20 20 20 20 42 45 51 |OMMT,X. BEQ| 00000480: 20 43 4F 4D 32 0D 20 20 20 20 20 20 44 45 58 0D | COM2. DEX.| 00000490: 20 20 20 20 20 20 42 50 4C 20 43 4F 4D 31 0D 20 | BPL COM1. | 000004A0: 20 20 20 20 20 49 4E 58 0D 20 20 20 20 20 20 4A | INX. J| 000004B0: 4D 50 20 45 52 52 4F 52 20 20 20 3B C3 CD 2D C5 |MP ERROR ;..-.| 000004C0: 52 4F 4F 52 0D 43 4F 4D 32 20 20 54 58 41 20 20 |ROOR.COM2 TXA | 000004D0: 20 20 20 20 20 20 20 3B C2 45 46 45 48 4C 53 41 | ;.EFEHLSA| 000004E0: 44 52 45 53 53 45 0D 20 20 20 20 20 20 41 53 4C |DRESSE. ASL| 000004F0: 20 41 20 20 20 20 20 20 20 3B 48 4F 4C 45 4E 0D | A ;HOLEN.| 00000500: 20 20 20 20 20 20 54 41 58 0D 20 20 20 20 20 20 | TAX. | 00000510: 4A 53 52 20 43 4F 4D 33 0D 20 20 20 20 20 20 4A |JSR COM3. J| 00000520: 4D 50 20 43 4F 4D 4D 0D 43 4F 4D 33 20 20 4C 44 |MP COMM.COM3 LD| 00000530: 41 20 43 4F 4D 4D 41 2B 31 2C 58 20 3B C2 45 46 |A COMMA+1,X ;.EF| 00000540: 45 48 4C 20 41 55 53 46 55 45 48 52 45 4E 0D 20 |EHL AUSFUEHREN. | 00000550: 20 20 20 20 20 50 48 41 0D 20 20 20 20 20 20 4C | PHA. L| 00000560: 44 41 20 43 4F 4D 4D 41 2C 58 0D 20 20 20 20 20 |DA COMMA,X. | 00000570: 20 50 48 41 0D 20 20 20 20 20 20 52 54 53 0D 43 | PHA. RTS.C| 00000580: 4F 4D 4D 54 20 2E 54 45 58 54 20 22 40 42 43 44 |OMMT .TEXT "@BCD| 00000590: 45 46 47 48 4C 4D 51 52 53 54 56 58 22 0D 43 4F |EFGHLMQRSTVX".CO| 000005A0: 4D 4D 41 20 2E 57 4F 52 44 20 44 4F 53 2D 31 2C |MMA .WORD DOS-1,| 000005B0: 42 49 4E 2D 31 2C 43 48 52 2D 31 2C 44 41 53 53 |BIN-1,CHR-1,DASS| 000005C0: 2D 31 0D 20 20 20 20 20 20 2E 57 4F 52 44 20 45 |-1. .WORD E| 000005D0: 58 45 43 2D 31 2C 46 49 4C 4C 2D 31 2C 47 4F 2D |XEC-1,FILL-1,GO-| 000005E0: 31 2C 48 55 4E 54 2D 31 0D 20 20 20 20 20 20 2E |1,HUNT-1. .| 000005F0: 57 4F 52 44 20 4C 4F 41 44 2D 31 2C 4D 45 4D 2D |WORD LOAD-1,MEM-| 00000600: 31 2C 51 55 49 54 2D 31 2C 52 45 47 2D 31 0D 20 |1,QUIT-1,REG-1. | 00000610: 20 20 20 20 20 2E 57 4F 52 44 20 53 41 56 45 2D | .WORD SAVE-| 00000620: 31 2C 54 52 41 4E 2D 31 2C 56 45 52 49 2D 31 2C |1,TRAN-1,VERI-1,| 00000630: 45 58 49 54 2D 31 0D 43 48 4F 55 54 20 4A 53 52 |EXIT-1.CHOUT JSR| 00000640: 20 42 53 4F 55 54 20 20 20 3B DA 45 49 43 48 45 | BSOUT ;.EICHE| 00000650: 4E 20 41 55 53 47 45 42 45 4E 0D 20 20 20 20 20 |N AUSGEBEN. | 00000660: 20 50 48 41 0D 20 20 20 20 20 20 4A 53 52 20 53 | PHA. JSR S| 00000670: 54 4B 45 59 0D 20 20 20 20 20 20 42 4E 45 20 53 |TKEY. BNE S| 00000680: 54 32 0D 53 54 31 20 20 20 4A 53 52 20 53 54 4B |T2.ST1 JSR STK| 00000690: 45 59 0D 20 20 20 20 20 20 42 45 51 20 53 54 31 |EY. BEQ ST1| 000006A0: 0D 20 20 20 20 20 20 4A 4D 50 20 43 4F 4D 4D 0D |. JMP COMM.| 000006B0: 53 54 32 20 20 20 50 4C 41 0D 20 20 20 20 20 20 |ST2 PLA. | 000006C0: 52 54 53 0D 45 52 52 4F 52 20 4A 53 52 20 50 52 |RTS.ERROR JSR PR| 000006D0: 49 4E 54 20 20 20 3B C5 52 52 4F 52 20 41 55 53 |INT ;.RROR AUS| 000006E0: 47 45 42 45 4E 0D 20 20 20 20 20 20 2E 42 59 54 |GEBEN. .BYT| 000006F0: 45 20 24 30 44 2C 27 3F 2C 24 32 30 2C 24 30 30 |E $0D,'?,$20,$00| 00000700: 0D 20 20 20 20 20 20 54 58 41 0D 20 20 20 20 20 |. TXA. | 00000710: 20 41 53 4C 20 41 0D 20 20 20 20 20 20 54 41 58 | ASL A. TAX| 00000720: 0D 20 20 20 20 20 20 4C 44 41 20 45 52 52 4D 2C |. LDA ERRM,| 00000730: 58 0D 20 20 20 20 20 20 4A 53 52 20 43 48 4F 55 |X. JSR CHOU| 00000740: 54 0D 20 20 20 20 20 20 4C 44 41 20 45 52 52 4D |T. LDA ERRM| 00000750: 2B 31 2C 58 0D 20 20 20 20 20 20 4A 53 52 20 43 |+1,X. JSR C| 00000760: 48 4F 55 54 0D 20 20 20 20 20 20 4A 53 52 20 50 |HOUT. JSR P| 00000770: 52 49 4E 54 0D 20 20 20 20 20 20 2E 54 45 58 54 |RINT. .TEXT| 00000780: 20 22 20 45 52 52 4F 52 0D 20 20 20 20 20 20 2E | " ERROR. .| 00000790: 42 59 54 45 20 24 30 30 0D 20 20 20 20 20 20 4A |BYTE $00. J| 000007A0: 4D 50 20 43 4F 4D 4D 0D 45 52 52 4D 20 20 2E 54 |MP COMM.ERRM .T| 000007B0: 45 58 54 20 22 43 4D 43 52 4F 56 49 4F 0D 50 52 |EXT "CMCROVIO.PR| 000007C0: 49 4E 54 20 53 54 41 20 24 30 32 20 20 20 20 20 |INT STA $02 | 000007D0: 3B D4 45 58 54 20 41 55 53 47 45 42 45 4E 0D 20 |;.EXT AUSGEBEN. | 000007E0: 20 20 20 20 20 50 4C 41 0D 20 20 20 20 20 20 53 | PLA. S| 000007F0: 54 41 20 24 35 45 0D 20 20 20 20 20 20 50 4C 41 |TA $5E. PLA| 00000800: 0D 20 20 20 20 20 20 53 54 41 20 24 35 46 0D 20 |. STA $5F. | 00000810: 20 20 20 20 20 54 59 41 0D 20 20 20 20 20 20 50 | TYA. P| 00000820: 48 41 0D 20 20 20 20 20 20 4C 44 59 20 23 24 30 |HA. LDY #$0| 00000830: 30 0D 50 31 20 20 20 20 4A 53 52 20 49 4E 43 52 |0.P1 JSR INCR| 00000840: 0D 20 20 20 20 20 20 4C 44 41 20 28 24 35 45 29 |. LDA ($5E)| 00000850: 2C 59 0D 20 20 20 20 20 20 42 45 51 20 50 32 0D |,Y. BEQ P2.| 00000860: 20 20 20 20 20 20 4A 53 52 20 43 48 4F 55 54 0D | JSR CHOUT.| 00000870: 20 20 20 20 20 20 42 4E 45 20 50 31 0D 50 32 20 | BNE P1.P2 | 00000880: 20 20 20 4A 53 52 20 49 4E 43 52 0D 20 20 20 20 | JSR INCR. | 00000890: 20 20 50 4C 41 0D 20 20 20 20 20 20 54 41 59 0D | PLA. TAY.| 000008A0: 20 20 20 20 20 20 4C 44 41 20 24 30 32 0D 20 20 | LDA $02. | 000008B0: 20 20 20 20 4A 4D 50 20 28 24 35 45 29 0D 49 4E | JMP ($5E).IN| 000008C0: 43 52 20 20 49 4E 43 20 24 35 45 0D 20 20 20 20 |CR INC $5E. | 000008D0: 20 20 42 4E 45 20 49 31 0D 20 20 20 20 20 20 49 | BNE I1. I| 000008E0: 4E 43 20 24 35 46 0D 49 31 20 20 20 20 52 54 53 |NC $5F.I1 RTS| 000008F0: 0D 45 47 45 54 20 20 4A 53 52 20 47 45 54 20 20 |.EGET JSR GET | 00000900: 20 20 20 3B DA 45 49 43 48 45 4E 20 41 55 53 20 | ;.EICHEN AUS | 00000910: D0 55 46 46 45 52 0D 20 20 20 20 20 20 43 4D 50 |.UFFER. CMP| 00000920: 20 23 24 32 30 20 20 20 20 3B 4C 45 53 45 4E 20 | #$20 ;LESEN | 00000930: 3C 3E 20 D3 50 41 43 45 0D 20 20 20 20 20 20 42 |<> .PACE. B| 00000940: 45 51 20 45 47 45 54 0D 20 20 20 20 20 20 42 4E |EQ EGET. BN| 00000950: 45 20 47 45 54 32 0D 47 45 54 20 20 20 49 4E 43 |E GET2.GET INC| 00000960: 20 45 50 4F 49 4E 20 20 20 3B DA 45 49 43 48 45 | EPOIN ;.EICHE| 00000970: 4E 20 41 55 53 20 D0 55 46 46 45 52 0D 20 20 20 |N AUS .UFFER. | 00000980: 20 20 20 53 54 58 20 24 30 32 20 20 20 20 20 3B | STX $02 ;| 00000990: 4C 45 53 45 4E 0D 20 20 20 20 20 20 4C 44 58 20 |LESEN. LDX | 000009A0: 45 50 4F 49 4E 0D 20 20 20 20 20 20 4C 44 41 20 |EPOIN. LDA | 000009B0: 24 30 32 30 30 2C 58 0D 20 20 20 20 20 20 4C 44 |$0200,X. LD| 000009C0: 58 20 24 30 32 0D 47 45 54 32 20 20 50 48 41 0D |X $02.GET2 PHA.| 000009D0: 20 20 20 20 20 20 50 4C 41 0D 20 20 20 20 20 20 | PLA. | 000009E0: 52 54 53 0D 50 52 4D 50 54 20 4A 53 52 20 50 52 |RTS.PRMPT JSR PR| 000009F0: 49 4E 54 20 20 20 3B D0 52 4F 4D 50 54 20 44 52 |INT ;.ROMPT DR| 00000A00: 55 43 4B 45 4E 0D 20 20 20 20 20 20 2E 42 59 54 |UCKEN. .BYT| 00000A10: 45 20 24 30 44 2C 27 3E 2C 24 30 30 0D 20 20 20 |E $0D,'>,$00. | 00000A20: 20 20 20 52 54 53 0D 48 4F 55 54 20 20 50 48 41 | RTS.HOUT PHA| 00000A30: 20 20 20 20 20 20 20 20 20 3B 31 20 C2 59 54 45 | ;1 .YTE| 00000A40: 20 49 4E 20 48 45 58 20 41 55 53 2D 0D 20 20 20 | IN HEX AUS-. | 00000A50: 20 20 20 4C 44 41 20 23 24 32 30 20 20 20 20 3B | LDA #$20 ;| 00000A60: 42 45 4E 20 4D 49 54 20 24 0D 20 20 20 20 20 20 |BEN MIT $. | 00000A70: 4A 53 52 20 43 48 4F 55 54 0D 20 20 20 20 20 20 |JSR CHOUT. | 00000A80: 4C 44 41 20 23 27 24 0D 20 20 20 20 20 20 4A 53 |LDA #'$. JS| 00000A90: 52 20 43 48 4F 55 54 0D 20 20 20 20 20 20 50 4C |R CHOUT. PL| 00000AA0: 41 0D 48 4F 55 54 31 20 53 54 41 20 24 30 32 20 |A.HOUT1 STA $02 | 00000AB0: 20 20 20 20 3B 44 54 4F 2E 20 4F 48 4E 45 20 24 | ;DTO. OHNE $| 00000AC0: 0D 20 20 20 20 20 20 4C 53 52 20 41 0D 20 20 20 |. LSR A. | 00000AD0: 20 20 20 4C 53 52 20 41 0D 20 20 20 20 20 20 4C | LSR A. L| 00000AE0: 53 52 20 41 0D 20 20 20 20 20 20 4C 53 52 20 41 |SR A. LSR A| 00000AF0: 0D 20 20 20 20 20 20 4A 53 52 20 41 53 43 0D 20 |. JSR ASC. | 00000B00: 20 20 20 20 20 4A 53 52 20 43 48 4F 55 54 0D 20 | JSR CHOUT. | 00000B10: 20 20 20 20 20 4C 44 41 20 24 30 32 0D 20 20 20 | LDA $02. | 00000B20: 20 20 20 41 4E 44 20 23 24 30 46 0D 20 20 20 20 | AND #$0F. | 00000B30: 20 20 4A 53 52 20 41 53 43 0D 20 20 20 20 20 20 | JSR ASC. | 00000B40: 4A 53 52 20 43 48 4F 55 54 0D 20 20 20 20 20 20 |JSR CHOUT. | 00000B50: 52 54 53 0D 41 53 43 20 20 20 4F 52 41 20 23 24 |RTS.ASC ORA #$| 00000B60: 33 30 20 20 20 20 3B CE 49 42 42 4C 45 20 3E 20 |30 ;.IBBLE > | 00000B70: C1 D3 C3 C9 C9 0D 20 20 20 20 20 20 43 4D 50 20 |...... CMP | 00000B80: 23 24 33 41 0D 20 20 20 20 20 20 42 43 43 20 41 |#$3A. BCC A| 00000B90: 53 43 31 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 |SC1. CLC. | 00000BA0: 20 20 20 20 41 44 43 20 23 24 30 37 0D 41 53 43 | ADC #$07.ASC| 00000BB0: 31 20 20 52 54 53 0D 42 4F 55 54 20 20 53 54 41 |1 RTS.BOUT STA| 00000BC0: 20 24 30 32 20 20 20 20 20 3B 31 20 C2 59 54 45 | $02 ;1 .YTE| 00000BD0: 20 42 49 4E 41 45 52 20 41 55 53 2D 0D 20 20 20 | BINAER AUS-. | 00000BE0: 20 20 20 4C 44 41 20 23 24 32 30 20 20 20 20 3B | LDA #$20 ;| 00000BF0: 47 45 42 45 4E 20 4D 49 54 20 25 0D 20 20 20 20 |GEBEN MIT %. | 00000C00: 20 20 4A 53 52 20 43 48 4F 55 54 0D 20 20 20 20 | JSR CHOUT. | 00000C10: 20 20 4C 44 41 20 23 27 25 0D 20 20 20 20 20 20 | LDA #'%. | 00000C20: 4A 53 52 20 43 48 4F 55 54 0D 20 20 20 20 20 20 |JSR CHOUT. | 00000C30: 4C 44 58 20 23 24 30 38 0D 42 31 20 20 20 20 4C |LDX #$08.B1 L| 00000C40: 44 41 20 23 24 30 30 0D 20 20 20 20 20 20 41 53 |DA #$00. AS| 00000C50: 4C 20 24 30 32 0D 20 20 20 20 20 20 52 4F 4C 20 |L $02. ROL | 00000C60: 41 0D 20 20 20 20 20 20 4A 53 52 20 41 53 43 0D |A. JSR ASC.| 00000C70: 20 20 20 20 20 20 4A 53 52 20 43 48 4F 55 54 0D | JSR CHOUT.| 00000C80: 20 20 20 20 20 20 44 45 58 0D 20 20 20 20 20 20 | DEX. | 00000C90: 42 4E 45 20 42 31 0D 20 20 20 20 20 20 52 54 53 |BNE B1. RTS| 00000CA0: 0D 47 4E 55 4D 20 20 4A 53 52 20 45 47 45 54 20 |.GNUM JSR EGET | 00000CB0: 20 20 20 3B 31 36 2D C2 49 54 2D DA 41 48 4C 20 | ;16-.IT-.AHL | 00000CC0: 41 55 53 0D 20 20 20 20 20 20 43 4D 50 20 23 27 |AUS. CMP #'| 00000CD0: 24 20 20 20 20 20 3B D0 55 46 46 45 52 20 48 4F |$ ;.UFFER HO| 00000CE0: 4C 45 4E 20 55 4E 44 0D 20 20 20 20 20 20 42 45 |LEN UND. BE| 00000CF0: 51 20 48 45 58 5A 20 20 20 20 3B 49 4E 20 4E 55 |Q HEXZ ;IN NU| 00000D00: 4D 4C 2F 4E 55 4D 48 20 41 42 2D 0D 20 20 20 20 |ML/NUMH AB-. | 00000D10: 20 20 43 4D 50 20 23 27 25 20 20 20 20 20 3B 4C | CMP #'% ;L| 00000D20: 45 47 45 4E 0D 20 20 20 20 20 20 42 45 51 20 42 |EGEN. BEQ B| 00000D30: 49 4E 5A 0D 20 20 20 20 20 20 4A 53 52 20 48 45 |INZ. JSR HE| 00000D40: 58 0D 20 20 20 20 20 20 42 50 4C 20 47 4E 31 0D |X. BPL GN1.| 00000D50: 20 20 20 20 20 20 4C 44 58 20 23 24 30 31 0D 20 | LDX #$01. | 00000D60: 20 20 20 20 20 4A 4D 50 20 45 52 52 4F 52 0D 47 | JMP ERROR.G| 00000D70: 4E 31 20 20 20 44 45 43 20 45 50 4F 49 4E 0D 48 |N1 DEC EPOIN.H| 00000D80: 45 58 5A 20 20 53 54 58 20 24 30 32 20 20 20 20 |EXZ STX $02 | 00000D90: 20 3B C8 45 58 2D DA 41 48 4C 0D 20 20 20 20 20 | ;.EX-.AHL. | 00000DA0: 20 4C 44 41 20 23 24 30 30 0D 20 20 20 20 20 20 | LDA #$00. | 00000DB0: 53 54 41 20 4E 55 4D 4C 0D 20 20 20 20 20 20 53 |STA NUML. S| 00000DC0: 54 41 20 4E 55 4D 48 0D 48 45 31 20 20 20 4A 53 |TA NUMH.HE1 JS| 00000DD0: 52 20 47 45 54 0D 20 20 20 20 20 20 4A 53 52 20 |R GET. JSR | 00000DE0: 48 45 58 0D 20 20 20 20 20 20 42 4D 49 20 48 45 |HEX. BMI HE| 00000DF0: 32 0D 20 20 20 20 20 20 41 53 4C 20 4E 55 4D 4C |2. ASL NUML| 00000E00: 0D 20 20 20 20 20 20 52 4F 4C 20 4E 55 4D 48 0D |. ROL NUMH.| 00000E10: 20 20 20 20 20 20 42 43 53 20 47 4E 32 0D 20 20 | BCS GN2. | 00000E20: 20 20 20 20 41 53 4C 20 4E 55 4D 4C 0D 20 20 20 | ASL NUML. | 00000E30: 20 20 20 52 4F 4C 20 4E 55 4D 48 0D 20 20 20 20 | ROL NUMH. | 00000E40: 20 20 42 43 53 20 47 4E 32 0D 20 20 20 20 20 20 | BCS GN2. | 00000E50: 41 53 4C 20 4E 55 4D 4C 0D 20 20 20 20 20 20 52 |ASL NUML. R| 00000E60: 4F 4C 20 4E 55 4D 48 0D 20 20 20 20 20 20 42 43 |OL NUMH. BC| 00000E70: 53 20 47 4E 32 0D 20 20 20 20 20 20 41 53 4C 20 |S GN2. ASL | 00000E80: 4E 55 4D 4C 0D 20 20 20 20 20 20 52 4F 4C 20 4E |NUML. ROL N| 00000E90: 55 4D 48 0D 20 20 20 20 20 20 42 43 53 20 47 4E |UMH. BCS GN| 00000EA0: 32 0D 20 20 20 20 20 20 4F 52 41 20 4E 55 4D 4C |2. ORA NUML| 00000EB0: 0D 20 20 20 20 20 20 53 54 41 20 4E 55 4D 4C 0D |. STA NUML.| 00000EC0: 20 20 20 20 20 20 4A 4D 50 20 48 45 31 0D 48 45 | JMP HE1.HE| 00000ED0: 32 20 20 20 4C 44 58 20 24 30 32 0D 20 20 20 20 |2 LDX $02. | 00000EE0: 20 20 52 54 53 0D 42 49 4E 5A 20 20 53 54 58 20 | RTS.BINZ STX | 00000EF0: 24 30 32 20 20 20 20 20 3B C2 49 4E 41 45 52 2D |$02 ;.INAER-| 00000F00: DA 41 48 4C 0D 20 20 20 20 20 20 4C 44 41 20 23 |.AHL. LDA #| 00000F10: 24 30 30 0D 20 20 20 20 20 20 53 54 41 20 4E 55 |$00. STA NU| 00000F20: 4D 4C 0D 20 20 20 20 20 20 53 54 41 20 4E 55 4D |ML. STA NUM| 00000F30: 48 0D 42 49 31 20 20 20 4A 53 52 20 47 45 54 0D |H.BI1 JSR GET.| 00000F40: 20 20 20 20 20 20 4A 53 52 20 48 45 58 0D 20 20 | JSR HEX. | 00000F50: 20 20 20 20 42 4D 49 20 42 49 32 0D 20 20 20 20 | BMI BI2. | 00000F60: 20 20 41 53 4C 20 4E 55 4D 4C 0D 20 20 20 20 20 | ASL NUML. | 00000F70: 20 52 4F 4C 20 4E 55 4D 48 0D 20 20 20 20 20 20 | ROL NUMH. | 00000F80: 42 43 53 20 47 4E 32 0D 20 20 20 20 20 20 4F 52 |BCS GN2. OR| 00000F90: 41 20 4E 55 4D 4C 0D 20 20 20 20 20 20 53 54 41 |A NUML. STA| 00000FA0: 20 4E 55 4D 4C 0D 20 20 20 20 20 20 4A 4D 50 20 | NUML. JMP | 00000FB0: 42 49 31 0D 42 49 32 20 20 20 4C 44 58 20 24 30 |BI1.BI2 LDX $0| 00000FC0: 32 0D 20 20 20 20 20 20 52 54 53 0D 47 4E 32 20 |2. RTS.GN2 | 00000FD0: 20 20 4C 44 58 20 23 24 30 32 20 20 20 20 3B CF | LDX #$02 ;.| 00000FE0: D6 2D C5 52 52 4F 52 0D 20 20 20 20 20 20 4A 4D |.-.RROR. JM| 00000FF0: 50 20 45 52 52 4F 52 0D 48 45 58 20 20 20 43 4D |P ERROR.HEX CM| 00001000: 50 20 23 24 33 41 20 20 20 20 3B C1 D3 C3 C9 C9 |P #$3A ;.....| 00001010: 20 3E 20 48 45 58 0D 20 20 20 20 20 20 42 4D 49 | > HEX. BMI| 00001020: 20 48 45 58 31 0D 20 20 20 20 20 20 43 4D 50 20 | HEX1. CMP | 00001030: 23 24 34 31 0D 20 20 20 20 20 20 42 4D 49 20 48 |#$41. BMI H| 00001040: 45 58 32 0D 20 20 20 20 20 20 53 45 43 0D 20 20 |EX2. SEC. | 00001050: 20 20 20 20 53 42 43 20 23 24 30 37 0D 48 45 58 | SBC #$07.HEX| 00001060: 31 20 20 43 4D 50 20 23 24 33 30 0D 20 20 20 20 |1 CMP #$30. | 00001070: 20 20 42 4D 49 20 48 45 58 32 0D 20 20 20 20 20 | BMI HEX2. | 00001080: 20 43 4D 50 20 23 24 34 30 0D 20 20 20 20 20 20 | CMP #$40. | 00001090: 42 50 4C 20 48 45 58 32 0D 20 20 20 20 20 20 41 |BPL HEX2. A| 000010A0: 4E 44 20 23 24 30 46 0D 20 20 20 20 20 20 52 54 |ND #$0F. RT| 000010B0: 53 0D 48 45 58 32 20 20 4C 44 41 20 23 24 46 46 |S.HEX2 LDA #$FF| 000010C0: 0D 20 20 20 20 20 20 52 54 53 0D 4D 45 53 53 20 |. RTS.MESS | 000010D0: 20 4C 44 41 20 23 24 30 36 20 20 20 20 3B D3 54 | LDA #$06 ;.T| 000010E0: 41 52 54 4D 45 4C 44 55 4E 47 20 44 52 55 43 4B |ARTMELDUNG DRUCK| 000010F0: 45 4E 0D 20 20 20 20 20 20 53 54 41 20 42 4F 52 |EN. STA BOR| 00001100: 44 45 52 0D 20 20 20 20 20 20 53 54 41 20 53 43 |DER. STA SC| 00001110: 52 45 45 4E 0D 20 20 20 20 20 20 4A 53 52 20 50 |REEN. JSR P| 00001120: 52 49 4E 54 0D 20 20 20 20 20 20 2E 42 59 54 45 |RINT. .BYTE| 00001130: 20 24 39 33 2C 24 39 41 2C 24 30 30 0D 4D 45 53 | $93,$9A,$00.MES| 00001140: 53 31 20 4A 53 52 20 50 52 49 4E 54 0D 20 20 20 |S1 JSR PRINT. | 00001150: 20 20 20 2E 42 59 54 45 20 24 30 45 2C 24 30 38 | .BYTE $0E,$08| 00001160: 2C 24 30 44 0D 20 20 20 20 20 20 2E 54 45 58 54 |,$0D. .TEXT| 00001170: 20 22 CC C9 CE C5 C1 D3 D3 2D 36 34 20 57 52 49 | ".......-64 WRI| 00001180: 54 54 45 4E 20 31 39 38 35 20 42 59 0D 20 20 20 |TTEN 1985 BY. | 00001190: 20 20 20 2E 54 45 58 54 20 22 20 CB 4C 41 55 53 | .TEXT " .LAUS| 000011A0: 20 C2 55 52 4B 45 52 54 0D 20 20 20 20 20 20 2E | .URKERT. .| 000011B0: 42 59 54 45 20 24 30 44 0D 20 20 20 20 20 20 2E |BYTE $0D. .| 000011C0: 54 45 58 54 20 22 20 20 20 20 49 52 51 20 20 20 |TEXT " IRQ | 000011D0: 50 43 20 20 20 41 20 20 20 59 20 20 20 58 0D 20 |PC A Y X. | 000011E0: 20 20 20 20 20 2E 54 45 58 54 20 22 20 20 20 53 | .TEXT " S| 000011F0: 20 20 20 4E 56 2D 42 44 49 5A 43 0D 20 20 20 20 | NV-BDIZC. | 00001200: 20 20 2E 42 59 54 45 20 24 30 44 0D 20 20 20 20 | .BYTE $0D. | 00001210: 20 20 2E 54 45 58 54 20 22 3E 52 3A 0D 20 20 20 | .TEXT ">R:. | 00001220: 20 20 20 2E 42 59 54 45 20 24 30 30 0D 20 20 20 | .BYTE $00. | 00001230: 20 20 20 4C 44 41 20 23 24 32 30 20 20 20 20 3B | LDA #$20 ;| 00001240: C9 D2 D1 2D D6 45 4B 54 4F 52 20 44 52 55 43 4B |...-.EKTOR DRUCK| 00001250: 45 4E 0D 20 20 20 20 20 20 4A 53 52 20 43 48 4F |EN. JSR CHO| 00001260: 55 54 0D 20 20 20 20 20 20 4C 44 41 20 49 52 51 |UT. LDA IRQ| 00001270: 56 2B 31 0D 20 20 20 20 20 20 4A 53 52 20 48 4F |V+1. JSR HO| 00001280: 55 54 31 0D 20 20 20 20 20 20 4C 44 41 20 49 52 |UT1. LDA IR| 00001290: 51 56 0D 20 20 20 20 20 20 4A 53 52 20 48 4F 55 |QV. JSR HOU| 000012A0: 54 31 0D 20 20 20 20 20 20 4C 44 41 20 23 24 32 |T1. LDA #$2| 000012B0: 30 20 20 20 20 3B D0 C3 20 44 52 55 43 4B 45 4E |0 ;.. DRUCKEN| 000012C0: 0D 20 20 20 20 20 20 4A 53 52 20 43 48 4F 55 54 |. JSR CHOUT| 000012D0: 0D 20 20 20 20 20 20 4C 44 41 20 50 43 2B 31 0D |. LDA PC+1.| 000012E0: 20 20 20 20 20 20 4A 53 52 20 48 4F 55 54 31 0D | JSR HOUT1.| 000012F0: 20 20 20 20 20 20 4C 44 41 20 50 43 0D 20 20 20 | LDA PC. | 00001300: 20 20 20 4A 53 52 20 48 4F 55 54 31 0D 20 20 20 | JSR HOUT1. | 00001310: 20 20 20 4C 44 41 20 41 43 20 20 20 20 20 20 3B | LDA AC ;| 00001320: C1 4B 4B 55 20 44 52 55 43 4B 45 4E 0D 20 20 20 |.KKU DRUCKEN. | 00001330: 20 20 20 4A 53 52 20 48 4F 55 54 0D 20 20 20 20 | JSR HOUT. | 00001340: 20 20 4C 44 41 20 59 52 20 20 20 20 20 20 3B D9 | LDA YR ;.| 00001350: 20 44 52 55 43 4B 45 4E 0D 20 20 20 20 20 20 4A | DRUCKEN. J| 00001360: 53 52 20 48 4F 55 54 0D 20 20 20 20 20 20 4C 44 |SR HOUT. LD| 00001370: 41 20 58 52 20 20 20 20 20 20 3B D8 20 44 52 55 |A XR ;. DRU| 00001380: 43 4B 45 4E 0D 20 20 20 20 20 20 4A 53 52 20 48 |CKEN. JSR H| 00001390: 4F 55 54 0D 20 20 20 20 20 20 4C 44 41 20 53 50 |OUT. LDA SP| 000013A0: 20 20 20 20 20 20 3B D3 54 41 43 4B 50 4F 49 4E | ;.TACKPOIN| 000013B0: 54 45 52 20 44 52 55 43 4B 45 4E 0D 20 20 20 20 |TER DRUCKEN. | 000013C0: 20 20 4A 53 52 20 48 4F 55 54 0D 20 20 20 20 20 | JSR HOUT. | 000013D0: 20 4C 44 41 20 50 53 20 20 20 20 20 20 3B D3 54 | LDA PS ;.T| 000013E0: 41 54 55 53 52 45 47 2E 20 44 52 55 43 4B 45 4E |ATUSREG. DRUCKEN| 000013F0: 0D 20 20 20 20 20 20 4A 53 52 20 42 4F 55 54 0D |. JSR BOUT.| 00001400: 20 20 20 20 20 20 52 54 53 0D 45 58 49 54 20 20 | RTS.EXIT | 00001410: 4C 44 41 20 23 24 33 37 20 20 20 20 3B C2 C1 D3 |LDA #$37 ;...| 00001420: C9 C3 2D 20 55 4E 44 20 CB C5 D2 CE C1 CC 2D 0D |..- UND ......-.| 00001430: 20 20 20 20 20 20 53 54 41 20 24 30 31 20 20 20 | STA $01 | 00001440: 20 20 3B D2 CF CD 20 45 49 4E 0D 20 20 20 20 20 | ;... EIN. | 00001450: 20 4A 4D 50 20 24 41 34 37 34 20 20 20 3B C2 41 | JMP $A474 ;.A| 00001460: 53 49 43 20 D7 41 52 4D 53 54 41 52 54 0D 51 55 |SIC .ARMSTART.QU| 00001470: 49 54 20 20 4A 4D 50 20 28 24 46 46 46 43 29 20 |IT JMP ($FFFC) | 00001480: 3B D3 4F 46 54 57 41 52 45 2D D2 45 53 45 54 0D |;.OFTWARE-.ESET.| 00001490: 52 45 47 20 20 20 4A 53 52 20 45 47 45 54 0D 20 |REG JSR EGET. | 000014A0: 20 20 20 20 20 42 4E 45 20 52 45 47 31 20 20 20 | BNE REG1 | 000014B0: 20 3B 57 45 4E 4E 20 4E 55 52 20 52 20 2C 44 41 | ;WENN NUR R ,DA| 000014C0: 4E 4E 0D 20 20 20 20 20 20 4A 4D 50 20 4D 45 53 |NN. JMP MES| 000014D0: 53 31 20 20 20 3B C5 49 4E 53 50 52 55 4E 47 4D |S1 ;.INSPRUNGM| 000014E0: 45 4C 44 55 4E 47 0D 20 20 20 20 20 20 43 4D 50 |ELDUNG. CMP| 000014F0: 20 23 27 3A 20 20 20 20 20 3B 57 45 4E 4E 20 52 | #': ;WENN R| 00001500: 3A 20 2C 44 41 4E 4E 20 C5 49 4E 2D 0D 20 20 20 |: ,DANN .IN-. | 00001510: 20 20 20 42 45 51 20 52 45 47 31 20 20 20 20 3B | BEQ REG1 ;| 00001520: 47 41 42 45 20 44 45 52 20 D2 45 47 49 53 54 45 |GABE DER .EGISTE| 00001530: 52 0D 52 45 47 45 52 20 4C 44 58 20 23 24 30 31 |R.REGER LDX #$01| 00001540: 20 20 20 20 3B 53 4F 4E 53 54 20 C3 D2 2D C5 52 | ;SONST ..-.R| 00001550: 52 4F 52 0D 20 20 20 20 20 20 4A 4D 50 20 45 52 |ROR. JMP ER| 00001560: 52 4F 52 0D 52 45 47 31 20 20 4A 53 52 20 47 4E |ROR.REG1 JSR GN| 00001570: 55 4D 20 20 20 20 3B C9 D2 D1 2D D6 45 4B 54 4F |UM ;...-.EKTO| 00001580: 52 0D 20 20 20 20 20 20 53 45 49 0D 20 20 20 20 |R. SEI. | 00001590: 20 20 4C 44 41 20 4E 55 4D 48 0D 20 20 20 20 20 | LDA NUMH. | 000015A0: 20 53 54 41 20 49 52 51 56 2B 31 0D 20 20 20 20 | STA IRQV+1. | 000015B0: 20 20 4C 44 41 20 4E 55 4D 4C 0D 20 20 20 20 20 | LDA NUML. | 000015C0: 20 53 54 41 20 49 52 51 56 0D 20 20 20 20 20 20 | STA IRQV. | 000015D0: 43 4C 49 0D 20 20 20 20 20 20 4A 53 52 20 47 4E |CLI. JSR GN| 000015E0: 55 4D 20 20 20 20 3B D0 C3 0D 20 20 20 20 20 20 |UM ;... | 000015F0: 4C 44 41 20 4E 55 4D 4C 0D 20 20 20 20 20 20 53 |LDA NUML. S| 00001600: 54 41 20 50 43 0D 20 20 20 20 20 20 4C 44 41 20 |TA PC. LDA | 00001610: 4E 55 4D 48 0D 20 20 20 20 20 20 53 54 41 20 50 |NUMH. STA P| 00001620: 43 2B 31 0D 20 20 20 20 20 20 4A 53 52 20 47 4E |C+1. JSR GN| 00001630: 55 4D 20 20 20 20 3B C1 4B 4B 55 0D 20 20 20 20 |UM ;.KKU. | 00001640: 20 20 4C 44 41 20 4E 55 4D 48 0D 20 20 20 20 20 | LDA NUMH. | 00001650: 20 42 4E 45 20 52 45 47 45 52 0D 20 20 20 20 20 | BNE REGER. | 00001660: 20 4C 44 41 20 4E 55 4D 4C 0D 20 20 20 20 20 20 | LDA NUML. | 00001670: 53 54 41 20 41 43 0D 20 20 20 20 20 20 4A 53 52 |STA AC. JSR| 00001680: 20 47 4E 55 4D 20 20 20 20 3B D9 2D D2 45 47 49 | GNUM ;.-.EGI| 00001690: 53 54 45 52 0D 20 20 20 20 20 20 4C 44 41 20 4E |STER. LDA N| 000016A0: 55 4D 48 0D 20 20 20 20 20 20 42 4E 45 20 52 45 |UMH. BNE RE| 000016B0: 47 45 52 0D 20 20 20 20 20 20 4C 44 41 20 4E 55 |GER. LDA NU| 000016C0: 4D 4C 0D 20 20 20 20 20 20 53 54 41 20 59 52 0D |ML. STA YR.| 000016D0: 20 20 20 20 20 20 4A 53 52 20 47 4E 55 4D 20 20 | JSR GNUM | 000016E0: 20 20 3B D8 2D D2 45 47 49 53 54 45 52 0D 20 20 | ;.-.EGISTER. | 000016F0: 20 20 20 20 4C 44 41 20 4E 55 4D 48 0D 20 20 20 | LDA NUMH. | 00001700: 20 20 20 42 4E 45 20 52 45 47 45 52 0D 20 20 20 | BNE REGER. | 00001710: 20 20 20 4C 44 41 20 4E 55 4D 4C 0D 20 20 20 20 | LDA NUML. | 00001720: 20 20 53 54 41 20 58 52 0D 20 20 20 20 20 20 4A | STA XR. J| 00001730: 53 52 20 47 4E 55 4D 20 20 20 20 3B D3 54 41 43 |SR GNUM ;.TAC| 00001740: 4B 50 4F 49 4E 54 45 52 0D 20 20 20 20 20 20 4C |KPOINTER. L| 00001750: 44 41 20 4E 55 4D 48 0D 20 20 20 20 20 20 42 4E |DA NUMH. BN| 00001760: 45 20 52 45 47 45 52 0D 20 20 20 20 20 20 4C 44 |E REGER. LD| 00001770: 41 20 4E 55 4D 4C 0D 20 20 20 20 20 20 53 54 41 |A NUML. STA| 00001780: 20 53 50 0D 20 20 20 20 20 20 4A 53 52 20 47 4E | SP. JSR GN| 00001790: 55 4D 20 20 20 20 3B D3 54 41 54 55 53 52 45 47 |UM ;.TATUSREG| 000017A0: 49 53 54 45 52 0D 20 20 20 20 20 20 4C 44 41 20 |ISTER. LDA | 000017B0: 4E 55 4D 48 0D 20 20 20 20 20 20 42 4E 45 20 52 |NUMH. BNE R| 000017C0: 45 47 45 52 0D 20 20 20 20 20 20 4C 44 41 20 4E |EGER. LDA N| 000017D0: 55 4D 4C 0D 20 20 20 20 20 20 53 54 41 20 50 53 |UML. STA PS| 000017E0: 0D 20 20 20 20 20 20 52 54 53 0D 47 41 44 52 20 |. RTS.GADR | 000017F0: 20 4A 53 52 20 47 4E 55 4D 20 20 20 20 3B D3 54 | JSR GNUM ;.T| 00001800: 41 52 54 41 44 52 45 53 53 45 0D 20 20 20 20 20 |ARTADRESSE. | 00001810: 20 4C 44 41 20 4E 55 4D 4C 0D 20 20 20 20 20 20 | LDA NUML. | 00001820: 53 54 41 20 24 35 43 0D 20 20 20 20 20 20 4C 44 |STA $5C. LD| 00001830: 41 20 4E 55 4D 48 0D 20 20 20 20 20 20 53 54 41 |A NUMH. STA| 00001840: 20 24 35 44 0D 20 20 20 20 20 20 44 45 43 20 45 | $5D. DEC E| 00001850: 50 4F 49 4E 0D 20 20 20 20 20 20 4A 53 52 20 45 |POIN. JSR E| 00001860: 47 45 54 20 20 20 20 3B D4 45 53 54 20 41 55 46 |GET ;.EST AUF| 00001870: 20 CB 4F 4D 4D 41 0D 20 20 20 20 20 20 43 4D 50 | .OMMA. CMP| 00001880: 20 23 27 2C 0D 20 20 20 20 20 20 42 45 51 20 47 | #',. BEQ G| 00001890: 41 44 0D 20 20 20 20 20 20 4C 44 58 20 23 24 30 |AD. LDX #$0| 000018A0: 31 0D 20 20 20 20 20 20 4A 4D 50 20 45 52 52 4F |1. JMP ERRO| 000018B0: 52 0D 47 41 44 20 20 20 4A 53 52 20 47 4E 55 4D |R.GAD JSR GNUM| 000018C0: 20 20 20 20 3B C5 4E 44 41 44 52 45 53 53 45 2B | ;.NDADRESSE+| 000018D0: 31 0D 20 20 20 20 20 20 4C 44 41 20 4E 55 4D 4C |1. LDA NUML| 000018E0: 0D 20 20 20 20 20 20 53 54 41 20 24 35 45 0D 20 |. STA $5E. | 000018F0: 20 20 20 20 20 4C 44 41 20 4E 55 4D 48 0D 20 20 | LDA NUMH. | 00001900: 20 20 20 20 53 54 41 20 24 35 46 0D 20 20 20 20 | STA $5F. | 00001910: 20 20 52 54 53 0D 46 49 4C 4C 20 20 4A 53 52 20 | RTS.FILL JSR | 00001920: 47 41 44 52 20 20 20 20 3B C1 44 52 45 53 53 45 |GADR ;.DRESSE| 00001930: 4E 20 48 4F 4C 45 4E 0D 20 20 20 20 20 20 44 45 |N HOLEN. DE| 00001940: 43 20 45 50 4F 49 4E 0D 20 20 20 20 20 20 4A 53 |C EPOIN. JS| 00001950: 52 20 45 47 45 54 20 20 20 20 3B D4 45 53 54 20 |R EGET ;.EST | 00001960: 41 55 46 20 CB 4F 4D 4D 41 0D 20 20 20 20 20 20 |AUF .OMMA. | 00001970: 43 4D 50 20 23 27 2C 0D 20 20 20 20 20 20 42 45 |CMP #',. BE| 00001980: 51 20 46 49 4C 4C 31 0D 20 20 20 20 20 20 4C 44 |Q FILL1. LD| 00001990: 58 20 23 24 30 31 20 20 20 20 3B C3 D2 2D C5 52 |X #$01 ;..-.R| 000019A0: 52 4F 52 0D 20 20 20 20 20 20 4A 4D 50 20 45 52 |ROR. JMP ER| 000019B0: 52 4F 52 0D 46 49 4C 4C 31 20 4A 53 52 20 47 4E |ROR.FILL1 JSR GN| 000019C0: 55 4D 20 20 20 20 3B C6 49 4C 4C 2D C2 59 54 45 |UM ;.ILL-.YTE| 000019D0: 0D 20 20 20 20 20 20 4C 44 41 20 4E 55 4D 48 0D |. LDA NUMH.| 000019E0: 20 20 20 20 20 20 42 45 51 20 46 49 4C 4C 32 0D | BEQ FILL2.| 000019F0: 20 20 20 20 20 20 4C 44 58 20 23 24 30 32 20 20 | LDX #$02 | 00001A00: 20 20 3B CF D6 2D C5 52 52 4F 52 0D 20 20 20 20 | ;..-.RROR. | 00001A10: 20 20 4A 4D 50 20 45 52 52 4F 52 0D 46 49 4C 4C | JMP ERROR.FILL| 00001A20: 32 20 4C 44 59 20 23 24 30 30 0D 20 20 20 20 20 |2 LDY #$00. | 00001A30: 20 4C 44 41 20 4E 55 4D 4C 0D 20 20 20 20 20 20 | LDA NUML. | 00001A40: 53 54 41 20 28 24 35 43 29 2C 59 20 3B C6 49 4C |STA ($5C),Y ;.IL| 00001A50: 4C 0D 20 20 20 20 20 20 49 4E 43 20 24 35 43 0D |L. INC $5C.| 00001A60: 20 20 20 20 20 20 42 4E 45 20 46 49 4C 4C 33 0D | BNE FILL3.| 00001A70: 20 20 20 20 20 20 49 4E 43 20 24 35 44 0D 46 49 | INC $5D.FI| 00001A80: 4C 4C 33 20 4C 44 41 20 24 35 43 20 20 20 20 20 |LL3 LDA $5C | 00001A90: 3B 41 4B 54 2E 20 C1 44 52 2E 20 3D 20 C5 4E 44 |;AKT. .DR. = .ND| 00001AA0: 41 44 52 2E 3F 0D 20 20 20 20 20 20 43 4D 50 20 |ADR.?. CMP | 00001AB0: 24 35 45 0D 20 20 20 20 20 20 4C 44 41 20 24 35 |$5E. LDA $5| 00001AC0: 44 0D 20 20 20 20 20 20 53 42 43 20 24 35 46 0D |D. SBC $5F.| 00001AD0: 20 20 20 20 20 20 42 43 43 20 46 49 4C 4C 32 0D | BCC FILL2.| 00001AE0: 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 | RTS. | 00001AF0: 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 48 55 |NOP. NOP.HU| 00001B00: 4E 54 20 20 4A 53 52 20 47 41 44 52 20 20 20 20 |NT JSR GADR | 00001B10: 3B C1 44 52 45 53 53 45 4E 20 48 4F 4C 45 4E 0D |;.DRESSEN HOLEN.| 00001B20: 20 20 20 20 20 20 44 45 43 20 45 50 4F 49 4E 0D | DEC EPOIN.| 00001B30: 20 20 20 20 20 20 4A 53 52 20 45 47 45 54 0D 20 | JSR EGET. | 00001B40: 20 20 20 20 20 43 4D 50 20 23 27 2C 20 20 20 20 | CMP #', | 00001B50: 20 3B D4 45 53 54 20 41 55 46 20 CB 4F 4D 4D 41 | ;.EST AUF .OMMA| 00001B60: 0D 20 20 20 20 20 20 42 45 51 20 48 55 4E 54 31 |. BEQ HUNT1| 00001B70: 0D 20 20 20 20 20 20 4C 44 58 20 23 24 30 31 0D |. LDX #$01.| 00001B80: 20 20 20 20 20 20 4A 4D 50 20 45 52 52 4F 52 0D | JMP ERROR.| 00001B90: 48 55 4E 54 31 20 4A 53 52 20 47 4E 55 4D 20 20 |HUNT1 JSR GNUM | 00001BA0: 20 20 3B D3 55 43 48 2D C2 59 54 45 0D 20 20 20 | ;.UCH-.YTE. | 00001BB0: 20 20 20 4C 44 41 20 4E 55 4D 48 0D 20 20 20 20 | LDA NUMH. | 00001BC0: 20 20 42 45 51 20 48 55 4E 54 32 0D 20 20 20 20 | BEQ HUNT2. | 00001BD0: 20 20 4C 44 58 20 23 24 30 32 0D 20 20 20 20 20 | LDX #$02. | 00001BE0: 20 4A 4D 50 20 45 52 52 4F 52 0D 48 55 4E 54 32 | JMP ERROR.HUNT2| 00001BF0: 20 4C 44 59 20 23 24 30 30 0D 20 20 20 20 20 20 | LDY #$00. | 00001C00: 4C 44 41 20 4E 55 4D 4C 0D 20 20 20 20 20 20 43 |LDA NUML. C| 00001C10: 4D 50 20 28 24 35 43 29 2C 59 0D 20 20 20 20 20 |MP ($5C),Y. | 00001C20: 20 42 4E 45 20 48 55 4E 54 33 0D 20 20 20 20 20 | BNE HUNT3. | 00001C30: 20 4C 44 41 20 23 24 30 44 20 20 20 20 3B 47 45 | LDA #$0D ;GE| 00001C40: 46 55 4E 44 45 4E 45 20 C1 44 52 45 53 53 45 4E |FUNDENE .DRESSEN| 00001C50: 0D 20 20 20 20 20 20 4A 53 52 20 43 48 4F 55 54 |. JSR CHOUT| 00001C60: 20 20 20 3B 41 55 53 47 45 42 45 4E 0D 20 20 20 | ;AUSGEBEN. | 00001C70: 20 20 20 4C 44 41 20 24 35 44 0D 20 20 20 20 20 | LDA $5D. | 00001C80: 20 4A 53 52 20 48 4F 55 54 0D 20 20 20 20 20 20 | JSR HOUT. | 00001C90: 4C 44 41 20 24 35 43 0D 20 20 20 20 20 20 4A 53 |LDA $5C. JS| 00001CA0: 52 20 48 4F 55 54 31 0D 48 55 4E 54 33 20 49 4E |R HOUT1.HUNT3 IN| 00001CB0: 43 20 24 35 43 0D 20 20 20 20 20 20 42 4E 45 20 |C $5C. BNE | 00001CC0: 48 55 4E 54 34 0D 20 20 20 20 20 20 49 4E 43 20 |HUNT4. INC | 00001CD0: 24 35 44 0D 48 55 4E 54 34 20 4C 44 41 20 24 35 |$5D.HUNT4 LDA $5| 00001CE0: 43 20 20 20 20 20 3B 41 4B 54 2E 20 C1 44 52 2E |C ;AKT. .DR.| 00001CF0: 20 3D 20 C5 4E 44 41 44 52 2E 3F 0D 20 20 20 20 | = .NDADR.?. | 00001D00: 20 20 43 4D 50 20 24 35 45 0D 20 20 20 20 20 20 | CMP $5E. | 00001D10: 4C 44 41 20 24 35 44 0D 20 20 20 20 20 20 53 42 |LDA $5D. SB| 00001D20: 43 20 24 35 46 0D 20 20 20 20 20 20 42 43 43 20 |C $5F. BCC | 00001D30: 48 55 4E 54 32 0D 20 20 20 20 20 20 52 54 53 0D |HUNT2. RTS.| 00001D40: 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 | NOP. | 00001D50: 4E 4F 50 0D 47 4F 20 20 20 20 4A 53 52 20 47 4E |NOP.GO JSR GN| 00001D60: 55 4D 20 20 20 20 3B C1 44 52 45 53 53 45 20 48 |UM ;.DRESSE H| 00001D70: 4F 4C 45 4E 0D 20 20 20 20 20 20 4C 44 41 20 50 |OLEN. LDA P| 00001D80: 53 20 20 20 20 20 20 3B D2 45 47 49 53 54 45 52 |S ;.EGISTER| 00001D90: 20 42 45 4C 45 47 45 4E 0D 20 20 20 20 20 20 50 | BELEGEN. P| 00001DA0: 48 41 0D 20 20 20 20 20 20 50 4C 50 0D 20 20 20 |HA. PLP. | 00001DB0: 20 20 20 4C 44 58 20 53 50 0D 20 20 20 20 20 20 | LDX SP. | 00001DC0: 54 58 53 0D 20 20 20 20 20 20 4C 44 58 20 58 52 |TXS. LDX XR| 00001DD0: 0D 20 20 20 20 20 20 4C 44 59 20 59 52 0D 20 20 |. LDY YR. | 00001DE0: 20 20 20 20 4C 44 41 20 41 43 0D 47 4F 31 20 20 | LDA AC.GO1 | 00001DF0: 20 50 48 41 0D 20 20 20 20 20 20 4C 44 41 20 4E | PHA. LDA N| 00001E00: 55 4D 4C 20 20 20 20 3B C1 44 52 45 53 53 45 20 |UML ;.DRESSE | 00001E10: 4E 41 43 48 20 D0 C3 0D 20 20 20 20 20 20 53 54 |NACH ... ST| 00001E20: 41 20 50 43 20 20 20 20 20 20 3B 4B 4F 50 49 45 |A PC ;KOPIE| 00001E30: 52 45 4E 0D 20 20 20 20 20 20 4C 44 41 20 4E 55 |REN. LDA NU| 00001E40: 4D 48 0D 20 20 20 20 20 20 53 54 41 20 50 43 2B |MH. STA PC+| 00001E50: 31 0D 20 20 20 20 20 20 50 4C 41 0D 20 20 20 20 |1. PLA. | 00001E60: 20 20 4A 4D 50 20 28 50 43 29 20 20 20 20 3B 41 | JMP (PC) ;A| 00001E70: 55 53 46 55 45 48 52 45 4E 0D 45 58 45 43 20 20 |USFUEHREN.EXEC | 00001E80: 50 4C 41 0D 20 20 20 20 20 20 50 4C 41 0D 20 20 |PLA. PLA. | 00001E90: 20 20 20 20 4A 53 52 20 47 4E 55 4D 20 20 20 20 | JSR GNUM | 00001EA0: 3B C1 44 52 45 53 53 45 20 48 4F 4C 45 4E 0D 20 |;.DRESSE HOLEN. | 00001EB0: 20 20 20 20 20 4C 44 41 20 50 53 20 20 20 20 20 | LDA PS | 00001EC0: 20 3B D2 45 47 49 53 54 45 52 20 42 45 4C 45 47 | ;.EGISTER BELEG| 00001ED0: 45 4E 0D 20 20 20 20 20 20 50 48 41 0D 20 20 20 |EN. PHA. | 00001EE0: 20 20 20 50 4C 50 0D 20 20 20 20 20 20 4C 44 58 | PLP. LDX| 00001EF0: 20 53 50 0D 20 20 20 20 20 20 54 58 53 0D 20 20 | SP. TXS. | 00001F00: 20 20 20 20 4C 44 58 20 58 52 0D 20 20 20 20 20 | LDX XR. | 00001F10: 20 4C 44 59 20 59 52 0D 20 20 20 20 20 20 4C 44 | LDY YR. LD| 00001F20: 41 20 41 43 0D 20 20 20 20 20 20 4A 53 52 20 47 |A AC. JSR G| 00001F30: 4F 31 20 20 20 20 20 3B 41 55 53 46 55 45 48 52 |O1 ;AUSFUEHR| 00001F40: 45 4E 0D 20 20 20 20 20 20 53 54 41 20 41 43 20 |EN. STA AC | 00001F50: 20 20 20 20 20 3B D2 45 47 49 53 54 45 52 20 52 | ;.EGISTER R| 00001F60: 45 54 54 45 4E 0D 20 20 20 20 20 20 53 54 59 20 |ETTEN. STY | 00001F70: 59 52 0D 20 20 20 20 20 20 53 54 58 20 58 52 0D |YR. STX XR.| 00001F80: 20 20 20 20 20 20 54 53 58 0D 20 20 20 20 20 20 | TSX. | 00001F90: 53 54 58 20 53 50 0D 20 20 20 20 20 20 50 48 50 |STX SP. PHP| 00001FA0: 0D 20 20 20 20 20 20 50 4C 41 0D 20 20 20 20 20 |. PLA. | 00001FB0: 20 53 54 41 20 50 53 0D 20 20 20 20 20 20 4A 53 | STA PS. JS| 00001FC0: 52 20 4D 45 53 53 31 20 20 20 3B D2 45 47 49 53 |R MESS1 ;.EGIS| 00001FD0: 54 45 52 20 41 4E 5A 45 49 47 45 4E 0D 20 20 20 |TER ANZEIGEN. | 00001FE0: 20 20 20 4A 4D 50 20 43 4F 4D 4D 0D 42 52 45 41 | JMP COMM.BREA| 00001FF0: 4B 20 50 4C 41 20 20 20 20 20 20 20 20 20 3B D9 |K PLA ;.| 00002000: D2 20 48 4F 4C 45 4E 0D 20 20 20 20 20 20 54 41 |. HOLEN. TA| 00002010: 59 0D 20 20 20 20 20 20 50 4C 41 20 20 20 20 20 |Y. PLA | 00002020: 20 20 20 20 3B D8 D2 20 48 4F 4C 45 4E 0D 20 20 | ;.. HOLEN. | 00002030: 20 20 20 20 54 41 58 0D 20 20 20 20 20 20 50 4C | TAX. PL| 00002040: 41 20 20 20 20 20 20 20 20 20 3B C1 C3 20 48 4F |A ;.. HO| 00002050: 4C 45 4E 0D 20 20 20 20 20 20 53 54 41 20 41 43 |LEN. STA AC| 00002060: 20 20 20 20 20 20 3B 55 4E 44 20 41 42 53 50 45 | ;UND ABSPE| 00002070: 49 43 48 45 52 4E 0D 20 20 20 20 20 20 53 54 59 |ICHERN. STY| 00002080: 20 59 52 0D 20 20 20 20 20 20 53 54 58 20 58 52 | YR. STX XR| 00002090: 0D 20 20 20 20 20 20 50 4C 41 20 20 20 20 20 20 |. PLA | 000020A0: 20 20 20 3B D0 D3 20 48 4F 4C 45 4E 0D 20 20 20 | ;.. HOLEN. | 000020B0: 20 20 20 53 54 41 20 50 53 20 20 20 20 20 20 3B | STA PS ;| 000020C0: 55 4E 44 20 53 50 45 49 43 48 45 52 4E 0D 20 20 |UND SPEICHERN. | 000020D0: 20 20 20 20 43 4C 44 0D 20 20 20 20 20 20 43 4C | CLD. CL| 000020E0: 49 0D 20 20 20 20 20 20 50 4C 41 20 20 20 20 20 |I. PLA | 000020F0: 20 20 20 20 3B D0 C3 20 48 4F 4C 45 4E 20 55 4E | ;.. HOLEN UN| 00002100: 44 0D 20 20 20 20 20 20 53 45 43 20 20 20 20 20 |D. SEC | 00002110: 20 20 20 20 3B 53 50 45 49 43 48 45 52 4E 0D 20 | ;SPEICHERN. | 00002120: 20 20 20 20 20 53 42 43 20 23 24 30 32 0D 20 20 | SBC #$02. | 00002130: 20 20 20 20 53 54 41 20 50 43 0D 20 20 20 20 20 | STA PC. | 00002140: 20 50 4C 41 0D 20 20 20 20 20 20 53 42 43 20 23 | PLA. SBC #| 00002150: 24 30 30 0D 20 20 20 20 20 20 53 54 41 20 50 43 |$00. STA PC| 00002160: 2B 31 0D 20 20 20 20 20 20 54 53 58 20 20 20 20 |+1. TSX | 00002170: 20 20 20 20 20 3B D3 D0 20 53 50 45 49 43 48 45 | ;.. SPEICHE| 00002180: 52 4E 0D 20 20 20 20 20 20 53 54 58 20 53 50 0D |RN. STX SP.| 00002190: 20 20 20 20 20 20 4A 53 52 20 4D 45 53 53 31 20 | JSR MESS1 | 000021A0: 20 20 3B D2 45 47 49 53 54 45 52 20 41 4E 5A 45 | ;.EGISTER ANZE| 000021B0: 49 47 45 4E 0D 20 20 20 20 20 20 4A 4D 50 20 43 |IGEN. JMP C| 000021C0: 4F 4D 4D 0D 44 4F 53 20 20 20 4A 53 52 20 45 47 |OMM.DOS JSR EG| 000021D0: 45 54 20 20 20 20 3B D3 54 41 54 55 53 3F 0D 20 |ET ;.TATUS?. | 000021E0: 20 20 20 20 20 42 45 51 20 53 54 41 54 0D 20 20 | BEQ STAT. | 000021F0: 20 20 20 20 43 4D 50 20 23 27 24 20 20 20 20 20 | CMP #'$ | 00002200: 3B C4 49 52 45 43 54 4F 52 59 3F 0D 20 20 20 20 |;.IRECTORY?. | 00002210: 20 20 42 45 51 20 44 49 52 0D 20 20 20 20 20 20 | BEQ DIR. | 00002220: 43 4D 50 20 23 27 23 20 20 20 20 20 3B C7 45 52 |CMP #'# ;.ER| 00002230: 41 45 54 45 4E 55 4D 4D 45 52 3F 0D 20 20 20 20 |AETENUMMER?. | 00002240: 20 20 42 45 51 20 44 45 56 0D 20 20 20 20 20 20 | BEQ DEV. | 00002250: 4C 44 58 20 45 50 4F 49 4E 20 20 20 3B C2 45 46 |LDX EPOIN ;.EF| 00002260: 45 48 4C 20 53 45 4E 44 45 4E 0D 20 20 20 20 20 |EHL SENDEN. | 00002270: 20 4C 44 59 20 23 24 30 32 0D 44 4F 53 31 20 20 | LDY #$02.DOS1 | 00002280: 4A 53 52 20 47 45 54 0D 20 20 20 20 20 20 42 4E |JSR GET. BN| 00002290: 45 20 44 4F 53 31 0D 20 20 20 20 20 20 53 54 58 |E DOS1. STX| 000022A0: 20 24 30 32 0D 20 20 20 20 20 20 4C 44 41 20 45 | $02. LDA E| 000022B0: 50 4F 49 4E 0D 20 20 20 20 20 20 53 45 43 0D 20 |POIN. SEC. | 000022C0: 20 20 20 20 20 53 42 43 20 24 30 32 0D 20 20 20 | SBC $02. | 000022D0: 20 20 20 4A 53 52 20 53 45 54 4E 41 4D 0D 20 20 | JSR SETNAM. | 000022E0: 20 20 20 20 4C 44 41 20 23 37 46 0D 20 20 20 20 | LDA #7F. | 000022F0: 20 20 4C 44 58 20 44 45 56 49 43 45 0D 20 20 20 | LDX DEVICE. | 00002300: 20 20 20 4C 44 59 20 23 24 30 46 0D 20 20 20 20 | LDY #$0F. | 00002310: 20 20 4A 53 52 20 53 45 54 50 41 52 0D 20 20 20 | JSR SETPAR. | 00002320: 20 20 20 4A 53 52 20 4F 50 45 4E 0D 20 20 20 20 | JSR OPEN. | 00002330: 20 20 4A 53 52 20 43 4C 41 4C 4C 0D 20 20 20 20 | JSR CLALL. | 00002340: 20 20 52 54 53 0D 44 45 56 20 20 20 4A 53 52 20 | RTS.DEV JSR | 00002350: 47 4E 55 4D 20 20 20 20 3B C7 45 52 41 45 54 45 |GNUM ;.ERAETE| 00002360: 4E 55 4D 4D 45 52 0D 20 20 20 20 20 20 4C 44 41 |NUMMER. LDA| 00002370: 20 4E 55 4D 48 20 20 20 20 3B 41 45 4E 44 45 52 | NUMH ;AENDER| 00002380: 4E 0D 20 20 20 20 20 20 42 4E 45 20 44 45 56 45 |N. BNE DEVE| 00002390: 52 0D 20 20 20 20 20 20 4C 44 41 20 4E 55 4D 4C |R. LDA NUML| 000023A0: 0D 20 20 20 20 20 20 41 4E 44 20 23 25 31 31 31 |. AND #%111| 000023B0: 31 30 31 31 30 0D 20 20 20 20 20 20 42 4E 45 20 |10110. BNE | 000023C0: 44 45 56 45 52 0D 20 20 20 20 20 20 4C 44 41 20 |DEVER. LDA | 000023D0: 4E 55 4D 4C 0D 20 20 20 20 20 20 53 54 41 20 44 |NUML. STA D| 000023E0: 45 56 49 43 45 0D 20 20 20 20 20 20 52 54 53 0D |EVICE. RTS.| 000023F0: 44 45 56 45 52 20 4C 44 58 20 23 24 30 31 0D 20 |DEVER LDX #$01. | 00002400: 20 20 20 20 20 4A 4D 50 20 45 52 52 4F 52 0D 53 | JMP ERROR.S| 00002410: 54 41 54 20 20 4C 44 41 20 23 24 30 44 20 20 20 |TAT LDA #$0D | 00002420: 20 3B D3 54 41 54 55 53 20 41 55 53 4C 45 53 45 | ;.TATUS AUSLESE| 00002430: 4E 0D 20 20 20 20 20 20 4A 53 52 20 43 48 4F 55 |N. JSR CHOU| 00002440: 54 0D 20 20 20 20 20 20 4C 44 41 20 44 45 56 49 |T. LDA DEVI| 00002450: 43 45 0D 20 20 20 20 20 20 53 54 41 20 47 41 0D |CE. STA GA.| 00002460: 20 20 20 20 20 20 4A 53 52 20 54 41 4C 4B 0D 20 | JSR TALK. | 00002470: 20 20 20 20 20 4C 44 41 20 23 24 36 46 0D 20 20 | LDA #$6F. | 00002480: 20 20 20 20 53 54 41 20 53 41 0D 20 20 20 20 20 | STA SA. | 00002490: 20 4A 53 52 20 53 45 43 54 4C 4B 0D 53 54 41 54 | JSR SECTLK.STAT| 000024A0: 31 20 4A 53 52 20 49 45 43 49 4E 0D 20 20 20 20 |1 JSR IECIN. | 000024B0: 20 20 4A 53 52 20 43 48 4F 55 54 0D 20 20 20 20 | JSR CHOUT. | 000024C0: 20 20 43 4D 50 20 23 24 30 44 0D 20 20 20 20 20 | CMP #$0D. | 000024D0: 20 42 4E 45 20 53 54 41 54 31 0D 20 20 20 20 20 | BNE STAT1. | 000024E0: 20 4A 53 52 20 55 4E 54 4C 4B 0D 20 20 20 20 20 | JSR UNTLK. | 000024F0: 20 52 54 53 0D 44 49 52 20 20 20 4C 44 41 20 23 | RTS.DIR LDA #| 00002500: 24 30 44 20 20 20 20 3B C4 49 52 45 43 54 4F 52 |$0D ;.IRECTOR| 00002510: 59 20 41 4E 5A 45 49 47 45 4E 0D 20 20 20 20 20 |Y ANZEIGEN. | 00002520: 20 4A 53 52 20 43 48 4F 55 54 0D 20 20 20 20 20 | JSR CHOUT. | 00002530: 20 4C 44 58 20 45 50 4F 49 4E 0D 20 20 20 20 20 | LDX EPOIN. | 00002540: 20 4C 44 59 20 23 24 30 32 0D 44 49 52 30 20 20 | LDY #$02.DIR0 | 00002550: 4A 53 52 20 47 45 54 0D 20 20 20 20 20 20 42 4E |JSR GET. BN| 00002560: 45 20 44 49 52 30 0D 20 20 20 20 20 20 53 54 58 |E DIR0. STX| 00002570: 20 24 30 32 0D 20 20 20 20 20 20 4C 44 41 20 45 | $02. LDA E| 00002580: 50 4F 49 4E 0D 20 20 20 20 20 20 53 45 43 0D 20 |POIN. SEC. | 00002590: 20 20 20 20 20 53 42 43 20 24 30 32 0D 20 20 20 | SBC $02. | 000025A0: 20 20 20 4A 53 52 20 53 45 54 4E 41 4D 0D 20 20 | JSR SETNAM. | 000025B0: 20 20 20 20 4C 44 41 20 23 24 37 46 0D 20 20 20 | LDA #$7F. | 000025C0: 20 20 20 4C 44 58 20 44 45 56 49 43 45 0D 20 20 | LDX DEVICE. | 000025D0: 20 20 20 20 4C 44 59 20 23 24 36 30 0D 20 20 20 | LDY #$60. | 000025E0: 20 20 20 4A 53 52 20 53 45 54 50 41 52 0D 20 20 | JSR SETPAR. | 000025F0: 20 20 20 20 4A 53 52 20 4F 50 45 4E 0D 20 20 20 | JSR OPEN. | 00002600: 20 20 20 4C 44 41 20 47 41 0D 20 20 20 20 20 20 | LDA GA. | 00002610: 4A 53 52 20 54 41 4C 4B 0D 20 20 20 20 20 20 4C |JSR TALK. L| 00002620: 44 41 20 53 41 0D 20 20 20 20 20 20 4A 53 52 20 |DA SA. JSR | 00002630: 53 45 43 54 4C 4B 0D 20 20 20 20 20 20 4C 44 41 |SECTLK. LDA| 00002640: 20 23 24 30 30 0D 20 20 20 20 20 20 53 54 41 20 | #$00. STA | 00002650: 53 54 41 54 55 53 0D 20 20 20 20 20 20 4C 44 59 |STATUS. LDY| 00002660: 20 23 24 30 33 0D 44 49 52 31 20 20 53 54 59 20 | #$03.DIR1 STY | 00002670: 24 35 45 0D 20 20 20 20 20 20 4A 53 52 20 49 45 |$5E. JSR IE| 00002680: 43 49 4E 0D 20 20 20 20 20 20 53 54 41 20 24 35 |CIN. STA $5| 00002690: 46 0D 20 20 20 20 20 20 4C 44 59 20 53 54 41 54 |F. LDY STAT| 000026A0: 55 53 0D 20 20 20 20 20 20 42 4E 45 20 44 49 52 |US. BNE DIR| 000026B0: 34 0D 20 20 20 20 20 20 4A 53 52 20 49 45 43 49 |4. JSR IECI| 000026C0: 4E 0D 20 20 20 20 20 20 4C 44 59 20 53 54 41 54 |N. LDY STAT| 000026D0: 55 53 0D 20 20 20 20 20 20 42 4E 45 20 44 49 52 |US. BNE DIR| 000026E0: 34 0D 20 20 20 20 20 20 4C 44 59 20 24 35 45 0D |4. LDY $5E.| 000026F0: 20 20 20 20 20 20 44 45 59 0D 20 20 20 20 20 20 | DEY. | 00002700: 42 4E 45 20 44 49 52 31 0D 20 20 20 20 20 20 4C |BNE DIR1. L| 00002710: 44 58 20 24 35 46 0D 20 20 20 20 20 20 4A 53 52 |DX $5F. JSR| 00002720: 20 24 42 44 43 44 0D 20 20 20 20 20 20 4C 44 41 | $BDCD. LDA| 00002730: 20 23 24 32 30 0D 20 20 20 20 20 20 4A 53 52 20 | #$20. JSR | 00002740: 43 48 4F 55 54 0D 44 49 52 33 20 20 4A 53 52 20 |CHOUT.DIR3 JSR | 00002750: 49 45 43 49 4E 0D 20 20 20 20 20 20 4C 44 58 20 |IECIN. LDX | 00002760: 53 54 41 54 55 53 0D 20 20 20 20 20 20 42 4E 45 |STATUS. BNE| 00002770: 20 44 49 52 34 0D 20 20 20 20 20 20 54 41 58 0D | DIR4. TAX.| 00002780: 20 20 20 20 20 20 42 45 51 20 44 49 52 32 0D 20 | BEQ DIR2. | 00002790: 20 20 20 20 20 4A 53 52 20 43 48 4F 55 54 0D 20 | JSR CHOUT. | 000027A0: 20 20 20 20 20 4A 4D 50 20 44 49 52 33 0D 44 49 | JMP DIR3.DI| 000027B0: 52 32 20 20 4C 44 41 20 23 24 30 44 0D 20 20 20 |R2 LDA #$0D. | 000027C0: 20 20 20 4A 53 52 20 43 48 4F 55 54 0D 20 20 20 | JSR CHOUT. | 000027D0: 20 20 20 4C 44 59 20 23 24 30 32 0D 20 20 20 20 | LDY #$02. | 000027E0: 20 20 42 4E 45 20 44 49 52 31 0D 44 49 52 34 20 | BNE DIR1.DIR4 | 000027F0: 20 4C 44 41 20 23 27 49 0D 20 20 20 20 20 20 53 | LDA #'I. S| 00002800: 54 41 20 24 35 45 0D 20 20 20 20 20 20 4C 44 41 |TA $5E. LDA| 00002810: 20 23 24 30 31 0D 20 20 20 20 20 20 4C 44 58 20 | #$01. LDX | 00002820: 23 24 35 45 0D 20 20 20 20 20 20 4C 44 59 20 23 |#$5E. LDY #| 00002830: 24 30 30 0D 20 20 20 20 20 20 4A 53 52 20 53 45 |$00. JSR SE| 00002840: 54 4E 41 4D 0D 20 20 20 20 20 20 4C 44 41 20 23 |TNAM. LDA #| 00002850: 37 45 0D 20 20 20 20 20 20 4C 44 58 20 44 45 56 |7E. LDX DEV| 00002860: 49 43 45 0D 20 20 20 20 20 20 4C 44 59 20 23 24 |ICE. LDY #$| 00002870: 30 46 0D 20 20 20 20 20 20 4A 53 52 20 53 45 54 |0F. JSR SET| 00002880: 50 41 52 0D 20 20 20 20 20 20 4A 53 52 20 4F 50 |PAR. JSR OP| 00002890: 45 4E 0D 20 20 20 20 20 20 4A 53 52 20 43 4C 41 |EN. JSR CLA| 000028A0: 4C 4C 0D 20 20 20 20 20 20 52 54 53 0D 47 45 54 |LL. RTS.GET| 000028B0: 50 20 20 4A 53 52 20 45 47 45 54 20 20 20 20 3B |P JSR EGET ;| 000028C0: C6 49 4C 45 4E 41 4D 45 4E 20 48 4F 4C 45 4E 20 |.ILENAMEN HOLEN | 000028D0: 55 4E 44 0D 20 20 20 20 20 20 42 45 51 20 47 45 |UND. BEQ GE| 000028E0: 54 45 52 0D 20 20 20 20 20 20 43 4D 50 20 23 27 |TER. CMP #'| 000028F0: 22 20 20 20 20 20 3B 53 45 54 5A 45 4E 0D 20 20 |" ;SETZEN. | 00002900: 20 20 20 20 42 4E 45 20 47 45 54 50 0D 20 20 20 | BNE GETP. | 00002910: 20 20 20 4C 44 59 20 23 24 30 32 0D 20 20 20 20 | LDY #$02. | 00002920: 20 20 4C 44 58 20 45 50 4F 49 4E 0D 20 20 20 20 | LDX EPOIN. | 00002930: 20 20 49 4E 58 0D 20 20 20 20 20 20 53 54 58 20 | INX. STX | 00002940: 24 30 32 0D 47 45 54 50 31 20 4A 53 52 20 45 47 |$02.GETP1 JSR EG| 00002950: 45 54 0D 20 20 20 20 20 20 42 45 51 20 47 45 54 |ET. BEQ GET| 00002960: 45 52 0D 20 20 20 20 20 20 43 4D 50 20 23 27 22 |ER. CMP #'"| 00002970: 0D 20 20 20 20 20 20 42 4E 45 20 47 45 54 50 31 |. BNE GETP1| 00002980: 0D 20 20 20 20 20 20 4C 44 41 20 45 50 4F 49 4E |. LDA EPOIN| 00002990: 0D 20 20 20 20 20 20 53 45 43 0D 20 20 20 20 20 |. SEC. | 000029A0: 20 53 42 43 20 24 30 32 0D 20 20 20 20 20 20 4A | SBC $02. J| 000029B0: 53 52 20 53 45 54 4E 41 4D 0D 20 20 20 20 20 20 |SR SETNAM. | 000029C0: 4A 53 52 20 45 47 45 54 20 20 20 20 3B D4 45 53 |JSR EGET ;.ES| 000029D0: 54 20 41 55 46 20 CB 4F 4D 4D 41 0D 20 20 20 20 |T AUF .OMMA. | 000029E0: 20 20 43 4D 50 20 23 27 2C 0D 20 20 20 20 20 20 | CMP #',. | 000029F0: 42 45 51 20 47 45 54 50 32 0D 47 45 54 45 52 20 |BEQ GETP2.GETER | 00002A00: 4C 44 58 20 23 24 30 31 0D 20 20 20 20 20 20 4A |LDX #$01. J| 00002A10: 4D 50 20 45 52 52 4F 52 0D 47 45 54 50 32 20 4A |MP ERROR.GETP2 J| 00002A20: 53 52 20 47 4E 55 4D 20 20 20 20 3B C7 45 52 41 |SR GNUM ;.ERA| 00002A30: 45 54 45 4E 55 4D 4D 45 52 20 48 4F 4C 45 4E 0D |ETENUMMER HOLEN.| 00002A40: 20 20 20 20 20 20 4C 44 41 20 4E 55 4D 48 20 20 | LDA NUMH | 00002A50: 20 20 3B 55 4E 44 20 C6 49 4C 45 50 41 52 41 4D | ;UND .ILEPARAM| 00002A60: 45 54 45 52 0D 20 20 20 20 20 20 42 45 51 20 47 |ETER. BEQ G| 00002A70: 45 54 50 34 20 20 20 3B 53 45 54 5A 45 4E 0D 47 |ETP4 ;SETZEN.G| 00002A80: 45 54 50 33 20 4C 44 58 20 23 24 30 32 0D 20 20 |ETP3 LDX #$02. | 00002A90: 20 20 20 20 4A 4D 50 20 45 52 52 4F 52 0D 47 45 | JMP ERROR.GE| 00002AA0: 54 50 34 20 4C 44 41 20 4E 55 4D 4C 0D 20 20 20 |TP4 LDA NUML. | 00002AB0: 20 20 20 43 4D 50 20 23 32 30 0D 20 20 20 20 20 | CMP #20. | 00002AC0: 20 42 43 53 20 47 45 54 50 33 0D 20 20 20 20 20 | BCS GETP3. | 00002AD0: 20 54 41 58 0D 20 20 20 20 20 20 4C 44 59 20 23 | TAX. LDY #| 00002AE0: 24 30 31 0D 20 20 20 20 20 20 4C 44 41 20 23 24 |$01. LDA #$| 00002AF0: 37 46 0D 20 20 20 20 20 20 4A 53 52 20 53 45 54 |7F. JSR SET| 00002B00: 50 41 52 0D 20 20 20 20 20 20 52 54 53 0D 4C 4F |PAR. RTS.LO| 00002B10: 41 44 20 20 4A 53 52 20 47 45 54 50 20 20 20 20 |AD JSR GETP | 00002B20: 3B D0 41 52 41 4D 45 54 45 52 20 53 45 54 5A 45 |;.ARAMETER SETZE| 00002B30: 4E 0D 20 20 20 20 20 20 4C 44 41 20 23 24 30 30 |N. LDA #$00| 00002B40: 20 20 20 20 3B CC 4F 41 44 0D 20 20 20 20 20 20 | ;.OAD. | 00002B50: 4A 53 52 20 43 4C 4F 41 44 0D 20 20 20 20 20 20 |JSR CLOAD. | 00002B60: 4A 4D 50 20 49 4F 0D 56 45 52 49 20 20 4A 53 52 |JMP IO.VERI JSR| 00002B70: 20 47 45 54 50 20 20 20 20 3B D0 41 52 41 4D 45 | GETP ;.ARAME| 00002B80: 54 45 52 20 53 45 54 5A 45 4E 0D 20 20 20 20 20 |TER SETZEN. | 00002B90: 20 4C 44 41 20 23 24 30 31 20 20 20 20 3B D6 45 | LDA #$01 ;.E| 00002BA0: 52 49 46 59 0D 20 20 20 20 20 20 4A 53 52 20 43 |RIFY. JSR C| 00002BB0: 4C 4F 41 44 0D 20 20 20 20 20 20 4A 4D 50 20 49 |LOAD. JMP I| 00002BC0: 4F 0D 53 41 56 45 20 20 4A 53 52 20 47 45 54 50 |O.SAVE JSR GETP| 00002BD0: 20 20 20 20 3B D0 41 52 41 4D 45 54 45 52 20 53 | ;.ARAMETER S| 00002BE0: 45 54 5A 45 4E 0D 20 20 20 20 20 20 44 45 43 20 |ETZEN. DEC | 00002BF0: 45 50 4F 49 4E 0D 20 20 20 20 20 20 4A 53 52 20 |EPOIN. JSR | 00002C00: 45 47 45 54 20 20 20 20 3B D4 45 53 54 20 41 55 |EGET ;.EST AU| 00002C10: 46 20 CB 4F 4D 4D 41 0D 20 20 20 20 20 20 43 4D |F .OMMA. CM| 00002C20: 50 20 23 27 2C 0D 20 20 20 20 20 20 42 45 51 20 |P #',. BEQ | 00002C30: 53 41 56 45 31 0D 20 20 20 20 20 20 4C 44 58 20 |SAVE1. LDX | 00002C40: 23 24 30 31 0D 20 20 20 20 20 20 4A 4D 50 20 45 |#$01. JMP E| 00002C50: 52 52 4F 52 0D 53 41 56 45 31 20 4C 44 41 20 23 |RROR.SAVE1 LDA #| 00002C60: 24 30 44 0D 20 20 20 20 20 20 4A 53 52 20 43 48 |$0D. JSR CH| 00002C70: 4F 55 54 0D 20 20 20 20 20 20 4A 53 52 20 47 41 |OUT. JSR GA| 00002C80: 44 52 20 20 20 20 3B D3 54 41 52 54 2D 20 55 4E |DR ;.TART- UN| 00002C90: 44 20 C5 4E 44 41 44 52 2E 0D 20 20 20 20 20 20 |D .NDADR.. | 00002CA0: 4C 44 41 20 23 24 35 43 20 20 20 20 3B 53 45 54 |LDA #$5C ;SET| 00002CB0: 5A 45 4E 0D 20 20 20 20 20 20 4C 44 58 20 24 35 |ZEN. LDX $5| 00002CC0: 45 0D 20 20 20 20 20 20 4C 44 59 20 24 35 46 0D |E. LDY $5F.| 00002CD0: 20 20 20 20 20 20 4A 53 52 20 43 53 41 56 45 20 | JSR CSAVE | 00002CE0: 20 20 3B D3 41 56 45 0D 49 4F 20 20 20 20 42 43 | ;.AVE.IO BC| 00002CF0: 53 20 49 4F 31 0D 20 20 20 20 20 20 4C 44 41 20 |S IO1. LDA | 00002D00: 53 54 41 54 55 53 0D 20 20 20 20 20 20 41 4E 44 |STATUS. AND| 00002D10: 20 23 25 30 30 31 31 31 31 31 31 0D 20 20 20 20 | #%00111111. | 00002D20: 20 20 42 4E 45 20 49 4F 31 0D 20 20 20 20 20 20 | BNE IO1. | 00002D30: 52 54 53 0D 49 4F 31 20 20 20 4C 44 58 20 23 24 |RTS.IO1 LDX #$| 00002D40: 30 33 0D 20 20 20 20 20 20 4A 4D 50 20 45 52 52 |03. JMP ERR| 00002D50: 4F 52 0D 4D 45 4D 20 20 20 4A 53 52 20 45 47 45 |OR.MEM JSR EGE| 00002D60: 54 0D 20 20 20 20 20 20 42 45 51 20 4D 45 4D 2E |T. BEQ MEM.| 00002D70: 31 0D 20 20 20 20 20 20 44 45 43 20 45 50 4F 49 |1. DEC EPOI| 00002D80: 4E 0D 20 20 20 20 20 20 4A 53 52 20 47 4E 55 4D |N. JSR GNUM| 00002D90: 20 20 20 20 3B D3 54 41 52 54 41 44 52 45 53 53 | ;.TARTADRESS| 00002DA0: 45 20 48 4F 4C 45 4E 0D 20 20 20 20 20 20 4C 44 |E HOLEN. LD| 00002DB0: 41 20 4E 55 4D 4C 20 20 20 20 3B 55 4E 44 20 53 |A NUML ;UND S| 00002DC0: 45 54 5A 45 4E 0D 20 20 20 20 20 20 53 54 41 20 |ETZEN. STA | 00002DD0: 24 35 43 0D 20 20 20 20 20 20 4C 44 41 20 4E 55 |$5C. LDA NU| 00002DE0: 4D 48 0D 20 20 20 20 20 20 53 54 41 20 24 35 44 |MH. STA $5D| 00002DF0: 0D 4D 45 4D 2E 31 20 44 45 43 20 45 50 4F 49 4E |.MEM.1 DEC EPOIN| 00002E00: 0D 20 20 20 20 20 20 4A 53 52 20 45 47 45 54 0D |. JSR EGET.| 00002E10: 20 20 20 20 20 20 42 4E 45 20 4D 45 4D 2E 32 0D | BNE MEM.2.| 00002E20: 20 20 20 20 20 20 4C 44 41 20 24 35 43 0D 20 20 | LDA $5C. | 00002E30: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 41 44 | CLC. AD| 00002E40: 43 20 23 24 30 31 0D 20 20 20 20 20 20 53 54 41 |C #$01. STA| 00002E50: 20 24 35 45 0D 20 20 20 20 20 20 4C 44 41 20 24 | $5E. LDA $| 00002E60: 35 44 0D 20 20 20 20 20 20 41 44 43 20 23 24 30 |5D. ADC #$0| 00002E70: 30 0D 20 20 20 20 20 20 53 54 41 20 24 35 46 0D |0. STA $5F.| 00002E80: 20 20 20 20 20 20 4A 4D 50 20 4D 4F 55 54 31 0D | JMP MOUT1.| 00002E90: 4D 45 4D 2E 32 20 43 4D 50 20 23 27 3A 20 20 20 |MEM.2 CMP #': | 00002EA0: 20 20 3B C5 49 4E 47 41 42 45 3F 0D 20 20 20 20 | ;.INGABE?. | 00002EB0: 20 20 42 45 51 20 4D 45 4D 49 4E 0D 20 20 20 20 | BEQ MEMIN. | 00002EC0: 20 20 43 4D 50 20 23 27 2C 20 20 20 20 20 3B C1 | CMP #', ;.| 00002ED0: 55 53 47 41 42 45 3F 0D 20 20 20 20 20 20 42 45 |USGABE?. BE| 00002EE0: 51 20 4D 4F 55 54 0D 4D 45 4D 45 52 20 4C 44 58 |Q MOUT.MEMER LDX| 00002EF0: 20 23 24 30 31 0D 20 20 20 20 20 20 4A 4D 50 20 | #$01. JMP | 00002F00: 45 52 52 4F 52 0D 4D 4F 55 54 20 20 44 45 43 20 |ERROR.MOUT DEC | 00002F10: 45 50 4F 49 4E 0D 20 20 20 20 20 20 4A 53 52 20 |EPOIN. JSR | 00002F20: 45 47 45 54 20 20 20 20 3B D4 45 53 54 20 41 55 |EGET ;.EST AU| 00002F30: 46 20 CB 4F 4D 4D 41 0D 20 20 20 20 20 20 43 4D |F .OMMA. CM| 00002F40: 50 20 23 27 2C 0D 20 20 20 20 20 20 42 4E 45 20 |P #',. BNE | 00002F50: 4D 45 4D 45 52 0D 20 20 20 20 20 20 4A 53 52 20 |MEMER. JSR | 00002F60: 47 4E 55 4D 20 20 20 20 3B C5 4E 44 41 44 52 45 |GNUM ;.NDADRE| 00002F70: 53 53 45 20 48 4F 4C 45 4E 0D 20 20 20 20 20 20 |SSE HOLEN. | 00002F80: 4C 44 41 20 4E 55 4D 4C 20 20 20 20 3B 55 4E 44 |LDA NUML ;UND| 00002F90: 20 53 45 54 5A 45 4E 0D 20 20 20 20 20 20 53 54 | SETZEN. ST| 00002FA0: 41 20 24 35 45 0D 20 20 20 20 20 20 4C 44 41 20 |A $5E. LDA | 00002FB0: 4E 55 4D 48 0D 20 20 20 20 20 20 53 54 41 20 24 |NUMH. STA $| 00002FC0: 35 46 0D 4D 4F 55 54 31 20 4C 44 41 20 23 24 30 |5F.MOUT1 LDA #$0| 00002FD0: 44 20 20 20 20 3B D0 52 4F 4D 50 54 20 55 4E 44 |D ;.ROMPT UND| 00002FE0: 20 C1 44 52 45 53 53 45 0D 20 20 20 20 20 20 4A | .DRESSE. J| 00002FF0: 53 52 20 43 48 4F 55 54 20 20 20 3B 41 55 53 47 |SR CHOUT ;AUSG| 00003000: 45 42 45 4E 0D 20 20 20 20 20 20 4C 44 41 20 23 |EBEN. LDA #| 00003010: 27 3E 0D 20 20 20 20 20 20 4A 53 52 20 43 48 4F |'>. JSR CHO| 00003020: 55 54 0D 20 20 20 20 20 20 4C 44 41 20 23 27 4D |UT. LDA #'M| 00003030: 0D 20 20 20 20 20 20 4A 53 52 20 43 48 4F 55 54 |. JSR CHOUT| 00003040: 0D 20 20 20 20 20 20 4C 44 41 20 23 27 24 0D 20 |. LDA #'$. | 00003050: 20 20 20 20 20 4A 53 52 20 43 48 4F 55 54 0D 20 | JSR CHOUT. | 00003060: 20 20 20 20 20 4C 44 41 20 24 35 44 0D 20 20 20 | LDA $5D. | 00003070: 20 20 20 4A 53 52 20 48 4F 55 54 31 0D 20 20 20 | JSR HOUT1. | 00003080: 20 20 20 4C 44 41 20 24 35 43 0D 20 20 20 20 20 | LDA $5C. | 00003090: 20 4A 53 52 20 48 4F 55 54 31 0D 20 20 20 20 20 | JSR HOUT1. | 000030A0: 20 4C 44 41 20 23 27 3A 0D 20 20 20 20 20 20 4A | LDA #':. J| 000030B0: 53 52 20 43 48 4F 55 54 0D 20 20 20 20 20 20 4C |SR CHOUT. L| 000030C0: 44 59 20 23 24 30 30 20 20 20 20 3B 45 49 4E 5A |DY #$00 ;EINZ| 000030D0: 45 4C 4E 45 20 C2 59 54 45 53 20 41 55 53 2D 0D |ELNE .YTES AUS-.| 000030E0: 4D 4F 55 54 32 20 4C 44 41 20 23 24 32 30 20 20 |MOUT2 LDA #$20 | 000030F0: 20 20 3B 47 45 42 45 4E 0D 20 20 20 20 20 20 4A | ;GEBEN. J| 00003100: 53 52 20 43 48 4F 55 54 0D 20 20 20 20 20 20 4C |SR CHOUT. L| 00003110: 44 41 20 28 24 35 43 29 2C 59 0D 20 20 20 20 20 |DA ($5C),Y. | 00003120: 20 4A 53 52 20 48 4F 55 54 31 0D 20 20 20 20 20 | JSR HOUT1. | 00003130: 20 49 4E 59 0D 20 20 20 20 20 20 43 50 59 20 23 | INY. CPY #| 00003140: 24 30 38 0D 20 20 20 20 20 20 42 4D 49 20 4D 4F |$08. BMI MO| 00003150: 55 54 32 0D 20 20 20 20 20 20 4C 44 41 20 24 35 |UT2. LDA $5| 00003160: 43 20 20 20 20 20 3B 4E 41 45 43 48 53 54 45 20 |C ;NAECHSTE | 00003170: DA 45 49 4C 45 0D 20 20 20 20 20 20 43 4C 43 0D |.EILE. CLC.| 00003180: 20 20 20 20 20 20 41 44 43 20 23 24 30 38 0D 20 | ADC #$08. | 00003190: 20 20 20 20 20 53 54 41 20 24 35 43 0D 20 20 20 | STA $5C. | 000031A0: 20 20 20 4C 44 41 20 24 35 44 0D 20 20 20 20 20 | LDA $5D. | 000031B0: 20 41 44 43 20 23 24 30 30 0D 20 20 20 20 20 20 | ADC #$00. | 000031C0: 53 54 41 20 24 35 44 0D 20 20 20 20 20 20 4C 44 |STA $5D. LD| 000031D0: 41 20 24 35 43 20 20 20 20 20 3B 53 43 48 4F 4E |A $5C ;SCHON| 000031E0: 20 C5 4E 44 45 3F 0D 20 20 20 20 20 20 53 45 43 | .NDE?. SEC| 000031F0: 0D 20 20 20 20 20 20 53 42 43 20 24 35 45 0D 20 |. SBC $5E. | 00003200: 20 20 20 20 20 4C 44 41 20 24 35 44 0D 20 20 20 | LDA $5D. | 00003210: 20 20 20 53 42 43 20 24 35 46 0D 20 20 20 20 20 | SBC $5F. | 00003220: 20 42 43 43 20 4D 4F 55 54 31 0D 20 20 20 20 20 | BCC MOUT1. | 00003230: 20 52 54 53 0D 4D 45 4D 49 4E 20 4A 53 52 20 47 | RTS.MEMIN JSR G| 00003240: 4E 55 4D 20 20 20 20 3B 45 49 4E 5A 45 4C 4E 45 |NUM ;EINZELNE| 00003250: 20 C2 59 54 45 53 20 48 4F 4C 45 4E 0D 20 20 20 | .YTES HOLEN. | 00003260: 20 20 20 4C 44 41 20 4E 55 4D 48 0D 20 20 20 20 | LDA NUMH. | 00003270: 20 20 42 45 51 20 4D 49 4E 31 0D 20 20 20 20 20 | BEQ MIN1. | 00003280: 20 4C 44 58 20 23 24 30 32 0D 20 20 20 20 20 20 | LDX #$02. | 00003290: 4A 4D 50 20 45 52 52 4F 52 0D 4D 49 4E 31 20 20 |JMP ERROR.MIN1 | 000032A0: 4C 44 41 20 4E 55 4D 4C 0D 20 20 20 20 20 20 4C |LDA NUML. L| 000032B0: 44 59 20 23 24 30 30 20 20 20 20 3B 55 4E 44 20 |DY #$00 ;UND | 000032C0: 49 4E 20 D3 50 45 49 43 48 45 52 0D 20 20 20 20 |IN .PEICHER. | 000032D0: 20 20 53 54 41 20 28 24 35 43 29 2C 59 20 3B 53 | STA ($5C),Y ;S| 000032E0: 43 48 52 45 49 42 45 4E 0D 20 20 20 20 20 20 49 |CHREIBEN. I| 000032F0: 4E 43 20 24 35 43 20 20 20 20 20 3B 4E 41 45 43 |NC $5C ;NAEC| 00003300: 48 53 54 45 20 C1 44 52 45 53 53 45 0D 20 20 20 |HSTE .DRESSE. | 00003310: 20 20 20 42 4E 45 20 4D 49 4E 32 0D 20 20 20 20 | BNE MIN2. | 00003320: 20 20 49 4E 43 20 24 35 44 0D 4D 49 4E 32 20 20 | INC $5D.MIN2 | 00003330: 44 45 43 20 45 50 4F 49 4E 0D 20 20 20 20 20 20 |DEC EPOIN. | 00003340: 4A 53 52 20 45 47 45 54 0D 20 20 20 20 20 20 50 |JSR EGET. P| 00003350: 48 50 0D 20 20 20 20 20 20 44 45 43 20 45 50 4F |HP. DEC EPO| 00003360: 49 4E 0D 20 20 20 20 20 20 50 4C 50 0D 20 20 20 |IN. PLP. | 00003370: 20 20 20 42 4E 45 20 4D 45 4D 49 4E 20 20 20 3B | BNE MEMIN ;| 00003380: C5 4E 44 45 3F 0D 20 20 20 20 20 20 52 54 53 0D |.NDE?. RTS.| 00003390: 42 49 4E 20 20 20 4A 53 52 20 45 47 45 54 0D 20 |BIN JSR EGET. | 000033A0: 20 20 20 20 20 42 45 51 20 42 49 4E 2E 31 0D 20 | BEQ BIN.1. | 000033B0: 20 20 20 20 20 44 45 43 20 45 50 4F 49 4E 0D 20 | DEC EPOIN. | 000033C0: 20 20 20 20 20 4A 53 52 20 47 4E 55 4D 20 20 20 | JSR GNUM | 000033D0: 20 3B D3 54 41 52 54 41 44 52 45 53 53 45 20 48 | ;.TARTADRESSE H| 000033E0: 4F 4C 45 4E 0D 20 20 20 20 20 20 4C 44 41 20 4E |OLEN. LDA N| 000033F0: 55 4D 4C 20 20 20 20 3B 55 4E 44 20 53 45 54 5A |UML ;UND SETZ| 00003400: 45 4E 0D 20 20 20 20 20 20 53 54 41 20 24 35 43 |EN. STA $5C| 00003410: 0D 20 20 20 20 20 20 4C 44 41 20 4E 55 4D 48 0D |. LDA NUMH.| 00003420: 20 20 20 20 20 20 53 54 41 20 24 35 44 0D 42 49 | STA $5D.BI| 00003430: 4E 2E 31 20 44 45 43 20 45 50 4F 49 4E 0D 20 20 |N.1 DEC EPOIN. | 00003440: 20 20 20 20 4A 53 52 20 45 47 45 54 0D 20 20 20 | JSR EGET. | 00003450: 20 20 20 42 4E 45 20 42 49 4E 2E 32 0D 20 20 20 | BNE BIN.2. | 00003460: 20 20 20 4C 44 41 20 24 35 43 0D 20 20 20 20 20 | LDA $5C. | 00003470: 20 43 4C 43 0D 20 20 20 20 20 20 41 44 43 20 23 | CLC. ADC #| 00003480: 24 30 31 0D 20 20 20 20 20 20 53 54 41 20 24 35 |$01. STA $5| 00003490: 45 0D 20 20 20 20 20 20 4C 44 41 20 24 35 44 0D |E. LDA $5D.| 000034A0: 20 20 20 20 20 20 41 44 43 20 23 24 30 30 0D 20 | ADC #$00. | 000034B0: 20 20 20 20 20 53 54 41 20 24 35 46 0D 20 20 20 | STA $5F. | 000034C0: 20 20 20 4A 4D 50 20 42 4E 54 31 0D 42 49 4E 2E | JMP BNT1.BIN.| 000034D0: 32 20 43 4D 50 20 23 27 3A 20 20 20 20 20 3B C5 |2 CMP #': ;.| 000034E0: 49 4E 47 41 42 45 3F 0D 20 20 20 20 20 20 42 45 |INGABE?. BE| 000034F0: 51 20 42 49 4E 49 4E 0D 20 20 20 20 20 20 43 4D |Q BININ. CM| 00003500: 50 20 23 27 2C 20 20 20 20 20 3B C1 55 53 47 41 |P #', ;.USGA| 00003510: 42 45 3F 0D 20 20 20 20 20 20 42 45 51 20 42 4E |BE?. BEQ BN| 00003520: 4F 55 54 0D 20 20 20 20 20 20 4C 44 58 20 23 24 |OUT. LDX #$| 00003530: 30 31 0D 20 20 20 20 20 20 4A 4D 50 20 45 52 52 |01. JMP ERR| 00003540: 4F 52 0D 42 4E 4F 55 54 20 4A 53 52 20 47 4E 55 |OR.BNOUT JSR GNU| 00003550: 4D 20 20 20 20 3B C5 4E 44 41 44 52 45 53 53 45 |M ;.NDADRESSE| 00003560: 20 48 4F 4C 45 4E 0D 20 20 20 20 20 20 4C 44 41 | HOLEN. LDA| 00003570: 20 4E 55 4D 4C 20 20 20 20 3B 55 4E 44 20 53 45 | NUML ;UND SE| 00003580: 54 5A 45 4E 0D 20 20 20 20 20 20 53 54 41 20 24 |TZEN. STA $| 00003590: 35 45 0D 20 20 20 20 20 20 4C 44 41 20 4E 55 4D |5E. LDA NUM| 000035A0: 48 0D 20 20 20 20 20 20 53 54 41 20 24 35 46 0D |H. STA $5F.| 000035B0: 42 4E 54 31 20 20 4C 44 41 20 23 24 30 44 20 20 |BNT1 LDA #$0D | 000035C0: 20 20 3B D0 52 4F 4D 50 54 20 55 4E 44 20 C1 44 | ;.ROMPT UND .D| 000035D0: 52 45 53 53 45 0D 20 20 20 20 20 20 4A 53 52 20 |RESSE. JSR | 000035E0: 43 48 4F 55 54 20 20 20 3B 41 55 53 47 45 42 45 |CHOUT ;AUSGEBE| 000035F0: 4E 0D 20 20 20 20 20 20 4C 44 41 20 23 27 3E 0D |N. LDA #'>.| 00003600: 20 20 20 20 20 20 4A 53 52 20 43 48 4F 55 54 0D | JSR CHOUT.| 00003610: 20 20 20 20 20 20 4C 44 41 20 23 27 42 0D 20 20 | LDA #'B. | 00003620: 20 20 20 20 4A 53 52 20 43 48 4F 55 54 0D 20 20 | JSR CHOUT. | 00003630: 20 20 20 20 4C 44 41 20 23 27 24 0D 20 20 20 20 | LDA #'$. | 00003640: 20 20 4A 53 52 20 43 48 4F 55 54 0D 20 20 20 20 | JSR CHOUT. | 00003650: 20 20 4C 44 41 20 24 35 44 0D 20 20 20 20 20 20 | LDA $5D. | 00003660: 4A 53 52 20 48 4F 55 54 31 0D 20 20 20 20 20 20 |JSR HOUT1. | 00003670: 4C 44 41 20 24 35 43 0D 20 20 20 20 20 20 4A 53 |LDA $5C. JS| 00003680: 52 20 48 4F 55 54 31 0D 20 20 20 20 20 20 4C 44 |R HOUT1. LD| 00003690: 41 20 23 27 3A 0D 20 20 20 20 20 20 4A 53 52 20 |A #':. JSR | 000036A0: 43 48 4F 55 54 0D 20 20 20 20 20 20 4C 44 59 20 |CHOUT. LDY | 000036B0: 23 24 30 30 20 20 20 20 3B C2 59 54 45 20 48 4F |#$00 ;.YTE HO| 000036C0: 4C 45 4E 0D 20 20 20 20 20 20 4C 44 41 20 28 24 |LEN. LDA ($| 000036D0: 35 43 29 2C 59 0D 20 20 20 20 20 20 4A 53 52 20 |5C),Y. JSR | 000036E0: 42 4F 55 54 0D 20 20 20 20 20 20 49 4E 43 20 24 |BOUT. INC $| 000036F0: 35 43 20 20 20 20 20 3B 4E 41 45 43 48 53 54 45 |5C ;NAECHSTE| 00003700: 53 20 C2 59 54 45 0D 20 20 20 20 20 20 42 4E 45 |S .YTE. BNE| 00003710: 20 42 4E 54 32 0D 20 20 20 20 20 20 49 4E 43 20 | BNT2. INC | 00003720: 24 35 44 0D 42 4E 54 32 20 20 4C 44 41 20 24 35 |$5D.BNT2 LDA $5| 00003730: 43 20 20 20 20 20 3B C5 4E 44 45 3F 0D 20 20 20 |C ;.NDE?. | 00003740: 20 20 20 53 45 43 0D 20 20 20 20 20 20 53 42 43 | SEC. SBC| 00003750: 20 24 35 45 0D 20 20 20 20 20 20 4C 44 41 20 24 | $5E. LDA $| 00003760: 35 44 0D 20 20 20 20 20 20 53 42 43 20 24 35 46 |5D. SBC $5F| 00003770: 0D 20 20 20 20 20 20 42 43 43 20 42 4E 54 31 0D |. BCC BNT1.| 00003780: 20 20 20 20 20 20 52 54 53 0D 42 49 4E 49 4E 20 | RTS.BININ | 00003790: 4A 53 52 20 47 4E 55 4D 20 20 20 20 3B C2 59 54 |JSR GNUM ;.YT| 000037A0: 45 20 48 4F 4C 45 4E 0D 20 20 20 20 20 20 4C 44 |E HOLEN. LD| 000037B0: 41 20 4E 55 4D 48 0D 20 20 20 20 20 20 42 45 51 |A NUMH. BEQ| 000037C0: 20 42 49 4E 49 31 0D 20 20 20 20 20 20 4C 44 58 | BINI1. LDX| 000037D0: 20 23 24 30 32 0D 20 20 20 20 20 20 4A 4D 50 20 | #$02. JMP | 000037E0: 45 52 52 4F 52 0D 42 49 4E 49 31 20 4C 44 41 20 |ERROR.BINI1 LDA | 000037F0: 4E 55 4D 4C 0D 20 20 20 20 20 20 4C 44 59 20 23 |NUML. LDY #| 00003800: 24 30 30 20 20 20 20 3B 55 4E 44 20 49 4E 20 D3 |$00 ;UND IN .| 00003810: 50 45 49 43 48 45 52 0D 20 20 20 20 20 20 53 54 |PEICHER. ST| 00003820: 41 20 28 24 35 43 29 2C 59 20 3B 53 43 48 52 45 |A ($5C),Y ;SCHRE| 00003830: 49 42 45 4E 0D 20 20 20 20 20 20 49 4E 43 20 24 |IBEN. INC $| 00003840: 35 43 20 20 20 20 20 3B 4E 41 45 43 48 53 54 45 |5C ;NAECHSTE| 00003850: 53 20 C2 59 54 45 0D 20 20 20 20 20 20 42 4E 45 |S .YTE. BNE| 00003860: 20 42 49 4E 49 32 0D 20 20 20 20 20 20 49 4E 43 | BINI2. INC| 00003870: 20 24 35 44 0D 42 49 4E 49 32 20 44 45 43 20 45 | $5D.BINI2 DEC E| 00003880: 50 4F 49 4E 0D 20 20 20 20 20 20 4A 53 52 20 45 |POIN. JSR E| 00003890: 47 45 54 0D 20 20 20 20 20 20 50 48 50 0D 20 20 |GET. PHP. | 000038A0: 20 20 20 20 44 45 43 20 45 50 4F 49 4E 0D 20 20 | DEC EPOIN. | 000038B0: 20 20 20 20 50 4C 50 0D 20 20 20 20 20 20 42 4E | PLP. BN| 000038C0: 45 20 42 49 4E 49 4E 20 20 20 3B C5 4E 44 45 3F |E BININ ;.NDE?| 000038D0: 0D 20 20 20 20 20 20 52 54 53 0D 43 48 52 20 20 |. RTS.CHR | 000038E0: 20 4A 53 52 20 45 47 45 54 0D 20 20 20 20 20 20 | JSR EGET. | 000038F0: 42 45 51 20 43 48 52 2E 31 0D 20 20 20 20 20 20 |BEQ CHR.1. | 00003900: 44 45 43 20 45 50 4F 49 4E 0D 20 20 20 20 20 20 |DEC EPOIN. | 00003910: 4A 53 52 20 47 4E 55 4D 20 20 20 20 3B D3 54 41 |JSR GNUM ;.TA| 00003920: 52 54 41 44 52 45 53 53 45 20 48 4F 4C 45 4E 0D |RTADRESSE HOLEN.| 00003930: 20 20 20 20 20 20 4C 44 41 20 4E 55 4D 4C 20 20 | LDA NUML | 00003940: 20 20 3B 55 4E 44 20 53 45 54 5A 45 4E 0D 20 20 | ;UND SETZEN. | 00003950: 20 20 20 20 53 54 41 20 24 35 43 0D 20 20 20 20 | STA $5C. | 00003960: 20 20 4C 44 41 20 4E 55 4D 48 0D 20 20 20 20 20 | LDA NUMH. | 00003970: 20 53 54 41 20 24 35 44 0D 43 48 52 2E 31 20 44 | STA $5D.CHR.1 D| 00003980: 45 43 20 45 50 4F 49 4E 0D 20 20 20 20 20 20 4A |EC EPOIN. J| 00003990: 53 52 20 45 47 45 54 0D 20 20 20 20 20 20 42 4E |SR EGET. BN| 000039A0: 45 20 43 48 52 2E 32 0D 20 20 20 20 20 20 4C 44 |E CHR.2. LD| 000039B0: 41 20 24 35 43 0D 20 20 20 20 20 20 43 4C 43 0D |A $5C. CLC.| 000039C0: 20 20 20 20 20 20 41 44 43 20 23 24 30 31 0D 20 | ADC #$01. | 000039D0: 20 20 20 20 20 53 54 41 20 24 35 45 0D 20 20 20 | STA $5E. | 000039E0: 20 20 20 4C 44 41 20 24 35 44 0D 20 20 20 20 20 | LDA $5D. | 000039F0: 20 41 44 43 20 23 24 30 30 0D 20 20 20 20 20 20 | ADC #$00. | 00003A00: 53 54 41 20 24 35 46 0D 20 20 20 20 20 20 4A 4D |STA $5F. JM| 00003A10: 50 20 43 48 52 4F 31 0D 43 48 52 2E 32 20 43 4D |P CHRO1.CHR.2 CM| 00003A20: 50 20 23 27 3A 20 20 20 20 20 3B C5 49 4E 47 41 |P #': ;.INGA| 00003A30: 42 45 3F 0D 20 20 20 20 20 20 42 45 51 20 43 48 |BE?. BEQ CH| 00003A40: 52 49 4E 0D 20 20 20 20 20 20 43 4D 50 20 23 27 |RIN. CMP #'| 00003A50: 2C 20 20 20 20 20 3B C1 55 53 47 41 42 45 3F 0D |, ;.USGABE?.| 00003A60: 20 20 20 20 20 20 42 45 51 20 43 52 4F 55 54 0D | BEQ CROUT.| 00003A70: 20 20 20 20 20 20 4C 44 58 20 23 24 30 31 0D 20 | LDX #$01. | 00003A80: 20 20 20 20 20 4A 4D 50 20 45 52 52 4F 52 0D 43 | JMP ERROR.C| 00003A90: 52 4F 55 54 20 4A 53 52 20 47 4E 55 4D 20 20 20 |ROUT JSR GNUM | 00003AA0: 20 3B C5 4E 44 41 44 52 45 53 53 45 20 48 4F 4C | ;.NDADRESSE HOL| 00003AB0: 45 4E 0D 20 20 20 20 20 20 4C 44 41 20 4E 55 4D |EN. LDA NUM| 00003AC0: 4C 20 20 20 20 3B 55 4E 44 20 53 45 54 5A 45 4E |L ;UND SETZEN| 00003AD0: 0D 20 20 20 20 20 20 53 54 41 20 24 35 45 0D 20 |. STA $5E. | 00003AE0: 20 20 20 20 20 4C 44 41 20 4E 55 4D 48 0D 20 20 | LDA NUMH. | 00003AF0: 20 20 20 20 53 54 41 20 24 35 46 0D 43 48 52 4F | STA $5F.CHRO| 00003B00: 31 20 4C 44 41 20 23 24 30 44 20 20 20 20 3B D0 |1 LDA #$0D ;.| 00003B10: 52 4F 4D 50 54 20 55 4E 44 20 C1 44 52 45 53 53 |ROMPT UND .DRESS| 00003B20: 45 0D 20 20 20 20 20 20 4A 53 52 20 43 48 4F 55 |E. JSR CHOU| 00003B30: 54 20 20 20 3B 41 55 53 47 45 42 45 4E 0D 20 20 |T ;AUSGEBEN. | 00003B40: 20 20 20 20 4C 44 41 20 23 27 3E 0D 20 20 20 20 | LDA #'>. | 00003B50: 20 20 4A 53 52 20 43 48 4F 55 54 0D 20 20 20 20 | JSR CHOUT. | 00003B60: 20 20 4C 44 41 20 23 27 43 0D 20 20 20 20 20 20 | LDA #'C. | 00003B70: 4A 53 52 20 43 48 4F 55 54 0D 20 20 20 20 20 20 |JSR CHOUT. | 00003B80: 4C 44 41 20 23 27 24 0D 20 20 20 20 20 20 4A 53 |LDA #'$. JS| 00003B90: 52 20 43 48 4F 55 54 0D 20 20 20 20 20 20 4C 44 |R CHOUT. LD| 00003BA0: 41 20 24 35 44 0D 20 20 20 20 20 20 4A 53 52 20 |A $5D. JSR | 00003BB0: 48 4F 55 54 31 0D 20 20 20 20 20 20 4C 44 41 20 |HOUT1. LDA | 00003BC0: 24 35 43 0D 20 20 20 20 20 20 4A 53 52 20 48 4F |$5C. JSR HO| 00003BD0: 55 54 31 0D 20 20 20 20 20 20 4C 44 41 20 23 27 |UT1. LDA #'| 00003BE0: 3A 0D 20 20 20 20 20 20 4A 53 52 20 43 48 4F 55 |:. JSR CHOU| 00003BF0: 54 0D 20 20 20 20 20 20 4C 44 59 20 23 24 30 30 |T. LDY #$00| 00003C00: 20 20 20 20 3B 45 49 4E 5A 45 4C 4E 45 20 DA 45 | ;EINZELNE .E| 00003C10: 49 43 48 45 4E 0D 43 48 52 4F 32 20 4C 44 41 20 |ICHEN.CHRO2 LDA | 00003C20: 28 24 35 43 29 2C 59 20 3B 48 4F 4C 45 4E 0D 20 |($5C),Y ;HOLEN. | 00003C30: 20 20 20 20 20 53 54 41 20 24 30 32 0D 20 20 20 | STA $02. | 00003C40: 20 20 20 41 4E 44 20 23 25 30 31 31 30 30 30 30 | AND #%0110000| 00003C50: 30 0D 20 20 20 20 20 20 42 4E 45 20 43 48 52 4F |0. BNE CHRO| 00003C60: 33 0D 20 20 20 20 20 20 4C 44 41 20 23 24 32 30 |3. LDA #$20| 00003C70: 0D 20 20 20 20 20 20 53 54 41 20 24 30 32 0D 43 |. STA $02.C| 00003C80: 48 52 4F 33 20 4C 44 41 20 24 30 32 20 20 20 20 |HRO3 LDA $02 | 00003C90: 20 3B 55 4E 44 20 41 55 53 47 45 42 45 4E 0D 20 | ;UND AUSGEBEN. | 00003CA0: 20 20 20 20 20 4A 53 52 20 43 48 4F 55 54 0D 20 | JSR CHOUT. | 00003CB0: 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 43 | INY. C| 00003CC0: 50 59 20 23 24 31 30 0D 20 20 20 20 20 20 42 4D |PY #$10. BM| 00003CD0: 49 20 43 48 52 4F 32 0D 20 20 20 20 20 20 4C 44 |I CHRO2. LD| 00003CE0: 41 20 24 35 43 20 20 20 20 20 3B 4E 41 45 43 48 |A $5C ;NAECH| 00003CF0: 53 54 45 20 DA 45 49 4C 45 0D 20 20 20 20 20 20 |STE .EILE. | 00003D00: 43 4C 43 0D 20 20 20 20 20 20 41 44 43 20 23 24 |CLC. ADC #$| 00003D10: 31 30 0D 20 20 20 20 20 20 53 54 41 20 24 35 43 |10. STA $5C| 00003D20: 0D 20 20 20 20 20 20 4C 44 41 20 24 35 44 0D 20 |. LDA $5D. | 00003D30: 20 20 20 20 20 41 44 43 20 23 24 30 30 0D 20 20 | ADC #$00. | 00003D40: 20 20 20 20 53 54 41 20 24 35 44 0D 20 20 20 20 | STA $5D. | 00003D50: 20 20 4C 44 41 20 24 35 43 20 20 20 20 20 3B C5 | LDA $5C ;.| 00003D60: 4E 44 45 3F 0D 20 20 20 20 20 20 53 45 43 0D 20 |NDE?. SEC. | 00003D70: 20 20 20 20 20 53 42 43 20 24 35 45 0D 20 20 20 | SBC $5E. | 00003D80: 20 20 20 4C 44 41 20 24 35 44 0D 20 20 20 20 20 | LDA $5D. | 00003D90: 20 53 42 43 20 24 35 46 0D 20 20 20 20 20 20 42 | SBC $5F. B| 00003DA0: 43 43 20 43 48 52 4F 31 0D 20 20 20 20 20 20 52 |CC CHRO1. R| 00003DB0: 54 53 0D 43 48 52 49 4E 20 4C 44 59 20 23 24 30 |TS.CHRIN LDY #$0| 00003DC0: 30 20 20 20 20 3B DA 45 49 43 48 45 4E 20 48 4F |0 ;.EICHEN HO| 00003DD0: 4C 45 4E 0D 20 20 20 20 20 20 4A 53 52 20 47 45 |LEN. JSR GE| 00003DE0: 54 0D 20 20 20 20 20 20 42 45 51 20 43 48 52 49 |T. BEQ CHRI| 00003DF0: 32 20 20 20 3B C5 4E 44 45 3F 0D 20 20 20 20 20 |2 ;.NDE?. | 00003E00: 20 53 54 41 20 24 30 32 0D 20 20 20 20 20 20 43 | STA $02. C| 00003E10: 4D 50 20 23 24 32 30 0D 20 20 20 20 20 20 42 4E |MP #$20. BN| 00003E20: 45 20 43 48 52 49 31 0D 20 20 20 20 20 20 4C 44 |E CHRI1. LD| 00003E30: 41 20 28 24 35 43 29 2C 59 0D 20 20 20 20 20 20 |A ($5C),Y. | 00003E40: 41 4E 44 20 23 25 30 31 31 30 30 30 30 30 0D 20 |AND #%01100000. | 00003E50: 20 20 20 20 20 42 4E 45 20 43 48 52 49 31 0D 20 | BNE CHRI1. | 00003E60: 20 20 20 20 20 4C 44 41 20 28 24 35 43 29 2C 59 | LDA ($5C),Y| 00003E70: 0D 20 20 20 20 20 20 53 54 41 20 24 30 32 0D 43 |. STA $02.C| 00003E80: 48 52 49 31 20 4C 44 41 20 24 30 32 20 20 20 20 |HRI1 LDA $02 | 00003E90: 20 3B 55 4E 44 20 49 4E 20 D3 50 45 49 43 48 45 | ;UND IN .PEICHE| 00003EA0: 52 0D 20 20 20 20 20 20 53 54 41 20 28 24 35 43 |R. STA ($5C| 00003EB0: 29 2C 59 20 3B 53 43 48 52 45 49 42 45 4E 0D 20 |),Y ;SCHREIBEN. | 00003EC0: 20 20 20 20 20 49 4E 43 20 24 35 43 20 20 20 20 | INC $5C | 00003ED0: 20 3B 4E 41 45 43 48 53 54 45 53 20 C2 59 54 45 | ;NAECHSTES .YTE| 00003EE0: 0D 20 20 20 20 20 20 42 4E 45 20 43 48 52 49 4E |. BNE CHRIN| 00003EF0: 0D 20 20 20 20 20 20 49 4E 43 20 24 35 44 0D 20 |. INC $5D. | 00003F00: 20 20 20 20 20 4A 4D 50 20 43 48 52 49 4E 0D 43 | JMP CHRIN.C| 00003F10: 48 52 49 32 20 52 54 53 0D 4D 4E 45 4D 31 20 2E |HRI2 RTS.MNEM1 .| 00003F20: 54 45 58 54 20 22 41 41 41 41 41 41 41 41 41 42 |TEXT "AAAAAAAAAB| 00003F30: 42 42 42 42 42 42 22 3B 45 52 53 54 45 0D 20 20 |BBBBBB";ERSTE. | 00003F40: 20 20 20 20 2E 54 45 58 54 20 22 42 42 42 43 43 | .TEXT "BBBCC| 00003F50: 43 43 43 43 43 44 44 44 44 45 49 22 3B D3 54 45 |CCCCCDDDDEI";.TE| 00003F60: 4C 4C 45 0D 20 20 20 20 20 20 2E 54 45 58 54 20 |LLE. .TEXT | 00003F70: 22 49 49 49 4A 4A 4C 4C 4C 4C 4C 4E 4F 50 50 50 |"IIIJJLLLLLNOPPP| 00003F80: 50 22 3B 44 45 52 0D 20 20 20 20 20 20 2E 54 45 |P";DER. .TE| 00003F90: 58 54 20 22 52 52 52 52 52 52 53 53 53 53 53 53 |XT "RRRRRRSSSSSS| 00003FA0: 53 53 53 53 22 3B CD 4E 45 4D 4F 2D 0D 20 20 20 |SSSS";.NEMO-. | 00003FB0: 20 20 20 2E 54 45 58 54 20 22 53 53 53 53 54 54 | .TEXT "SSSSTT| 00003FC0: 54 54 54 54 3F 2A 5E 22 20 20 20 3B 4E 49 43 53 |TTTT?*^" ;NICS| 00003FD0: 0D 4D 4E 45 4D 32 20 2E 54 45 58 54 20 22 44 4E |.MNEM2 .TEXT "DN| 00003FE0: 4E 52 53 53 53 53 58 43 43 45 49 4D 4E 50 22 3B |NRSSSSXCCEIMNP";| 00003FF0: 5A 57 45 49 54 45 0D 20 20 20 20 20 20 2E 54 45 |ZWEITE. .TE| 00004000: 58 54 20 22 52 56 56 4C 4C 4C 4C 4D 50 50 43 45 |XT "RVVLLLLMPPCE| 00004010: 45 45 4F 43 22 3B D3 54 45 4C 4C 45 0D 20 20 20 |EEOC";.TELLE. | 00004020: 20 20 20 2E 54 45 58 54 20 22 4E 4E 4E 4D 53 41 | .TEXT "NNNMSA| 00004030: 44 44 44 53 4F 52 48 48 4C 4C 22 3B 44 45 52 0D |DDDSORHHLL";DER.| 00004040: 20 20 20 20 20 20 2E 54 45 58 54 20 22 4C 4F 4F | .TEXT "LOO| 00004050: 52 54 54 41 41 42 45 45 45 4C 52 53 54 22 3B CD |RTTAABEEELRST";.| 00004060: 4E 45 4D 4F 2D 0D 20 20 20 20 20 20 2E 54 45 58 |NEMO-. .TEX| 00004070: 54 20 22 54 54 58 59 41 41 53 58 58 59 3F 2A 5E |T "TTXYAASXXY?*^| 00004080: 22 20 20 20 3B 4E 49 43 53 0D 4D 4E 45 4D 33 20 |" ;NICS.MNEM3 | 00004090: 2E 54 45 58 54 20 22 43 43 44 52 4C 52 54 58 41 |.TEXT "CCDRLRTXA| 000040A0: 43 53 51 54 49 45 4C 22 3B 44 52 49 54 54 45 0D |CSQTIEL";DRITTE.| 000040B0: 20 20 20 20 20 20 2E 54 45 58 54 20 22 4B 43 53 | .TEXT "KCS| 000040C0: 43 44 49 56 50 58 59 43 43 58 59 52 53 22 3B D3 |CDIVPXYCCXYRS";.| 000040D0: 54 45 4C 4C 45 0D 20 20 20 20 20 20 2E 54 45 58 |TELLE. .TEX| 000040E0: 54 20 22 43 58 59 50 52 58 41 58 59 52 50 41 41 |T "CXYPRXAXYRPAA| 000040F0: 50 41 50 22 3B 44 45 52 0D 20 20 20 20 20 20 2E |PAP";DER. .| 00004100: 54 45 58 54 20 22 41 4C 52 41 49 53 48 58 43 43 |TEXT "ALRAISHXCC| 00004110: 44 49 4F 45 48 41 22 3B CD 4E 45 4D 4F 2D 0D 20 |DIOEHA";.NEMO-. | 00004120: 20 20 20 20 20 2E 54 45 58 54 20 22 58 59 48 48 | .TEXT "XYHH| 00004130: 58 59 58 41 53 41 3F 2A 5E 22 20 20 20 3B 4E 49 |XYXASA?*^" ;NI| 00004140: 43 53 0D 4D 4E 45 4D 34 20 2E 42 59 54 45 20 24 |CS.MNEM4 .BYTE $| 00004150: 31 30 2C 24 32 42 2C 24 34 43 2C 24 33 43 20 20 |10,$2B,$4C,$3C | 00004160: 3B C3 4F 44 45 0D 20 20 20 20 20 20 2E 42 59 54 |;.ODE. .BYT| 00004170: 45 20 24 34 42 2C 24 32 42 2C 24 30 34 2C 24 33 |E $4B,$2B,$04,$3| 00004180: 43 20 20 3B 46 55 45 52 0D 20 20 20 20 20 20 2E |C ;FUER. .| 00004190: 42 59 54 45 20 24 32 44 2C 24 32 42 2C 24 30 34 |BYTE $2D,$2B,$04| 000041A0: 2C 24 30 31 20 20 3B C2 45 46 45 48 4C 0D 20 20 |,$01 ;.EFEHL. | 000041B0: 20 20 20 20 2E 42 59 54 45 20 24 34 42 2C 24 32 | .BYTE $4B,$2| 000041C0: 42 2C 24 30 34 2C 24 33 43 0D 20 20 20 20 20 20 |B,$04,$3C. | 000041D0: 2E 42 59 54 45 20 24 30 46 2C 24 32 42 2C 24 34 |.BYTE $0F,$2B,$4| 000041E0: 43 2C 24 33 43 0D 20 20 20 20 20 20 2E 42 59 54 |C,$3C. .BYT| 000041F0: 45 20 24 34 42 2C 24 32 42 2C 24 30 34 2C 24 33 |E $4B,$2B,$04,$3| 00004200: 43 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 31 |C. .BYTE $1| 00004210: 33 2C 24 32 42 2C 24 34 42 2C 24 33 43 0D 20 20 |3,$2B,$4B,$3C. | 00004220: 20 20 20 20 2E 42 59 54 45 20 24 34 42 2C 24 32 | .BYTE $4B,$2| 00004230: 42 2C 24 30 34 2C 24 33 43 0D 20 20 20 20 20 20 |B,$04,$3C. | 00004240: 2E 42 59 54 45 20 24 32 34 2C 24 30 32 2C 24 34 |.BYTE $24,$02,$4| 00004250: 43 2C 24 33 30 0D 20 20 20 20 20 20 2E 42 59 54 |C,$30. .BYT| 00004260: 45 20 24 30 43 2C 24 30 32 2C 24 33 31 2C 24 33 |E $0C,$02,$31,$3| 00004270: 30 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 32 |0. .BYTE $2| 00004280: 46 2C 24 30 32 2C 24 33 31 2C 24 30 31 0D 20 20 |F,$02,$31,$01. | 00004290: 20 20 20 20 2E 42 59 54 45 20 24 30 43 2C 24 30 | .BYTE $0C,$0| 000042A0: 32 2C 24 33 31 2C 24 33 30 0D 20 20 20 20 20 20 |2,$31,$30. | 000042B0: 2E 42 59 54 45 20 24 30 44 2C 24 30 32 2C 24 34 |.BYTE $0D,$02,$4| 000042C0: 43 2C 24 33 30 0D 20 20 20 20 20 20 2E 42 59 54 |C,$30. .BYT| 000042D0: 45 20 24 34 42 2C 24 30 32 2C 24 33 31 2C 24 33 |E $4B,$02,$31,$3| 000042E0: 30 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 33 |0. .BYTE $3| 000042F0: 39 2C 24 30 32 2C 24 34 42 2C 24 33 30 0D 20 20 |9,$02,$4B,$30. | 00004300: 20 20 20 20 2E 42 59 54 45 20 24 34 42 2C 24 30 | .BYTE $4B,$0| 00004310: 32 2C 24 33 31 2C 24 33 30 0D 20 20 20 20 20 20 |2,$31,$30. | 00004320: 2E 42 59 54 45 20 24 33 34 2C 24 31 45 2C 24 34 |.BYTE $34,$1E,$4| 00004330: 43 2C 24 33 44 0D 20 20 20 20 20 20 2E 42 59 54 |C,$3D. .BYT| 00004340: 45 20 24 34 42 2C 24 31 45 2C 24 32 39 2C 24 33 |E $4B,$1E,$29,$3| 00004350: 44 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 32 |D. .BYTE $2| 00004360: 43 2C 24 31 45 2C 24 32 39 2C 24 30 35 0D 20 20 |C,$1E,$29,$05. | 00004370: 20 20 20 20 2E 42 59 54 45 20 24 32 33 2C 24 31 | .BYTE $23,$1| 00004380: 45 2C 24 32 39 2C 24 33 44 0D 20 20 20 20 20 20 |E,$29,$3D. | 00004390: 2E 42 59 54 45 20 24 31 31 2C 24 31 45 2C 24 34 |.BYTE $11,$1E,$4| 000043A0: 43 2C 24 33 44 0D 20 20 20 20 20 20 2E 42 59 54 |C,$3D. .BYT| 000043B0: 45 20 24 34 42 2C 24 31 45 2C 24 32 39 2C 24 33 |E $4B,$1E,$29,$3| 000043C0: 44 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 31 |D. .BYTE $1| 000043D0: 35 2C 24 31 45 2C 24 34 42 2C 24 33 44 0D 20 20 |5,$1E,$4B,$3D. | 000043E0: 20 20 20 20 2E 42 59 54 45 20 24 34 42 2C 24 31 | .BYTE $4B,$1| 000043F0: 45 2C 24 32 39 2C 24 33 44 0D 20 20 20 20 20 20 |E,$29,$3D. | 00004400: 2E 42 59 54 45 20 24 33 35 2C 24 30 30 2C 24 34 |.BYTE $35,$00,$4| 00004410: 43 2C 24 33 33 0D 20 20 20 20 20 20 2E 42 59 54 |C,$33. .BYT| 00004420: 45 20 24 34 42 2C 24 30 30 2C 24 33 32 2C 24 33 |E $4B,$00,$32,$3| 00004430: 33 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 32 |3. .BYTE $2| 00004440: 45 2C 24 30 30 2C 24 33 32 2C 24 30 33 0D 20 20 |E,$00,$32,$03. | 00004450: 20 20 20 20 2E 42 59 54 45 20 24 32 33 2C 24 30 | .BYTE $23,$0| 00004460: 30 2C 24 33 32 2C 24 33 33 0D 20 20 20 20 20 20 |0,$32,$33. | 00004470: 2E 42 59 54 45 20 24 31 32 2C 24 30 30 2C 24 34 |.BYTE $12,$00,$4| 00004480: 43 2C 24 33 33 0D 20 20 20 20 20 20 2E 42 59 54 |C,$33. .BYT| 00004490: 45 20 24 34 42 2C 24 30 30 2C 24 33 32 2C 24 33 |E $4B,$00,$32,$3| 000044A0: 33 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 33 |3. .BYTE $3| 000044B0: 42 2C 24 30 30 2C 24 34 42 2C 24 33 33 0D 20 20 |B,$00,$4B,$33. | 000044C0: 20 20 20 20 2E 42 59 54 45 20 24 34 42 2C 24 30 | .BYTE $4B,$0| 000044D0: 30 2C 24 33 32 2C 24 33 33 0D 20 20 20 20 20 20 |0,$32,$33. | 000044E0: 2E 42 59 54 45 20 24 34 42 2C 24 33 46 2C 24 34 |.BYTE $4B,$3F,$4| 000044F0: 42 2C 24 33 37 0D 20 20 20 20 20 20 2E 42 59 54 |B,$37. .BYT| 00004500: 45 20 24 34 31 2C 24 33 46 2C 24 34 30 2C 24 33 |E $41,$3F,$40,$3| 00004510: 37 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 31 |7. .BYTE $1| 00004520: 44 2C 24 34 42 2C 24 34 37 2C 24 30 38 0D 20 20 |D,$4B,$47,$08. | 00004530: 20 20 20 20 2E 42 59 54 45 20 24 34 31 2C 24 33 | .BYTE $41,$3| 00004540: 46 2C 24 34 30 2C 24 33 37 0D 20 20 20 20 20 20 |F,$40,$37. | 00004550: 2E 42 59 54 45 20 24 30 39 2C 24 33 46 2C 24 34 |.BYTE $09,$3F,$4| 00004560: 43 2C 24 33 36 0D 20 20 20 20 20 20 2E 42 59 54 |C,$36. .BYT| 00004570: 45 20 24 34 31 2C 24 33 46 2C 24 34 30 2C 24 33 |E $41,$3F,$40,$3| 00004580: 37 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 34 |7. .BYTE $4| 00004590: 39 2C 24 33 46 2C 24 34 38 2C 24 33 45 0D 20 20 |9,$3F,$48,$3E. | 000045A0: 20 20 20 20 2E 42 59 54 45 20 24 34 33 2C 24 33 | .BYTE $43,$3| 000045B0: 46 2C 24 34 32 2C 24 33 36 0D 20 20 20 20 20 20 |F,$42,$36. | 000045C0: 2E 42 59 54 45 20 24 32 38 2C 24 32 36 2C 24 32 |.BYTE $28,$26,$2| 000045D0: 37 2C 24 32 35 0D 20 20 20 20 20 20 2E 42 59 54 |7,$25. .BYT| 000045E0: 45 20 24 32 38 2C 24 32 36 2C 24 32 37 2C 24 32 |E $28,$26,$27,$2| 000045F0: 35 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 34 |5. .BYTE $4| 00004600: 35 2C 24 32 36 2C 24 34 34 2C 24 34 41 0D 20 20 |5,$26,$44,$4A. | 00004610: 20 20 20 20 2E 42 59 54 45 20 24 32 38 2C 24 32 | .BYTE $28,$2| 00004620: 36 2C 24 32 37 2C 24 32 35 0D 20 20 20 20 20 20 |6,$27,$25. | 00004630: 2E 42 59 54 45 20 24 30 41 2C 24 32 36 2C 24 34 |.BYTE $0A,$26,$4| 00004640: 43 2C 24 32 35 0D 20 20 20 20 20 20 2E 42 59 54 |C,$25. .BYT| 00004650: 45 20 24 32 38 2C 24 32 36 2C 24 32 37 2C 24 32 |E $28,$26,$27,$2| 00004660: 35 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 31 |5. .BYTE $1| 00004670: 36 2C 24 32 36 2C 24 34 36 2C 24 30 36 0D 20 20 |6,$26,$46,$06. | 00004680: 20 20 20 20 2E 42 59 54 45 20 24 32 38 2C 24 32 | .BYTE $28,$2| 00004690: 36 2C 24 32 37 2C 24 32 35 0D 20 20 20 20 20 20 |6,$27,$25. | 000046A0: 2E 42 59 54 45 20 24 31 39 2C 24 31 37 2C 24 34 |.BYTE $19,$17,$4| 000046B0: 42 2C 24 31 41 0D 20 20 20 20 20 20 2E 42 59 54 |B,$1A. .BYT| 000046C0: 45 20 24 31 39 2C 24 31 37 2C 24 31 42 2C 24 31 |E $19,$17,$1B,$1| 000046D0: 41 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 32 |A. .BYTE $2| 000046E0: 32 2C 24 31 37 2C 24 31 43 2C 24 30 37 0D 20 20 |2,$17,$1C,$07. | 000046F0: 20 20 20 20 2E 42 59 54 45 20 24 31 39 2C 24 31 | .BYTE $19,$1| 00004700: 37 2C 24 31 42 2C 24 31 41 0D 20 20 20 20 20 20 |7,$1B,$1A. | 00004710: 2E 42 59 54 45 20 24 30 45 2C 24 31 37 2C 24 34 |.BYTE $0E,$17,$4| 00004720: 43 2C 24 31 41 0D 20 20 20 20 20 20 2E 42 59 54 |C,$1A. .BYT| 00004730: 45 20 24 34 42 2C 24 31 37 2C 24 31 42 2C 24 31 |E $4B,$17,$1B,$1| 00004740: 41 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 31 |A. .BYTE $1| 00004750: 34 2C 24 31 37 2C 24 34 42 2C 24 31 41 0D 20 20 |4,$17,$4B,$1A. | 00004760: 20 20 20 20 2E 42 59 54 45 20 24 34 42 2C 24 31 | .BYTE $4B,$1| 00004770: 37 2C 24 31 42 2C 24 31 41 0D 20 20 20 20 20 20 |7,$1B,$1A. | 00004780: 2E 42 59 54 45 20 24 31 38 2C 24 33 38 2C 24 34 |.BYTE $18,$38,$4| 00004790: 42 2C 24 31 46 0D 20 20 20 20 20 20 2E 42 59 54 |B,$1F. .BYT| 000047A0: 45 20 24 31 38 2C 24 33 38 2C 24 32 30 2C 24 31 |E $18,$38,$20,$1| 000047B0: 46 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 32 |F. .BYTE $2| 000047C0: 31 2C 24 33 38 2C 24 32 41 2C 24 33 38 0D 20 20 |1,$38,$2A,$38. | 000047D0: 20 20 20 20 2E 42 59 54 45 20 24 31 38 2C 24 33 | .BYTE $18,$3| 000047E0: 38 2C 24 32 30 2C 24 31 46 0D 20 20 20 20 20 20 |8,$20,$1F. | 000047F0: 2E 42 59 54 45 20 24 30 42 2C 24 33 38 2C 24 34 |.BYTE $0B,$38,$4| 00004800: 43 2C 24 31 46 0D 20 20 20 20 20 20 2E 42 59 54 |C,$1F. .BYT| 00004810: 45 20 24 34 42 2C 24 33 38 2C 24 32 30 2C 24 31 |E $4B,$38,$20,$1| 00004820: 46 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 33 |F. .BYTE $3| 00004830: 41 2C 24 33 38 2C 24 34 42 2C 24 31 46 0D 20 20 |A,$38,$4B,$1F. | 00004840: 20 20 20 20 2E 42 59 54 45 20 24 34 42 2C 24 33 | .BYTE $4B,$3| 00004850: 38 2C 24 32 30 2C 24 31 46 0D 4C 41 4E 47 20 20 |8,$20,$1F.LANG | 00004860: 2E 42 59 54 45 20 24 30 31 2C 24 30 32 2C 24 30 |.BYTE $01,$02,$0| 00004870: 32 2C 24 30 32 20 3B C1 4E 5A 41 48 4C 0D 20 20 |2,$02 ;.NZAHL. | 00004880: 20 20 20 20 2E 42 59 54 45 20 24 30 32 2C 24 30 | .BYTE $02,$0| 00004890: 32 2C 24 30 32 2C 24 30 32 20 3B 44 45 52 20 C2 |2,$02,$02 ;DER .| 000048A0: 59 54 45 53 0D 20 20 20 20 20 20 2E 42 59 54 45 |YTES. .BYTE| 000048B0: 20 24 30 33 2C 24 30 33 2C 24 30 33 2C 24 30 33 | $03,$03,$03,$03| 000048C0: 0D 41 44 52 20 20 20 53 54 41 20 4F 50 43 20 20 |.ADR STA OPC | 000048D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B C1 44 | ;.D| 000048E0: 52 45 53 53 49 45 52 2D 0D 20 20 20 20 20 20 43 |RESSIER-. C| 000048F0: 4D 50 20 23 24 36 43 20 20 20 20 20 20 20 20 20 |MP #$6C | 00004900: 20 20 20 20 20 3B 55 4E 47 53 41 52 54 0D 20 20 | ;UNGSART. | 00004910: 20 20 20 20 42 4E 45 20 41 30 20 20 20 20 20 20 | BNE A0 | 00004920: 20 20 20 20 20 20 20 20 20 20 3B 41 55 53 20 CF | ;AUS .| 00004930: 50 43 4F 44 45 0D 20 20 20 20 20 20 4C 44 41 20 |PCODE. LDA | 00004940: 23 24 30 43 20 20 20 20 20 20 20 20 20 20 20 20 |#$0C | 00004950: 20 20 3A 45 52 4D 49 54 54 45 4C 4E 0D 20 20 20 | :ERMITTELN. | 00004960: 20 20 20 52 54 53 0D 41 30 20 20 20 20 43 4D 50 | RTS.A0 CMP| 00004970: 20 23 24 38 39 0D 20 20 20 20 20 20 42 4E 45 20 | #$89. BNE | 00004980: 41 31 0D 20 20 20 20 20 20 4C 44 41 20 23 24 30 |A1. LDA #$0| 00004990: 33 0D 20 20 20 20 20 20 52 54 53 0D 41 31 20 20 |3. RTS.A1 | 000049A0: 20 20 41 4E 44 20 23 24 31 46 0D 20 20 20 20 20 | AND #$1F. | 000049B0: 20 54 41 58 0D 20 20 20 20 20 20 4C 44 41 20 4F | TAX. LDA O| 000049C0: 50 43 0D 20 20 20 20 20 20 43 4D 50 20 23 24 30 |PC. CMP #$0| 000049D0: 30 0D 20 20 20 20 20 20 42 50 4C 20 41 32 0D 20 |0. BPL A2. | 000049E0: 20 20 20 20 20 43 4D 50 20 23 24 43 30 0D 20 20 | CMP #$C0. | 000049F0: 20 20 20 20 42 50 4C 20 41 32 0D 20 20 20 20 20 | BPL A2. | 00004A00: 20 4C 44 41 20 41 44 52 31 2C 58 0D 20 20 20 20 | LDA ADR1,X. | 00004A10: 20 20 4A 4D 50 20 41 33 0D 41 32 20 20 20 20 4C | JMP A3.A2 L| 00004A20: 44 41 20 41 44 52 30 2C 58 0D 41 33 20 20 20 20 |DA ADR0,X.A3 | 00004A30: 43 50 58 20 23 24 30 30 0D 20 20 20 20 20 20 42 |CPX #$00. B| 00004A40: 45 51 20 41 35 0D 20 20 20 20 20 20 43 50 58 20 |EQ A5. CPX | 00004A50: 23 24 30 32 0D 20 20 20 20 20 20 42 45 51 20 41 |#$02. BEQ A| 00004A60: 36 0D 20 20 20 20 20 20 52 54 53 0D 41 34 20 20 |6. RTS.A4 | 00004A70: 20 20 4C 44 41 20 4F 50 43 0D 20 20 20 20 20 20 | LDA OPC. | 00004A80: 4C 53 52 20 41 0D 20 20 20 20 20 20 4C 53 52 20 |LSR A. LSR | 00004A90: 41 0D 20 20 20 20 20 20 4C 53 52 20 41 0D 20 20 |A. LSR A. | 00004AA0: 20 20 20 20 4C 53 52 20 41 0D 20 20 20 20 20 20 | LSR A. | 00004AB0: 4C 53 52 20 41 0D 20 20 20 20 20 20 54 41 58 0D |LSR A. TAX.| 00004AC0: 20 20 20 20 20 20 52 54 53 0D 41 35 20 20 20 20 | RTS.A5 | 00004AD0: 4A 53 52 20 41 34 0D 20 20 20 20 20 20 4C 44 41 |JSR A4. LDA| 00004AE0: 20 41 44 52 32 2C 58 0D 20 20 20 20 20 20 52 54 | ADR2,X. RT| 00004AF0: 53 0D 41 36 20 20 20 20 4A 53 52 20 41 34 0D 20 |S.A6 JSR A4. | 00004B00: 20 20 20 20 20 4C 44 41 20 41 44 52 33 2C 58 0D | LDA ADR3,X.| 00004B10: 20 20 20 20 20 20 52 54 53 0D 41 44 52 30 20 20 | RTS.ADR0 | 00004B20: 2E 42 59 54 45 20 24 30 30 2C 24 30 37 2C 24 30 |.BYTE $00,$07,$0| 00004B30: 30 2C 24 30 37 20 3B D4 41 42 45 4C 4C 45 0D 20 |0,$07 ;.ABELLE. | 00004B40: 20 20 20 20 20 2E 42 59 54 45 20 24 30 33 2C 24 | .BYTE $03,$| 00004B50: 30 33 2C 24 30 33 2C 24 30 33 20 3B 46 55 45 52 |03,$03,$03 ;FUER| 00004B60: 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 30 31 |. .BYTE $01| 00004B70: 2C 24 30 32 2C 24 30 31 2C 24 30 32 20 3B C1 44 |,$02,$01,$02 ;.D| 00004B80: 52 45 53 53 49 45 52 2D 0D 20 20 20 20 20 20 2E |RESSIER-. .| 00004B90: 42 59 54 45 20 24 30 39 2C 24 30 39 2C 24 30 39 |BYTE $09,$09,$09| 00004BA0: 2C 24 30 39 20 3B 55 4E 47 53 41 52 54 45 4E 0D |,$09 ;UNGSARTEN.| 00004BB0: 20 20 20 20 20 20 2E 42 59 54 45 20 24 30 36 2C | .BYTE $06,| 00004BC0: 24 30 38 2C 24 30 31 2C 24 30 38 0D 20 20 20 20 |$08,$01,$08. | 00004BD0: 20 20 2E 42 59 54 45 20 24 30 33 2C 24 30 34 2C | .BYTE $03,$04,| 00004BE0: 24 30 34 2C 24 30 34 0D 20 20 20 20 20 20 2E 42 |$04,$04. .B| 00004BF0: 59 54 45 20 24 30 31 2C 24 30 42 2C 24 30 31 2C |YTE $01,$0B,$01,| 00004C00: 24 30 42 0D 20 20 20 20 20 20 2E 42 59 54 45 20 |$0B. .BYTE | 00004C10: 24 30 39 2C 24 30 41 2C 24 30 41 2C 24 30 41 0D |$09,$0A,$0A,$0A.| 00004C20: 41 44 52 31 20 20 2E 42 59 54 45 20 24 30 30 2C |ADR1 .BYTE $00,| 00004C30: 24 30 37 2C 24 30 30 2C 24 30 37 20 3B D3 4F 4E |$07,$00,$07 ;.ON| 00004C40: 44 45 52 2D 0D 20 20 20 20 20 20 2E 42 59 54 45 |DER-. .BYTE| 00004C50: 20 24 30 33 2C 24 30 33 2C 24 30 33 2C 24 30 33 | $03,$03,$03,$03| 00004C60: 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 30 31 |. .BYTE $01| 00004C70: 2C 24 30 32 2C 24 30 31 2C 24 30 32 20 3B 46 41 |,$02,$01,$02 ;FA| 00004C80: 4C 4C 20 31 0D 20 20 20 20 20 20 2E 42 59 54 45 |LL 1. .BYTE| 00004C90: 20 24 30 39 2C 24 30 39 2C 24 30 39 2C 24 30 39 | $09,$09,$09,$09| 00004CA0: 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 30 36 |. .BYTE $06| 00004CB0: 2C 24 30 38 2C 24 30 31 2C 24 30 38 0D 20 20 20 |,$08,$01,$08. | 00004CC0: 20 20 20 2E 42 59 54 45 20 24 30 34 2C 24 30 34 | .BYTE $04,$04| 00004CD0: 2C 24 30 35 2C 24 30 35 0D 20 20 20 20 20 20 2E |,$05,$05. .| 00004CE0: 42 59 54 45 20 24 30 31 2C 24 30 42 2C 24 30 31 |BYTE $01,$0B,$01| 00004CF0: 2C 24 30 42 0D 20 20 20 20 20 20 2E 42 59 54 45 |,$0B. .BYTE| 00004D00: 20 24 30 41 2C 24 30 41 2C 24 30 42 2C 24 30 42 | $0A,$0A,$0B,$0B| 00004D10: 0D 41 44 52 32 20 20 2E 42 59 54 45 20 24 30 31 |.ADR2 .BYTE $01| 00004D20: 2C 24 30 39 2C 24 30 31 2C 24 30 31 20 3B D3 4F |,$09,$01,$01 ;.O| 00004D30: 4E 44 45 52 2D 0D 20 20 20 20 20 20 2E 42 59 54 |NDER-. .BYT| 00004D40: 45 20 24 30 33 2C 24 30 32 2C 24 30 32 2C 24 30 |E $03,$02,$02,$0| 00004D50: 32 20 3B 46 41 4C 4C 20 32 0D 41 44 52 33 20 20 |2 ;FALL 2.ADR3 | 00004D60: 2E 42 59 54 45 20 24 30 31 2C 24 30 31 2C 24 30 |.BYTE $01,$01,$0| 00004D70: 31 2C 24 30 31 20 3B D3 4F 4E 44 45 52 2D 0D 20 |1,$01 ;.ONDER-. | 00004D80: 20 20 20 20 20 2E 42 59 54 45 20 24 30 33 2C 24 | .BYTE $03,$| 00004D90: 30 32 2C 24 30 33 2C 24 30 33 20 3B 46 41 4C 4C |02,$03,$03 ;FALL| 00004DA0: 20 33 0D 44 41 53 53 20 20 4A 53 52 20 45 47 45 | 3.DASS JSR EGE| 00004DB0: 54 0D 20 20 20 20 20 20 42 45 51 20 44 41 53 2E |T. BEQ DAS.| 00004DC0: 31 0D 20 20 20 20 20 20 44 45 43 20 45 50 4F 49 |1. DEC EPOI| 00004DD0: 4E 0D 20 20 20 20 20 20 4A 53 52 20 47 4E 55 4D |N. JSR GNUM| 00004DE0: 20 20 20 20 3B D3 54 41 52 54 41 44 52 45 53 53 | ;.TARTADRESS| 00004DF0: 45 20 48 4F 4C 45 4E 0D 20 20 20 20 20 20 4C 44 |E HOLEN. LD| 00004E00: 41 20 4E 55 4D 4C 20 20 20 20 3B 55 4E 44 20 53 |A NUML ;UND S| 00004E10: 45 54 5A 45 4E 0D 20 20 20 20 20 20 53 54 41 20 |ETZEN. STA | 00004E20: 24 35 43 0D 20 20 20 20 20 20 4C 44 41 20 4E 55 |$5C. LDA NU| 00004E30: 4D 48 0D 20 20 20 20 20 20 53 54 41 20 24 35 44 |MH. STA $5D| 00004E40: 0D 44 41 53 2E 31 20 44 45 43 20 45 50 4F 49 4E |.DAS.1 DEC EPOIN| 00004E50: 0D 20 20 20 20 20 20 4A 53 52 20 45 47 45 54 0D |. JSR EGET.| 00004E60: 20 20 20 20 20 20 42 4E 45 20 44 41 53 2E 32 0D | BNE DAS.2.| 00004E70: 20 20 20 20 20 20 4C 44 41 20 23 32 33 0D 20 20 | LDA #23. | 00004E80: 20 20 20 20 53 54 41 20 24 46 46 0D 44 41 53 2E | STA $FF.DAS.| 00004E90: 2E 20 4A 53 52 20 44 49 53 53 31 0D 20 20 20 20 |. JSR DISS1. | 00004EA0: 20 20 44 45 43 20 24 46 46 0D 20 20 20 20 20 20 | DEC $FF. | 00004EB0: 42 4E 45 20 44 41 53 2E 2E 0D 20 20 20 20 20 20 |BNE DAS... | 00004EC0: 52 54 53 0D 44 41 53 2E 32 20 43 4D 50 20 23 27 |RTS.DAS.2 CMP #'| 00004ED0: 3A 20 20 20 20 20 3B C5 49 4E 47 41 42 45 3F 0D |: ;.INGABE?.| 00004EE0: 20 20 20 20 20 20 42 4E 45 20 44 41 53 53 31 0D | BNE DASS1.| 00004EF0: 20 20 20 20 20 20 4A 4D 50 20 41 53 53 0D 44 41 | JMP ASS.DA| 00004F00: 53 53 31 20 43 4D 50 20 23 27 2C 20 20 20 20 20 |SS1 CMP #', | 00004F10: 3B C1 55 53 47 41 42 45 3F 0D 20 20 20 20 20 20 |;.USGABE?. | 00004F20: 42 45 51 20 44 49 53 53 0D 20 20 20 20 20 20 4C |BEQ DISS. L| 00004F30: 44 58 20 23 24 30 31 0D 20 20 20 20 20 20 4A 4D |DX #$01. JM| 00004F40: 50 20 45 52 52 4F 52 0D 44 49 53 53 20 20 4A 53 |P ERROR.DISS JS| 00004F50: 52 20 47 4E 55 4D 20 20 20 20 3B C5 4E 44 41 44 |R GNUM ;.NDAD| 00004F60: 52 45 53 53 45 20 48 4F 4C 45 4E 0D 20 20 20 20 |RESSE HOLEN. | 00004F70: 20 20 4C 44 41 20 4E 55 4D 4C 20 20 20 20 3B 55 | LDA NUML ;U| 00004F80: 4E 44 20 53 45 54 5A 45 4E 0D 20 20 20 20 20 20 |ND SETZEN. | 00004F90: 53 54 41 20 24 35 45 0D 20 20 20 20 20 20 4C 44 |STA $5E. LD| 00004FA0: 41 20 4E 55 4D 48 0D 20 20 20 20 20 20 53 54 41 |A NUMH. STA| 00004FB0: 20 24 35 46 0D 44 49 53 53 41 20 4A 53 52 20 44 | $5F.DISSA JSR D| 00004FC0: 49 53 53 31 20 20 20 3B 31 20 DA 45 49 4C 45 20 |ISS1 ;1 .EILE | 00004FD0: 44 52 55 43 4B 45 4E 0D 20 20 20 20 20 20 4C 44 |DRUCKEN. LD| 00004FE0: 41 20 24 35 43 20 20 20 20 20 3B C5 4E 44 45 3F |A $5C ;.NDE?| 00004FF0: 0D 20 20 20 20 20 20 53 45 43 0D 20 20 20 20 20 |. SEC. | 00005000: 20 53 42 43 20 24 35 45 0D 20 20 20 20 20 20 4C | SBC $5E. L| 00005010: 44 41 20 24 35 44 0D 20 20 20 20 20 20 53 42 43 |DA $5D. SBC| 00005020: 20 24 35 46 0D 20 20 20 20 20 20 42 43 43 20 44 | $5F. BCC D| 00005030: 49 53 53 41 0D 20 20 20 20 20 20 52 54 53 0D 44 |ISSA. RTS.D| 00005040: 49 53 53 31 20 4C 44 41 20 23 24 30 44 20 20 20 |ISS1 LDA #$0D | 00005050: 20 3B D0 52 4F 4D 50 54 20 55 4E 44 20 C1 44 52 | ;.ROMPT UND .DR| 00005060: 45 53 53 45 0D 20 20 20 20 20 20 4A 53 52 20 43 |ESSE. JSR C| 00005070: 48 4F 55 54 20 20 20 3B 41 55 53 47 45 42 45 4E |HOUT ;AUSGEBEN| 00005080: 0D 20 20 20 20 20 20 4C 44 41 20 23 27 3E 0D 20 |. LDA #'>. | 00005090: 20 20 20 20 20 4A 53 52 20 43 48 4F 55 54 0D 20 | JSR CHOUT. | 000050A0: 20 20 20 20 20 4C 44 41 20 23 27 44 0D 20 20 20 | LDA #'D. | 000050B0: 20 20 20 4A 53 52 20 43 48 4F 55 54 0D 20 20 20 | JSR CHOUT. | 000050C0: 20 20 20 4C 44 41 20 23 27 24 0D 20 20 20 20 20 | LDA #'$. | 000050D0: 20 4A 53 52 20 43 48 4F 55 54 0D 20 20 20 20 20 | JSR CHOUT. | 000050E0: 20 4C 44 41 20 24 35 44 0D 20 20 20 20 20 20 4A | LDA $5D. J| 000050F0: 53 52 20 48 4F 55 54 31 0D 20 20 20 20 20 20 4C |SR HOUT1. L| 00005100: 44 41 20 24 35 43 0D 20 20 20 20 20 20 4A 53 52 |DA $5C. JSR| 00005110: 20 48 4F 55 54 31 0D 20 20 20 20 20 20 4C 44 41 | HOUT1. LDA| 00005120: 20 23 27 3A 0D 20 20 20 20 20 20 4A 53 52 20 43 | #':. JSR C| 00005130: 48 4F 55 54 0D 20 20 20 20 20 20 4C 44 59 20 23 |HOUT. LDY #| 00005140: 24 30 30 20 20 20 20 3B CF 50 43 4F 44 45 20 48 |$00 ;.PCODE H| 00005150: 4F 4C 45 4E 0D 20 20 20 20 20 20 4C 44 41 20 28 |OLEN. LDA (| 00005160: 24 35 43 29 2C 59 0D 20 20 20 20 20 20 4A 53 52 |$5C),Y. JSR| 00005170: 20 48 4F 55 54 20 20 20 20 3B 55 4E 44 20 44 52 | HOUT ;UND DR| 00005180: 55 43 4B 45 4E 0D 20 20 20 20 20 20 4C 44 41 20 |UCKEN. LDA | 00005190: 28 24 35 43 29 2C 59 0D 20 20 20 20 20 20 4A 53 |($5C),Y. JS| 000051A0: 52 20 41 44 52 20 20 20 20 20 3B C1 44 52 45 53 |R ADR ;.DRES| 000051B0: 53 49 45 52 55 4E 47 53 41 52 54 0D 20 20 20 20 |SIERUNGSART. | 000051C0: 20 20 54 41 58 20 20 20 20 20 20 20 20 20 3B 48 | TAX ;H| 000051D0: 4F 4C 45 4E 0D 20 20 20 20 20 20 44 45 58 0D 20 |OLEN. DEX. | 000051E0: 20 20 20 20 20 4C 44 41 20 4C 41 4E 47 2C 58 20 | LDA LANG,X | 000051F0: 20 3B C2 45 46 45 48 4C 53 4C 41 45 4E 47 45 20 | ;.EFEHLSLAENGE | 00005200: 48 4F 4C 45 4E 0D 20 20 20 20 20 20 54 41 58 0D |HOLEN. TAX.| 00005210: 20 20 20 20 20 20 43 50 58 20 23 24 30 31 0D 20 | CPX #$01. | 00005220: 20 20 20 20 20 42 45 51 20 44 49 53 53 32 0D 20 | BEQ DISS2. | 00005230: 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 4C | INY. L| 00005240: 44 41 20 28 24 35 43 29 2C 59 0D 20 20 20 20 20 |DA ($5C),Y. | 00005250: 20 4A 53 52 20 48 4F 55 54 0D 20 20 20 20 20 20 | JSR HOUT. | 00005260: 43 50 58 20 23 24 30 32 0D 20 20 20 20 20 20 42 |CPX #$02. B| 00005270: 45 51 20 44 49 53 53 32 0D 20 20 20 20 20 20 49 |EQ DISS2. I| 00005280: 4E 59 0D 20 20 20 20 20 20 4C 44 41 20 28 24 35 |NY. LDA ($5| 00005290: 43 29 2C 59 0D 20 20 20 20 20 20 4A 53 52 20 48 |C),Y. JSR H| 000052A0: 4F 55 54 0D 44 49 53 53 32 20 4C 44 41 20 23 24 |OUT.DISS2 LDA #$| 000052B0: 32 30 20 20 20 20 3B 41 55 46 20 D3 50 41 4C 54 |20 ;AUF .PALT| 000052C0: 45 20 32 31 20 50 4F 53 49 2D 0D 20 20 20 20 20 |E 21 POSI-. | 000052D0: 20 4A 53 52 20 43 48 4F 55 54 20 20 20 3B 54 49 | JSR CHOUT ;TI| 000052E0: 4F 4E 49 45 52 45 4E 0D 20 20 20 20 20 20 4C 44 |ONIEREN. LD| 000052F0: 41 20 24 44 33 0D 20 20 20 20 20 20 43 4D 50 20 |A $D3. CMP | 00005300: 23 24 31 35 0D 20 20 20 20 20 20 42 4D 49 20 44 |#$15. BMI D| 00005310: 49 53 53 32 0D 20 20 20 20 20 20 4C 44 41 20 23 |ISS2. LDA #| 00005320: 27 3B 0D 20 20 20 20 20 20 4A 53 52 20 43 48 4F |';. JSR CHO| 00005330: 55 54 0D 20 20 20 20 20 20 4C 44 59 20 23 24 30 |UT. LDY #$0| 00005340: 30 20 20 20 20 3B CD 4E 45 4D 4F 4E 49 43 20 44 |0 ;.NEMONIC D| 00005350: 52 55 43 4B 45 4E 0D 20 20 20 20 20 20 4C 44 41 |RUCKEN. LDA| 00005360: 20 28 24 35 43 29 2C 59 0D 20 20 20 20 20 20 54 | ($5C),Y. T| 00005370: 41 58 0D 20 20 20 20 20 20 4C 44 41 20 4D 4E 45 |AX. LDA MNE| 00005380: 4D 34 2C 58 0D 20 20 20 20 20 20 54 41 58 0D 20 |M4,X. TAX. | 00005390: 20 20 20 20 20 4C 44 41 20 4D 4E 45 4D 31 2C 58 | LDA MNEM1,X| 000053A0: 0D 20 20 20 20 20 20 4A 53 52 20 43 48 4F 55 54 |. JSR CHOUT| 000053B0: 0D 20 20 20 20 20 20 4C 44 41 20 4D 4E 45 4D 32 |. LDA MNEM2| 000053C0: 2C 58 0D 20 20 20 20 20 20 4A 53 52 20 43 48 4F |,X. JSR CHO| 000053D0: 55 54 0D 20 20 20 20 20 20 4C 44 41 20 4D 4E 45 |UT. LDA MNE| 000053E0: 4D 33 2C 58 0D 20 20 20 20 20 20 4A 53 52 20 43 |M3,X. JSR C| 000053F0: 48 4F 55 54 0D 20 20 20 20 20 20 4C 44 41 20 23 |HOUT. LDA #| 00005400: 24 32 30 0D 20 20 20 20 20 20 4A 53 52 20 43 48 |$20. JSR CH| 00005410: 4F 55 54 0D 20 20 20 20 20 20 4C 44 41 20 4F 50 |OUT. LDA OP| 00005420: 43 0D 20 20 20 20 20 20 4A 53 52 20 41 44 52 0D |C. JSR ADR.| 00005430: 20 20 20 20 20 20 54 41 58 0D 20 20 20 20 20 20 | TAX. | 00005440: 43 50 58 20 23 24 30 31 0D 20 20 20 20 20 20 42 |CPX #$01. B| 00005450: 4E 45 20 44 49 53 31 0D 20 20 20 20 20 20 4A 4D |NE DIS1. JM| 00005460: 50 20 44 49 53 45 0D 44 49 53 31 20 20 43 50 58 |P DISE.DIS1 CPX| 00005470: 20 23 24 30 32 20 20 20 20 3B CF 50 45 52 41 4E | #$02 ;.PERAN| 00005480: 44 45 4E 20 42 45 53 54 49 4D 4D 45 4E 0D 20 20 |DEN BESTIMMEN. | 00005490: 20 20 20 20 42 4E 45 20 44 49 53 53 33 20 20 20 | BNE DISS3 | 000054A0: 3B 55 4E 44 20 41 55 53 47 45 42 45 4E 0D 20 20 |;UND AUSGEBEN. | 000054B0: 20 20 20 20 4C 44 41 20 23 27 23 20 20 20 20 20 | LDA #'# | 000054C0: 3B 49 4D 4D 45 44 49 41 54 45 3F 0D 20 20 20 20 |;IMMEDIATE?. | 000054D0: 20 20 4A 53 52 20 43 48 4F 55 54 0D 44 49 53 53 | JSR CHOUT.DISS| 000054E0: 33 20 43 50 58 20 23 24 30 37 20 20 20 20 3B 49 |3 CPX #$07 ;I| 000054F0: 4E 44 49 5A 49 45 52 54 20 49 4E 44 49 52 45 4B |NDIZIERT INDIREK| 00005500: 54 3F 0D 20 20 20 20 20 20 42 45 51 20 44 49 53 |T?. BEQ DIS| 00005510: 53 34 0D 20 20 20 20 20 20 43 50 58 20 23 24 30 |S4. CPX #$0| 00005520: 38 20 20 20 20 3B 49 4E 44 49 52 45 4B 54 20 49 |8 ;INDIREKT I| 00005530: 4E 44 49 5A 49 45 52 54 3F 0D 20 20 20 20 20 20 |NDIZIERT?. | 00005540: 42 45 51 20 44 49 53 53 34 0D 20 20 20 20 20 20 |BEQ DISS4. | 00005550: 43 50 58 20 23 24 30 43 20 20 20 20 3B 41 42 53 |CPX #$0C ;ABS| 00005560: 4F 4C 55 54 20 49 4E 44 49 52 45 4B 54 3F 0D 20 |OLUT INDIREKT?. | 00005570: 20 20 20 20 20 42 4E 45 20 44 49 53 53 35 0D 44 | BNE DISS5.D| 00005580: 49 53 53 34 20 4C 44 41 20 23 27 28 0D 20 20 20 |ISS4 LDA #'(. | 00005590: 20 20 20 4A 53 52 20 43 48 4F 55 54 0D 44 49 53 | JSR CHOUT.DIS| 000055A0: 53 35 20 4C 44 41 20 23 27 24 0D 20 20 20 20 20 |S5 LDA #'$. | 000055B0: 20 4A 53 52 20 43 48 4F 55 54 0D 20 20 20 20 20 | JSR CHOUT. | 000055C0: 20 43 50 58 20 23 24 30 39 20 20 20 20 3B 41 42 | CPX #$09 ;AB| 000055D0: 53 4F 4C 55 54 3F 0D 20 20 20 20 20 20 42 4D 49 |SOLUT?. BMI| 000055E0: 20 44 49 53 32 0D 20 20 20 20 20 20 4A 4D 50 20 | DIS2. JMP | 000055F0: 44 49 53 31 32 0D 44 49 53 32 20 20 43 50 58 20 |DIS12.DIS2 CPX | 00005600: 23 24 30 36 20 20 20 20 3B 52 45 4C 41 54 49 56 |#$06 ;RELATIV| 00005610: 3F 0D 20 20 20 20 20 20 42 45 51 20 44 49 53 53 |?. BEQ DISS| 00005620: 39 0D 20 20 20 20 20 20 4C 44 59 20 23 24 30 31 |9. LDY #$01| 00005630: 20 20 20 20 3B 49 4D 50 4C 49 5A 49 45 52 54 3F | ;IMPLIZIERT?| 00005640: 0D 20 20 20 20 20 20 4C 44 41 20 28 24 35 43 29 |. LDA ($5C)| 00005650: 2C 59 0D 20 20 20 20 20 20 4A 53 52 20 48 4F 55 |,Y. JSR HOU| 00005660: 54 31 0D 20 20 20 20 20 20 43 50 58 20 23 24 30 |T1. CPX #$0| 00005670: 34 0D 20 20 20 20 20 20 42 50 4C 20 44 49 53 33 |4. BPL DIS3| 00005680: 0D 20 20 20 20 20 20 4A 4D 50 20 44 49 53 45 0D |. JMP DISE.| 00005690: 44 49 53 33 20 20 43 50 58 20 23 24 30 34 20 20 |DIS3 CPX #$04 | 000056A0: 20 20 3B 30 2D 50 41 47 45 20 58 2D 49 4E 44 49 | ;0-PAGE X-INDI| 000056B0: 5A 49 45 52 54 3F 0D 20 20 20 20 20 20 42 4E 45 |ZIERT?. BNE| 000056C0: 20 44 49 53 53 36 0D 20 20 20 20 20 20 4C 44 41 | DISS6. LDA| 000056D0: 20 23 27 2C 0D 20 20 20 20 20 20 4A 53 52 20 43 | #',. JSR C| 000056E0: 48 4F 55 54 0D 20 20 20 20 20 20 4C 44 41 20 23 |HOUT. LDA #| 000056F0: 27 58 0D 20 20 20 20 20 20 4A 53 52 20 43 48 4F |'X. JSR CHO| 00005700: 55 54 0D 20 20 20 20 20 20 4A 4D 50 20 44 49 53 |UT. JMP DIS| 00005710: 45 0D 44 49 53 53 36 20 43 50 58 20 23 24 30 35 |E.DISS6 CPX #$05| 00005720: 20 20 20 20 3B 30 2D 50 41 47 45 20 59 2D 49 4E | ;0-PAGE Y-IN| 00005730: 44 49 5A 49 45 52 54 3F 0D 20 20 20 20 20 20 42 |DIZIERT?. B| 00005740: 4E 45 20 44 49 53 53 37 0D 20 20 20 20 20 20 4C |NE DISS7. L| 00005750: 44 41 20 23 27 2C 0D 20 20 20 20 20 20 4A 53 52 |DA #',. JSR| 00005760: 20 43 48 4F 55 54 0D 20 20 20 20 20 20 4C 44 41 | CHOUT. LDA| 00005770: 20 23 27 59 0D 20 20 20 20 20 20 4A 53 52 20 43 | #'Y. JSR C| 00005780: 48 4F 55 54 0D 20 20 20 20 20 20 4A 4D 50 20 44 |HOUT. JMP D| 00005790: 49 53 45 0D 44 49 53 53 37 20 43 50 58 20 23 24 |ISE.DISS7 CPX #$| 000057A0: 30 37 20 20 20 20 3B 49 4E 44 49 5A 49 45 52 54 |07 ;INDIZIERT| 000057B0: 20 49 4E 44 49 52 45 4B 54 3F 0D 20 20 20 20 20 | INDIREKT?. | 000057C0: 20 42 4E 45 20 44 49 53 53 38 0D 20 20 20 20 20 | BNE DISS8. | 000057D0: 20 4C 44 41 20 23 27 2C 0D 20 20 20 20 20 20 4A | LDA #',. J| 000057E0: 53 52 20 43 48 4F 55 54 0D 20 20 20 20 20 20 4C |SR CHOUT. L| 000057F0: 44 41 20 23 27 58 0D 20 20 20 20 20 20 4A 53 52 |DA #'X. JSR| 00005800: 20 43 48 4F 55 54 0D 20 20 20 20 20 20 4C 44 41 | CHOUT. LDA| 00005810: 20 23 27 29 0D 20 20 20 20 20 20 4A 53 52 20 43 | #'). JSR C| 00005820: 48 4F 55 54 0D 20 20 20 20 20 20 4A 4D 50 20 44 |HOUT. JMP D| 00005830: 49 53 45 0D 44 49 53 53 38 20 4C 44 41 20 23 27 |ISE.DISS8 LDA #'| 00005840: 29 20 20 20 20 20 3B 49 4E 44 49 52 45 4B 54 20 |) ;INDIREKT | 00005850: 49 4E 44 49 5A 49 45 52 54 0D 20 20 20 20 20 20 |INDIZIERT. | 00005860: 4A 53 52 20 43 48 4F 55 54 0D 20 20 20 20 20 20 |JSR CHOUT. | 00005870: 4C 44 41 20 23 27 2C 0D 20 20 20 20 20 20 4A 53 |LDA #',. JS| 00005880: 52 20 43 48 4F 55 54 0D 20 20 20 20 20 20 4C 44 |R CHOUT. LD| 00005890: 41 20 23 27 59 0D 20 20 20 20 20 20 4A 53 52 20 |A #'Y. JSR | 000058A0: 43 48 4F 55 54 0D 20 20 20 20 20 20 4A 4D 50 20 |CHOUT. JMP | 000058B0: 44 49 53 45 0D 44 49 53 53 39 20 4C 44 41 20 24 |DISE.DISS9 LDA $| 000058C0: 35 43 20 20 20 20 20 3B CF 50 45 52 41 4E 44 20 |5C ;.PERAND | 000058D0: 46 55 45 52 0D 20 20 20 20 20 20 43 4C 43 20 20 |FUER. CLC | 000058E0: 20 20 20 20 20 20 20 3B 52 45 4C 41 54 49 56 45 | ;RELATIVE| 000058F0: 20 C1 44 52 45 53 53 49 45 52 2D 0D 20 20 20 20 | .DRESSIER-. | 00005900: 20 20 41 44 43 20 23 24 30 32 20 20 20 20 3B 55 | ADC #$02 ;U| 00005910: 4E 47 20 42 45 53 54 49 4D 4D 45 4E 0D 20 20 20 |NG BESTIMMEN. | 00005920: 20 20 20 53 54 41 20 4E 55 4D 4C 0D 20 20 20 20 | STA NUML. | 00005930: 20 20 4C 44 41 20 24 35 44 0D 20 20 20 20 20 20 | LDA $5D. | 00005940: 41 44 43 20 23 24 30 30 0D 20 20 20 20 20 20 53 |ADC #$00. S| 00005950: 54 41 20 4E 55 4D 48 0D 20 20 20 20 20 20 4C 44 |TA NUMH. LD| 00005960: 59 20 23 24 30 31 0D 20 20 20 20 20 20 4C 44 41 |Y #$01. LDA| 00005970: 20 28 24 35 43 29 2C 59 0D 20 20 20 20 20 20 42 | ($5C),Y. B| 00005980: 50 4C 20 44 49 53 31 30 0D 20 20 20 20 20 20 4C |PL DIS10. L| 00005990: 44 41 20 23 24 46 46 0D 20 20 20 20 20 20 53 54 |DA #$FF. ST| 000059A0: 41 20 24 30 32 0D 44 49 53 31 30 20 4C 44 41 20 |A $02.DIS10 LDA | 000059B0: 28 24 35 43 29 2C 59 0D 20 20 20 20 20 20 42 4D |($5C),Y. BM| 000059C0: 49 20 44 49 53 31 31 0D 20 20 20 20 20 20 4C 44 |I DIS11. LD| 000059D0: 41 20 23 24 30 30 0D 20 20 20 20 20 20 53 54 41 |A #$00. STA| 000059E0: 20 24 30 32 0D 44 49 53 31 31 20 4C 44 41 20 28 | $02.DIS11 LDA (| 000059F0: 24 35 43 29 2C 59 0D 20 20 20 20 20 20 43 4C 43 |$5C),Y. CLC| 00005A00: 0D 20 20 20 20 20 20 41 44 43 20 4E 55 4D 4C 0D |. ADC NUML.| 00005A10: 20 20 20 20 20 20 53 54 41 20 4E 55 4D 4C 0D 20 | STA NUML. | 00005A20: 20 20 20 20 20 4C 44 41 20 24 30 32 0D 20 20 20 | LDA $02. | 00005A30: 20 20 20 41 44 43 20 4E 55 4D 48 0D 20 20 20 20 | ADC NUMH. | 00005A40: 20 20 53 54 41 20 4E 55 4D 48 0D 20 20 20 20 20 | STA NUMH. | 00005A50: 20 4A 53 52 20 48 4F 55 54 31 0D 20 20 20 20 20 | JSR HOUT1. | 00005A60: 20 4C 44 41 20 4E 55 4D 4C 0D 20 20 20 20 20 20 | LDA NUML. | 00005A70: 4A 53 52 20 48 4F 55 54 31 0D 20 20 20 20 20 20 |JSR HOUT1. | 00005A80: 4A 4D 50 20 44 49 53 45 0D 44 49 53 31 32 20 4C |JMP DISE.DIS12 L| 00005A90: 44 59 20 23 24 30 32 20 20 20 20 3B 31 36 2D C2 |DY #$02 ;16-.| 00005AA0: 49 54 20 C1 44 52 45 53 53 45 20 41 55 53 2D 0D |IT .DRESSE AUS-.| 00005AB0: 20 20 20 20 20 20 4C 44 41 20 28 24 35 43 29 2C | LDA ($5C),| 00005AC0: 59 20 3B 47 45 42 45 4E 0D 20 20 20 20 20 20 4A |Y ;GEBEN. J| 00005AD0: 53 52 20 48 4F 55 54 31 0D 20 20 20 20 20 20 4C |SR HOUT1. L| 00005AE0: 44 59 20 23 24 30 31 0D 20 20 20 20 20 20 4C 44 |DY #$01. LD| 00005AF0: 41 20 28 24 35 43 29 2C 59 0D 20 20 20 20 20 20 |A ($5C),Y. | 00005B00: 4A 53 52 20 48 4F 55 54 31 0D 20 20 20 20 20 20 |JSR HOUT1. | 00005B10: 43 50 58 20 23 24 30 39 20 20 20 20 3B 41 42 53 |CPX #$09 ;ABS| 00005B20: 4F 4C 55 54 3F 0D 20 20 20 20 20 20 42 45 51 20 |OLUT?. BEQ | 00005B30: 44 49 53 45 0D 20 20 20 20 20 20 43 50 58 20 23 |DISE. CPX #| 00005B40: 24 30 41 20 20 20 20 3B 58 2D 49 4E 44 49 5A 49 |$0A ;X-INDIZI| 00005B50: 45 52 54 3F 0D 20 20 20 20 20 20 42 4E 45 20 44 |ERT?. BNE D| 00005B60: 49 53 31 34 0D 20 20 20 20 20 20 4C 44 41 20 23 |IS14. LDA #| 00005B70: 27 2C 0D 20 20 20 20 20 20 4A 53 52 20 43 48 4F |',. JSR CHO| 00005B80: 55 54 0D 20 20 20 20 20 20 4C 44 41 20 23 27 58 |UT. LDA #'X| 00005B90: 0D 20 20 20 20 20 20 4A 53 52 20 43 48 4F 55 54 |. JSR CHOUT| 00005BA0: 0D 20 20 20 20 20 20 4A 4D 50 20 44 49 53 45 0D |. JMP DISE.| 00005BB0: 44 49 53 31 34 20 43 50 58 20 23 24 30 42 20 20 |DIS14 CPX #$0B | 00005BC0: 20 20 3B 59 2D 49 4E 44 49 5A 49 45 52 54 3F 0D | ;Y-INDIZIERT?.| 00005BD0: 20 20 20 20 20 20 42 4E 45 20 44 49 53 31 35 0D | BNE DIS15.| 00005BE0: 20 20 20 20 20 20 4C 44 41 20 23 27 2C 0D 20 20 | LDA #',. | 00005BF0: 20 20 20 20 4A 53 52 20 43 48 4F 55 54 0D 20 20 | JSR CHOUT. | 00005C00: 20 20 20 20 4C 44 41 20 23 27 59 0D 20 20 20 20 | LDA #'Y. | 00005C10: 20 20 4A 53 52 20 43 48 4F 55 54 0D 20 20 20 20 | JSR CHOUT. | 00005C20: 20 20 4A 4D 50 20 44 49 53 45 0D 44 49 53 31 35 | JMP DISE.DIS15| 00005C30: 20 4C 44 41 20 23 27 29 20 20 20 20 20 3B 41 42 | LDA #') ;AB| 00005C40: 53 4F 4C 55 54 20 49 4E 44 49 52 45 4B 54 3F 0D |SOLUT INDIREKT?.| 00005C50: 20 20 20 20 20 20 4A 53 52 20 43 48 4F 55 54 0D | JSR CHOUT.| 00005C60: 44 49 53 45 20 20 4C 44 59 20 23 24 30 30 20 20 |DISE LDY #$00 | 00005C70: 20 20 3B 4E 41 45 43 48 53 54 45 20 DA 45 49 4C | ;NAECHSTE .EIL| 00005C80: 45 0D 20 20 20 20 20 20 4C 44 41 20 28 24 35 43 |E. LDA ($5C| 00005C90: 29 2C 59 0D 20 20 20 20 20 20 4A 53 52 20 41 44 |),Y. JSR AD| 00005CA0: 52 20 20 20 20 20 3B C1 44 52 45 53 53 49 45 52 |R ;.DRESSIER| 00005CB0: 55 4E 47 53 41 52 54 0D 20 20 20 20 20 20 54 41 |UNGSART. TA| 00005CC0: 58 0D 20 20 20 20 20 20 44 45 58 0D 20 20 20 20 |X. DEX. | 00005CD0: 20 20 4C 44 41 20 4C 41 4E 47 2C 58 20 20 3B C2 | LDA LANG,X ;.| 00005CE0: 45 46 45 48 4C 53 4C 41 45 4E 47 45 0D 20 20 20 |EFEHLSLAENGE. | 00005CF0: 20 20 20 43 4C 43 0D 20 20 20 20 20 20 41 44 43 | CLC. ADC| 00005D00: 20 24 35 43 0D 20 20 20 20 20 20 53 54 41 20 24 | $5C. STA $| 00005D10: 35 43 0D 20 20 20 20 20 20 4C 44 41 20 24 35 44 |5C. LDA $5D| 00005D20: 0D 20 20 20 20 20 20 41 44 43 20 23 24 30 30 0D |. ADC #$00.| 00005D30: 20 20 20 20 20 20 53 54 41 20 24 35 44 0D 44 49 | STA $5D.DI| 00005D40: 53 45 31 20 4C 44 41 20 23 24 32 30 20 20 20 20 |SE1 LDA #$20 | 00005D50: 3B D2 45 53 54 5A 45 49 4C 45 20 4C 4F 45 53 43 |;.ESTZEILE LOESC| 00005D60: 48 45 4E 0D 20 20 20 20 20 20 4A 53 52 20 43 48 |HEN. JSR CH| 00005D70: 4F 55 54 0D 20 20 20 20 20 20 4C 44 41 20 24 44 |OUT. LDA $D| 00005D80: 33 0D 20 20 20 20 20 20 43 4D 50 20 23 24 32 37 |3. CMP #$27| 00005D90: 0D 20 20 20 20 20 20 42 4D 49 20 44 49 53 45 31 |. BMI DISE1| 00005DA0: 0D 20 20 20 20 20 20 52 54 53 0D 41 53 53 20 20 |. RTS.ASS | 00005DB0: 20 4C 44 41 20 23 24 30 30 20 20 20 20 3B 4E 49 | LDA #$00 ;NI| 00005DC0: 43 48 54 45 58 49 53 54 45 4E 54 45 4E 20 C2 45 |CHTEXISTENTEN .E| 00005DD0: 2D 0D 20 20 20 20 20 20 53 54 41 20 4D 4E 45 34 |-. STA MNE4| 00005DE0: 20 20 20 20 3B 46 45 48 4C 20 56 4F 52 41 55 53 | ;FEHL VORAUS| 00005DF0: 53 45 54 5A 45 4E 0D 20 20 20 20 20 20 4A 53 52 |SETZEN. JSR| 00005E00: 20 45 47 45 54 20 20 20 20 3B 4E 41 43 48 20 CD | EGET ;NACH .| 00005E10: 4E 45 4D 4F 4E 49 43 2D C1 4E 46 41 4E 47 0D 20 |NEMONIC-.NFANG. | 00005E20: 20 20 20 20 20 42 45 51 20 41 53 53 31 20 20 20 | BEQ ASS1 | 00005E30: 20 3B 53 55 43 48 45 4E 0D 20 20 20 20 20 20 43 | ;SUCHEN. C| 00005E40: 4D 50 20 23 27 3B 0D 20 20 20 20 20 20 42 4E 45 |MP #';. BNE| 00005E50: 20 41 53 53 0D 20 20 20 20 20 20 42 45 51 20 41 | ASS. BEQ A| 00005E60: 53 53 32 0D 41 53 53 31 20 20 4C 44 58 20 23 24 |SS2.ASS1 LDX #$| 00005E70: 30 31 20 20 20 20 3B C3 D2 2D C5 52 52 4F 52 0D |01 ;..-.RROR.| 00005E80: 20 20 20 20 20 20 4A 4D 50 20 45 52 52 4F 52 0D | JMP ERROR.| 00005E90: 41 53 53 32 20 20 4A 53 52 20 47 45 54 20 20 20 |ASS2 JSR GET | 00005EA0: 20 20 3B CD 4E 45 4D 4F 4E 49 43 20 49 4E 20 4D | ;.NEMONIC IN M| 00005EB0: 4E 45 31 2D 0D 20 20 20 20 20 20 42 4E 45 20 41 |NE1-. BNE A| 00005EC0: 53 53 33 20 20 20 20 3B 4D 4E 45 33 20 41 42 4C |SS3 ;MNE3 ABL| 00005ED0: 45 47 45 4E 0D 20 20 20 20 20 20 4A 4D 50 20 41 |EGEN. JMP A| 00005EE0: 53 53 45 31 0D 41 53 53 33 20 20 53 54 41 20 4D |SSE1.ASS3 STA M| 00005EF0: 4E 45 31 0D 20 20 20 20 20 20 4A 53 52 20 47 45 |NE1. JSR GE| 00005F00: 54 0D 20 20 20 20 20 20 42 4E 45 20 41 53 53 34 |T. BNE ASS4| 00005F10: 0D 20 20 20 20 20 20 4A 4D 50 20 41 53 53 45 31 |. JMP ASSE1| 00005F20: 0D 41 53 53 34 20 20 53 54 41 20 4D 4E 45 32 0D |.ASS4 STA MNE2.| 00005F30: 20 20 20 20 20 20 4A 53 52 20 47 45 54 0D 20 20 | JSR GET. | 00005F40: 20 20 20 20 42 4E 45 20 41 53 53 35 0D 20 20 20 | BNE ASS5. | 00005F50: 20 20 20 4A 4D 50 20 41 53 53 45 31 0D 41 53 53 | JMP ASSE1.ASS| 00005F60: 35 20 20 53 54 41 20 4D 4E 45 33 0D 20 20 20 20 |5 STA MNE3. | 00005F70: 20 20 4A 53 52 20 45 47 45 54 20 20 20 20 3B C1 | JSR EGET ;.| 00005F80: 44 52 45 53 53 49 45 52 55 4E 47 53 41 52 54 20 |DRESSIERUNGSART | 00005F90: 55 4E 44 0D 20 20 20 20 20 20 42 4E 45 20 41 53 |UND. BNE AS| 00005FA0: 53 36 20 20 20 20 3B CF 50 45 52 41 4E 44 20 48 |S6 ;.PERAND H| 00005FB0: 4F 4C 45 4E 0D 20 20 20 20 20 20 4C 44 58 20 23 |OLEN. LDX #| 00005FC0: 24 30 31 20 20 20 20 3B 49 4D 50 4C 49 5A 49 45 |$01 ;IMPLIZIE| 00005FD0: 52 54 0D 20 20 20 20 20 20 53 54 58 20 4D 4E 45 |RT. STX MNE| 00005FE0: 34 0D 20 20 20 20 20 20 4A 4D 50 20 41 53 53 45 |4. JMP ASSE| 00005FF0: 0D 41 53 53 36 20 20 43 4D 50 20 23 27 23 20 20 |.ASS6 CMP #'# | 00006000: 20 20 20 3B 49 4D 4D 45 44 49 41 54 45 0D 20 20 | ;IMMEDIATE. | 00006010: 20 20 20 20 42 4E 45 20 41 53 53 37 0D 20 20 20 | BNE ASS7. | 00006020: 20 20 20 4C 44 58 20 23 24 30 32 0D 20 20 20 20 | LDX #$02. | 00006030: 20 20 53 54 58 20 4D 4E 45 34 0D 20 20 20 20 20 | STX MNE4. | 00006040: 20 4A 4D 50 20 41 53 53 39 0D 41 53 53 37 20 20 | JMP ASS9.ASS7 | 00006050: 43 4D 50 20 23 27 28 20 20 20 20 20 3B 49 4E 44 |CMP #'( ;IND| 00006060: 49 52 45 4B 54 0D 20 20 20 20 20 20 42 4E 45 20 |IREKT. BNE | 00006070: 41 53 53 39 0D 20 20 20 20 20 20 4C 44 58 20 4D |ASS9. LDX M| 00006080: 4E 45 31 0D 20 20 20 20 20 20 43 50 58 20 23 27 |NE1. CPX #'| 00006090: 4A 20 20 20 20 20 3B 41 42 53 4F 4C 55 54 20 49 |J ;ABSOLUT I| 000060A0: 4E 44 49 52 45 4B 54 3F 0D 20 20 20 20 20 20 42 |NDIREKT?. B| 000060B0: 4E 45 20 41 53 53 38 0D 20 20 20 20 20 20 4C 44 |NE ASS8. LD| 000060C0: 58 20 4D 4E 45 32 0D 20 20 20 20 20 20 43 50 58 |X MNE2. CPX| 000060D0: 20 23 27 4D 0D 20 20 20 20 20 20 42 4E 45 20 41 | #'M. BNE A| 000060E0: 53 53 38 0D 20 20 20 20 20 20 4C 44 58 20 23 24 |SS8. LDX #$| 000060F0: 30 43 20 20 20 20 3B 41 42 53 4F 4C 55 54 20 49 |0C ;ABSOLUT I| 00006100: 4E 44 49 52 45 4B 54 0D 20 20 20 20 20 20 53 54 |NDIREKT. ST| 00006110: 58 20 4D 4E 45 34 0D 20 20 20 20 20 20 4A 4D 50 |X MNE4. JMP| 00006120: 20 41 53 53 39 0D 41 53 53 38 20 20 4C 44 58 20 | ASS9.ASS8 LDX | 00006130: 23 24 38 30 20 20 20 20 3B 49 4E 44 49 52 45 4B |#$80 ;INDIREK| 00006140: 54 2D 46 4C 41 47 20 53 45 54 5A 45 4E 0D 20 20 |T-FLAG SETZEN. | 00006150: 20 20 20 20 53 54 58 20 4D 4E 45 34 0D 41 53 53 | STX MNE4.ASS| 00006160: 39 20 20 4C 44 41 20 4D 4E 45 34 20 20 20 20 3B |9 LDA MNE4 ;| 00006170: C1 44 52 45 53 53 45 20 48 4F 4C 45 4E 0D 20 20 |.DRESSE HOLEN. | 00006180: 20 20 20 20 42 4E 45 20 41 53 53 31 30 0D 20 20 | BNE ASS10. | 00006190: 20 20 20 20 44 45 43 20 45 50 4F 49 4E 0D 41 53 | DEC EPOIN.AS| 000061A0: 53 31 30 20 4A 53 52 20 47 4E 55 4D 0D 20 20 20 |S10 JSR GNUM. | 000061B0: 20 20 20 44 45 43 20 45 50 4F 49 4E 0D 20 20 20 | DEC EPOIN. | 000061C0: 20 20 20 4A 53 52 20 45 47 45 54 0D 20 20 20 20 | JSR EGET. | 000061D0: 20 20 42 4E 45 20 41 53 53 31 31 0D 20 20 20 20 | BNE ASS11. | 000061E0: 20 20 4C 44 58 20 4D 4E 45 34 0D 20 20 20 20 20 | LDX MNE4. | 000061F0: 20 42 4E 45 20 41 53 53 31 31 0D 20 20 20 20 20 | BNE ASS11. | 00006200: 20 4C 44 58 20 23 24 30 39 20 20 20 20 3B 41 42 | LDX #$09 ;AB| 00006210: 53 4F 4C 55 54 0D 20 20 20 20 20 20 53 54 58 20 |SOLUT. STX | 00006220: 4D 4E 45 34 0D 41 53 53 31 31 20 43 4D 50 20 23 |MNE4.ASS11 CMP #| 00006230: 27 29 0D 20 20 20 20 20 20 42 4E 45 20 41 53 53 |'). BNE ASS| 00006240: 31 32 0D 20 20 20 20 20 20 4C 44 58 20 4D 4E 45 |12. LDX MNE| 00006250: 34 0D 20 20 20 20 20 20 43 50 58 20 23 24 30 43 |4. CPX #$0C| 00006260: 0D 20 20 20 20 20 20 42 45 51 20 41 53 53 45 0D |. BEQ ASSE.| 00006270: 20 20 20 20 20 20 42 49 54 20 4D 4E 45 34 0D 20 | BIT MNE4. | 00006280: 20 20 20 20 20 42 50 4C 20 41 53 53 45 0D 20 20 | BPL ASSE. | 00006290: 20 20 20 20 4A 53 52 20 45 47 45 54 0D 20 20 20 | JSR EGET. | 000062A0: 20 20 20 43 4D 50 20 23 27 2C 0D 20 20 20 20 20 | CMP #',. | 000062B0: 20 42 4E 45 20 41 53 53 45 0D 20 20 20 20 20 20 | BNE ASSE. | 000062C0: 4A 53 52 20 45 47 45 54 0D 20 20 20 20 20 20 43 |JSR EGET. C| 000062D0: 4D 50 20 23 27 59 0D 20 20 20 20 20 20 42 4E 45 |MP #'Y. BNE| 000062E0: 20 41 53 53 45 0D 20 20 20 20 20 20 4C 44 41 20 | ASSE. LDA | 000062F0: 23 24 30 38 20 20 20 20 3B 49 4E 44 49 52 45 4B |#$08 ;INDIREK| 00006300: 54 20 49 4E 44 49 5A 49 45 52 54 0D 20 20 20 20 |T INDIZIERT. | 00006310: 20 20 53 54 41 20 4D 4E 45 34 0D 20 20 20 20 20 | STA MNE4. | 00006320: 20 4A 4D 50 20 41 53 53 45 0D 41 53 53 31 32 20 | JMP ASSE.ASS12 | 00006330: 43 4D 50 20 23 27 2C 0D 20 20 20 20 20 20 42 4E |CMP #',. BN| 00006340: 45 20 41 53 53 45 0D 20 20 20 20 20 20 4A 53 52 |E ASSE. JSR| 00006350: 20 45 47 45 54 0D 20 20 20 20 20 20 43 4D 50 20 | EGET. CMP | 00006360: 23 27 59 0D 20 20 20 20 20 20 42 4E 45 20 41 53 |#'Y. BNE AS| 00006370: 53 31 33 0D 20 20 20 20 20 20 4C 44 41 20 23 24 |S13. LDA #$| 00006380: 30 42 20 20 20 20 3B 59 2D 49 4E 44 49 5A 49 45 |0B ;Y-INDIZIE| 00006390: 52 54 0D 20 20 20 20 20 20 53 54 41 20 4D 4E 45 |RT. STA MNE| 000063A0: 34 0D 20 20 20 20 20 20 4A 4D 50 20 41 53 53 45 |4. JMP ASSE| 000063B0: 0D 41 53 53 31 33 20 43 4D 50 20 23 27 58 0D 20 |.ASS13 CMP #'X. | 000063C0: 20 20 20 20 20 42 4E 45 20 41 53 53 45 0D 20 20 | BNE ASSE. | 000063D0: 20 20 20 20 4A 53 52 20 45 47 45 54 0D 20 20 20 | JSR EGET. | 000063E0: 20 20 20 42 4E 45 20 41 53 53 31 34 0D 20 20 20 | BNE ASS14. | 000063F0: 20 20 20 4C 44 41 20 23 24 30 41 20 20 20 20 3B | LDA #$0A ;| 00006400: 58 2D 49 4E 44 49 5A 49 45 52 54 0D 20 20 20 20 |X-INDIZIERT. | 00006410: 20 20 53 54 41 20 4D 4E 45 34 0D 20 20 20 20 20 | STA MNE4. | 00006420: 20 4A 4D 50 20 41 53 53 45 0D 41 53 53 31 34 20 | JMP ASSE.ASS14 | 00006430: 43 4D 50 20 23 27 29 0D 20 20 20 20 20 20 42 4E |CMP #'). BN| 00006440: 45 20 41 53 53 45 0D 20 20 20 20 20 20 42 49 54 |E ASSE. BIT| 00006450: 20 4D 4E 45 34 0D 20 20 20 20 20 20 42 50 4C 20 | MNE4. BPL | 00006460: 41 53 53 45 0D 20 20 20 20 20 20 4C 44 41 20 23 |ASSE. LDA #| 00006470: 24 30 37 20 20 20 20 3B 49 4E 44 49 5A 49 45 52 |$07 ;INDIZIER| 00006480: 54 20 49 4E 44 49 52 45 4B 54 0D 20 20 20 20 20 |T INDIREKT. | 00006490: 20 53 54 41 20 4D 4E 45 34 0D 41 53 53 45 20 20 | STA MNE4.ASSE | 000064A0: 4C 44 41 20 4D 4E 45 34 0D 20 20 20 20 20 20 41 |LDA MNE4. A| 000064B0: 4E 44 20 23 24 37 46 0D 20 20 20 20 20 20 53 54 |ND #$7F. ST| 000064C0: 41 20 4D 4E 45 34 0D 20 20 20 20 20 20 4C 44 41 |A MNE4. LDA| 000064D0: 20 4D 4E 45 34 0D 20 20 20 20 20 20 43 4D 50 20 | MNE4. CMP | 000064E0: 23 24 30 39 20 20 20 20 3B 41 42 53 4F 4C 55 54 |#$09 ;ABSOLUT| 000064F0: 3F 0D 20 20 20 20 20 20 42 4E 45 20 41 53 53 31 |?. BNE ASS1| 00006500: 36 0D 20 20 20 20 20 20 4C 44 41 20 4D 4E 45 31 |6. LDA MNE1| 00006510: 0D 20 20 20 20 20 20 43 4D 50 20 23 27 42 20 20 |. CMP #'B | 00006520: 20 20 20 3B C2 52 41 4E 43 48 2D C2 45 46 45 48 | ;.RANCH-.EFEH| 00006530: 4C 3F 0D 20 20 20 20 20 20 42 4E 45 20 41 53 53 |L?. BNE ASS| 00006540: 31 36 0D 20 20 20 20 20 20 4C 44 41 20 4D 4E 45 |16. LDA MNE| 00006550: 32 0D 20 20 20 20 20 20 43 4D 50 20 23 27 49 0D |2. CMP #'I.| 00006560: 20 20 20 20 20 20 42 45 51 20 41 53 53 31 36 0D | BEQ ASS16.| 00006570: 20 20 20 20 20 20 4C 44 41 20 23 24 30 36 20 20 | LDA #$06 | 00006580: 20 20 3B 52 45 4C 41 54 49 56 0D 20 20 20 20 20 | ;RELATIV. | 00006590: 20 53 54 41 20 4D 4E 45 34 0D 20 20 20 20 20 20 | STA MNE4. | 000065A0: 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 |NOP. NOP. | 000065B0: 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F | NOP. NO| 000065C0: 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 |P. NOP. | 000065D0: 20 20 4C 44 41 20 24 35 43 0D 20 20 20 20 20 20 | LDA $5C. | 000065E0: 43 4C 43 0D 20 20 20 20 20 20 41 44 43 20 23 24 |CLC. ADC #$| 000065F0: 30 32 0D 20 20 20 20 20 20 53 54 41 20 24 35 45 |02. STA $5E| 00006600: 0D 20 20 20 20 20 20 4C 44 41 20 24 35 44 0D 20 |. LDA $5D. | 00006610: 20 20 20 20 20 41 44 43 20 23 24 30 30 0D 20 20 | ADC #$00. | 00006620: 20 20 20 20 53 54 41 20 24 35 46 0D 20 20 20 20 | STA $5F. | 00006630: 20 20 4C 44 41 20 4E 55 4D 4C 0D 20 20 20 20 20 | LDA NUML. | 00006640: 20 53 45 43 0D 20 20 20 20 20 20 53 42 43 20 24 | SEC. SBC $| 00006650: 35 45 0D 20 20 20 20 20 20 53 54 41 20 4E 55 4D |5E. STA NUM| 00006660: 4C 0D 20 20 20 20 20 20 54 41 58 0D 20 20 20 20 |L. TAX. | 00006670: 20 20 4C 44 41 20 4E 55 4D 48 0D 20 20 20 20 20 | LDA NUMH. | 00006680: 20 53 42 43 20 24 35 46 0D 20 20 20 20 20 20 43 | SBC $5F. C| 00006690: 50 58 20 23 24 38 30 0D 20 20 20 20 20 20 41 44 |PX #$80. AD| 000066A0: 43 20 23 24 30 30 0D 20 20 20 20 20 20 4E 4F 50 |C #$00. NOP| 000066B0: 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 |. NOP. | 000066C0: 20 42 45 51 20 41 53 53 31 35 0D 20 20 20 20 20 | BEQ ASS15. | 000066D0: 20 4C 44 41 20 23 24 30 30 0D 20 20 20 20 20 20 | LDA #$00. | 000066E0: 53 54 41 20 4D 4E 45 34 0D 41 53 53 31 35 20 4C |STA MNE4.ASS15 L| 000066F0: 44 41 20 23 24 30 30 0D 20 20 20 20 20 20 53 54 |DA #$00. ST| 00006700: 41 20 4E 55 4D 48 0D 41 53 53 31 36 20 4C 44 41 |A NUMH.ASS16 LDA| 00006710: 20 4E 55 4D 48 20 20 20 20 3B C1 44 52 45 53 53 | NUMH ;.DRESS| 00006720: 45 20 3C 20 24 30 31 30 30 3F 0D 20 20 20 20 20 |E < $0100?. | 00006730: 20 42 4E 45 20 41 53 53 31 37 0D 20 20 20 20 20 | BNE ASS17. | 00006740: 20 4C 44 41 20 4D 4E 45 34 0D 20 20 20 20 20 20 | LDA MNE4. | 00006750: 43 4D 50 20 23 24 30 39 20 20 20 20 3B 41 42 53 |CMP #$09 ;ABS| 00006760: 4F 4C 55 54 20 4F 44 45 52 0D 20 20 20 20 20 20 |OLUT ODER. | 00006770: 42 4D 49 20 41 53 53 31 37 20 20 20 3B 41 42 53 |BMI ASS17 ;ABS| 00006780: 4F 4C 55 54 20 49 4E 44 49 5A 49 45 52 54 3F 0D |OLUT INDIZIERT?.| 00006790: 20 20 20 20 20 20 43 4D 50 20 23 24 30 43 0D 20 | CMP #$0C. | 000067A0: 20 20 20 20 20 42 50 4C 20 41 53 53 31 37 0D 20 | BPL ASS17. | 000067B0: 20 20 20 20 20 53 45 43 0D 20 20 20 20 20 20 53 | SEC. S| 000067C0: 42 43 20 23 24 30 36 20 20 20 20 3B 30 2D 50 41 |BC #$06 ;0-PA| 000067D0: 47 45 20 4F 44 45 52 20 30 2D 50 41 47 45 0D 20 |GE ODER 0-PAGE. | 000067E0: 20 20 20 20 20 53 54 41 20 4D 4E 45 34 20 20 20 | STA MNE4 | 000067F0: 20 3B 49 4E 44 49 5A 49 45 52 54 0D 41 53 53 31 | ;INDIZIERT.ASS1| 00006800: 37 20 4C 44 41 20 4D 4E 45 31 0D 20 20 20 20 20 |7 LDA MNE1. | 00006810: 20 43 4D 50 20 23 27 2A 20 20 20 20 20 3B CD 45 | CMP #'* ;.E| 00006820: 48 52 2D C2 59 54 45 20 CE CF D0 3F 0D 20 20 20 |HR-.YTE ...?. | 00006830: 20 20 20 42 45 51 20 41 53 53 31 38 0D 20 20 20 | BEQ ASS18. | 00006840: 20 20 20 43 4D 50 20 23 27 5E 20 20 20 20 20 3B | CMP #'^ ;| 00006850: 22 C1 55 46 48 41 45 4E 47 45 52 22 3F 0D 20 20 |".UFHAENGER"?. | 00006860: 20 20 20 20 42 4E 45 20 41 53 53 31 39 0D 41 53 | BNE ASS19.AS| 00006870: 53 31 38 20 4C 44 41 20 23 24 30 30 20 20 20 20 |S18 LDA #$00 | 00006880: 3B 4E 49 43 48 54 20 42 45 52 55 45 43 4B 53 49 |;NICHT BERUECKSI| 00006890: 43 48 54 49 2D 0D 20 20 20 20 20 20 53 54 41 20 |CHTI-. STA | 000068A0: 4D 4E 45 34 20 20 20 20 3B 47 45 4E 0D 41 53 53 |MNE4 ;GEN.ASS| 000068B0: 31 39 20 4C 44 58 20 23 24 34 44 20 20 20 20 3B |19 LDX #$4D ;| 000068C0: CF 50 43 4F 44 45 20 53 55 43 48 45 4E 0D 41 53 |.PCODE SUCHEN.AS| 000068D0: 53 32 30 20 44 45 58 0D 20 20 20 20 20 20 42 4D |S20 DEX. BM| 000068E0: 49 20 41 53 53 32 32 20 20 20 3B 53 43 48 4F 4E |I ASS22 ;SCHON| 000068F0: 20 41 4C 4C 45 20 50 52 4F 42 49 45 52 54 3F 0D | ALLE PROBIERT?.| 00006900: 20 20 20 20 20 20 4C 44 41 20 4D 4E 45 31 0D 20 | LDA MNE1. | 00006910: 20 20 20 20 20 43 4D 50 20 4D 4E 45 4D 31 2C 58 | CMP MNEM1,X| 00006920: 20 3B 31 2E 20 D3 54 45 4C 4C 45 20 52 49 43 48 | ;1. .TELLE RICH| 00006930: 54 49 47 3F 0D 20 20 20 20 20 20 42 4E 45 20 41 |TIG?. BNE A| 00006940: 53 53 32 30 0D 20 20 20 20 20 20 4C 44 41 20 4D |SS20. LDA M| 00006950: 4E 45 32 0D 20 20 20 20 20 20 43 4D 50 20 4D 4E |NE2. CMP MN| 00006960: 45 4D 32 2C 58 20 3B 32 2E 20 D3 54 45 4C 4C 45 |EM2,X ;2. .TELLE| 00006970: 20 52 49 43 48 54 49 47 3F 0D 20 20 20 20 20 20 | RICHTIG?. | 00006980: 42 4E 45 20 41 53 53 32 30 0D 20 20 20 20 20 20 |BNE ASS20. | 00006990: 4C 44 41 20 4D 4E 45 33 0D 20 20 20 20 20 20 43 |LDA MNE3. C| 000069A0: 4D 50 20 4D 4E 45 4D 33 2C 58 20 3B 33 2E 20 D3 |MP MNEM3,X ;3. .| 000069B0: 54 45 4C 4C 45 20 52 49 43 48 54 49 47 3F 0D 20 |TELLE RICHTIG?. | 000069C0: 20 20 20 20 20 42 4E 45 20 41 53 53 32 30 0D 20 | BNE ASS20. | 000069D0: 20 20 20 20 20 54 58 41 0D 20 20 20 20 20 20 53 | TXA. S| 000069E0: 54 41 20 4F 50 54 0D 20 20 20 20 20 20 4C 44 59 |TA OPT. LDY| 000069F0: 20 23 24 30 30 20 20 20 20 3B CF 50 43 4F 44 45 | #$00 ;.PCODE| 00006A00: 20 46 55 45 52 0D 20 20 20 20 20 20 42 45 51 20 | FUER. BEQ | 00006A10: 41 53 31 0D 41 53 30 20 20 20 49 4E 59 20 20 20 |AS1.AS0 INY | 00006A20: 20 20 20 20 20 20 3B C2 45 46 45 48 4C 20 53 55 | ;.EFEHL SU| 00006A30: 43 48 45 4E 0D 20 20 20 20 20 20 42 45 51 20 41 |CHEN. BEQ A| 00006A40: 53 53 32 31 0D 41 53 31 20 20 20 4C 44 41 20 4F |SS21.AS1 LDA O| 00006A50: 50 54 0D 20 20 20 20 20 20 43 4D 50 20 4D 4E 45 |PT. CMP MNE| 00006A60: 4D 34 2C 59 20 3B C1 44 52 45 53 53 49 45 52 55 |M4,Y ;.DRESSIERU| 00006A70: 4E 47 53 41 52 54 0D 20 20 20 20 20 20 42 4E 45 |NGSART. BNE| 00006A80: 20 41 53 30 0D 20 20 20 20 20 20 54 59 41 20 20 | AS0. TYA | 00006A90: 20 20 20 20 20 20 20 3B 48 4F 4C 45 4E 0D 20 20 | ;HOLEN. | 00006AA0: 20 20 20 20 4A 53 52 20 41 44 52 0D 20 20 20 20 | JSR ADR. | 00006AB0: 20 20 4C 44 58 20 4F 50 43 0D 20 20 20 20 20 20 | LDX OPC. | 00006AC0: 43 4D 50 20 4D 4E 45 34 20 20 20 20 3B C1 44 52 |CMP MNE4 ;.DR| 00006AD0: 45 53 53 49 45 52 55 4E 47 53 41 52 54 0D 20 20 |ESSIERUNGSART. | 00006AE0: 20 20 20 20 42 45 51 20 41 53 53 32 33 20 20 20 | BEQ ASS23 | 00006AF0: 3B 52 49 43 48 54 49 47 3F 0D 20 20 20 20 20 20 |;RICHTIG?. | 00006B00: 42 4E 45 20 41 53 30 0D 41 53 53 32 31 20 4C 44 |BNE AS0.ASS21 LD| 00006B10: 41 20 4D 4E 45 34 20 20 20 20 3B 46 41 4C 4C 53 |A MNE4 ;FALLS| 00006B20: 20 30 2D 50 41 47 45 20 4E 49 43 48 54 0D 20 20 | 0-PAGE NICHT. | 00006B30: 20 20 20 20 43 4D 50 20 23 24 30 33 20 20 20 20 | CMP #$03 | 00006B40: 3B 4D 4F 45 47 4C 49 43 48 20 4D 49 54 20 41 42 |;MOEGLICH MIT AB| 00006B50: 53 4F 2D 0D 20 20 20 20 20 20 42 4D 49 20 41 53 |SO-. BMI AS| 00006B60: 53 32 32 20 20 20 3B 4C 55 54 20 56 45 52 53 55 |S22 ;LUT VERSU| 00006B70: 43 48 45 4E 0D 20 20 20 20 20 20 43 4D 50 20 23 |CHEN. CMP #| 00006B80: 24 30 36 0D 20 20 20 20 20 20 42 50 4C 20 41 53 |$06. BPL AS| 00006B90: 53 32 32 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 |S22. CLC. | 00006BA0: 20 20 20 20 41 44 43 20 23 24 30 36 0D 20 20 20 | ADC #$06. | 00006BB0: 20 20 20 53 54 41 20 4D 4E 45 34 0D 20 20 20 20 | STA MNE4. | 00006BC0: 20 20 4A 4D 50 20 41 53 53 31 39 0D 41 53 53 32 | JMP ASS19.ASS2| 00006BD0: 32 20 4C 44 41 20 23 24 30 30 0D 20 20 20 20 20 |2 LDA #$00. | 00006BE0: 20 53 54 41 20 4D 4E 45 34 0D 41 53 53 32 33 20 | STA MNE4.ASS23 | 00006BF0: 53 54 58 20 4F 50 43 20 20 20 20 20 3B CF 50 43 |STX OPC ;.PC| 00006C00: 4F 44 45 20 53 49 43 48 45 52 4E 0D 20 20 20 20 |ODE SICHERN. | 00006C10: 20 20 4C 44 41 20 4D 4E 45 34 20 20 20 20 3B C1 | LDA MNE4 ;.| 00006C20: 44 52 45 53 53 49 45 52 55 4E 47 53 41 52 54 0D |DRESSIERUNGSART.| 00006C30: 20 20 20 20 20 20 42 45 51 20 41 53 53 45 31 0D | BEQ ASSE1.| 00006C40: 20 20 20 20 20 20 54 41 58 0D 20 20 20 20 20 20 | TAX. | 00006C50: 44 45 58 0D 20 20 20 20 20 20 4C 44 41 20 4C 41 |DEX. LDA LA| 00006C60: 4E 47 2C 58 20 20 3B C2 45 46 45 4C 53 4C 41 45 |NG,X ;.EFELSLAE| 00006C70: 4E 47 45 20 48 4F 4C 45 4E 0D 20 20 20 20 20 20 |NGE HOLEN. | 00006C80: 54 41 58 0D 20 20 20 20 20 20 4C 44 41 20 4F 50 |TAX. LDA OP| 00006C90: 43 20 20 20 20 20 3B CF 50 43 4F 44 45 20 48 4F |C ;.PCODE HO| 00006CA0: 4C 45 4E 0D 20 20 20 20 20 20 4C 44 59 20 23 24 |LEN. LDY #$| 00006CB0: 30 30 0D 20 20 20 20 20 20 53 54 41 20 28 24 35 |00. STA ($5| 00006CC0: 43 29 2C 59 20 3B 55 4E 44 20 53 50 45 49 43 48 |C),Y ;UND SPEICH| 00006CD0: 45 52 4E 0D 20 20 20 20 20 20 43 50 58 20 23 24 |ERN. CPX #$| 00006CE0: 30 31 0D 20 20 20 20 20 20 42 45 51 20 41 53 53 |01. BEQ ASS| 00006CF0: 45 31 20 20 20 3B 49 4D 50 4C 49 5A 49 45 52 54 |E1 ;IMPLIZIERT| 00006D00: 3F 0D 20 20 20 20 20 20 4C 44 41 20 4E 55 4D 4C |?. LDA NUML| 00006D10: 20 20 20 20 3B 4C 4F 57 2D C2 59 54 45 20 48 4F | ;LOW-.YTE HO| 00006D20: 4C 45 4E 0D 20 20 20 20 20 20 49 4E 59 0D 20 20 |LEN. INY. | 00006D30: 20 20 20 20 53 54 41 20 28 24 35 43 29 2C 59 20 | STA ($5C),Y | 00006D40: 3B 55 4E 44 20 53 50 45 49 43 48 45 52 4E 0D 20 |;UND SPEICHERN. | 00006D50: 20 20 20 20 20 43 50 58 20 23 24 30 32 20 20 20 | CPX #$02 | 00006D60: 20 3B 32 2D C2 59 54 45 2D C2 45 46 45 48 4C 3F | ;2-.YTE-.EFEHL?| 00006D70: 0D 20 20 20 20 20 20 42 45 51 20 41 53 53 45 31 |. BEQ ASSE1| 00006D80: 0D 20 20 20 20 20 20 4C 44 41 20 4E 55 4D 48 20 |. LDA NUMH | 00006D90: 20 20 20 3B 48 49 47 48 2D C2 59 54 45 20 48 4F | ;HIGH-.YTE HO| 00006DA0: 4C 45 4E 0D 20 20 20 20 20 20 49 4E 59 0D 20 20 |LEN. INY. | 00006DB0: 20 20 20 20 53 54 41 20 28 24 35 43 29 2C 59 20 | STA ($5C),Y | 00006DC0: 3B 55 4E 44 20 53 50 45 49 43 48 45 52 4E 0D 41 |;UND SPEICHERN.A| 00006DD0: 53 53 45 31 20 44 45 43 20 24 44 36 20 20 20 20 |SSE1 DEC $D6 | 00006DE0: 20 3B 31 20 DA 45 49 4C 45 20 48 4F 43 48 0D 20 | ;1 .EILE HOCH. | 00006DF0: 20 20 20 20 20 4A 53 52 20 44 49 53 53 31 20 20 | JSR DISS1 | 00006E00: 20 3B C2 45 46 45 48 4C 20 41 55 53 47 45 42 45 | ;.EFEHL AUSGEBE| 00006E10: 4E 0D 20 20 20 20 20 20 4C 44 41 20 23 24 30 44 |N. LDA #$0D| 00006E20: 20 20 20 20 3B 4E 45 55 45 20 DA 45 49 4C 45 20 | ;NEUE .EILE | 00006E30: 28 43 52 29 0D 20 20 20 20 20 20 4A 53 52 20 43 |(CR). JSR C| 00006E40: 48 4F 55 54 0D 20 20 20 20 20 20 4C 44 41 20 23 |HOUT. LDA #| 00006E50: 27 3E 20 20 20 20 20 3B D0 52 4F 4D 50 54 0D 20 |'> ;.ROMPT. | 00006E60: 20 20 20 20 20 4A 53 52 20 43 48 4F 55 54 0D 20 | JSR CHOUT. | 00006E70: 20 20 20 20 20 4C 44 41 20 23 27 44 20 20 20 20 | LDA #'D | 00006E80: 20 3B C2 45 46 45 48 4C 0D 20 20 20 20 20 20 4A | ;.EFEHL. J| 00006E90: 53 52 20 43 48 4F 55 54 0D 20 20 20 20 20 20 4C |SR CHOUT. L| 00006EA0: 44 41 20 23 27 24 20 20 20 20 20 3B DA 41 48 4C |DA #'$ ;.AHL| 00006EB0: 53 59 53 54 45 4D 0D 20 20 20 20 20 20 4A 53 52 |SYSTEM. JSR| 00006EC0: 20 43 48 4F 55 54 0D 20 20 20 20 20 20 4C 44 41 | CHOUT. LDA| 00006ED0: 20 24 35 44 20 20 20 20 20 3B 48 49 47 48 2D C2 | $5D ;HIGH-.| 00006EE0: 59 54 45 20 44 45 52 20 41 4B 54 55 2D 0D 20 20 |YTE DER AKTU-. | 00006EF0: 20 20 20 20 4A 53 52 20 48 4F 55 54 31 20 20 20 | JSR HOUT1 | 00006F00: 3B 45 4C 4C 45 4E 20 C1 44 52 45 53 53 45 0D 20 |;ELLEN .DRESSE. | 00006F10: 20 20 20 20 20 4C 44 41 20 24 35 43 20 20 20 20 | LDA $5C | 00006F20: 20 3B 4C 4F 57 2D C2 59 54 45 20 44 45 52 20 41 | ;LOW-.YTE DER A| 00006F30: 4B 54 55 2D 0D 20 20 20 20 20 20 4A 53 52 20 48 |KTU-. JSR H| 00006F40: 4F 55 54 31 20 20 20 3B 45 4C 4C 45 4E 20 C1 44 |OUT1 ;ELLEN .D| 00006F50: 52 45 53 53 45 0D 20 20 20 20 20 20 4C 44 41 20 |RESSE. LDA | 00006F60: 23 27 3A 20 20 20 20 20 3B C5 49 4E 47 41 42 45 |#': ;.INGABE| 00006F70: 2D DA 45 49 43 48 45 4E 0D 20 20 20 20 20 20 4A |-.EICHEN. J| 00006F80: 53 52 20 43 48 4F 55 54 0D 20 20 20 20 20 20 4C |SR CHOUT. L| 00006F90: 44 41 20 23 27 3B 20 20 20 20 20 3B CD 4E 45 4D |DA #'; ;.NEM| 00006FA0: 4F 4E 49 43 2D DA 45 49 43 48 45 4E 0D 20 20 20 |ONIC-.EICHEN. | 00006FB0: 20 20 20 4A 53 52 20 43 48 4F 55 54 0D 41 53 53 | JSR CHOUT.ASS| 00006FC0: 32 34 20 4C 44 41 20 23 24 32 30 20 20 20 20 3B |24 LDA #$20 ;| 00006FD0: DA 45 49 4C 45 20 42 49 53 20 D0 4F 53 49 54 49 |.EILE BIS .OSITI| 00006FE0: 4F 4E 0D 20 20 20 20 20 20 4A 53 52 20 43 48 4F |ON. JSR CHO| 00006FF0: 55 54 20 20 20 3B 33 39 20 4D 49 54 20 CC 45 45 |UT ;39 MIT .EE| 00007000: 52 5A 45 49 43 48 45 4E 0D 20 20 20 20 20 20 4C |RZEICHEN. L| 00007010: 44 41 20 24 44 33 20 20 20 20 20 3B 46 55 45 4C |DA $D3 ;FUEL| 00007020: 45 4E 0D 20 20 20 20 20 20 43 4D 50 20 23 24 32 |EN. CMP #$2| 00007030: 37 0D 20 20 20 20 20 20 42 4D 49 20 41 53 53 32 |7. BMI ASS2| 00007040: 34 0D 20 20 20 20 20 20 44 45 43 20 24 44 36 20 |4. DEC $D6 | 00007050: 20 20 20 20 3B 31 20 DA 45 49 4C 45 20 48 4F 43 | ;1 .EILE HOC| 00007060: 48 0D 20 20 20 20 20 20 4C 44 58 20 23 24 30 37 |H. LDX #$07| 00007070: 20 20 20 20 3B D4 41 53 54 41 54 55 52 50 55 46 | ;.ASTATURPUF| 00007080: 46 45 52 20 4D 49 54 0D 20 20 20 20 20 20 4C 44 |FER MIT. LD| 00007090: 41 20 23 24 31 44 20 20 20 20 3B 38 20 2A 20 C3 |A #$1D ;8 * .| 000070A0: 55 52 53 4F 52 2D D2 45 43 48 54 53 0D 41 53 53 |URSOR-.ECHTS.ASS| 000070B0: 32 35 20 53 54 41 20 54 42 55 46 46 2C 58 20 3B |25 STA TBUFF,X ;| 000070C0: 46 55 45 4C 4C 45 4E 0D 20 20 20 20 20 20 44 45 |FUELLEN. DE| 000070D0: 58 0D 20 20 20 20 20 20 42 50 4C 20 41 53 53 32 |X. BPL ASS2| 000070E0: 35 0D 20 20 20 20 20 20 4C 44 41 20 23 24 30 38 |5. LDA #$08| 000070F0: 20 20 20 20 3B 38 20 D4 41 53 54 45 4E 20 53 45 | ;8 .ASTEN SE| 00007100: 54 5A 45 4E 0D 20 20 20 20 20 20 53 54 41 20 24 |TZEN. STA $| 00007110: 43 36 0D 20 20 20 20 20 20 52 54 53 20 20 20 20 |C6. RTS | 00007120: 20 20 20 20 20 3B C5 4E 44 45 0D 54 52 41 4E 20 | ;.NDE.TRAN | 00007130: 20 4A 53 52 20 47 4E 55 4D 20 20 20 20 3B D3 54 | JSR GNUM ;.T| 00007140: 41 52 54 41 44 52 45 53 53 45 20 41 4C 54 0D 20 |ARTADRESSE ALT. | 00007150: 20 20 20 20 20 4C 44 41 20 4E 55 4D 4C 0D 20 20 | LDA NUML. | 00007160: 20 20 20 20 53 54 41 20 24 35 43 0D 20 20 20 20 | STA $5C. | 00007170: 20 20 4C 44 41 20 4E 55 4D 48 0D 20 20 20 20 20 | LDA NUMH. | 00007180: 20 53 54 41 20 24 35 44 0D 20 20 20 20 20 20 44 | STA $5D. D| 00007190: 45 43 20 45 50 4F 49 4E 0D 20 20 20 20 20 20 4A |EC EPOIN. J| 000071A0: 53 52 20 45 47 45 54 0D 20 20 20 20 20 20 43 4D |SR EGET. CM| 000071B0: 50 20 23 27 2C 20 20 20 20 20 3B CB 4F 4D 4D 41 |P #', ;.OMMA| 000071C0: 20 3F 0D 20 20 20 20 20 20 42 45 51 20 54 52 41 | ?. BEQ TRA| 000071D0: 31 0D 54 52 41 30 20 20 4C 44 58 20 23 24 30 31 |1.TRA0 LDX #$01| 000071E0: 20 20 20 20 3B C3 D2 2D C5 52 52 4F 52 0D 20 20 | ;..-.RROR. | 000071F0: 20 20 20 20 4A 4D 50 20 45 52 52 4F 52 0D 54 52 | JMP ERROR.TR| 00007200: 41 31 20 20 4A 53 52 20 47 4E 55 4D 20 20 20 20 |A1 JSR GNUM | 00007210: 3B C5 4E 44 41 44 52 45 53 53 45 20 41 4C 54 0D |;.NDADRESSE ALT.| 00007220: 20 20 20 20 20 20 4C 44 41 20 4E 55 4D 4C 0D 20 | LDA NUML. | 00007230: 20 20 20 20 20 53 54 41 20 45 4E 44 4C 0D 20 20 | STA ENDL. | 00007240: 20 20 20 20 4C 44 41 20 4E 55 4D 48 0D 20 20 20 | LDA NUMH. | 00007250: 20 20 20 53 54 41 20 45 4E 44 48 0D 20 20 20 20 | STA ENDH. | 00007260: 20 20 44 45 43 20 45 50 4F 49 4E 0D 20 20 20 20 | DEC EPOIN. | 00007270: 20 20 4A 53 52 20 45 47 45 54 0D 20 20 20 20 20 | JSR EGET. | 00007280: 20 43 4D 50 20 23 27 2C 20 20 20 20 20 3B CB 4F | CMP #', ;.O| 00007290: 4D 4D 41 20 3F 0D 20 20 20 20 20 20 42 4E 45 20 |MMA ?. BNE | 000072A0: 54 52 41 30 0D 20 20 20 20 20 20 4A 53 52 20 47 |TRA0. JSR G| 000072B0: 4E 55 4D 20 20 20 20 3B D3 54 41 52 54 41 44 52 |NUM ;.TARTADR| 000072C0: 45 53 53 45 20 4E 45 55 0D 20 20 20 20 20 20 4C |ESSE NEU. L| 000072D0: 44 41 20 4E 55 4D 4C 0D 20 20 20 20 20 20 53 54 |DA NUML. ST| 000072E0: 41 20 24 35 45 0D 20 20 20 20 20 20 4C 44 41 20 |A $5E. LDA | 000072F0: 4E 55 4D 48 0D 20 20 20 20 20 20 53 54 41 20 24 |NUMH. STA $| 00007300: 35 46 0D 20 20 20 20 20 20 4C 44 41 20 24 35 45 |5F. LDA $5E| 00007310: 0D 20 20 20 20 20 20 53 45 43 0D 20 20 20 20 20 |. SEC. | 00007320: 20 53 42 43 20 24 35 43 0D 20 20 20 20 20 20 4C | SBC $5C. L| 00007330: 44 41 20 24 35 46 0D 20 20 20 20 20 20 53 42 43 |DA $5F. SBC| 00007340: 20 24 35 44 0D 20 20 20 20 20 20 42 43 53 20 44 | $5D. BCS D| 00007350: 4F 57 4E 0D 55 50 30 20 20 20 4C 44 59 20 23 24 |OWN.UP0 LDY #$| 00007360: 30 30 20 20 20 20 3B D6 45 52 53 43 48 49 45 42 |00 ;.ERSCHIEB| 00007370: 45 4E 0D 20 20 20 20 20 20 4C 44 41 20 28 24 35 |EN. LDA ($5| 00007380: 43 29 2C 59 0D 20 20 20 20 20 20 53 54 41 20 28 |C),Y. STA (| 00007390: 24 35 45 29 2C 59 0D 20 20 20 20 20 20 49 4E 43 |$5E),Y. INC| 000073A0: 20 24 35 43 0D 20 20 20 20 20 20 42 4E 45 20 55 | $5C. BNE U| 000073B0: 50 31 0D 20 20 20 20 20 20 49 4E 43 20 24 35 44 |P1. INC $5D| 000073C0: 20 20 20 20 20 3B 4E 41 45 43 48 53 54 45 53 20 | ;NAECHSTES | 000073D0: C2 59 54 45 0D 55 50 31 20 20 20 49 4E 43 20 24 |.YTE.UP1 INC $| 000073E0: 35 45 0D 20 20 20 20 20 20 42 4E 45 20 55 50 32 |5E. BNE UP2| 000073F0: 0D 20 20 20 20 20 20 49 4E 43 20 24 35 46 0D 55 |. INC $5F.U| 00007400: 50 32 20 20 20 4C 44 41 20 24 35 43 0D 20 20 20 |P2 LDA $5C. | 00007410: 20 20 20 53 45 43 20 20 20 20 20 20 20 20 20 3B | SEC ;| 00007420: 53 43 48 4F 4E 20 46 45 52 54 49 47 20 3F 0D 20 |SCHON FERTIG ?. | 00007430: 20 20 20 20 20 53 42 43 20 45 4E 44 4C 0D 20 20 | SBC ENDL. | 00007440: 20 20 20 20 4C 44 41 20 24 35 44 0D 20 20 20 20 | LDA $5D. | 00007450: 20 20 53 42 43 20 45 4E 44 48 0D 20 20 20 20 20 | SBC ENDH. | 00007460: 20 42 43 43 20 55 50 30 0D 20 20 20 20 20 20 52 | BCC UP0. R| 00007470: 54 53 0D 44 4F 57 4E 20 20 4C 44 41 20 45 4E 44 |TS.DOWN LDA END| 00007480: 4C 20 20 20 20 3B C1 44 52 45 53 53 45 4E 20 46 |L ;.DRESSEN F| 00007490: 55 45 52 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 |UER. CLC. | 000074A0: 20 20 20 20 53 42 43 20 24 35 43 0D 20 20 20 20 | SBC $5C. | 000074B0: 20 20 53 54 41 20 24 30 32 20 20 20 20 20 3B D6 | STA $02 ;.| 000074C0: 45 52 53 43 48 49 45 42 55 4E 47 20 55 4D 2D 0D |ERSCHIEBUNG UM-.| 000074D0: 20 20 20 20 20 20 4C 44 41 20 45 4E 44 48 0D 20 | LDA ENDH. | 000074E0: 20 20 20 20 20 53 42 43 20 24 35 44 20 20 20 20 | SBC $5D | 000074F0: 20 3B 52 45 43 48 4E 45 4E 0D 20 20 20 20 20 20 | ;RECHNEN. | 00007500: 50 48 41 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 |PHA. CLC. | 00007510: 20 20 20 20 4C 44 41 20 24 30 32 0D 20 20 20 20 | LDA $02. | 00007520: 20 20 41 44 43 20 24 35 45 0D 20 20 20 20 20 20 | ADC $5E. | 00007530: 53 54 41 20 24 35 45 0D 20 20 20 20 20 20 50 4C |STA $5E. PL| 00007540: 41 0D 20 20 20 20 20 20 41 44 43 20 24 35 46 0D |A. ADC $5F.| 00007550: 20 20 20 20 20 20 53 54 41 20 24 35 46 0D 20 20 | STA $5F. | 00007560: 20 20 20 20 4C 44 41 20 45 4E 44 4C 0D 20 20 20 | LDA ENDL. | 00007570: 20 20 20 4C 44 58 20 24 35 43 0D 20 20 20 20 20 | LDX $5C. | 00007580: 20 53 54 41 20 24 35 43 0D 20 20 20 20 20 20 53 | STA $5C. S| 00007590: 54 58 20 45 4E 44 4C 0D 20 20 20 20 20 20 4C 44 |TX ENDL. LD| 000075A0: 41 20 45 4E 44 48 0D 20 20 20 20 20 20 4C 44 58 |A ENDH. LDX| 000075B0: 20 24 35 44 0D 20 20 20 20 20 20 53 54 41 20 24 | $5D. STA $| 000075C0: 35 44 0D 20 20 20 20 20 20 53 54 58 20 45 4E 44 |5D. STX END| 000075D0: 48 0D 20 20 20 20 20 20 4C 44 41 20 24 35 43 0D |H. LDA $5C.| 000075E0: 20 20 20 20 20 20 53 45 43 0D 20 20 20 20 20 20 | SEC. | 000075F0: 53 42 43 20 23 24 30 31 0D 20 20 20 20 20 20 53 |SBC #$01. S| 00007600: 54 41 20 24 35 43 0D 20 20 20 20 20 20 4C 44 41 |TA $5C. LDA| 00007610: 20 24 35 44 0D 20 20 20 20 20 20 53 42 43 20 23 | $5D. SBC #| 00007620: 24 30 30 0D 20 20 20 20 20 20 53 54 41 20 24 35 |$00. STA $5| 00007630: 44 0D 44 4F 57 30 20 20 4C 44 59 20 23 24 30 30 |D.DOW0 LDY #$00| 00007640: 20 20 20 20 3B D6 45 52 53 43 48 49 45 42 45 4E | ;.ERSCHIEBEN| 00007650: 0D 20 20 20 20 20 20 4C 44 41 20 28 24 35 43 29 |. LDA ($5C)| 00007660: 2C 59 0D 20 20 20 20 20 20 53 54 41 20 28 24 35 |,Y. STA ($5| 00007670: 45 29 2C 59 0D 20 20 20 20 20 20 4C 44 41 20 24 |E),Y. LDA $| 00007680: 35 43 0D 20 20 20 20 20 20 53 45 43 0D 20 20 20 |5C. SEC. | 00007690: 20 20 20 53 42 43 20 23 24 30 31 20 20 20 20 3B | SBC #$01 ;| 000076A0: 4E 41 45 43 48 53 54 45 53 0D 20 20 20 20 20 20 |NAECHSTES. | 000076B0: 53 54 41 20 24 35 43 0D 20 20 20 20 20 20 42 43 |STA $5C. BC| 000076C0: 53 20 44 4F 57 31 0D 20 20 20 20 20 20 44 45 43 |S DOW1. DEC| 000076D0: 20 24 35 44 0D 44 4F 57 31 20 20 4C 44 41 20 24 | $5D.DOW1 LDA $| 000076E0: 35 45 20 20 20 20 20 3B C2 59 54 45 0D 20 20 20 |5E ;.YTE. | 000076F0: 20 20 20 53 45 43 0D 20 20 20 20 20 20 53 42 43 | SEC. SBC| 00007700: 20 23 24 30 31 0D 20 20 20 20 20 20 53 54 41 20 | #$01. STA | 00007710: 24 35 45 0D 20 20 20 20 20 20 42 43 53 20 44 4F |$5E. BCS DO| 00007720: 57 32 0D 20 20 20 20 20 20 44 45 43 20 24 35 46 |W2. DEC $5F| 00007730: 0D 44 4F 57 32 20 20 4C 44 41 20 24 35 43 20 20 |.DOW2 LDA $5C | 00007740: 20 20 20 3B 53 43 48 4F 4E 20 46 45 52 54 49 47 | ;SCHON FERTIG| 00007750: 20 3F 0D 20 20 20 20 20 20 53 45 43 0D 20 20 20 | ?. SEC. | 00007760: 20 20 20 53 42 43 20 45 4E 44 4C 0D 20 20 20 20 | SBC ENDL. | 00007770: 20 20 4C 44 41 20 24 35 44 0D 20 20 20 20 20 20 | LDA $5D. | 00007780: 53 42 43 20 45 4E 44 48 0D 20 20 20 20 20 20 42 |SBC ENDH. B| 00007790: 43 53 20 44 4F 57 30 0D 20 20 20 20 20 20 52 54 |CS DOW0. RT| 000077A0: 53 0D 41 43 20 20 20 20 2A 3D 2A 20 2B 20 31 20 |S.AC *=* + 1 | 000077B0: 20 20 20 20 3B C1 4B 4B 55 2D D3 50 45 49 43 48 | ;.KKU-.PEICH| 000077C0: 45 52 0D 59 52 20 20 20 20 2A 3D 2A 20 2B 20 31 |ER.YR *=* + 1| 000077D0: 20 20 20 20 20 3B D9 2D D3 50 45 49 43 48 45 52 | ;.-.PEICHER| 000077E0: 0D 58 52 20 20 20 20 2A 3D 2A 20 2B 20 31 20 20 |.XR *=* + 1 | 000077F0: 20 20 20 3B D8 2D D3 50 45 49 43 48 45 52 0D 53 | ;.-.PEICHER.S| 00007800: 50 20 20 20 20 2A 3D 2A 20 2B 20 31 20 20 20 20 |P *=* + 1 | 00007810: 20 3B D3 2D D3 50 45 49 43 48 45 52 0D 50 53 20 | ;.-.PEICHER.PS | 00007820: 20 20 20 2A 3D 2A 20 2B 20 31 20 20 20 20 20 3B | *=* + 1 ;| 00007830: D0 2D D3 50 45 49 43 48 45 52 0D 50 43 20 20 20 |.-.PEICHER.PC | 00007840: 20 2A 3D 2A 20 2B 20 32 20 20 20 20 20 3B D0 C3 | *=* + 2 ;..| 00007850: 2D D3 50 45 49 43 48 45 52 20 28 4C 4F 2F 48 49 |-.PEICHER (LO/HI| 00007860: 29 0D 45 50 4F 49 4E 20 2A 3D 2A 20 2B 20 31 20 |).EPOIN *=* + 1 | 00007870: 20 20 20 20 3B C5 49 4E 47 41 42 45 50 4F 49 4E | ;.INGABEPOIN| 00007880: 54 45 52 0D 4E 55 4D 4C 20 20 2A 3D 2A 20 2B 20 |TER.NUML *=* + | 00007890: 31 20 20 20 20 20 3B C1 52 47 55 4D 45 4E 54 20 |1 ;.RGUMENT | 000078A0: 4C 4F 57 0D 4E 55 4D 48 20 20 2A 3D 2A 20 2B 20 |LOW.NUMH *=* + | 000078B0: 31 20 20 20 20 20 3B C1 52 47 55 4D 45 4E 54 20 |1 ;.RGUMENT | 000078C0: 48 49 47 48 0D 44 45 56 49 43 45 2A 3D 2A 20 2B |HIGH.DEVICE*=* +| 000078D0: 20 31 20 20 20 20 20 3B C6 4C 4F 50 50 59 4E 55 | 1 ;.LOPPYNU| 000078E0: 4D 4D 45 52 0D 4F 50 43 20 20 20 2A 3D 2A 20 2B |MMER.OPC *=* +| 000078F0: 20 31 20 20 20 20 20 3B CF 50 43 4F 44 45 0D 4D | 1 ;.PCODE.M| 00007900: 4E 45 31 20 20 2A 3D 2A 20 2B 20 31 20 20 20 20 |NE1 *=* + 1 | 00007910: 20 3B 31 2E 20 D3 54 45 4C 4C 45 20 CD 4E 45 4D | ;1. .TELLE .NEM| 00007920: 4F 4E 49 43 0D 4D 4E 45 32 20 20 2A 3D 2A 20 2B |ONIC.MNE2 *=* +| 00007930: 20 31 20 20 20 20 20 3B 32 2E 20 D3 54 45 4C 4C | 1 ;2. .TELL| 00007940: 45 20 CD 4E 45 4D 4F 4E 49 43 0D 4D 4E 45 33 20 |E .NEMONIC.MNE3 | 00007950: 20 2A 3D 2A 20 2B 20 31 20 20 20 20 20 3B 33 2E | *=* + 1 ;3.| 00007960: 20 D3 54 45 4C 4C 45 20 CD 4E 45 4D 4F 4E 49 43 | .TELLE .NEMONIC| 00007970: 0D 4D 4E 45 34 20 20 2A 3D 2A 20 2B 20 31 20 20 |.MNE4 *=* + 1 | 00007980: 20 20 20 3B C1 44 52 45 53 53 49 45 52 55 4E 47 | ;.DRESSIERUNG| 00007990: 53 41 52 54 0D 4F 50 54 20 20 20 2A 3D 2A 20 2B |SART.OPT *=* +| 000079A0: 20 31 20 20 20 20 20 3B CF 50 43 4F 44 45 2D D4 | 1 ;.PCODE-.| 000079B0: 45 53 54 0D 45 4E 44 4C 20 20 2A 3D 2A 20 2B 20 |EST.ENDL *=* + | 000079C0: 31 20 20 20 20 20 3B C1 44 52 45 53 53 45 20 46 |1 ;.DRESSE F| 000079D0: 55 45 52 0D 45 4E 44 48 20 20 2A 3D 2A 20 2B 20 |UER.ENDH *=* + | 000079E0: 31 20 20 20 20 20 3B D4 52 41 4E 53 46 45 52 2D |1 ;.RANSFER-| 000079F0: C2 45 46 45 48 4C 0D 0D 50 52 |.EFEHL..PR |
.PRNT 'OBJEKTCODE AB $C000, '.
.INPT 'STARTADRESSE=? ',START. .O
FFS $C000 - START. *= START.STATUS=
$90.SA =$B9.GA =$BA.TBUFF =$0277.I
RQV =$0314.BRKV =$0316.BORDER=$D020.SC
REEN=$D021.GCHAR =$F15B.SECTLK=$FF96.IEC
IN =$FFA5.UNTLK =$FFAB.TALK =$FFB4.SETP
AR=$FFBA.SETNAM=$FFBD.OPEN =$FFC0.CLOSE
=$FFC3.BSOUT =$FFD2.CLOAD =$FFD5.CSAVE
=$FFD8.STKEY =$FFE1.CLALL =$FFE7. L
DA #$00 ;REGISTER SETZEN. STA AC
. STA YR. STA XR. STA PC.
STA PC+1. STA $5C. STA $
5D. LDX #$F8. STX SP. PHP
. PLA. STA PS. JSR MESS
;STARTMELDUNG. LDA #<BREAK ;BREAK
SETZEN. STA BRKV. LDA #>BREAK
. STA BRKV+1. LDA #$08. S
TA DEVICE.COMM LDX SP. TXS. J
SR PRMPT ;PROMPT DRUCKEN. LDX #$0
0 ;EINGABE VOM BILD-.IN JSR GCHAR
;SCHIRM IN PUFFER. STA $0200,X.
INX. CMP #$0D. BNE IN.
LDA #$00. STA $01FF,X. LDA #
$FF ;TEST AUF LEERE. STA EPOIN
;ZEILE.GET1 JSR EGET. BEQ COMM.
CMP #'> ;TEST AUF PROMPT. B
EQ GET1. LDX #$0F ;BEFEHLSAUSWER
TUNG.COM1 CMP COMMT,X. BEQ COM2.
DEX. BPL COM1. INX. J
MP ERROR ;CM-EROOR.COM2 TXA ;
BEFEHLSADRESSE. ASL A ;HOLEN.
TAX. JSR COM3. JMP COMM.
COM3 LDA COMMA+1,X ;BEFEHL AUSFUEHREN.
PHA. LDA COMMA,X. PHA.
RTS.COMMT .TEXT "@BCDEFGHLMQRSTVX".CO
MMA .WORD DOS-1,BIN-1,CHR-1,DASS-1.
.WORD EXEC-1,FILL-1,GO-1,HUNT-1. .
WORD LOAD-1,MEM-1,QUIT-1,REG-1. .WO
RD SAVE-1,TRAN-1,VERI-1,EXIT-1.CHOUT JSR
BSOUT ;ZEICHEN AUSGEBEN. PHA.
JSR STKEY. BNE ST2.ST1 JSR STK
EY. BEQ ST1. JMP COMM.ST2 PL
A. RTS.ERROR JSR PRINT ;ERROR AUS
GEBEN. .BYTE $0D,'?,$20,$00. T
XA. ASL A. TAX. LDA ERRM,
X. JSR CHOUT. LDA ERRM+1,X.
JSR CHOUT. JSR PRINT. .TEXT
" ERROR. .BYTE $00. JMP COMM.
ERRM .TEXT "CMCROVIO.PRINT STA $02
;TEXT AUSGEBEN. PLA. STA $5E.
PLA. STA $5F. TYA. P
HA. LDY #$00.P1 JSR INCR. L
DA ($5E),Y. BEQ P2. JSR CHOUT.
BNE P1.P2 JSR INCR. PLA.
TAY. LDA $02. JMP ($5E).IN
CR INC $5E. BNE I1. INC $5F.I
1 RTS.EGET JSR GET ;ZEICHEN AUS
PUFFER. CMP #$20 ;LESEN <> SPACE
. BEQ EGET. BNE GET2.GET INC
EPOIN ;ZEICHEN AUS PUFFER. STX $
02 ;LESEN. LDX EPOIN. LDA
$0200,X. LDX $02.GET2 PHA. PL
A. RTS.PRMPT JSR PRINT ;PROMPT DR
UCKEN. .BYTE $0D,'>,$00. RTS.H
OUT PHA ;1 BYTE IN HEX AUS-.
LDA #$20 ;BEN MIT $. JSR CHOU
T. LDA #'$. JSR CHOUT. PL
A.HOUT1 STA $02 ;DTO. OHNE $. L
SR A. LSR A. LSR A. LSR A
. JSR ASC. JSR CHOUT. LDA
$02. AND #$0F. JSR ASC.
JSR CHOUT. RTS.ASC ORA #$30 ;N
IBBLE > ASCII. CMP #$3A. BCC A
SC1. CLC. ADC #$07.ASC1 RTS.B
OUT STA $02 ;1 BYTE BINAER AUS-.
LDA #$20 ;GEBEN MIT %. JSR CH
OUT. LDA #'%. JSR CHOUT.
LDX #$08.B1 LDA #$00. ASL $02.
ROL A. JSR ASC. JSR CHOUT.
DEX. BNE B1. RTS.GNUM J
SR EGET ;16-BIT-ZAHL AUS. CMP #'
$ ;PUFFER HOLEN UND. BEQ HEXZ
;IN NUML/NUMH AB-. CMP #'% ;L
EGEN. BEQ BINZ. JSR HEX.
BPL GN1. LDX #$01. JMP ERROR.G
N1 DEC EPOIN.HEXZ STX $02 ;HEX-ZA
HL. LDA #$00. STA NUML. S
TA NUMH.HE1 JSR GET. JSR HEX.
BMI HE2. ASL NUML. ROL NUMH.
BCS GN2. ASL NUML. ROL N
UMH. BCS GN2. ASL NUML. R
OL NUMH. BCS GN2. ASL NUML.
ROL NUMH. BCS GN2. ORA NUML
. STA NUML. JMP HE1.HE2 LDX
$02. RTS.BINZ STX $02 ;BINAER-
ZAHL. LDA #$00. STA NUML.
STA NUMH.BI1 JSR GET. JSR HEX.
BMI BI2. ASL NUML. ROL NUM
H. BCS GN2. ORA NUML. STA
NUML. JMP BI1.BI2 LDX $02.
RTS.GN2 LDX #$02 ;OV-ERROR. JM
P ERROR.HEX CMP #$3A ;ASCII > HEX.
BMI HEX1. CMP #$41. BMI H
EX2. SEC. SBC #$07.HEX1 CMP #
$30. BMI HEX2. CMP #$40.
BPL HEX2. AND #$0F. RTS.HEX2
LDA #$FF. RTS.MESS LDA #$06 ;ST
ARTMELDUNG DRUCKEN. STA BORDER.
STA SCREEN. JSR PRINT. .BYTE
$93,$9A,$00.MESS1 JSR PRINT. .BYTE
$0E,$08,$0D. .TEXT "LINEASS-64 WRI
TTEN 1985 BY. .TEXT " KLAUS BURKERT
. .BYTE $0D. .TEXT " IRQ
PC A Y X. .TEXT " S NV-BD
IZC. .BYTE $0D. .TEXT ">R:.
.BYTE $00. LDA #$20 ;IRQ-VEKT
OR DRUCKEN. JSR CHOUT. LDA IRQ
V+1. JSR HOUT1. LDA IRQV.
JSR HOUT1. LDA #$20 ;PC DRUCKEN
. JSR CHOUT. LDA PC+1. JS
R HOUT1. LDA PC. JSR HOUT1.
LDA AC ;AKKU DRUCKEN. JSR H
OUT. LDA YR ;Y DRUCKEN. J
SR HOUT. LDA XR ;X DRUCKEN.
JSR HOUT. LDA SP ;STACKPOIN
TER DRUCKEN. JSR HOUT. LDA PS
;STATUSREG. DRUCKEN. JSR BOUT.
RTS.EXIT LDA #$37 ;BASIC- UND
KERNAL-. STA $01 ;ROM EIN.
JMP $A474 ;BASIC WARMSTART.QUIT JMP
($FFFC) ;SOFTWARE-RESET.REG JSR EGET.
BNE REG1 ;WENN NUR R ,DANN.
JMP MESS1 ;EINSPRUNGMELDUNG. CMP
#': ;WENN R: ,DANN EIN-. BEQ R
EG1 ;GABE DER REGISTER.REGER LDX #$01
;SONST CR-ERROR. JMP ERROR.REG1
JSR GNUM ;IRQ-VEKTOR. SEI.
LDA NUMH. STA IRQV+1. LDA NU
ML. STA IRQV. CLI. JSR GN
UM ;PC. LDA NUML. STA PC.
LDA NUMH. STA PC+1. JSR GN
UM ;AKKU. LDA NUMH. BNE REG
ER. LDA NUML. STA AC. JSR
GNUM ;Y-REGISTER. LDA NUMH.
BNE REGER. LDA NUML. STA YR.
JSR GNUM ;X-REGISTER. LDA
NUMH. BNE REGER. LDA NUML.
STA XR. JSR GNUM ;STACKPOINTER
. LDA NUMH. BNE REGER. LD
A NUML. STA SP. JSR GNUM ;S
TATUSREGISTER. LDA NUMH. BNE R
EGER. LDA NUML. STA PS. R
TS.GADR JSR GNUM ;STARTADRESSE.
LDA NUML. STA $5C. LDA NUMH.
STA $5D. DEC EPOIN. JSR E
GET ;TEST AUF KOMMA. CMP #',.
BEQ GAD. LDX #$01. JMP ERRO
R.GAD JSR GNUM ;ENDADRESSE+1.
LDA NUML. STA $5E. LDA NUMH.
STA $5F. RTS.FILL JSR GADR
;ADRESSEN HOLEN. DEC EPOIN. JS
R EGET ;TEST AUF KOMMA. CMP #',.
BEQ FILL1. LDX #$01 ;CR-ER
ROR. JMP ERROR.FILL1 JSR GNUM ;F
ILL-BYTE. LDA NUMH. BEQ FILL2.
LDX #$02 ;OV-ERROR. JMP ER
ROR.FILL2 LDY #$00. LDA NUML.
STA ($5C),Y ;FILL. INC $5C. BN
E FILL3. INC $5D.FILL3 LDA $5C
;AKT. ADR. = ENDADR.?. CMP $5E.
LDA $5D. SBC $5F. BCC FILL2.
RTS. NOP. NOP.HUNT JSR
GADR ;ADRESSEN HOLEN. DEC EPOIN.
JSR EGET. CMP #', ;TEST A
UF KOMMA. BEQ HUNT1. LDX #$01.
JMP ERROR.HUNT1 JSR GNUM ;SUCH-
BYTE. LDA NUMH. BEQ HUNT2.
LDX #$02. JMP ERROR.HUNT2 LDY #$0
0. LDA NUML. CMP ($5C),Y.
BNE HUNT3. LDA #$0D ;GEFUNDENE
ADRESSEN. JSR CHOUT ;AUSGEBEN.
LDA $5D. JSR HOUT. LDA $5C.
JSR HOUT1.HUNT3 INC $5C. BNE
HUNT4. INC $5D.HUNT4 LDA $5C ;A
KT. ADR. = ENDADR.?. CMP $5E.
LDA $5D. SBC $5F. BCC HUNT2.
RTS. NOP. NOP.GO JSR GN
UM ;ADRESSE HOLEN. LDA PS ;
REGISTER BELEGEN. PHA. PLP.
LDX SP. TXS. LDX XR. L
DY YR. LDA AC.GO1 PHA. LDA N
UML ;ADRESSE NACH PC. STA PC
;KOPIEREN. LDA NUMH. STA PC+
1. PLA. JMP (PC) ;AUSFUEHRE
N.EXEC PLA. PLA. JSR GNUM
;ADRESSE HOLEN. LDA PS ;REGIST
ER BELEGEN. PHA. PLP. LDX
SP. TXS. LDX XR. LDY YR.
LDA AC. JSR GO1 ;AUSFUEHR
EN. STA AC ;REGISTER RETTEN.
STY YR. STX XR. TSX.
STX SP. PHP. PLA. STA PS.
JSR MESS1 ;REGISTER ANZEIGEN.
JMP COMM.BREAK PLA ;YR HOLEN.
TAY. PLA ;XR HOLEN.
TAX. PLA ;AC HOLEN.
STA AC ;UND ABSPEICHERN. STY
YR. STX XR. PLA ;PS H
OLEN. STA PS ;UND SPEICHERN.
CLD. CLI. PLA ;PC
HOLEN UND. SEC ;SPEICHERN.
SBC #$02. STA PC. PLA.
SBC #$00. STA PC+1. TSX
;SP SPEICHERN. STX SP. JS
R MESS1 ;REGISTER ANZEIGEN. JMP C
OMM.DOS JSR EGET ;STATUS?. BEQ
STAT. CMP #'$ ;DIRECTORY?.
BEQ DIR. CMP #'# ;GERAETENUMM
ER?. BEQ DEV. LDX EPOIN ;BEF
EHL SENDEN. LDY #$02.DOS1 JSR GET.
BNE DOS1. STX $02. LDA E
POIN. SEC. SBC $02. JSR S
ETNAM. LDA #7F. LDX DEVICE.
LDY #$0F. JSR SETPAR. JSR O
PEN. JSR CLALL. RTS.DEV JSR
GNUM ;GERAETENUMMER. LDA NUMH
;AENDERN. BNE DEVER. LDA NUML
. AND #%11110110. BNE DEVER.
LDA NUML. STA DEVICE. RTS.
DEVER LDX #$01. JMP ERROR.STAT LDA
#$0D ;STATUS AUSLESEN. JSR CHOU
T. LDA DEVICE. STA GA. JS
R TALK. LDA #$6F. STA SA.
JSR SECTLK.STAT1 JSR IECIN. JSR CH
OUT. CMP #$0D. BNE STAT1.
JSR UNTLK. RTS.DIR LDA #$0D ;
DIRECTORY ANZEIGEN. JSR CHOUT.
LDX EPOIN. LDY #$02.DIR0 JSR GET.
BNE DIR0. STX $02. LDA E
POIN. SEC. SBC $02. JSR S
ETNAM. LDA #$7F. LDX DEVICE.
LDY #$60. JSR SETPAR. JSR
OPEN. LDA GA. JSR TALK. L
DA SA. JSR SECTLK. LDA #$00.
STA STATUS. LDY #$03.DIR1 STY
$5E. JSR IECIN. STA $5F.
LDY STATUS. BNE DIR4. JSR IECI
N. LDY STATUS. BNE DIR4.
LDY $5E. DEY. BNE DIR1. L
DX $5F. JSR $BDCD. LDA #$20.
JSR CHOUT.DIR3 JSR IECIN. LDX
STATUS. BNE DIR4. TAX. BE
Q DIR2. JSR CHOUT. JMP DIR3.DI
R2 LDA #$0D. JSR CHOUT. LDY #
$02. BNE DIR1.DIR4 LDA #'I. S
TA $5E. LDA #$01. LDX #$5E.
LDY #$00. JSR SETNAM. LDA #
7E. LDX DEVICE. LDY #$0F.
JSR SETPAR. JSR OPEN. JSR CLA
LL. RTS.GETP JSR EGET ;FILENAME
N HOLEN UND. BEQ GETER. CMP #'
" ;SETZEN. BNE GETP. LDY #
$02. LDX EPOIN. INX. STX
$02.GETP1 JSR EGET. BEQ GETER.
CMP #'". BNE GETP1. LDA EPOIN
. SEC. SBC $02. JSR SETNA
M. JSR EGET ;TEST AUF KOMMA.
CMP #',. BEQ GETP2.GETER LDX #$01
. JMP ERROR.GETP2 JSR GNUM ;GERA
ETENUMMER HOLEN. LDA NUMH ;UND F
ILEPARAMETER. BEQ GETP4 ;SETZEN.G
ETP3 LDX #$02. JMP ERROR.GETP4 LDA
NUML. CMP #20. BCS GETP3.
TAX. LDY #$01. LDA #$7F.
JSR SETPAR. RTS.LOAD JSR GETP
;PARAMETER SETZEN. LDA #$00 ;LOA
D. JSR CLOAD. JMP IO.VERI JSR
GETP ;PARAMETER SETZEN. LDA #$0
1 ;VERIFY. JSR CLOAD. JMP I
O.SAVE JSR GETP ;PARAMETER SETZEN.
DEC EPOIN. JSR EGET ;TEST AU
F KOMMA. CMP #',. BEQ SAVE1.
LDX #$01. JMP ERROR.SAVE1 LDA #
$0D. JSR CHOUT. JSR GADR ;S
TART- UND ENDADR.. LDA #$5C ;SET
ZEN. LDX $5E. LDY $5F. JS
R CSAVE ;SAVE.IO BCS IO1. LDA
STATUS. AND #%00111111. BNE IO
1. RTS.IO1 LDX #$03. JMP ERR
OR.MEM JSR EGET. BEQ MEM.1.
DEC EPOIN. JSR GNUM ;STARTADRESS
E HOLEN. LDA NUML ;UND SETZEN.
STA $5C. LDA NUMH. STA $5D
.MEM.1 DEC EPOIN. JSR EGET. BN
E MEM.2. LDA $5C. CLC. AD
C #$01. STA $5E. LDA $5D.
ADC #$00. STA $5F. JMP MOUT1.
MEM.2 CMP #': ;EINGABE?. BEQ ME
MIN. CMP #', ;AUSGABE?. BE
Q MOUT.MEMER LDX #$01. JMP ERROR.MO
UT DEC EPOIN. JSR EGET ;TEST AU
F KOMMA. CMP #',. BNE MEMER.
JSR GNUM ;ENDADRESSE HOLEN.
LDA NUML ;UND SETZEN. STA $5E.
LDA NUMH. STA $5F.MOUT1 LDA #$0
D ;PROMPT UND ADRESSE. JSR CHOUT
;AUSGEBEN. LDA #'>. JSR CHO
UT. LDA #'M. JSR CHOUT. L
DA #'$. JSR CHOUT. LDA $5D.
JSR HOUT1. LDA $5C. JSR HOU
T1. LDA #':. JSR CHOUT. L
DY #$00 ;EINZELNE BYTES AUS-.MOUT2 LD
A #$20 ;GEBEN. JSR CHOUT. L
DA ($5C),Y. JSR HOUT1. INY.
CPY #$08. BMI MOUT2. LDA $5
C ;NAECHSTE ZEILE. CLC. AD
C #$08. STA $5C. LDA $5D.
ADC #$00. STA $5D. LDA $5C
;SCHON ENDE?. SEC. SBC $5E.
LDA $5D. SBC $5F. BCC MOU
T1. RTS.MEMIN JSR GNUM ;EINZELNE
BYTES HOLEN. LDA NUMH. BEQ MI
N1. LDX #$02. JMP ERROR.MIN1
LDA NUML. LDY #$00 ;UND IN SPEIC
HER. STA ($5C),Y ;SCHREIBEN. I
NC $5C ;NAECHSTE ADRESSE. BNE M
IN2. INC $5D.MIN2 DEC EPOIN.
JSR EGET. PHP. DEC EPOIN.
PLP. BNE MEMIN ;ENDE?. RTS.
BIN JSR EGET. BEQ BIN.1. DEC
EPOIN. JSR GNUM ;STARTADRESSE H
OLEN. LDA NUML ;UND SETZEN.
STA $5C. LDA NUMH. STA $5D.BI
N.1 DEC EPOIN. JSR EGET. BNE B
IN.2. LDA $5C. CLC. ADC #
$01. STA $5E. LDA $5D. AD
C #$00. STA $5F. JMP BNT1.BIN.
2 CMP #': ;EINGABE?. BEQ BININ.
CMP #', ;AUSGABE?. BEQ BN
OUT. LDX #$01. JMP ERROR.BNOUT
JSR GNUM ;ENDADRESSE HOLEN. LDA
NUML ;UND SETZEN. STA $5E.
LDA NUMH. STA $5F.BNT1 LDA #$0D
;PROMPT UND ADRESSE. JSR CHOUT
;AUSGEBEN. LDA #'>. JSR CHOUT.
LDA #'B. JSR CHOUT. LDA
#'$. JSR CHOUT. LDA $5D.
JSR HOUT1. LDA $5C. JSR HOUT1.
LDA #':. JSR CHOUT. LDY
#$00 ;BYTE HOLEN. LDA ($5C),Y.
JSR BOUT. INC $5C ;NAECHSTE
S BYTE. BNE BNT2. INC $5D.BNT2
LDA $5C ;ENDE?. SEC. SBC
$5E. LDA $5D. SBC $5F. B
CC BNT1. RTS.BININ JSR GNUM ;BYT
E HOLEN. LDA NUMH. BEQ BINI1.
LDX #$02. JMP ERROR.BINI1 LDA
NUML. LDY #$00 ;UND IN SPEICHER.
STA ($5C),Y ;SCHREIBEN. INC $
5C ;NAECHSTES BYTE. BNE BINI2.
INC $5D.BINI2 DEC EPOIN. JSR E
GET. PHP. DEC EPOIN. PLP.
BNE BININ ;ENDE?. RTS.CHR
JSR EGET. BEQ CHR.1. DEC EPOI
N. JSR GNUM ;STARTADRESSE HOLEN.
LDA NUML ;UND SETZEN. STA
$5C. LDA NUMH. STA $5D.CHR.1 D
EC EPOIN. JSR EGET. BNE CHR.2.
LDA $5C. CLC. ADC #$01.
STA $5E. LDA $5D. ADC #$0
0. STA $5F. JMP CHRO1.CHR.2 CM
P #': ;EINGABE?. BEQ CHRIN.
CMP #', ;AUSGABE?. BEQ CROUT.
LDX #$01. JMP ERROR.CROUT JSR
GNUM ;ENDADRESSE HOLEN. LDA NUM
L ;UND SETZEN. STA $5E. LDA
NUMH. STA $5F.CHRO1 LDA #$0D ;P
ROMPT UND ADRESSE. JSR CHOUT ;AUS
GEBEN. LDA #'>. JSR CHOUT.
LDA #'C. JSR CHOUT. LDA #'$.
JSR CHOUT. LDA $5D. JSR
HOUT1. LDA $5C. JSR HOUT1.
LDA #':. JSR CHOUT. LDY #$00
;EINZELNE ZEICHEN.CHRO2 LDA ($5C),Y
;HOLEN. STA $02. AND #%0110000
0. BNE CHRO3. LDA #$20. S
TA $02.CHRO3 LDA $02 ;UND AUSGEBEN.
JSR CHOUT. INY. CPY #$10.
BMI CHRO2. LDA $5C ;NAECH
STE ZEILE. CLC. ADC #$10.
STA $5C. LDA $5D. ADC #$00.
STA $5D. LDA $5C ;ENDE?.
SEC. SBC $5E. LDA $5D.
SBC $5F. BCC CHRO1. RTS.CHRIN
LDY #$00 ;ZEICHEN HOLEN. JSR GE
T. BEQ CHRI2 ;ENDE?. STA $02
. CMP #$20. BNE CHRI1. LD
A ($5C),Y. AND #%01100000. BNE
CHRI1. LDA ($5C),Y. STA $02.C
HRI1 LDA $02 ;UND IN SPEICHER.
STA ($5C),Y ;SCHREIBEN. INC $5C
;NAECHSTES BYTE. BNE CHRIN. I
NC $5D. JMP CHRIN.CHRI2 RTS.MNEM1 .
TEXT "AAAAAAAAABBBBBBB";ERSTE. .TEX
T "BBBCCCCCCCDDDDEI";STELLE. .TEXT
"IIIJJLLLLLNOPPPP";DER. .TEXT "RRRR
RRSSSSSSSSSS";MNEMO-. .TEXT "SSSSTT
TTTT?*^" ;NICS.MNEM2 .TEXT "DNNRSSSSXC
CEIMNP";ZWEITE. .TEXT "RVVLLLLMPPCE
EEOC";STELLE. .TEXT "NNNMSADDDSORHH
LL";DER. .TEXT "LOORTTAABEEELRST";M
NEMO-. .TEXT "TTXYAASXXY?*^" ;NIC
S.MNEM3 .TEXT "CCDRLRTXACSQTIEL";DRITTE.
.TEXT "KCSCDIVPXYCCXYRS";STELLE.
.TEXT "CXYPRXAXYRPAAPAP";DER. .
TEXT "ALRAISHXCCDIOEHA";MNEMO-. .TE
XT "XYHHXYXASA?*^" ;NICS.MNEM4 .BYTE $
10,$2B,$4C,$3C ;CODE. .BYTE $4B,$2
B,$04,$3C ;FUER. .BYTE $2D,$2B,$04
,$01 ;BEFEHL. .BYTE $4B,$2B,$04,$3
C. .BYTE $0F,$2B,$4C,$3C. .BYT
E $4B,$2B,$04,$3C. .BYTE $13,$2B,$4
B,$3C. .BYTE $4B,$2B,$04,$3C.
.BYTE $24,$02,$4C,$30. .BYTE $0C,$0
2,$31,$30. .BYTE $2F,$02,$31,$01.
.BYTE $0C,$02,$31,$30. .BYTE $0
D,$02,$4C,$30. .BYTE $4B,$02,$31,$3
0. .BYTE $39,$02,$4B,$30. .BYT
E $4B,$02,$31,$30. .BYTE $34,$1E,$4
C,$3D. .BYTE $4B,$1E,$29,$3D.
.BYTE $2C,$1E,$29,$05. .BYTE $23,$1
E,$29,$3D. .BYTE $11,$1E,$4C,$3D.
.BYTE $4B,$1E,$29,$3D. .BYTE $1
5,$1E,$4B,$3D. .BYTE $4B,$1E,$29,$3
D. .BYTE $35,$00,$4C,$33. .BYT
E $4B,$00,$32,$33. .BYTE $2E,$00,$3
2,$03. .BYTE $23,$00,$32,$33.
.BYTE $12,$00,$4C,$33. .BYTE $4B,$0
0,$32,$33. .BYTE $3B,$00,$4B,$33.
.BYTE $4B,$00,$32,$33. .BYTE $4
B,$3F,$4B,$37. .BYTE $41,$3F,$40,$3
7. .BYTE $1D,$4B,$47,$08. .BYT
E $41,$3F,$40,$37. .BYTE $09,$3F,$4
C,$36. .BYTE $41,$3F,$40,$37.
.BYTE $49,$3F,$48,$3E. .BYTE $43,$3
F,$42,$36. .BYTE $28,$26,$27,$25.
.BYTE $28,$26,$27,$25. .BYTE $4
5,$26,$44,$4A. .BYTE $28,$26,$27,$2
5. .BYTE $0A,$26,$4C,$25. .BYT
E $28,$26,$27,$25. .BYTE $16,$26,$4
6,$06. .BYTE $28,$26,$27,$25.
.BYTE $19,$17,$4B,$1A. .BYTE $19,$1
7,$1B,$1A. .BYTE $22,$17,$1C,$07.
.BYTE $19,$17,$1B,$1A. .BYTE $0
E,$17,$4C,$1A. .BYTE $4B,$17,$1B,$1
A. .BYTE $14,$17,$4B,$1A. .BYT
E $4B,$17,$1B,$1A. .BYTE $18,$38,$4
B,$1F. .BYTE $18,$38,$20,$1F.
.BYTE $21,$38,$2A,$38. .BYTE $18,$3
8,$20,$1F. .BYTE $0B,$38,$4C,$1F.
.BYTE $4B,$38,$20,$1F. .BYTE $3
A,$38,$4B,$1F. .BYTE $4B,$38,$20,$1
F.LANG .BYTE $01,$02,$02,$02 ;ANZAHL.
.BYTE $02,$02,$02,$02 ;DER BYTES.
.BYTE $03,$03,$03,$03.ADR STA OPC
;ADRESSIER-. CMP #$6C
;UNGSART. BNE A0
;AUS OPCODE. LDA #$0C
:ERMITTELN. RTS.A0 CMP
#$89. BNE A1. LDA #$03.
RTS.A1 AND #$1F. TAX. LDA O
PC. CMP #$00. BPL A2. CMP
#$C0. BPL A2. LDA ADR1,X.
JMP A3.A2 LDA ADR0,X.A3 CPX #$00
. BEQ A5. CPX #$02. BEQ A
6. RTS.A4 LDA OPC. LSR A.
LSR A. LSR A. LSR A.
LSR A. TAX. RTS.A5 JSR A4.
LDA ADR2,X. RTS.A6 JSR A4.
LDA ADR3,X. RTS.ADR0 .BYTE $0
0,$07,$00,$07 ;TABELLE. .BYTE $03,$
03,$03,$03 ;FUER. .BYTE $01,$02,$01
,$02 ;ADRESSIER-. .BYTE $09,$09,$09
,$09 ;UNGSARTEN. .BYTE $06,$08,$01,
$08. .BYTE $03,$04,$04,$04. .B
YTE $01,$0B,$01,$0B. .BYTE $09,$0A,
$0A,$0A.ADR1 .BYTE $00,$07,$00,$07 ;SON
DER-. .BYTE $03,$03,$03,$03. .
BYTE $01,$02,$01,$02 ;FALL 1. .BYTE
$09,$09,$09,$09. .BYTE $06,$08,$01
,$08. .BYTE $04,$04,$05,$05. .
BYTE $01,$0B,$01,$0B. .BYTE $0A,$0A
,$0B,$0B.ADR2 .BYTE $01,$09,$01,$01 ;SO
NDER-. .BYTE $03,$02,$02,$02 ;FALL
2.ADR3 .BYTE $01,$01,$01,$01 ;SONDER-.
.BYTE $03,$02,$03,$03 ;FALL 3.DASS
JSR EGET. BEQ DAS.1. DEC EPOI
N. JSR GNUM ;STARTADRESSE HOLEN.
LDA NUML ;UND SETZEN. STA
$5C. LDA NUMH. STA $5D.DAS.1 D
EC EPOIN. JSR EGET. BNE DAS.2.
LDA #23. STA $FF.DAS.. JSR DI
SS1. DEC $FF. BNE DAS...
RTS.DAS.2 CMP #': ;EINGABE?. BN
E DASS1. JMP ASS.DASS1 CMP #',
;AUSGABE?. BEQ DISS. LDX #$01.
JMP ERROR.DISS JSR GNUM ;ENDAD
RESSE HOLEN. LDA NUML ;UND SETZE
N. STA $5E. LDA NUMH. STA
$5F.DISSA JSR DISS1 ;1 ZEILE DRUCKEN.
LDA $5C ;ENDE?. SEC.
SBC $5E. LDA $5D. SBC $5F.
BCC DISSA. RTS.DISS1 LDA #$0D
;PROMPT UND ADRESSE. JSR CHOUT ;
AUSGEBEN. LDA #'>. JSR CHOUT.
LDA #'D. JSR CHOUT. LDA #
'$. JSR CHOUT. LDA $5D. J
SR HOUT1. LDA $5C. JSR HOUT1.
LDA #':. JSR CHOUT. LDY #
$00 ;OPCODE HOLEN. LDA ($5C),Y.
JSR HOUT ;UND DRUCKEN. LDA
($5C),Y. JSR ADR ;ADRESSIERUNGS
ART. TAX ;HOLEN. DEX.
LDA LANG,X ;BEFEHLSLAENGE HOLEN.
TAX. CPX #$01. BEQ DISS2.
INY. LDA ($5C),Y. JSR HOU
T. CPX #$02. BEQ DISS2. I
NY. LDA ($5C),Y. JSR HOUT.DISS
2 LDA #$20 ;AUF SPALTE 21 POSI-.
JSR CHOUT ;TIONIEREN. LDA $D3.
CMP #$15. BMI DISS2. LDA #
';. JSR CHOUT. LDY #$00 ;MN
EMONIC DRUCKEN. LDA ($5C),Y. T
AX. LDA MNEM4,X. TAX. LDA
MNEM1,X. JSR CHOUT. LDA MNEM2
,X. JSR CHOUT. LDA MNEM3,X.
JSR CHOUT. LDA #$20. JSR CH
OUT. LDA OPC. JSR ADR. TA
X. CPX #$01. BNE DIS1. JM
P DISE.DIS1 CPX #$02 ;OPERANDEN BEST
IMMEN. BNE DISS3 ;UND AUSGEBEN.
LDA #'# ;IMMEDIATE?. JSR CH
OUT.DISS3 CPX #$07 ;INDIZIERT INDIREK
T?. BEQ DISS4. CPX #$08 ;IN
DIREKT INDIZIERT?. BEQ DISS4.
CPX #$0C ;ABSOLUT INDIREKT?. BNE
DISS5.DISS4 LDA #'(. JSR CHOUT.DIS
S5 LDA #'$. JSR CHOUT. CPX #$0
9 ;ABSOLUT?. BMI DIS2. JMP
DIS12.DIS2 CPX #$06 ;RELATIV?.
BEQ DISS9. LDY #$01 ;IMPLIZIERT?
. LDA ($5C),Y. JSR HOUT1.
CPX #$04. BPL DIS3. JMP DISE.
DIS3 CPX #$04 ;0-PAGE X-INDIZIERT?.
BNE DISS6. LDA #',. JSR C
HOUT. LDA #'X. JSR CHOUT.
JMP DISE.DISS6 CPX #$05 ;0-PAGE Y-IN
DIZIERT?. BNE DISS7. LDA #',.
JSR CHOUT. LDA #'Y. JSR C
HOUT. JMP DISE.DISS7 CPX #$07 ;I
NDIZIERT INDIREKT?. BNE DISS8.
LDA #',. JSR CHOUT. LDA #'X.
JSR CHOUT. LDA #'). JSR C
HOUT. JMP DISE.DISS8 LDA #') ;I
NDIREKT INDIZIERT. JSR CHOUT.
LDA #',. JSR CHOUT. LDA #'Y.
JSR CHOUT. JMP DISE.DISS9 LDA $
5C ;OPERAND FUER. CLC ;
RELATIVE ADRESSIER-. ADC #$02 ;U
NG BESTIMMEN. STA NUML. LDA $5
D. ADC #$00. STA NUMH. LD
Y #$01. LDA ($5C),Y. BPL DIS10
. LDA #$FF. STA $02.DIS10 LDA
($5C),Y. BMI DIS11. LDA #$00.
STA $02.DIS11 LDA ($5C),Y. CLC
. ADC NUML. STA NUML. LDA
$02. ADC NUMH. STA NUMH.
JSR HOUT1. LDA NUML. JSR HOUT
1. JMP DISE.DIS12 LDY #$02 ;16-B
IT ADRESSE AUS-. LDA ($5C),Y ;GEBEN
. JSR HOUT1. LDY #$01. LD
A ($5C),Y. JSR HOUT1. CPX #$09
;ABSOLUT?. BEQ DISE. CPX #
$0A ;X-INDIZIERT?. BNE DIS14.
LDA #',. JSR CHOUT. LDA #'X
. JSR CHOUT. JMP DISE.DIS14 CP
X #$0B ;Y-INDIZIERT?. BNE DIS15.
LDA #',. JSR CHOUT. LDA
#'Y. JSR CHOUT. JMP DISE.DIS15
LDA #') ;ABSOLUT INDIREKT?. JS
R CHOUT.DISE LDY #$00 ;NAECHSTE ZEIL
E. LDA ($5C),Y. JSR ADR ;A
DRESSIERUNGSART. TAX. DEX.
LDA LANG,X ;BEFEHLSLAENGE. CLC.
ADC $5C. STA $5C. LDA $5D
. ADC #$00. STA $5D.DISE1 LDA
#$20 ;RESTZEILE LOESCHEN. JSR CH
OUT. LDA $D3. CMP #$27. B
MI DISE1. RTS.ASS LDA #$00 ;NI
CHTEXISTENTEN BE-. STA MNE4 ;FEH
L VORAUSSETZEN. JSR EGET ;NACH M
NEMONIC-ANFANG. BEQ ASS1 ;SUCHEN
. CMP #';. BNE ASS. BEQ A
SS2.ASS1 LDX #$01 ;CR-ERROR. JM
P ERROR.ASS2 JSR GET ;MNEMONIC IN M
NE1-. BNE ASS3 ;MNE3 ABLEGEN.
JMP ASSE1.ASS3 STA MNE1. JSR GE
T. BNE ASS4. JMP ASSE1.ASS4 S
TA MNE2. JSR GET. BNE ASS5.
JMP ASSE1.ASS5 STA MNE3. JSR EG
ET ;ADRESSIERUNGSART UND. BNE AS
S6 ;OPERAND HOLEN. LDX #$01 ;
IMPLIZIERT. STX MNE4. JMP ASSE
.ASS6 CMP #'# ;IMMEDIATE. BNE
ASS7. LDX #$02. STX MNE4.
JMP ASS9.ASS7 CMP #'( ;INDIREKT.
BNE ASS9. LDX MNE1. CPX #'
J ;ABSOLUT INDIREKT?. BNE ASS8.
LDX MNE2. CPX #'M. BNE A
SS8. LDX #$0C ;ABSOLUT INDIREKT.
STX MNE4. JMP ASS9.ASS8 LDX
#$80 ;INDIREKT-FLAG SETZEN. STX
MNE4.ASS9 LDA MNE4 ;ADRESSE HOLEN.
BNE ASS10. DEC EPOIN.ASS10 JSR
GNUM. DEC EPOIN. JSR EGET.
BNE ASS11. LDX MNE4. BNE ASS
11. LDX #$09 ;ABSOLUT. STX
MNE4.ASS11 CMP #'). BNE ASS12.
LDX MNE4. CPX #$0C. BEQ ASSE.
BIT MNE4. BPL ASSE. JSR
EGET. CMP #',. BNE ASSE.
JSR EGET. CMP #'Y. BNE ASSE.
LDA #$08 ;INDIREKT INDIZIERT.
STA MNE4. JMP ASSE.ASS12 CMP #',.
BNE ASSE. JSR EGET. CMP
#'Y. BNE ASS13. LDA #$0B ;Y
-INDIZIERT. STA MNE4. JMP ASSE
.ASS13 CMP #'X. BNE ASSE. JSR
EGET. BNE ASS14. LDA #$0A ;
X-INDIZIERT. STA MNE4. JMP ASS
E.ASS14 CMP #'). BNE ASSE. BIT
MNE4. BPL ASSE. LDA #$07 ;
INDIZIERT INDIREKT. STA MNE4.ASSE
LDA MNE4. AND #$7F. STA MNE4.
LDA MNE4. CMP #$09 ;ABSOLUT
?. BNE ASS16. LDA MNE1. C
MP #'B ;BRANCH-BEFEHL?. BNE ASS
16. LDA MNE2. CMP #'I. BE
Q ASS16. LDA #$06 ;RELATIV.
STA MNE4. NOP. NOP. NOP.
NOP. NOP. LDA $5C.
CLC. ADC #$02. STA $5E. L
DA $5D. ADC #$00. STA $5F.
LDA NUML. SEC. SBC $5E.
STA NUML. TAX. LDA NUMH.
SBC $5F. CPX #$80. ADC #$00.
NOP. NOP. BEQ ASS15.
LDA #$00. STA MNE4.ASS15 LDA #$00.
STA NUMH.ASS16 LDA NUMH ;ADRESS
E < $0100?. BNE ASS17. LDA MNE
4. CMP #$09 ;ABSOLUT ODER.
BMI ASS17 ;ABSOLUT INDIZIERT?. CM
P #$0C. BPL ASS17. SEC. S
BC #$06 ;0-PAGE ODER 0-PAGE. STA
MNE4 ;INDIZIERT.ASS17 LDA MNE1.
CMP #'* ;MEHR-BYTE NOP?. BEQ A
SS18. CMP #'^ ;"AUFHAENGER"?.
BNE ASS19.ASS18 LDA #$00 ;NICHT B
ERUECKSICHTI-. STA MNE4 ;GEN.ASS
19 LDX #$4D ;OPCODE SUCHEN.ASS20 DEX.
BMI ASS22 ;SCHON ALLE PROBIERT?.
LDA MNE1. CMP MNEM1,X ;1. STE
LLE RICHTIG?. BNE ASS20. LDA M
NE2. CMP MNEM2,X ;2. STELLE RICHTIG
?. BNE ASS20. LDA MNE3. C
MP MNEM3,X ;3. STELLE RICHTIG?. BNE
ASS20. TXA. STA OPT. LDY
#$00 ;OPCODE FUER. BEQ AS1.AS0
INY ;BEFEHL SUCHEN. BEQ A
SS21.AS1 LDA OPT. CMP MNEM4,Y ;AD
RESSIERUNGSART. BNE AS0. TYA
;HOLEN. JSR ADR. LDX OP
C. CMP MNE4 ;ADRESSIERUNGSART.
BEQ ASS23 ;RICHTIG?. BNE AS0.
ASS21 LDA MNE4 ;FALLS 0-PAGE NICHT.
CMP #$03 ;MOEGLICH MIT ABSO-.
BMI ASS22 ;LUT VERSUCHEN. CMP #
$06. BPL ASS22. CLC. ADC
#$06. STA MNE4. JMP ASS19.ASS2
2 LDA #$00. STA MNE4.ASS23 STX OPC
;OPCODE SICHERN. LDA MNE4 ;A
DRESSIERUNGSART. BEQ ASSE1. TA
X. DEX. LDA LANG,X ;BEFELSLAE
NGE HOLEN. TAX. LDA OPC ;O
PCODE HOLEN. LDY #$00. STA ($5
C),Y ;UND SPEICHERN. CPX #$01.
BEQ ASSE1 ;IMPLIZIERT?. LDA NUML
;LOW-BYTE HOLEN. INY. STA
($5C),Y ;UND SPEICHERN. CPX #$02
;2-BYTE-BEFEHL?. BEQ ASSE1. L
DA NUMH ;HIGH-BYTE HOLEN. INY.
STA ($5C),Y ;UND SPEICHERN.ASSE1 DEC
$D6 ;1 ZEILE HOCH. JSR DISS1
;BEFEHL AUSGEBEN. LDA #$0D ;NEU
E ZEILE (CR). JSR CHOUT. LDA #
'> ;PROMPT. JSR CHOUT. LDA
#'D ;BEFEHL. JSR CHOUT. L
DA #'$ ;ZAHLSYSTEM. JSR CHOUT.
LDA $5D ;HIGH-BYTE DER AKTU-.
JSR HOUT1 ;ELLEN ADRESSE. LDA
$5C ;LOW-BYTE DER AKTU-. JSR H
OUT1 ;ELLEN ADRESSE. LDA #':
;EINGABE-ZEICHEN. JSR CHOUT. L
DA #'; ;MNEMONIC-ZEICHEN. JSR C
HOUT.ASS24 LDA #$20 ;ZEILE BIS POSITI
ON. JSR CHOUT ;39 MIT LEERZEICHEN
. LDA $D3 ;FUELEN. CMP #$2
7. BMI ASS24. DEC $D6 ;1 Z
EILE HOCH. LDX #$07 ;TASTATURPUF
FER MIT. LDA #$1D ;8 * CURSOR-RE
CHTS.ASS25 STA TBUFF,X ;FUELLEN. DE
X. BPL ASS25. LDA #$08 ;8 T
ASTEN SETZEN. STA $C6. RTS
;ENDE.TRAN JSR GNUM ;STARTADRES
SE ALT. LDA NUML. STA $5C.
LDA NUMH. STA $5D. DEC EPOIN
. JSR EGET. CMP #', ;KOMMA
?. BEQ TRA1.TRA0 LDX #$01 ;CR-
ERROR. JMP ERROR.TRA1 JSR GNUM
;ENDADRESSE ALT. LDA NUML. STA
ENDL. LDA NUMH. STA ENDH.
DEC EPOIN. JSR EGET. CMP #',
;KOMMA ?. BNE TRA0. JSR G
NUM ;STARTADRESSE NEU. LDA NUML.
STA $5E. LDA NUMH. STA $
5F. LDA $5E. SEC. SBC $5C
. LDA $5F. SBC $5D. BCS D
OWN.UP0 LDY #$00 ;VERSCHIEBEN.
LDA ($5C),Y. STA ($5E),Y. INC
$5C. BNE UP1. INC $5D ;NA
ECHSTES BYTE.UP1 INC $5E. BNE UP2
. INC $5F.UP2 LDA $5C. SEC
;SCHON FERTIG ?. SBC ENDL.
LDA $5D. SBC ENDH. BCC UP0
. RTS.DOWN LDA ENDL ;ADRESSEN F
UER. CLC. SBC $5C. STA $0
2 ;VERSCHIEBUNG UM-. LDA ENDH.
SBC $5D ;RECHNEN. PHA.
CLC. LDA $02. ADC $5E.
STA $5E. PLA. ADC $5F. ST
A $5F. LDA ENDL. LDX $5C.
STA $5C. STX ENDL. LDA ENDH.
LDX $5D. STA $5D. STX END
H. LDA $5C. SEC. SBC #$01
. STA $5C. LDA $5D. SBC #
$00. STA $5D.DOW0 LDY #$00 ;VER
SCHIEBEN. LDA ($5C),Y. STA ($5
E),Y. LDA $5C. SEC. SBC #
$01 ;NAECHSTES. STA $5C. BC
S DOW1. DEC $5D.DOW1 LDA $5E ;
BYTE. SEC. SBC #$01. STA
$5E. BCS DOW2. DEC $5F.DOW2 L
DA $5C ;SCHON FERTIG ?. SEC.
SBC ENDL. LDA $5D. SBC ENDH
. BCS DOW0. RTS.AC *=* + 1
;AKKU-SPEICHER.YR *=* + 1 ;Y-
SPEICHER.XR *=* + 1 ;X-SPEICHER.S
P *=* + 1 ;S-SPEICHER.PS *=* +
1 ;P-SPEICHER.PC *=* + 2 ;PC
-SPEICHER (LO/HI).EPOIN *=* + 1 ;EIN
GABEPOINTER.NUML *=* + 1 ;ARGUMENT
LOW.NUMH *=* + 1 ;ARGUMENT HIGH.DEV
ICE*=* + 1 ;FLOPPYNUMMER.OPC *=* +
1 ;OPCODE.MNE1 *=* + 1 ;1. STE
LLE MNEMONIC.MNE2 *=* + 1 ;2. STELL
E MNEMONIC.MNE3 *=* + 1 ;3. STELLE
MNEMONIC.MNE4 *=* + 1 ;ADRESSIERUNG
SART.OPT *=* + 1 ;OPCODE-TEST.ENDL
*=* + 1 ;ADRESSE FUER.ENDH *=* +
1 ;TRANSFER-BEFEHL..PR
> CLICK IMAGE PREVIEW FOR FULL MODAL