SUBRUTINER.S.M.
FILE INFORMATION
FILENAME(S): SUBRUTINER.S.M.
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-12-01 01:08:52
APPEARS ON: 1 disk(s)
FILE HASH
abc7830c76d504d33580de9e15dfd8c947658d1f468c13ec25cabe68818ff481
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ASSEMBLER FILER | SUBRUTINER.S.M. | PRG | hedning, loot | 25 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 1C 12 41 12 64 00 3B 20 53 55 42 52 55 54 49 4E |..A.d.; SUBRUTIN|
00000010: 45 52 20 46 5C 52 20 53 43 52 45 45 4E 20 4D 41 |ER F\R SCREEN MA|
00000020: 43 48 49 4E 45 2E 00 47 12 6E 00 3B 00 6B 12 78 |CHINE..G.n.;.k.x|
00000030: 00 3B 20 43 4F 50 59 2E 20 4B 4F 50 49 45 52 41 |.; COPY. KOPIERA|
00000040: 52 20 58 AB 20 41 4E 54 41 4C 20 42 4C 4F 43 4B |R X. ANTAL BLOCK|
00000050: 00 87 12 82 00 3B 20 46 52 5D 4E 20 28 24 46 43 |.....; FR]N ($FC|
00000060: 29 20 54 49 4C 4C 20 28 24 46 45 29 00 8D 12 8C |) TILL ($FE)....|
00000070: 00 3B 00 A1 12 96 00 43 4F 50 59 3A 20 20 20 20 |.;.....COPY: |
00000080: 20 90 A2 20 23 30 00 BA 12 A0 00 4C 4F 4F 50 43 | .. #0.....LOOPC|
00000090: 3A 20 20 20 20 90 94 20 28 24 46 43 29 2C 59 00 |: .. ($FC),Y.|
000000A0: D3 12 AA 00 20 20 20 20 20 20 20 20 20 20 90 97 |.... ..|
000000B0: 20 28 24 46 45 29 2C 59 00 E4 12 B4 00 20 20 20 | ($FE),Y..... |
000000C0: 20 20 20 20 20 20 20 90 AF 00 FB 12 BE 00 20 20 | ....... |
000000D0: 20 20 20 20 20 20 20 20 90 8C 20 4C 4F 4F 50 43 | .. LOOPC|
000000E0: 00 10 13 C8 00 20 20 20 20 20 20 20 20 20 20 90 |..... .|
000000F0: 9A 20 24 46 44 00 25 13 D2 00 20 20 20 20 20 20 |. $FD.%... |
00000100: 20 20 20 20 90 9A 20 24 46 46 00 36 13 DC 00 20 | .. $FF.6... |
00000110: 20 20 20 20 20 20 20 20 20 90 AC 00 4D 13 E6 00 | ...M...|
00000120: 20 20 20 20 20 20 20 20 20 20 90 8C 20 4C 4F 4F | .. LOO|
00000130: 50 43 00 5E 13 F0 00 20 20 20 20 20 20 20 20 20 |PC.^... |
00000140: 20 90 B6 00 64 13 FA 00 3B 00 8B 13 04 01 3B 20 | ...d...;.....; |
00000150: 53 45 54 43 55 52 2E 20 53 5B 54 54 20 4D 41 52 |SETCUR. S[TT MAR|
00000160: 4B 5C 52 20 54 49 4C 4C 20 52 41 44 2C 4B 4F 4C |K\R TILL RAD,KOL|
00000170: 00 91 13 0E 01 3B 00 A6 13 18 01 53 45 54 43 55 |.....;.....SETCU|
00000180: 52 3A 20 20 20 90 A1 20 52 41 44 00 BB 13 22 01 |R: .. RAD...".|
00000190: 20 20 20 20 20 20 20 20 20 20 90 A2 20 4B 4F 4C | .. KOL|
000001A0: 00 CC 13 2C 01 20 20 20 20 20 20 20 20 20 20 90 |...,. .|
000001B0: A8 00 E2 13 36 01 20 20 20 20 20 20 20 20 20 20 |....6. |
000001C0: 90 A4 20 50 4C 4F 54 00 F3 13 40 01 20 20 20 20 |.. PLOT...@. |
000001D0: 20 20 20 20 20 20 90 B6 00 F9 13 4A 01 3B 00 21 | .....J.;.!|
000001E0: 14 54 01 3B 20 47 45 54 43 55 52 2E 20 50 4C 41 |.T.; GETCUR. PLA|
000001F0: 43 45 52 41 20 41 44 44 52 45 53 53 20 49 20 32 |CERA ADDRESS I 2|
00000200: 30 39 AB 32 31 30 00 45 14 5E 01 3B 20 28 24 44 |09.210.E.^.; ($D|
00000210: 31 AB 24 44 32 29 20 4F 43 48 20 52 41 44 2C 4B |1.$D2) OCH RAD,K|
00000220: 4F 4C 20 49 20 58 AB 2C 59 AB 00 4B 14 68 01 3B |OL I X.,Y..K.h.;|
00000230: 00 63 14 72 01 47 45 54 43 55 52 3A 20 20 20 90 |.c.r.GETCUR: .|
00000240: A4 20 53 45 54 43 55 52 00 74 14 7C 01 20 20 20 |. SETCUR.t.|. |
00000250: 20 20 20 20 20 20 20 90 B7 00 8A 14 86 01 20 20 | ....... |
00000260: 20 20 20 20 20 20 20 20 90 A4 20 50 4C 4F 54 00 | .. PLOT.|
00000270: 9B 14 90 01 20 20 20 20 20 20 20 20 20 20 90 B6 |.... ..|
00000280: 00 A1 14 9A 01 3B 00 C9 14 A4 01 3B 20 50 49 4C |.....;.....; PIL|
00000290: 2E 20 50 4C 4F 54 54 41 20 45 4E 20 50 49 4C 20 |. PLOTTA EN PIL |
000002A0: 50 5D 20 41 4B 54 55 45 4C 4C 20 43 55 52 00 CF |P] AKTUELL CUR..|
000002B0: 14 AE 01 3B 00 E8 14 B8 01 50 49 4C 3A 20 20 20 |...;.....PIL: |
000002C0: 20 20 20 90 94 20 23 C6 28 22 5F 22 29 00 00 15 | .. #.("_")...|
000002D0: C2 01 20 20 20 20 20 20 20 20 20 20 90 A4 20 43 |.. .. C|
000002E0: 48 52 4F 55 54 00 19 15 CC 01 20 20 20 20 20 20 |HROUT..... |
000002F0: 20 20 20 20 90 94 20 23 C6 28 22 9D 22 29 00 31 | .. #.(".").1|
00000300: 15 D6 01 20 20 20 20 20 20 20 20 20 20 90 A4 20 |... .. |
00000310: 43 48 52 4F 55 54 00 42 15 E0 01 20 20 20 20 20 |CHROUT.B... |
00000320: 20 20 20 20 20 90 B6 00 48 15 EA 01 3B 00 70 15 | ...H...;.p.|
00000330: F4 01 3B 20 43 55 52 4F 46 46 2E 20 53 4C 5B 43 |..; CUROFF. SL[C|
00000340: 4B 20 4D 41 52 4B 5C 52 2C 53 55 44 44 41 20 54 |K MARK\R,SUDDA T|
00000350: 45 43 4B 45 4E 00 76 15 FE 01 3B 00 8A 15 08 02 |ECKEN.v...;.....|
00000360: 43 55 52 4F 46 46 3A 20 20 20 90 94 20 23 31 00 |CUROFF: .. #1.|
00000370: 9F 15 12 02 20 20 20 20 20 20 20 20 20 20 90 97 |.... ..|
00000380: 20 32 30 34 00 B7 15 1C 02 20 20 20 20 20 20 20 | 204..... |
00000390: 20 20 20 90 A4 20 47 45 54 43 55 52 00 CE 15 21 | .. GETCUR...!|
000003A0: 02 20 20 20 20 20 20 20 20 20 20 90 A4 20 24 45 |. .. $E|
000003B0: 41 32 34 00 F6 15 26 02 20 20 20 20 20 20 20 20 |A24...&. |
000003C0: 20 20 90 A1 20 46 55 4D 3B 20 46 5B 52 47 20 55 | .. FUM; F[RG U|
000003D0: 4E 44 45 52 20 4D 41 52 4B 5C 52 00 20 16 30 02 |NDER MARK\R. .0.|
000003E0: 20 20 20 20 20 20 20 20 20 20 90 94 20 54 55 4D | .. TUM|
000003F0: 3B 20 54 45 43 4B 45 4E 20 55 4E 44 45 52 20 4D |; TECKEN UNDER M|
00000400: 41 52 4B 5C 52 00 39 16 3A 02 20 20 20 20 20 20 |ARK\R.9.:. |
00000410: 20 20 20 20 90 A4 20 50 55 54 43 48 41 52 00 4A | .. PUTCHAR.J|
00000420: 16 44 02 20 20 20 20 20 20 20 20 20 20 90 B6 00 |.D. ...|
00000430: 50 16 4E 02 3B 00 74 16 58 02 3B 20 4D 55 4C 54 |P.N.;.t.X.; MULT|
00000440: 4F 46 46 2E 20 54 55 52 4E 20 4F 46 46 20 4D 55 |OFF. TURN OFF MU|
00000450: 4C 54 49 43 4F 4C 4F 55 52 00 7A 16 62 02 3B 00 |LTICOLOUR.z.b.;.|
00000460: 91 16 6C 02 4D 55 4C 54 4F 46 46 3A 20 20 90 94 |..l.MULTOFF: ..|
00000470: 20 35 33 32 37 30 00 A6 16 76 02 20 20 20 20 20 | 53270...v. |
00000480: 20 20 20 20 20 AF 20 23 32 33 39 00 BD 16 80 02 | . #239.....|
00000490: 20 20 20 20 20 20 20 20 20 20 90 97 20 35 33 32 | .. 532|
000004A0: 37 30 00 CE 16 8A 02 20 20 20 20 20 20 20 20 20 |70..... |
000004B0: 20 90 B6 00 D4 16 94 02 3B 00 F5 16 9E 02 3B 20 | .......;.....; |
000004C0: 4D 55 4C 54 4F 4E 2E 20 54 55 52 4E 20 91 20 4D |MULTON. TURN . M|
000004D0: 55 4C 54 49 43 4F 4C 4F 55 52 00 FB 16 A8 02 3B |ULTICOLOUR.....;|
000004E0: 00 12 17 B2 02 4D 55 4C 54 4F 4E 3A 20 20 20 90 |.....MULTON: .|
000004F0: 94 20 35 33 32 37 30 00 27 17 BC 02 20 20 20 20 |. 53270.'... |
00000500: 20 20 20 20 20 20 90 95 20 23 31 36 00 3E 17 C6 | .. #16.>..|
00000510: 02 20 20 20 20 20 20 20 20 20 20 90 97 20 35 33 |. .. 53|
00000520: 32 37 30 00 4F 17 D0 02 20 20 20 20 20 20 20 20 |270.O... |
00000530: 20 20 90 B6 00 55 17 DA 02 3B 00 75 17 E4 02 3B | ...U...;.u...;|
00000540: 20 4B 45 52 4E 4F 55 54 2E 20 53 57 49 43 48 20 | KERNOUT. SWICH |
00000550: 4F 55 54 20 4B 45 52 4E 41 4C 00 7B 17 EE 02 3B |OUT KERNAL.{...;|
00000560: 00 90 17 F8 02 4B 45 52 4E 4F 55 54 3A 20 20 90 |.....KERNOUT: .|
00000570: 94 20 24 30 31 00 AB 17 02 03 20 20 20 20 20 20 |. $01..... |
00000580: 20 20 20 20 AF 20 23 25 31 31 31 31 31 31 30 31 | . #%11111101|
00000590: 00 C0 17 0C 03 20 20 20 20 20 20 20 20 20 20 90 |..... .|
000005A0: 97 20 24 30 31 00 D1 17 16 03 20 20 20 20 20 20 |. $01..... |
000005B0: 20 20 20 20 90 B6 00 D7 17 20 03 3B 00 F5 17 2A | ..... .;...*|
000005C0: 03 3B 20 4B 45 52 4E 49 4E 2E 20 53 57 49 43 48 |.; KERNIN. SWICH|
000005D0: 20 49 4E 20 4B 45 52 4E 41 4C 00 FB 17 34 03 3B | IN KERNAL...4.;|
000005E0: 00 10 18 3E 03 4B 45 52 4E 49 4E 3A 20 20 20 90 |...>.KERNIN: .|
000005F0: 94 20 24 30 31 00 26 18 48 03 20 20 20 20 20 20 |. $01.&.H. |
00000600: 20 20 20 20 90 95 20 23 24 30 32 00 3B 18 52 03 | .. #$02.;.R.|
00000610: 20 20 20 20 20 20 20 20 20 20 90 97 20 24 30 31 | .. $01|
00000620: 00 4C 18 5C 03 20 20 20 20 20 20 20 20 20 20 90 |.L.\. .|
00000630: B6 00 52 18 66 03 3B 00 77 18 70 03 3B 20 47 45 |..R.f.;.w.p.; GE|
00000640: 54 43 48 52 2E 20 4C 41 47 52 41 52 20 55 4E 44 |TCHR. LAGRAR UND|
00000650: 4E 20 54 45 43 4B 45 4E 20 4F 43 48 00 90 18 7A |N TECKEN OCH...z|
00000660: 03 3B 20 46 5B 52 47 20 55 4E 44 45 52 20 4D 41 |.; F[RG UNDER MA|
00000670: 52 4B 5C 52 2E 00 96 18 84 03 3B 00 CD 18 8E 03 |RK\R......;.....|
00000680: 47 45 54 43 48 52 2E 20 20 20 90 A4 20 24 45 41 |GETCHR. .. $EA|
00000690: 32 34 3B 20 42 45 52 5B 4B 4E 41 20 50 45 4B 41 |24; BER[KNA PEKA|
000006A0: 52 45 20 54 49 4C 4C 20 46 5B 52 47 20 4D 49 4E |RE TILL F[RG MIN|
000006B0: 4E 45 00 E2 18 98 03 20 20 20 20 20 20 20 20 20 |NE..... |
000006C0: 20 90 A2 20 4B 4F 4C 00 FB 18 A2 03 20 20 20 20 | .. KOL..... |
000006D0: 20 20 20 20 20 20 90 94 20 28 24 44 31 29 2C 59 | .. ($D1),Y|
000006E0: 00 10 19 AC 03 20 20 20 20 20 20 20 20 20 20 90 |..... .|
000006F0: 97 20 54 55 4D 00 29 19 B6 03 20 20 20 20 20 20 |. TUM.)... |
00000700: 20 20 20 20 90 94 20 28 24 46 33 29 2C 59 00 3E | .. ($F3),Y.>|
00000710: 19 C0 03 20 20 20 20 20 20 20 20 20 20 90 97 20 |... .. |
00000720: 46 55 4D 00 4F 19 CA 03 20 20 20 20 20 20 20 20 |FUM.O... |
00000730: 20 20 90 B6 00 55 19 D4 03 3B 00 7C 19 DE 03 3B | ...U...;.|...;|
00000740: 20 53 48 4F 57 43 55 52 2E 20 50 4C 41 43 45 52 | SHOWCUR. PLACER|
00000750: 41 20 4D 41 52 4B 5C 52 20 50 4F 20 53 4B 5B 52 |A MARK\R PO SK[R|
00000760: 4D 00 82 19 E8 03 3B 00 96 19 F2 03 53 48 4F 57 |M.....;.....SHOW|
00000770: 43 55 52 3A 20 90 A1 20 43 4F 4C 00 AA 19 FC 03 |CUR: .. COL.....|
00000780: 20 20 20 20 20 20 20 20 20 90 A2 20 4B 4F 4C 00 | .. KOL.|
00000790: C2 19 06 04 20 20 20 20 20 20 20 20 20 90 94 20 |.... .. |
000007A0: 28 24 44 31 29 2C 59 00 D7 19 10 04 20 20 20 20 |($D1),Y..... |
000007B0: 20 20 20 20 20 90 93 20 23 24 38 30 00 EF 19 1A | .. #$80....|
000007C0: 04 20 20 20 20 20 20 20 20 20 90 A4 20 50 55 54 |. .. PUT|
000007D0: 43 48 41 52 00 FF 19 24 04 20 20 20 20 20 20 20 |CHAR...$. |
000007E0: 20 20 90 B6 00 05 1A 2E 04 3B 00 0B 1A 38 04 3B | .......;...8.;|
000007F0: 00 11 1A 42 04 3B 00 00 00 |...B.;... |
..A.D.; SUBRUTINER F\R SCREEN MACHINE..G
.N.;.K.X.; COPY. KOPIERAR X. ANTAL BLOCK
.....; FR]N ($FC) TILL ($FE).....;.....C
OPY: .. #0... .LOOPC: .. ($FC),Y.
S... .. ($FE),Y..... .
...... .. LOOPC...H. .
. $FD.%.R. .. $FF.6...
...M... .. LOOPC.^...
...D...;.....; SETCUR. S[TT MARK\R TILL
RAD,KOL.....;.....SETCUR: .. RAD...".
.. KOL.L.,. .....6.
.. PLOT...@. .....J.;.!
.T.; GETCUR. PLACERA ADDRESS I 209.210.E
.^.; ($D1.$D2) OCH RAD,KOL I X.,Y..K.H.;
.C.R.GETCUR: .. SETCUR.T.|. .
...... .. PLOT..... ..
.....;.I...; PIL. PLOTTA EN PIL P] AKTUE
LL CUR.O...;.....PIL: .. #F("_")...
B. .. CHROUT...L. .. #
F(".").1.V. .. CHROUT.B...
...H...;.P...; CUROFF. SL[CK MARK\R
,SUDDA TECKEN.V...;.....CUROFF: .. #1.
.... .. 204..... .. GE
TCUR.N.!. .. $EA24...&.
.. FUM; F[RG UNDER MARK\R. .0.
.. TUM; TECKEN UNDER MARK\R.9.:.
.. PUTCHAR.J.D. ...P.N.;.T.
X.; MULTOFF. TURN OFF MULTICOLOUR.Z.B.;.
..L.MULTOFF: .. 53270...V. . #
239..... .. 53270.N...
...T...;.....; MULTON. TURN . MULTICOLO
UR.....;.....MULTON: .. 53270.'...
.. #16.>.F. .. 53270.O.P.
...U.Z.;.U...; KERNOUT. SWICH
OUT KERNAL.{...;.....KERNOUT: .. $01...
.. . #%11111101..... .
. $01.Q... ...W. .;...*.; KERNI
N. SWICH IN KERNAL...4.;...>.KERNIN: .
. $01.&.H. .. #$02.;.R.
.. $01.L.\. ...R.F.;.W.P.; GE
TCHR. LAGRAR UNDN TECKEN OCH...Z.; F[RG
UNDER MARK\R......;.M...GETCHR. .. $EA
24; BER[KNA PEKARE TILL F[RG MINNE.....
.. KOL..... .. ($D1),Y
..... .. TUM.)... .. (
$F3),Y.>... .. FUM.O.J.
...U.T.;.|...; SHOWCUR. PLACERA MARK\R
PO SK[RM.....;.....SHOWCUR: .. COL.....
.. KOL.B... .. ($D1),Y.
W... .. #$80..... .. PUT
CHAR...$. .......;...8.;...B.;..
.
> CLICK IMAGE PREVIEW FOR FULL MODAL