SIXTEEN.HY
FILE INFORMATION
FILENAME(S): SIXTEEN.HY
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 01:13:14
APPEARS ON: 1 disk(s)
FILE HASH
7a10dd6fafd2a277d0d5ce5556a13a5771b530f119cb7bb1228090ee55888da8
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15721 SEITE A | SIXTEEN.HY | PRG | C64er | 29 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 07 04 88 13 3B 00 22 04 8D 13 3B 20 20 20 |......;."...; | 00000010: 20 20 20 31 36 2D 42 49 54 2D 4D 41 43 52 4F 4C | 16-BIT-MACROL| 00000020: 49 42 00 49 04 92 13 3B 20 20 20 20 20 20 46 55 |IB.I...; FU| 00000030: 45 52 20 47 45 42 52 41 55 43 48 20 4D 49 54 20 |ER GEBRAUCH MIT | 00000040: 48 59 50 52 41 2D 41 53 53 00 5D 04 97 13 3B 20 |HYPRA-ASS.]...; | 00000050: 20 20 20 20 20 4C 4F 41 44 20 41 2F 59 00 6E 04 | LOAD A/Y.n.| 00000060: 9C 13 2E 4D 41 20 4C 44 41 59 28 41 44 29 00 79 |...MA LDAY(AD).y| 00000070: 04 A1 13 20 4C 44 41 41 44 00 86 04 A6 13 20 4C |... LDAAD..... L| 00000080: 44 59 41 44 2B 31 00 8E 04 AB 13 2E 52 54 00 A0 |DYAD+1......RT..| 00000090: 04 B0 13 2E 4D 41 20 4C 44 41 59 49 28 41 44 29 |....MA LDAYI(AD)| 000000A0: 00 AF 04 B5 13 20 4C 44 41 23 3C 28 41 44 29 00 |..... LDA#<(AD).| 000000B0: BE 04 BA 13 20 4C 44 59 23 3E 28 41 44 29 00 C6 |.... LDY#>(AD)..| 000000C0: 04 BF 13 2E 52 54 00 DB 04 C4 13 3B 20 20 20 20 |....RT.....; | 000000D0: 20 20 53 54 4F 52 45 20 41 2F 59 00 EC 04 C9 13 | STORE A/Y.....| 000000E0: 2E 4D 41 20 53 54 41 59 28 41 44 29 00 F7 04 CE |.MA STAY(AD)....| 000000F0: 13 20 53 54 41 41 44 00 04 05 D3 13 20 53 54 59 |. STAAD..... STY| 00000100: 41 44 2B 31 00 0C 05 D8 13 2E 52 54 00 21 05 DD |AD+1......RT.!..| 00000110: 13 3B 20 20 20 20 20 20 4D 4F 56 45 20 42 59 54 |.; MOVE BYT| 00000120: 45 00 38 05 E2 13 2E 4D 41 20 4D 4F 56 45 42 28 |E.8....MA MOVEB(| 00000130: 46 52 4F 4D 2C 54 4F 29 00 45 05 E7 13 20 4C 44 |FROM,TO).E... LD| 00000140: 41 46 52 4F 4D 00 50 05 EC 13 20 53 54 41 54 4F |AFROM.P... STATO| 00000150: 00 58 05 F1 13 2E 52 54 00 6F 05 F6 13 2E 4D 41 |.X....RT.o....MA| 00000160: 20 4D 4F 56 45 42 49 28 56 41 4C 2C 54 4F 29 00 | MOVEBI(VAL,TO).| 00000170: 7C 05 FB 13 20 4C 44 41 23 56 41 4C 00 87 05 00 ||... LDA#VAL....| 00000180: 14 20 53 54 41 54 4F 00 8F 05 05 14 2E 52 54 00 |. STATO......RT.| 00000190: A4 05 0A 14 3B 20 20 20 20 20 20 4D 4F 56 45 20 |....; MOVE | 000001A0: 57 4F 52 44 00 BB 05 0F 14 2E 4D 41 20 4D 4F 56 |WORD......MA MOV| 000001B0: 45 57 28 46 52 4F 4D 2C 54 4F 29 00 CE 05 14 14 |EW(FROM,TO).....| 000001C0: 20 2E 2E 2E 4C 44 41 59 28 46 52 4F 4D 29 00 DF | ...LDAY(FROM)..| 000001D0: 05 19 14 20 2E 2E 2E 53 54 41 59 28 54 4F 29 00 |... ...STAY(TO).| 000001E0: E7 05 1E 14 2E 52 54 00 FE 05 23 14 2E 4D 41 20 |.....RT...#..MA | 000001F0: 4D 4F 56 45 57 49 28 56 41 4C 2C 54 4F 29 00 11 |MOVEWI(VAL,TO)..| 00000200: 06 28 14 20 2E 2E 2E 4C 44 41 59 49 28 56 41 4C |.(. ...LDAYI(VAL| 00000210: 29 00 22 06 2D 14 20 2E 2E 2E 53 54 41 59 28 54 |).".-. ...STAY(T| 00000220: 4F 29 00 2A 06 32 14 2E 52 54 00 3E 06 37 14 3B |O).*.2..RT.>.7.;| 00000230: 20 20 20 20 20 20 41 44 44 20 57 4F 52 44 00 4F | ADD WORD.O| 00000240: 06 3C 14 2E 4D 41 20 41 44 44 57 28 41 44 29 00 |.<..MA ADDW(AD).| 00000250: 58 06 41 14 20 43 4C 43 00 63 06 46 14 20 41 44 |X.A. CLC.c.F. AD| 00000260: 43 41 44 00 6C 06 4B 14 20 50 48 41 00 75 06 50 |CAD.l.K. PHA.u.P| 00000270: 14 20 54 59 41 00 82 06 55 14 20 41 44 43 41 44 |. TYA...U. ADCAD| 00000280: 2B 31 00 8B 06 5A 14 20 54 41 59 00 94 06 5F 14 |+1...Z. TAY..._.| 00000290: 20 50 4C 41 00 9C 06 64 14 2E 52 54 00 AF 06 69 | PLA...d..RT...i| 000002A0: 14 2E 4D 41 20 41 44 44 57 49 28 56 41 4C 29 00 |..MA ADDWI(VAL).| 000002B0: B8 06 6E 14 20 43 4C 43 00 C8 06 73 14 20 41 44 |..n. CLC...s. AD| 000002C0: 43 23 3C 28 56 41 4C 29 00 D1 06 78 14 20 50 48 |C#<(VAL)...x. PH| 000002D0: 41 00 DA 06 7D 14 20 54 59 41 00 EA 06 82 14 20 |A...}. TYA..... | 000002E0: 41 44 43 23 3E 28 56 41 4C 29 00 F3 06 87 14 20 |ADC#>(VAL)..... | 000002F0: 54 41 59 00 FC 06 8C 14 20 50 4C 41 00 04 07 91 |TAY..... PLA....| 00000300: 14 2E 52 54 00 18 07 96 14 3B 20 20 20 20 20 20 |..RT.....; | 00000310: 53 55 42 20 57 4F 52 44 00 29 07 9B 14 2E 4D 41 |SUB WORD.)....MA| 00000320: 20 53 55 42 57 28 41 44 29 00 32 07 A0 14 20 53 | SUBW(AD).2... S| 00000330: 45 43 00 3D 07 A5 14 20 53 42 43 41 44 00 46 07 |EC.=... SBCAD.F.| 00000340: AA 14 20 50 48 41 00 4F 07 AF 14 20 54 59 41 00 |.. PHA.O... TYA.| 00000350: 5C 07 B4 14 20 53 42 43 41 44 2B 31 00 65 07 B9 |\... SBCAD+1.e..| 00000360: 14 20 54 41 59 00 6E 07 BE 14 20 50 4C 41 00 76 |. TAY.n... PLA.v| 00000370: 07 C3 14 2E 52 54 00 89 07 C8 14 2E 4D 41 20 53 |....RT......MA S| 00000380: 55 42 57 49 28 56 41 4C 29 00 92 07 CD 14 20 53 |UBWI(VAL)..... S| 00000390: 45 43 00 A2 07 D2 14 20 53 42 43 23 3C 28 56 41 |EC..... SBC#<(VA| 000003A0: 4C 29 00 AB 07 D7 14 20 50 48 41 00 B4 07 DC 14 |L)..... PHA.....| 000003B0: 20 54 59 41 00 C4 07 E1 14 20 53 42 43 23 3E 28 | TYA..... SBC#>(| 000003C0: 56 41 4C 29 00 CD 07 E6 14 20 54 41 59 00 D6 07 |VAL)..... TAY...| 000003D0: EB 14 20 50 4C 41 00 DE 07 F0 14 2E 52 54 00 FF |.. PLA......RT..| 000003E0: 07 F5 14 3B 20 20 20 20 20 20 43 4F 4D 50 41 52 |...; COMPAR| 000003F0: 45 20 57 4F 52 44 20 55 4E 53 49 47 4E 45 44 00 |E WORD UNSIGNED.| 00000400: 10 08 FA 14 2E 4D 41 20 43 4D 50 57 28 41 44 29 |.....MA CMPW(AD)| 00000410: 00 1D 08 FF 14 20 43 50 59 41 44 2B 31 00 2B 08 |..... CPYAD+1.+.| 00000420: 04 15 20 42 4E 45 43 4D 50 57 31 00 36 08 09 15 |.. BNECMPW1.6...| 00000430: 20 43 4D 50 41 44 00 47 08 0E 15 43 4D 50 57 31 | CMPAD.G...CMPW1| 00000440: 20 2E 2E 2E 4E 49 58 00 4F 08 13 15 2E 52 54 00 | ...NIX.O....RT.| 00000450: 62 08 18 15 2E 4D 41 20 43 4D 50 57 49 28 56 41 |b....MA CMPWI(VA| 00000460: 4C 29 00 72 08 1D 15 20 43 50 59 23 3E 28 56 41 |L).r... CPY#>(VA| 00000470: 4C 29 00 80 08 22 15 20 42 4E 45 43 4D 50 57 31 |L)...". BNECMPW1| 00000480: 00 90 08 27 15 20 43 4D 50 23 3C 28 56 41 4C 29 |...'. CMP#<(VAL)| 00000490: 00 A1 08 2C 15 43 4D 50 57 31 20 2E 2E 2E 4E 49 |...,.CMPW1 ...NI| 000004A0: 58 00 A9 08 31 15 2E 52 54 00 BE 08 36 15 3B 20 |X...1..RT...6.; | 000004B0: 20 20 20 20 20 49 4E 43 52 45 4D 45 4E 54 00 CF | INCREMENT..| 000004C0: 08 3B 15 2E 4D 41 20 49 4E 43 57 28 41 44 29 00 |.;..MA INCW(AD).| 000004D0: DA 08 40 15 20 49 4E 43 41 44 00 E8 08 45 15 20 |..@. INCAD...E. | 000004E0: 42 4E 45 49 4E 43 57 31 00 F5 08 4A 15 20 49 4E |BNEINCW1...J. IN| 000004F0: 43 41 44 2B 31 00 06 09 4F 15 49 4E 43 57 31 20 |CAD+1...O.INCW1 | 00000500: 2E 2E 2E 4E 49 58 00 0E 09 54 15 2E 52 54 00 23 |...NIX...T..RT.#| 00000510: 09 59 15 3B 20 20 20 20 20 20 44 45 43 52 45 4D |.Y.; DECREM| 00000520: 45 4E 54 00 34 09 5E 15 2E 4D 41 20 44 45 43 57 |ENT.4.^..MA DECW| 00000530: 28 41 44 29 00 3D 09 63 15 20 50 48 41 00 48 09 |(AD).=.c. PHA.H.| 00000540: 68 15 20 4C 44 41 41 44 00 56 09 6D 15 20 42 4E |h. LDAAD.V.m. BN| 00000550: 45 44 45 43 57 31 00 63 09 72 15 20 44 45 43 41 |EDECW1.c.r. DECA| 00000560: 44 2B 31 00 73 09 77 15 44 45 43 57 31 20 44 45 |D+1.s.w.DECW1 DE| 00000570: 43 41 44 00 7C 09 7C 15 20 50 4C 41 00 84 09 81 |CAD.|.|. PLA....| 00000580: 15 2E 52 54 00 A4 09 86 15 3B 20 20 20 20 20 20 |..RT.....; | 00000590: 50 55 53 48 20 41 20 4F 4E 20 55 53 45 52 20 53 |PUSH A ON USER S| 000005A0: 54 41 43 4B 00 B7 09 8B 15 2E 4D 41 20 50 55 53 |TACK......MA PUS| 000005B0: 48 42 28 55 53 50 29 00 C5 09 90 15 20 53 54 59 |HB(USP)..... STY| 000005C0: 53 41 56 45 59 00 D0 09 95 15 20 4C 44 59 23 30 |SAVEY..... LDY#0| 000005D0: 00 E0 09 9A 15 20 53 54 41 28 55 53 50 29 2C 59 |..... STA(USP),Y| 000005E0: 00 F2 09 9F 15 20 2E 2E 2E 44 45 43 57 28 55 53 |..... ...DECW(US| 000005F0: 50 29 00 00 0A A4 15 20 4C 44 59 53 41 56 45 59 |P)..... LDYSAVEY| 00000600: 00 08 0A A9 15 2E 52 54 00 2A 0A AE 15 3B 20 20 |......RT.*...; | 00000610: 20 20 20 20 50 55 53 48 20 41 2F 59 20 4F 4E 20 | PUSH A/Y ON | 00000620: 55 53 45 52 20 53 54 41 43 4B 00 3D 0A B3 15 2E |USER STACK.=....| 00000630: 4D 41 20 50 55 53 48 57 28 55 53 50 29 00 46 0A |MA PUSHW(USP).F.| 00000640: B8 15 20 50 48 41 00 4F 0A BD 15 20 54 59 41 00 |.. PHA.O... TYA.| 00000650: 62 0A C2 15 20 2E 2E 2E 50 55 53 48 42 28 55 53 |b... ...PUSHB(US| 00000660: 50 29 00 6B 0A C7 15 20 50 4C 41 00 7E 0A CC 15 |P).k... PLA.~...| 00000670: 20 2E 2E 2E 50 55 53 48 42 28 55 53 50 29 00 86 | ...PUSHB(USP)..| 00000680: 0A D1 15 2E 52 54 00 9C 0A D6 15 3B 20 20 20 20 |....RT.....; | 00000690: 20 20 50 55 4C 4C 20 41 20 2E 2E 2E 00 AF 0A DB | PULL A .......| 000006A0: 15 2E 4D 41 20 50 55 4C 4C 42 28 55 53 50 29 00 |..MA PULLB(USP).| 000006B0: C1 0A E0 15 20 2E 2E 2E 49 4E 43 57 28 55 53 50 |.... ...INCW(USP| 000006C0: 29 00 CF 0A E5 15 20 53 54 59 53 41 56 45 59 00 |)..... STYSAVEY.| 000006D0: DA 0A EA 15 20 4C 44 59 23 30 00 EA 0A EF 15 20 |.... LDY#0..... | 000006E0: 4C 44 41 28 55 53 50 29 2C 59 00 F8 0A F4 15 20 |LDA(USP),Y..... | 000006F0: 4C 44 59 53 41 56 45 59 00 00 0B F9 15 2E 52 54 |LDYSAVEY......RT| 00000700: 00 14 0B FE 15 3B 20 20 20 20 20 20 50 55 4C 4C |.....; PULL| 00000710: 20 41 2F 59 00 27 0B 03 16 2E 4D 41 20 50 55 4C | A/Y.'....MA PUL| 00000720: 4C 57 28 55 53 50 29 00 3A 0B 08 16 20 2E 2E 2E |LW(USP).:... ...| 00000730: 50 55 4C 4C 42 28 55 53 50 29 00 43 0B 0D 16 20 |PULLB(USP).C... | 00000740: 54 41 59 00 56 0B 12 16 20 2E 2E 2E 50 55 4C 4C |TAY.V... ...PULL| 00000750: 42 28 55 53 50 29 00 5E 0B 17 16 2E 52 54 00 6D |B(USP).^....RT.m| 00000760: 0B 1C 16 53 41 56 45 59 20 2E 42 59 30 00 81 0B |...SAVEY .BY0...| 00000770: 21 16 2E 47 4C 20 53 41 56 45 59 3D 53 41 56 45 |!..GL SAVEY=SAVE| 00000780: 59 00 00 00 |Y... |
......;."...; 16-BIT-MACROLIB.I...;
FUER GEBRAUCH MIT HYPRA-ASS.]...;
LOAD A/Y.N....MA LDAY(AD).Y... LDAA
D..... LDYAD+1......RT. ....MA LDAYI(AD)
..... LDA#<(AD)..... LDY#>(AD).F....RT..
.D.; STORE A/Y...I..MA STAY(AD)...N
. STAAD...S. STYAD+1...X..RT.!...;
MOVE BYTE.8....MA MOVEB(FROM,TO).E... LD
AFROM.P... STATO.X....RT.O....MA MOVEBI(
VAL,TO).|... LDA#VAL..... STATO......RT.
....; MOVE WORD......MA MOVEW(FROM,
TO).N... ...LDAY(FROM)..... ...STAY(TO).
.....RT...#..MA MOVEWI(VAL,TO)...(. ...L
DAYI(VAL).".-. ...STAY(TO).*.2..RT.>.7.;
ADD WORD.O.<..MA ADDW(AD).X.A. CLC
.C.F. ADCAD.L.K. PHA.U.P. TYA...U. ADCAD
+1...Z. TAY..._. PLA...D..RT...I..MA ADD
WI(VAL)...N. CLC.H.S. ADC#<(VAL).Q.X. PH
A.Z.}. TYA..... ADC#>(VAL)..... TAY.....
PLA......RT.....; SUB WORD.)....MA
SUBW(AD).2. . SEC.=... SBCAD.F... PHA.O
... TYA.\... SBCAD+1.E... TAY.N... PLA.V
.C..RT...H..MA SUBWI(VAL)...M. SEC...R.
SBC#<(VAL)...W. PHA..... TYA.D... SBC#>(
VAL).M... TAY.V... PLA......RT.....;
COMPARE WORD UNSIGNED......MA CMPW(AD)
..... CPYAD+1.+... BNECMPW1.6... CMPAD.G
...CMPW1 ...NIX.O....RT.B....MA CMPWI(VA
L).R... CPY#>(VAL)...". BNECMPW1...'. CM
P#<(VAL)...,.CMPW1 ...NIX...1..RT...6.;
INCREMENT.O.;..MA INCW(AD).Z.@. INC
AD...E. BNEINCW1...J. INCAD+1...O.INCW1
...NIX...T..RT.#.Y.; DECREMENT.4.^.
.MA DECW(AD).=.C. PHA.H.H. LDAAD.V.M. BN
EDECW1.C.R. DECAD+1.S.W.DECW1 DECAD.|.|.
PLA......RT.....; PUSH A ON USER S
TACK......MA PUSHB(USP).E... STYSAVEY.P.
.. LDY#0..... STA(USP),Y..... ...DECW(US
P)..... LDYSAVEY......RT.*...; PUSH
A/Y ON USER STACK.=....MA PUSHW(USP).F.
.. PHA.O... TYA.B.B. ...PUSHB(USP).K.G.
PLA.~.L. ...PUSHB(USP)...Q..RT...V.;
PULL A .........MA PULLB(USP).A... ...
INCW(USP).O... STYSAVEY.Z... LDY#0.....
LDA(USP),Y..... LDYSAVEY......RT.....;
PULL A/Y.'....MA PULLW(USP).:... ...
PULLB(USP).C... TAY.V... ...PULLB(USP).^
....RT.M...SAVEY .BY0...!..GL SAVEY=SAVE
Y...
> CLICK IMAGE PREVIEW FOR FULL MODAL