antoine-source/kikekankoi/apple2/en/kkkk.s
2023-12-27 10:38:50 +01:00

659 lines
27 KiB
ArmAsm
Raw Blame History

*
* Kikekankoi loader
*
* (c) 1985, Laurent Benes & Loriciels
* (c) 2023, Brutal Deluxe Software (Apple II)
*
mx %11
org $2000
lst off
*-----------------------------------
* SOFTSWITCHES AND FRIENDS
*-----------------------------------
leLOADER = $300
leJEU = $800
ptrPREFIX = $280
proBUFFER = $bb00
PRODOS = $bf00
TXTCLR = $c050
MIXCLR = $c052
TXTPAGE1 = $c054
HIRES = $c057
*-----------------------------------
* THE PICTURE
*-----------------------------------
jmp theLOADER
HEX 00000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000008100000000000000
HEX 0086E08700C699000000000000C00088
HEX B088C0810800E0404F19033F66180000
HEX 81E081B086000000A084C0E0008488C0
HEX 909CE400E0820086008800818880E0CC
HEX 1933660C406100800000000000000000
HEX 8080808080808086B38680868C86B398
HEX 8C98C381B0E680808080808080800000
HEX 00000000000000008100000000000086
HEX F0000000E00000B000000000F092B000
HEX 86A000000800807063476D7C70010080
HEX 81000000AC000000A08888008682E400
HEX 8194C4009000C0000088008C888080F0
HEX 03000003000300800738313650415454
HEX 7E677F707F7E477F7C7F7F717F7C1F78
HEX 7F731F7F677F7B1F7E7FE17F81000000
HEX 000000000000000081E0FF9F00F283E0
HEX 83000000000000000000000000818200
HEX 81008581880000000000000000000000
HEX 81000000E0000000A087910090838881
HEX 818CA30084009000008100A088808080
HEX 00000000000000000000000000000000
HEX 707F07C00FE07F0FE07F1F007F7F0070
HEX 71817F7F817F7F817E70033F00000000
HEX 00000000000000008100000000000000
HEX 00000000009FF88300000000A0008100
HEX 820000828880F8B16067401963630380
HEX 810000000082E081FE8CC6008E988881
HEX 0000A8C081008400008100A088808080
HEX 0000000000000000DD805580DD80DD80
HEX 607F7F603FE07F7F817FB0837C7F0778
HEX 7F837E7F037E7F077E78837F00000000
HEX 000000000000000081000000E0830000
HEX 0000008CFC8FFD818100C088A2E000E0
HEX 00000088888080C08F33664C39000000
HEX 8100000000000000C60084C1B1C00082
HEX 0000A6C00000A200008100C088800F1E
HEX 0C3818031F031E800000000000000000
HEX 7E4F7F707F783F7F717F7FE17F7D4F7F
HEX 7B5F7F7D6F7F790F7E7F737F07000000
HEX 00000000000000008100000000C08187
HEX 00FCE381C0FFFF879800C48484910000
HEX 000000008C80E0B30C03660C0C0C0000
HEX 8100000000000000C000C499C0008383
HEX 00B0C088008C880000C800C089808080
HEX 8080808080800000DD805580DD80DD80
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 000000000000000081000000E00000E0
HEX 9086B388008200880081A68884E400E0
HEX 00880000880000000000000000000000
HEX 8100000000000000008100820000CC00
HEX 00F6C181E0008400C0C0000089008000
HEX 00000000000C80800000000000000000
HEX 81000000000000000000C0E100000000
HEX 00000000000082980089BF0008009830
HEX 30464F41193306808100008C00000000
HEX 8CE2D090008400A088C4B8008E840098
HEX 0088E000888080808080808080808080
HEX 8100000000000000008186810088C000
HEX 0098E2A090C0000084C083008880B086
HEX E0CC9F83B3FE808077802E801C803A80
HEX 00000000000080808080808080808080
HEX 80808080000000000000808080800000
HEX 00000000000000008100000000000000
HEX 0083008400FCB0000000000000C00088
HEX 9098E0000800E0604C19030366180000
HEX 81B800E084000000A08C00C0008488C0
HEX 9098C400E0820083008800818880E0CF
HEX 1933660F406100800000000000000000
HEX 8080808080808086B3FE80868C869E98
HEX FC99C381E0E380808080808080800000
HEX 00000000000000008700000000000083
HEX C000E081BC0000E0000000009E829000
HEX 82E0C000080080306640790C00030080
HEX 81000000A8000000A09888008482C400
HEX 8194C4009000E000008C0098888080B0
HEX 06000003000300807780A380C180E280
HEX 7E637F707F7E437F7C7F7F717F7C1F7C
HEX 7F773F7F6F7F7B3F7E7F637F83000000
HEX 000000000000000081000000009F0000
HEX 00000000000000000000000000818200
HEX 81008781880000000000000000000080
HEX 81000000C0000000B08CB10098818881
HEX 818C810084009000008100A0888080FC
HEX 00300000000000000000000000000000
HEX 707F87000FC07F07C07F1F007F7F0070
HEX 71817E7F817E7F817E70033F00000000
HEX 00000000000000008100000000000000
HEX 00000000E0F9AC8E00000000B0008100
HEX 82000086888080800060000000000080
HEX 810000000000B8F88386C4009A908881
HEX 0000ACC000008600008100E088800000
HEX 0000000000000000F08099800F800F80
HEX 707F7F703F607F7F817F7F817C73077C
HEX 7F037E7D037E7F0F7F7F437F00000000
HEX 000000000000000081000000009E0000
HEX 0000000084F887008300E088E2A000A0
HEX 00000088888080C09933667C19000000
HEX 8100000000000000C30084C1B0C00082
HEX 0000A2C00000A300008100C088800000
HEX 00000000000000800000000000000000
HEX FC87FFE0BFF0BFFEE1FFFFC1FFF88FFF
HEX F39FFFF987FFF18FF0FFE3FF87000000
HEX 00000000000000008100000000E000FC
HEX 8184FE81008200009000C48484910000
HEX 000000008880E0B60C03660C0C7C0000
HEX 8100000000000000C000C688C0818281
HEX 0090C0880084880000CC000089009803
HEX 00000F00000000000F809980F080F080
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 000000000000008081000000B00000C0
HEX B08CA288008200880083A29884C400A0
HEX 00880000888080808080808080808080
HEX 8100000000000000008100820000C600
HEX 009CC0A0A0008600E0C0000089808080
HEX 80808080808080800000000000000000
HEX 81000000000000000000E0C083000000
HEX 000000000000828800E9E10008009830
HEX 60034C011F3306808100E09F00000000
HEX 88C6D090008400A088E4A8008E860088
HEX 0088C000888080808080808080808080
HEX 8100000000000000C0818C81008CC000
HEX 00F8B3E098C00000860082008880B086
HEX E0CC81839E86808000802A800080A280
HEX 00000000000080808080808080808080
HEX 80808080000000000000808080800000
HEX 00000000000000008100000000000000
HEX C081000000B0E0000000000000C00088
HEX 9890B0000800E0470F1F031E66700000
HEX 818E00C08D000000A08800C000849AC0
HEX 9098C400E0830081008800818880E0CC
HEX 0F1F6600406100800000000000000000
HEX 80808080808080808080808080808080
HEX 80808080808080808080808080800000
HEX 00000000000000008D0000000000C081
HEX 0000BC8F870000C0870000C083829800
HEX 83C0E000080080306640710C18030080
HEX 81000000B8000000A09088008482C400
HEX 8194C6009000A000008400B0888080B0
HEX 66674C0F0F03000000802A800080A280
HEX 7E633F703F7C437F7C7F7F703F780F7C
HEX 7F677F7E6F7F793F7E7F677F83000000
HEX 000000000000000081000000F0810000
HEX 00000000000000000000000000818300
HEX 810082818880F8818080C08183808000
HEX 81000000C08100009C98A10088838881
HEX 818C000086009000008100A0888080CC
HEX 01300000000000000000000000000000
HEX 607F81000FC07F83C07F1F007E1F0070
HEX 7F817E7F817E7F817E70031F00000000
HEX 00000000000000008100000000000000
HEX 00000000B0D8A7B800FE830090008100
HEX 83000084888080800000000000000080
HEX 810000000000EE8F0083C40092B08883
HEX 0000A4C000008200008100C088800F00
HEX 380C0000000000000000000000000000
HEX 70077F703F607F7F817F7F817E710F7C
HEX 7F037E7C037E790F7F7F477F00000000
HEX 00000000000000008100000000F08100
HEX 00000000009800008200A08CC2B000A0
HEX 00000088898080C099337C0C18000000
HEX 8100000000000000C10084E1A0C00082
HEX 0000A3C000C0B10000C300C088808080
HEX 80000000000000800000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000008100000000B0008C
HEX FF878C8300820000B000C48484930000
HEX 000000008880E0BC0C03660C0C0C0000
HEX 8100000000000000C0008288C0818200
HEX 0098C08C0086880000C4000089009803
HEX 00401900000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 0000000000000080810000009C0000C0
HEX A188A688008200880082A2B084C400A0
HEX 0088A000888080808080808080808080
HEX 8100000000000000008100820000C300
HEX 0000C2A0A0008300A0C0000089808080
HEX 80808080808080800000000000000000
HEX 81000000000000000000B00086000000
HEX 000000000000828CC0B9C08108008000
HEX 00400700000000808100BCB800000000
HEX 8884D090008400A088A6A8009C820088
HEX 0088C000888080808080808080808080
HEX 8100000000000000C0008C830084E000
HEX EE8FBFC088C00000820086008880E083
HEX E08C8F838CBC80800000000000000000
HEX 808080808080C09FB3FE8086CC999EFE
HEX FCF9B186E0E38F808080808080800000
HEX 00000000000000008100000000000000
HEX E00000000098C0810000000000E0008C
HEX 88909000080080000000000000000000
HEX C183000089000000A08800C0818492C0
HEX 909CC400A083C081008800818880E0CC
HEX 01034607607301800000000000000000
HEX 80808080808080808080808080808080
HEX 80808080808080808080808080800000
HEX 0000000000000000990000000000E000
HEX 00C087F881000000BC0000F000828800
HEX 81C0F00008008070634F617C71010080
HEX 81000000B0000000A00098008C82C481
HEX 819CC2009800A000008400A0888080F0
HEX 63610C03180300000000000000000000
HEX 7C671F601F78733F787F7FE03F7C077C
HEX 7F637F7C4F7F701F7E7F677F81000000
HEX 0000000000000000810000F89F000000
HEX 000000000000000000000000C0818100
HEX 8100008388000C030000400100008080
HEX 81000000C081000087F0A10088828881
HEX 8384000082009000008100A0888080CC
HEX 7131664C710100000000000000000000
HEX 607F83C00FC07F87C07F9F007E1F0070
HEX 7F817E7F817E3F007E70031E00000000
HEX 00000000000000008100000000000000
HEX 000000009C90EEE0FF83FE0090008100
HEX 81000084888080800000000000000000
HEX 810000000000BE00C081C40093A09882
HEX 0000A4C000008300008100C088C01900
HEX 0C0C0000000000800000000000000000
HEX 70037F703F601F7EC17F7F817E700F7E
HEX 71073F78037F700F7F7F477F81000000
HEX 00000000000000008100000000008F00
HEX 00000000000000008600B084C29000B0
HEX 000000F8898080C0991E607818000000
HEX 8100000000000000C00084A1A0C00082
HEX 0000A1E000E0900000E200C088808080
HEX 80808080808080800000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000008100000000980088
HEX 008C988600820000A000C48684920000
HEX 000000008880E0B80C33660C0C0C0000
HEX 8100000000000000C0008288C0818200
HEX 008CC08400828C0000C600008900F061
HEX 634C011F3C7C00000000000000000000
HEX FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
HEX FFFFFFFFFFFFFFFFFFFFFFFF0F007801
HEX 00000000000000808100000086000000
HEX E188A498008200988882A3A0848400A0
HEX 0088A000888080808080808080808080
HEX 81000000000000000081008300C0C100
HEX 0090C2A0A0C08100B0C0000089808080
HEX 80808080808080800000000000000000
HEX 8100000000000000000098008C000000
HEX 0000000000008384C08800E308008000
HEX 00000000000000008100FCE900000000
HEX 8884F091008400E098A2A8009C820088
HEX 0088C000888080808080808080808080
HEX 8100000000000000C00086820086E0C0
HEX BB86E0C18CF000008300840088808080
HEX 80808080808080800000000000000000
HEX 8000000000008086B386808ECE99B398
HEX 8C98B386306600000000808080800000
HEX 00000000000000008100000000000000
HEX B0000000008C00830000000000A20084
HEX 88900000080080000000000000000000
HEX F10000008B000000A0880000818692C0
HEX 9094C400A081C00000880081888080C0
HEX 01030000000000800000000000000000
HEX 80808080808080808080808080808080
HEX 80808080808080808080808080800000
HEX 0000000000000000B10000000000B000
HEX 00F800E083000000E087009C00828800
HEX 81C0D000080080000000000000000080
HEX 81000000B0000000A000900088828481
HEX 818CC2008800A000008600A0888080B0
HEX 66600C031F0300000000000000000000
HEX 7C771F601F787F1F707FFBC07F7F037C
HEX 7F637F7D477F780F7E7B477F81000000
HEX 0000000000000000FFFFFFFFFFFFFFFF
HEX FFFFFFFFFFFFFFFFFFFFFFFFFFC08100
HEX 810000FE8F808CF0E3E3C78FE3C38700
HEX 81000000008100E081C0A3008C868881
HEX 8200000082009000008100A0888080CC
HEX 19336678180300000000000000000000
HEX 607F07C01FC07F0F007F81007C3F0070
HEX 7F817E7F817C3F007E70031E00000000
HEX 00000000000000008100000000000000
HEX 0000000086B0CCE00000C0F39F008100
HEX 81000084888080808000000000000000
HEX 8100000000000000E000C40093E09082
HEX 0000A4C000008181008100C088C0011E
HEX 3E3E660C0F1F1E800000000000000000
HEX 70037E787F700F7EC17F7F813F600F7E
HEX 70073F78033F600F7F7F677F81000000
HEX 00000000000000008100000000008800
HEX 000000000000000086009084C2910090
HEX 000000B08B80808080003C0000000000
HEX 8100000000000000C00084A1A0C08182
HEX 00C0E1A000B0900000E000C088808080
HEX 80808080808080800000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 000000000000000081000000008C0098
HEX 0098908400820000A000C48284920000
HEX 810000008880E0B01E1E3C7C7C7C0100
HEX 8100000000000000C000828C00818600
HEX 0084E0860083840000C200008900E000
HEX 660C0F33604C01000000000000000000
HEX 81000000000000000000000000000000
HEX 00000000000084000088000008001803
HEX 00000000000000808100000083000000
HEX C398AC90008600908882B1E0848400B0
HEX 0088A000888080808080808080808080
HEX 810000000000000000BF008100F0C000
HEX 0090C2A1A0E0000090C000008980E083
HEX E08C8080808080800000000000000000
HEX 810000000000000000E08C0098000000
HEX 0000000000008184C08800FE0900E000
HEX 00000000001800008100E0CF81000000
HEX 9884A091008400C090A2AC0098820088
HEX 0088C000888080808080808080808080
HEX 8100000000000000E0C08B8200FFFCFB
HEX 000000E7849800008100840088808080
HEX 80808080808080800000000000000000
HEX 8080808080808086B386809ECF998398
HEX 8C98B386B0E680808080808080800000
HEX 000000000000000081000000000000E0
HEX 99000000008600860000000000B6C084
HEX 8CB0000008008070634F617C71010080
HEX 9F0000009A000000A08800008182B2C0
HEX 9094C400B000C0000088008188808000
HEX 00000000000000800000000000000000
HEX 80808080808080808080808080808080
HEX 80808080808080808080808080808080
HEX 8000000000000000E181000000009800
HEX 008F00009E00000000FCFF8700828C00
HEX 81C0D900080080000000000000000080
HEX 81000000F0000000A000900088828C81
HEX 818CC2008800A000008200A0888080B0
HEX 66600C43190300000000000000000000
HEX 787F0FE00F707F0F607FC1C07F7F8378
HEX 79C37F79077F7E077E78477F00000000
HEX 00000000000000008100000000000000
HEX 000000000000000000000000C0C00000
HEX 8100008288004C7300664C1933660080
HEX 81000000008100B800E0A2008C848881
HEX 0000900083009000008100A0888080CC
HEX 79336630780300000000000000000000
HEX 607F0FC01FC07F1F007F00007C7F0070
HEX 7F817E7F817C7F007E70033E00000000
HEX 0000000000000000FFFFFF8100000000
HEX 000000C083A0C6B8000000FEB30081C0
HEX 81000084888080C08F00000000000000
HEX 8100000000000000F000C4009FC00082
HEX 0000A4C00000C381008100C088800F33
HEX 0C0C660C180733800000000000000000
HEX 78077F787F700F7EE17F7F813F700F7F
HEX 70073F78473F704F7F7F677F81000000
HEX 00000000000000008100000000009C00
HEX 000000F08F0000C08700988482910000
HEX 000000008A8080808000000000000000
HEX 8100000000000000C00084B1E0008182
HEX 00C0C0B00090980000F000C088808080
HEX 80808080808080800000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000008100000000860090
HEX 00B0908400820000E000C486849200C0
HEX 81880000888080800000000000000000
HEX 8100000000000000C000838400008400
HEX 0086A0820081840000C300008900F061
HEX 670C18337C4C01000000000000000000
HEX 81000000000000000000000000000000
HEX 00000000000084A00088000008001873
HEX 63434F0F0F7F0380810000C081000000
HEX C291E890008400908882B1C084840090
HEX 0088A000888080808080808080808080
HEX 810000000000000000E200810090C000
HEX 009082A1A0A0000098C000008980B086
HEX E08C8080808080800000000000000000
HEX 810000000000000000F08700F0000000
HEX 000000000000818CE088008C0F00E000
HEX 00000000001800008100B88683000000
HEX 9084A091008400C090A6A400B8820088
HEX 0088C0008880C0870000060060730180
HEX 8100000000000000A0E08882F8C1878E
HEX 000000BC8C8E00C08100840088808080
HEX 80808080808080800000000000000000
HEX 0000000000008086BFBE80F68D8F9E98
HEX FCF8E183306607000000808080800000
HEX 000000000000000081000000000000B8
HEX 8F0000000083008C0000000000BEE084
HEX 84A00000080080306640630C18030080
HEX 8300000096000000A08888008382A2C0
HEX B094C4009000C0000088008388808080
HEX 80808080808080800000000000000000
HEX 80808080808080808080808080808080
HEX 80808080808080808080808080808080
HEX 80000000000000008187000000008C00
HEX F0810000900000000000000000828400
HEX 8100C981080080000000000000000080
HEX 81000000E0000000A000900098828881
HEX 818CC2008800A000008200A0888080F0
HEX 63400F0E1F0300000000000000000000
HEX 707F0FC00F707F0F607F81C07F7F8178
HEX 71C17F7B037F7F037E70037F00000000
HEX 00000000000000008100000000000000
HEX 000000000000000000000000E0C00000
HEX 8100008288808CB360674C1933400380
HEX 810000000083008C00B0A2008C8C8881
HEX 0000B00081000000008100A0888080CC
HEX 19306678180000000000000000000000
HEX 607F1FE01FC07F3F003FC0817C7F8178
HEX 7F817E7F817C7F813E70033F00000000
HEX 0000000000000000810000FF8F000000
HEX 000000E000E0C2EC81000093A2C081C0
HEX 0000008C888080C09900000000000000
HEX 8100000000000000D800C4C09BC00082
HEX 0000A4C00000C200008100C088801833
HEX 0C0C660C1F033F800000000000000000
HEX 7C4F7F787F781F7E617F7FC17F780F7F
HEX 700F3F784F3F704F7F7F637F83000000
HEX 0000000000000000810000000000F600
HEX 0000009CB80000F08C00888486910000
HEX 000000008A80E0B01E1E3C0C0C7C0100
HEX 8100000000000000C0008491C0008182
HEX 00E0C0900098880000D000C088808080
HEX 80808080808080000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 000000000000000081000000008300B0
HEX 00E1908400820000C000C48484B200C0
HEX 00880000888080800000000000000000
HEX 8100000000000000C081818400008400
HEX 0083BC83C081840000C1000089009833
HEX 46471933667C00800000000000000000
HEX 81000000000000000000009800000000
HEX 00000000000084B0008800000800F871
HEX 30664C0318330680810000E000000000
HEX 86B1D8900084009088C6B1C085840090
HEX 0088A000888080808080808080808080
HEX 810000000000000000C281810090C000
HEX 0090C2A1A0E0000088C082008B80B080
HEX E08C8F9FB3BC80800000000000000000
HEX 810000000000000000988700C0818600
HEX 0000000000008188A08800860C00E040
HEX 47191F1E3E7C000081008C8C82000000
HEX 9084E0B1008400C090B4A400B0820088
HEX 0088C0008880E08C0000060040610080
HEX 8100000000000000B0B898C28F008700
HEX 00C700B0888300C000008C0088808080
HEX 80808080808080800000000000000000
HEX 8080808080808086B38680E68C86B098
HEX 8C98C381B0E680808080808080800000
HEX 0000000000000000810000000000008C
HEX 9C000000C081009800000000C0BBA084
HEX 84A00000080080306640670C18000080
HEX 81000000B4000000A08888008282A6C0
HEX A194C4009000C0000088008688808080
HEX 80808080808080800000000000000000
HEX FCE39FE09FF8C7BFF0FFFFE09FF887E0
HEX FFE087FEC1FFF18FFCBFC0FF00000000
HEX 000000000000000081BC00F0FF838600
HEX 9E000000000000000000000000838600
HEX 81008D81080080000000000000000000
HEX 81000000E0000000E081900090828881
HEX 818CE2008C00B000008300A088808080
HEX 00000000000000000000000000000000
HEX 707F07C00F607F0F607F9F007F7F8178
HEX 71817F7B837F7F837E70833F00000000
HEX 00000000000000008100000000000000
HEX 000000000084E00000000000A0C08100
HEX 8300008288808CB33066471933060680
HEX 8100000000830087C09FE2008E888881
HEX 0000B80081000000008100A0888080FC
HEX 70317C4C710100000000000000000000
HEX 607F3F601FC07F7F007FE0837C7F8378
HEX 7F817E7F837E7F833E70033F00000000
HEX 000000000000000081000000B8000000
HEX 000000FC8FC0C3878100C099A2C000C0
HEX 00000088888080C0991E7C7878010000
HEX 8100000000000000CC00C4C1B1C00082
HEX 0000A4C00000E200008100C088C01933
HEX 0C0C7C47190303800000000000000000
HEX 7E4F7F787F783F7F717F7FE17F7D4F7F
HEX 795F7F7C6F7F780F7F7F737F07000000
HEX 0000000000000000810000000000C381
HEX 00000087E000009C88008C8484910000
HEX 000000008E80E0B10C33660C0C0C0000
HEX 8100000000000000C0008491C0008182
HEX 00A0C0980088880000D800C088808080
HEX 80808080808080000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 000000000000000081000000C08100A0
HEX 00C3918C00820000C081E48C84A600C0
HEX 00880000880000000000000000000000
HEX 8100000000000000008100860000CC00
HEX 00838781C0008400C0C1000089009863
HEX 07030F337C0C00800000000000000000
HEX 8100000000000000000000BF00000000
HEX 00000000000086900088980008009830
HEX 30664C011F330680810000B800000000
HEX 84A3D090008400B088C4B00087840090
HEX 0088A000888080808080808080808080
HEX 8100000000000000008383810098C000
HEX 0090C2A0B0C000008CC083008A80E08C
HEX E0CF9987B3E680800000000000000000
HEX 8100000000000000008CBC0000838F00
HEX 0000000000C08188A08800830800E000
HEX 4C190733661800008100879882000000
HEX B084C0A1008488C09094A400F082008C
HEX 0088C0818880E0CC0F1F460740610080
HEX FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
HEX FFFFFFFFFFFFFFFFFFFFFFFF8F808080
HEX 80808080808080808080808080808080
*--- We are at $4000 now
theLOADER
lda #0
sta $2000
sta $2001
sta $2002
lda TXTCLR
lda MIXCLR
lda TXTPAGE1
lda HIRES
*---
ldx #0
]lp lda from,x
sta leLOADER,x
inx
bpl ]lp
jmp leLOADER ; where the loader is really is
from = *
*-----------------------------------
* LOAD THE GAME
*-----------------------------------
org leLOADER
jsr PRODOS ; get the prefix
dfb $c7
da proGETPFX
jsr PRODOS ; set it
dfb $c6
da proGETPFX
jsr PRODOS
dfb $c8
da proOPEN
bcs quitME
lda proOPEN+5 ; zou, on prend l'ID
sta proREAD+1
sta proSETMARK+1
sta proREAD2+1
sta proCLOSE+1
jsr PRODOS ; lecture du fichier
dfb $ca
da proREAD
bcs quitME
jsr PRODOS
dfb $ce
da proSETMARK
bcs quitME
jsr PRODOS ; lecture du fichier
dfb $ca
da proREAD2
jsr PRODOS ; fermeture du fichier
dfb $cc
da proCLOSE
bcs quitME
jmp leJEU
quitME jsr PRODOS ; exit
dfb $65
da proQUIT
brk $bd ; on ne se refait pas ;-)
*--- Data
proQUIT dfb $4
ds 1
ds 2
ds 1
ds 2
proGETPFX dfb $1
da ptrPREFIX
proOPEN dfb $3
da pLEJEU ; pathname (par d<>faut, le moteur)
da proBUFFER ; io_buffer
ds 1 ; ref_num
proREAD dfb $4
ds 1 ; ref_num
da leJEU ; data_buffer
dw $1800 ; request_count
ds 2 ; transfer_count
proREAD2 dfb $4
ds 1 ; ref_num
da $4000 ; data_buffer
dw $7b00 ; request_count
ds 2 ; transfer_count
proCLOSE dfb $1
ds 1 ; ref_num
proSETMARK dfb $2
ds 1 ; ref_num
adr $3800 ; set_mark
pLEJEU str 'Kikekankoi'