home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / GXY-INF.LHA / infos / pinballfantasies.s < prev    next >
Encoding:
Text File  |  1996-03-09  |  18.3 KB  |  1,284 lines
  1.  
  2.     org    $40000
  3.     load    $40000
  4.  
  5. j    move.w    #$4000,$dff09a
  6.     bsr.b    c128
  7.     move.w    #$c000,$dff09a
  8.     move.l    #$c80000,a0
  9.     move.l    a0,a1
  10.     add.l    len(pc),a1
  11.     rts
  12. len    dc.l    0
  13. ; to read formatted tracks
  14. ;d0 = 4
  15. ;d1 = start trk
  16. ;d2 = length
  17. ;d3 = data adr
  18. ; to write formatted tracks
  19.  
  20. ;d0 = 2
  21. ;d1 = start trk
  22. ;d2 = length
  23. ;d3 = data adr
  24.  
  25.  
  26.  
  27. writeit    moveq    #2,d0        ;2,5 write
  28.     move.l    #[$1858*1],d1
  29.     move.l    #[$1858*121],d2
  30.     move.l    #$c70000,d3
  31.     moveq    #0,d4        ;drive
  32.     BSR.B    C146
  33.     rts
  34.  
  35. readit    moveq    #4,d0
  36.     move.l    #[$1600*1],d1
  37.     move.l    #[$1858*1],d2
  38.     move.l    #$c70000,d3
  39.     moveq    #0,d4        ;drive
  40.     BSR.B    C146
  41.     rts
  42.  
  43.  
  44. C128    lea    buf(pc),a0
  45.     MOVE.L    #3,D0
  46.     MOVE.L    #'PLIB',D1
  47.     MOVE.L    #'PD2A',D2
  48.     BSR.B    C146
  49.     rts
  50.  
  51. ostack    dc.l    0
  52. tu    dc.l    buf
  53.  
  54. c146    move.l    tu(pc),a0
  55.     lea    -$30(a0),a0
  56.     move.l    a0,tu
  57.     MOVEM.L    D1-d7/a1-A6,-(SP)
  58.     MOVEM.L    L106C,A1/A5/A6
  59.     MOVE.W    #$8210,$96(A5)
  60.     CMP.B    #$FF,(A1)
  61.     BNE.S    C170
  62.     CLR.B    (A1)
  63.     MOVE.L    D0,-(SP)
  64.     MOVEQ    #0,D0
  65.     BSR.B    C146
  66.     MOVE.L    (SP)+,D0
  67. C170    CLR.W    -12(A0)
  68.     CLR.B    -$1D(A0)
  69.     CLR.B    $36(A1)
  70.     CLR.B    -$1E(A0)
  71.     MOVE.L    $100.w,$2A(A1)
  72.     MOVE.W    #$1600,-10(A0)
  73.     CMP.W    #8,D0
  74.     BCS.S    C198
  75.     MOVEQ    #7,D0
  76.     BRA.S    C1B2
  77.  
  78. C198    LEA    W01BE,A2
  79.     ADD.W    D0,D0
  80.     MOVE.W    0(A2,D0.W),D0
  81.     PEA    C1B2
  82.     PEA    0(A2,D0.W)
  83.     MOVEQ    #0,D0
  84.     RTS
  85.  
  86. C1B2    ST    $32(A1)
  87.     MOVEM.L    (SP)+,D1-d7/a1-A6
  88.     lea    $30(a0),a0
  89.     move.l    a0,tu
  90.     rts
  91.  
  92.  
  93. W01BE    dc.w    C1CC-W01BE,C258-W01BE
  94.     dc.w    C29A-W01BE,C3C0-W01BE
  95.     dc.w    C1F6-W01BE,C300-W01BE
  96.     dc.w    C362-W01BE
  97.  
  98. C1CC    BSR.W    CD50
  99.     BRA.S    C1E0
  100.  
  101. C1D4    BSR.W    CDDC
  102.     TST.W    -2(A0)
  103.     BEQ.S    C1F4
  104. C1E0    BSR.W    CC00
  105.     BSR.W    CAC8
  106.     BSR.W    CC16
  107.     BRA.S    C1D4
  108.  
  109. C1F4    RTS
  110.  
  111. C1F6    DIVU    -10(A0),D1
  112.     MOVE.W    D1,-8(A0)
  113.     SWAP    D1
  114.     AND.W    #$FFFE,D1
  115.     MOVE.W    D1,-6(A0)
  116.     MOVE.L    D2,$16(A1)
  117.     MOVE.L    D3,-$1C(A0)
  118.     CMP.L    #3,D4
  119.     BLS.S    C228
  120.     MOVE.L    D4,-$14(A0)
  121.     BSR.W    CDF2
  122.     TST.L    D0
  123.     BNE.S    C256
  124.     BRA.S    C22C
  125.  
  126. C228    MOVE.W    D4,-2(A0)
  127. C22C    CLR.B    -$1D(A0)
  128.     BSR.W    CC00
  129.     BSR.W    CB0C
  130.     BSR.W    CC34
  131.     MOVEQ    #0,D0
  132.     MOVE.W    #5,-12(A0)
  133.     BSR.W    C50C
  134.     BSR.W    CC16
  135. C256    RTS
  136.  
  137. C258    MOVE.L    D1,-$10(A0)
  138.     MOVE.L    D2,-$14(A0)
  139.     MOVE.L    D3,-$1C(A0)
  140.     BSR.W    CDF2
  141.     BSR.W    CCB6
  142.     TST.L    D0
  143.     BNE.S    C298
  144.     CLR.B    -$1D(A0)
  145.     BSR.W    CC00
  146.     BSR.W    CB0C
  147.     BSR.W    CC34
  148.     MOVEQ    #0,D0
  149.     BSR.W    C41C
  150.     BSR.W    CC16
  151. C298    RTS
  152.  
  153. C29A    DIVU    -10(A0),D1
  154.     MOVE.W    D1,-8(A0)
  155.     SWAP    D1
  156.     TST.W    D1
  157.     BNE.S    C2FC
  158.     MOVE.L    D2,$16(A1)
  159.     MOVE.L    D3,$1A(A1)
  160.     CMP.L    #3,D4
  161.     BLS.S    C2C8
  162.     MOVE.L    D4,-$14(A0)
  163.     BSR.W    CDF2
  164.     TST.L    D0
  165.     BNE.S    C2FE
  166.     BRA.S    C2CC
  167.  
  168. C2C8    MOVE.W    D4,-2(A0)
  169. C2CC    BSR.W    CC00
  170.     BSR.W    CA38
  171.     BSR.W    CC00
  172.     BSR.W    CB0C
  173.     BSR.W    CC34
  174.     MOVEQ    #0,D0
  175.     BSR.W    C728
  176.     BNE.S    C2FE
  177.     BSR.W    CC16
  178.     RTS
  179.  
  180. C2FC    MOVEQ    #1,D0
  181. C2FE    RTS
  182.  
  183. C300    DIVU    -10(A0),D1
  184.     MOVE.W    D1,-8(A0)
  185.     SWAP    D1
  186.     TST.W    D1
  187.     BNE.S    C2FC
  188.     MOVE.L    D2,$16(A1)
  189.     CMP.L    #3,D4
  190.     BLS.S    C32A
  191.     MOVE.L    D4,-$14(A0)
  192.     BSR.W    CDF2
  193.     TST.L    D0
  194.     BNE.S    C2FE
  195.     BRA.S    C32E
  196.  
  197. C32A    MOVE.W    D4,-2(A0)
  198. C32E    BSR.W    CC00
  199.     BSR.W    CA38
  200.     BSR.W    CC00
  201.     BSR.W    CB0C
  202.     BSR.W    CC34
  203.     MOVEQ    #0,D0
  204.     ST    $36(A1)
  205.     BSR.W    C728
  206.     BNE.S    C2FE
  207.     BSR.W    CC16
  208.     RTS
  209.  
  210. C362    ST    -$1E(A0)
  211.     DIVU    -10(A0),D1
  212.     MOVE.W    D1,-8(A0)
  213.     SWAP    D1
  214.     AND.W    #$FFFE,D1
  215.     MOVE.W    D1,-6(A0)
  216.     MOVE.L    D2,$16(A1)
  217.     CMP.L    #3,D4
  218.     BLS.S    C394
  219.     MOVE.L    D4,-$14(A0)
  220.     BSR.W    CDF2
  221.     TST.L    D0
  222.     BNE.S    C3BE
  223.     BRA.S    C398
  224.  
  225. C394    MOVE.W    D4,-2(A0)
  226. C398    BSR.W    CC00
  227.     BSR.W    CB0C
  228.     BSR.W    CC34
  229.     MOVEQ    #0,D0
  230.     MOVE.W    #5,-12(A0)
  231.     BSR.W    C50C
  232.     BSR.W    CC16
  233. C3BE    RTS
  234.  
  235. C3C0    MOVE.L    D1,-$10(A0)
  236.     CMP.L    #$4449534B,D1
  237.     BEQ.S    C3EC
  238.     CMP.L    #$524F4F54,D1
  239.     BEQ.S    C3EC
  240.     MOVE.L    D2,-$14(A0)
  241.     BSR.W    CC88
  242.     TST.B    -$1D(A0)
  243.     BNE.S    C3FA
  244.     BSR.W    CDF2
  245.     BRA.S    C3F0
  246.  
  247. C3EC    MOVE.W    D2,-2(A0)
  248. C3F0    BSR.W    CCB6
  249.     TST.L    D0
  250.     BNE.S    C41A
  251. C3FA    BSR.W    CC00
  252.     BSR.W    CB0C
  253.     BSR.W    CC34
  254.     MOVEQ    #0,D0
  255.     BSR.W    C50C
  256.     BSR.W    CC16
  257. C41A    RTS
  258.  
  259. C41C    TST.L    D0
  260.     BNE.W    C4D2
  261. C422    MOVE.W    -12(A0),D2
  262.     BNE.S    C442
  263.     MOVE.L    #2,$16(A1)
  264.     BSR.W    C698
  265.     MOVE.L    -$1C(A0),A2
  266.     MOVE.W    -2(A2),-12(A0)
  267.     BRA.S    C422
  268.  
  269. C442    CMP.W    #8,D2
  270.     BCC.B    C4D0
  271.     CMP.W    #4,D2
  272.     BEQ.S    C48E
  273.     CMP.W    #6,D2
  274.     BEQ.S    C49E
  275.     LSL.W    #3,D2
  276.     LEA    L04D4,A3
  277.     MOVE.L    0(A3,D2.W),$16(A1)
  278.     MOVE.L    -$1C(A0),A2
  279.     MOVEM.L    D2/A2/A3,-(SP)
  280.     BSR.W    C698
  281.     MOVEM.L    (SP)+,D2/A2/A3
  282.     MOVE.L    4(A3,D2.W),D2
  283.     BMI.S    C488
  284.     MOVE.L    0(A2,D2.W),$16(A1)
  285.     BSR.W    C698
  286. C488    CLR.W    -12(A0)
  287.     BRA.S    C41C
  288.  
  289. C48E    MOVE.L    #4,$16(A1)
  290.     BSR.W    C698
  291.     RTS
  292.  
  293. C49E    MOVE.L    -$1C(A0),A2
  294.     MOVE.L    #8,$16(A1)
  295.     BSR.W    C698
  296. C4B0    MOVE.L    #8,$16(A1)
  297.     BSR.W    C698
  298.     CMP.L    #$FFFFFFFF,-8(A2)
  299.     BNE.S    C4B0
  300.     CLR.W    -12(A0)
  301.     BRA.W    C41C
  302.  
  303. C4D0    MOVEQ    #8,D0
  304. C4D2    RTS
  305.  
  306. L04D4    dc.l    2,$FFFFFFFF,8,4,8,$FFFFFFFF,4,$FFFFFFFF,4
  307.     dc.l    $FFFFFFFF,8,$FFFFFFFF,8,$FFFFFFFF
  308.  
  309. C50C    TST.L    D0
  310.     BNE.S    C532
  311.     MOVE.W    -12(A0),D2
  312.     CMP.W    #8,D2
  313.     BCC.S    C530
  314.     ADD.W    D2,D2
  315.     LEA    W0534,A3
  316.     MOVE.W    0(A3,D2.W),D2
  317.     PEA    C50C
  318.     JMP    0(A3,D2.W)
  319.  
  320. C530    MOVEQ    #8,D0
  321. C532    RTS
  322.  
  323. W0534    dc.w    C544-W0534,C55A-W0534
  324.     dc.w    C596-W0534,C606-W0534
  325.     dc.w    C63C-W0534,C660-W0534
  326.     dc.w    C66A-W0534,C5B6-W0534
  327.  
  328. C544    MOVE.L    #2,$16(A1)
  329.     PEA    -12(A0)
  330.     MOVE.L    (SP)+,-$1C(A0)
  331.     JMP    C698
  332.  
  333. C55A    MOVE.L    #8,$16(A1)
  334.     PEA    $1E(A1)
  335.     MOVE.L    (SP)+,-$1C(A0)
  336.     BSR.W    C698
  337.     MOVE.L    $1E(A1),-$1C(A0)
  338.     BCLR    #7,$1E(A1)
  339.     BEQ.S    C586
  340.     MOVE.L    $2A(A1),D1
  341.     ADD.L    D1,-$1C(A0)
  342. C586    MOVE.L    $22(A1),$16(A1)
  343.     CLR.W    -12(A0)
  344.     ;move.l    #$c80000,-$1c(a0)
  345.     ;move.l    $16(a1),len
  346.     JMP    C698
  347.  
  348. C596    MOVE.L    #8,$16(A1)
  349.     PEA    $1E(A1)
  350.     MOVE.L    (SP)+,-$1C(A0)
  351.     PEA    CF0A
  352.     CLR.W    -12(A0)
  353.     JMP    C698
  354.  
  355. C5B6    MOVE.L    #8,$16(A1)
  356.     PEA    $1E(A1)
  357.     MOVE.L    (SP)+,-$1C(A0)
  358.     BSR.W    C698
  359.     CLR.W    -12(A0)
  360.     LEA    L10AC,A2
  361.     MOVEQ    #7,D1
  362. C5D8    ADDQ.L    #4,A2
  363.     MOVE.L    #8,$16(A1)
  364.     MOVE.L    A2,-$1C(A0)
  365.     MOVEM.L    D1/A2,-(SP)
  366.     BSR.W    C698
  367.     MOVEM.L    (SP)+,D1/A2
  368.     CMP.L    #$FFFFFFFF,(A2)+
  369.     DBEQ    D1,C5D8
  370.     PEA    CF44
  371.     RTS
  372.  
  373. C606    MOVE.L    #4,$16(A1)
  374.     PEA    $1E(A1)
  375.     MOVE.L    (SP)+,-$1C(A0)
  376.     BSR.W    C698
  377.     MOVEM.L    D0-D7/A0-A6,-(SP)
  378.     MOVE.L    $1E(A1),A0
  379.     JSR    (A0)
  380.     MOVEM.L    (SP)+,D0-D7/A0-A6
  381.     BSR.W    CAC8
  382.     BSR.W    CB0C
  383.     CLR.W    -12(A0)
  384.     RTS
  385.  
  386. C63C    MOVE.L    #4,$16(A1)
  387.     ADDQ.L    #4,SP
  388.     PEA    $1E(A1)
  389.     MOVE.L    (SP)+,-$1C(A0)
  390.     BSR.B    C698
  391.     MOVE.L    $1E(A1),D0
  392.     BEQ.S    C65E
  393.     MOVE.L    D0,4(A0)
  394. C65E    RTS
  395.  
  396. C660    BSR.B    C698
  397.     ADDQ.L    #4,a7
  398.     RTS
  399.  
  400. C66A    MOVE.L    #4,$16(A1)
  401.     PEA    $1E(A1)
  402.     MOVE.L    (SP)+,-$1C(A0)
  403.     BSR.B    C698
  404.     movem.l    d0-d2,-(A7)
  405.     moveq    #0,d0
  406.     moveq    #0,d2
  407.     move.w    $1e(a1),d2
  408.     subq.w    #1,d2
  409.     mulu    #$1858,d2
  410.     move.w    $20(a1),d0
  411.     add.l    d0,d2
  412.     divu    #$1600,d2
  413.     addq.w    #1,d2
  414.     move.w    d2,-8(a0)
  415.     swap    d2
  416.     move.w    d2,-6(a0)
  417.     movem.l    (A7)+,d0-d2
  418.     ;MOVE.W    $1E(A1),-8(A0)
  419.     ;MOVE.W    $20(A1),-6(A0)
  420.     CLR.W    -12(A0)
  421.     BSR.W    CB0C
  422.     RTS
  423.  
  424. C698    TST.B    -$1D(A0)
  425.     BNE.B    C710
  426.     MOVE.W    #2,$14(A1)
  427.     TST.B    $32(A1)
  428.     BEQ.S    C6C4
  429. C6AC    MOVEQ    #0,D0
  430.     BSR.W    C952
  431.     BSR.W    C970
  432.     BSR.W    CA06
  433.     TST.L    D0
  434.     BNE.S    C6F6
  435. C6C4    BSR.W    C76C
  436.     TST.L    D0
  437.     BNE.S    C6F6
  438.     CLR.B    $32(A1)
  439.     TST.L    $16(A1)
  440.     BEQ.S    C70A
  441.     MOVE.W    -10(A0),D1
  442.     CMP.W    -6(A0),D1
  443.     BCS.S    C6F0
  444.     BSR.W    CBB8
  445.     ADDQ.W    #1,-8(A0)
  446.     CLR.W    -6(A0)
  447. C6F0    MOVE.L    A2,-$1C(A0)
  448.     BRA.S    C698
  449.  
  450. C6F6    BSR.W    CAC8
  451.     BSR.W    CB0C
  452.     SUBQ.W    #1,$14(A1)
  453.     BPL.S    C6AC
  454.     RTS
  455.  
  456. C70A    MOVE.L    A2,-$1C(A0)
  457.     RTS
  458.  
  459. C710    MOVEQ    #0,D0
  460.     MOVE.L    -$18(A0),A2
  461.     MOVE.L    -$1C(A0),A3
  462. C71A    MOVE.B    (A2)+,(A3)+
  463.     SUBQ.L    #1,$16(A1)
  464.     BNE.S    C71A
  465.     MOVE.L    A2,-$18(A0)
  466.     RTS
  467.  
  468. C728    MOVEQ    #0,D0
  469.     BSR.W    C952
  470.     BSR.W    C844
  471.     BSR.W    C9AA
  472.     BSR.W    CA06
  473.     TST.L    D0
  474.     BNE.S    C76A
  475.     MOVEQ    #0,D1
  476.     MOVE.W    -10(A0),D1
  477.     SUB.L    D1,$16(A1)
  478.     BMI.S    C76A
  479.     BEQ.S    C76A
  480.     BSR.W    CBB8
  481.     ADDQ.W    #1,-8(A0)
  482.     TST.B    $36(A1)
  483.     BNE.S    C768
  484.     MOVE.L    A4,$1A(A1)
  485. C768    BRA.S    C728
  486.  
  487. C76A    RTS
  488.  
  489. oe        dc.w    0
  490.  
  491. C76C        move.l    #$55555555,d5
  492.         move.l    -$1c(a0),a3
  493.         move.w    -2(a3),oe
  494. decode_loop1a    moveq    #10,d0
  495.         lea    $7c000,a2
  496. decode_loop1    cmp.l    #$7c000+[$1b00*2],a2
  497.         bge.w    error3
  498.         cmp.w    #$4489,(a2)+
  499.         bne.s    decode_loop1
  500.         cmp.w    #$4489,(a2)+
  501.         beq.s    cont
  502.         subq.w    #2,a2
  503. cont:        bsr.w    Checksuma
  504.         bne.w    Error3
  505.         tst.b    -$1e(a0)
  506.         bne.w    uji1
  507.         movem.l    (a2),d2/d7
  508.         bsr.w    convbit
  509.         and.w    #$ff00,d2
  510.         add.w    d2,d2
  511.         add.w    #$38,a2
  512.         move.w    -6(a0),d1
  513.         and.w    #$fe00,d1
  514.         cmp.w    d1,d2
  515.         bne.s    noconv
  516.         move.w    -6(a0),d2
  517.         and.w    #$1fe,d2
  518.         bne.s    .t
  519.         moveq    #$7f,d1
  520.         bra.s    .w
  521. .t        move.w    d2,d1
  522.         and.w    #$fffc,d1
  523.         lea    (a2,d1.w),a2
  524.         move.w    #$200,d7
  525.         sub.w    d1,d7
  526.         move.w    d7,d1
  527.         lsr.w    #2,d1
  528.         subq.w    #1,d1
  529. .t1        and.w    #$2,d2
  530.         beq.s    .w
  531.         subq.w    #2,-6(a0)
  532.         addq.l    #2,$16(a1)
  533.         subq.w    #2,a3
  534. .w
  535. decode_loop2    move.l    512(a2),d7
  536.         move.l    (a2)+,d2
  537.         bsr.b    convbit
  538.         SWAP    D2
  539.         MOVE.W    D2,(A3)+
  540.         addq.w    #2,-6(a0)
  541.         SUBQ.L    #2,$16(A1)
  542.         BEQ.S    exi
  543.         SWAP    D2
  544.         MOVE.W    D2,(A3)+
  545.         addq.w    #2,-6(a0)
  546.         SUBQ.L    #2,$16(A1)
  547.         BEQ.S    exi
  548.         dbf    d1,decode_loop2
  549.         bra.w    decode_loop1a
  550. noconv:        add.w    #$1f8,a2
  551.         dbf    d0,decode_loop1
  552.         cmp.w    #$1600,-6(a0)
  553.         bne.w    decode_loop1a
  554. exi        move.l    a3,a2
  555.         move.l    -$1c(a0),a3
  556.         move.w    oe,-2(A3)
  557.         moveq    #0,d0
  558.         rts
  559.  
  560. uji1        sub.l    #$1600,$16(a1)
  561.         moveq    #0,d0
  562.         rts
  563. error3        moveq    #3,d0
  564.         rts
  565. error11        moveq    #11,d0
  566.         rts
  567.  
  568. checksuma    move.l    a2,-(A7)
  569.         lea    48(a2),a2
  570.         movem.l    (A2)+,d2/d7
  571.         bsr.b    convbit
  572.         moveq    #0,d6
  573.         move.w    #$ff,d1
  574. checksum_loop1:    move.l    (a2)+,d7
  575.         eor.l    d7,d6
  576.         dbf    d1,checksum_loop1
  577.         and.l    d5,d6
  578.         move.l    (A7)+,a2
  579.         cmp.l    d2,d6
  580.         rts
  581. convbit:    and.l    d5,d2
  582.         and.l    d5,d7
  583.         asl.l    #1,d2
  584.         or.l    d7,d2
  585.         rts
  586.  
  587.  
  588. C844
  589. code_track:    movem.l    d0-d3/a2/a3,-(a7)
  590.         lea    $7c000,a2
  591.         move.w    #$38c0/4-1,d0
  592. fill_loop:    move.l    #$aaaaaaaa,(a2)+
  593.         dbf    d0,fill_loop
  594.         lea    $7c000,a2
  595.         add.w    #$340,a2
  596.         move.l    $1a(a1),a3
  597.         moveq    #11,d0
  598.         moveq    #0,d1
  599.         move.w    -8(a0),d2
  600.         moveq    #0,d4
  601.         sf    wtdat
  602. code_loop    tst.b    wtdat
  603.         bne.s    .t
  604.         move.w    -10(a0),d5
  605.         and.w    #$fe00,d5
  606.         cmp.w    d5,d4
  607.         blt.s    .t
  608.         st    wtdat
  609. .t        move.w    #$ff00,d3
  610.         or.w    d2,d3
  611.         swap    d3
  612.         move.b    d1,d3
  613.         lsl.w    #8,d3
  614.         move.b    d0,d3
  615.         bsr.s    code_sector
  616.         add.w    #$440,a2
  617.         add.w    #$200,d4
  618.         addq.w    #1,d1
  619.         subq.w    #1,d0
  620.         bne.s    code_loop
  621.         movem.l    (a7)+,d0-d3/a2/a3
  622.         rts
  623. rest        dc.w    0
  624. wtdat        dc.w    0
  625.  
  626.  
  627. code_sector:    movem.l    d0/d1/d4/a0/a3/a4,-(a7)
  628.         move.l    #$44894489,4(a2)
  629.         lea    8(a2),a0
  630.         move.l    d3,d0
  631.         bsr.w    to_MFM
  632.         lea    8(a2),a0
  633.         moveq    #9,d1
  634.         bsr.s    checksum
  635.         lea    48(a2),a0
  636.         bsr.s    to_MFM
  637.         lea    buffer(pc),a0
  638.         lea    64(a2),a4
  639.         moveq    #$7f,d1
  640. MFM_loop    moveq    #0,d0
  641.         tst.b    wtdat
  642.         beq.s    .tr
  643.         move.l    (a3)+,d0
  644. .tr        bsr.s    to_MFM
  645.         lea    buffer(pc),a0
  646.         move.l    (a0),(a4)
  647.         move.l    4(a0),$200(a4)
  648.         addq.w    #4,a4
  649.         dbf    d1,MFM_loop
  650.         lea    64(a2),a0
  651.         move.w    #$ff,d1
  652. check_loop:    bsr.s    check_next
  653.         addq.w    #4,a0
  654.         dbf    d1,check_loop
  655.         lea    64(a2),a0
  656.         move.w    #$ff,d1
  657.         bsr.s    checksum
  658.         lea    56(a2),a0
  659.         bsr.s    to_MFM
  660.         movem.l    (a7)+,d0/d1/d4/a0/a3/a4
  661.         rts
  662.         dc.l    0
  663. buffer        dc.l    0,0
  664.  
  665. checksum:    move.l    d2,-(a7)
  666.         moveq    #0,d0
  667. checksum_loop:    move.l    (a0)+,d2
  668.         eor.l    d2,d0
  669.         dbf    d1,checksum_loop
  670.         and.l    #$55555555,d0
  671.         move.l    (a7)+,d2
  672.         rts
  673.  
  674. to_MFM:        movem.l    d0-d3,-(a7)
  675.         move.l    d0,d3
  676.         lsr.l    #1,d0
  677.         bsr.s    get_taktbits
  678.         move.l    d3,d0
  679.         bsr.s    get_taktbits
  680.         movem.l    (a7)+,d0-d3
  681.         rts
  682. get_taktbits:    and.l    d5,d0
  683.         move.l    d0,d2
  684.         eor.l    d5,d2
  685.         move.l    d2,d1
  686.         lsl.l    #1,d2
  687.         lsr.l    #1,d1
  688.         bset    #31,d1
  689.         and.l    d2,d1
  690.         or.l    d1,d0
  691.         btst    #0,-1(a0)
  692.         beq.s    its_a_zero
  693.         bclr    #31,d0
  694. its_a_zero:    move.l    d0,(a0)+
  695.         rts
  696.  
  697. check_next:    move.b    (a0),d0
  698.         btst    #0,-1(a0)
  699.         bne.s    clear_7
  700.         btst    #6,d0
  701.         bne.s    ok
  702.         bset    #7,d0
  703.         bra.s    write_d0
  704. clear_7:    bclr    #7,d0
  705. write_d0:    move.b    d0,(a0)
  706. ok:        rts
  707.  
  708.  
  709.  
  710. C952    MOVE.W    #$4489,-4(A0)
  711.     RTS
  712.  
  713. C970    MOVE.L    #$7C000,$20(A5)
  714.     MOVE.W    #$4000,$24(A5)
  715.     MOVE.W    #$7F00,$9E(A5)
  716.     MOVE.W    #$9500,$9E(A5)
  717.     MOVE.W    #$4489,$7E(A5)
  718.     MOVE.W    #2,$9C(A5)
  719.     btst    #4,$bfdd00
  720. .r    btst    #4,$bfdd00
  721.     beq.s    .r
  722.     ;BSR.W    CC34
  723.     MOVE.W    #$9b00,D1
  724.     MOVE.W    D1,$24(A5)
  725.     MOVE.W    D1,$24(A5)
  726.     RTS
  727.  
  728. C9AA    MOVE.W    #2,$9C(A5)
  729.     MOVE.L    #$7C000,$20(A5)
  730.     MOVE.W    #$7F00,$9E(A5)
  731.     MOVE.W    #$4000,$24(A5)
  732.     MOVE.W    #$9100,$9E(A5)
  733.     BSR.W    CC34
  734.     MOVE.W    #$D902,D1
  735.     MOVE.W    D1,$24(A5)
  736.     MOVE.W    D1,$24(A5)
  737.     RTS
  738.  
  739. CA06    MOVE.L    #$61A80,D0
  740. CA0C    SUBQ.L    #1,D0
  741.     BNE.S    CA14
  742.     MOVEQ    #2,D0
  743.     BRA.S    CA20
  744.  
  745. CA14    MOVE.W    $1E(A5),D2
  746.     BTST    #1,D2
  747.     BEQ.S    CA0C
  748.     MOVEQ    #0,D0
  749. CA20    MOVE.W    #2,$9C(A5)
  750.     MOVE.W    #$4000,$24(A5)
  751.     MOVE.W    #$53B,D7
  752.     BSR.W    CC3E
  753.     RTS
  754.  
  755. CA38    BTST    #6,$1001(A6)
  756.     BEQ.S    CA62
  757.     BTST    #3,$1001(A6)
  758.     BNE.S    CA4A
  759.     BRA.S    CA38
  760.  
  761. CA4A    BSR.B    CA66
  762.     MOVEQ    #14,D7
  763.     BSR.W    CC6C
  764.     BTST    #3,$1001(A6)
  765.     BNE.S    CA64
  766.     BRA.S    CA38
  767.  
  768. CA62    MOVEQ    #9,D0
  769. CA64    RTS
  770.  
  771. CA66    MOVEQ    #0,D2
  772.     BRA.S    CA72
  773.  
  774. CA6A    BSR.W    CC16
  775.     NOT.B    D2
  776. CA72    BSR.W    CC00
  777.     TST.B    D2
  778.     BEQ.S    CAA0
  779.     BSR.W    CBB8
  780.     BSR.W    CC16
  781.     MOVEQ    #$1D,D7
  782.     BSR.W    CC6C
  783.     BSR.W    CC00
  784.     BTST    #2,$1001(A6)
  785.     BNE.S    CAC6
  786.     BRA.S    CA6A
  787.  
  788. CAA0    BSR.W    CB58
  789.     BSR.W    CC16
  790.     MOVEQ    #14,D7
  791.     BSR.W    CC6C
  792.     BSR.W    CC00
  793.     BTST    #2,$1001(A6)
  794.     BNE.S    CAC6
  795.     BRA.B    CA6A
  796.  
  797. CAC6    RTS
  798.  
  799. CAC8    BSET    #2,$100(A6)
  800.     BSET    #1,$100(A6)
  801. CAD4    BTST    #4,$1001(A6)
  802.     BEQ.S    CAF6
  803.     BCLR    #0,$100(A6)
  804.     NOP
  805.     NOP
  806.     BSET    #0,$100(A6)
  807.     MOVE.W    #$7C4,D7
  808.     BSR.W    CC3E
  809.     BRA.S    CAD4
  810.  
  811. CAF6    MOVE.W    #$3A98,D7
  812.     BSR.W    CC3E
  813.     MOVE.W    -2(A0),D6
  814.     CLR.B    0(A1,D6.W)
  815.     ST    $32(A1)
  816.     RTS
  817.  
  818. CB0C    MOVE.W    -8(A0),D3
  819.     MOVE.W    -2(A0),D6
  820.     CMP.B    0(A1,D6.W),D3
  821.     BEQ.S    CB3A
  822. CB1A    PEA    CB1A
  823.     MOVE.W    -2(A0),D6
  824.     CMP.B    0(A1,D6.W),D3
  825.     BHI.W    CBB8
  826.     BCS.S    CB58
  827.     ADDQ.L    #4,SP
  828. CB30    MOVE.W    #$3A98,D7
  829.     BSR.W    CC3E
  830.     RTS
  831.  
  832. CB3A    MOVE.W    -2(A0),D6
  833.     MOVE.B    0(A1,D6.W),D3
  834.     BTST    #0,D3
  835.     BEQ.S    CB50
  836.     BCLR    #2,$100(A6)
  837.     BRA.S    CB30
  838.  
  839. CB50    BSET    #2,$100(A6)
  840.     BRA.S    CB30
  841.  
  842. CB58    MOVE.W    -2(A0),D6
  843.     BTST    #4,$1001(A6)
  844.     BEQ.S    CBA8
  845.     SUBQ.B    #1,0(A1,D6.W)
  846.     MOVE.B    0(A1,D6.W),D7
  847.     BTST    #0,D7
  848.     BEQ.S    CB94
  849.     BSET    #1,$100(A6)
  850.     NOP
  851.     NOP
  852.     BCLR    #0,$100(A6)
  853.     NOP
  854.     NOP
  855.     BSET    #0,$100(A6)
  856.     BCLR    #2,$100(A6)
  857.     BRA.S    CB9A
  858.  
  859. CB94    BSET    #2,$100(A6)
  860. CB9A    MOVE.W    #$9C4,D7
  861.     BSR.W    CC3E
  862.     ST    $32(A1)
  863.     RTS
  864.  
  865. CBA8    BSET    #2,$100(A6)
  866.     CLR.B    0(A1,D6.W)
  867.     ST    $32(A1)
  868.     RTS
  869.  
  870. CBB8    MOVE.W    -2(A0),D6
  871.     ADDQ.B    #1,0(A1,D6.W)
  872.     MOVE.B    0(A1,D6.W),D7
  873.     BTST    #0,D7
  874.     BNE.S    CBEC
  875.     BCLR    #1,$100(A6)
  876.     NOP
  877.     NOP
  878.     BCLR    #0,$100(A6)
  879.     NOP
  880.     NOP
  881.     BSET    #0,$100(A6)
  882.     BSET    #2,$100(A6)
  883.     BRA.S    CBF2
  884.  
  885. CBEC    BCLR    #2,$100(A6)
  886. CBF2    MOVE.W    #$9C4,D7
  887.     BSR.B    CC3E
  888.     ST    $32(A1)
  889.     RTS
  890.  
  891. CC00    MOVE.W    -2(A0),D7
  892.     ADDQ.W    #3,D7
  893.     MOVE.B    #$79,$100(A6)
  894.     NOP
  895.     NOP
  896.     BCLR    D7,$100(A6)
  897.     RTS
  898.  
  899. CC16    MOVE.W    -2(A0),D7
  900.     ADDQ.W    #3,D7
  901.     MOVE.B    #$F9,$100(A6)
  902.     NOP
  903.     NOP
  904.     BCLR    D7,$100(A6)
  905.     NOP
  906.     NOP
  907.     BSET    D7,$100(A6)
  908.     RTS
  909.  
  910. CC34    BTST    #5,$1001(A6)
  911.     BNE.S    CC34
  912.     RTS
  913.  
  914. CC3E    MOVE.B    #$7F,$D00(A6)
  915.     MOVE.B    D7,$400(A6)
  916.     LSR.W    #8,D7
  917.     MOVE.B    D7,$500(A6)
  918.     MOVE.B    #$81,$D00(A6)
  919.     MOVE.B    #$11,$E00(A6)
  920. CC5A    BTST    #0,$D00(A6)
  921.     BEQ.S    CC5A
  922.     MOVE.B    #$7F,$D00(A6)
  923.     RTS
  924.  
  925.     MOVEQ    #$18,D7
  926. CC6C    LEA    $DFF000,A5
  927. CC72    CMP.B    #$A0,6(A5)
  928.     BNE.S    CC72
  929. CC7A    CMP.B    #$A0,6(A5)
  930.     BEQ.S    CC7A
  931.     DBRA    D7,CC72
  932.     RTS
  933.  
  934. CC88    LEA    L1200,A2
  935.     MOVE.L    -$10(A0),D1
  936.     MOVE.L    -$14(A0),D2
  937. CC96    TST.L    (A2)
  938.     BEQ.S    CCB4
  939.     CMP.L    (A2),D1
  940.     BNE.S    CCA4
  941.     CMP.L    4(A2),D2
  942.     BEQ.S    CCAA
  943. CCA4    LEA    12(A2),A2
  944.     BRA.S    CC96
  945.  
  946. CCAA    ST    -$1D(A0)
  947.     MOVE.L    8(A2),-$18(A0)
  948. CCB4    RTS
  949.  
  950. CCB6    LEA    L1100,A2
  951.     MOVE.L    -$10(A0),D1
  952.     CMP.L    #$4449534B,D1
  953.     BEQ.S    CCFC
  954.     CMP.L    #$524F4F54,D1
  955.     BEQ.S    CCDE
  956. CCD0    TST.L    (A2)
  957.     BEQ.W    CD2C
  958.     CMP.L    (A2),D1
  959.     BEQ.S    CD1E
  960.     LEA    8(A2),A2
  961.     BRA.S    CCD0
  962.  
  963. CCDE    LEA    ROOT,A2
  964.     MOVE.L    #L1100,-$1C(A0)
  965.     MOVE.L    #$100,$16(A1)
  966.     MOVE.W    #5,-12(A0)
  967.     BRA.S    CD1E
  968.  
  969. CCFC    LEA    DISK,A2
  970.     MOVE.W    -2(A0),D2
  971.     LSL.W    #2,D2
  972.     PEA    4(A1,D2.W)
  973.     MOVE.L    (SP)+,-$1C(A0)
  974.     MOVE.L    #4,$16(A1)
  975.     MOVE.W    #5,-12(A0)
  976. CD1E    cmp.w    #1,4(a2)
  977.     beq.s    .t
  978.     movem.l    d0-d2,-(A7)
  979.     moveq    #0,d0
  980.     moveq    #0,d2
  981.     move.w    4(a2),d2
  982.     subq.w    #1,d2
  983.     mulu    #$1858,d2
  984.     move.w    6(a2),d0
  985.     add.l    d0,d2
  986.     divu    #$1600,d2
  987.     add.w    #1,d2
  988.     move.w    d2,-8(a0)
  989.     swap    d2
  990.     move.w    d2,-6(a0)
  991.     movem.l    (A7)+,d0-d2
  992.     RTS
  993. .t    MOVE.W    4(A2),-8(A0)
  994.     MOVE.W    6(A2),-6(A0)
  995.     rts
  996. CD2C    MOVEQ    #4,D0
  997.     RTS
  998.  
  999. CD30    MOVEM.L    D0-D2,-(SP)
  1000.     MOVE.L    #3,D0
  1001.     MOVE.L    #$4449534B,D1
  1002.     MOVE.W    -2(A0),D2
  1003.     BSR.W    C146
  1004.     MOVEM.L    (SP)+,D0-D2
  1005.     RTS
  1006.  
  1007. CD50    MOVE.B    #1,$33(A1)
  1008.     MOVE.W    #0,-2(A0)
  1009.     MOVEQ    #4,D6
  1010.     BSR.B    CDAC
  1011.     ADDQ.W    #1,-2(A0)
  1012.     CMP.W    #$FFFF,D1
  1013.     BNE.S    CD74
  1014.     BSET    #1,$33(A1)
  1015. CD74    MOVEQ    #5,D6
  1016.     BSR.B    CDAC
  1017.     ADDQ.W    #1,-2(A0)
  1018.     CMP.W    #$FFFF,D1
  1019.     BNE.S    CD8C
  1020.     BSET    #2,$33(A1)
  1021. CD8C    MOVEQ    #6,D6
  1022.     BSR.B    CDAC
  1023.     ADDQ.W    #1,-2(A0)
  1024.     CMP.W    #$FFFF,D1
  1025.     BNE.S    CDA4
  1026.     BSET    #3,$33(A1)
  1027. CDA4    MOVE.W    #0,-2(A0)
  1028.     RTS
  1029.  
  1030. CDAC    BSR.W    CC00
  1031.     BSR.W    CC16
  1032.     MOVEQ    #0,D1
  1033.     MOVEQ    #15,D2
  1034. CDBC    LSL.W    #1,D1
  1035.     BCLR    D6,$100(A6)
  1036.     NOP
  1037.     NOP
  1038.     BTST    #5,$1001(A6)
  1039.     BNE.S    CDD2
  1040.     OR.B    #1,D1
  1041. CDD2    BSET    D6,$100(A6)
  1042.     DBRA    D2,CDBC
  1043.     RTS
  1044.  
  1045. CDDC    ADDQ.W    #1,-2(A0)
  1046.     AND.W    #3,-2(A0)
  1047.     MOVE.W    -2(A0),D2
  1048.     BTST    D2,$33(A1)
  1049.     BEQ.S    CDDC
  1050.     RTS
  1051.  
  1052. CDF2    ST    $34(A1)
  1053.     CLR.B    $35(A1)
  1054.     MOVE.L    -$14(A0),D1
  1055.     MOVEQ    #0,D2
  1056.     CLR.W    -2(A0)
  1057.     BRA.S    CE24
  1058.  
  1059. CE06    BSR.W    CC16
  1060.     BSR.B    CDDC
  1061.     TST.W    -2(A0)
  1062.     BNE.S    CE24
  1063.     NOT.B    D2
  1064.     MOVE.B    $34(A1),$35(A1)
  1065.     ST    $34(A1)
  1066. CE24    BSR.W    CC00
  1067.     TST.B    D2
  1068.     BEQ.S    CE60
  1069.     BSR.W    CBB8
  1070.     BSR.W    CC16
  1071.     MOVEQ    #14,D7
  1072.     BSR.W    CC6C
  1073.     BSR.W    CC00
  1074.     BTST    #2,$1001(A6)
  1075.     BNE.S    CE94
  1076.     MOVE.W    -2(A0),D3
  1077.     BCLR    D3,$34(A1)
  1078.     LSL.W    #2,D3
  1079.     CLR.L    4(A1,D3.W)
  1080.     BRA.S    CE06
  1081.  
  1082. CE60    BSR.W    CB58
  1083.     BSR.W    CC16
  1084.     MOVEQ    #7,D7
  1085.     BSR.W    CC6C
  1086.     BSR.W    CC00
  1087.     BTST    #2,$1001(A6)
  1088.     BNE.S    CE94
  1089.     MOVE.W    -2(A0),D3
  1090.     BCLR    D3,$34(A1)
  1091.     LSL.W    #2,D3
  1092.     CLR.L    4(A1,D3.W)
  1093.     BRA.B    CE06
  1094.  
  1095. CE94    MOVE.W    -2(A0),D3
  1096.     BTST    D3,$35(A1)
  1097.     BNE.B    CE06
  1098.     BSR.W    CD30
  1099.     LSL.W    #2,D3
  1100.     CMP.L    4(A1,D3.W),D1
  1101.     BNE.W    CE06
  1102.     CMP.L    $26(A1),D1
  1103.     BEQ.S    CED8
  1104.     MOVEM.L    D0-D2,-(SP)
  1105.     MOVE.L    #3,D0
  1106.     MOVE.L    #$524F4F54,D1
  1107.     MOVE.W    -2(A0),D2
  1108.     BSR.W    C146
  1109.     TST.L    D0
  1110.     BNE.S    CEDE
  1111.     MOVEM.L    (SP)+,D0-D2
  1112. CED8    MOVE.L    D1,$26(A1)
  1113.     RTS
  1114.  
  1115. CEDE    MOVEM.L    (SP)+,D0-D2
  1116.     MOVE.L    D1,$26(A1)
  1117.     MOVEQ    #10,D0
  1118.     RTS
  1119.  
  1120. CF0A    BSR.W    CC16
  1121.     MOVEM.L    D0-D7/A0-A6,-(SP)
  1122.     MOVE.L    $1E(A1),D0
  1123.     BPL.S    CF22
  1124.     BCLR    #$1F,D0
  1125.     ADD.L    $2A(A1),D0
  1126. CF22    MOVE.L    D0,A2
  1127.     MOVE.L    $22(A1),D1
  1128.     LEA    4(A2),A5
  1129.     LEA    8(A2),A3
  1130.     LEA    0(A2,D1.L),A0
  1131.     BSR.W    CFCC
  1132.     MOVEM.L    (SP)+,D0-D7/A0-A6
  1133.     BSR.W    CC00
  1134.     RTS
  1135.  
  1136. CF44    BSR.W    CC16
  1137.     MOVEM.L    D0-D7/A0-A6,-(SP)
  1138.     MOVE.L    $1E(A1),A2
  1139.     MOVE.L    $22(A1),D1
  1140.     LEA    4(A2),A5
  1141.     LEA    8(A2),A3
  1142.     LEA    0(A2,D1.L),A0
  1143.     LEA    L10B0,A4
  1144.     BSR.S    CF76
  1145.     MOVEM.L    (SP)+,D0-D7/A0-A6
  1146.     BSR.W    CC00
  1147.     RTS
  1148.  
  1149. CF76    MOVEQ    #3,D6
  1150.     MOVEQ    #7,D7
  1151.     MOVEQ    #1,D5
  1152.     MOVE.L    -(A0),D1
  1153.     TST.B    D1
  1154.     BEQ.S    CF8A
  1155.     BSR.W    C100A
  1156.     SUBQ.B    #1,D1
  1157.     LSR.L    D1,D5
  1158. CF8A    LSR.L    #8,D1
  1159.     MOVE.L    D1,$2E(A1)
  1160.     MOVE.L    A3,-(SP)
  1161.     LEA    CFE4,A6
  1162. CF98    PEA    CF98
  1163.     MOVE.L    (A4)+,A2
  1164.     MOVE.L    (A4)+,A3
  1165.     CMP.L    #$FFFFFFFF,A2
  1166.     BEQ.S    CFBC
  1167.     MOVEM.L    D0/A3,-(SP)
  1168.     SUB.L    A2,A3
  1169.     MOVE.L    A3,D0
  1170.     SUB.L    D0,$2E(A1)
  1171.     MOVEM.L    (SP)+,D0/A3
  1172.     JMP    (A6)
  1173.  
  1174. CFBC    ADDQ.L    #4,SP
  1175.     MOVE.L    (SP)+,A2
  1176.     ADD.L    $2A(A1),A2
  1177.     MOVE.L    A2,A3
  1178.     ADD.L    $2E(A1),A3
  1179.     JMP    (A6)
  1180.  
  1181. CFCC    MOVEQ    #3,D6
  1182.     MOVEQ    #7,D7
  1183.     MOVE.L    A3,A2
  1184.     MOVEQ    #1,D5
  1185.     MOVE.L    -(A0),D1
  1186.     TST.B    D1
  1187.     BEQ.S    CFE0
  1188.     BSR.S    C100A
  1189.     SUBQ.B    #1,D1
  1190.     LSR.L    D1,D5
  1191. CFE0    LSR.L    #8,D1
  1192.     ADD.L    D1,A3
  1193. CFE4    BSR.S    C100A
  1194.     BCS.S    C102C
  1195.     MOVEQ    #0,D2
  1196. CFEA    MOVEQ    #1,D0
  1197.     BSR.S    C1018
  1198.     ADD.W    D1,D2
  1199.     CMP.W    D6,D1
  1200.     BEQ.S    CFEA
  1201. CFF4    MOVEQ    #7,D0
  1202.     BSR.S    C1018
  1203.     MOVE.B    D1,-(A3)
  1204.     DBRA    D2,CFF4
  1205.     CMP.L    A3,A2
  1206.     BCS.S    C102C
  1207.     MOVE.L    #C102C,A6
  1208.     RTS
  1209.  
  1210. C100A    LSR.L    #1,D5
  1211.     BEQ.S    C1010
  1212.     RTS
  1213.  
  1214. C1010    MOVE.L    -(A0),D5
  1215.     ROXR.L    #1,D5
  1216.     RTS
  1217.  
  1218. C1016    SUBQ.W    #1,D0
  1219. C1018    MOVEQ    #0,D1
  1220. C101A    LSR.L    #1,D5
  1221.     BEQ.S    C1026
  1222. C101E    ROXL.L    #1,D1
  1223.     DBRA    D0,C101A
  1224.     RTS
  1225.  
  1226. C1026    MOVE.L    -(A0),D5
  1227.     ROXR.L    #1,D5
  1228.     BRA.S    C101E
  1229.  
  1230. C102C    MOVEQ    #1,D0
  1231.     BSR.S    C1018
  1232.     MOVEQ    #0,D0
  1233.     MOVE.B    0(A5,D1.W),D0
  1234.     MOVE.W    D1,D2
  1235.     CMP.W    D6,D2
  1236.     BNE.S    C1052
  1237.     BSR.S    C100A
  1238.     BCS.S    C1042
  1239.     MOVEQ    #7,D0
  1240. C1042    BSR.S    C1016
  1241.     MOVE.W    D1,D3
  1242. C1046    MOVEQ    #2,D0
  1243.     BSR.S    C1018
  1244.     ADD.W    D1,D2
  1245.     CMP.W    D7,D1
  1246.     BEQ.S    C1046
  1247.     BRA.S    C1056
  1248.  
  1249. C1052    BSR.S    C1016
  1250.     MOVE.W    D1,D3
  1251. C1056    ADDQ.W    #1,D2
  1252. C1058    MOVE.B    0(A3,D3.W),-(A3)
  1253.     DBRA    D2,C1058
  1254.     CMP.L    A3,A2
  1255.     BCS.S    CFE4
  1256.     MOVE.L    #CFE4,A6
  1257.     RTS
  1258.     blk.b    $f0,0
  1259. buf    dc.l    0,0,0
  1260.  
  1261. L106C    dc.l    L1078,$DFF000,$BFD000
  1262. L1078    dc.l    $FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF
  1263.     dc.l    $FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF
  1264.     dc.l    $FFFFFFFF,$FFFFFFFF,$FFFFFFFF
  1265. L10AC    dc.l    $FFFFFFFF
  1266. L10B0    dc.l    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1267.  
  1268. ROOT    dc.b    'ROOT'
  1269.     dc.w    1
  1270.     dc.w    4
  1271. DISK    dc.b    'DISK'
  1272.     dc.w    1
  1273.     dc.w    0
  1274.  
  1275. L1100    dc.l    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1276.     dc.l    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1277.     dc.l    0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1278. L1200    dc.l    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1279.     dc.l    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1280.     dc.l    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1281.     dc.l    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1282. L1380    dc.w    0
  1283. jend
  1284.