_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

PRINT-AT.SRC

FILE INFORMATION

FILENAME(S): PRINT-AT.SRC

FILE TYPE(S): PRG

FILE SIZE: 373b

FIRST SEEN: 2025-11-30 01:12:52

APPEARS ON: 2 disk(s)

FILE HASH

56ff28828e590089dad8d1f20be7ea1a8f3da37e59b2064bc31394cfabedfdbf

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
10809 SEITE A PRINT-AT.SRC PRG C64er, DuncanTwain 20 3 DOWNLOAD FILE
15943 PRINT-AT.SRC PRG C64er 22 18 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F EE 1F 64 00 2E 4F  42 22 50 52 49 4E 54 2D  |....d..OB"PRINT-|
00000010: 41 54 2C 50 2C 57 22 00  FC 1F 96 00 2E 42 41 20  |AT,P,W"......BA |
00000020: 24 43 30 30 30 00 1C 20  C8 00 20 4A 53 52 24 41  |$C000.. .. JSR$A|
00000030: 45 46 44 3B 41 55 46 20  4B 4F 4D 4D 41 20 50 52  |EFD;AUF KOMMA PR|
00000040: 55 45 46 45 4E 00 37 20  D2 00 20 4A 53 52 24 42  |UEFEN.7 .. JSR$B|
00000050: 37 45 42 3B 5A 41 48 4C  45 4E 20 48 4F 4C 45 4E  |7EB;ZAHLEN HOLEN|
00000060: 00 5F 20 DC 00 20 43 50  58 23 32 35 3B 57 45 4E  |._ .. CPX#25;WEN|
00000070: 4E 20 58 2D 52 45 47 2E  20 3E 20 4F 44 45 52 20  |N X-REG. > ODER |
00000080: 32 35 2C 20 44 41 4E 4E  00 77 20 E6 00 20 42 43  |25, DANN.w .. BC|
00000090: 53 45 52 52 4F 3B 4A 4D  50 20 45 52 52 52 4F 52  |SERRO;JMP ERRROR|
000000A0: 00 83 20 F0 00 20 4C 44  41 24 31 34 00 AB 20 FA  |.. .. LDA$14.. .|
000000B0: 00 20 43 4D 50 23 34 30  3B 57 45 4E 4E 20 41 4B  |. CMP#40;WENN AK|
000000C0: 4B 55 20 3E 20 4F 44 45  52 20 3D 20 34 30 2C 20  |KU > ODER = 40, |
000000D0: 44 41 4E 4E 00 C2 20 04  01 20 42 43 53 45 52 52  |DANN.. .. BCSERR|
000000E0: 4F 3B 4A 4D 50 20 45 52  52 4F 52 00 CB 20 0E 01  |O;JMP ERROR.. ..|
000000F0: 20 54 41 59 00 E7 20 18  01 20 4A 53 52 24 46 46  | TAY.. .. JSR$FF|
00000100: 46 30 3B 43 55 52 53 4F  52 20 53 45 54 5A 45 4E  |F0;CURSOR SETZEN|
00000110: 00 02 21 2C 01 20 4A 53  52 24 41 45 46 44 3B 4B  |..!,. JSR$AEFD;K|
00000120: 4F 4D 4D 41 20 54 45 53  54 45 4E 00 1E 21 36 01  |OMMA TESTEN..!6.|
00000130: 20 4A 4D 50 24 41 41 41  30 3B 54 45 58 54 20 41  | JMP$AAA0;TEXT A|
00000140: 55 53 47 45 42 45 4E 00  41 21 40 01 45 52 52 4F  |USGEBEN.A!@.ERRO|
00000150: 20 4A 4D 50 24 42 32 34  38 3B 49 4C 4C 45 47 41  | JMP$B248;ILLEGA|
00000160: 4C 20 51 55 41 4E 54 49  54 59 00 49 21 4A 01 2E  |L QUANTITY.I!J..|
00000170: 45 4E 00 00 00                                    |EN...           |

X...D..OB"PRINT-AT,P,W"......BA $C000.. 
H. JSR$AEFD;AUF KOMMA PRUEFEN.7 R. JSR$B
7EB;ZAHLEN HOLEN._ .. CPX#25;WENN X-REG.
 > ODER 25, DANN.W .. BCSERRO;JMP ERRROR
.. .. LDA$14.. .. CMP#40;WENN AKKU > ODE
R = 40, DANN.B .. BCSERRO;JMP ERROR.K ..
 TAY.. .. JSR$FFF0;CURSOR SETZEN..!,. JS
R$AEFD;KOMMA TESTEN..!6. JMP$AAA0;TEXT A
USGEBEN.A!@.ERRO JMP$B248;ILLEGAL QUANTI
TY.I!J..EN...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL