ORG $1e0000-$a

exestart:
 DC.B 1
 DC.B 1
 DC.B 1
 DC.B $b
 DC.B 2
 DC.B 1
 DC.L $1e0000
 DC.L entrypoint
 DC.L configstruct

; APIs
 macro APICall
 \1:
  moveq #\2,d0
  trap #\3
 endm

 APICall API_0_0,0,0
 APICall API_1_0,1,0
 APICall API_2_0,2,0
 APICall API_3_0,3,0
 APICall API_5_0,5,0
 APICall API_6_0,6,0
 APICall API_7_0,7,0
 APICall API_8_0,8,0
 APICall newmem,9,0
 APICall API_A_0,$a,0
 APICall API_B_0,$b,0
 APICall API_C_0,$c,0
 APICall API_D_0,$d,0
 APICall API_E_0,$e,0
 APICall API_F_0,$f,0
 APICall API_10_0,$10,0
 APICall req_usrmsg,$14,0
 APICall API_15_0,$15,0
 APICall API_16_0,$16,0
 APICall API_18_0,$18,0
 APICall mt_levdis,$19,0

sub_5C:
 moveq #0,d0
 rts

 APICall API_0_1,0,1
 APICall API_1_1,1,1
 APICall API_2_1,2,1
 APICall API_3_1,3,1
 APICall API_4_1,4,1

 APICall API_0_2,0,2
 APICall API_1_2,1,2
 APICall API_2_2,2,2
 APICall API_3_2,3,2
 APICall API_4_2,4,2
 APICall API_5_2,5,2
 APICall API_6_2,6,2
 APICall API_7_2,7,2

 APICall API_0_3,0,3
 APICall API_1_3,1,3
 APICall API_2_3,2,3
 APICall API_3_3,3,3
 APICall API_4_3,4,3
 APICall API_5_3,5,3
 APICall API_6_3,6,3
 APICall API_7_3,7,3
 APICall API_8_3,8,3
 APICall API_9_3,9,3
 APICall API_A_3,$a,3
 APICall API_B_3,$b,3
 APICall API_C_3,$c,3

stub_callback:
 rts

entrypoint:
 move.l a2,-(sp)
 move.b 11(sp),d0
 move.l 12(sp),d1
 move.b 19(sp),d1
 cmpi.b #4,d0
 bne.s after_stuff
 jsr API_E_0
 lea dword_1,a2
 move.l d0,(a2)
 jsr API_F_0
 lea dword_2,a2
 move.l d0,(a2)
 lea dword_3,a2
 pea (a2)
 pea ($203).w
 movea.l dword_1,a0
 pea $880(a0)
 jsr API_0_1
 pea (3).w
 jsr do_msgbox
 lea $10(sp),sp
after_stuff:
 moveq #0,d0
 movea.l (sp)+,a2
 rts

do_msgbox:
 move.l a2,-(sp)
 move.b 11(sp),d0
 cmpi.b #3,d0
 bne.s not_three
 lea stub_callback,a2
 move.l a2,-(sp)
 lea msgbox_ascii,a2
 pea (a2)
 jsr req_usrmsg
 addq.l #8,sp
not_three:
 movea.l (sp)+,a2
 rts

msgbox_ascii:
 dc.b "3|KEEP HACKING|it's what bushing would have wanted|||||idatime!",0

configstruct:
 dcb.b 14,0

dword_1:
 dc.l 0

dword_2:
 dc.l 0
dword_3:
 dc.l 0



 END exestart