COMPUTED CMDS

FILE INFORMATION

FILENAME(S): COMPUTED CMDS

FILE TYPE(S): PRG

FILE SIZE: 811b

FIRST SEEN: 2025-11-30 21:12:21

APPEARS ON: 2 disk(s)

FILE HASH

6f0eafef42e6c47768381abb2d2da566930f1db39fb50b1d9d59426e47082fb1

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
RANS ISK1	COMPUTED CMDS	PRG	DuncanTwain	28	3	DOWNLOAD FILE
RANS ISK2	COMPUTED CMDS	PRG	DuncanTwain	28	3	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 35 37 5C 37 00 00 8F 20  43 4F 4D 50 55 54 45 44  |57\7... COMPUTED|
00000010: 20 43 4D 44 53 20 28 41  2E 20 54 52 45 55 45 4E  | CMDS (A. TREUEN|
00000020: 46 45 4C 53 29 20 20 3A  00 62 37 01 00 3A 00 82  |FELS)  :.b7..:..|
00000030: 37 02 00 8F 20 33 20 53  54 41 54 45 4D 45 4E 54  |7... 3 STATEMENT|
00000040: 53 2C 20 30 20 46 55 4E  43 54 49 4F 4E 53 00 88  |S, 0 FUNCTIONS..|
00000050: 37 03 00 3A 00 A5 37 04  00 8F 20 4B 45 59 57 4F  |7..:..7... KEYWO|
00000060: 52 44 20 43 48 41 52 41  43 54 45 52 53 3A 20 31  |RD CHARACTERS: 1|
00000070: 36 00 AB 37 05 00 3A 00  D3 37 06 00 8F 20 4B 45  |6..7..:..7... KE|
00000080: 59 57 4F 52 44 20 20 20  20 20 52 4F 55 54 49 4E  |YWORD     ROUTIN|
00000090: 45 20 20 4C 49 4E 45 20  20 20 53 45 52 20 23 00  |E  LINE   SER #.|
000000A0: FA 37 07 00 8F 20 53 2F  52 45 53 54 4F 52 45 20  |.7... S/RESTORE |
000000B0: 20 20 52 45 53 54 4F 52  20 20 20 31 30 31 32 34  |  RESTOR   10124|
000000C0: 20 20 20 31 33 39 00 21  38 08 00 8F 20 53 2F 47  |   139.!8... S/G|
000000D0: 4F 53 55 42 20 20 20 20  20 43 47 4F 53 55 42 20  |OSUB     CGOSUB |
000000E0: 20 20 31 30 31 35 30 20  20 20 31 34 30 00 48 38  |  10150   140.H8|
000000F0: 09 00 8F 20 53 2F 47 4F  54 4F 20 20 20 20 20 20  |... S/GOTO      |
00000100: 43 47 4F 54 4F 20 20 20  20 31 30 31 38 32 20 20  |CGOTO    10182  |
00000110: 20 31 34 31 00 4E 38 0A  00 3A 00 75 38 0B 00 8F  | 141.N8..:.u8...|
00000120: 20 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  | ===============|
00000130: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
00000140: 3D 00 7B 38 0C 00 3A 00  95 38 8C 00 2E C6 20 22  |=.{8..:..8.... "|
00000150: 52 45 53 54 4F 52 C5 47  4F 53 55 C2 47 4F 54 CF  |RESTOR.GOSU.GOT.|
00000160: 22 00 B0 38 74 04 2E 57  B0 44 20 52 45 53 A4 52  |"..8t..W.D RES.R|
00000170: AB 31 2C 43 8D AB 31 2C  43 89 AB 31 00 C2 38 8C  |.1,C..1,C..1..8.|
00000180: 27 52 45 53 A4 52 20 4A  53 52 20 24 37 39 00 D2  |'RES.R JSR $79..|
00000190: 38 8E 27 42 4E 45 20 43  52 53 31 20 20 20 00 E2  |8.'BNE CRS1   ..|
000001A0: 38 90 27 4A 4D 50 20 24  41 38 31 44 20 20 00 F6  |8.'JMP $A81D  ..|
000001B0: 38 92 27 43 52 53 31 20  4A 53 52 20 24 41 44 38  |8.'CRS1 JSR $AD8|
000001C0: 41 20 00 06 39 94 27 4A  53 52 20 24 42 37 46 37  |A ..9.'JSR $B7F7|
000001D0: 20 20 00 16 39 96 27 4A  53 52 20 24 41 36 31 33  |  ..9.'JSR $A613|
000001E0: 20 20 00 26 39 98 27 42  43 43 20 43 52 53 32 20  |  .&9.'BCC CRS2 |
000001F0: 20 20 00 32 39 9A 27 4C  44 41 20 24 35 46 00 3E  |  .29.'LDA $5F.>|
00000200: 39 9C 27 53 42 43 20 23  31 20 00 4A 39 9E 27 4C  |9.'SBC #1 .J9.'L|
00000210: 44 59 20 24 36 30 00 5A  39 A0 27 4A 4D 50 20 24  |DY $60.Z9.'JMP $|
00000220: 41 38 32 34 20 20 00 6E  39 A2 27 43 52 53 32 20  |A824  .n9.'CRS2 |
00000230: 4A 4D 50 20 24 41 38 45  33 20 00 74 39 A4 27 3B  |JMP $A8E3 .t9.';|
00000240: 00 82 39 A6 27 43 8D 20  4C 44 41 20 23 33 00 90  |..9.'C. LDA #3..|
00000250: 39 A8 27 4A 53 52 20 24  41 33 46 42 00 9C 39 AA  |9.'JSR $A3FB..9.|
00000260: 27 4C 44 41 20 24 37 42  00 A4 39 AC 27 50 48 41  |'LDA $7B..9.'PHA|
00000270: 00 B0 39 AE 27 4C 44 41  20 24 37 41 00 B8 39 B0  |..9.'LDA $7A..9.|
00000280: 27 50 48 41 00 C4 39 B2  27 4C 44 41 20 24 33 41  |'PHA..9.'LDA $3A|
00000290: 00 CC 39 B4 27 50 48 41  00 D8 39 B6 27 4C 44 41  |..9.'PHA..9.'LDA|
000002A0: 20 24 33 39 00 E0 39 B8  27 50 48 41 00 F0 39 BA  | $39..9.'PHA..9.|
000002B0: 27 4C 44 41 20 23 24 38  44 20 20 20 00 F8 39 BC  |'LDA #$8D   ..9.|
000002C0: 27 50 48 41 00 04 3A BE  27 4A 53 52 20 24 37 39  |'PHA..:.'JSR $79|
000002D0: 00 0F 3A C0 27 4A 53 52  20 43 89 00 1F 3A C2 27  |..:.'JSR C...:.'|
000002E0: 4A 4D 50 20 24 41 37 41  45 20 20 00 25 3A C4 27  |JMP $A7AE  .%:.'|
000002F0: 3B 00 36 3A C6 27 43 89  20 4A 53 52 20 24 41 44  |;.6:.'C. JSR $AD|
00000300: 38 41 00 46 3A C8 27 4A  53 52 20 24 42 37 46 37  |8A.F:.'JSR $B7F7|
00000310: 20 20 00 56 3A CA 27 4A  4D 50 20 24 41 38 41 33  |  .V:.'JMP $A8A3|
00000320: 20 20 00 5C 3A CC 27 3B  00 00 00                 |  .\:.';...     |

57\7... COMPUTED CMDS (A. TREUENFELS)  :
.B7..:..7... 3 STATEMENTS, 0 FUNCTIONS..
7..:..7... KEYWORD CHARACTERS: 16..7..:.
S7... KEYWORD     ROUTINE  LINE   SER #.
.7... S/RESTORE   RESTOR   10124   139.!
8... S/GOSUB     CGOSUB   10150   140.H8
... S/GOTO      CGOTO    10182   141.N8.
.:.U8... ===============================
=.{8..:..8...F "RESTOREGOSUBGOTO"..8T..W
.D RES.R.1,C..1,C..1.B8.'RES.R JSR $79.R
8.'BNE CRS1   ..8.'JMP $A81D  ..8.'CRS1 
JSR $AD8A ..9.'JSR $B7F7  ..9.'JSR $A613
  .&9.'BCC CRS2   .29.'LDA $5F.>9.'SBC #
1 .J9.'LDY $60.Z9 'JMP $A824  .N9.'CRS2 
JMP $A8E3 .T9.';..9.'C. LDA #3..9.'JSR $
A3FB..9.'LDA $7B..9.'PHA..9.'LDA $7A..9.
'PHA.D9.'LDA $3A.L9.'PHA.X9.'LDA $39..9.
'PHA..9.'LDA #$8D   ..9.'PHA..:.'JSR $79
..:.'JSR C...:B'JMP $A7AE  .%:D';.6:F'C.
 JSR $AD8A.F:H'JSR $B7F7  .V:J'JMP $A8A3
  .\:L';...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL