SS-DIRECTORY.SRC
FILE INFORMATION
FILENAME(S): SS-DIRECTORY.SRC
FILE TYPE(S): PRG
FILE SIZE: 2.4K
FIRST SEEN: 2025-11-30 01:12:47
APPEARS ON: 1 disk(s)
FILE HASH
41b6d0d4b6fdab18cef8c7881c456312e5509c62f9804cdafe96ebbf618d61dd
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10007 SEITE A | SS-DIRECTORY.SRC | PRG | BrainSkull, Sammlung, C64er | 1 | 18 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 E8 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..&.... ********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 00 4B 08 F2 03 8F 20 2A 20 53 |******.K.... * S| 00000030: 48 4F 52 54 2D 44 49 52 45 43 54 4F 52 59 20 28 |HORT-DIRECTORY (| 00000040: 36 34 20 42 59 54 45 53 29 20 2A 00 70 08 FC 03 |64 BYTES) *.p...| 00000050: 8F 20 2A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |. *-------------| 00000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2A |---------------*| 00000070: 00 95 08 06 04 8F 20 2A 20 20 20 20 20 57 52 49 |...... * WRI| 00000080: 54 54 45 4E 20 49 4E 20 31 39 39 30 20 42 59 20 |TTEN IN 1990 BY | 00000090: 20 20 20 20 2A 00 BA 08 10 04 8F 20 2A 20 20 20 | *...... * | 000000A0: 20 20 20 20 54 48 4F 4D 41 53 20 20 42 49 4E 44 | THOMAS BIND| 000000B0: 45 52 20 20 20 20 20 20 20 2A 00 DF 08 1A 04 8F |ER *......| 000000C0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************| 000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 000000E0: E5 08 24 04 3A 00 09 09 2E 04 8F 20 2A 2A 2A 20 |..$.:...... *** | 000000F0: 51 55 45 4C 4C 54 45 58 54 20 28 50 52 4F 46 49 |QUELLTEXT (PROFI| 00000100: 2D 41 53 53 29 20 2A 2A 2A 00 0F 09 38 04 3A 00 |-ASS) ***...8.:.| 00000110: 1C 09 42 04 9E 20 39 AC 34 30 39 36 00 28 09 4C |..B.. 9.4096.(.L| 00000120: 04 2E 4F 50 54 20 4F 4F 00 34 09 56 04 AC B2 24 |..OPT OO.4.V...$| 00000130: 43 30 30 30 00 3A 09 D0 07 3B 00 5D 09 DA 07 3B |C000.:...;.]...;| 00000140: AC AC AC 20 42 45 54 52 49 45 42 53 9E 54 45 4D |... BETRIEBS.TEM| 00000150: AB 52 4F 55 54 49 4E 45 4E 20 AC AC AC 00 63 09 |.ROUTINEN ....c.| 00000160: E4 07 3B 00 97 09 EE 07 54 41 4C 4B 20 20 20 B2 |..;.....TALK .| 00000170: 20 24 46 46 42 34 20 3B 20 47 45 52 41 45 54 20 | $FFB4 ; GERAET | 00000180: 41 4D 20 53 45 52 49 45 4C C3 20 42 55 53 20 41 |AM SERIEL. BUS A| 00000190: 55 46 20 53 80 45 4E 00 C7 09 F8 07 54 4B 53 41 |UF S.EN.....TKSA| 000001A0: 20 20 20 B2 20 24 46 46 39 36 20 3B 20 53 45 4B | . $FF96 ; SEK| 000001B0: 55 4E 44 41 45 52 41 44 52 45 53 53 45 20 4E 41 |UNDAERADRESSE NA| 000001C0: 43 48 20 54 41 4C 4B 00 F3 09 02 08 42 55 BF 20 |CH TALK.....BU. | 000001D0: 20 B2 20 24 46 46 41 35 20 3B 20 5A 45 49 43 48 | . $FFA5 ; ZEICH| 000001E0: 45 4E 20 56 4F 4D 20 42 55 53 20 45 49 4E 4C 45 |EN VOM BUS EINLE| 000001F0: 53 45 4E 00 2A 0A 0C 08 43 48 52 4F 55 54 20 B2 |SEN.*...CHROUT .| 00000200: 20 24 46 46 44 32 20 3B 20 5A 45 49 43 48 45 4E | $FFD2 ; ZEICHEN| 00000210: 20 28 41 55 46 20 42 49 4C 44 53 43 48 49 52 4D | (AUF BILDSCHIRM| 00000220: 29 20 41 55 53 47 45 42 45 4E 00 59 0A 16 08 9F |) AUSGEBEN.Y....| 00000230: 49 20 20 B2 20 24 46 33 44 35 20 3B 20 46 49 4C |I . $F3D5 ; FIL| 00000240: 45 20 46 55 45 52 20 53 45 52 49 45 4C C3 20 42 |E FUER SERIEL. B| 00000250: 55 53 20 4F 45 46 A5 45 4E 00 8B 0A 20 08 A0 49 |US OEF.EN... ..I| 00000260: 20 B2 20 24 46 36 34 32 20 3B 20 46 49 4C 45 20 | . $F642 ; FILE | 00000270: 46 55 45 52 20 53 45 52 49 45 4C C3 20 42 55 53 |FUER SERIEL. BUS| 00000280: 20 53 43 48 4C 49 45 53 53 45 4E 00 C5 0A 2A 08 | SCHLIESSEN...*.| 00000290: 4C 49 4E 50 52 54 20 B2 20 24 42 44 43 44 20 3B |LINPRT . $BDCD ;| 000002A0: 20 5A 41 48 4C 20 49 4E 20 58 AD 41 20 41 4C 53 | ZAHL IN X.A ALS| 000002B0: 20 44 45 5A 49 4D 41 4C 5A 41 48 4C 20 41 55 53 | DEZIMALZAHL AUS| 000002C0: 47 45 42 45 4E 00 E9 0A 34 08 50 52 54 53 50 43 |GEBEN...4.PRTSPC| 000002D0: 20 B2 20 24 41 42 33 46 20 3B 20 53 50 41 43 45 | . $AB3F ; SPACE| 000002E0: 20 41 55 53 47 45 42 45 4E 00 14 0B 3E 08 43 52 | AUSGEBEN...>.CR| 000002F0: 44 4F 20 20 20 B2 20 24 41 41 44 37 20 3B 20 43 |DO . $AAD7 ; C| 00000300: 41 52 52 49 41 47 45 20 8E 20 41 55 53 46 55 45 |ARRIAGE . AUSFUE| 00000310: 48 52 45 4E 00 4B 0B AC 08 49 4C 4C 45 52 52 20 |HREN.K...ILLERR | 00000320: B2 20 24 42 32 34 38 20 3B 20 27 49 4C 4C 45 47 |. $B248 ; 'ILLEG| 00000330: 41 4C 20 51 55 41 4E 54 49 54 59 20 20 45 52 52 |AL QUANTITY ERR| 00000340: B0 27 20 41 55 53 47 45 42 45 4E 00 51 0B B6 08 |.' AUSGEBEN.Q...| 00000350: 3B 00 72 0B C0 08 3B AC AC AC 20 42 45 4E 4F 45 |;.r...;... BENOE| 00000360: 54 49 47 54 45 20 41 44 52 45 53 53 45 4E 20 AC |TIGTE ADRESSEN .| 00000370: AC AC 00 78 0B CA 08 3B 00 A7 0B D4 08 53 45 4B |...x...;.....SEK| 00000380: 41 44 52 20 B2 20 31 38 35 20 20 20 3B 20 41 4B |ADR . 185 ; AK| 00000390: 54 55 45 4C 4C 45 20 53 45 4B 55 4E 44 41 45 52 |TUELLE SEKUNDAER| 000003A0: 41 44 52 45 53 53 45 00 D4 0B DE 08 47 45 52 41 |ADRESSE.....GERA| 000003B0: 44 52 20 B2 20 31 38 36 20 20 20 3B 20 41 4B 54 |DR . 186 ; AKT| 000003C0: 55 45 4C 4C 45 20 47 45 52 41 45 54 45 41 44 52 |UELLE GERAETEADR| 000003D0: 45 53 53 45 00 01 0C E8 08 53 54 20 20 20 20 20 |ESSE.....ST | 000003E0: B2 20 31 34 34 20 20 20 3B 20 53 54 41 54 55 53 |. 144 ; STATUS| 000003F0: 20 44 45 53 20 53 45 52 49 45 4C C3 20 50 B0 54 | DES SERIEL. P.T| 00000400: 53 00 28 0C F2 08 90 20 20 20 B2 20 31 34 35 20 |S.(.... . 145 | 00000410: 20 20 3B 20 41 44 52 45 53 53 45 20 46 55 45 52 | ; ADRESSE FUER| 00000420: 20 90 AB 54 41 53 54 45 00 56 0C FC 08 53 48 8B | ..TASTE.V...SH.| 00000430: 54 20 20 B2 20 36 35 33 20 20 20 3B 20 41 44 52 |T . 653 ; ADR| 00000440: 45 53 53 45 20 46 55 45 52 20 53 48 8B 54 AD 43 |ESSE FUER SH.T.C| 00000450: B2 AD 43 54 52 4C 00 5C 0C B8 0B 3B 00 7A 0C C2 |..CTRL.\...;.z..| 00000460: 0B 3B AC AC AC 20 44 49 52 45 43 A4 52 59 AB 52 |.;... DIREC.RY.R| 00000470: 4F 55 54 49 4E 45 20 AC AC AC 00 99 0C CC 0B 3B |OUTINE ........;| 00000480: AC AC AC 20 20 20 20 52 45 4C 4F 4B 41 54 49 42 |... RELOKATIB| 00000490: 45 4C 20 20 20 20 AC AC AC 00 9F 0C D6 0B 3B 00 |EL ........;.| 000004A0: C5 0C F4 0B 4A 53 52 20 35 37 38 31 32 20 20 20 |....JSR 57812 | 000004B0: 20 20 20 3B 20 46 49 C3 41 4D 45 4E 20 45 49 4E | ; FI.AMEN EIN| 000004C0: 4C 45 53 45 4E 00 F7 0C 26 0C 4C 44 59 20 23 30 |LESEN...&.LDY #0| 000004D0: 20 20 20 20 20 20 20 20 20 3B 20 53 45 4B 55 4E | ; SEKUN| 000004E0: 44 41 45 52 41 44 52 45 53 53 45 20 41 55 46 20 |DAERADRESSE AUF | 000004F0: 27 4C 45 53 45 4E 27 00 15 0D 30 0C 53 54 59 20 |'LESEN'...0.STY | 00000500: 53 45 4B 41 44 52 20 20 20 20 20 3B 20 53 43 48 |SEKADR ; SCH| 00000510: 41 4C 54 45 4E 00 3E 0D 3A 0C 4A 53 52 20 9F 49 |ALTEN.>.:.JSR .I| 00000520: 20 20 20 20 20 20 3B 20 28 44 49 52 45 43 A4 52 | ; (DIREC.R| 00000530: 59 AB 29 46 49 4C 45 20 4F 45 46 A5 45 4E 00 5A |Y.)FILE OEF.EN.Z| 00000540: 0D 44 0C 4C 44 41 20 47 45 52 41 44 52 20 20 20 |.D.LDA GERADR | 00000550: 20 20 3B 20 46 4C 4F 50 50 59 00 73 0D 4E 0C 4A | ; FLOPPY.s.N.J| 00000560: 53 52 20 54 41 4C 4B 20 20 20 20 20 20 20 3B 20 |SR TALK ; | 00000570: 41 55 46 00 8D 0D 58 0C 4C 44 41 20 23 39 36 20 |AUF...X.LDA #96 | 00000580: 20 20 20 20 20 20 20 3B 20 53 80 45 4E 00 AB 0D | ; S.EN...| 00000590: 62 0C 4A 53 52 20 54 4B 53 41 20 20 20 20 20 20 |b.JSR TKSA | 000005A0: 20 3B 20 53 43 48 41 4C 54 45 4E 00 F7 0D 6C 0C | ; SCHALTEN...l.| 000005B0: 4C 44 59 20 23 35 20 20 20 20 20 20 20 20 20 3B |LDY #5 ;| 000005C0: 20 36 20 42 59 54 45 20 28 42 45 49 20 42 45 47 | 6 BYTE (BEI BEG| 000005D0: 49 4E 4E 2C 20 53 54 41 52 54 41 44 52 45 53 53 |INN, STARTADRESS| 000005E0: 45 2C 20 4C 49 4E 4B 41 44 52 45 53 53 45 2C 20 |E, LINKADRESSE, | 000005F0: 42 4C 4F 43 4B 53 29 00 40 0E 76 0C 2E 42 59 54 |BLOCKS).@.v..BYT| 00000600: 20 24 32 43 20 20 20 20 20 20 20 3B 20 27 A1 41 | $2C ; '.A| 00000610: 52 4E 54 45 52 27 20 42 49 54 AB 42 45 46 45 48 |RNTER' BIT.BEFEH| 00000620: 4C 2C 20 5A 55 4D 20 55 45 42 45 52 53 50 52 49 |L, ZUM UEBERSPRI| 00000630: 4E 47 45 4E 20 56 91 20 27 4C 44 59 20 23 33 27 |NGEN V. 'LDY #3'| 00000640: 00 82 0E 80 0C 4C 31 20 4C 44 59 20 23 33 20 20 |.....L1 LDY #3 | 00000650: 20 20 20 20 3B 20 34 20 42 59 54 45 20 28 53 50 | ; 4 BYTE (SP| 00000660: 41 45 54 45 52 2C 20 4E 55 52 20 4C 49 4E 4B 41 |AETER, NUR LINKA| 00000670: 44 52 45 53 53 45 20 55 4E 44 20 42 4C 4F 43 4B |DRESSE UND BLOCK| 00000680: 53 29 00 BB 0E 8A 0C 4C 35 20 54 41 58 20 20 20 |S).....L5 TAX | 00000690: 20 20 20 20 20 20 3B 20 88 5A 54 45 53 20 47 45 | ; .ZTES GE| 000006A0: 4C 45 53 45 4E 45 53 20 42 59 54 45 20 49 4E 53 |LESENES BYTE INS| 000006B0: 20 58 AB 52 45 47 49 53 54 45 52 00 E2 0E 94 0C | X.REGISTER.....| 000006C0: 4A 53 52 20 42 55 BF 20 20 20 20 20 20 3B 20 4E |JSR BU. ; N| 000006D0: 45 55 45 53 20 42 59 54 45 20 45 49 4E 4C 45 53 |EUES BYTE EINLES| 000006E0: 45 4E 00 0E 0F 9E 0C 44 45 59 20 20 20 20 20 20 |EN.....DEY | 000006F0: 20 20 20 20 20 20 3B 20 53 43 48 91 20 36 AD 34 | ; SCH. 6.4| 00000700: 20 42 59 54 45 20 47 45 4C 45 53 45 4E 3F 00 43 | BYTE GELESEN?.C| 00000710: 0F A8 0C 42 50 4C 20 4C 35 20 20 20 20 20 20 20 |...BPL L5 | 00000720: 20 20 3B 20 57 45 4E 4E 20 4E 49 43 48 54 2C 20 | ; WENN NICHT, | 00000730: 44 41 4E 4E 20 57 49 45 44 45 52 20 4E 41 43 48 |DANN WIEDER NACH| 00000740: 20 4C 35 00 68 0F B2 0C 4C 44 41 20 53 54 20 20 | L5.h...LDA ST | 00000750: 20 20 20 20 20 20 20 3B 20 53 54 41 54 55 53 20 | ; STATUS | 00000760: 4E 4F 43 48 20 4F 4B 3F 00 96 0F BC 0C 42 4E 45 |NOCH OK?.....BNE| 00000770: 20 4C 34 20 20 20 20 20 20 20 20 20 3B 20 57 45 | L4 ; WE| 00000780: 4E 4E 20 4E 49 43 48 54 2C 20 44 41 4E 4E 20 4E |NN NICHT, DANN N| 00000790: 41 43 48 20 4C 34 00 D3 0F C6 0C 4A 53 52 20 4C |ACH L4.....JSR L| 000007A0: 49 4E 50 52 54 20 20 20 20 20 3B 20 42 4C 4F 43 |INPRT ; BLOC| 000007B0: 4B 53 20 41 55 53 47 45 42 45 4E 20 28 42 45 46 |KS AUSGEBEN (BEF| 000007C0: 49 4E 44 45 4E 20 53 49 43 48 20 49 4E 20 58 AD |INDEN SICH IN X.| 000007D0: 41 21 29 00 FD 0F D0 0C 4A 53 52 20 50 52 54 53 |A!).....JSR PRTS| 000007E0: 50 43 20 20 20 20 20 3B 20 4C 45 45 52 53 43 48 |PC ; LEERSCH| 000007F0: 52 49 54 54 20 41 55 53 47 45 42 45 4E 00 1E 10 |RITT AUSGEBEN...| 00000800: DA 0C 4C 32 20 4A 53 52 20 42 55 BF 20 20 20 3B |..L2 JSR BU. ;| 00000810: 20 42 59 54 45 20 45 49 4E 4C 45 53 45 4E 00 65 | BYTE EINLESEN.e| 00000820: 10 E4 0C 42 45 51 20 4C 33 20 20 20 20 20 20 20 |...BEQ L3 | 00000830: 20 20 3B 20 47 4C 45 49 43 48 20 30 20 28 B2 20 | ; GLEICH 0 (. | 00000840: 80 45 20 44 45 53 20 45 B5 52 41 47 53 29 3F 20 |.E DES E.RAGS)? | 00000850: 57 45 4E 4E 20 4A 41 2C 20 44 41 4E 4E 20 4E 41 |WENN JA, DANN NA| 00000860: 43 48 20 4C 33 00 8A 10 EE 0C 4C 44 58 20 53 54 |CH L3.....LDX ST| 00000870: 20 20 20 20 20 20 20 20 20 3B 20 53 54 41 54 55 | ; STATU| 00000880: 53 20 4E 4F 43 48 20 4F 4B 3F 00 B8 10 F8 0C 42 |S NOCH OK?.....B| 00000890: 4E 45 20 4C 33 20 20 20 20 20 20 20 20 20 3B 20 |NE L3 ; | 000008A0: 57 45 4E 4E 20 4E 49 43 48 54 2C 20 44 41 4E 4E |WENN NICHT, DANN| 000008B0: 20 4E 41 43 48 20 4C 33 00 DE 10 02 0D 4A 53 52 | NACH L3.....JSR| 000008C0: 20 43 48 52 4F 55 54 20 20 20 20 20 3B 20 5A 45 | CHROUT ; ZE| 000008D0: 49 43 48 45 4E 20 41 55 53 47 45 42 45 4E 00 2C |ICHEN AUSGEBEN.,| 000008E0: 11 0C 0D 42 4E 45 20 4C 32 20 20 20 20 20 20 20 |...BNE L2 | 000008F0: 20 20 3B 20 55 4E 44 20 47 4C 45 49 43 48 20 57 | ; UND GLEICH W| 00000900: 49 45 44 45 52 20 4E 41 43 48 20 4C 32 2C 20 44 |IEDER NACH L2, D| 00000910: 41 20 5A 45 49 43 48 45 4E 20 41 55 46 20 4A 45 |A ZEICHEN AUF JE| 00000920: 44 45 4E 20 46 41 4C 4C 20 B3 B1 30 00 57 11 16 |DEN FALL ..0.W..| 00000930: 0D 4C 33 20 4A 53 52 20 43 52 44 4F 20 20 20 20 |.L3 JSR CRDO | 00000940: 3B 20 43 41 52 52 49 41 47 45 20 8E 20 41 55 53 |; CARRIAGE . AUS| 00000950: 46 55 45 48 52 45 4E 00 9E 11 34 0D 42 43 43 20 |FUEHREN...4.BCC | 00000960: 4C 31 20 20 20 20 20 20 20 20 20 3B 20 57 49 45 |L1 ; WIE| 00000970: 44 45 52 20 4E 41 43 48 20 4C 31 2C 20 44 41 20 |DER NACH L1, DA | 00000980: 4E 41 43 48 20 43 52 44 4F 20 43 41 52 52 59 AB |NACH CRDO CARRY.| 00000990: 46 4C 41 47 20 47 45 4C 4F 45 53 43 48 54 00 C6 |FLAG GELOESCHT..| 000009A0: 11 48 0D 4C 34 20 4A 4D 50 20 A0 49 20 20 3B 20 |.H.L4 JMP .I ; | 000009B0: 46 49 4C 45 20 53 43 48 4C 49 45 53 53 45 4E 20 |FILE SCHLIESSEN | 000009C0: 55 4E 44 20 80 45 00 00 00 |UND .E... |
..&.... ******************************.K
.... * SHORT-DIRECTORY (64 BYTES) *.P...
. *----------------------------*...... *
WRITTEN IN 1990 BY *...... *
THOMAS BINDER *...... *******
***********************...$.:...... ***
QUELLTEXT (PROFI-ASS) ***...8.:...B.. 9.
4096.(.L..OPT OO.4.V...$C000.:.P.;.].Z.;
... BETRIEBS.TEM.ROUTINEN ....C...;.....
TALK . $FFB4 ; GERAET AM SERIELC BUS A
UF S.EN.G...TKSA . $FF96 ; SEKUNDAERAD
RESSE NACH TALK.....BU. . $FFA5 ; ZEICH
EN VOM BUS EINLESEN.*...CHROUT . $FFD2 ;
ZEICHEN (AUF BILDSCHIRM) AUSGEBEN.Y....
I . $F3D5 ; FILE FUER SERIELC BUS OEF.E
N... . I . $F642 ; FILE FUER SERIELC BUS
SCHLIESSEN.E.*.LINPRT . $BDCD ; ZAHL IN
X.A ALS DEZIMALZAHL AUSGEBEN...4.PRTSPC
. $AB3F ; SPACE AUSGEBEN...>.CRDO . $
AAD7 ; CARRIAGE . AUSFUEHREN.K...ILLERR
. $B248 ; 'ILLEGAL QUANTITY ERR.' AUSGE
BEN.Q...;.R...;... BENOETIGTE ADRESSEN .
...X.J.;...T.SEKADR . 185 ; AKTUELLE S
EKUNDAERADRESSE.T...GERADR . 186 ; AKT
UELLE GERAETEADRESSE.....ST . 144
; STATUS DES SERIELC P.TS.(.... . 145
; ADRESSE FUER ..TASTE.V...SH.T . 653
; ADRESSE FUER SH.T.C..CTRL.\...;.Z.B
.;... DIREC.RY.ROUTINE ......L.;... R
ELOKATIBEL ......V.;.E...JSR 57812
; FICAMEN EINLESEN...&.LDY #0
; SEKUNDAERADRESSE AUF 'LESEN'...0.STY
SEKADR ; SCHALTEN.>.:.JSR .I ;
(DIREC.RY.)FILE OEF.EN.Z.D.LDA GERADR
; FLOPPY.S.N.JSR TALK ; AUF...X.
LDA #96 ; S.EN...B.JSR TKSA
; SCHALTEN...L.LDY #5 ; 6 BYTE
(BEI BEGINN, STARTADRESSE, LINKADRESSE,
BLOCKS).@.V..BYT $2C ; '.ARNTER' B
IT.BEFEHL, ZUM UEBERSPRINGEN V. 'LDY #3'
.....L1 LDY #3 ; 4 BYTE (SPAETER, N
UR LINKADRESSE UND BLOCKS).....L5 TAX
; .ZTES GELESENES BYTE INS X.REGIS
TER.....JSR BU. ; NEUES BYTE EINLES
EN.....DEY ; SCH. 6.4 BYTE GE
LESEN?.C...BPL L5 ; WENN NICHT,
DANN WIEDER NACH L5.H...LDA ST ;
STATUS NOCH OK?.....BNE L4 ; WE
NN NICHT, DANN NACH L4.S.F.JSR LINPRT
; BLOCKS AUSGEBEN (BEFINDEN SICH IN X.
A!)...P.JSR PRTSPC ; LEERSCHRITT AUS
GEBEN...Z.L2 JSR BU. ; BYTE EINLESEN.E
...BEQ L3 ; GLEICH 0 (. .E DES E
.RAGS)? WENN JA, DANN NACH L3.....LDX ST
; STATUS NOCH OK?.....BNE L3
; WENN NICHT, DANN NACH L3.....JSR
CHROUT ; ZEICHEN AUSGEBEN.,...BNE L
2 ; UND GLEICH WIEDER NACH L2, D
A ZEICHEN AUF JEDEN FALL ..0.W...L3 JSR
CRDO ; CARRIAGE . AUSFUEHREN...4.BCC
L1 ; WIEDER NACH L1, DA NACH CRD
O CARRY.FLAG GELOESCHT.F.H.L4 JMP I ;
FILE SCHLIESSEN UND .E...
> CLICK IMAGE PREVIEW FOR FULL MODAL