SUBRUTINER II
FILE INFORMATION
FILENAME(S): SUBRUTINER II
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-12-01 01:08:52
APPEARS ON: 1 disk(s)
FILE HASH
31de9662755d2da7dff2bf7f5a4dbfd62b102f763798b35367e034a48faa368e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ASSEMBLER FILER | SUBRUTINER II | PRG | hedning, loot | 27 | 3 | 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 6D 01 47 45 54 43 55 52 3A 20 20 20 90 |.c.m.GETCUR: .|
00000240: A4 20 53 45 54 43 55 52 00 74 14 72 01 20 20 20 |. SETCUR.t.r. |
00000250: 20 20 20 20 20 20 20 90 AA 00 89 14 77 01 20 20 | .....w. |
00000260: 20 20 20 20 20 20 20 20 90 94 20 24 44 31 00 9E | .. $D1..|
00000270: 14 7C 01 20 20 20 20 20 20 20 20 20 20 90 90 20 |.|. .. |
00000280: 32 31 31 00 B3 14 81 01 20 20 20 20 20 20 20 20 |211..... |
00000290: 20 20 90 97 20 24 44 31 00 C8 14 86 01 20 20 20 | .. $D1..... |
000002A0: 20 20 20 20 20 20 20 90 94 20 24 44 32 00 DC 14 | .. $D2...|
000002B0: 8B 01 20 20 20 20 20 20 20 20 20 20 90 90 20 23 |.. .. #|
000002C0: 30 00 F1 14 90 01 20 20 20 20 20 20 20 20 20 20 |0..... |
000002D0: 90 97 20 24 44 32 00 02 15 95 01 20 20 20 20 20 |.. $D2..... |
000002E0: 20 20 20 20 20 90 B6 00 08 15 9A 01 3B 00 30 15 | .......;.0.|
000002F0: A4 01 3B 20 50 49 4C 2E 20 50 4C 4F 54 54 41 20 |..; PIL. PLOTTA |
00000300: 45 4E 20 50 49 4C 20 50 5D 20 41 4B 54 55 45 4C |EN PIL P] AKTUEL|
00000310: 4C 20 43 55 52 00 36 15 AE 01 3B 00 4F 15 B8 01 |L CUR.6...;.O...|
00000320: 50 49 4C 3A 20 20 20 20 20 20 90 94 20 23 C6 28 |PIL: .. #.(|
00000330: 22 5F 22 29 00 67 15 C2 01 20 20 20 20 20 20 20 |"_").g... |
00000340: 20 20 20 90 A4 20 43 48 52 4F 55 54 00 80 15 CC | .. CHROUT....|
00000350: 01 20 20 20 20 20 20 20 20 20 20 90 94 20 23 C6 |. .. #.|
00000360: 28 22 9D 22 29 00 98 15 D6 01 20 20 20 20 20 20 |(".")..... |
00000370: 20 20 20 20 90 A4 20 43 48 52 4F 55 54 00 A9 15 | .. CHROUT...|
00000380: E0 01 20 20 20 20 20 20 20 20 20 20 90 B6 00 AF |.. ....|
00000390: 15 EA 01 3B 00 D7 15 F4 01 3B 20 43 55 52 4F 46 |...;.....; CUROF|
000003A0: 46 2E 20 53 4C 5B 43 4B 20 4D 41 52 4B 5C 52 2C |F. SL[CK MARK\R,|
000003B0: 53 55 44 44 41 20 54 45 43 4B 45 4E 00 DD 15 FE |SUDDA TECKEN....|
000003C0: 01 3B 00 F1 15 08 02 43 55 52 4F 46 46 3A 20 20 |.;.....CUROFF: |
000003D0: 20 90 94 20 23 31 00 06 16 12 02 20 20 20 20 20 | .. #1..... |
000003E0: 20 20 20 20 20 90 97 20 32 30 34 00 1E 16 1C 02 | .. 204.....|
000003F0: 20 20 20 20 20 20 20 20 20 20 90 A4 20 47 45 54 | .. GET|
00000400: 43 55 52 00 32 16 26 02 20 20 20 20 20 20 20 20 |CUR.2.&. |
00000410: 20 20 90 A2 20 23 30 00 47 16 30 02 20 20 20 20 | .. #0.G.0. |
00000420: 20 20 20 20 20 20 90 94 20 23 33 32 00 60 16 3A | .. #32.`.:|
00000430: 02 20 20 20 20 20 20 20 20 20 20 90 97 20 28 24 |. .. ($|
00000440: 44 31 29 2C 59 00 71 16 44 02 20 20 20 20 20 20 |D1),Y.q.D. |
00000450: 20 20 20 20 90 B6 00 77 16 4E 02 3B 00 9B 16 58 | ...w.N.;...X|
00000460: 02 3B 20 4D 55 4C 54 4F 46 46 2E 20 54 55 52 4E |.; MULTOFF. TURN|
00000470: 20 4F 46 46 20 4D 55 4C 54 49 43 4F 4C 4F 55 52 | OFF MULTICOLOUR|
00000480: 00 A1 16 62 02 3B 00 B8 16 6C 02 4D 55 4C 54 4F |...b.;...l.MULTO|
00000490: 46 46 3A 20 20 90 94 20 35 33 32 37 30 00 CD 16 |FF: .. 53270...|
000004A0: 76 02 20 20 20 20 20 20 20 20 20 20 AF 20 23 32 |v. . #2|
000004B0: 33 39 00 E4 16 80 02 20 20 20 20 20 20 20 20 20 |39..... |
000004C0: 20 90 97 20 35 33 32 37 30 00 F5 16 8A 02 20 20 | .. 53270..... |
000004D0: 20 20 20 20 20 20 20 20 90 B6 00 FB 16 94 02 3B | .......;|
000004E0: 00 1C 17 9E 02 3B 20 4D 55 4C 54 4F 4E 2E 20 54 |.....; MULTON. T|
000004F0: 55 52 4E 20 91 20 4D 55 4C 54 49 43 4F 4C 4F 55 |URN . MULTICOLOU|
00000500: 52 00 22 17 A8 02 3B 00 39 17 B2 02 4D 55 4C 54 |R."...;.9...MULT|
00000510: 4F 4E 3A 20 20 20 90 94 20 35 33 32 37 30 00 4E |ON: .. 53270.N|
00000520: 17 BC 02 20 20 20 20 20 20 20 20 20 20 90 95 20 |... .. |
00000530: 23 31 36 00 65 17 C6 02 20 20 20 20 20 20 20 20 |#16.e... |
00000540: 20 20 90 97 20 35 33 32 37 30 00 76 17 D0 02 20 | .. 53270.v... |
00000550: 20 20 20 20 20 20 20 20 20 90 B6 00 7C 17 DA 02 | ...|...|
00000560: 3B 00 9C 17 E4 02 3B 20 4B 45 52 4E 4F 55 54 2E |;.....; KERNOUT.|
00000570: 20 53 57 49 43 48 20 4F 55 54 20 4B 45 52 4E 41 | SWICH OUT KERNA|
00000580: 4C 00 A2 17 EE 02 3B 00 B7 17 F8 02 4B 45 52 4E |L.....;.....KERN|
00000590: 4F 55 54 3A 20 20 90 94 20 24 30 31 00 D2 17 02 |OUT: .. $01....|
000005A0: 03 20 20 20 20 20 20 20 20 20 20 AF 20 23 25 31 |. . #%1|
000005B0: 31 31 31 31 31 30 31 00 E7 17 0C 03 20 20 20 20 |1111101..... |
000005C0: 20 20 20 20 20 20 90 97 20 24 30 31 00 F8 17 16 | .. $01....|
000005D0: 03 20 20 20 20 20 20 20 20 20 20 90 B6 00 FE 17 |. .....|
000005E0: 20 03 3B 00 1C 18 2A 03 3B 20 4B 45 52 4E 49 4E | .;...*.; KERNIN|
000005F0: 2E 20 53 57 49 43 48 20 49 4E 20 4B 45 52 4E 41 |. SWICH IN KERNA|
00000600: 4C 00 22 18 34 03 3B 00 37 18 3E 03 4B 45 52 4E |L.".4.;.7.>.KERN|
00000610: 49 4E 3A 20 20 20 90 94 20 24 30 31 00 4D 18 48 |IN: .. $01.M.H|
00000620: 03 20 20 20 20 20 20 20 20 20 20 90 95 20 23 24 |. .. #$|
00000630: 30 32 00 62 18 52 03 20 20 20 20 20 20 20 20 20 |02.b.R. |
00000640: 20 90 97 20 24 30 31 00 73 18 5C 03 20 20 20 20 | .. $01.s.\. |
00000650: 20 20 20 20 20 20 90 B6 00 79 18 66 03 3B 00 7F | ...y.f.;..|
00000660: 18 70 03 3B 00 85 18 7A 03 3B 00 00 00 |.p.;...z.;... |
..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.M.GETCUR: .. SETCUR.T.R. .
....W. .. $D1...|. ..
211..... .. $D1.H... .
. $D2..... .. #0.....
.. $D2..... .......;.0...; PIL.
PLOTTA EN PIL P] AKTUELL CUR.6...;.O...
PIL: .. #F("_").G.B. .. CH
ROUT...L. .. #F(".")...V.
.. CHROUT..... .......;.W..
.; CUROFF. SL[CK MARK\R,SUDDA TECKEN....
.;.....CUROFF: .. #1..... ..
204..... .. GETCUR.2.&.
.. #0.G.0. .. #32.`.:.
.. ($D1),Y.Q.D. ...W.N.;...X
.; MULTOFF. TURN OFF MULTICOLOUR...B.;..
.L.MULTOFF: .. 53270.M.V. . #2
39..... .. 53270.....
.......;.....; MULTON. TURN . MULTICOLOU
R."...;.9...MULTON: .. 53270.N...
.. #16.E.F. .. 53270.V.P.
...|.Z.;.....; KERNOUT. SWICH O
UT KERNAL.....;.....KERNOUT: .. $01.R..
. . #%11111101..... ..
$01..... ..... .;...*.; KERNIN
. SWICH IN KERNAL.".4.;.7.>.KERNIN: ..
$01.M.H. .. #$02.B.R.
.. $01.S.\. ...Y.F.;..P.;...Z
.;...
> CLICK IMAGE PREVIEW FOR FULL MODAL