NEWCOM.SRC
FILE INFORMATION
FILENAME(S): NEWCOM.SRC
FILE TYPE(S): SEQ
FILE SIZE: 652b
FIRST SEEN: 2025-11-30 21:25:24
APPEARS ON: 3 disk(s)
FILE HASH
7b64aa3e56ae27f7e34843a052e52f275fe3abbe469bdb43ebe145ae7c6d5324
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BASIC BOSS V2 42 | NEWCOM.SRC | SEQ | DuncanTwain | 34 | 1 | DOWNLOAD FILE |
| BOOS | NEWCOM.SRC | SEQ | DuncanTwain | 34 | 1 | DOWNLOAD FILE |
| 38745 BASIC BOSS | NEWCOM.SRC | SEQ | HOL2001, Misc | 34 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 41 4E 41 4C 59 53 45 3D 24 41 44 39 45 0D 47 45 |ANALYSE=$AD9E.GE| 00000010: 54 53 54 52 49 4E 47 3D 24 42 36 41 33 0D 47 45 |TSTRING=$B6A3.GE| 00000020: 54 42 59 54 45 3D 24 42 37 39 45 0D 4B 4F 4D 4D |TBYTE=$B79E.KOMM| 00000030: 41 3D 24 41 45 46 44 0D D3 54 52 49 4E 47 3D 36 |A=$AEFD..TRING=6| 00000040: 0D D2 45 41 4C 3D 35 0D 0D 0D 20 20 2A 3D 24 43 |..EAL=5... *=$C| 00000050: 30 30 30 0D 0D 20 20 4C 44 41 20 23 3C 53 54 41 |000.. LDA #<STA| 00000060: 52 54 20 20 20 3B C2 45 46 45 48 4C 53 56 45 4B |RT ;.EFEHLSVEK| 00000070: 54 4F 52 0D 20 20 53 54 41 20 24 33 30 38 20 20 |TOR. STA $308 | 00000080: 20 20 20 20 3B 56 45 52 42 49 45 47 45 4E 0D 20 | ;VERBIEGEN. | 00000090: 20 4C 44 41 20 23 3E 53 54 41 52 54 0D 20 20 53 | LDA #>START. S| 000000A0: 54 41 20 24 33 30 39 0D 20 20 52 54 53 0D 0D 53 |TA $309. RTS..S| 000000B0: 54 41 52 54 0D 20 20 4A 53 52 20 24 37 33 20 20 |TART. JSR $73 | 000000C0: 20 20 20 20 20 3B 4E 41 43 48 20 C5 52 4B 45 4E | ;NACH .RKEN| 000000D0: 4E 55 4E 47 53 5A 45 49 43 48 45 4E 0D 20 20 43 |NUNGSZEICHEN. C| 000000E0: 4D 50 20 23 27 21 27 20 20 20 20 20 20 3B 53 55 |MP #'!' ;SU| 000000F0: 43 48 45 4E 0D 20 20 42 45 51 20 46 4F 55 4E 44 |CHEN. BEQ FOUND| 00000100: 20 20 20 20 20 3B 4E 45 55 45 52 20 C2 45 46 45 | ;NEUER .EFE| 00000110: 48 4C 20 2D 3E 0D 20 20 4A 53 52 20 24 37 39 20 |HL ->. JSR $79 | 00000120: 20 20 20 20 20 20 3B 42 4C 4F 53 53 20 4E 4F 52 | ;BLOSS NOR| 00000130: 4D 41 4C 45 52 20 C2 45 46 45 48 4C 0D 20 20 4A |MALER .EFEHL. J| 00000140: 4D 50 20 24 41 37 45 37 0D 0D 46 4F 55 4E 44 0D |MP $A7E7..FOUND.| 00000150: 20 20 4A 53 52 20 24 37 33 20 20 20 20 20 20 20 | JSR $73 | 00000160: 3B C2 45 46 45 48 4C 53 57 4F 52 54 20 54 45 53 |;.EFEHLSWORT TES| 00000170: 54 45 4E 0D 20 20 43 4D 50 20 23 27 43 27 0D 20 |TEN. CMP #'C'. | 00000180: 20 42 4E 45 20 53 59 4E 0D 20 20 4A 53 52 20 24 | BNE SYN. JSR $| 00000190: 37 33 0D 20 20 43 4D 50 20 23 27 4F 27 0D 20 20 |73. CMP #'O'. | 000001A0: 42 4E 45 20 53 59 4E 0D 20 20 4A 53 52 20 24 37 |BNE SYN. JSR $7| 000001B0: 33 0D 20 20 43 4D 50 20 23 27 4C 27 0D 20 20 42 |3. CMP #'L'. B| 000001C0: 4E 45 20 53 59 4E 0D 20 20 4A 53 52 20 24 37 33 |NE SYN. JSR $73| 000001D0: 0D 20 20 4A 53 52 20 43 4F 4D 4D 41 4E 44 0D 20 |. JSR COMMAND. | 000001E0: 20 4A 4D 50 20 24 41 37 41 45 0D 0D 53 59 4E 20 | JMP $A7AE..SYN | 000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 3B D3 59 4E | ;.YN| 00000200: 54 41 58 20 C5 52 52 4F 52 0D 20 20 4C 44 58 20 |TAX .RROR. LDX | 00000210: 23 31 31 0D 20 20 4A 4D 50 20 24 41 34 33 37 0D |#11. JMP $A437.| 00000220: 0D 43 4F 4D 4D 41 4E 44 20 20 20 20 20 20 20 20 |.COMMAND | 00000230: 20 3B C2 45 46 45 48 4C 20 41 55 53 46 55 45 48 | ;.EFEHL AUSFUEH| 00000240: 52 45 4E 0D 20 20 4A 53 52 20 47 45 54 42 59 54 |REN. JSR GETBYT| 00000250: 45 0D 20 20 53 54 58 20 24 44 30 32 30 0D 20 20 |E. STX $D020. | 00000260: 4A 53 52 20 4B 4F 4D 4D 41 0D 20 20 4A 53 52 20 |JSR KOMMA. JSR | 00000270: 47 45 54 42 59 54 45 0D 20 20 53 54 58 20 24 44 |GETBYTE. STX $D| 00000280: 30 32 31 0D 20 20 52 54 53 0D 0D 0D |021. RTS... |
ANALYSE=$AD9E.GETSTRING=$B6A3.GETBYTE=$B 79E.KOMMA=$AEFD.STRING=6.REAL=5... *=$C 000.. LDA #<START ;BEFEHLSVEKTOR. ST A $308 ;VERBIEGEN. LDA #>START. S TA $309. RTS..START. JSR $73 ;NA CH ERKENNUNGSZEICHEN. CMP #'!' ;SU CHEN. BEQ FOUND ;NEUER BEFEHL ->. JSR $79 ;BLOSS NORMALER BEFEHL. J MP $A7E7..FOUND. JSR $73 ;BEFEHLS WORT TESTEN. CMP #'C'. BNE SYN. JSR $ 73. CMP #'O'. BNE SYN. JSR $73. CMP #'L'. BNE SYN. JSR $73. JSR COMMAND. JMP $A7AE..SYN ;SYNTAX ERRO R. LDX #11. JMP $A437..COMMAND ;BEFEHL AUSFUEHREN. JSR GETBYTE. STX $D020. JSR KOMMA. JSR GETBYTE. STX $D 021. RTS...
> CLICK IMAGE PREVIEW FOR FULL MODAL