home *** CD-ROM | disk | FTP | other *** search
/ Aminet 10 / aminetcdnumber101996.iso / Aminet / misc / emu / ST4Amiga.lha / ST / emu.asm < prev    next >
Assembly Source File  |  1995-11-17  |  44KB  |  2,863 lines
  1.  
  2. dsksync    EQU    $7E
  3. bltbpth    EQU    $4C
  4. bpl2pth    EQU    $E4
  5. bpl2ptl    EQU    $E6
  6. bpl3pth    EQU    $E8
  7. potgo    EQU    $34
  8. adkcon    EQU    $9E
  9. bpl3ptl    EQU    $EA
  10. color0    EQU    $180
  11. color1    EQU    $182
  12. color2    EQU    $184
  13. color3    EQU    $186
  14. _custom    EQU    $DFF000
  15. ddfstop    EQU    $94
  16. bltapth    EQU    $50
  17. bltcon0    EQU    $40
  18. bpl1pth    EQU    $E0
  19. bltcon1    EQU    $42
  20. diwstrt    EQU    $8E
  21. intreq    EQU    $9C
  22. bplcon0    EQU    $100
  23. bplcon1    EQU    $102
  24. bpl1ptl    EQU    $E2
  25. foreground    EQU    $888
  26. cop1lcl    EQU    $82
  27. dskpth    EQU    $20
  28. cop1lch    EQU    $80
  29. diwstop    EQU    $90
  30. ddfstrt    EQU    $92
  31. bltdpth    EQU    $54
  32. bpl4pth    EQU    $EC
  33. bpl4ptl    EQU    $EE
  34. intena    EQU    $9A
  35. sync    EQU    $4489
  36. rtc    EQU    io+$7C21
  37. bltafwm    EQU    $44
  38. intreqr    EQU    $1E
  39. joy0dat    EQU    $A
  40. tv_Lev4IntVect    EQU    $70
  41. bltbmod    EQU    $62
  42. bpl2mod    EQU    $10A
  43. potinp    EQU    $16
  44. bltamod    EQU    $64
  45. bpl1mod    EQU    $108
  46. vhposr    EQU    $6
  47. gap4    EQU    $4E4E4E4E
  48. bltalwm    EQU    $46
  49. dmacon    EQU    $96
  50. gap2    EQU    $4E4E
  51. bltcdat    EQU    $70
  52. timeout    EQU    $7A120
  53. tv_PrivilegeViolation    EQU    $20
  54. dsklen    EQU    $24
  55. MEMF_CHIP    EQU    $2
  56. MemList    EQU    $142
  57. bltsize    EQU    $58
  58. MaxExtMem    EQU    $4E
  59. bltdmod    EQU    $66
  60. **********************************************************************
  61.     org    emu
  62. lbC000000    BRA    Warmstart
  63.  
  64.     LEA    io,A0
  65.     MOVE.L    #$1FFF,D0
  66. lbC000010    CLR.L    (A0)+
  67.     DBRA    D0,lbC000010
  68.  
  69.     MOVE.B    #2,io+$260
  70.     MOVE.B    #0,io+$7A01    ; MFP
  71.     LEA    $3FF00,A0
  72.     MOVEQ    #$7F,D0
  73. lbC00002E    CLR.W    (A0)+
  74.     DBRA    D0,lbC00002E
  75.  
  76.     MOVE.B    #0,rtc
  77.     MOVE.B    #0,rtc+2
  78.     MOVE.B    #9,rtc+4
  79.     MOVE.B    #3,rtc+6
  80.     MOVE.B    #5,rtc+8
  81.     MOVE.B    #1,rtc+10
  82.     MOVE.B    #6,rtc+14
  83.     MOVE.B    #1,rtc+16
  84.     MOVE.B    #6,rtc+18
  85.     MOVE.B    #0,rtc+20
  86.     MOVE.B    #10,rtc+22
  87.     MOVE.B    #0,rtc+24
  88.     LEA    CODXOFTHEBRAI.MSG,A0
  89.     MOVE.L    0.w,D0
  90.     CMP.L    (A0),D0
  91. *    BNE    Deadend
  92.     LEA    $40000,A0
  93.     LEA    lbC000000,A1
  94. lbC0000B0    MOVE.L    A0,D0
  95. *    EOR.L    D0,(A0)+
  96. *    CMP.L    A0,A1
  97. *    BNE.S    lbC0000B0
  98. Warmstart    CLR.B    $3FF3A
  99.     MOVE.W    #0,D0
  100.     BSR    lbC00064E
  101.     LEA    _custom,A0
  102.     MOVE.W    #$7FF,dmacon(A0)
  103.     MOVE.W    #$7FFF,intena(A0)
  104.     MOVE.W    #$3FFF,intreq(A0)
  105.     MOVE.L    #lbC0000EA,tv_PrivilegeViolation
  106. lbC0000EA    MOVE    #$2700,SR
  107. *    NOP
  108. *    NOP
  109. *    NOP
  110. *    NOP
  111. *    NOP
  112. *    NOP
  113. *    NOP
  114. *    NOP
  115. *    NOP
  116. *    NOP
  117. *    NOP
  118. *    NOP
  119. *    NOP
  120. *    NOP
  121.     MOVE.W    #$FFFF,temp1
  122.     CLR.W    $3FF0A
  123.     MOVE.L    #FLOPRD,$4100C
  124. lbC000122    SUB.L    A5,A5
  125.     CMP.L    #$31415926,$426(A5)
  126.     BNE.S    lbC000146
  127.     MOVE.L    $42A(A5),D0
  128.     TST.B    $42A(A5)
  129.     BNE.S    lbC000146
  130.     BTST    #0,D0
  131.     BNE.S    lbC000146
  132.     MOVE.L    D0,A0
  133.     LEA    lbC000122(PC),A6
  134.     JMP    (A0)
  135.  
  136. lbC000146    MOVE.W    #7,$484
  137.     MOVE.W    #$F02,$E82
  138.     MOVE.B    #1,io+$201
  139.     MOVE.B    #0,io+$203
  140.     TST.L    $3FF00
  141.     BNE    lbC000276
  142.     MOVE.L    4,A6
  143.     MOVE.L    MemList(A6),A6
  144. lbC00017A    BTST    #MEMF_CHIP,15(A6)
  145.     BEQ.S    lbC0001AE
  146.     CMP.L    #$C00000,$14(A6)
  147.     BGE.S    lbC0001AE
  148.     MOVE.L    $14(A6),D0
  149.     AND.L    #$FFFF0000,D0
  150.     MOVE.L    D0,$3FF00
  151.     MOVE.L    $18(A6),D0
  152.     MOVE.L    D0,$3FF04
  153.     BSR    lbC000256
  154.     BRA    lbC000276
  155.  
  156. lbC0001AE    TST.L    (A6)
  157.     MOVE.L    0(A6),A6
  158.     BNE.S    lbC00017A
  159.     MOVE.L    4,A6
  160.     TST.L    MaxExtMem(A6)
  161.     BEQ.S    lbC0001FA
  162.     MOVE.L    MaxExtMem(A6),A6
  163.     MOVE.L    #$C00000,$3FF00
  164.     MOVE.L    A6,$3FF04
  165.     BRA    lbC000276
  166.  
  167. CODXOFTHEBRAI.MSG    dc.b    'CODX OF THE BRAINS HAS DONE IT !'
  168.  
  169. lbC0001FA    CLR.W    $FC0000
  170.     TST.W    $FC0000
  171.     BNE.S    lbC000226
  172.     MOVE.L    #$FC0000,$3FF00
  173.     MOVE.L    #$1000000,$3FF04
  174.     BSR.S    lbC000256
  175.     BRA.S    lbC000276
  176.  
  177. lbC000226    LEA    $80000,A0
  178.     CMP.L    #'CODX',(A0)
  179.     BEQ.S    lbC000252
  180.     MOVE.L    #$80000,$3FF00
  181.     MOVE.L    #$100000,$3FF04
  182.     BSR.S    lbC000256
  183.     BRA.S    lbC000276
  184.  
  185. lbC000252    BRA.S    Deadend
  186.  
  187. lbC000256    MOVE.L    $3FF00,A0
  188.     MOVE.L    #$1000,D0
  189. lbC000262    CLR.L    (A0)+
  190.     DBRA    D0,lbC000262
  191.  
  192.     RTS
  193.  
  194. Deadend    MOVE.W    _custom+vhposr,_custom+color0
  195.     BRA.S    Deadend
  196.  
  197. lbC000276    LEA    lbC000280(PC),A6
  198.     JMP    $40688
  199.  
  200. lbC000280    BEQ.S    lbC0002F6
  201.     SUB.L    A5,A5
  202.     MOVE.L    #scr+scrsize,A0
  203.     MOVE.L    #scr-scrsize,D4
  204.     MOVEQ    #0,D0
  205.     MOVEQ    #0,D1
  206.     MOVEQ    #0,D2
  207.     MOVEQ    #0,D3
  208. lbC00029A    MOVEM.L    D0-D3,-(A0)
  209.     MOVEM.L    D0-D3,-(A0)
  210.     MOVEM.L    D0-D3,-(A0)
  211.     MOVEM.L    D0-D3,-(A0)
  212.     CMP.L    D4,A0
  213.     BNE.S    lbC00029A
  214.     MOVE.L    #$18000,A0
  215.     MOVE.L    #$400,D4
  216.     MOVEQ    #0,D0
  217.     MOVEQ    #0,D1
  218.     MOVEQ    #0,D2
  219.     MOVEQ    #0,D3
  220. lbC0002C2    MOVEM.L    D0-D3,-(A0)
  221.     MOVEM.L    D0-D3,-(A0)
  222.     MOVEM.L    D0-D3,-(A0)
  223.     MOVEM.L    D0-D3,-(A0)
  224.     CMP.L    D4,A0
  225.     BNE.S    lbC0002C2
  226.     MOVE.L    $3FF04,$42E(A5)
  227.     MOVE.L    #$752019F3,$420(A5)
  228.     MOVE.L    #$237698AA,$43A(A5)
  229.     MOVE.L    #$5555AAAA,$51A(A5)
  230. lbC0002F6    MOVE.L    #scr,A0
  231.     MOVE.L    #scr-scrsize,D4
  232.     MOVEQ    #-$1,D0
  233. lbC000304    MOVE.L    D0,-(A0)
  234.     CMP.L    D4,A0
  235.     BNE.S    lbC000304
  236.     BSR    Corners
  237.     SUB.L    A5,A5
  238.     MOVE.L    #$980,A0
  239.     MOVE.L    #$10000,A1
  240.     MOVEQ    #0,D0
  241. lbC00031E    MOVE.W    D0,(A0)+
  242.     CMP.L    A0,A1
  243.     BNE.S    lbC00031E
  244.     MOVE.L    $42E,A0
  245.     SUB.L    #$8000,A0
  246.     CMP.B    #2,io+$260
  247.     BLT.S    lbC000340
  248.     LEA    scr,A0
  249. lbC000340    MOVE.L    A0,$44E(A5)
  250.     MOVE.B    $44F(A5),io+$201
  251.     MOVE.B    $450(A5),io+$203
  252.     MOVE.W    #$7FF,D1
  253. lbC000358    MOVE.L    D0,(A0)+
  254.     MOVE.L    D0,(A0)+
  255.     MOVE.L    D0,(A0)+
  256.     MOVE.L    D0,(A0)+
  257.     DBRA    D1,lbC000358
  258.  
  259.     MOVE.W    #$FFF,D0
  260.     MOVE.L    $40014,A0
  261.     CMP.L    #$87654321,(A0)
  262.     BEQ.S    lbC00037C
  263.     LEA    $40008,A0
  264. lbC00037C    MOVE.L    4(A0),$4FA
  265.     MOVE.L    8(A0),$4FE
  266.     LEA    lbC0003A4(PC),A6
  267.     CMP.B    #1,io+$260
  268.     BLT    lbC00068E
  269.     BEQ    lbC000704
  270.     BGT    lbC00076A
  271. lbC0003A4    MOVE.L    #$3FFB0,$80(A0)
  272.     TST.W    $88(A0)
  273. lbC0003B0    BSR    lbC000668
  274.     TST.W    4(A0)
  275.     BPL.S    lbC0003B0
  276.     MOVE.W    #$83C0,$96(A0)
  277.     MOVE.L    #lbC00111C,$46A(A5)
  278.     MOVE.L    #lbC001174,$476(A5)
  279.     MOVE.L    #$40FCA,$472(A5)
  280.     MOVE.L    #lbC001294,$47E(A5)
  281.     MOVE.L    #lbC0012C0,$47A(A5)
  282.     MOVE.L    #lbC000FC4,$506(A5)
  283.     MOVE.L    #lbC000F82,$50A(A5)
  284.     MOVE.L    #lbC001116,$50E(A5)
  285.     MOVE.L    #lbC001116,$512(A5)
  286.     MOVE.L    #$40D62,$502(A5)
  287.     MOVE.L    $3FF04,$436(A5)
  288.     MOVE.L    $3FF00,$432(A5)
  289.     LEA    $755A,SP
  290.     MOVE.W    #8,$454(A5)
  291.     ST     $444(A5)
  292.     MOVE.W    #3,$440(A5)
  293.     MOVE.L    #$16DA,$4C6(A5)
  294.     MOVE.W    #$FFFF,$4EE(A5)
  295.     MOVE.L    #$40000,$4F2(A5)
  296.     MOVE.L    #$93A,$4A2(A5)
  297.     MOVE.L    #$40670,$46E(A5)
  298.     MOVE.W    #$FFF,D0
  299.     JSR    $40EBA
  300.     LEA    $407CE,A3
  301.     LEA    $40670,A4
  302.     LEA    $40B50,A1
  303.     ADD.L    #$2000000,A1
  304.     LEA    8,A0
  305.     MOVE.W    #$3D,D0
  306. lbC000488    MOVE.L    A1,(A0)+
  307.     ADD.L    #$1000000,A1
  308.     DBRA    D0,lbC000488
  309.  
  310.     MOVE.L    A3,$14
  311.     MOVEQ    #6,D0
  312.     LEA    $64(A5),A1
  313. lbC0004A0    MOVE.L    #$407CE,(A1)+
  314.     DBRA    D0,lbC0004A0
  315.  
  316.     MOVE.L    #$406DE,$70(A5)
  317.     MOVE.L    #lbC00081A,$6C(A5)
  318.     MOVE.L    #lbC000ADE,$68
  319.     MOVE.W    #$C028,_custom+intena
  320.     MOVE.L    A3,$88(A5)
  321.     MOVE.L    #lbC000D6A,$B4(A5)
  322.     MOVE.L    #lbC000D62,$B8(A5)
  323.     MOVE.L    #$49F66,$28(A5)
  324.     MOVE.L    A4,$400(A5)
  325.     MOVE.L    #$407EE,$404(A5)
  326.     MOVE.L    A4,$408(A5)
  327.     LEA    $4CE(A5),A0
  328.     MOVE.L    A0,$456(A5)
  329.     MOVE.W    #7,D0
  330. lbC000504    CLR.L    (A0)+
  331.     DBRA    D0,lbC000504
  332.  
  333.     LEA    $409AE,A0
  334.     MOVE.W    #$51E,A1
  335.     MOVEQ    #$1F,D0
  336. lbC000516    MOVE.L    (A0)+,(A1)+
  337.     DBRA    D0,lbC000516
  338.  
  339.     MOVE.B    io+$7A01,D0
  340.     MOVE.W    D0,-(SP)
  341.     JSR    $42408
  342.     MOVE.W    (SP)+,D0
  343.     MOVE.B    D0,io+$7A01
  344.     MOVE.L    #$7FFF,D0
  345. lbC000538    JSR    $40556
  346.     DBRA    D0,lbC000538
  347.  
  348.     MOVE.W    #$CCC,D0
  349.     LEA    lbC00054A(PC),A6
  350. lbC00054A    MOVE.B    io+$260,$44C
  351.     MOVEQ    #0,D0
  352.     JSR    $4A9F8
  353.     JSR    $4A96E
  354.     MOVE.L    #Warmstart,$46E(A5)
  355.     MOVE.W    #1,$452
  356.     MOVE    #$2100,SR
  357.     MOVE.W    #$999,D0
  358.     JSR    $44AF8
  359.     MOVE.W    $4001E,$8840
  360.     JSR    $44C42
  361.     JSR    $4053C
  362.     JSR    $40E56
  363.     TST.W    $482
  364.     BEQ.S    lbC0005C2
  365.     JSR    $40C4A
  366.     PEA    $40538
  367.     PEA    $40538
  368.     PEA    $40524
  369.     CLR.W    -(SP)
  370.     BRA.S    lbC000636
  371.  
  372. lbC0005C2    JSR    $40C4A
  373.     MOVE.W    #$666,D0
  374.     MOVE.L    #$40000,$4F2
  375.     LEA    $40518,A0
  376.     MOVE.L    #$840,A1
  377. lbC0005E2    CMP.B    #$23,(A0)
  378.     BNE.S    lbC0005EA
  379.     MOVE.L    A1,A2
  380. lbC0005EA    MOVE.B    (A0)+,(A1)+
  381.     BPL.S    lbC0005E2
  382.     MOVE.B    $446,D0
  383.     ADD.B    #$41,D0
  384.     MOVE.B    D0,(A2)
  385.     PEA    $840
  386.     PEA    $40538
  387.     PEA    $40538
  388.     MOVE.W    #5,-(SP)
  389.     MOVE.W    #$4B,-(SP)
  390.     TRAP    #1
  391.     ADD.W    #14,SP
  392.     MOVE.L    D0,A0
  393.     MOVE.L    $4FE,8(A0)
  394.     PEA    $840
  395.     MOVE.L    A0,-(SP)
  396.     PEA    $40538
  397.     MOVE.W    #4,-(SP)
  398. lbC000636    MOVE.W    #$4B,-(SP)
  399.     TRAP    #1
  400.     ADD.W    #14,SP
  401.     MOVEQ    #3,D7
  402.     JSR    $40BAC
  403.     JMP    Warmstart
  404.  
  405. lbC00064E    MOVE.W    D0,_custom+color0
  406.     MOVE.W    D0,_custom+color1
  407.     MOVE.W    D0,_custom+color2
  408.     MOVE.W    D0,_custom+color3
  409.     RTS
  410.  
  411. lbC000668    MOVE.W    $1E(A0),D0
  412.     BTST    #5,D0
  413.     BEQ.S    lbC000668
  414.     MOVE.W    D0,$9C(A0)
  415.     RTS
  416.  
  417. lbC000678    BTST    #6,$BFE001
  418.     BNE.S    lbC000678
  419. lbC000682    BTST    #6,$BFE001
  420.     BEQ.S    lbC000682
  421.     RTS
  422.  
  423. lbC00068E    LEA    _custom,A0
  424.     MOVE.W    #$4200,bplcon0(A0)
  425.     MOVE.W    #0,bplcon1(A0)
  426.     MOVE.W    #0,bpl1mod(A0)
  427.     MOVE.W    #0,bpl2mod(A0)
  428.     MOVE.W    #$38,ddfstrt(A0)
  429.     MOVE.W    #$D0,ddfstop(A0)
  430.     MOVE.W    #$2C81,diwstrt(A0)
  431.     MOVE.W    #$F4C1,diwstop(A0)
  432.     MOVE.W    #$222,color1(A0)
  433.     LEA    lbW0006E0,A1
  434.     LEA    $3FFB0,A2
  435.     MOVEQ    #$11,D0
  436. lbC0006D8    MOVE.W    (A1)+,(A2)+
  437.     DBRA    D0,lbC0006D8
  438.  
  439.     JMP    (A6)
  440.  
  441. lbW0006E0    dc.w    bpl1pth
  442.     dc.w    (scr)>>16
  443.     dc.w    bpl1ptl
  444.     dc.w    (scr)<<16>>16
  445.     dc.w    bpl2pth
  446.     dc.w    (scr+$2000)>>16
  447.     dc.w    bpl2ptl
  448.     dc.w    (scr+$2000)<<16>>16
  449.     dc.w    bpl3pth
  450.     dc.w    (scr+$4000)>>16
  451.     dc.w    bpl3ptl
  452.     dc.w    (scr+$4000)<<16>>16
  453.     dc.w    bpl4pth
  454.     dc.w    (scr+$6000)>>16
  455.     dc.w    bpl4ptl
  456.     dc.w    (scr+$6000)<<16>>16
  457.     dc.w    $FFFF
  458.     dc.w    $FFFE
  459.  
  460. lbC000704    LEA    _custom,A0
  461.     MOVE.W    #$A200,bplcon0(A0)
  462.     MOVE.W    #0,bplcon1(A0)
  463.     MOVE.W    #0,bpl1mod(A0)
  464.     MOVE.W    #0,bpl2mod(A0)
  465.     MOVE.W    #$3C,ddfstrt(A0)
  466.     MOVE.W    #$D4,ddfstop(A0)
  467.     MOVE.W    #$2C81,diwstrt(A0)
  468.     MOVE.W    #$F4C1,diwstop(A0)
  469.     MOVE.W    #$222,color1(A0)
  470.     LEA    lbW000756,A1
  471.     LEA    $3FFB0,A2
  472.     MOVEQ    #9,D0
  473. lbC00074E    MOVE.W    (A1)+,(A2)+
  474.     DBRA    D0,lbC00074E
  475.  
  476.     JMP    (A6)
  477.  
  478. lbW000756    dc.w    bpl1pth
  479.     dc.w    (scr)>>16
  480.     dc.w    bpl1ptl
  481.     dc.w    (scr)<<16>>16
  482.     dc.w    bpl2pth
  483.     dc.w    (scr+$4000)>>16
  484.     dc.w    bpl2ptl
  485.     dc.w    (scr+$4000)<<16>>16
  486.     dc.w    $FFFF
  487.     dc.w    $FFFE
  488.  
  489. lbC00076A    LEA    _custom,A0
  490.     MOVE.W    #$A204,bplcon0(A0)
  491.     MOVE.W    #0,bplcon1(A0)
  492.     MOVE.W    #$50,bpl1mod(A0)
  493.     MOVE.W    #$50,bpl2mod(A0)
  494.     MOVE.W    #$3C,ddfstrt(A0)
  495.     MOVE.W    #$D4,ddfstop(A0)
  496.     MOVE.W    #$3C81,diwstrt(A0)
  497.     MOVE.W    #$4C1,diwstop(A0)
  498.     MOVE.W    #0,color0(A0)
  499.     MOVE.W    #0,color1(A0)
  500.     MOVE.W    #foreground,color2(A0)
  501.     MOVE.W    #0,color3(A0)
  502.     LEA    lbW0007E2,A1
  503.     LEA    $3FFB0,A2
  504.     MOVEQ    #13,D0
  505. lbC0007C6    MOVE.W    (A1)+,(A2)+
  506.     DBRA    D0,lbC0007C6
  507.  
  508.     LEA    lbW0007FE,A1
  509.     LEA    $3FFD0,A2
  510.     MOVEQ    #13,D0
  511. lbC0007DA    MOVE.W    (A1)+,(A2)+
  512.     DBRA    D0,lbC0007DA
  513.  
  514.     JMP    (A6)
  515.  
  516. lbW0007E2    dc.w    bpl1pth
  517.     dc.w    (scr)>>16
  518.     dc.w    bpl1ptl
  519.     dc.w    (scr)<<16
  520.     dc.w    bpl2pth
  521.     dc.w    (scr-$8000)>>16
  522.     dc.w    bpl2ptl
  523.     dc.w    (scr-$8000)<<16>>16
  524.     dc.w    cop1lch
  525.     dc.w    3
  526.     dc.w    cop1lcl
  527.     dc.w    $FFD0
  528.     dc.w    $FFFF
  529.     dc.w    $FFFE
  530. lbW0007FE    dc.w    bpl1pth
  531.     dc.w    (scr+$50)>>16
  532.     dc.w    bpl1ptl
  533.     dc.w    (scr+$50)<<16>>16
  534.     dc.w    bpl2pth
  535.     dc.w    (scr-$7fb0)>>16
  536.     dc.w    bpl2ptl
  537.     dc.w    (scr-$7fb0)<<16>>16
  538.     dc.w    cop1lch
  539.     dc.w    3
  540.     dc.w    cop1lcl
  541.     dc.w    $FFB0
  542.     dc.w    $FFFF
  543.     dc.w    $FFFE
  544.  
  545. lbC00081A    MOVE.W    #$20,_custom+intreq
  546.     CMP.B    #7,$3FF3A
  547.     BNE.S    lbC000834
  548.     JMP    Warmstart
  549.  
  550. lbC000834    CMP.B    #11,$3FF3A
  551.     BNE.S    lbC000854
  552.     MOVE.B    #1,io+$260
  553.     MOVE.B    #$80,io+$7A01
  554.     BRA.S    lbC000870
  555.  
  556. lbC000854    CMP.B    #$13,$3FF3A
  557.     BNE.S    lbC000876
  558.     MOVE.B    #2,io+$260
  559.     MOVE.B    #0,io+$7A01
  560. lbC000870    JMP    Warmstart
  561.  
  562. lbC000876    MOVEM.L    D0/D7/A0-A4,-(SP)
  563.     BSR    lbC001E32
  564.     BCHG    #1,$BFE001    ; change LED
  565.     TST.W    $3FF1E
  566.     BNE    lbC000918
  567.     SUBQ.W    #1,$3FF08
  568.     BPL.S    lbC0008F2
  569.     MOVE.W    #2,$3FF08
  570.     CMP.B    #2,io+$260
  571.     BEQ.S    lbC0008C4
  572.     MOVE.L    #io+$240,A0    ; palette 64 bytes
  573.     MOVE.L    #_custom+color0,A1
  574.     MOVEQ    #15,D7
  575. lbC0008BA    MOVE.W    (A0)+,D0
  576.     LSL.W    #1,D0
  577.     MOVE.W    D0,(A1)+
  578.     DBRA    D7,lbC0008BA
  579.  
  580. lbC0008C4    MOVEQ    #0,D0
  581.     MOVE.B    io+$201,D0
  582.     SWAP    D0
  583.     MOVE.B    io+$203,D0
  584.     LSL.W    #8,D0
  585.     MOVE.L    D0,A0
  586.     LEA    scr,A1
  587.     CMP.B    #1,io+$260
  588.     BLT.S    Lores
  589.     BGT    Hires
  590.     BRA    Meres
  591.  
  592. lbC0008F2    TST.W    $3FF20
  593.     BEQ.S    lbC00090A
  594.     SUBQ.W    #1,$3FF20
  595.     BNE.S    lbC000918
  596.     BSR    lbC001464
  597.     BRA.S    lbC000918
  598.  
  599. lbC00090A    TST.W    $3FF1E
  600.     BNE.S    lbC000918
  601.     BSR    lbC000C1A
  602. lbC000918    TST.B    $3FF38
  603.     BEQ.S    lbC000928
  604.     SUBQ.B    #1,$3FF38
  605. lbC000928    BSR    lbC000D60
  606.     TST.B    $2847
  607.     BNE.S    lbC000940
  608.     TST.W    $3FF0A
  609.     BEQ.S    lbC000940
  610.     BSR    lbC000A5C
  611. lbC000940    MOVEM.L    (SP)+,D0/D7/A0-A4
  612.     ADDQ.L    #4,$4BA
  613.     JSR    $4312C
  614.     MOVE.L    (tv_Lev4IntVect).w,-(SP)
  615.     RTS
  616.  
  617. Lores    LEA    $2000(A1),A2
  618.     LEA    $2000(A2),A3
  619.     LEA    $2000(A3),A4
  620.     MOVE.W    #$3E7,D7
  621. 1$    MOVE.W    (A0)+,(A1)+
  622.     MOVE.W    (A0)+,(A2)+
  623.     MOVE.W    (A0)+,(A3)+
  624.     MOVE.W    (A0)+,(A4)+
  625.     MOVE.W    (A0)+,(A1)+
  626.     MOVE.W    (A0)+,(A2)+
  627.     MOVE.W    (A0)+,(A3)+
  628.     MOVE.W    (A0)+,(A4)+
  629.     MOVE.W    (A0)+,(A1)+
  630.     MOVE.W    (A0)+,(A2)+
  631.     MOVE.W    (A0)+,(A3)+
  632.     MOVE.W    (A0)+,(A4)+
  633.     MOVE.W    (A0)+,(A1)+
  634.     MOVE.W    (A0)+,(A2)+
  635.     MOVE.W    (A0)+,(A3)+
  636.     MOVE.W    (A0)+,(A4)+
  637.     DBRA    D7,1$
  638.  
  639.     BRA    lbC0008F2
  640.  
  641. Meres    LEA    $4000(A1),A2
  642.     MOVE.W    #$3E7,D7
  643. 1$    MOVE.W    (A0)+,(A1)+
  644.     MOVE.W    (A0)+,(A2)+
  645.     MOVE.W    (A0)+,(A1)+
  646.     MOVE.W    (A0)+,(A2)+
  647.     MOVE.W    (A0)+,(A1)+
  648.     MOVE.W    (A0)+,(A2)+
  649.     MOVE.W    (A0)+,(A1)+
  650.     MOVE.W    (A0)+,(A2)+
  651.     MOVE.W    (A0)+,(A1)+
  652.     MOVE.W    (A0)+,(A2)+
  653.     MOVE.W    (A0)+,(A1)+
  654.     MOVE.W    (A0)+,(A2)+
  655.     MOVE.W    (A0)+,(A1)+
  656.     MOVE.W    (A0)+,(A2)+
  657.     MOVE.W    (A0)+,(A1)+
  658.     MOVE.W    (A0)+,(A2)+
  659.     DBRA    D7,1$
  660.  
  661.     BRA    lbC0008F2
  662.  
  663. Hires    CMP.L    #$40000,D0
  664.     BLE.S    lbC0009E4
  665.     MOVE.W    #$3E7,D7
  666. 1$    MOVE.L    (A0)+,(A1)+
  667.     MOVE.L    (A0)+,(A1)+
  668.     MOVE.L    (A0)+,(A1)+
  669.     MOVE.L    (A0)+,(A1)+
  670.     MOVE.L    (A0)+,(A1)+
  671.     MOVE.L    (A0)+,(A1)+
  672.     MOVE.L    (A0)+,(A1)+
  673.     MOVE.L    (A0)+,(A1)+
  674.     DBRA    D7,1$
  675.  
  676.     BRA    lbC0008F2
  677.  
  678. lbC0009E4    MOVE.B    io+$201,D0
  679.     MOVE.B    D0,$3FFB3
  680.     MOVE.B    D0,$3FFD3
  681.     MOVE.B    io+$203,D0
  682.     MOVE.B    D0,$3FFB6
  683.     MOVE.B    D0,$3FFD6
  684.     BRA    lbC0008F2
  685.  
  686. Corners    LEA    scr-scrsize,A0
  687.     EOR.B    #$E0,0(A0)
  688.     EOR.B    #$80,$50(A0)
  689.     EOR.B    #$80,$A0(A0)
  690.     EOR.B    #7,$4F(A0)
  691.     EOR.B    #1,$9F(A0)
  692.     EOR.B    #1,$EF(A0)
  693.     EOR.B    #$80,$7C10(A0)
  694.     EOR.B    #$80,$7C60(A0)
  695.     EOR.B    #$E0,$7CB0(A0)
  696.     EOR.B    #1,$7C5F(A0)
  697.     EOR.B    #1,$7CAF(A0)
  698.     EOR.B    #7,$7CFF(A0)
  699.     RTS
  700.  
  701. lbC000A5C    MOVEM.L    D1/D2/A0/A1/A5,-(SP)
  702.     SUB.L    A5,A5
  703.     LEA    $3FFF0,A0
  704.     CLR.W    D0
  705.     MOVE.W    #$FF00,_custom+potgo
  706.     BTST    #6,$BFE001
  707.     BNE.S    lbC000A80
  708.     BSET    #1,D0
  709. lbC000A80    BTST    #2,_custom+potinp
  710.     BNE.S    lbC000A8E
  711.     BSET    #0,D0
  712. lbC000A8E    OR.B    #$F8,D0
  713.     MOVE.B    D0,(A0)
  714.     MOVE.W    _custom+joy0dat,D2
  715.     MOVE.L    $3FF12,$3FF0E
  716.     MOVE.B    D2,D1
  717.     MOVE.W    D1,$3FF12
  718.     SUB.W    $3FF0E,D1
  719.     LSR.W    #8,D2
  720.     MOVE.W    D2,$3FF14
  721.     SUB.W    $3FF10,D2
  722.     MOVE.B    D1,1(A0)
  723.     MOVE.B    D2,2(A0)
  724.     MOVE.L    $E22,A1
  725.     MOVE.L    A1,D0
  726.     TST.L    D0
  727.     BMI.S    lbC000AD8
  728.     JSR    (A1)
  729. lbC000AD8    MOVEM.L    (SP)+,D1/D2/A0/A1/A5
  730.     RTS
  731.  
  732. lbC000ADE    MOVEM.L    D0-D7/A0-A6,-(SP)
  733.     SUB.L    A5,A5
  734.     MOVE.B    $BFED01,D0
  735.     MOVE.W    #8,_custom+intreq
  736.     MOVE.B    $BFEC01,D0
  737.     BSET    #6,$BFEE01
  738.     MOVE.B    #0,$BFEC01
  739.     BCLR    #6,$BFEE01
  740.     NOT.B    D0
  741.     ROR.B    #1,D0
  742.     MOVE.B    D0,D1
  743.     BSR.S    lbC000B70
  744.     AND.W    #$7F,D1
  745.     CMP.B    #$62,D1
  746.     BEQ.S    lbC000B46
  747.     LEA    scancode(PC),A0
  748.     MOVE.B    0(A0,D1.W),D3
  749.     AND.B    #$80,D0
  750.     OR.B    D3,D0
  751.     CLR.W    D1
  752.     LEA    $C76,A0
  753.     JSR    $42B5C
  754.     MOVEM.L    (SP)+,D0-D7/A0-A6
  755.     RTE
  756.  
  757. lbC000B46    CLR.W    D1
  758.     MOVE.B    #$3A,D0
  759.     LEA    $C76,A0
  760.     JSR    $42B5C
  761.     CLR.W    D1
  762.     MOVE.B    #$BA,D0
  763.     LEA    $C76,A0
  764.     JSR    $42B5C
  765.     MOVEM.L    (SP)+,D0-D7/A0-A6
  766.     RTE
  767.  
  768. lbC000B70    MOVEM.L    D0-D3/A0,-(SP)
  769.     MOVE.B    $3FF3A,D3
  770.     LEA    cdeON.MSG(PC),A0
  771.     MOVEQ    #0,D0
  772. lbC000B80    MOVE.B    (A0)+,D2
  773.     CMP.B    D1,D2
  774.     BNE.S    lbC000B8A
  775.     BSET    D0,D3
  776.     BRA.S    lbC000B94
  777.  
  778. lbC000B8A    OR.B    #$80,D2
  779.     CMP.B    D1,D2
  780.     BNE.S    lbC000B94
  781.     BCLR    D0,D3
  782. lbC000B94    ADDQ.B    #1,D0
  783.     CMP.B    #5,D0
  784.     BNE.S    lbC000B80
  785.     MOVE.B    D3,$3FF3A
  786.     MOVEM.L    (SP)+,D0-D3/A0
  787.     RTS
  788.  
  789. cdeON.MSG    dc.b    'cdeON',0
  790. scancode    dc.b    0
  791.     dc.b    2
  792.     dc.b    3
  793.     dc.b    4
  794.     dc.b    5
  795.     dc.b    6
  796.     dc.b    7
  797.     dc.b    8
  798.     dc.b    9
  799.     dc.b    10
  800.     dc.b    11
  801.     dc.b    12
  802.     dc.b    13
  803.     dc.b    $2B
  804.     dc.b    0
  805.     dc.b    $70
  806.     dc.b    $10
  807.     dc.b    $11
  808.     dc.b    $12
  809.     dc.b    $13
  810.     dc.b    $14
  811.     dc.b    $15
  812.     dc.b    $16
  813.     dc.b    $17
  814.     dc.b    $18
  815.     dc.b    $19
  816.     dc.b    $1A
  817.     dc.b    $1B
  818.     dc.b    0
  819.     dc.b    $6D
  820.     dc.b    $6E
  821.     dc.b    $6F
  822.     dc.b    $1E
  823.     dc.b    $1F
  824.     dc.b    $20
  825.     dc.b    $21
  826.     dc.b    $22
  827.     dc.b    $23
  828.     dc.b    $24
  829.     dc.b    $25
  830.     dc.b    $26
  831.     dc.b    $27
  832.     dc.b    $28
  833.     dc.b    $29
  834.     dc.b    0
  835.     dc.b    $6A
  836.     dc.b    $6B
  837.     dc.b    $6C
  838.     dc.b    $60
  839.     dc.b    $2C
  840.     dc.b    $2D
  841.     dc.b    $2E
  842.     dc.b    $2F
  843.     dc.b    $30
  844.     dc.b    $31
  845.     dc.b    $32
  846.     dc.b    $33
  847.     dc.b    $34
  848.     dc.b    $35
  849.     dc.b    0
  850.     dc.b    $71
  851.     dc.b    $67
  852.     dc.b    $68
  853.     dc.b    $69
  854.     dc.b    $39
  855.     dc.b    14
  856.     dc.b    15
  857.     dc.b    $72
  858.     dc.b    $1C
  859.     dc.b    1
  860.     dc.b    $53
  861.     dcb.b    3,0
  862.     dc.b    $4A
  863.     dc.b    0
  864.     dc.b    $48
  865.     dc.b    $50
  866.     dc.b    $4D
  867.     dc.b    $4B
  868.     dc.b    $3B
  869.     dc.b    $3C
  870.     dc.b    $3D
  871.     dc.b    $3E
  872.     dc.b    $3F
  873.     dc.b    $40
  874.     dc.b    $41
  875.     dc.b    $42
  876.     dc.b    $43
  877.     dc.b    $44
  878.     dc.b    $63
  879.     dc.b    $64
  880.     dc.b    $65
  881.     dc.b    $66
  882.     dc.b    $4E
  883.     dc.b    $62
  884.     dc.b    $2A
  885.     dc.b    $36
  886.     dc.b    $3A
  887.     dc.b    $1D
  888.     dc.b    $38
  889.     dc.b    $61
  890.     dc.b    $52
  891.     dc.b    $47
  892.     dcb.b    2,0
  893.  
  894. lbC000C1A    MOVEM.L    D0/D1,-(SP)
  895.     TST.B    $3FF39
  896.     BNE    lbC000C5C
  897.     MOVE.B    #1,$3FF38
  898.     MOVE.B    #$28,$3FF39
  899.     MOVEQ    #0,D0
  900.     MOVE.B    $3FF3B,D0
  901.     BSR.S    lbC000C68
  902.     MOVEQ    #2,D1
  903.     ADDQ.B    #1,$3FF3B
  904. lbC000C4C    ADDQ.B    #1,D0
  905.     CMP.B    D1,D0
  906.     BNE.S    lbC000C5C
  907.     MOVE.B    #0,$3FF3B
  908. lbC000C5C    SUBQ.B    #1,$3FF39
  909.     MOVEM.L    (SP)+,D0/D1
  910.     RTS
  911.  
  912. lbC000C68    MOVEM.L    D0-D7/A0-A2,-(SP)
  913.     LEA    $3FF34,A0
  914.     LEA    $3FF40,A1
  915.     LEA    $3FF3C,A2
  916.     BSR    lbC000D2A
  917.     TST.B    0(A0,D0.W)
  918.     BNE.S    lbC000C8E
  919.     CLR.B    0(A1,D0.W)
  920. lbC000C8E    TST.B    0(A1,D0.W)
  921.     BEQ.S    lbC000CA2
  922.     BSET    #1,$BFD100
  923.     BRA.S    lbC000CAA
  924.  
  925. lbC000CA2    BCLR    #1,$BFD100
  926. lbC000CAA    MOVE.B    0(A2,D0.W),D1
  927.     CMP.B    #$FF,D1
  928.     BNE.S    lbC000CEA
  929.     BCLR    #0,$BFD100
  930.     NOP
  931.     NOP
  932.     NOP
  933.     BSET    #0,$BFD100
  934.     TST.B    0(A1,D0.W)
  935.     BEQ.S    lbC000CE0
  936.     SUBQ.B    #1,0(A0,D0.W)
  937.     CLR.B    0(A1,D0.W)
  938.     BRA.S    lbC000CEA
  939.  
  940. lbC000CE0    ADDQ.B    #1,0(A0,D0.W)
  941.     MOVE.B    #1,0(A1,D0.W)
  942. lbC000CEA    BTST    #2,$BFE001
  943.     BEQ.S    lbC000D06
  944.     CMP.B    #$FF,D1
  945.     BNE.S    lbC000D20
  946.     MOVE.B    #2,0(A2,D0.W)
  947.     BRA.S    lbC000D20
  948.  
  949. lbC000D06    MOVE.B    #$FF,0(A2,D0.W)
  950.     MOVE.W    temp1,D1
  951.     CMP.W    D0,D1
  952.     BNE.S    lbC000D20
  953.     MOVE.W    #$FFFF,temp1
  954. lbC000D20    BSR.S    lbC000D42
  955.     MOVEM.L    (SP)+,D0-D7/A0-A2
  956.     RTS
  957.  
  958. lbC000D2A    MOVE.L    D0,D6
  959.     ADDQ.L    #3,D6
  960.     MOVE.B    #$7D,$BFD100
  961.     NOP
  962.     NOP
  963.     BCLR    D6,$BFD100
  964.     RTS
  965.  
  966. lbC000D42    MOVE.L    D0,D6
  967.     ADDQ.L    #3,D6
  968.     MOVE.B    #$FD,$BFD100
  969.     NOP
  970.     NOP
  971.     BCLR    D6,$BFD100
  972.     BSET    D6,$BFD100
  973.     RTS
  974.  
  975. lbC000D60    RTS
  976.  
  977. lbC000D62    LEA    XBIOS,A0
  978.     BRA.S    lbC000D70
  979.  
  980. lbC000D6A    LEA    BIOS,A0
  981. lbC000D70    MOVE.L    $4A2,A1
  982.     MOVE.W    (SP)+,D0
  983.     MOVE.W    D0,-(A1)
  984.     MOVE.L    (SP)+,-(A1)
  985.     MOVEM.L    D3-D7/A3-A7,-(A1)
  986.     MOVE.L    A1,$4A2
  987.     BTST    #13,D0
  988.     BNE.S    lbC000D8E
  989.     MOVE    USP,SP
  990. lbC000D8E    MOVE.W    (SP)+,D0
  991.     CMP.W    (A0)+,D0
  992.     BGE.S    lbC000DA4
  993.     LSL.W    #2,D0
  994.     MOVE.L    0(A0,D0.W),D0
  995.     MOVE.L    D0,A0
  996.     BPL.S    lbC000DA0
  997.     MOVE.L    (A0),A0
  998. lbC000DA0    SUB.L    A5,A5
  999.     JSR    (A0)
  1000. lbC000DA4    MOVE.L    $4A2,A1
  1001.     MOVEM.L    (A1)+,D3-D7/A3-A7
  1002.     MOVE.L    (A1)+,-(SP)
  1003.     MOVE.W    (A1)+,-(SP)
  1004.     MOVE.L    A1,$4A2
  1005.     RTE
  1006.  
  1007. BIOS    dc.w    12
  1008.     dc.l    $40A46
  1009.     dc.l    BCONSTAT
  1010.     dc.l    BCONIN
  1011.     dc.l    BCONOUT
  1012.     dc.l    $80000476
  1013.     dc.l    $40A72
  1014.     dc.l    $40A8A
  1015.     dc.l    $80000472
  1016.     dc.l    BCOSTAT
  1017.     dc.l    $8000047E
  1018.     dc.l    $40A2E
  1019.     dc.l    $40A34
  1020. XBIOS    dc.w    $41
  1021.     dc.l    INITMOUSE
  1022.     dc.l    $40670
  1023.     dc.l    $40A92
  1024.     dc.l    $40AA6
  1025.     dc.l    GETREZ
  1026.     dc.l    SETSCREEN
  1027.     dc.l    $40B06
  1028.     dc.l    $40B0E
  1029.     dc.l    FLOPRD
  1030.     dc.l    FLOPWR
  1031.     dc.l    FLOPFMT
  1032.     dc.l    $40FC0
  1033.     dc.l    DUMMY
  1034.     dc.l    DUMMY
  1035.     dc.l    $428F6
  1036.     dc.l    DUMMY
  1037.     dc.l    $43088
  1038.     dc.l    $41510
  1039.     dc.l    $415F8
  1040.     dc.l    $41AE2
  1041.     dc.l    $40D50
  1042.     dc.l    $446F2
  1043.     dc.l    SETTIME
  1044.     dc.l    GETTIME
  1045.     dc.l    $430B4
  1046.     dc.l    DUMMY
  1047.     dc.l    DUMMY
  1048.     dc.l    DUMMY
  1049.     dc.l    GIACCESS
  1050.     dc.l    OFFGIBIT
  1051.     dc.l    ONGIBIT
  1052.     dc.l    DUMMY
  1053.     dc.l    DOSOUND
  1054.     dc.l    $430E2
  1055.     dc.l    $43116
  1056.     dc.l    $430F4
  1057.     dc.l    $43254
  1058.     dc.l    $407D0
  1059.     dc.l    $4097E
  1060.     dc.l    $40B34
  1061.     dc.l    DUMMY
  1062.     dcb.l    $17,$40670
  1063.     dc.l    $40EF6
  1064.  
  1065. GIACCESS    MOVE.W    #$F0,_custom+color0
  1066.     MOVEQ    #0,D0
  1067.     MOVEQ    #0,D1
  1068.     LEA    io+$880,A0    ; snd
  1069.     MOVE.B    4(SP),D0
  1070.     MOVE.W    6(SP),D1
  1071.     BTST    #7,D1
  1072.     BEQ.S    lbC000F20
  1073.     AND.B    #15,D0
  1074.     MOVE.B    D0,0(A0,D1.W)
  1075.     CLR.B    D0
  1076.     RTS
  1077.  
  1078. lbC000F20    MOVE.B    0(A0,D1.W),D0
  1079.     RTS
  1080.  
  1081. OFFGIBIT    MOVEQ    #0,D0
  1082.     RTS
  1083.  
  1084. ONGIBIT    MOVEQ    #0,D0
  1085.     RTS
  1086.  
  1087. DOSOUND    MOVEQ    #0,D0
  1088.     RTS
  1089.  
  1090. BCONSTAT    MOVE    #$2100,SR
  1091.     CMP.W    #0,4(SP)
  1092.     BEQ.S    lbC000F48
  1093.     CMP.W    #2,4(SP)
  1094.     BNE    DUMMY
  1095. lbC000F48    JMP    $40984
  1096.  
  1097. BCONIN    CMP.W    #2,4(SP)
  1098.     BNE    DUMMY
  1099.     MOVE    #$2100,SR
  1100.     JMP    $4098C
  1101.  
  1102. BCONOUT    CMP.W    #0,4(SP)
  1103.     BEQ.S    lbC000F82
  1104.     CMP.W    #2,4(SP)
  1105.     BEQ.S    lbC000F7C
  1106.     CMP.W    #5,4(SP)
  1107.     BNE    DUMMY
  1108. lbC000F7C    JMP    $4099C
  1109.  
  1110. lbC000F82    BTST    #2,$BFD000
  1111.     BEQ    DUMMY
  1112. lbC000F8E    BTST    #0,$BFD000
  1113.     BNE.S    lbC000F8E
  1114.     MOVE.B    #$FF,$BFE301
  1115.     MOVE.B    7(SP),$BFE101
  1116.     MOVEQ    #1,D0
  1117.     RTS
  1118.  
  1119. BCOSTAT    CMP.W    #0,4(SP)
  1120.     BEQ.S    lbC000FC4
  1121.     CMP.W    #2,4(SP)
  1122.     BNE    DUMMY
  1123.     JMP    $40994
  1124.  
  1125. lbC000FC4    BTST    #0,$BFD000
  1126.     BNE    DUMMY
  1127.     MOVEQ    #-$1,D0
  1128.     RTS
  1129.  
  1130. INITMOUSE    MOVE.L    10(SP),$E22
  1131.     MOVE.W    #1,$3FF0A
  1132.     MOVEQ    #-$1,D0
  1133.     RTS
  1134.  
  1135. SETSCREEN    TST.L    4(SP)
  1136.     BMI.S    lbC000FF4
  1137.     MOVE.L    4(SP),$44E(A5)
  1138. lbC000FF4    TST.L    8(SP)
  1139.     BMI.S    lbC00100A
  1140.     MOVE.B    9(SP),io+$201
  1141.     MOVE.B    10(SP),io+$203
  1142. lbC00100A    TST.W    12(SP)
  1143.     BMI.S    lbC001028
  1144.     MOVE.B    13(SP),D0
  1145.     CMP.B    $44C(A5),D0
  1146.     BEQ.S    lbC001028
  1147.     MOVE.B    D0,$44C(A5)
  1148.     MOVE.B    D0,io+$260
  1149.     BRA    Warmstart
  1150.  
  1151. lbC001028    RTS
  1152.  
  1153. GETREZ    MOVEQ    #0,D0
  1154.     MOVE.B    $44C,D0
  1155.     RTS
  1156.  
  1157. FLOPRD    MOVE.W    12(SP),$3FF22
  1158.     BSR    lbC00136E
  1159.     TST.L    D0
  1160.     BNE.S    lbC001072
  1161.     MOVE.W    $12(SP),$3FF24
  1162.     MOVE.W    $10(SP),$3FF26
  1163.     MOVE.W    14(SP),$3FF28
  1164.     MOVE.W    $14(SP),$3FF2A
  1165.     MOVE.L    4(SP),$3FF2C
  1166.     BSR    lbC0014F2
  1167. lbC001072    BSR    lbC001422
  1168.     TST.L    D0
  1169.     RTS
  1170.  
  1171. FLOPWR    MOVE.W    12(SP),$3FF22
  1172.     BSR    lbC00136E
  1173.     TST.L    D0
  1174.     BNE.S    lbC0010B8
  1175.     MOVE.W    $12(SP),$3FF24
  1176.     MOVE.W    $10(SP),$3FF26
  1177.     MOVE.W    14(SP),$3FF28
  1178.     MOVE.W    $14(SP),$3FF2A
  1179.     MOVE.L    4(SP),$3FF2C
  1180.     BSR    lbC0016F0
  1181. lbC0010B8    BSR    lbC001422
  1182.     TST.L    D0
  1183.     RTS
  1184.  
  1185. FLOPFMT    CMP.L    #$87654321,$16(SP)
  1186.     BNE.S    DUMMY
  1187.     MOVE.W    12(SP),$3FF22
  1188.     BSR    lbC00136E
  1189.     TST.L    D0
  1190.     BNE.S    lbC00110A
  1191.     MOVE.W    $12(SP),$3FF24
  1192.     MOVE.W    $10(SP),$3FF26
  1193.     MOVE.W    14(SP),$3FF32
  1194.     MOVE.L    4(SP),$3FF2C
  1195.     MOVE.W    $1A(SP),$3FF30
  1196.     BSR    lbC001A68
  1197. lbC00110A    BSR    lbC001422
  1198.     TST.L    D0
  1199.     RTS
  1200.  
  1201. DUMMY    CLR.L    D0
  1202.     RTS
  1203.  
  1204. lbC001116    MOVEQ    #-$2,D0
  1205.     TST.L    D0
  1206.     RTS
  1207.  
  1208. lbC00111C    MOVE.W    #2,$4A6
  1209.     MOVE.L    #3,$4C2
  1210.     MOVEQ    #1,D0
  1211. lbC001130    MOVE.W    D0,$3FF22
  1212.     MOVE.L    D0,-(SP)
  1213.     BSR    lbC00135E
  1214.     MOVE.L    (SP)+,D0
  1215.     TST.L    D6
  1216.     BPL.S    lbC001150
  1217.     SUBQ.W    #1,$4A6
  1218.     BCLR    D0,$4C5
  1219. lbC001150    DBRA    D0,lbC001130
  1220.  
  1221.     BSR    GETTIME
  1222.     SWAP    D0
  1223.     MOVE.W    D0,-(SP)
  1224.     MOVE.W    #$2B,-(SP)
  1225.     TRAP    #1
  1226.     ADDQ.L    #4,SP
  1227.     BSR    GETTIME
  1228.     MOVE.W    D0,-(SP)
  1229.     MOVE.W    #$2D,-(SP)
  1230.     TRAP    #1
  1231.     ADDQ.L    #4,SP
  1232.     RTS
  1233.  
  1234. lbC001174    TST.L    6(SP)
  1235.     BEQ    lbC001276
  1236.     MOVE.L    6(SP),A0
  1237.     MOVE.W    14(SP),$3FF22
  1238.     BSR    lbC00136E
  1239.     TST.L    D0
  1240.     BNE    lbC00128C
  1241.     MOVE.W    12(SP),D6
  1242.     MOVE.W    10(SP),D7
  1243.     MOVE.L    #$7590,A1
  1244.     CMP.W    #1,$3FF22
  1245.     BEQ.S    lbC0011B0
  1246.     MOVE.L    #$7570,A1
  1247. lbC0011B0    CLR.W    $3FF24
  1248.     MOVE.W    D6,D0
  1249.     EXT.L    D0
  1250.     DIVU    $16(A1),D0
  1251.     MOVE.W    D0,$3FF26
  1252.     SWAP    D0
  1253.     CMP.W    $18(A1),D0
  1254.     BLT.S    lbC0011D8
  1255.     MOVE.W    #1,$3FF24
  1256.     SUB.W    $18(A1),D0
  1257. lbC0011D8    MOVE.W    D0,D1
  1258.     ADDQ.W    #1,D1
  1259.     MOVE.W    D1,$3FF28
  1260.     MOVE.W    D0,D1
  1261.     ADD.W    D7,D1
  1262.     CMP.W    $18(A1),D1
  1263.     BLE.S    lbC0011F0
  1264.     MOVE.W    $18(A1),D1
  1265. lbC0011F0    SUB.W    D0,D1
  1266.     MOVE.W    D1,$3FF2A
  1267.     MOVE.L    A0,$3FF2C
  1268.     MOVE.W    4(SP),D0
  1269.     CMP.W    #0,D0
  1270.     BEQ.S    lbC001240
  1271.     CMP.W    #1,D0
  1272.     BEQ.S    lbC001226
  1273.     CMP.W    #2,D0
  1274.     BEQ.S    lbC00124C
  1275.     CMP.W    #3,D0
  1276.     BEQ.S    lbC001232
  1277.     MOVEQ    #-$5,D0
  1278.     BRA.S    lbC00128C
  1279.  
  1280. lbC001226    MOVEM.L    D6/D7/A1,-(SP)
  1281.     BSR    lbC0016F0
  1282.     BRA.S    lbC001256
  1283.  
  1284. lbC001232    MOVEM.L    D6/D7/A1,-(SP)
  1285.     BSR    lbC0016F0
  1286.     CLR.L    D0
  1287.     BRA.S    lbC001256
  1288.  
  1289. lbC001240    MOVEM.L    D6/D7/A1,-(SP)
  1290.     BSR    lbC0014F2
  1291.     BRA.S    lbC001256
  1292.  
  1293. lbC00124C    MOVEM.L    D6/D7/A1,-(SP)
  1294.     BSR    lbC0014F2
  1295.     CLR.L    D0
  1296. lbC001256    MOVEM.L    (SP)+,D6/D7/A1
  1297.     TST.L    D0
  1298.     BNE.S    lbC00128C
  1299.     ADD.W    $3FF2A,D6
  1300.     SUB.W    $3FF2A,D7
  1301.     BNE    lbC0011B0
  1302.     BSR    lbC001422
  1303.     CLR.L    D0
  1304.     RTS
  1305.  
  1306. lbC001276    MOVE.W    14(SP),D0
  1307.     MOVE.W    10(SP),D1
  1308.     LEA    $3FF3C,A0
  1309.     MOVE.B    D1,0(A0,D0.W)
  1310.     CLR.L    D0
  1311.     RTS
  1312.  
  1313. lbC00128C    BSR    lbC001422
  1314.     TST.L    D0
  1315.     RTS
  1316.  
  1317. lbC001294    TST.B    $3FF38
  1318.     BNE.S    lbC001294
  1319.     LEA    $3FF3C,A0
  1320.     MOVE.W    4(SP),D0
  1321.     MOVEQ    #0,D1
  1322.     MOVE.B    0(A0,D0.W),D1
  1323.     TST.B    D1
  1324.     BMI.S    lbC0012BC
  1325.     CLR.B    0(A0,D0.W)
  1326.     MOVE.L    D1,D0
  1327.     RTS
  1328.  
  1329. lbC0012BC    MOVEQ    #0,D0
  1330.     RTS
  1331.  
  1332. lbC0012C0    LINK    A6,#0
  1333.     MOVEM.L    D6/D7,-(SP)
  1334.     JSR    lbC00111C
  1335.     TST.W    $4A6
  1336.     BEQ.S    lbC0012DA
  1337.     MOVEQ    #1,D0
  1338.     BRA.S    lbC0012DC
  1339.  
  1340. lbC0012DA    MOVEQ    #2,D0
  1341. lbC0012DC    MOVE.W    D0,D7
  1342.     TST.W    $4A6
  1343.     BEQ.S    lbC00132A
  1344.     CMP.W    #2,$446
  1345.     BGE.S    lbC00132A
  1346.     MOVE.W    #1,(SP)
  1347.     CLR.W    -(SP)
  1348.     CLR.W    -(SP)
  1349.     MOVE.W    #1,-(SP)
  1350.     MOVE.W    $446,-(SP)
  1351.     CLR.L    -(SP)
  1352.     MOVE.L    #$16DA,-(SP)
  1353.     JSR    FLOPRD
  1354.     ADD.L    #$10,SP
  1355.     TST.L    D0
  1356.     BNE.S    lbC00131E
  1357.     CLR.W    D7
  1358.     BRA.S    lbC00132A
  1359.  
  1360. lbC00131E    TST.B    $9F8
  1361.     BNE.S    lbC00132A
  1362.     MOVEQ    #3,D0
  1363.     BRA.S    lbC001350
  1364.  
  1365. lbC00132A    TST.W    D7
  1366.     BEQ.S    lbC001332
  1367.     MOVE.W    D7,D0
  1368.     BRA.S    lbC001350
  1369.  
  1370. lbC001332    MOVE.W    #$100,(SP)
  1371.     MOVE.L    #$16DA,-(SP)
  1372.     JSR    $416E4
  1373.     ADDQ.L    #4,SP
  1374.     CMP.W    #$1234,D0
  1375.     BNE.S    lbC00134E
  1376.     CLR.W    D0
  1377.     BRA.S    lbC001350
  1378.  
  1379. lbC00134E    MOVEQ    #4,D0
  1380. lbC001350    TST.L    (SP)+
  1381.     MOVE.L    (SP)+,D7
  1382.     UNLK    A6
  1383.     RTS
  1384.  
  1385. lbC001358    DBRA    D0,lbC001358
  1386.  
  1387.     RTS
  1388.  
  1389. lbC00135E    BSR.S    lbC00136E
  1390.     MOVE.L    #$5A,D6
  1391.     BSR    lbC0014A0
  1392.     RTS
  1393.  
  1394. lbC00136E    TST.B    $3FF38
  1395.     BNE.S    lbC00136E
  1396.     MOVE.W    #1,$3FF1E
  1397.     MOVE.W    $3FF1C,D0
  1398.     CMP.W    $3FF22,D0
  1399.     BEQ.S    lbC0013A2
  1400.     BSR    lbC001464
  1401.     CLR.W    $3FF20
  1402.     MOVE.W    $3FF22,$3FF1C
  1403. lbC0013A2    MOVE.W    $3FF1C,D0
  1404.     TST.W    $3FF20
  1405.     BNE.S    lbC001416
  1406.     BSR.S    lbC00142A
  1407.     BCLR    #1,$BFD100
  1408.     BCLR    #0,$BFD100
  1409.     NOP
  1410.     NOP
  1411.     NOP
  1412.     NOP
  1413.     BSET    #0,$BFD100
  1414.     MOVE.L    D7,-(SP)
  1415.     MOVE.L    #$A88,D7
  1416.     BSR    lbC001CC0
  1417.     MOVE.L    (SP)+,D7
  1418.     MOVE.L    A0,-(SP)
  1419.     MOVE.W    $3FF22,D0
  1420.     LEA    $3FF34,A0
  1421.     ADDQ.B    #1,0(A0,D0.W)
  1422.     MOVE.L    (SP)+,A0
  1423.     BTST    #2,$BFE001
  1424.     BNE.S    lbC001416
  1425.     CLR.W    $3FF1E
  1426.     MOVE.W    #$64,$3FF20
  1427.     MOVE.L    #$FFFFFFEF,D0
  1428.     RTS
  1429.  
  1430. lbC001416    MOVE.W    #$64,$3FF20
  1431.     MOVEQ    #0,D0
  1432.     RTS
  1433.  
  1434. lbC001422    CLR.W    $3FF1E
  1435.     RTS
  1436.  
  1437. lbC00142A    ADDQ.W    #3,D0
  1438.     MOVE.B    #$FF,$BFD300
  1439.     MOVE.B    #3,$BFE201
  1440.     BSET    D0,$BFD100
  1441.     BSET    #0,$BFD100
  1442.     BCLR    #7,$BFD100
  1443.     BCLR    D0,$BFD100
  1444.     MOVEQ    #5,D7
  1445. lbC00145A    BSR    lbC001C9C
  1446.     DBRA    D7,lbC00145A
  1447.  
  1448.     RTS
  1449.  
  1450. lbC001464    MOVE.W    $3FF1C,D0
  1451.     ADDQ.W    #3,D0
  1452.     MOVE.W    #dsksize,_custom+dsklen
  1453.     BSET    D0,$BFD100
  1454.     BSET    #7,$BFD100
  1455.     NOP
  1456.     NOP
  1457.     NOP
  1458.     BCLR    D0,$BFD100
  1459.     NOP
  1460.     NOP
  1461.     NOP
  1462.     NOP
  1463.     NOP
  1464.     BSET    D0,$BFD100
  1465.     RTS
  1466.  
  1467. lbC0014A0    MOVE.B    $BFE001,D0
  1468.     BTST    #4,D0
  1469.     BEQ.S    lbC0014DE
  1470.     BSET    #1,$BFD100
  1471.     BCLR    #0,$BFD100
  1472.     NOP
  1473.     NOP
  1474.     NOP
  1475.     NOP
  1476.     BSET    #0,$BFD100
  1477.     MOVE.L    #$A88,D7
  1478.     BSR    lbC001CC0
  1479.     SUBQ.L    #1,D6
  1480.     BNE.S    lbC0014A0
  1481.     MOVEQ    #-$1,D6
  1482.     RTS
  1483.  
  1484. lbC0014DE    MOVE.W    $3FF22,D1
  1485.     LEA    $3FF34,A0
  1486.     CLR.B    0(A0,D1.W)
  1487.     MOVEQ    #0,D6
  1488. lbC0014F0    RTS
  1489.  
  1490. lbC0014F2    MOVE.W    $3FF22,D0
  1491.     MOVE.W    temp1,D1
  1492.     CMP.W    D0,D1
  1493.     BNE.S    lbC00152C
  1494.     MOVE.W    $3FF24,D0
  1495.     MOVE.W    temp2,D1
  1496.     CMP.W    D0,D1
  1497.     BNE.S    lbC00152C
  1498.     MOVE.W    $3FF26,D0
  1499.     MOVE.W    temp3,D1
  1500.     CMP.W    D0,D1
  1501.     BNE.S    lbC00152C
  1502.     BRA    lbC0015BE
  1503.  
  1504. lbC00152C    BSR    lbC001CCA
  1505.     MOVE.L    #$A88,D7
  1506.     BSR    lbC001CC0
  1507.     BTST    #2,$BFE001
  1508.     BEQ    lbC001A60
  1509.     BSET    #2,$BFD100
  1510.     TST.W    $3FF24
  1511.     BEQ.S    lbC00155E
  1512.     BCLR    #2,$BFD100
  1513. lbC00155E    MOVE.W    #2,_custom+intreq
  1514.     MOVE.L    #dsk,_custom+dskpth
  1515.     MOVE.W    #sync,_custom+dsksync
  1516.     MOVE.W    #$7F00,_custom+adkcon
  1517.     MOVE.W    #$9500,_custom+adkcon
  1518.     MOVE.W    #$8210,_custom+dmacon
  1519.     BSR    lbC001C9C
  1520.     MOVE.W    #dsksize,_custom+dsklen
  1521.     MOVE.W    #$9A00,_custom+dsklen
  1522.     MOVE.W    #$9A00,_custom+dsklen
  1523.     BSR    lbC001D20
  1524.     MOVE.W    #dsksize,_custom+dsklen
  1525.     TST.L    D0
  1526.     BEQ.S    lbC0015F2
  1527.     RTS
  1528.  
  1529. lbC0015BE    MOVEQ    #0,D0
  1530.     MOVEQ    #0,D1
  1531.     MOVE.W    $3FF28,D0
  1532.     MOVE.W    $3FF2A,D1
  1533.     MOVE.L    $3FF2C,A0
  1534.     SUBQ.L    #1,D0
  1535.     LSL.L    #8,D0
  1536.     LSL.L    #1,D0
  1537.     LEA    buffer,A1
  1538.     ADD.L    D0,A1
  1539.     LSL.L    #8,D1
  1540.     LSL.L    #1,D1
  1541.     SUBQ.L    #1,D1
  1542. lbC0015E8    MOVE.B    (A1)+,(A0)+
  1543.     DBRA    D1,lbC0015E8
  1544.  
  1545.     CLR.L    D0
  1546.     RTS
  1547.  
  1548. lbC0015F2    LEA    $38004,A1
  1549.     MOVE.L    A1,A0
  1550.     LEA    lbL00206A,A2
  1551.     LEA    lbW00216A,A3
  1552.     MOVE.W    #$19FF,D7
  1553.     MOVEQ    #0,D1
  1554. lbC00160C    MOVE.B    (A1)+,D1
  1555.     MOVE.B    0(A2,D1.W),D0
  1556.     MOVE.B    (A1)+,D1
  1557.     OR.B    0(A3,D1.W),D0
  1558.     MOVE.B    D0,(A0)+
  1559.     DBRA    D7,lbC00160C
  1560.  
  1561.     MOVE.W    $3FF28,D0
  1562.     MOVE.W    $3FF2A,D1
  1563.     SUBQ.W    #1,D1
  1564.     MOVE.L    $3FF2C,A0
  1565. lbC001632    LEA    $38004,A1
  1566.     LEA    $39B5C,A2
  1567.     MOVE.B    #$A1,$1B58(A1)
  1568.     MOVE.B    #$A1,$1B59(A1)
  1569.     MOVE.B    #$FE,$1B5A(A1)
  1570. lbC001650    CMP.B    #$A1,(A1)+
  1571.     BNE.S    lbC001650
  1572.     CMP.B    #$FE,(A1)
  1573.     BNE.S    lbC001650
  1574.     CMP.B    3(A1),D0
  1575.     BEQ.S    lbC001682
  1576.     CMP.B    #1,D0
  1577.     BNE.S    lbC001676
  1578.     MOVEQ    #12,D7
  1579.     CMP.B    3(A1),D7
  1580.     BEQ.S    lbC001682
  1581. lbC001676    CMP.L    A2,A1
  1582.     BLT.S    lbC001650
  1583.     MOVE.L    #$FFFFFFF8,D0
  1584.     RTS
  1585.  
  1586. lbC001682    ADD.L    #$20,A1
  1587. lbC001688    CMP.B    #$A1,(A1)+
  1588.     BNE.S    lbC001688
  1589.     CMP.B    #$FB,(A1)
  1590.     BNE.S    lbC001688
  1591.     MOVE.B    #$FB,(A1)
  1592.     MOVE.B    #$A1,-(A1)
  1593.     MOVE.B    #$A1,-(A1)
  1594.     MOVE.B    #$A1,-(A1)
  1595.     ADDQ.L    #4,A1
  1596.     MOVE.W    #$1FF,D7
  1597. lbC0016AA    MOVE.B    (A1)+,(A0)+
  1598.     MOVE.L    A0,$3FF2C
  1599.     DBRA    D7,lbC0016AA
  1600.  
  1601.     MOVE.L    D6,-(SP)
  1602.     MOVEQ    #-$1,D6
  1603.     MOVEQ    #-$1,D7
  1604.     SUB.L    #$204,A1
  1605.     MOVE.L    #$205,D2
  1606.     BSR    lbC001E0A
  1607.     OR.B    D6,D7
  1608.     MOVE.L    (SP)+,D6
  1609.     TST.B    D7
  1610.     BEQ.S    lbC0016DA
  1611.     BSR    lbC001C5A
  1612. lbC0016DA    ADDQ.W    #1,D0
  1613.     DBRA    D1,lbC001632
  1614.  
  1615.     MOVEQ    #0,D0
  1616.     RTS
  1617.  
  1618.     MOVE.W    #15,_custom+color0
  1619.     MOVEQ    #-$4,D0
  1620.     RTS
  1621.  
  1622. lbC0016F0    LEA    lbC0016F0(PC),A6
  1623.     BSR    lbC001CCA
  1624.     MOVE.L    #$A88,D7
  1625.     BSR    lbC001CC0
  1626.     BTST    #2,$BFE001
  1627.     BEQ    lbC001A60
  1628.     BSET    #2,$BFD100
  1629.     TST.W    $3FF24
  1630.     BEQ.S    lbC001726
  1631.     BCLR    #2,$BFD100
  1632. lbC001726    MOVE.W    $3FF22,D0
  1633.     MOVE.W    temp1,D1
  1634.     CMP.W    D0,D1
  1635.     BNE.S    lbC001760
  1636.     MOVE.W    $3FF24,D0
  1637.     MOVE.W    temp2,D1
  1638.     CMP.W    D0,D1
  1639.     BNE.S    lbC001760
  1640.     MOVE.W    $3FF26,D0
  1641.     MOVE.W    temp3,D1
  1642.     CMP.W    D0,D1
  1643.     BNE.S    lbC001760
  1644.     BRA    lbC001808
  1645.  
  1646. lbC001760    MOVE.W    $3FF2A,-(SP)
  1647.     MOVE.W    $3FF28,-(SP)
  1648.     MOVE.L    $3FF2C,-(SP)
  1649.     MOVE.L    #buffer,$3FF2C
  1650.     MOVE.W    #9,$3FF2A
  1651.     MOVE.W    #1,$3FF28
  1652.     BSR    lbC00155E
  1653.     TST.L    D0
  1654.     BNE    lbC001A0A
  1655.     MOVE.L    #buffer+$1200,$3FF2C
  1656.     MOVE.W    #1,$3FF2A
  1657.     MOVE.W    #10,$3FF28
  1658.     BSR    lbC00155E
  1659.     MOVE.L    (SP)+,$3FF2C
  1660.     MOVE.W    (SP)+,$3FF28
  1661.     MOVE.W    (SP)+,$3FF2A
  1662.     MOVE.W    #9,$3FF32
  1663.     TST.L    D0
  1664.     BNE.S    lbC0017DC
  1665.     MOVE.W    #10,$3FF32
  1666. lbC0017DC    MOVE.W    $3FF22,temp1
  1667.     MOVE.W    $3FF24,temp2
  1668.     MOVE.W    $3FF26,temp3
  1669.     MOVE.W    $3FF32,temp4
  1670.     BRA.S    lbC001812
  1671.  
  1672. lbC001808    MOVE.W    temp4,$3FF32
  1673. lbC001812    LEA    buffer,A1
  1674.     MOVEQ    #0,D0
  1675.     MOVE.W    $3FF28,D0
  1676.     SUBQ.L    #1,D0
  1677.     LSL.L    #1,D0
  1678.     LSL.L    #8,D0
  1679.     ADD.L    D0,A1
  1680.     MOVE.L    $3FF2C,A2
  1681.     MOVE.W    $3FF2A,D1
  1682.     SUBQ.L    #1,D1
  1683. lbC001836    MOVE.L    #$1FF,D0
  1684. lbC00183C    MOVE.B    (A2)+,(A1)+
  1685.     DBRA    D0,lbC00183C
  1686.  
  1687.     DBRA    D1,lbC001836
  1688.  
  1689.     LEA    buffer,A2
  1690.     LEA    $38004,A1
  1691.     MOVEQ    #14,D0
  1692. lbC001854    MOVE.L    #gap4,(A1)+
  1693.     DBRA    D0,lbC001854
  1694.  
  1695.     MOVEQ    #1,D1
  1696. lbC001860    MOVEQ    #2,D0
  1697. lbC001862    CLR.L    (A1)+
  1698.     DBRA    D0,lbC001862
  1699.  
  1700.     MOVE.L    #$A1A1A1FE,(A1)+
  1701.     MOVE.B    $3FF27,(A1)+
  1702.     MOVE.B    $3FF25,(A1)+
  1703.     MOVE.B    D1,(A1)+
  1704.     MOVE.B    #2,(A1)+
  1705.     MOVEM.L    D2/D6/D7/A1,-(SP)
  1706.     SUBQ.L    #8,A1
  1707.     MOVEQ    #-$1,D6
  1708.     MOVEQ    #-$1,D7
  1709.     MOVEQ    #7,D2
  1710.     BSR    lbC001E0A
  1711.     MOVE.B    D6,(A1)+
  1712.     MOVE.B    D7,(A1)+
  1713.     MOVEM.L    (SP)+,D2/D6/D7/A1
  1714.     ADDQ.L    #2,A1
  1715.     MOVEQ    #10,D0
  1716. lbC00189C    MOVE.W    #gap2,(A1)+
  1717.     DBRA    D0,lbC00189C
  1718.  
  1719.     MOVEQ    #2,D0
  1720. lbC0018A6    CLR.L    (A1)+
  1721.     DBRA    D0,lbC0018A6
  1722.  
  1723.     MOVE.L    #$A1A1A1FB,(A1)+
  1724.     MOVE.L    #buffer,A2
  1725.     MOVE.L    D1,D0
  1726.     SUBQ.L    #1,D0
  1727.     LSL.L    #8,D0
  1728.     LSL.L    #1,D0
  1729.     ADD.L    D0,A2
  1730.     MOVEQ    #$7F,D0
  1731. lbC0018C4    MOVE.L    (A2)+,(A1)+
  1732.     DBRA    D0,lbC0018C4
  1733.  
  1734.     MOVEM.L    D2/D6/D7/A1,-(SP)
  1735.     SUB.L    #$204,A1
  1736.     MOVEQ    #-$1,D6
  1737.     MOVEQ    #-$1,D7
  1738.     MOVE.L    #$203,D2
  1739.     BSR    lbC001E0A
  1740.     MOVE.B    D6,(A1)+
  1741.     MOVE.B    D7,(A1)+
  1742.     MOVEM.L    (SP)+,D2/D6/D7/A1
  1743.     ADDQ.L    #2,A1
  1744.     MOVEQ    #9,D0
  1745. lbC0018EE    MOVE.L    #gap4,(A1)+
  1746.     DBRA    D0,lbC0018EE
  1747.  
  1748.     ADDQ.L    #1,D1
  1749.     MOVEQ    #0,D2
  1750.     MOVE.W    $3FF32,D2
  1751.     ADDQ.L    #1,D2
  1752.     CMP.L    D2,D1
  1753.     BNE    lbC001860
  1754.     LEA    $39A04,A0
  1755. lbC001910    MOVE.L    #gap4,(A1)+
  1756.     CMP.L    A0,A1
  1757.     BLT.S    lbC001910
  1758.     LEA    $3B404,A1
  1759.     LEA    $39A04,A0
  1760.     LEA    lbW00226A,A2
  1761.     MOVE.L    #$19FF,D1
  1762. lbC001934    MOVEQ    #0,D0
  1763.     MOVE.B    -(A0),D0
  1764.     ADD.W    D0,D0
  1765.     MOVE.W    0(A2,D0.W),D0
  1766.     MOVE.W    D0,-(A1)
  1767.     DBRA    D1,lbC001934
  1768.  
  1769.     LEA    $38004,A0
  1770.     MOVE.L    #$3400,D6
  1771.     JSR    lbC001D4A
  1772.     LEA    $3807C,A0
  1773.     MOVEQ    #0,D0
  1774.     MOVE.W    $3FF32,D0
  1775.     SUBQ.L    #1,D0
  1776. lbC001966    ADD.L    #$18,A0
  1777.     MOVE.W    #sync,(A0)+
  1778.     MOVE.W    #sync,(A0)+
  1779.     MOVE.W    #sync,(A0)+
  1780.     ADD.L    #$52,A0
  1781.     MOVE.W    #sync,(A0)+
  1782.     MOVE.W    #sync,(A0)+
  1783.     MOVE.W    #sync,(A0)+
  1784.     ADD.L    #$456,A0
  1785.     DBRA    D0,lbC001966
  1786.  
  1787.     MOVE.L    $3FF2C,A0
  1788.     CLR.L    D0
  1789.     MOVE.W    $3FF2A,D0
  1790.     LSL.L    #8,D0
  1791.     LSL.L    #1,D0
  1792.     ADD.L    D0,A0
  1793.     BTST    #3,$BFE001
  1794.     BEQ.S    lbC001A1A
  1795.     MOVE.W    #2,_custom+intreq
  1796.     MOVE.L    #dsk,_custom+dskpth
  1797.     MOVE.W    #$7F00,_custom+adkcon
  1798.     MOVE.W    #$8100,_custom+adkcon
  1799.     MOVE.W    #$8210,_custom+dmacon
  1800.     MOVE.W    #dsksize,_custom+dsklen
  1801.     BSR    lbC001C9C
  1802.     MOVE.W    #$D86A,_custom+dsklen
  1803.     MOVE.W    #$D86A,_custom+dsklen
  1804.     BSR    lbC001D20
  1805.     MOVE.W    #dsksize,_custom+dsklen
  1806.     CLR.L    D0
  1807.     RTS
  1808.  
  1809. lbC001A0A    MOVE.L    D0,-(SP)
  1810.     MOVE.L    #15,D0
  1811.     BSR    lbC001C7A
  1812.     MOVE.L    (SP)+,D0
  1813.     RTS
  1814.  
  1815. lbC001A1A    MOVE.L    #$FFFFFFF3,D0
  1816.     MOVE.W    #$64,$3FF20
  1817.     BSR    lbC001422
  1818.     MOVE.W    $3FF1C,-(SP)
  1819.     MOVE.W    D0,-(SP)
  1820.     MOVE.L    $404.w,A0
  1821.     JSR    (A0)
  1822.     ADDQ.L    #4,SP
  1823.     MOVE.L    D0,-(SP)
  1824.     BSR    lbC00136E
  1825.     MOVE.L    (SP)+,D0
  1826.     CMP.L    #$10000,D0
  1827.     BNE.S    lbC001A50
  1828.     JMP    (A6)
  1829.  
  1830. lbC001A50    MOVE.W    #$FFFF,temp1
  1831.     MOVE.L    #$FFFFFFF3,D0
  1832.     RTS
  1833.  
  1834. lbC001A60    MOVE.L    #$FFFFFFEF,D0
  1835.     RTS
  1836.  
  1837. lbC001A68    LEA    lbC001A68(PC),A6
  1838.     LEA    $38004,A1
  1839.     MOVEQ    #14,D0
  1840. lbC001A74    MOVE.L    #gap4,(A1)+
  1841.     DBRA    D0,lbC001A74
  1842.  
  1843.     MOVEQ    #1,D1
  1844. lbC001A80    MOVEQ    #2,D0
  1845. lbC001A82    CLR.L    (A1)+
  1846.     DBRA    D0,lbC001A82
  1847.  
  1848.     MOVE.L    #$A1A1A1FE,(A1)+
  1849.     MOVE.B    $3FF27,(A1)+
  1850.     MOVE.B    $3FF25,(A1)+
  1851.     MOVE.B    D1,(A1)+
  1852.     MOVE.B    #2,(A1)+
  1853.     MOVEM.L    D2/D6/D7/A1,-(SP)
  1854.     SUBQ.L    #8,A1
  1855.     MOVEQ    #-$1,D6
  1856.     MOVEQ    #-$1,D7
  1857.     MOVEQ    #7,D2
  1858.     BSR    lbC001E0A
  1859.     MOVE.B    D6,(A1)+
  1860.     MOVE.B    D7,(A1)+
  1861.     MOVEM.L    (SP)+,D2/D6/D7/A1
  1862.     ADDQ.L    #2,A1
  1863.     MOVEQ    #10,D0
  1864. lbC001ABC    MOVE.W    #gap2,(A1)+
  1865.     DBRA    D0,lbC001ABC
  1866.  
  1867.     MOVEQ    #2,D0
  1868. lbC001AC6    CLR.L    (A1)+
  1869.     DBRA    D0,lbC001AC6
  1870.  
  1871.     MOVE.L    #$A1A1A1FB,(A1)+
  1872.     MOVE.L    #$FF,D0
  1873. lbC001AD8    MOVE.W    $3FF30,(A1)+
  1874.     DBRA    D0,lbC001AD8
  1875.  
  1876.     MOVEM.L    D2/D6/D7/A1,-(SP)
  1877.     SUB.L    #$204,A1
  1878.     MOVEQ    #-$1,D6
  1879.     MOVEQ    #-$1,D7
  1880.     MOVE.L    #$203,D2
  1881.     BSR    lbC001E0A
  1882.     MOVE.B    D6,(A1)+
  1883.     MOVE.B    D7,(A1)+
  1884.     MOVEM.L    (SP)+,D2/D6/D7/A1
  1885.     ADDQ.L    #2,A1
  1886.     MOVEQ    #9,D0
  1887. lbC001B06    MOVE.L    #gap4,(A1)+
  1888.     DBRA    D0,lbC001B06
  1889.  
  1890.     ADDQ.L    #1,D1
  1891.     MOVE.W    $3FF32,D2
  1892.     ADD.W    #1,D2
  1893.     CMP.B    D2,D1
  1894.     BNE    lbC001A80
  1895.     LEA    $39A04,A0
  1896. lbC001B28    MOVE.L    #gap4,(A1)+
  1897.     CMP.L    A0,A1
  1898.     BLT.S    lbC001B28
  1899.     LEA    $3B404,A1
  1900.     LEA    $39A04,A0
  1901.     LEA    lbW00226A,A2
  1902.     MOVE.L    #$19FF,D1
  1903. lbC001B4C    MOVEQ    #0,D0
  1904.     MOVE.B    -(A0),D0
  1905.     ADD.W    D0,D0
  1906.     MOVE.W    0(A2,D0.W),D0
  1907.     MOVE.W    D0,-(A1)
  1908.     DBRA    D1,lbC001B4C
  1909.  
  1910.     LEA    $38004,A0
  1911.     MOVE.L    #$3400,D6
  1912.     JSR    lbC001D4A
  1913.     LEA    $3807C,A0
  1914.     MOVEQ    #0,D0
  1915.     MOVE.W    $3FF32,D0
  1916.     SUBQ.L    #1,D0
  1917. lbC001B7E    ADD.L    #$18,A0
  1918.     MOVE.W    #sync,(A0)+
  1919.     MOVE.W    #sync,(A0)+
  1920.     MOVE.W    #sync,(A0)+
  1921.     ADD.L    #$52,A0
  1922.     MOVE.W    #sync,(A0)+
  1923.     MOVE.W    #sync,(A0)+
  1924.     MOVE.W    #sync,(A0)+
  1925.     ADD.L    #$456,A0
  1926.     DBRA    D0,lbC001B7E
  1927.  
  1928.     BSR    lbC001CCA
  1929.     MOVE.L    #$A88,D7
  1930.     BSR    lbC001CC0
  1931.     BTST    #2,$BFE001
  1932.     BEQ    lbC001A60
  1933.     BSET    #2,$BFD100
  1934.     TST.W    $3FF24
  1935.     BEQ.S    lbC001BDE
  1936.     BCLR    #2,$BFD100
  1937. lbC001BDE    BTST    #3,$BFE001
  1938.     BEQ    lbC001A1A
  1939.     MOVE.W    #2,_custom+intreq
  1940.     MOVE.L    #dsk,_custom+dskpth
  1941.     MOVE.W    #$7F00,_custom+adkcon
  1942.     MOVE.W    #$8100,_custom+adkcon
  1943.     MOVE.W    #$8210,_custom+dmacon
  1944.     MOVE.W    #dsksize,_custom+dsklen
  1945.     BSR.S    lbC001C9C
  1946.     MOVE.W    #$D86A,_custom+dsklen
  1947.     MOVE.W    #$D86A,_custom+dsklen
  1948.     BSR    lbC001D20
  1949.     MOVE.W    #dsksize,_custom+dsklen
  1950.     MOVE.W    $3FF22,D1
  1951.     MOVE.W    temp1,D0
  1952.     CMP.W    D0,D1
  1953.     BNE.S    lbC001C56
  1954.     MOVE.W    #$FFFF,temp1
  1955. lbC001C56    MOVEQ    #0,D0
  1956.     RTS
  1957.  
  1958. lbC001C5A    MOVE.L    D0,-(SP)
  1959.     MOVE.W    #$FFF,D0
  1960. lbC001C60    MOVE.W    _custom+vhposr,_custom+color2
  1961.     DBRA    D0,lbC001C60
  1962.  
  1963.     MOVE.W    #foreground,_custom+color2
  1964.     MOVE.L    (SP)+,D0
  1965.     RTS
  1966.  
  1967. lbC001C7A    MOVEM.L    D0/D1,-(SP)
  1968.     MOVE.L    #$7FFF,D1
  1969. lbC001C84    MOVE.W    D0,_custom+color0
  1970.     DBRA    D1,lbC001C84
  1971.  
  1972.     MOVE.W    #$666,_custom+color0
  1973.     MOVEM.L    (SP)+,D0/D1
  1974.     RTS
  1975.  
  1976. lbC001C9C    MOVE.B    #$20,$BFDD00
  1977.     BTST    #4,$BFDD00
  1978.     BNE.S    lbC001C9C
  1979.     MOVE.W    #$7D00,D0
  1980. lbC001CB2    BTST    #4,$BFDD00
  1981.     DBNE    D0,lbC001CB2
  1982.  
  1983.     RTS
  1984.  
  1985. lbC001CC0    SUB.L    #1,D7
  1986.     BNE.S    lbC001CC0
  1987.     RTS
  1988.  
  1989. lbC001CCA    MOVE.W    $3FF22,D0
  1990.     LEA    $3FF34,A0
  1991.     LEA    0(A0,D0.W),A0
  1992. lbC001CDA    MOVE.W    $3FF26,D1
  1993.     BSET    #1,$BFD100
  1994.     CMP.B    (A0),D1
  1995.     BEQ    lbC0014F0
  1996.     BLS.S    lbC001CFA
  1997.     BCLR    #1,$BFD100
  1998.     ADDQ.B    #2,(A0)
  1999. lbC001CFA    SUBQ.B    #1,(A0)
  2000.     BCLR    #0,$BFD100
  2001.     NOP
  2002.     NOP
  2003.     NOP
  2004.     NOP
  2005.     BSET    #0,$BFD100
  2006.     MOVE.L    #$A88,D7
  2007.     BSR.S    lbC001CC0
  2008.     BRA.S    lbC001CDA
  2009.  
  2010. lbC001D20    MOVE.L    #timeout,D7
  2011. lbC001D26    MOVE.W    _custom+intreqr,D0
  2012.     BTST    #1,D0
  2013.     BNE.S    lbC001D3E
  2014.     SUBQ.L    #1,D7
  2015.     BNE.S    lbC001D26
  2016.     MOVE.L    #$FFFFFFFF,D0
  2017.     RTS
  2018.  
  2019. lbC001D3E    MOVE.W    #2,_custom+intreq
  2020.     MOVEQ    #0,D0
  2021.     RTS
  2022.  
  2023. lbC001D4A    MOVE.W    #$40,_custom+intreq
  2024.     MOVE.W    #$5555,_custom+bltcdat
  2025.     MOVE.L    A0,-(SP)
  2026.     ADD.L    #$40,D6
  2027.     AND.L    #$FFFFFFE0,D6
  2028.     ADD.L    D6,A0
  2029.     OR.W    #$20,D6
  2030.     SUBQ.L    #2,A0
  2031.     MOVE.L    A0,_custom+bltapth
  2032.     MOVE.W    #0,_custom+bltamod
  2033.     MOVE.W    #$FFFF,_custom+bltafwm
  2034.     MOVE.W    #$FFFF,_custom+bltalwm
  2035.     MOVE.L    A0,_custom+bltbpth
  2036.     MOVE.L    A0,_custom+bltdpth
  2037.     MOVE.W    #0,_custom+bltbmod
  2038.     MOVE.W    #0,_custom+bltdmod
  2039.     MOVE.W    #$1002,_custom+bltcon1
  2040.     MOVE.W    #$DB1,_custom+bltcon0
  2041.     MOVE.W    D6,_custom+bltsize
  2042.     BSR.S    lbC001DF4
  2043.     MOVE.L    (SP)+,A0
  2044.     MOVE.L    A0,_custom+bltapth
  2045.     MOVE.L    A0,_custom+bltbpth
  2046.     MOVE.L    A0,_custom+bltdpth
  2047.     MOVE.W    #0,_custom+bltcon1
  2048.     MOVE.W    #$1D8C,_custom+bltcon0
  2049.     MOVE.W    D6,_custom+bltsize
  2050.     BSR.S    lbC001DF4
  2051.     RTS
  2052.  
  2053. lbC001DF4    MOVE.W    _custom+intreqr,D3
  2054.     BTST    #6,D3
  2055.     BEQ.S    lbC001DF4
  2056.     MOVE.W    #$40,_custom+intreq
  2057.     RTS
  2058.  
  2059. lbC001E0A    MOVEM.L    D4/D5/A6,-(SP)
  2060.     LEA    lbW00246A,A6
  2061.     MOVE.L    A6,D4
  2062.     MOVEQ    #0,D5
  2063. lbC001E18    MOVE.B    (A1)+,D5
  2064.     MOVE.L    D4,A6
  2065.     EOR.B    D6,D5
  2066.     ADD.W    D5,A6
  2067.     MOVE.B    (A6),D6
  2068.     EOR.B    D7,D6
  2069.     MOVE.B    $100(A6),D7
  2070.     DBRA    D2,lbC001E18
  2071.  
  2072.     MOVEM.L    (SP)+,D4/D5/A6
  2073.     RTS
  2074.  
  2075. lbC001E32    MOVEM.L    D0-D3,-(SP)
  2076.     SUBQ.B    #1,lbB001EDE
  2077.     BNE    lbC001ED8
  2078.     MOVE.B    #$32,lbB001EDE
  2079.     MOVE.B    rtc,D0
  2080.     MOVE.B    rtc+2,D1
  2081.     BSR    lbC001EE0
  2082.     MOVE.B    D0,rtc
  2083.     MOVE.B    D1,rtc+2
  2084.     CMP.B    #$3C,D2
  2085.     BNE.S    lbC001ED8
  2086.     CLR.B    rtc
  2087.     CLR.B    rtc+2
  2088.     MOVE.B    rtc+4,D0
  2089.     MOVE.B    rtc+6,D1
  2090.     BSR.S    lbC001EE0
  2091.     MOVE.B    D0,rtc+4
  2092.     MOVE.B    D1,rtc+6
  2093.     CMP.B    #$3C,D2
  2094.     BNE.S    lbC001ED8
  2095.     CLR.B    rtc+4
  2096.     CLR.B    rtc+6
  2097.     MOVE.B    rtc+8,D0
  2098.     MOVE.B    rtc+10,D1
  2099.     BSR.S    lbC001EE0
  2100.     MOVE.B    D0,rtc+8
  2101.     MOVE.B    D1,rtc+10
  2102.     CMP.B    #$19,D2
  2103.     BNE.S    lbC001ED8
  2104.     CLR.B    rtc+8
  2105.     CLR.B    rtc+10
  2106. lbC001ED8    MOVEM.L    (SP)+,D0-D3
  2107.     RTS
  2108.  
  2109. lbB001EDE    dc.b    $32
  2110.     dc.b    0
  2111.  
  2112. lbC001EE0    LSL.B    #4,D1
  2113.     OR.B    D1,D0
  2114.     ADDQ.B    #1,D0
  2115.     MOVE.B    D0,D1
  2116.     MOVE.B    D0,D2
  2117.     LSR.B    #4,D1
  2118.     AND.B    #15,D0
  2119.     RTS
  2120.  
  2121. GETTIME    MOVEQ    #0,D0
  2122.     MOVEQ    #0,D1
  2123.     MOVEQ    #0,D2
  2124.     MOVE.B    rtc+14,D1
  2125.     MOVE.B    rtc+16,D2
  2126.     LSL.B    #4,D2
  2127.     OR.B    D2,D1
  2128.     AND.L    #$1F,D1
  2129.     OR.W    D1,D0
  2130.     MOVE.B    rtc+18,D1
  2131.     MOVE.B    rtc+20,D2
  2132.     LSL.B    #4,D2
  2133.     OR.B    D2,D1
  2134.     AND.L    #15,D1
  2135.     LSL.L    #5,D1
  2136.     OR.W    D1,D0
  2137.     MOVE.B    rtc+22,D1
  2138.     MOVE.B    rtc+24,D2
  2139.     LSL.B    #4,D2
  2140.     OR.B    D2,D1
  2141.     AND.L    #$7F,D1
  2142.     LSL.L    #8,D1
  2143.     LSL.L    #1,D1
  2144.     OR.W    D1,D0
  2145.     SWAP    D0
  2146.     MOVE.B    rtc,D1
  2147.     MOVE.B    rtc+2,D2
  2148.     LSL.B    #4,D2
  2149.     OR.B    D2,D1
  2150.     LSR.B    #1,D1
  2151.     AND.L    #$1F,D1
  2152.     OR.W    D1,D0
  2153.     MOVE.B    rtc+4,D1
  2154.     MOVE.B    rtc+6,D2
  2155.     LSL.B    #4,D2
  2156.     OR.B    D2,D1
  2157.     AND.L    #$3F,D1
  2158.     LSL.L    #5,D1
  2159.     OR.W    D1,D0
  2160.     MOVE.B    rtc+8,D1
  2161.     MOVE.B    rtc+10,D2
  2162.     LSL.B    #4,D2
  2163.     OR.B    D2,D1
  2164.     AND.L    #$1F,D1
  2165.     LSL.L    #8,D1
  2166.     LSL.L    #3,D1
  2167.     OR.W    D1,D0
  2168.     MOVEQ    #0,D1
  2169.     MOVEQ    #0,D2
  2170.     RTS
  2171.  
  2172. SETTIME    MOVE.L    4(SP),D0
  2173.     CMP.W    #2,D0
  2174.     BGE.S    lbC001FAE
  2175.     BRA.S    lbC002014
  2176.  
  2177. lbC001FAE    MOVE.L    D0,D1
  2178.     AND.L    #$1F,D1
  2179.     MOVE.L    D1,D2
  2180.     LSR.B    #4,D2
  2181.     AND.B    #15,D1
  2182.     AND.B    #15,D2
  2183.     MOVE.B    D1,rtc
  2184.     MOVE.B    D2,rtc+2
  2185.     MOVE.L    D0,D1
  2186.     LSR.L    #5,D1
  2187.     AND.L    #$3F,D1
  2188.     MOVE.L    D1,D2
  2189.     LSR.B    #4,D2
  2190.     AND.B    #15,D1
  2191.     AND.B    #15,D2
  2192.     MOVE.B    D1,rtc+4
  2193.     MOVE.B    D2,rtc+6
  2194.     MOVE.L    D0,D1
  2195.     LSR.L    #8,D1
  2196.     LSR.L    #3,D1
  2197.     AND.L    #$1F,D1
  2198.     MOVE.L    D1,D2
  2199.     LSR.B    #4,D2
  2200.     AND.B    #15,D1
  2201.     AND.B    #15,D2
  2202.     MOVE.B    D1,rtc+8
  2203.     MOVE.B    D2,rtc+10
  2204. lbC002014    SWAP    D0
  2205.     MOVE.W    D0,D1
  2206.     AND.L    #$1F,D1
  2207.     MOVE.L    D1,D2
  2208.     LSR.B    #4,D2
  2209.     MOVE.B    D1,rtc+14
  2210.     MOVE.B    D2,rtc+16
  2211.     MOVE.L    D0,D1
  2212.     LSR.L    #5,D1
  2213.     AND.L    #15,D1
  2214.     MOVE.L    D1,D2
  2215.     LSR.B    #4,D2
  2216.     MOVE.B    D1,rtc+18
  2217.     MOVE.B    D2,rtc+20
  2218.     MOVE.L    D0,D1
  2219.     LSR.L    #8,D1
  2220.     LSR.L    #1,D1
  2221.     AND.L    #$7F,D1
  2222.     MOVE.L    D1,D2
  2223.     LSR.B    #4,D2
  2224.     MOVE.B    D1,rtc+22
  2225.     MOVE.B    D2,rtc+24
  2226.     MOVEQ    #0,D1
  2227.     MOVEQ    #0,D2
  2228.     RTS
  2229.  
  2230. lbL00206A    dc.l    $100010
  2231.     dc.l    $20302030
  2232.     dc.l    $100010
  2233.     dc.l    $20302030
  2234.     dc.l    $40504050
  2235.     dc.l    $60706070
  2236.     dc.l    $40504050
  2237.     dc.l    $60706070
  2238.     dc.l    $100010
  2239.     dc.l    $20302030
  2240.     dc.l    $100010
  2241.     dc.l    $20302030
  2242.     dc.l    $40504050
  2243.     dc.l    $60706070
  2244.     dc.l    $40504050
  2245.     dc.l    $60706070
  2246.     dc.l    $80908090
  2247.     dc.l    $A0B0A0B0
  2248.     dc.l    $80908090
  2249.     dc.l    $A0B0A0B0
  2250.     dc.l    $C0D0C0D0
  2251.     dc.l    $E0F0E0F0
  2252.     dc.l    $C0D0C0D0
  2253.     dc.l    $E0F0E0F0
  2254.     dc.l    $80908090
  2255.     dc.l    $A0B0A0B0
  2256.     dc.l    $80908090
  2257.     dc.l    $A0B0A0B0
  2258.     dc.l    $C0D0C0D0
  2259.     dc.l    $E0F0E0F0
  2260.     dc.l    $C0D0C0D0
  2261.     dc.l    $E0F0E0F0
  2262.     dc.l    $100010
  2263.     dc.l    $20302030
  2264.     dc.l    $100010
  2265.     dc.l    $20302030
  2266.     dc.l    $40504050
  2267.     dc.l    $60706070
  2268.     dc.l    $40504050
  2269.     dc.l    $60706070
  2270.     dc.l    $100010
  2271.     dc.l    $20302030
  2272.     dc.l    $100010
  2273.     dc.l    $20302030
  2274.     dc.l    $40504050
  2275.     dc.l    $60706070
  2276.     dc.l    $40504050
  2277.     dc.l    $60706070
  2278.     dc.l    $80908090
  2279.     dc.l    $A0B0A0B0
  2280.     dc.l    $80908090
  2281.     dc.l    $A0B0A0B0
  2282.     dc.l    $C0D0C0D0
  2283.     dc.l    $E0F0E0F0
  2284.     dc.l    $C0D0C0D0
  2285.     dc.l    $E0F0E0F0
  2286.     dc.l    $80908090
  2287.     dc.l    $A0B0A0B0
  2288.     dc.l    $80908090
  2289.     dc.l    $A0B0A0B0
  2290.     dc.l    $C0D0C0D0
  2291.     dc.l    $E0F0E0F0
  2292.     dc.l    $C0D0C0D0
  2293.     dc.l    $E0F0E0F0
  2294. lbW00216A    dcb.w    2,1
  2295.     dcb.w    2,$203
  2296.     dcb.w    2,1
  2297.     dcb.w    2,$203
  2298.     dcb.w    2,$405
  2299.     dcb.w    2,$607
  2300.     dcb.w    2,$405
  2301.     dcb.w    2,$607
  2302.     dcb.w    2,1
  2303.     dcb.w    2,$203
  2304.     dcb.w    2,1
  2305.     dcb.w    2,$203
  2306.     dcb.w    2,$405
  2307.     dcb.w    2,$607
  2308.     dcb.w    2,$405
  2309.     dcb.w    2,$607
  2310.     dcb.w    2,$809
  2311.     dcb.w    2,$A0B
  2312.     dcb.w    2,$809
  2313.     dcb.w    2,$A0B
  2314.     dcb.w    2,$C0D
  2315.     dcb.w    2,$E0F
  2316.     dcb.w    2,$C0D
  2317.     dcb.w    2,$E0F
  2318.     dcb.w    2,$809
  2319.     dcb.w    2,$A0B
  2320.     dcb.w    2,$809
  2321.     dcb.w    2,$A0B
  2322.     dcb.w    2,$C0D
  2323.     dcb.w    2,$E0F
  2324.     dcb.w    2,$C0D
  2325.     dcb.w    2,$E0F
  2326.     dcb.w    2,1
  2327.     dcb.w    2,$203
  2328.     dcb.w    2,1
  2329.     dcb.w    2,$203
  2330.     dcb.w    2,$405
  2331.     dcb.w    2,$607
  2332.     dcb.w    2,$405
  2333.     dcb.w    2,$607
  2334.     dcb.w    2,1
  2335.     dcb.w    2,$203
  2336.     dcb.w    2,1
  2337.     dcb.w    2,$203
  2338.     dcb.w    2,$405
  2339.     dcb.w    2,$607
  2340.     dcb.w    2,$405
  2341.     dcb.w    2,$607
  2342.     dcb.w    2,$809
  2343.     dcb.w    2,$A0B
  2344.     dcb.w    2,$809
  2345.     dcb.w    2,$A0B
  2346.     dcb.w    2,$C0D
  2347.     dcb.w    2,$E0F
  2348.     dcb.w    2,$C0D
  2349.     dcb.w    2,$E0F
  2350.     dcb.w    2,$809
  2351.     dcb.w    2,$A0B
  2352.     dcb.w    2,$809
  2353.     dcb.w    2,$A0B
  2354.     dcb.w    2,$C0D
  2355.     dcb.w    2,$E0F
  2356.     dcb.w    2,$C0D
  2357.     dcb.w    2,$E0F
  2358. lbW00226A    dc.w    0
  2359.     dc.w    1
  2360.     dc.w    4
  2361.     dc.w    5
  2362.     dc.w    $10
  2363.     dc.w    $11
  2364.     dc.w    $14
  2365.     dc.w    $15
  2366.     dc.w    $40
  2367.     dc.w    $41
  2368.     dc.w    $44
  2369.     dc.w    $45
  2370.     dc.w    $50
  2371.     dc.w    $51
  2372.     dc.w    $54
  2373.     dc.w    $55
  2374.     dc.w    $100
  2375.     dc.w    $101
  2376.     dc.w    $104
  2377.     dc.w    $105
  2378.     dc.w    $110
  2379.     dc.w    $111
  2380.     dc.w    $114
  2381.     dc.w    $115
  2382.     dc.w    $140
  2383.     dc.w    $141
  2384.     dc.w    $144
  2385.     dc.w    $145
  2386.     dc.w    $150
  2387.     dc.w    $151
  2388.     dc.w    $154
  2389.     dc.w    $155
  2390.     dc.w    $400
  2391.     dc.w    $401
  2392.     dc.w    $404
  2393.     dc.w    $405
  2394.     dc.w    $410
  2395.     dc.w    $411
  2396.     dc.w    $414
  2397.     dc.w    $415
  2398.     dc.w    $440
  2399.     dc.w    $441
  2400.     dc.w    $444
  2401.     dc.w    $445
  2402.     dc.w    $450
  2403.     dc.w    $451
  2404.     dc.w    $454
  2405.     dc.w    $455
  2406.     dc.w    $500
  2407.     dc.w    $501
  2408.     dc.w    $504
  2409.     dc.w    $505
  2410.     dc.w    $510
  2411.     dc.w    $511
  2412.     dc.w    $514
  2413.     dc.w    $515
  2414.     dc.w    $540
  2415.     dc.w    $541
  2416.     dc.w    $544
  2417.     dc.w    $545
  2418.     dc.w    $550
  2419.     dc.w    $551
  2420.     dc.w    $554
  2421.     dc.w    $555
  2422.     dc.w    $1000
  2423.     dc.w    $1001
  2424.     dc.w    $1004
  2425.     dc.w    $1005
  2426.     dc.w    $1010
  2427.     dc.w    $1011
  2428.     dc.w    $1014
  2429.     dc.w    $1015
  2430.     dc.w    $1040
  2431.     dc.w    $1041
  2432.     dc.w    $1044
  2433.     dc.w    $1045
  2434.     dc.w    $1050
  2435.     dc.w    $1051
  2436.     dc.w    $1054
  2437.     dc.w    $1055
  2438.     dc.w    $1100
  2439.     dc.w    $1101
  2440.     dc.w    $1104
  2441.     dc.w    $1105
  2442.     dc.w    $1110
  2443.     dc.w    $1111
  2444.     dc.w    $1114
  2445.     dc.w    $1115
  2446.     dc.w    $1140
  2447.     dc.w    $1141
  2448.     dc.w    $1144
  2449.     dc.w    $1145
  2450.     dc.w    $1150
  2451.     dc.w    $1151
  2452.     dc.w    $1154
  2453.     dc.w    $1155
  2454.     dc.w    $1400
  2455.     dc.w    $1401
  2456.     dc.w    $1404
  2457.     dc.w    $1405
  2458.     dc.w    $1410
  2459.     dc.w    $1411
  2460.     dc.w    $1414
  2461.     dc.w    $1415
  2462.     dc.w    $1440
  2463.     dc.w    $1441
  2464.     dc.w    $1444
  2465.     dc.w    $1445
  2466.     dc.w    $1450
  2467.     dc.w    $1451
  2468.     dc.w    $1454
  2469.     dc.w    $1455
  2470.     dc.w    $1500
  2471.     dc.w    $1501
  2472.     dc.w    $1504
  2473.     dc.w    $1505
  2474.     dc.w    $1510
  2475.     dc.w    $1511
  2476.     dc.w    $1514
  2477.     dc.w    $1515
  2478.     dc.w    $1540
  2479.     dc.w    $1541
  2480.     dc.w    $1544
  2481.     dc.w    $1545
  2482.     dc.w    $1550
  2483.     dc.w    $1551
  2484.     dc.w    $1554
  2485.     dc.w    $1555
  2486.     dc.w    $4000
  2487.     dc.w    $4001
  2488.     dc.w    $4004
  2489.     dc.w    $4005
  2490.     dc.w    $4010
  2491.     dc.w    $4011
  2492.     dc.w    $4014
  2493.     dc.w    $4015
  2494.     dc.w    $4040
  2495.     dc.w    $4041
  2496.     dc.w    $4044
  2497.     dc.w    $4045
  2498.     dc.w    $4050
  2499.     dc.w    $4051
  2500.     dc.w    $4054
  2501.     dc.w    $4055
  2502.     dc.w    $4100
  2503.     dc.w    $4101
  2504.     dc.w    $4104
  2505.     dc.w    $4105
  2506.     dc.w    $4110
  2507.     dc.w    $4111
  2508.     dc.w    $4114
  2509.     dc.w    $4115
  2510.     dc.w    $4140
  2511.     dc.w    $4141
  2512.     dc.w    $4144
  2513.     dc.w    $4145
  2514.     dc.w    $4150
  2515.     dc.w    $4151
  2516.     dc.w    $4154
  2517.     dc.w    $4155
  2518.     dc.w    $4400
  2519.     dc.w    $4401
  2520.     dc.w    $4404
  2521.     dc.w    $4405
  2522.     dc.w    $4410
  2523.     dc.w    $4411
  2524.     dc.w    $4414
  2525.     dc.w    $4415
  2526.     dc.w    $4440
  2527.     dc.w    $4441
  2528.     dc.w    $4444
  2529.     dc.w    $4445
  2530.     dc.w    $4450
  2531.     dc.w    $4451
  2532.     dc.w    $4454
  2533.     dc.w    $4455
  2534.     dc.w    $4500
  2535.     dc.w    $4501
  2536.     dc.w    $4504
  2537.     dc.w    $4505
  2538.     dc.w    $4510
  2539.     dc.w    $4511
  2540.     dc.w    $4514
  2541.     dc.w    $4515
  2542.     dc.w    $4540
  2543.     dc.w    $4541
  2544.     dc.w    $4544
  2545.     dc.w    $4545
  2546.     dc.w    $4550
  2547.     dc.w    $4551
  2548.     dc.w    $4554
  2549.     dc.w    $4555
  2550.     dc.w    $5000
  2551.     dc.w    $5001
  2552.     dc.w    $5004
  2553.     dc.w    $5005
  2554.     dc.w    $5010
  2555.     dc.w    $5011
  2556.     dc.w    $5014
  2557.     dc.w    $5015
  2558.     dc.w    $5040
  2559.     dc.w    $5041
  2560.     dc.w    $5044
  2561.     dc.w    $5045
  2562.     dc.w    $5050
  2563.     dc.w    $5051
  2564.     dc.w    $5054
  2565.     dc.w    $5055
  2566.     dc.w    $5100
  2567.     dc.w    $5101
  2568.     dc.w    $5104
  2569.     dc.w    $5105
  2570.     dc.w    $5110
  2571.     dc.w    $5111
  2572.     dc.w    $5114
  2573.     dc.w    $5115
  2574.     dc.w    $5140
  2575.     dc.w    $5141
  2576.     dc.w    $5144
  2577.     dc.w    $5145
  2578.     dc.w    $5150
  2579.     dc.w    $5151
  2580.     dc.w    $5154
  2581.     dc.w    $5155
  2582.     dc.w    $5400
  2583.     dc.w    $5401
  2584.     dc.w    $5404
  2585.     dc.w    $5405
  2586.     dc.w    $5410
  2587.     dc.w    $5411
  2588.     dc.w    $5414
  2589.     dc.w    $5415
  2590.     dc.w    $5440
  2591.     dc.w    $5441
  2592.     dc.w    $5444
  2593.     dc.w    $5445
  2594.     dc.w    $5450
  2595.     dc.w    $5451
  2596.     dc.w    $5454
  2597.     dc.w    $5455
  2598.     dc.w    $5500
  2599.     dc.w    $5501
  2600.     dc.w    $5504
  2601.     dc.w    $5505
  2602.     dc.w    $5510
  2603.     dc.w    $5511
  2604.     dc.w    $5514
  2605.     dc.w    $5515
  2606.     dc.w    $5540
  2607.     dc.w    $5541
  2608.     dc.w    $5544
  2609.     dc.w    $5545
  2610.     dc.w    $5550
  2611.     dc.w    $5551
  2612.     dc.w    $5554
  2613.     dc.w    $5555
  2614. lbW00246A    dc.w    $10
  2615.     dc.w    $2030
  2616.     dc.w    $4050
  2617.     dc.w    $6070
  2618.     dc.w    $8191
  2619.     dc.w    $A1B1
  2620.     dc.w    $C1D1
  2621.     dc.w    $E1F1
  2622.     dc.w    $1202
  2623.     dc.w    $3222
  2624.     dc.w    $5242
  2625.     dc.w    $7262
  2626.     dc.w    $9383
  2627.     dc.w    $B3A3
  2628.     dc.w    $D3C3
  2629.     dc.w    $F3E3
  2630.     dc.w    $2434
  2631.     dc.w    $414
  2632.     dc.w    $6474
  2633.     dc.w    $4454
  2634.     dc.w    $A5B5
  2635.     dc.w    $8595
  2636.     dc.w    $E5F5
  2637.     dc.w    $C5D5
  2638.     dc.w    $3626
  2639.     dc.w    $1606
  2640.     dc.w    $7666
  2641.     dc.w    $5646
  2642.     dc.w    $B7A7
  2643.     dc.w    $9787
  2644.     dc.w    $F7E7
  2645.     dc.w    $D7C7
  2646.     dc.w    $4858
  2647.     dc.w    $6878
  2648.     dc.w    $818
  2649.     dc.w    $2838
  2650.     dc.w    $C9D9
  2651.     dc.w    $E9F9
  2652.     dc.w    $8999
  2653.     dc.w    $A9B9
  2654.     dc.w    $5A4A
  2655.     dc.w    $7A6A
  2656.     dc.w    $1A0A
  2657.     dc.w    $3A2A
  2658.     dc.w    $DBCB
  2659.     dc.w    $FBEB
  2660.     dc.w    $9B8B
  2661.     dc.w    $BBAB
  2662.     dc.w    $6C7C
  2663.     dc.w    $4C5C
  2664.     dc.w    $2C3C
  2665.     dc.w    $C1C
  2666.     dc.w    $EDFD
  2667.     dc.w    $CDDD
  2668.     dc.w    $ADBD
  2669.     dc.w    $8D9D
  2670.     dc.w    $7E6E
  2671.     dc.w    $5E4E
  2672.     dc.w    $3E2E
  2673.     dc.w    $1E0E
  2674.     dc.w    $FFEF
  2675.     dc.w    $DFCF
  2676.     dc.w    $BFAF
  2677.     dc.w    $9F8F
  2678.     dc.w    $9181
  2679.     dc.w    $B1A1
  2680.     dc.w    $D1C1
  2681.     dc.w    $F1E1
  2682.     dc.w    $1000
  2683.     dc.w    $3020
  2684.     dc.w    $5040
  2685.     dc.w    $7060
  2686.     dc.w    $8393
  2687.     dc.w    $A3B3
  2688.     dc.w    $C3D3
  2689.     dc.w    $E3F3
  2690.     dc.w    $212
  2691.     dc.w    $2232
  2692.     dc.w    $4252
  2693.     dc.w    $6272
  2694.     dc.w    $B5A5
  2695.     dc.w    $9585
  2696.     dc.w    $F5E5
  2697.     dc.w    $D5C5
  2698.     dc.w    $3424
  2699.     dc.w    $1404
  2700.     dc.w    $7464
  2701.     dc.w    $5444
  2702.     dc.w    $A7B7
  2703.     dc.w    $8797
  2704.     dc.w    $E7F7
  2705.     dc.w    $C7D7
  2706.     dc.w    $2636
  2707.     dc.w    $616
  2708.     dc.w    $6676
  2709.     dc.w    $4656
  2710.     dc.w    $D9C9
  2711.     dc.w    $F9E9
  2712.     dc.w    $9989
  2713.     dc.w    $B9A9
  2714.     dc.w    $5848
  2715.     dc.w    $7868
  2716.     dc.w    $1808
  2717.     dc.w    $3828
  2718.     dc.w    $CBDB
  2719.     dc.w    $EBFB
  2720.     dc.w    $8B9B
  2721.     dc.w    $ABBB
  2722.     dc.w    $4A5A
  2723.     dc.w    $6A7A
  2724.     dc.w    $A1A
  2725.     dc.w    $2A3A
  2726.     dc.w    $FDED
  2727.     dc.w    $DDCD
  2728.     dc.w    $BDAD
  2729.     dc.w    $9D8D
  2730.     dc.w    $7C6C
  2731.     dc.w    $5C4C
  2732.     dc.w    $3C2C
  2733.     dc.w    $1C0C
  2734.     dc.w    $EFFF
  2735.     dc.w    $CFDF
  2736.     dc.w    $AFBF
  2737.     dc.w    $8F9F
  2738.     dc.w    $6E7E
  2739.     dc.w    $4E5E
  2740.     dc.w    $2E3E
  2741.     dc.w    $E1E
  2742.     dc.w    $21
  2743.     dc.w    $4263
  2744.     dc.w    $84A5
  2745.     dc.w    $C6E7
  2746.     dc.w    $829
  2747.     dc.w    $4A6B
  2748.     dc.w    $8CAD
  2749.     dc.w    $CEEF
  2750.     dc.w    $3110
  2751.     dc.w    $7352
  2752.     dc.w    $B594
  2753.     dc.w    $F7D6
  2754.     dc.w    $3918
  2755.     dc.w    $7B5A
  2756.     dc.w    $BD9C
  2757.     dc.w    $FFDE
  2758.     dc.w    $6243
  2759.     dc.w    $2001
  2760.     dc.w    $E6C7
  2761.     dc.w    $A485
  2762.     dc.w    $6A4B
  2763.     dc.w    $2809
  2764.     dc.w    $EECF
  2765.     dc.w    $AC8D
  2766.     dc.w    $5372
  2767.     dc.w    $1130
  2768.     dc.w    $D7F6
  2769.     dc.w    $95B4
  2770.     dc.w    $5B7A
  2771.     dc.w    $1938
  2772.     dc.w    $DFFE
  2773.     dc.w    $9DBC
  2774.     dc.w    $C4E5
  2775.     dc.w    $86A7
  2776.     dc.w    $4061
  2777.     dc.w    $223
  2778.     dc.w    $CCED
  2779.     dc.w    $8EAF
  2780.     dc.w    $4869
  2781.     dc.w    $A2B
  2782.     dc.w    $F5D4
  2783.     dc.w    $B796
  2784.     dc.w    $7150
  2785.     dc.w    $3312
  2786.     dc.w    $FDDC
  2787.     dc.w    $BF9E
  2788.     dc.w    $7958
  2789.     dc.w    $3B1A
  2790.     dc.w    $A687
  2791.     dc.w    $E4C5
  2792.     dc.w    $2203
  2793.     dc.w    $6041
  2794.     dc.w    $AE8F
  2795.     dc.w    $ECCD
  2796.     dc.w    $2A0B
  2797.     dc.w    $6849
  2798.     dc.w    $97B6
  2799.     dc.w    $D5F4
  2800.     dc.w    $1332
  2801.     dc.w    $5170
  2802.     dc.w    $9FBE
  2803.     dc.w    $DDFC
  2804.     dc.w    $1B3A
  2805.     dc.w    $5978
  2806.     dc.w    $88A9
  2807.     dc.w    $CAEB
  2808.     dc.w    $C2D
  2809.     dc.w    $4E6F
  2810.     dc.w    $80A1
  2811.     dc.w    $C2E3
  2812.     dc.w    $425
  2813.     dc.w    $4667
  2814.     dc.w    $B998
  2815.     dc.w    $FBDA
  2816.     dc.w    $3D1C
  2817.     dc.w    $7F5E
  2818.     dc.w    $B190
  2819.     dc.w    $F3D2
  2820.     dc.w    $3514
  2821.     dc.w    $7756
  2822.     dc.w    $EACB
  2823.     dc.w    $A889
  2824.     dc.w    $6E4F
  2825.     dc.w    $2C0D
  2826.     dc.w    $E2C3
  2827.     dc.w    $A081
  2828.     dc.w    $6647
  2829.     dc.w    $2405
  2830.     dc.w    $DBFA
  2831.     dc.w    $99B8
  2832.     dc.w    $5F7E
  2833.     dc.w    $1D3C
  2834.     dc.w    $D3F2
  2835.     dc.w    $91B0
  2836.     dc.w    $5776
  2837.     dc.w    $1534
  2838.     dc.l    $4C6D0E2F
  2839.     dc.l    $C8E98AAB
  2840.     dc.l    $44650627
  2841.     dc.l    $C0E182A3
  2842.     dc.l    $7D5C3F1E
  2843.     dc.l    $F9D8BB9A
  2844.     dc.l    $75543716
  2845.     dc.l    $F1D0B392
  2846.     dc.l    $2E0F6C4D
  2847.     dc.l    $AA8BE8C9
  2848.     dc.l    $26076445
  2849.     dc.l    $A283E0C1
  2850.     dc.l    $1F3E5D7C
  2851.     dc.l    $9BBAD9F8
  2852.     dc.l    $17365574
  2853.     dc.l    $93B2D1F0
  2854.     dc.l    $1234
  2855.     dc.l    $56780000
  2856.     dcb.l    $40,0
  2857.     dcb.l    $40,0
  2858.     dcb.l    $40,0
  2859.     dcb.l    $40,0
  2860.     dcb.l    $40,0
  2861.     dcb.l    $23,0
  2862.     dcb.b    3,0
  2863.