MA.JOY

FILE INFORMATION

FILENAME(S): MA.JOY

FILE TYPE(S): PRG

FILE SIZE: 1.9K

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

APPEARS ON: 1 disk(s)

FILE HASH

ab3c72b173e596216a515848ad201fc82cf9e2918f2535eb09e6cec6ca03c998

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
10805 SEITE A	MA.JOY	PRG	DuncanTwain	31	1	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 2D 2D 2D 2D 00 98 4C 6C  20 43 4F 4D 50 41 52 45  |----..Ll COMPARE|
00000010: 20 4C 44 41 4E 55 4D 42  45 52 32 00 A7 4C 76 20  | LDANUMBER2..Lv |
00000020: 20 42 45 51 45 52 52 4F  52 35 00 C0 4C 80 20 43  | BEQERROR5..L. C|
00000030: 4F 4D 50 41 52 45 32 20  4C 44 41 23 3C 28 44 41  |OMPARE2 LDA#<(DA|
00000040: 54 41 29 00 D1 4C 8A 20  20 4C 44 58 23 3E 28 44  |TA)..L.  LDX#>(D|
00000050: 41 54 41 29 00 DD 4C 94  20 20 53 54 41 43 4F 4C  |ATA)..L.  STACOL|
00000060: 00 EB 4C 9E 20 20 53 54  58 43 4F 4C 2B 31 00 F6  |..L.  STXCOL+1..|
00000070: 4C A8 20 20 4C 44 58 23  30 00 04 4D B2 20 4C 4F  |L.  LDX#0..M. LO|
00000080: 4C 20 4C 44 59 23 30 00  1C 4D BC 20 20 4C 44 41  |L LDY#0..M.  LDA|
00000090: 28 43 4F 4C 29 2C 59 3B  59 2D 5A 45 49 4C 45 00  |(COL),Y;Y-ZEILE.|
000000A0: 29 4D C6 20 20 43 4D 50  59 41 55 53 00 38 4D D0  |)M.  CMPYAUS.8M.|
000000B0: 20 20 42 4E 45 4E 58 54  46 4C 44 00 41 4D DA 20  |  BNENXTFLD.AM. |
000000C0: 20 49 4E 59 00 59 4D E4  20 20 4C 44 41 28 43 4F  | INY.YM.  LDA(CO|
000000D0: 4C 29 2C 59 3B 58 41 4E  46 41 4E 47 00 66 4D EE  |L),Y;XANFANG.fM.|
000000E0: 20 20 43 4D 50 58 41 55  53 00 74 4D F8 20 20 42  |  CMPXAUS.tM.  B|
000000F0: 45 51 48 55 52 52 41 00  83 4D 02 21 20 42 43 53  |EQHURRA..M.! BCS|
00000100: 4E 58 54 46 4C 44 00 91  4D 0C 21 48 55 52 52 41  |NXTFLD..M.!HURRA|
00000110: 20 49 4E 59 00 A7 4D 16  21 20 4C 44 41 28 43 4F  | INY..M.! LDA(CO|
00000120: 4C 29 2C 59 3B 58 45 4E  44 45 00 B4 4D 20 21 20  |L),Y;XENDE..M ! |
00000130: 43 4D 50 58 41 55 53 00  C3 4D 2A 21 20 42 43 43  |CMPXAUS..M*! BCC|
00000140: 4E 58 54 46 4C 44 00 CC  4D 34 21 20 49 4E 59 00  |NXTFLD..M4! INY.|
00000150: DC 4D 3E 21 20 4C 44 41  28 43 4F 4C 29 2C 59 00  |.M>! LDA(COL),Y.|
00000160: E5 4D 48 21 20 54 41 58  00 EE 4D 52 21 20 52 54  |.MH! TAX..MR! RT|
00000170: 53 00 FA 4D 5C 21 3B 2D  2D 2D 2D 2D 2D 00 0C 4E  |S..M\!;------..N|
00000180: 66 21 4E 58 54 46 4C 44  20 4C 44 41 43 4F 4C 00  |f!NXTFLD LDACOL.|
00000190: 15 4E 70 21 20 43 4C 43  00 20 4E 7A 21 20 41 44  |.Np! CLC. Nz! AD|
000001A0: 43 23 34 00 2C 4E 84 21  20 53 54 41 43 4F 4C 00  |C#4.,N.! STACOL.|
000001B0: 3A 4E 8E 21 20 4C 44 41  43 4F 4C 2B 31 00 46 4E  |:N.! LDACOL+1.FN|
000001C0: 98 21 20 41 44 43 23 30  30 00 54 4E A2 21 20 53  |.! ADC#00.TN.! S|
000001D0: 54 41 43 4F 4C 2B 31 00  5D 4E AC 21 20 49 4E 58  |TACOL+1.]N.! INX|
000001E0: 00 6D 4E B6 21 20 43 50  58 4E 55 4D 42 45 52 32  |.mN.! CPXNUMBER2|
000001F0: 00 79 4E C0 21 20 42 43  43 4C 4F 4C 00 85 4E CA  |.yN.! BCCLOL..N.|
00000200: 21 20 4C 44 58 23 30 30  00 8E 4E D4 21 20 52 54  |! LDX#00..N.! RT|
00000210: 53 00 9A 4E DE 21 3B 2D  2D 2D 2D 2D 2D 00 AB 4E  |S..N.!;------..N|
00000220: E8 21 45 52 52 4F 52 34  20 4C 44 58 23 32 00 B9  |.!ERROR4 LDX#2..|
00000230: 4E F2 21 20 4A 4D 50 45  52 52 4F 52 00 C5 4E FC  |N.! JMPERROR..N.|
00000240: 21 3B 2D 2D 2D 2D 2D 2D  00 DC 4E 06 22 44 45 46  |!;------..N."DEF|
00000250: 46 45 4C 44 20 4C 44 41  4E 55 4D 42 45 52 32 00  |FELD LDANUMBER2.|
00000260: E8 4E 10 22 20 43 4D 50  23 34 37 00 F7 4E 1A 22  |.N." CMP#47..N."|
00000270: 20 42 43 53 45 52 52 4F  52 34 00 07 4F 24 22 20  | BCSERROR4..O$" |
00000280: 4A 53 52 47 45 54 50 41  52 32 00 14 4F 2E 22 20  |JSRGETPAR2..O." |
00000290: 4C 44 41 58 4D 4F 4D 00  23 4F 38 22 20 42 45 51  |LDAXMOM.#O8" BEQ|
000002A0: 45 52 52 4F 52 37 00 30  4F 42 22 20 43 4D 50 23  |ERROR7.0OB" CMP#|
000002B0: 24 46 46 00 3F 4F 4C 22  20 42 45 51 45 52 52 4F  |$FF.?OL" BEQERRO|
000002C0: 52 37 00 4C 4F 56 22 20  4C 44 41 58 4D 41 58 00  |R7.LOV" LDAXMAX.|
000002D0: 5B 4F 60 22 20 42 45 51  45 52 52 4F 52 37 00 6B  |[O`" BEQERROR7.k|
000002E0: 4F 6A 22 20 4A 53 52 54  45 53 54 50 41 52 00 79  |Oj" JSRTESTPAR.y|
000002F0: 4F 74 22 20 4A 53 52 54  57 49 43 45 00 89 4F 7E  |Ot" JSRTWICE..O~|
00000300: 22 20 49 4E 43 4E 55 4D  42 45 52 32 00 97 4F 88  |" INCNUMBER2..O.|
00000310: 22 20 4C 44 41 46 49 45  4C 44 00 A7 4F 92 22 20  |" LDAFIELD..O." |
00000320: 4C 44 58 46 49 45 4C 44  2B 31 00 B3 4F 9C 22 20  |LDXFIELD+1..O." |
00000330: 53 54 41 43 4F 4C 00 C1  4F A6 22 20 53 54 58 43  |STACOL..O." STXC|
00000340: 4F 4C 2B 31 00 CE 4F B0  22 20 44 45 43 58 4D 41  |OL+1..O." DECXMA|
00000350: 58 00 D9 4F BA 22 20 4C  44 59 23 30 00 E6 4F C4  |X..O." LDY#0..O.|
00000360: 22 20 4C 44 41 59 50 4F  53 00 F6 4F CE 22 20 53  |" LDAYPOS..O." S|
00000370: 54 41 28 43 4F 4C 29 2C  59 00 FF 4F D8 22 20 49  |TA(COL),Y..O." I|
00000380: 4E 59 00 0C 50 E2 22 20  4C 44 41 58 50 4F 53 00  |NY..P." LDAXPOS.|
00000390: 1C 50 EC 22 20 53 54 41  28 43 4F 4C 29 2C 59 00  |.P." STA(COL),Y.|
000003A0: 25 50 F6 22 20 49 4E 59  00 2E 50 00 23 20 43 4C  |%P." INY..P.# CL|
000003B0: 43 00 3B 50 0A 23 20 41  44 43 58 4D 41 58 00 4B  |C.;P.# ADCXMAX.K|
000003C0: 50 14 23 20 53 54 41 28  43 4F 4C 29 2C 59 00 54  |P.# STA(COL),Y.T|
000003D0: 50 1E 23 20 49 4E 59 00  61 50 28 23 20 4C 44 41  |P.# INY.aP(# LDA|
000003E0: 58 4D 4F 4D 00 71 50 32  23 20 53 54 41 28 43 4F  |XMOM.qP2# STA(CO|
000003F0: 4C 29 2C 59 00 77 50 3C  23 3B 00 85 50 46 23 20  |L),Y.wP<#;..PF# |
00000400: 4C 44 41 46 49 45 4C 44  00 8E 50 50 23 20 43 4C  |LDAFIELD..PP# CL|
00000410: 43 00 99 50 5A 23 20 41  44 43 23 34 00 A7 50 64  |C..PZ# ADC#4..Pd|
00000420: 23 20 53 54 41 46 49 45  4C 44 00 B7 50 6E 23 20  |# STAFIELD..Pn# |
00000430: 4C 44 41 46 49 45 4C 44  2B 31 00 C2 50 78 23 20  |LDAFIELD+1..Px# |
00000440: 41 44 43 23 30 00 D2 50  82 23 20 53 54 41 46 49  |ADC#0..P.# STAFI|
00000450: 45 4C 44 2B 31 00 DB 50  8C 23 20 52 54 53 00 E7  |ELD+1..P.# RTS..|
00000460: 50 96 23 3B 2D 2D 2D 2D  2D 2D 00 FB 50 A0 23 45  |P.#;------..P.#E|
00000470: 52 52 4F 52 37 20 4A 4D  50 24 42 32 34 38 00 07  |RROR7 JMP$B248..|
00000480: 51 AA 23 3B 2D 2D 2D 2D  2D 2D 00 1E 51 B4 23 45  |Q.#;------..Q.#E|
00000490: 52 41 46 45 4C 44 20 4A  53 52 47 45 54 42 59 54  |RAFELD JSRGETBYT|
000004A0: 45 00 2B 51 BE 23 20 53  54 58 58 4D 4F 4D 00 3A  |E.+Q.# STXXMOM.:|
000004B0: 51 C8 23 20 4A 53 52 54  57 49 43 45 32 00 48 51  |Q.# JSRTWICE2.HQ|
000004C0: D2 23 20 42 43 43 45 52  52 41 52 00 4E 51 DC 23  |.# BCCERRAR.NQ.#|
000004D0: 3B 00 5C 51 E6 23 20 4C  44 41 46 49 45 4C 44 00  |;.\Q.# LDAFIELD.|
000004E0: 65 51 F0 23 20 53 45 43  00 71 51 FA 23 20 53 42  |eQ.# SEC.qQ.# SB|
000004F0: 43 43 4F 4C 00 7E 51 04  24 20 53 54 41 58 50 4F  |CCOL.~Q.$ STAXPO|
00000500: 53 00 8A 51 0E 24 20 4C  44 41 43 4F 4C 00 93 51  |S..Q.$ LDACOL..Q|
00000510: 18 24 20 43 4C 43 00 9E  51 22 24 20 41 44 43 23  |.$ CLC..Q"$ ADC#|
00000520: 34 00 AA 51 2C 24 20 53  54 41 50 4F 53 00 B8 51  |4..Q,$ STAPOS..Q|
00000530: 36 24 20 4C 44 41 43 4F  4C 2B 31 00 C3 51 40 24  |6$ LDACOL+1..Q@$|
00000540: 20 41 44 43 23 30 00 D1  51 4A 24 20 53 54 41 50  | ADC#0..QJ$ STAP|
00000550: 4F 53 2B 31 00 DC 51 54  24 20 4C 44 59 23 30 00  |OS+1..QT$ LDY#0.|
00000560: F2 51 5E 24 45 52 4C 4F  4F 50 20 4C 44 41 28 50  |.Q^$ERLOOP LDA(P|
00000570: 4F 53 29 2C 59 00 02 52  68 24 20 53 54 41 28 43  |OS),Y..Rh$ STA(C|
00000580: 4F 4C 29 2C 59 00 0B 52  72 24 20 49 4E 59 00 18  |OL),Y..Rr$ INY..|
00000590: 52 7C 24 20 43 50 59 58  50 4F 53 00 27 52 86 24  |R|$ CPYXPOS.'R.$|
000005A0: 20 42 4E 45 45 52 4C 4F  4F 50 00 37 52 90 24 20  | BNEERLOOP.7R.$ |
000005B0: 44 45 43 4E 55 4D 42 45  52 32 00 45 52 9A 24 20  |DECNUMBER2.ER.$ |
000005C0: 4C 44 41 46 49 45 4C 44  00 4E 52 A4 24 20 53 45  |LDAFIELD.NR.$ SE|
000005D0: 43 00 59 52 AE 24 20 53  42 43 23 34 00 67 52 B8  |C.YR.$ SBC#4.gR.|
000005E0: 24 20 53 54 41 46 49 45  4C 44 00 77 52 C2 24 20  |$ STAFIELD.wR.$ |
000005F0: 4C 44 41 46 49 45 4C 44  2B 31 00 82 52 CC 24 20  |LDAFIELD+1..R.$ |
00000600: 53 42 43 23 30 00 92 52  D6 24 20 53 54 41 46 49  |SBC#0..R.$ STAFI|
00000610: 45 4C 44 2B 31 00 9B 52  E0 24 20 52 54 53 00 A1  |ELD+1..R.$ RTS..|
00000620: 52 EA 24 3B 00 B1 52 F4  24 45 52 52 41 52 20 4C  |R.$;..R.$ERRAR L|
00000630: 44 58 23 38 00 BF 52 FE  24 20 4A 4D 50 45 52 52  |DX#8..R.$ JMPERR|
00000640: 4F 52 00 CB 52 08 25 3B  2D 2D 2D 2D 2D 2D 00 E2  |OR..R.%;------..|
00000650: 52 12 25 47 45 54 50 41  52 32 20 4A 53 52 47 45  |R.%GETPAR2 JSRGE|
00000660: 54 42 59 54 45 00 EF 52  1C 25 20 53 54 58 58 4D  |TBYTE..R.% STXXM|
00000670: 4F 4D 00 FE 52 26 25 20  4A 53 52 43 48 4B 47 45  |OM..R&% JSRCHKGE|
00000680: 54 00 0B 53 30 25 20 53  54 58 58 50 4F 53 00 1A  |T..S0% STXXPOS..|
00000690: 53 3A 25 20 4A 53 52 43  48 4B 47 45 54 00 27 53  |S:% JSRCHKGET.'S|
000006A0: 44 25 20 53 54 58 59 50  4F 53 00 36 53 4E 25 20  |D% STXYPOS.6SN% |
000006B0: 4A 53 52 43 48 4B 47 45  54 00 43 53 58 25 20 53  |JSRCHKGET.CSX% S|
000006C0: 54 58 58 4D 41 58 00 4E  53 62 25 20 4C 44 41 23  |TXXMAX.NSb% LDA#|
000006D0: 31 00 5B 53 6C 25 20 53  54 41 59 4D 41 58 00 64  |1.[Sl% STAYMAX.d|
000006E0: 53 76 25 20 52 54 53 00  70 53 80 25 3B 2D 2D 2D  |Sv% RTS.pS.%;---|
000006F0: 2D 2D A0 B4 20 FF B1 20  F9 B1 A2 08 C9 44 F0 06  |--.. .. .....D..|
00000700: A2 01 C9 54 D0 F1 A9 01  A8 20 BA FF A0 00 E0 01  |...T..... ......|
00000710: F0 1A A9 40 8D 20 02 A9  3A 8D 21 02 B9 01 02 99  |...@. ..:.!.....|
00000720: 22 02 C8 CC 00 02 90 F4  C8 C8 D0 0C B9 01 02 99  |"...............|
00000730: 20 02 C8 CC 00 02 D0 F4  98 A2 20 A0 02 4C BD FF  | ......... ..L..|
00000740: 20 B8 B5 A5 BA C9 08 90  33 A6 B9 86 57 A9 01 20  | .......3...W.. |
00000750: C3 FF A9 60 85 B9 20 C0  FF B0 28 A5 BA 20 B4 FF  |...`.. ...(.. ..|
00000760: A5 B9 20 96 FF 20 A5 FF  85 61 A5 90 4A 4A B0 13  |.. .. ...a..JJ..|
00000770: 20 A5 FF 85 62 20 AB FF  A5 57 85 B9 A9 00 20 D5  | ...b ...W.... .|
00000780: FF 90 03 4C A3 B5 86 5F  84 60 A5 BA C9 01 D0 0A  |...L..._.`......|
00000790: AD 3D 03 85 61 AD 3E 03  85 62 4C FB B4 A9 13 20  |.=..a.>..bL.... |
000007A0: D2 FF A2 1C 20 ED B1 CA  D0 FA 60 00 FF 2F        |.... .....`../  |

----..LL COMPARE LDANUMBER2..LV  BEQERRO
R5..L. COMPARE2 LDA#<(DATA).QL.  LDX#>(D
ATA)..L.  STACOL..L.  STXCOL+1..L.  LDX#
0..M. LOL LDY#0..M.  LDA(COL),Y;Y-ZEILE.
)MF  CMPYAUS.8MP  BNENXTFLD.AMZ  INY.YM.
  LDA(COL),Y;XANFANG.FM.  CMPXAUS.TM.  B
EQHURRA..M.! BCSNXTFLD..M.!HURRA INY..M.
! LDA(COL),Y;XENDE..M ! CMPXAUS.CM*! BCC
NXTFLD.LM4! INY..M>! LDA(COL),Y..MH! TAX
..MR! RTS..M\!;------..NF!NXTFLD LDACOL.
.NP! CLC. NZ! ADC#4.,N.! STACOL.:N.! LDA
COL+1.FN.! ADC#00.TN.! STACOL+1.]N.! INX
.MN.! CPXNUMBER2.YN.! BCCLOL..NJ! LDX#00
..NT! RTS..N.!;------..N.!ERROR4 LDX#2..
N.! JMPERROR.EN.!;------..N."DEFFELD LDA
NUMBER2..N." CMP#47..N." BCSERROR4..O$" 
JSRGETPAR2..O." LDAXMOM.#O8" BEQERROR7.0
OB" CMP#$FF.?OL" BEQERROR7.LOV" LDAXMAX.
[O`" BEQERROR7.KOJ" JSRTESTPAR.YOT" JSRT
WICE..O~" INCNUMBER2..O." LDAFIELD..O." 
LDXFIELD+1..O." STACOL.AO." STXCOL+1.NO.
" DECXMAX.YO." LDY#0..OD" LDAYPOS..ON" S
TA(COL),Y..OX" INY..P." LDAXPOS..P." STA
(COL),Y.%P." INY..P.# CLC.;P.# ADCXMAX.K
P.# STA(COL),Y.TP.# INY.AP(# LDAXMOM.QP2
# STA(COL),Y.WP<#;..PF# LDAFIELD..PP# CL
C..PZ# ADC#4..PD# STAFIELD..PN# LDAFIELD
+1.BPX# ADC#0.RP.# STAFIELD+1..P.# RTS..
P.#;------..P #ERROR7 JMP$B248..Q.#;----
--..Q.#ERAFELD JSRGETBYTE.+Q.# STXXMOM.:
QH# JSRTWICE2.HQR# BCCERRAR.NQ.#;.\Q.# L
DAFIELD.EQ.# SEC.QQ.# SBCCOL.~Q.$ STAXPO
S..Q.$ LDACOL..Q.$ CLC..Q"$ ADC#4..Q,$ S
TAPOS..Q6$ LDACOL+1.CQ@$ ADC#0.QQJ$ STAP
OS+1..QT$ LDY#0..Q^$ERLOOP LDA(POS),Y..R
H$ STA(COL),Y..RR$ INY..R|$ CPYXPOS.'R.$
 BNEERLOOP.7R.$ DECNUMBER2.ER.$ LDAFIELD
.NR.$ SEC.YR.$ SBC#4.GR.$ STAFIELD.WRB$ 
LDAFIELD+1..RL$ SBC#0..RV$ STAFIELD+1..R
.$ RTS..R.$;..R.$ERRAR LDX#8..R.$ JMPERR
OR.KR.%;------..R.%GETPAR2 JSRGETBYTE..R
.% STXXMOM..R&% JSRCHKGET..S0% STXXPOS..
S:% JSRCHKGET.'SD% STXYPOS.6SN% JSRCHKGE
T.CSX% STXXMAX.NSB% LDA#1.[SL% STAYMAX.D
SV% RTS.PS.%;----- . .. ....ID....ITP...
. .. ......@. ..:.!.....".HL....HHP.....
 .HL..P...  .L.. ....I..3...W.. C..`.. .
..(.. .... .. ...A..JJ.. ...B ...W.... U
...L..._.`..I.P..=..A.>..BL.... R... ..J
P.`../

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL