home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Disk&HD / ORS_SP4R.DMS / in.adf / ReadMe_Release! < prev    next >
Encoding:
Text File  |  1996-01-08  |  73.3 KB  |  4,707 lines
  1.              ____  ___   ____   _   ___  ___  ____   
  2.             .:::: / . \_/ ___)_/_)/ .__)(___)/ ___)::::.
  3.             :::::/  ¦  \___  \   \  ¦  \/   \___  \:::::
  4.             :::::\_____/___  /_  /__|   \_  /___  /:::::
  5.                               [RD10/CodX] 
  6.  
  7.                 presents: Speedup System 4.0 Cracked
  8.  
  9.                       Hi Folks!
  10.  
  11. This is a INNER Osiris release coz members asked me for a Speedup 4.0 Version who
  12. works without the 4-Unit Multi Adapter from VOB. Here it is.
  13.  
  14. Now you can work with the plain A1200/A4000 AT-IDE Interface and Speedup V4.0 to
  15. install your ATAPI devices (CD-ROM, Streamer etc) and your Harddisk, in addictum
  16. the embedded origininal scsi.device is patched up to work more stable with AT/ATAPI
  17. medias.
  18.  
  19. I have no fixed the original installer script. He makes some foolish, overwrite
  20. your nonvolatile/lowlevel.library without ask and the adder for startup-sequence
  21. use EDit to join lines (Edit cut all lines they are longer than 80 ASCII`s).
  22. Don`t blame me again and say it`s a bad crack - thats original.
  23.  
  24. Standart configurations:
  25.  
  26. AT HD  (Master)  Unit 0              (if aviable)
  27. CD-ROM (Slave)   Unit 1 and 3
  28.  
  29. or
  30. CDROM (Master)   Unit 0
  31.  
  32. Don`t use a standalone-ATAPI CD Unit as slave without an existing Master, it hangs!
  33.  
  34. Few last words: Since the roles in the scene are unclearer than any time before,
  35. my reactivation from Osiris in my eyes are a great foolish. Angry for anybody in
  36. the great Osiris crew, many fun and memorials to a great time we had in the 70ties
  37. and 80ties.
  38. The rest of the best is fast to say: bullshit. A fiew good (and friendly) guys in
  39. the scene always existent, e.g. Galahad or the old Hoodlum/TRSI crew, but otherwise 
  40. is no respect anymore for the work from anybody, groups comes and go, great arrogance
  41. and "elite" blabla. Who can understand that a crew after a few weeks can say "We are
  42. numero uno" ???
  43. Ok, if the boys are older and must work wor what they will eat, they ar surely a bit
  44. rougher.
  45. Goodbye to this scene is a logical affront, my releases going the way the are many
  46. years before they gone: for a view good friends, not for the mass who think they can
  47. always better.
  48. My last release TKR Multiterm KIT was cracked 100% by me (not the register tool who
  49. was infected by the HNY96, too sad, but i have only one Amiga, sorry :-//) was
  50. re-released from 5 (!!!) other groups, with the same crack, some kiddys as additional
  51. TKR-Fonts etc added, nothing else. What a blame! And MANY other great guys has the 
  52. same problems. WAKE UP!
  53.  
  54. Crack code from SpeedupKern for all who think it can better :-)) :
  55. (not fully documented, only the exlaim parts)
  56.     SECTION    speeduprs000000,CODE
  57. ProgStart:
  58.     MOVEA.L    (4).W,A6
  59.     CMP.L    #2,D0
  60.     BEQ.B    lbC000028
  61.     LEA    (scsidevice.MSG,PC),A1
  62.     JSR    (-$0060,A6)                ;FindResident
  63.     TST.L    D0
  64.     BEQ.B    lbC000024                ;it`s resident
  65.     MOVEA.L    D0,A0
  66.     MOVE.B    (11,A0),D0
  67.     CMP.B    #$64,D0
  68.     BNE.B    lbC000028                ;it`s resident
  69. lbC000024:
  70.     MOVEQ    #0,D0
  71.     RTS
  72.  
  73. lbC000028:
  74.     MOVEQ    #$22,D0
  75.     MOVE.L    #$00010001,D1
  76.     JSR    (-$00C6,A6)                ;AllocMem
  77.     TST.L    D0
  78.     BEQ.W    lbC000114                ;no memory free
  79.     ;++++++++++++++++++++++++++++++++++++VBR-Interrupt comes alive
  80.     LEA    (lbL00015C,PC),A0
  81.     MOVE.L    D0,(A0)
  82.     MOVEA.L    D0,A1
  83.     MOVE.B    #2,(8,A1)
  84.     MOVE.B    #$7F,(9,A1)
  85.     LEA    (vbrinterrupt.MSG,PC),A0
  86.     MOVE.L    A0,(10,A1)
  87.     LEA    (lbC0001A0,PC),A0
  88.     MOVE.L    A0,($0012,A1)
  89.     MOVE.L    A1,(14,A1)
  90.     MOVEQ    #0,D0
  91.     MOVE.L    A6,($0016,A1)
  92.     MOVE.L    D0,($001A,A1)
  93.     MOVE.L    D0,($001E,A1)
  94.     MOVEQ    #5,D0
  95.     JSR    (-$00A8,A6)                ;AddIntServer
  96.     MOVEA.L    (lbL00015C,PC),A0
  97. lbC00007A:
  98.     TST.L    ($001E,A0)
  99.     BEQ.B    lbC00007A                ;Loop to correct IRQ-Vector
  100.     JSR    (-$0078,A6)                ;Disable
  101.     MOVEA.L    ($001A,A0),A6
  102.     LEA    (lbL000164,PC),A1
  103.     MOVE.L    ($0024,A6),(A1)
  104.     LEA    (scsidevice.MSG,PC),A0
  105.     MOVE.L    A0,($0024,A6)
  106.     MOVEA.L    (4).W,A6
  107.     BSR.W    lbC0001CE
  108.     MOVEA.L    (4).W,A6
  109.     MOVEQ    #$2C,D0
  110.     MOVE.L    #$00010001,D1
  111.     JSR    (-$00C6,A6)                ;AllocMem
  112.     LEA    (lbL000160,PC),A0
  113.     MOVE.L    D0,(A0)
  114.     BEQ.W    lbC000114                ;allocation not correct
  115.     ;+++++++++++++++++++++++++++++++++++Interrupt binding
  116.     MOVEA.L    D0,A1
  117.     MOVE.B    #2,(8,A1)
  118.     MOVE.B    #$7F,(9,A1)
  119.     LEA    (itoolsinterru.MSG,PC),A0
  120.     MOVE.L    A0,(10,A1)
  121.     LEA    (lbB0013FC,PC),A0
  122.     MOVE.L    A0,($0012,A1)
  123.     MOVE.L    A1,(14,A1)
  124.     MOVE.L    D4,($0016,A1)
  125.     MOVE.L    D5,($001A,A1)
  126.     MOVE.L    A5,($001E,A1)
  127.     MOVEQ    #5,D0
  128.     JSR    (-$00A8,A6)                ;AddIntServer
  129.     JSR    (-$007E,A6)                ;Enable
  130.     LEA    (xxxxxxxxxx.MSG,PC),A0            ;scsi.device
  131.     BSR.W    lbC0001CE                ; bind as task
  132.     TST.L    D0
  133.     BNE.B    lbC000104                ;neu =>reset
  134.     BSR.W    lbC0001BA                ;SumKickData
  135.     BRA.B    lbC000114
  136.  
  137. lbC000104:
  138.     BSR.W    lbC000216
  139.     TST.L    D0
  140.     BEQ.B    lbC000114                ;RemIntServer-Routine
  141.     MOVEA.L    (4).W,A6
  142.     JMP    (-$02D6,A6)                ;Reset
  143.  
  144. ;**************************************************************************************
  145.  
  146. lbC000114:                        ; binding not correct
  147.     MOVEA.L    (lbL00015C,PC),A0
  148.     MOVEA.L    ($001A,A0),A6
  149.     MOVE.L    (lbL000164,PC),($0024,A6)
  150.     MOVEA.L    (4).W,A6
  151.     MOVE.L    (lbL000160,PC),D0
  152.     BEQ.B    lbC00013E
  153.     MOVEA.L    D0,A1
  154.     MOVEQ    #5,D0
  155.     JSR    (-$00AE,A6)                ;RemIntServer
  156.     MOVEA.L    (lbL000160,PC),A1
  157.     MOVEQ    #$2C,D0
  158.     JSR    (-$00D2,A6)                ;FreeMem
  159. lbC00013E:
  160.     MOVE.L    (lbL00015C,PC),D0
  161.     BEQ.B    lbC000156
  162.     MOVEA.L    D0,A1
  163.     MOVEQ    #5,D0
  164.     JSR    (-$00AE,A6)                ;RemIntServer
  165.     MOVEA.L    (lbL00015C,PC),A1
  166.     MOVEQ    #$22,D0
  167.     JSR    (-$00D2,A6)                ;FreeMem
  168. lbC000156:
  169.     MOVEQ    #0,D0
  170. loop40:
  171.     RTS
  172.  
  173. label1:
  174.     dc.w    0
  175. lbL00015C:
  176.     dc.l    0
  177. lbL000160:
  178.     dc.l    0
  179. lbL000164:
  180.     dc.l    0
  181. vbrinterrupt.MSG:
  182.     dc.b    'vbr-interrupt',0
  183. itoolsinterru.MSG:
  184.     dc.b    'itools-interrupt',0
  185. scsidevice.MSG:
  186.     dc.b    'scsi.device',0
  187. xxxxxxxxxx.MSG:
  188.     dc.b    'xxxx.xxxxxx',0,0
  189.  
  190. lbC0001A0:
  191.     MOVEQ    #0,D0
  192.     MOVE.W    ($0128,A6),D0
  193.     BEQ.B    lbC0001AC
  194.     MOVEC    VBR,D0
  195. lbC0001AC:
  196.     MOVE.L    D0,($001A,A1)
  197.     MOVEQ    #-1,D0
  198.     MOVE.L    D0,($001E,A1)
  199.     MOVEQ    #0,D0
  200.     RTS
  201.  
  202. lbC0001BA:
  203.     MOVEQ    #0,D0
  204.     MOVE.L    D0,($0226,A6)
  205.     MOVE.L    D0,($0222,A6)
  206.     JSR    (-$0264,A6)                ;SumKickData
  207.     MOVE.L    D0,($022A,A6)
  208.     RTS
  209.  
  210. ;************************* jump from Init **********************************
  211. lbC0001CE:
  212.     MOVE.L    A2,-(SP)
  213.     LEA    ($0226,A6),A2
  214.     MOVE.L    (A2),D0
  215.     BEQ.B    lbC000200            :back
  216.     MOVEA.L    D0,A1
  217.     MOVE.L    (A1)+,D0
  218.     BEQ.B    lbC000200            ;back
  219.     BCLR    #$1F,D0
  220.     BNE.B    lbC000200            ;back
  221.     MOVEM.L    A0/A1,-(SP)
  222.     MOVEA.L    D0,A1
  223.     MOVEA.L    (14,A1),A1
  224.     BSR.W    lbC000206
  225.     MOVEM.L    (SP)+,A0/A1
  226.     TST.B    D0
  227.     BEQ.B    lbC000200            ;back
  228.     MOVEQ    #0,D0
  229.     MOVEA.L    (SP)+,A2
  230.     RTS
  231.  
  232. lbC000200:
  233.     MOVEQ    #-1,D0
  234.     MOVEA.L    (SP)+,A2
  235.     RTS
  236.  
  237. lbC000206:
  238.     MOVEQ    #0,D0
  239. lbC000208:
  240.     MOVE.B    (A0)+,D1
  241.     CMP.B    (A1)+,D1
  242.     BNE.B    lbC000214
  243.     TST.B    D1
  244.     BNE.B    lbC000208
  245.     MOVEQ    #-1,D0
  246. lbC000214:
  247.     RTS
  248. ;****************************** last jump before resetting *******************
  249. lbC000216:
  250.     LEA    (lbB0003F8,PC),A0
  251.     LEA    (lbL003290,PC),A1
  252.     MOVE.L    ($0010,A1),D0
  253.     ADD.L    D0,($0014,A0)
  254.     BSR.W    lbC000248
  255.     TST.L    D0
  256.     BEQ.B    lbC000246
  257.     MOVEA.L    D0,A0
  258.     MOVE.L    D0,-(SP)
  259.     LEA    ($0168,A0),A0
  260.     LEA    ($0226,A6),A1
  261.     MOVE.L    A0,(A1)
  262.     JSR    (-$0264,A6)                    ;AddMemList
  263.     MOVE.L    D0,($022A,A6)
  264.     MOVE.L    (SP)+,D0
  265. lbC000246:
  266.     RTS
  267.  
  268. lbC000248:
  269.     MOVE.L    A2,-(SP)
  270.     MOVE.L    A0,-(SP)
  271.     JSR    (-$00DE,A6)                    ;AllocEntry
  272.     BTST    #$1F,D0
  273.     BNE.W    lbC0002A0
  274.     MOVEA.L    (SP)+,A1
  275.     MOVEA.L    D0,A0
  276.     MOVE.L    ($0010,A0),($0010,A1)
  277.     MOVEA.L    ($0010,A1),A0
  278.     LEA    ($0150,A0),A0
  279.     LEA    ($0222,A6),A2
  280.     MOVE.L    A0,(A2)
  281.     MOVEA.L    ($0010,A1),A0
  282.     LEA    (lbL0002A8,PC),A2
  283.     MOVE.L    #$00002FE8,D0
  284.     ADD.L    (lbL0032A0,PC),D0
  285.     LSR.L    #2,D0
  286.     SUBQ.L    #1,D0
  287. lbC000286:
  288.     MOVE.L    (A2)+,(A0)+
  289.     DBRA    D0,lbC000286
  290.     MOVEA.L    ($0010,A1),A2
  291.     MOVE.L    A1,-(SP)
  292.     BSR.W    lbC0002B6
  293.     MOVEA.L    (SP)+,A1
  294.     MOVE.L    ($0010,A1),D0
  295.     MOVEA.L    (SP)+,A2
  296.     RTS
  297.  
  298. lbC0002A0:
  299.     MOVEQ    #0,D0
  300.     MOVEA.L    (SP)+,A2
  301. loop41:
  302.     RTS
  303.  
  304. label2:
  305.     dc.w    0
  306. lbL0002A8:
  307.     dc.l    $10002FE8,$000E01C4,$00660000
  308.     dc.w    0
  309.  
  310. lbC0002B6:
  311.     LEA    ($0024,A2),A1
  312.     MOVE.L    A2,D1
  313. lbC0002BC:
  314.     MOVE.W    (A1)+,D0
  315.     BMI.B    lbC0002C6
  316.     ADD.L    D1,(A2,D0.W)
  317.     BRA.B    lbC0002BC
  318.  
  319. lbC0002C6:
  320.     MOVEQ    #1,D0
  321.     RTS
  322.  
  323. loop1:
  324.     dcb.b    3,0
  325.     dc.b    $4E,0,$52,0,$5A,0,$5E,0,$62,1,$68,1,$7C,1,$80,1
  326.     dc.b    $84,1,$88,1,$8C,1,$90,1,$94,1,$98,1,$9C,1,$AA,1
  327.     dc.b    $BC,1,$5A,$FF,$FF,0,0,$4A,$FC,0,0,0,$4C,0,0,$2F
  328.     dc.b    $E8,$81,$64,3,$14,0,0,0,$66,0,0,0,$79,0,0,1
  329.     dc.b    $78
  330. scsidevice.msg:
  331.     dc.b    'scsi.device',0,0
  332. version.msg:
  333.     dc.b    '$VER: IDE & ATAPI Device Driver 100.00 (04.0'
  334.     dc.b    '9.199'
  335.     dc.b    '5 20:27:17)',$D,$A,0
  336. doslib.msg:
  337.     dc.b    'dos.library',0
  338. expansion.msg:
  339.     dc.b    'expansion.library',0
  340. carddisk.msg:
  341.     dc.b    'carddisk.device',0
  342. timerdev.msg:
  343.     dc.b    'timer.device',0,0
  344. diskchange.msg:
  345.     dc.b    'DiskChangeProcess',0
  346. diskchinterr.msg:
  347.     dc.b    'DiskChangeInterrupt',0
  348. ideinterr.msg:
  349.     dc.b    'IDE-AT-Interrupt',0,0
  350. watchdog.msg:
  351.     dc.b    'WatchDog_Interrupt',0,0
  352. filesyst.msg:
  353.     dc.b    'FileSystem.resource',0,0
  354.     dc.b    0
  355. lbB0003F8:
  356.     dcb.b    13,0
  357.     dc.b    $66,0,1,0,0,0,3,0,0,$2F,$E8,0,0,0,$4C,0,0,0,0,$FF
  358.     dcb.b    3,$FF
  359.     dcb.b    7,0
  360.     dc.b    $44,0,0,1,$88,0,0,1,$A4,0,0,1,$D8,0,0,$11,$80,0,0
  361.     dc.b    $12,$46,0,0,$12,$4E,0,0,$12,$4E,0,0,$12,$52,0,0
  362.     dc.b    $12,$CE,$FF,$FF,$FF,$FF,$A0,8,3,0,$80,10,0,0,0
  363.     dc.b    $66,$A0,14,6,0,$90,$14,0,$64,$90,$16,0,0,$80,$18
  364.     dcb.b    3,0
  365.     dc.b    $79,0,0,0,0,$43,$FA,$FE,$EC,$4E,$AE,$FF,$A0,$20
  366.     dc.b    $40,$20,$68,0,$16,$4E,$90,$4E,$75,0,0,$48,$E7,$FF
  367.     dc.b    $FE
  368.  
  369. loop2:
  370.     MOVEM.L    D0/A0,-(SP)
  371.     LEA    (scsidevice.msg,PC),A0
  372.     CMPI.B    #$78,(A0)            ;x
  373.     BNE.B    lbC0004B2
  374.     CMPI.B    #$78,(1,A0)            ;x
  375.     BNE.B    lbC0004B2        
  376.     CMPI.B    #$78,(2,A0)            ;x
  377.     BNE.B    lbC0004B2
  378.     CMPI.B    #$78,(3,A0)            ;x
  379.     BNE.B    lbC0004B2
  380.     MOVEM.L    (SP)+,D0/A0
  381.     BRA.W    lbC0007BC            ;no aviable
  382.  
  383. lbC0004B2:
  384.     MOVEM.L    (SP)+,D0/A0
  385.     MOVEA.L    D0,A5
  386.     MOVE.L    A6,($0022,A5)
  387.     MOVE.L    A0,($0026,A5)
  388.     MOVE.L    #$00000B00,D0
  389.     MOVE.L    #$00010001,D1
  390.     JSR    (-$00C6,A6)            ;AllocMem
  391.     TST.L    D0
  392.     BEQ.W    lbC0007BC            ;no aviable
  393.     MOVEA.L    D0,A2
  394.     MOVE.L    D0,($002A,A5)
  395.     MOVE.L    A5,($0042,A2)
  396.     LEA    (carddisk.msg,PC),A1        ; carddisk.device
  397.     JSR    (-$0060,A6)            ; FindResident
  398.     TST.L    D0
  399.     BEQ.B    lbC0004FE
  400.     MOVE.L    #$00DA2020,($003A,A2)
  401.     LEA    (lbC001384,PC),A0
  402.     MOVE.L    A0,($003E,A2)
  403.     BRA.B    lbC000538            ; jump to normal binding scsi.device
  404.  
  405. lbC0004FE:
  406.     MOVE.W    ($0128,A6),D0
  407.     BTST    #2,D0
  408.     BNE.B    lbC000512
  409.     BTST    #3,D0
  410.     BNE.B    lbC000512
  411. lbC00050E:
  412.     BRA.W    lbC0007BC
  413.  
  414. ;*************!!!!!!s************************************************************************
  415. lbC000512:                    ; Bind AT-IDE- scsi.device
  416.     LEA    (scsidevice.msg,PC),A1
  417.     JSR    (-$0060,A6)            ; findresident
  418.     TST.L    D0
  419.     BEQ.B    lbC00050E            ; not aviable
  420.     MOVE.W    ($0014,A6),D0
  421.     CMP.W    #$0027,D0
  422.     BLT.B    lbC00050E            ; not aviable
  423.     MOVE.L    #$00DD2020,($003A,A2)
  424.     LEA    (lbC001334,PC),A0
  425.     MOVE.L    A0,($003E,A2)
  426. lbC000538:
  427.     MOVEQ    #$2C,D0
  428.     MOVE.L    #$00010001,D1
  429.     JSR    (-$00C6,A6)            ;AllocMem
  430.     TST.L    D0
  431.     BEQ.W    lbC0007BC            ;not aviable
  432.     MOVE.L    D0,($004A,A2)
  433.     MOVEA.L    D0,A1
  434.     MOVE.B    #2,(8,A1)
  435.     MOVE.B    #$14,(9,A1)
  436.     LEA    (ideinterr.msg,PC),A0
  437.     MOVE.L    A0,(10,A1)
  438.     MOVE.L    ($003E,A2),($0012,A1)
  439.     MOVE.L    A1,(14,A1)
  440.     MOVE.L    A6,($0016,A1)
  441.     MOVE.L    ($003A,A2),($001A,A1)
  442.     MOVE.L    ($003A,A2),($001E,A1)
  443.     ADDI.L    #$00006000,($001E,A1)
  444.     MOVE.W    #$FFFF,($002A,A1)
  445.     MOVEQ    #3,D0
  446.     JSR    (-$00A8,A6)            ;not aviable
  447.     MOVEQ    #$24,D0
  448.     MOVE.L    #$00010001,D1
  449.     JSR    (-$00C6,A6)            ;AllocMem
  450.     TST.L    D0
  451.     BEQ.W    lbC0007BC            ;not aviable
  452.     MOVE.L    D0,($004E,A2)
  453.     MOVEA.L    D0,A1
  454.     MOVE.B    #2,(8,A1)
  455.     MOVE.B    #$14,(9,A1)
  456.     LEA    (watchdog.msg,PC),A0
  457.     MOVE.L    A0,(10,A1)
  458.     LEA    (lbC0013D6,PC),A0
  459.     MOVE.L    A0,($0012,A1)
  460.     MOVE.L    A1,(14,A1)
  461.     MOVE.L    A6,($0016,A1)
  462.     CLR.W    ($0022,A1)
  463.     MOVEQ    #5,D0
  464.     JSR    (-$00A8,A6)            ;AddIntServer
  465.     LEA    (expansion.msg,PC),A1
  466.     MOVEQ    #0,D0
  467.     JSR    (-$0228,A6)            ;OpenLibrary
  468.     TST.L    D0
  469.     BEQ.W    lbC0007BC            ;not aviable
  470.     MOVE.L    D0,($002E,A2)
  471.     MOVEA.L    D0,A0
  472.     MOVE.L    A6,-(SP)
  473.     MOVEA.L    A0,A6
  474.     JSR    (-$0030,A6)            ;Reschedule
  475.     MOVEA.L    (SP)+,A6
  476.     MOVE.L    D0,($0056,A2)
  477.     MOVEA.L    D0,A0
  478.     MOVE.L    ($003A,A2),($0020,A0)
  479.     MOVE.B    #$10,($0010,A0)
  480.     LEA    (lbL0002A8,PC),A1
  481.     MOVE.L    A1,($001C,A0)
  482.     BCLR    #1,(14,A0)
  483.     SUBA.L    A1,A1
  484.     JSR    (-$0126,A6)            ;FindTask
  485.     LEA    ($00F0,A2),A1
  486.     MOVE.L    D0,($0010,A1)
  487.     JSR    (-$0162,A6)            ;AddPort
  488.     LEA    ($00C8,A2),A1
  489.     MOVEQ    #1,D0
  490.     MOVEQ    #0,D1
  491.     LEA    (timerdev.msg,PC),A0
  492.     JSR    (-$01BC,A6)            ;Opendevice
  493.     TST.L    D0
  494.     BNE.W    lbC0007BC            ;not opened
  495.     MOVE.L    #$000019FC,D0
  496.     ADD.L    (lbL0032A0,PC),D0
  497.     MOVE.L    #$00010001,D1
  498.     JSR    (-$00C6,A6)            ;AllocMem
  499.     TST.L    D0
  500.     BEQ.W    lbC0007BC            ;no memory
  501.     MOVE.L    D0,($0052,A2)
  502.     MOVEA.L    D0,A0
  503.     LEA    (lbC001894,PC),A1
  504.     MOVE.L    #$000019FC,D0
  505.     ADD.L    (lbL0032A0,PC),D0
  506.     SUBQ.L    #1,D0
  507. lbC000670:
  508.     MOVE.B    (A1)+,(A0)+
  509.     DBRA    D0,lbC000670
  510.     LEA    ($011E,A2),A0
  511.     MOVE.L    A0,($0A58,A2)
  512.     LEA    ($0900,A0),A0
  513.     MOVE.L    A0,($0A5C,A2)
  514.     MOVE.L    A2,-(A0)
  515.     MOVE.L    A0,($0A54,A2)
  516.     LEA    ($0A1E,A2),A0
  517.     MOVE.L    A0,($0010,A2)
  518.     MOVE.B    #2,(14,A2)
  519.     MOVE.B    #4,(8,A2)
  520.     MOVE.B    #11,($0A27,A2)
  521.     MOVE.B    #1,($0A26,A2)
  522.     LEA    (scsidevice.msg,PC),A0
  523.     MOVE.L    A0,($0A28,A2)
  524.     LEA    ($0014,A2),A0
  525.     MOVE.L    A0,(8,A0)
  526.     ADDQ.L    #4,A0
  527.     CLR.L    (A0)
  528.     MOVE.L    A0,-(A0)
  529.     LEA    ($0A1E,A2),A1
  530.     MOVEM.L    A2/A3,-(SP)
  531.     MOVEA.L    ($0052,A2),A2
  532.     LEA    (-1).W,A3
  533.     MOVEQ    #0,D0
  534.     JSR    (-$011A,A6)                ;AddTask
  535.     MOVEM.L    (SP)+,A2/A3
  536.     MOVEA.L    ($003A,A2),A0
  537.     CLR.W    ($00A0,A2)
  538.     MOVEQ    #0,D0
  539.     MOVE.B    D0,($1012,A0)
  540.     MOVE.B    #1,($1016,A0)
  541.     MOVE.B    ($1012,A0),D0
  542. ;*********************************** Check for Mutiport Adapter **************
  543.     BTST    #0,D0
  544.     BNE.W    lbC0007BC                ;not opened Unit 0/1
  545.     MOVEQ    #0,D0
  546.     MOVE.B    #1,($1012,A0)
  547.     MOVE.B    D0,($1016,A0)
  548.     MOVE.B    ($1012,A0),D0
  549. ;if no multiport IRQ , no scsi.device PORT inbinding (Task aviable before)
  550.     BTST    #0,D0
  551.     BNE.W    lbC0007BC                ;Crack, org. BEQ
  552.     MOVEQ    #0,D0
  553.     MOVE.B    D0,($1012,A0)
  554.     MOVE.B    #1,($1016,A0)
  555.     MOVE.B    ($1012,A0),D0
  556.     BTST    #0,D0
  557.     BNE.W    lbC0007BC                ;not opened 2/3
  558.     MOVEQ    #-1,D0
  559.     MOVE.B    D0,($1012,A0)
  560.     MOVE.W    #$FFFF,($00A0,A2)
  561.     MOVE.W    #$003C,D0
  562. lbC00073C:
  563.     BSR.W    lbC000AFC
  564.     DBRA    D0,lbC00073C
  565.     CMPI.L    #$00DA2020,($003A,A2)
  566.     BNE.B    lbC000770                ; to initialising Unit 1-4
  567.     LEA    ($00DA8020).L,A0
  568.     MOVE.B    ($1000,A0),D1
  569.     ANDI.B    #3,D1
  570.     ORI.B    #$7C,D1
  571.     MOVE.B    D1,($1000,A0)
  572.     MOVE.B    ($2000,A0),D0
  573.     BSET    #7,D0
  574.     MOVE.B    D0,($2000,A0)
  575. lbC000770:
  576.     LEA    ($006C,A2),A4
  577.     LEA    ($005A,A2),A3
  578.     MOVEQ    #0,D0
  579.     MOVEQ    #0,D1
  580.     BSR.W    lbC0007C4                ; Unit 0
  581.     LEA    ($006D,A2),A4
  582.     LEA    ($005E,A2),A3
  583.     MOVEQ    #1,D0
  584.     MOVEQ    #0,D1
  585.     BSR.W    lbC0007C4                ; Unit 1
  586.  
  587. ; Crack, only the first 2 Units ar searched, or you double your Unit1/2 to Unit 2/3
  588.  
  589.     ;LEA    ($006E,A2),A4
  590.     ;LEA    ($0062,A2),A3
  591.     ;MOVEQ    #2,D0
  592.     ;MOVEQ    #0,D1
  593.     ;BSR.W    lbC0007C4                ; Unit 2
  594.     ;LEA    ($006F,A2),A4
  595.     ;LEA    ($0066,A2),A3
  596.     ;MOVEQ    #3,D0
  597.     ;MOVEQ    #0,D1
  598.     ;BSR.W    lbC0007C4                ; Unit 3
  599.     BCLR    #7,(14,A5)
  600.     MOVEM.L    (SP)+,D0-D7/A0-A6
  601.     RTS
  602.  
  603. lbC0007BC:                        ; error, back
  604.     MOVEM.L    (SP)+,D0-D7/A0-A6
  605.     MOVEQ    #0,D0
  606.     RTS
  607.  
  608. lbC0007C4:                        ; initialise Unit
  609.     MOVEM.L    D2/D3/A3,-(SP)
  610.     MOVE.L    D0,D2
  611.     MOVE.L    D1,D3
  612.     MOVE.L    #$000007A0,D0
  613.     MOVE.L    #$00010001,D1
  614.     JSR    (-$00C6,A6)                ;AllocMem
  615.     MOVE.L    D0,(A3)
  616.     MOVEA.L    D0,A3
  617.     TST.L    D0
  618.     BEQ.W    lbC0008C6
  619.     MOVE.B    D2,(A3)
  620.     MOVE.L    A2,(8,A3)
  621.     MOVE.L    #1,($0018,A3)
  622.     MOVE.B    #1,($0035,A3)
  623.     MOVE.B    #1,($0034,A3)
  624.     MOVE.B    #$FF,(1,A3)
  625.     CLR.L    ($002E,A3)
  626.     MOVE.B    #$FF,(3,A3)
  627.     LEA    ($0020,A3),A0
  628.     MOVE.L    A0,(8,A0)
  629.     ADDQ.L    #4,A0
  630.     CLR.L    (A0)
  631.     MOVE.L    A0,-(A0)
  632.     MOVE.B    #$20,($0054,A3)
  633.     MOVE.B    #$30,($0055,A3)
  634.     MOVE.L    D3,D0
  635.     BSR.W    lbC0008E6
  636.     MOVE.L    D0,D3
  637.     MOVE.B    #$FF,(A4)
  638.     BTST    #0,D3
  639.     BNE.W    lbC0008C6
  640.     MOVE.B    #3,(A4)
  641.     BTST    #1,D3
  642.     BNE.W    lbC0008BC
  643.     MOVE.L    #$00002000,D0
  644.     MOVE.L    #$00010001,D1
  645.     JSR    (-$00C6,A6)                ;AllocMem
  646.     TST.L    D0
  647.     BEQ.W    lbC0008C6
  648.     MOVE.L    D0,($0044,A3)
  649.     MOVE.L    #$7FFFFFFF,($0048,A3)            ;Mask for HD
  650.     MOVEQ    #0,D0
  651.     MOVE.L    D0,($004C,A3)
  652.     CLR.B    (A4)
  653.     BTST    #3,D3
  654.     BNE.B    lbC000890
  655.     MOVE.B    #1,(A4)
  656.     BTST    #2,D3
  657.     BNE.B    lbC000888
  658.     MOVE.B    #2,(A4)
  659. lbC000888:
  660.     MOVE.B    (A4),(1,A3)
  661.     BSR.W    lbC000B28
  662. lbC000890:
  663.     MOVEQ    #$10,D0
  664.     MOVE.W    D0,($0052,A3)
  665.     BTST    #4,D3
  666.     BEQ.W    lbC0008BC
  667.     MOVE.L    D0,D1
  668.     MOVEQ    #$22,D0
  669.     MOVEQ    #0,D2
  670.     SUBA.L    A0,A0
  671.     BSR.W    lbC000A4A
  672.     TST.L    D0
  673.     BEQ.W    lbC0008BC
  674.     MOVE.B    #$C4,($0054,A3)
  675.     MOVE.B    #$C5,($0055,A3)
  676. lbC0008BC:
  677.     MOVE.B    (A4),(1,A3)
  678.     MOVEM.L    (SP)+,D2/D3/A3
  679.     RTS
  680.  
  681. lbC0008C6:
  682.     CMPA.L    #0,A3
  683.     BEQ.B    lbC0008DA
  684.     MOVEA.L    A3,A1
  685.     MOVE.L    #$000007A0,D1
  686.     JSR    (-$00D2,A6)
  687. lbC0008DA:
  688.     MOVE.B    #$FF,(A4)
  689.     MOVEM.L    (SP)+,D2/D3/A3
  690.     CLR.L    (A3)
  691.     RTS
  692.  
  693. lbC0008E6:
  694.     MOVEM.L    D2/D7/A4,-(SP)
  695.     MOVE.L    D0,D2
  696.     MOVEQ    #1,D7
  697.     MOVE.L    #$00000200,D0
  698.     MOVE.L    #$00010000,D1
  699.     JSR    (-$00C6,A6)
  700.     MOVEA.L    D0,A4
  701.     TST.L    D0
  702.     BEQ.W    lbC000A18
  703.     CMP.L    #$FFFFFFFF,D2
  704.     BEQ.B    lbC000946
  705.     MOVEQ    #$24,D0
  706.     MOVEQ    #0,D1
  707.     MOVEQ    #0,D2
  708.     SUBA.L    A0,A0
  709.     BSR.W    lbC000A4A
  710.     TST.L    D0
  711.     BEQ.W    lbC000A18
  712.     MOVEQ    #$25,D0
  713.     MOVEQ    #0,D1
  714.     MOVEQ    #0,D2
  715.     SUBA.L    A0,A0
  716.     BSR.W    lbC000A4A
  717.     MOVEQ    #$1E,D0
  718.     MOVE.L    #$00000200,D1
  719.     MOVEQ    #0,D2
  720.     MOVEA.L    A4,A0
  721.     BSR.W    lbC000A4A
  722.     TST.L    D0
  723.     BEQ.W    lbC000A18
  724.     BRA.W    lbC00095C
  725.  
  726. lbC000946:
  727.     MOVEQ    #$1F,D0
  728.     MOVE.L    #$00000200,D1
  729.     MOVEQ    #0,D2
  730.     MOVEA.L    A4,A0
  731.     BSR.W    lbC000A4A
  732.     TST.L    D0
  733.     BEQ.W    lbC000A18
  734. lbC00095C:
  735.     MOVEA.L    A4,A0
  736.     MOVEQ    #0,D7
  737.     MOVEA.L    A4,A0
  738.     MOVE.W    (A0),D0
  739.     BTST    #15,D0
  740.     BNE.W    lbC000A36
  741.     AND.W    #$00C0,D0
  742.     CMP.W    #$0040,D0
  743.     BEQ.B    lbC000996
  744.     BSET    #2,D7
  745.     BSET    #3,D7
  746.     MOVEQ    #$23,D0
  747.     MOVEQ    #0,D1
  748.     MOVEQ    #0,D2
  749.     SUBA.L    A0,A0
  750.     BSR.W    lbC000A4A
  751.     MOVEA.L    A4,A0
  752.     TST.L    D0
  753.     BEQ.W    lbC000996
  754.     BCLR    #3,D7
  755. lbC000996:
  756.     MOVE.W    ($005E,A0),D0
  757.     AND.W    #$00FF,D0
  758.     BEQ.B    lbC0009AA
  759.     BSET    #4,D7
  760.     LSL.L    #8,D0
  761.     LSL.L    #8,D0
  762.     OR.L    D0,D7
  763. lbC0009AA:
  764.     MOVE.W    ($0062,A0),D0
  765.     BTST    #9,D0
  766.     BEQ.B    lbC0009B8
  767.     BSET    #5,D7
  768. lbC0009B8:
  769.     MOVE.W    (2,A0),D0
  770.     MOVE.W    D0,($0032,A3)
  771.     MOVE.W    (6,A0),D0
  772.     MOVE.B    D0,($0034,A3)
  773.     MOVE.W    (12,A0),D0
  774.     MOVE.B    D0,($0035,A3)
  775.     LEA    ($0062,A3),A0
  776.     CLR.B    (A0)+
  777.     MOVEQ    #0,D0
  778.     BTST    #2,D7
  779.     BEQ.B    lbC0009E2
  780.     MOVE.B    #$80,D0
  781. lbC0009E2:
  782.     MOVE.B    D0,(A0)+
  783.     MOVE.B    #2,(A0)+
  784.     MOVE.B    #2,(A0)+
  785.     MOVE.B    #$1F,(A0)+
  786.     CLR.B    (A0)+
  787.     CLR.B    (A0)+
  788.     MOVE.B    #$20,(A0)+
  789.     MOVEA.L    A4,A1
  790.     LEA    ($0036,A1),A1
  791.     MOVEQ    #$17,D0
  792. lbC000A00:
  793.     MOVE.B    (A1)+,(A0)+
  794.     DBRA    D0,lbC000A00
  795.     MOVEA.L    A4,A1
  796.     LEA    ($002E,A1),A1
  797.     MOVEQ    #3,D0
  798. lbC000A0E:
  799.     MOVE.B    (A1)+,(A0)+
  800.     DBRA    D0,lbC000A0E
  801.     BRA.W    lbC000A1A
  802.  
  803. lbC000A18:
  804.     MOVEQ    #1,D7
  805. lbC000A1A:
  806.     CMPA.L    #0,A4
  807.     BNE.B    lbC000A2E
  808.     MOVE.L    #$00000200,D0
  809.     MOVEA.L    A4,A1
  810.     JSR    (-$00D2,A6)
  811. lbC000A2E:
  812.     MOVE.L    D7,D0
  813.     MOVEM.L    (SP)+,D2/D7/A4
  814.     RTS
  815.  
  816. lbC000A36:
  817.     MOVEA.L    A4,A0
  818.     MOVE.W    (A0),D0
  819.     AND.W    #$0F00,D0
  820.     CMP.W    #$0500,D0
  821.     BNE.B    lbC000A18
  822.     BSET    #1,D7
  823.     BRA.B    lbC000A1A
  824.  
  825. lbC000A4A:
  826.     MOVEM.L    A2/A6,-(SP)
  827.     MOVEA.L    ($0022,A5),A6
  828.     LEA    (-$0030,SP),SP
  829.     MOVEA.L    SP,A2
  830.     MOVE.L    A2,(8,A2)
  831.     ADDQ.L    #4,A2
  832.     CLR.L    (A2)
  833.     MOVE.L    A2,-(A2)
  834.     MOVE.L    A3,($0018,A2)
  835.     MOVE.W    D0,($001C,A2)
  836.     CLR.B    ($001E,A2)
  837.     CLR.B    ($001F,A2)
  838.     CLR.L    ($0020,A2)
  839.     MOVE.L    D1,($0024,A2)
  840.     MOVE.L    A0,($0028,A2)
  841.     MOVE.L    D2,($002C,A2)
  842.     LEA    (-$0022,SP),SP
  843.     MOVE.L    SP,(14,A2)
  844.     MOVE.L    A5,($0014,A2)
  845.     MOVE.B    #4,(8,SP)
  846.     CLR.B    (9,SP)
  847.     CLR.L    (10,SP)
  848.     CLR.B    (14,SP)
  849.     MOVE.B    #4,(15,SP)
  850.     SUBA.L    A1,A1
  851.     JSR    (-$0126,A6)
  852.     MOVE.L    D0,($0010,SP)
  853.     LEA    ($0014,SP),A0
  854.     MOVE.L    A0,(8,A0)
  855.     ADDQ.L    #4,A0
  856.     CLR.L    (A0)
  857.     MOVE.L    A0,-(A0)
  858.     MOVEA.L    A2,A1
  859.     MOVEA.L    (8,A3),A0
  860.     JSR    (-$016E,A6)
  861. lbC000AC8:
  862.     MOVEQ    #$10,D0
  863.     JSR    (-$013E,A6)
  864.     MOVEA.L    SP,A0
  865.     JSR    (-$0174,A6)
  866.     TST.L    D0
  867.     BEQ.B    lbC000AC8
  868.     MOVEQ    #0,D0
  869.     TST.B    ($001F,A2)
  870.     BNE.B    lbC000AEE
  871.     MOVEQ    #-1,D0
  872.     TST.L    ($0020,A2)
  873.     BEQ.W    lbC000AEE
  874.     MOVE.L    ($0020,A2),D0
  875. lbC000AEE:
  876.     LEA    ($0022,SP),SP
  877.     LEA    ($0030,SP),SP
  878.     MOVEM.L    (SP)+,A2/A6
  879.     RTS
  880.  
  881. lbC000AFC:
  882.     MOVEM.L    D0/D1/A0/A1,-(SP)
  883.     LEA    ($00C8,A2),A1
  884.     LEA    ($00F0,A2),A0
  885.     MOVE.L    A0,(14,A1)
  886.     MOVE.W    #9,($001C,A1)
  887.     CLR.L    ($0020,A1)
  888.     MOVE.L    #$000007D0,($0024,A1)
  889.     JSR    (-$01C8,A6)                ;DoIo
  890.     MOVEM.L    (SP)+,D0/D1/A0/A1
  891.     RTS
  892.  
  893. lbC000B28:
  894.     MOVEM.L    D2-D4/A4/A5,-(SP)
  895.     MOVE.L    A3,D4
  896.     MOVEA.L    ($0042,A2),A5
  897.     SUBA.L    A4,A4
  898.     MOVE.L    #$00000200,D0
  899.     MOVE.L    #$00010001,D1
  900.     JSR    (-$00C6,A6)                ;AllocMem
  901.     MOVE.L    D0,(12,A3)
  902.     BEQ.W    lbC000CD2
  903.     MOVEQ    #0,D2
  904.  
  905. ;****************************************************************************
  906. ;* Rigid Disk Block holen                                                   *
  907. ;****************************************************************************
  908. lbC000B4E:    
  909.     MOVEA.L    (12,A3),A1
  910.     MOVE.L    D2,D1
  911.     MOVE.L    #$5244534B,D0                ;RDSK Rigid Disk Block
  912.     BSR.W    lbC000CEE
  913.     TST.L    D0
  914.     BNE.B    lbC000B80
  915.     ADDQ.W    #1,D2
  916.     CMP.W    #$0010,D2
  917.     BNE.B    lbC000B4E
  918.     MOVEA.L    (12,A3),A1
  919.     MOVE.L    #$00000200,D0
  920.     JSR    (-$00D2,A6)                ;FreeMem
  921.     CLR.L    (12,A3)
  922.     BRA.W    lbC000CD2
  923.  
  924. lbC000B80:
  925.     MOVEA.L    (12,A3),A1
  926.     MOVE.L    ($0040,A1),D0
  927.     MOVE.W    D0,($0032,A3)
  928.     MOVE.L    ($0048,A1),D0
  929.     MOVE.B    D0,($0034,A3)
  930.     MOVE.L    ($0044,A1),D0
  931.     MOVE.B    D0,($0035,A3)
  932.     MOVEQ    #$21,D0
  933.     MOVEQ    #0,D1
  934.     SUBA.L    A0,A0
  935.     BSR.W    lbC000A4A
  936.     TST.L    D0
  937.     BEQ.W    lbC000CD2
  938.     MOVEA.L    (12,A3),A1
  939.     LEA    ($0062,A3),A0
  940.     CLR.B    (A0)+
  941.     MOVEQ    #0,D0
  942.     CMPI.B    #2,(1,A3)
  943.     BEQ.B    lbC000BC4
  944.     MOVE.B    #$80,D0
  945. lbC000BC4:
  946.     MOVE.B    D0,(A0)+
  947.     MOVE.B    #2,(A0)+
  948.     MOVE.B    #2,(A0)+
  949.     MOVE.B    #$1F,(A0)+
  950.     CLR.B    (A0)+
  951.     CLR.B    (A0)+
  952.     MOVE.B    #$20,(A0)+
  953.     MOVEA.L    (12,A3),A1
  954.     LEA    ($00A0,A1),A1
  955.     MOVE.B    #$1B,D0
  956. lbC000BE6:
  957.     MOVE.B    (A1)+,D1
  958.     BNE.B    lbC000BEE
  959.     ADD.B    #$20,D1
  960. lbC000BEE:
  961.     MOVE.B    D1,(A0)+
  962.     DBRA    D0,lbC000BE6
  963.     MOVEA.L    (12,A3),A0
  964.     MOVE.L    ($001C,A0),D2
  965.     BMI.W    lbC000CD2
  966.     MOVE.L    #$00000200,D0
  967.     MOVE.L    #$00010001,D1
  968.     JSR    (-$00C6,A6)
  969.     TST.L    D0
  970.     BEQ.W    lbC000CD2
  971.     MOVEA.L    D0,A4
  972. lbC000C18:
  973.     MOVE.L    D2,D1
  974.     MOVE.L    #$50415254,D0                ;"PART"
  975.     MOVEA.L    A4,A1
  976.     BSR.W    lbC000CEE
  977.     TST.L    D0
  978.     BEQ.W    lbC000CD2
  979.     BTST    #1,($0017,A4)
  980.     BNE.W    lbC000CCA
  981.     MOVEA.L    ($002E,A2),A6
  982.     LEA    ($0024,A4),A0
  983.     BSR.W    lbC000D7A
  984.     LEA    ($0024,A4),A0
  985.     BSR.W    lbC000D34
  986.     LEA    ($0070,A4),A0
  987.     LEA    ($0024,A4),A1
  988.     MOVEQ    #0,D0
  989.     MOVE.B    (A1)+,D0
  990.     CLR.B    (A1,D0.W)
  991.     MOVE.L    A1,(A0)
  992.     LEA    (scsidevice.msg,PC),A1
  993.     MOVE.L    A1,(4,A0)
  994.     MOVEQ    #0,D0
  995.     MOVE.B    (A3),D0
  996.     MOVE.L    D0,(8,A0)
  997.     MOVE.L    ($0020,A4),(12,A0)
  998.     JSR    (-$0090,A6)                ;SetSR
  999.     MOVEA.L    (4).W,A6
  1000.     TST.L    D0
  1001.     BEQ.W    lbC000CCA
  1002.     MOVEA.L    D0,A1
  1003.     BSR.W    lbC000E70
  1004.     MOVE.L    D0,-(SP)
  1005.     JSR    (-$0084,A6)                ;ForBid
  1006.     MOVEA.L    (SP)+,A0
  1007.     MOVEQ    #-$80,D3
  1008.     SUBA.L    A1,A1
  1009.     BTST    #0,($0017,A4)
  1010.     BEQ.B    lbC000CB6
  1011.     MOVEA.L    ($001C,A0),A1
  1012.     ADDA.L    A1,A1
  1013.     ADDA.L    A1,A1
  1014.     MOVEA.L    (8,A1),A1
  1015.     ADDA.L    A1,A1
  1016.     ADDA.L    A1,A1
  1017.     MOVE.L    ($003C,A1),D3
  1018.     EXT.W    D3
  1019.     EXT.L    D3
  1020.     MOVEA.L    ($0056,A2),A1
  1021. lbC000CB6:
  1022.     MOVEQ    #1,D1
  1023.     MOVE.L    D3,D0
  1024.     MOVEA.L    ($002E,A2),A6
  1025.     JSR    (-$0024,A6)                ;ExitIntr
  1026.     MOVEA.L    (4).W,A6
  1027.     JSR    (-$008A,A6)                ;Permit
  1028. lbC000CCA:
  1029.     MOVE.L    ($0010,A4),D2
  1030.     BPL.W    lbC000C18
  1031. lbC000CD2:
  1032.     CMPA.L    #0,A4
  1033.     BEQ.B    lbC000CE8
  1034.     MOVEA.L    A4,A1
  1035.     MOVE.L    #$00000200,D0
  1036.     JSR    (-$00D2,A6)                ;FreeMem
  1037.     SUBA.L    A4,A4
  1038. lbC000CE8:
  1039.     MOVEM.L    (SP)+,D2-D4/A4/A5
  1040.     RTS
  1041.  
  1042. lbC000CEE:
  1043.     MOVEM.L    D2/D3/A2/A3/A5,-(SP)
  1044.     MOVEA.L    D4,A2
  1045.     MOVEA.L    (8,A2),A2
  1046.     MOVEA.L    D4,A3
  1047.     MOVE.L    D0,D3
  1048.     MOVE.L    D1,D2
  1049.     MOVEA.L    A1,A2
  1050.     MOVEQ    #2,D0
  1051.     MOVE.L    #$00000200,D1
  1052.     LSL.L    #8,D2
  1053.     LSL.L    #1,D2
  1054.     MOVEA.L    A2,A0
  1055.     BSR.W    lbC000A4A
  1056.     TST.L    D0
  1057.     BEQ.W    lbC000D2C
  1058.     MOVE.L    (4,A2),D0
  1059.     MOVEQ    #0,D1
  1060.     BRA.B    lbC000D22
  1061.  
  1062. lbC000D20:
  1063.     ADD.L    (A2)+,D1
  1064. lbC000D22:
  1065.     DBRA    D0,lbC000D20
  1066.     MOVEQ    #-1,D0
  1067.     TST.L    D1
  1068.     BEQ.B    lbC000D2E
  1069. lbC000D2C:
  1070.     MOVEQ    #0,D0
  1071. lbC000D2E:
  1072.     MOVEM.L    (SP)+,D2/D3/A2/A3/A5
  1073.     RTS
  1074.  
  1075. lbC000D34:
  1076.     MOVEM.L    A2/A6,-(SP)
  1077.     MOVEA.L    A0,A2
  1078.     CMPI.B    #2,(1,A3)
  1079.     BEQ.B    lbC000D74
  1080.     MOVEQ    #0,D0
  1081.     MOVE.B    (A0),D0
  1082.     ADDQ.L    #8,D0
  1083.     MOVE.L    #$00010000,D1
  1084.     MOVEA.L    (4).W,A6
  1085.     JSR    (-$00C6,A6)
  1086.     TST.L    D0
  1087.     BEQ.B    lbC000D74
  1088.     MOVEA.L    D0,A1
  1089.     LEA    (4,A3),A0
  1090.     MOVE.L    (A0),(A1)
  1091.     MOVE.L    A1,(A0)
  1092.     ADDQ.L    #4,A1
  1093.     MOVEQ    #0,D0
  1094.     MOVE.B    (A2),D0
  1095.     ADDQ.L    #1,D0
  1096.     BRA.B    lbC000D70
  1097.  
  1098. lbC000D6E:
  1099.     MOVE.B    (A2)+,(A1)+
  1100. lbC000D70:
  1101.     DBRA    D0,lbC000D6E
  1102. lbC000D74:
  1103.     MOVEM.L    (SP)+,A2/A6
  1104.     RTS
  1105.  
  1106. lbC000D7A:
  1107.     MOVEM.L    D2/A2/A4,-(SP)
  1108.     MOVEA.L    A0,A2
  1109. lbC000D80:
  1110.     MOVE.L    ($004A,A6),D2
  1111. lbC000D84:
  1112.     MOVEA.L    D2,A4
  1113.     MOVE.L    (A4),D2
  1114.     BEQ.B    lbC000DA2
  1115.     MOVEA.L    ($0010,A4),A1
  1116.     MOVEA.L    ($0028,A1),A1
  1117.     ADDA.L    A1,A1
  1118.     ADDA.L    A1,A1
  1119.     MOVEA.L    A2,A0
  1120.     BSR.W    lbC000E28
  1121.     TST.L    D0
  1122.     BNE.B    lbC000D84
  1123.     BRA.B    lbC000DE8
  1124.  
  1125. lbC000DA2:
  1126.     MOVE.L    A2,-(SP)
  1127.     MOVEA.L    (8,A3),A2
  1128.     MOVEA.L    ($0026,A2),A4
  1129.     MOVEA.L    (SP)+,A2
  1130.     CMPA.L    #0,A4
  1131.     BEQ.B    lbC000E22
  1132.     MOVEA.L    ($0022,A4),A4
  1133.     MOVEA.L    ($0018,A4),A4
  1134.     ADDA.L    A4,A4
  1135.     ADDA.L    A4,A4
  1136.     MOVE.L    (4,A4),D0
  1137. lbC000DC6:
  1138.     LSL.L    #2,D0
  1139.     BEQ.B    lbC000E22
  1140.     MOVEA.L    D0,A4
  1141.     TST.L    (4,A4)
  1142.     BNE.B    lbC000DE4
  1143.     MOVEA.L    ($0028,A4),A0
  1144.     ADDA.L    A0,A0
  1145.     ADDA.L    A0,A0
  1146.     MOVEA.L    A2,A1
  1147.     BSR.W    lbC000E28
  1148.     TST.L    D0
  1149.     BEQ.B    lbC000DE8
  1150. lbC000DE4:
  1151.     MOVE.L    (A4),D0
  1152.     BRA.B    lbC000DC6
  1153.  
  1154. lbC000DE8:
  1155.     MOVEQ    #0,D0
  1156.     MOVE.B    (A2),D0
  1157.     CMPI.B    #$2E,(-1,A2,D0.W)
  1158.     BEQ.B    lbC000E0A
  1159.     ADDQ.W    #1,D0
  1160.     MOVE.B    #$2E,(A2,D0.W)
  1161.     ADDQ.W    #1,D0
  1162.     MOVE.B    #$31,(A2,D0.W)
  1163.     MOVE.B    D0,(A2)
  1164.     BRA.W    lbC000D80
  1165.  
  1166. lbC000E0A:
  1167.     ADDQ.B    #1,(A2,D0.W)
  1168.     CMPI.B    #$3A,(A2,D0.W)
  1169.     BNE.W    lbC000D80
  1170.     MOVE.B    #$41,(A2,D0.W)
  1171.     BRA.W    lbC000D80
  1172.  
  1173. lbC000E22:
  1174.     MOVEM.L    (SP)+,D2/A2/A4
  1175.     RTS
  1176.  
  1177. lbC000E28:
  1178.     MOVE.L    D2,-(SP)
  1179.     MOVEQ    #0,D0
  1180.     MOVE.B    (A0)+,D0
  1181.     CMP.B    (A1)+,D0
  1182.     BNE.B    lbC000E6A
  1183.     MOVE.W    D0,D2
  1184.     BRA.W    lbC000E60
  1185.  
  1186. lbC000E38:
  1187.     MOVE.B    (A0)+,D0
  1188.     CMP.B    #$61,D0
  1189.     BLT.B    lbC000E4A
  1190.     CMP.B    #$7A,D0
  1191.     BGT.B    lbC000E4A
  1192.     SUB.B    #$20,D0
  1193. lbC000E4A:
  1194.     MOVE.B    (A1)+,D1
  1195.     CMP.B    #$61,D1
  1196.     BLT.B    lbC000E5C
  1197.     CMP.B    #$7A,D1
  1198.     BGT.B    lbC000E5C
  1199.     SUB.B    #$20,D1
  1200. lbC000E5C:
  1201.     CMP.B    D0,D1
  1202.     BNE.B    lbC000E6A
  1203. lbC000E60:
  1204.     DBRA    D2,lbC000E38
  1205.     MOVEQ    #0,D0
  1206.     MOVE.L    (SP)+,D2
  1207.     RTS
  1208.  
  1209. lbC000E6A:
  1210.     MOVEQ    #-1,D0
  1211.     MOVE.L    (SP)+,D2
  1212.     RTS
  1213.  
  1214. lbC000E70:
  1215.     MOVEM.L    D2/D3/D7/A2-A4/A6,-(SP)
  1216.     MOVE.L    A1,D7
  1217.     MOVEA.L    ($001C,A1),A1
  1218.     ADDA.L    A1,A1
  1219.     ADDA.L    A1,A1
  1220.     MOVEA.L    (8,A1),A1
  1221.     ADDA.L    A1,A1
  1222.     ADDA.L    A1,A1
  1223.     MOVE.L    ($0040,A1),D2
  1224.     CMP.L    #$444F5300,D2
  1225.     BEQ.W    lbC000F32
  1226.     LEA    (filesyst.msg,PC),A1
  1227.     JSR    (-$01F2,A6)
  1228.     MOVEA.L    D0,A4
  1229.     TST.L    D0
  1230.     BNE.B    lbC000ED8
  1231.     MOVEQ    #$20,D0
  1232.     MOVE.L    #$00010001,D1
  1233.     JSR    (-$00C6,A6)
  1234.     MOVEA.L    D0,A1
  1235.     TST.L    D0
  1236.     BEQ.W    lbC000F32
  1237.     LEA    ($0012,A1),A0
  1238.     MOVE.L    A0,(8,A0)
  1239.     ADDQ.L    #4,A0
  1240.     CLR.L    (A0)
  1241.     MOVE.L    A0,-(A0)
  1242.     LEA    (filesyst.msg,PC),A0
  1243.     MOVE.L    A0,(10,A1)
  1244.     MOVE.B    #8,(8,A1)
  1245.     MOVEA.L    A1,A4
  1246.     JSR    (-$01E6,A6)
  1247. lbC000ED8:
  1248.     MOVE.L    ($0012,A4),D0
  1249.     MOVEQ    #-1,D3
  1250. lbC000EDE:
  1251.     MOVEA.L    D0,A2
  1252.     MOVE.L    (A2),D0
  1253.     BEQ.B    lbC000EEE
  1254.     CMP.L    (14,A2),D2
  1255.     BNE.B    lbC000EDE
  1256.     MOVE.L    ($0012,A2),D3
  1257. lbC000EEE:
  1258.     MOVE.L    D2,D0
  1259.     BSR.W    lbC000F3A
  1260.     TST.L    D0
  1261.     BEQ.W    lbC000F10
  1262.     MOVEA.L    D0,A1
  1263.     MOVEA.L    A1,A2
  1264.     LEA    ($0012,A4),A0
  1265.     MOVE.L    (A0),D0
  1266.     MOVE.L    A1,(A0)
  1267.     MOVEM.L    D0/A0,(A1)
  1268.     MOVEA.L    D0,A0
  1269.     MOVE.L    A1,(4,A0)
  1270. lbC000F10:
  1271.     MOVE.L    (A2),D0
  1272.     BEQ.W    lbC000F32
  1273.     MOVE.L    ($0016,A2),D0
  1274.     LEA    ($001A,A2),A0
  1275.     MOVEA.L    D7,A1
  1276.     LEA    (4,A1),A1
  1277. lbC000F24:
  1278.     LSR.L    #1,D0
  1279.     BCC.B    lbC000F2A
  1280.     MOVE.L    (A0),(A1)
  1281. lbC000F2A:
  1282.     ADDQ.L    #4,A0
  1283.     ADDQ.L    #4,A1
  1284.     TST.L    D0
  1285.     BNE.B    lbC000F24
  1286. lbC000F32:
  1287.     MOVE.L    D7,D0
  1288.     MOVEM.L    (SP)+,D2/D3/D7/A2-A4/A6
  1289.     RTS
  1290.  
  1291. lbC000F3A:
  1292.     MOVEM.L    D2/A2-A4/A6,-(SP)
  1293.     MOVE.L    D0,D2
  1294.     SUBA.L    A4,A4
  1295.     MOVE.L    #$00000210,D0
  1296.     MOVE.L    #$00010001,D1
  1297.     JSR    (-$00C6,A6)
  1298.     TST.L    D0
  1299.     BEQ.W    lbC000FD0
  1300.     MOVEA.L    D0,A2
  1301.     MOVEA.L    (12,A3),A0
  1302.     MOVE.L    ($0020,A0),D1
  1303.     BMI.W    lbC000FD0
  1304. lbC000F66:
  1305.     MOVE.L    #$46534844,D0
  1306.     LEA    ($0010,A2),A1
  1307.     BSR.W    lbC000CEE
  1308.     TST.L    D0
  1309.     BEQ.B    lbC000FD0
  1310.     CMP.L    ($0030,A2),D2
  1311.     BEQ.B    lbC000F8A
  1312.     LEA    ($0010,A2),A1
  1313.     MOVE.L    ($0010,A1),D1
  1314.     BMI.B    lbC000FD0
  1315.     BRA.B    lbC000F66
  1316.  
  1317. lbC000F8A:
  1318.     MOVEQ    #-1,D0
  1319.     CMP.L    D3,D0
  1320.     BEQ.B    lbC000F96
  1321.     CMP.L    ($0024,A2),D3
  1322.     BCC.B    lbC000FD0
  1323. lbC000F96:
  1324.     MOVEQ    #$3E,D0
  1325.     MOVE.L    #$00010001,D1
  1326.     JSR    (-$00C6,A6)
  1327.     TST.L    D0
  1328.     BEQ.B    lbC000FD0
  1329.     MOVEA.L    D0,A4
  1330.     LEA    ($0030,A2),A0
  1331.     LEA    (14,A4),A1
  1332.     MOVEQ    #11,D0
  1333. lbC000FB2:
  1334.     MOVE.L    (A0)+,(A1)+
  1335.     DBRA    D0,lbC000FB2
  1336.     CLR.L    (12,A2)
  1337.     MOVE.L    ($0058,A2),($0020,A2)
  1338.     MOVEA.L    A2,A0
  1339.     BSR.W    lbC00126E
  1340.     MOVE.L    D0,($0036,A4)
  1341.     BNE.W    lbC000FE4
  1342. lbC000FD0:
  1343.     CMPA.L    #0,A4
  1344.     BEQ.W    lbC000FE4
  1345.     MOVEQ    #$3E,D0
  1346.     MOVEA.L    A4,A1
  1347.     JSR    (-$00D2,A6)
  1348.     SUBA.L    A4,A4
  1349. lbC000FE4:
  1350.     MOVE.L    #$00000210,D0
  1351.     MOVEA.L    A2,A1
  1352.     JSR    (-$00D2,A6)
  1353.     MOVE.L    A4,D0
  1354.     MOVEM.L    (SP)+,D2/A2-A4/A6
  1355.     RTS
  1356.  
  1357. lbC000FF8:
  1358.     MOVEM.L    D2/D3/A2/A3/A5/A6,-(SP)
  1359.     MOVE.L    D0,D2
  1360.     MOVEA.L    A0,A2
  1361.     MOVEA.L    A1,A3
  1362.     MOVEQ    #0,D3
  1363. lbC001004:
  1364.     TST.L    D2
  1365.     BEQ.B    lbC001062
  1366.     MOVE.L    (12,A2),D0
  1367.     BNE.B    lbC00103A
  1368.     MOVE.L    ($0020,A2),D1
  1369.     BMI.B    lbC001062
  1370.     MOVE.L    #$4C534547,D0
  1371.     LEA    ($0010,A2),A1
  1372.     BSR.W    lbC000CEE
  1373.     TST.L    D0
  1374.     BEQ.B    lbC001062
  1375.     MOVE.L    ($0014,A2),D0
  1376.     SUBQ.L    #5,D0
  1377.     LSL.L    #2,D0
  1378.     MOVE.L    D0,(12,A2)
  1379.     LEA    ($0024,A2),A1
  1380.     MOVE.L    A1,(8,A2)
  1381. lbC00103A:
  1382.     CMP.L    D2,D0
  1383.     BLE.B    lbC001040
  1384.     MOVE.L    D2,D0
  1385. lbC001040:
  1386.     MOVEA.L    (8,A2),A0
  1387.     MOVEA.L    A3,A1
  1388.     ADD.L    D0,D3
  1389.     ADDA.L    D0,A3
  1390.     ADD.L    D0,(8,A2)
  1391.     SUB.L    D0,D2
  1392.     SUB.L    D0,(12,A2)
  1393.     CMPA.L    #0,A1
  1394.     BEQ.B    lbC001004
  1395.     JSR    (-$0270,A6)
  1396.     BRA.B    lbC001004
  1397.  
  1398. lbC001062:
  1399.     MOVE.L    D3,D0
  1400.     MOVEM.L    (SP)+,D2/D3/A2/A3/A5/A6
  1401.     RTS
  1402.  
  1403. lbC00106A:
  1404.     SUBQ.L    #4,SP
  1405.     MOVEA.L    SP,A1
  1406.     MOVEQ    #4,D0
  1407.     BSR.B    lbC000FF8
  1408.     CMP.L    #4,D0
  1409.     BNE.B    lbC00107E
  1410.     MOVE.L    (SP)+,D0
  1411.     RTS
  1412.  
  1413. lbC00107E:
  1414.     ADDQ.L    #8,SP
  1415. loop42:
  1416.     BRA.W    lbC00131C
  1417.  
  1418. la4:
  1419.     MOVE.L    A0,-(SP)
  1420.     BSR.B    lbC00106A
  1421.     MOVEA.L    (SP)+,A0
  1422.     LSL.L    #2,D0
  1423.     BEQ.B    ll1
  1424.     CMP.L    #$00000080,D0
  1425.     BGE.B    ll2
  1426.     SUBA.L    A1,A1
  1427.     MOVE.L    D0,-(SP)
  1428.     BSR.W    lbC000FF8
  1429.     CMP.L    (SP)+,D0
  1430.     BNE.B    ll2
  1431. ll1:
  1432.     RTS
  1433.  
  1434. ll2:
  1435.     ADDQ.L    #4,SP
  1436.     BRA.W    lbC00131C
  1437.  
  1438. lbC0010AA:
  1439.     MOVE.L    D0,D1
  1440.     LSL.L    #2,D0
  1441.     ADDQ.L    #8,D0
  1442.     MOVE.L    D0,-(SP)
  1443.     ROL.L    #3,D1
  1444.     AND.L    #6,D1
  1445.     OR.L    #1,D1
  1446.     JSR    (-$00C6,A6)
  1447.     MOVE.L    (SP)+,D1
  1448.     TST.L    D0
  1449.     BEQ.B    lbC0010D2
  1450.     MOVEA.L    D0,A0
  1451.     MOVE.L    D1,(A0)
  1452.     ADDQ.L    #4,D0
  1453.     RTS
  1454.  
  1455. lbC0010D2:
  1456.     ADDQ.L    #4,SP
  1457.     BRA.W    lbC00131C
  1458.  
  1459. lbC0010D8:
  1460.     MOVE.L    D2,-(SP)
  1461.     MOVE.L    A0,D2
  1462. lbC0010DC:
  1463.     LSL.L    #2,D2
  1464.     BEQ.B    lbC0010EC
  1465.     MOVEA.L    D2,A1
  1466.     MOVE.L    (A1),D2
  1467.     MOVE.L    -(A1),D0
  1468.     JSR    (-$00D2,A6)
  1469.     BRA.B    lbC0010DC
  1470.  
  1471. lbC0010EC:
  1472.     MOVE.L    (SP)+,D2
  1473.     RTS
  1474.  
  1475. lbB0010F0:
  1476.     dc.b    $FF,$94,0,$1E,0,$1E,0,$50,0,$BA,1,$78,1,$78,1,$78
  1477.     dc.b    0,$7A,0,$94,1,$66,1,$78,1,$78,1,$78,1,$78,$48,$E7
  1478.     dc.b    0
  1479.     dcb.b    2,$28
  1480.     dc.b    $40
  1481.  
  1482. la2:
  1483.     MOVEA.L    A0,A2
  1484.     BSR.W    lbC00106A
  1485.     TST.L    D0
  1486.     BEQ.B    lbC001130
  1487.     LSL.L    #2,D0
  1488.     MOVE.L    D0,-(SP)
  1489.     MOVEA.L    A4,A1
  1490.     ADDQ.L    #4,A1
  1491.     MOVEA.L    A2,A0
  1492.     BSR.W    lbC000FF8
  1493.     CMP.L    (SP)+,D0
  1494.     BNE.B    lbC001136
  1495. lbC001130:
  1496.     MOVEM.L    (SP)+,A2/A4
  1497.     RTS
  1498.  
  1499. lbC001136:
  1500.     MOVEM.L    (SP)+,A2/A4
  1501.     ADDQ.L    #4,SP
  1502.     BRA.W    lbC00131C
  1503.  
  1504. label3:
  1505.     MOVEM.L    D2/A2/A4,-(SP)
  1506.     MOVEA.L    D0,A4
  1507.     MOVEA.L    A0,A2
  1508.     BSR.W    lbC00106A
  1509.     MOVEA.L    A4,A0
  1510.     ADDQ.L    #4,A0
  1511.     MOVEQ    #0,D1
  1512.     MOVE.W    D0,D2
  1513.     SWAP    D0
  1514.     BRA.W    la1
  1515.  
  1516. la3:
  1517.     MOVE.L    D1,(A0)+
  1518. la1:
  1519.     DBRA    D2,la3
  1520.     DBRA    D0,la3
  1521.     MOVEM.L    (SP)+,D2/A2/A4
  1522.     RTS
  1523.  
  1524. label4:
  1525.     MOVE.L    A2,-(SP)
  1526.     MOVEA.L    A0,A2
  1527. la13:
  1528.     MOVEA.L    A2,A0
  1529.     BSR.W    la4
  1530.     TST.L    D0
  1531.     BEQ.B    la5
  1532.     MOVEA.L    A2,A0
  1533.     BSR.W    lbC00106A
  1534.     BRA.B    la13
  1535.  
  1536. la5:
  1537.     MOVEA.L    (SP)+,A2
  1538.     RTS
  1539.  
  1540. label7:
  1541.     MOVEM.L    D2/A2/A3,-(SP)
  1542.     MOVEA.L    A0,A2
  1543.     BSR.W    lbC00106A
  1544.     MOVE.L    D0,D3
  1545.     MOVE.W    D3,D2
  1546.     SWAP    D3
  1547.     BRA.B    la7
  1548.  
  1549. la6:
  1550.     MOVEA.L    A2,A0
  1551.     BSR.W    lbC00106A
  1552. la7:
  1553.     DBRA    D2,la6
  1554.     DBRA    D3,la6
  1555.     MOVEM.L    (SP)+,D2/D3/A2
  1556.     RTS
  1557.  
  1558. label8:
  1559.     MOVEM.L    D2/D3/D7/A3/A4/A6,-(SP)
  1560.     ADDQ.L    #4,A4
  1561.     SUBA.L    A3,A3
  1562.     MOVEA.L    A0,A2
  1563. la20:
  1564.     MOVEA.L    A2,A0
  1565.     BSR.W    lbC00106A
  1566.     LSL.L    #2,D0
  1567.     MOVE.L    D0,D2
  1568.     BEQ.W    la9
  1569.     MOVEA.L    A2,A0
  1570.     BSR.W    lbC00106A
  1571.     CMP.L    D6,D0
  1572.     BGT.W    la8
  1573.     LSL.W    #2,D0
  1574.     MOVE.L    A4,D3
  1575.     MOVE.L    A3,D7
  1576.     BEQ.B    la14
  1577.     CMP.L    (-4,A3),D2
  1578.     BLE.B    la15
  1579.     ADDQ.L    #4,D0
  1580.     MOVEA.L    A3,A1
  1581.     MOVEA.L    (4).W,A6
  1582.     JSR    (-$00D2,A6)
  1583. la14:
  1584.     MOVEQ    #0,D1
  1585.     MOVE.L    D2,D0
  1586.     MOVE.L    D0,D7
  1587.     ADDQ.L    #4,D0
  1588.     MOVEA.L    (4).W,A6
  1589.     JSR    (-$00C6,A6)
  1590.     TST.L    D0
  1591.     BEQ.W    la11
  1592.     MOVEA.L    D0,A3
  1593.     MOVE.L    D7,(A3)+
  1594. la15:
  1595.     MOVE.L    D2,D0
  1596.     MOVEA.L    A2,A0
  1597.     MOVEA.L    A3,A1
  1598.     BSR.W    lbC000FF8
  1599.     CMP.L    D0,D2
  1600.     BNE.W    la8
  1601.     LSR.L    #2,D0
  1602.     SUBQ.L    #1,D0
  1603.     MOVEA.L    A3,A0
  1604. la19:
  1605.     MOVE.L    (A0)+,D7
  1606.     BMI.W    la8
  1607.     CMP.L    D4,D7
  1608.     BGT.W    la8
  1609.     ADD.L    D3,(A4,D7.L)
  1610.     DBRA    D0,la19
  1611.     BRA.B    la20
  1612.  
  1613. la8:
  1614.     MOVEQ    #1,D7
  1615.     BRA.W    la21
  1616.  
  1617. la9:
  1618.     MOVEQ    #0,D7
  1619. la21:
  1620.     MOVE.L    A3,D0
  1621.     BEQ.W    la23
  1622.     MOVE.L    -(A3),D0
  1623.     ADDQ.L    #4,D0
  1624.     MOVEA.L    A3,A1
  1625.     MOVEA.L    (4).W,A6
  1626.     JSR    (-$00D2,A6)
  1627. la23:
  1628.     MOVE.L    D7,D0
  1629.     MOVEM.L    (SP)+,D2/D3/D7/A3/A4/A6
  1630.     TST.L    D0
  1631.     BNE.B    la11
  1632.     RTS
  1633.  
  1634. la10:
  1635.     MOVE.L    (A4),D1
  1636.     LSL.L    #2,D1
  1637.     BEQ.W    la11
  1638.     MOVEA.L    D1,A4
  1639.     RTS
  1640.  
  1641. la11:
  1642.     ADDQ.L    #4,SP
  1643.     BRA.W    lbC001328
  1644.  
  1645. label9:
  1646.     ADDQ.L    #4,SP
  1647.     BRA.W    lbC00131C
  1648.  
  1649. lbC00126E:
  1650.     MOVEM.L    D2-D7/A2-A5,-(SP)
  1651.     MOVEA.L    A0,A2
  1652.     BSR.W    lbC00106A
  1653.     CMP.L    #$000003F3,D0
  1654.     BNE.W    lbC001328
  1655.     MOVEA.L    A2,A0
  1656.     BSR.W    lbC00106A
  1657.     TST.L    D0
  1658.     BNE.W    lbC001328
  1659.     MOVEA.L    A2,A0
  1660.     BSR.W    lbC00106A
  1661.     MOVE.L    D0,D7
  1662.     MOVEA.L    A2,A0
  1663.     BSR.W    lbC00106A
  1664.     MOVE.L    D0,D5
  1665.     MOVEA.L    A2,A0
  1666.     BSR.W    lbC00106A
  1667.     MOVE.L    D0,D6
  1668.     LEA    ($0010,A3),A4
  1669.     MOVE.L    D5,D2
  1670. lbC0012AC:
  1671.     CMP.W    D6,D2
  1672.     BGT.B    lbC0012C8
  1673.     MOVEA.L    A2,A0
  1674.     BSR.W    lbC00106A
  1675.     BSR.W    lbC0010AA
  1676.     MOVEA.L    D0,A0
  1677.     LSR.L    #2,D0
  1678.     MOVE.L    D0,(A4)
  1679.     MOVEA.L    A0,A4
  1680.     CLR.L    (A4)
  1681.     ADDQ.W    #1,D2
  1682.     BRA.B    lbC0012AC
  1683.  
  1684. lbC0012C8:
  1685.     MOVEQ    #0,D0
  1686.     CMP.W    D7,D2
  1687.     LEA    ($0010,A3),A4
  1688.     MOVEA.L    A2,A0
  1689.     BSR.W    lbC00106A
  1690.     MOVEA.L    (A4),A4
  1691.     ADDA.L    A4,A4
  1692.     ADDA.L    A4,A4
  1693. lbC0012DC:
  1694.     AND.L    #$3FFFFFFF,D0
  1695.     SUB.L    #$000003E8,D0
  1696.     BMI.W    lbC00131C
  1697.     CMP.L    #15,D0
  1698.     BGE.W    lbC00131C
  1699.     CMP.L    #10,D0
  1700.     BEQ.W    lbC001328
  1701.     LSL.W    #1,D0
  1702.     LEA    (lbB0010F0,PC),A1
  1703.     ADDA.W    (A1,D0.W),A1
  1704.     MOVEA.L    A2,A0
  1705.     MOVE.L    A4,D0
  1706.     BEQ.W    lbC00131C
  1707.     JSR    (A1)
  1708.     MOVEA.L    A2,A0
  1709.     BSR.W    lbC00106A
  1710.     BRA.B    lbC0012DC
  1711.  
  1712. lbC00131C:
  1713.     LEA    ($0010,A3),A4
  1714.     MOVEA.L    (A4),A0
  1715.     CLR.L    (A4)
  1716.     BSR.W    lbC0010D8
  1717. lbC001328:
  1718.     LEA    ($0010,A3),A4
  1719.     MOVE.L    (A4),D0
  1720.     MOVEM.L    (SP)+,D2-D7/A2-A5
  1721.     RTS
  1722.  
  1723. lbC001334:
  1724.     MOVEQ    #0,D0
  1725.     MOVEA.L    ($001A,A1),A0
  1726.     MOVE.B    ($1000,A0),D1
  1727.     BPL.B    lbC001380
  1728.     MOVE.L    A6,-(SP)
  1729.     MOVEA.L    ($001A,A1),A6
  1730.     MOVE.B    ($001C,A6),D1
  1731.     MOVE.B    ($1012,A6),D0
  1732.     NOT.B    D0
  1733.     MOVE.B    D0,($1012,A6)
  1734.     MOVE.B    ($001C,A6),D1
  1735.     NOT.B    D0
  1736.     MOVE.B    D0,($1012,A6)
  1737.     MOVEQ    #0,D0
  1738.     TST.W    ($002A,A1)
  1739.     BNE.B    lbC00137C
  1740.     MOVE.W    #$FFFF,($002A,A1)
  1741.     MOVEA.L    ($0016,A1),A6
  1742.     MOVE.L    ($0022,A1),D0
  1743.     MOVEA.L    ($0026,A1),A1
  1744.     JSR    (-$0144,A6)
  1745. lbC00137C:
  1746.     MOVEA.L    (SP)+,A6
  1747.     MOVEQ    #1,D0
  1748. lbC001380:
  1749.     TST.L    D0
  1750.     RTS
  1751.  
  1752. lbC001384:
  1753.     MOVEQ    #0,D0
  1754.     MOVEA.L    ($001E,A1),A0
  1755.     MOVE.B    ($1000,A0),D1
  1756.     BPL.B    lbC0013D2
  1757.     MOVE.L    A6,-(SP)
  1758.     MOVEA.L    ($001A,A1),A6
  1759.     MOVE.B    ($001C,A6),D1
  1760.     MOVE.W    SR,D0
  1761.     ORI.W    #$0700,SR
  1762.     MOVE.B    ($1000,A0),D1
  1763.     ANDI.B    #3,D1
  1764.     ORI.B    #$7C,D1
  1765.     MOVE.B    D1,($1000,A0)
  1766.     MOVE.W    D0,SR
  1767.     TST.W    ($002A,A1)
  1768.     BNE.B    lbC0013CE
  1769.     MOVE.W    #$FFFF,($002A,A1)
  1770.     MOVEA.L    ($0016,A1),A6
  1771.     MOVE.L    ($0022,A1),D0
  1772.     MOVEA.L    ($0026,A1),A1
  1773.     JSR    (-$0144,A6)
  1774. lbC0013CE:
  1775.     MOVEA.L    (SP)+,A6
  1776.     MOVEQ    #1,D0
  1777. lbC0013D2:
  1778.     TST.L    D0
  1779.     RTS
  1780.  
  1781. lbC0013D6:
  1782.     TST.W    ($0022,A1)
  1783.     BEQ.B    lbC0013F6
  1784.     SUBQ.W    #1,($0022,A1)
  1785.     BNE.B    lbC0013F6
  1786.     MOVE.L    ($001A,A1),D0
  1787.     MOVE.L    A6,-(SP)
  1788.     MOVEA.L    ($0016,A1),A6
  1789.     MOVEA.L    ($001E,A1),A1
  1790.     JSR    (-$0144,A6)
  1791.     MOVEA.L    (SP)+,A6
  1792. lbC0013F6:
  1793.     MOVEQ    #0,D0
  1794.     TST.L    D0
  1795.     RTS
  1796.  
  1797. lbB0013FC:
  1798.     dcb.b    4,$FF
  1799.  
  1800. loop3:
  1801.     MOVEM.L    D2/A2/A6,-(SP)
  1802.     MOVEA.L    (4).W,A6
  1803.     MOVE.L    ($0016,A1),D0
  1804.     MOVE.L    ($001A,A1),D2
  1805.     MOVEA.L    ($001E,A1),A2
  1806.     MOVEA.L    A2,A1
  1807.     JSR    (-$0144,A6)
  1808.     MOVEA.L    A2,A1
  1809.     MOVE.L    D2,D0
  1810.     JSR    (-$0144,A6)
  1811.     MOVEM.L    (SP)+,D2/A2/A6
  1812.     RTS
  1813.  
  1814. label10:
  1815.     MOVEM.L    D2-D4/A2-A6,-(SP)
  1816.     MOVEA.L    A6,A5
  1817.     MOVEA.L    ($0022,A5),A6
  1818.     MOVEA.L    A1,A2
  1819.     MOVEQ    #4,D2
  1820.     CMP.L    D2,D0
  1821.     BGE.W    ll3
  1822.     MOVEQ    #0,D1
  1823.     MOVE.B    D0,D1
  1824.     LSL.W    #2,D1
  1825.     MOVEA.L    ($002A,A5),A1
  1826.     LEA    ($005A,A1),A3
  1827.     TST.L    (A3,D1.W)
  1828.     BNE.B    ll7
  1829.     MOVEM.L    D0/D1/A0-A4,-(SP)
  1830.     MOVEA.L    ($002A,A5),A2
  1831.     LEA    ($006C,A2),A4
  1832.     ADDA.L    D0,A4
  1833.     ADDA.L    D1,A3
  1834.     MOVEQ    #-1,D1
  1835.     BSR.W    lbC0007C4
  1836.     MOVEM.L    (SP)+,D0/D1/A0-A4
  1837.     LEA    ($005A,A1),A3
  1838.     TST.L    (A3,D1.W)
  1839.     BEQ.B    ll3
  1840. ll7:
  1841.     LEA    ($30,A5,D1.W),A4
  1842.     MOVEA.L    (A3,D1.W),A3
  1843.     MOVE.L    A3,(A4)
  1844.     MOVE.L    A3,($0018,A2)
  1845.     LEA    (lbL003290,PC),A0
  1846.     MOVE.L    (A0,D1.W),($0014,A3)
  1847.     ADDQ.L    #4,($0014,A3)
  1848.     CLR.B    ($001F,A2)
  1849.     MOVEA.L    A1,A2
  1850.     LEA    ($0026,A2),A4
  1851.     TST.L    (A4)
  1852.     BNE.B    ll8
  1853.     LEA    (doslib.msg,PC),A1
  1854.     MOVEQ    #0,D0
  1855.     JSR    (-$0228,A6)
  1856.     MOVE.L    D0,(A4)
  1857.     BEQ.B    ll8
  1858.     LEA    (ll14,PC),A0
  1859.     MOVE.L    A2,(A0)
  1860.     MOVE.L    #$00000FA0,D4
  1861.     LEA    (ll15,PC),A0
  1862.     MOVE.L    A0,D3
  1863.     LSR.L    #2,D3
  1864.     MOVEQ    #0,D2
  1865.     LEA    (diskchange.msg,PC),A0
  1866.     MOVE.L    A0,D1
  1867.     MOVE.L    A6,-(SP)
  1868.     MOVEA.L    ($0026,A2),A6
  1869.     JSR    (-$008A,A6)
  1870.     MOVEA.L    (SP)+,A6
  1871. ll8:
  1872.     ADDQ.W    #1,($0020,A5)
  1873.     MOVEQ    #0,D0
  1874.     MOVEM.L    (SP)+,D2-D4/A2-A6
  1875.     RTS
  1876.  
  1877. ll3:
  1878.     MOVEQ    #-1,D0
  1879.     MOVE.B    #$32,($001F,A2)
  1880.     MOVEM.L    (SP)+,D2-D4/A2-A6
  1881.     RTS
  1882.  
  1883. ll4:
  1884.     SUBQ.W    #1,($0020,A6)
  1885.     MOVEQ    #0,D0
  1886.     RTS
  1887.  
  1888. ll5:
  1889.     MOVEQ    #0,D0
  1890.     RTS
  1891.  
  1892. ll6:
  1893.     MOVEM.L    A2-A6,-(SP)
  1894.     MOVEA.L    A1,A2
  1895.     MOVEA.L    ($0018,A2),A3
  1896.     MOVEA.L    (8,A3),A4
  1897.     MOVEA.L    A6,A5
  1898.     MOVEA.L    ($0022,A5),A6
  1899.     MOVE.B    (1,A3),D0
  1900.     CMP.B    #$FF,D0
  1901.     BEQ.B    ll10
  1902.     MOVE.W    ($001C,A2),D0
  1903.     BCLR    #5,($001E,A2)
  1904.     BCLR    #15,D0
  1905.     BEQ.B    ll20
  1906.     BSET    #5,($001E,A2)
  1907. ll20:
  1908.     CMP.W    #$001C,D0
  1909.     BNE.B    ll21
  1910.     BSR.W    ll23
  1911. ll21:
  1912.     CMP.W    #$0016,D0
  1913.     BCC.B    ll11
  1914.     LEA    (loop9,PC),A0
  1915.     ADD.W    D0,D0
  1916.     MOVE.W    (A0,D0.W),D0
  1917.     JSR    (A0,D0.W)
  1918.     MOVE.B    D0,($001F,A2)
  1919. ll26:
  1920.     MOVEA.L    A2,A1
  1921.     BTST    #0,($001E,A1)
  1922.     BNE.B    ll25
  1923.     JSR    (-$017A,A6)
  1924. ll25:
  1925.     MOVEM.L    (SP)+,A2-A6
  1926.     MOVEQ    #0,D0
  1927.     RTS
  1928.  
  1929. ll10:
  1930.     MOVE.B    #$1D,($001F,A2)
  1931.     BRA.B    ll26
  1932.  
  1933. ll11:
  1934.     MOVE.B    #$FD,($001F,A2)
  1935.     BRA.B    ll26
  1936.  
  1937. ll12:
  1938.     RTS
  1939.  
  1940. loop9:
  1941.     dc.b    0,$2E,0,$34,1,$12,1,$12,0,$34,0,$4E,0,$34,0,$34,0
  1942.     dc.b    $34,0,$38,0,$34,1,$12,0,$7C,0,$44,0,$52,0,$6E,0
  1943.     dc.b    $34,0,$34,0,$34,0,$34,0,$84,0,$AA,0,$2E,$10
  1944.     dc.b    $3C,0,$FD,$4E,$75
  1945.  
  1946. loop10:
  1947.     MOVEQ    #0,D0
  1948. loop44:
  1949.     RTS
  1950.  
  1951. label11:
  1952.     MOVE.L    #1,($0020,A2)
  1953.     MOVEQ    #0,D0
  1954. loop45:
  1955.     RTS
  1956.  
  1957. label12:
  1958.     MOVE.L    ($0018,A3),($0020,A2)
  1959.     MOVEQ    #0,D0
  1960. loop46:
  1961.     RTS
  1962.  
  1963. label13:
  1964.     MOVEQ    #0,D0
  1965.     RTS
  1966.  
  1967. label14:
  1968.     CMPI.B    #3,(1,A3)
  1969.     BEQ.B    ll27
  1970.     CLR.L    ($0020,A2)
  1971.     MOVEQ    #0,D0
  1972.     RTS
  1973.  
  1974. ll27:
  1975.     MOVE.L    ($002E,A3),D0
  1976.     MOVE.L    D0,($0020,A2)
  1977.     MOVEQ    #0,D0
  1978.     RTS
  1979.  
  1980. ll28:
  1981.     MOVEQ    #0,D0
  1982.     MOVE.B    ($0038,A3),D0
  1983.     MOVE.L    D0,($0020,A2)
  1984.     MOVEQ    #0,D0
  1985.     RTS
  1986.  
  1987. ll29:
  1988.     MOVE.L    ($0028,A2),($001C,A3)
  1989.     RTS
  1990.  
  1991. ll30:
  1992.     JSR    (-$0084,A6)
  1993.     LEA    ($0020,A3),A0
  1994.     MOVEA.L    A2,A1
  1995.     JSR    (-$00F0,A6)
  1996.     JSR    (-$008A,A6)
  1997.     BCLR    #0,($001E,A2)
  1998.     ADDQ.L    #4,SP
  1999.     CLR.B    ($001F,A2)
  2000.     MOVEM.L    (SP)+,A2-A6
  2001.     MOVEQ    #0,D0
  2002.     RTS
  2003.  
  2004. ll31:
  2005.     JSR    (-$0084,A6)
  2006.     MOVEA.L    A2,A1
  2007.     MOVEA.L    (A1)+,A0
  2008.     MOVEA.L    (A1),A1
  2009.     MOVE.L    A0,(A1)
  2010.     MOVE.L    A1,(4,A0)
  2011.     JSR    (-$008A,A6)
  2012.     BCLR    #0,($001E,A2)
  2013.     MOVEQ    #0,D0
  2014.     RTS
  2015.  
  2016. ll32:
  2017.     MOVE.L    ($0024,A2),D0
  2018.     CMP.L    #$00000200,D0
  2019.     BNE.W    ll23
  2020.     MOVE.L    D2,-(SP)
  2021.     MOVE.L    ($002C,A2),D0
  2022.     MOVE.L    #$FFFFE000,D2
  2023.     MOVE.L    ($0048,A3),D1
  2024.     SUB.L    D0,D1
  2025.     BGT.B    ll13
  2026.     CMP.L    D1,D2
  2027.     BPL.B    ll13
  2028.     NEG.L    D1
  2029.     MOVEA.L    ($0044,A3),A0
  2030.     ADDA.L    D1,A0
  2031.     MOVE.L    ($002C,A3),($004C,A3)
  2032.     MOVEA.L    ($0028,A2),A3
  2033.     MOVEQ    #$7F,D0
  2034. ll34:
  2035.     MOVE.L    (A0)+,(A3)+
  2036.     DBRA    D0,ll34
  2037.     MOVE.L    (SP)+,D2
  2038.     MOVE.L    ($0024,A2),D0
  2039.     RTS
  2040.  
  2041. ll13:
  2042.     MOVE.L    (SP)+,D2
  2043. ll23:
  2044.     MOVEA.L    A4,A0
  2045.     MOVEA.L    A2,A1
  2046.     BSET    #1,($0022,A0)
  2047.     MOVE.B    #5,(8,A1)
  2048.     BCLR    #0,($001E,A1)
  2049.     JSR    (-$016E,A6)
  2050.     ADDQ.L    #4,SP
  2051.     MOVEM.L    (SP)+,A2-A6
  2052.     MOVEQ    #0,D0
  2053.     RTS
  2054.  
  2055. loop11:
  2056.     dcb.b    2,0
  2057. ll14:
  2058.     dcb.l    2,0
  2059. ll15:
  2060.     dc.l    0
  2061.  
  2062. ll16:
  2063.     MOVEA.L    (4).W,A6
  2064.     MOVEA.L    (ll14,PC),A2
  2065.     MOVEA.L    ($0042,A2),A5
  2066.     MOVEQ    #-1,D0
  2067.     JSR    (-$014A,A6)
  2068.     MOVEQ    #0,D7
  2069.     BSET    D0,D7
  2070.     MOVEQ    #0,D1
  2071.     LEA    ($0A7A,A2),A1
  2072.     BSR.W    lbC0018A8
  2073.     MOVEQ    #-1,D0
  2074.     JSR    (-$014A,A6)
  2075.     MOVEQ    #0,D1
  2076.     LEA    ($0A9C,A2),A1
  2077.     BSR.W    lbC0018A8
  2078.     LEA    ($0A9C,A2),A0
  2079.     MOVEQ    #$28,D0
  2080.     JSR    (-$028E,A6)
  2081.     MOVE.L    D0,($0ABE,A2)
  2082.     MOVEA.L    D0,A1
  2083.     LEA    (timerdev.msg,PC),A0
  2084.     MOVEQ    #1,D0
  2085.     MOVEQ    #0,D1
  2086.     JSR    (-$01BC,A6)
  2087. lbC001708:
  2088.     MOVE.L    D7,D0
  2089.     JSR    (-$013E,A6)
  2090.     LEA    ($0A7A,A2),A0
  2091.     JSR    (-$0174,A6)
  2092.     TST.L    D0
  2093.     BEQ.B    lbC001708
  2094.     MOVEA.L    D0,A1
  2095.     MOVEA.L    ($0014,A1),A3
  2096.     MOVE.L    ($0018,A1),D2
  2097.     JSR    (-$017A,A6)
  2098.     TST.L    D2
  2099.     BEQ.B    lbC00173A
  2100.     ADDQ.L    #1,($0018,A3)
  2101.     BSR.W    lbC0017B2
  2102.     BSR.W    lbC0017EC
  2103.     BRA.B    lbC001708
  2104.  
  2105. lbC00173A:
  2106.     MOVEA.L    ($0ABE,A2),A1
  2107.     MOVE.W    #9,($001C,A1)
  2108.     MOVE.L    #10,($0020,A1)
  2109.     CLR.L    ($0024,A1)
  2110.     JSR    (-$01C8,A6)
  2111.     MOVEQ    #$26,D0
  2112.     MOVEQ    #0,D1
  2113.     MOVEQ    #0,D2
  2114.     SUBA.L    A0,A0
  2115.     BSR.W    lbC000A4A
  2116.     BSR.W    lbC000B28
  2117.     TST.L    (12,A3)
  2118.     BNE.B    lbC00177A
  2119.     MOVEQ    #$26,D0
  2120.     MOVEQ    #0,D1
  2121.     MOVEQ    #0,D2
  2122.     SUBA.L    A0,A0
  2123.     BSR.W    lbC000A4A
  2124.     BSR.W    lbC000B28
  2125. lbC00177A:
  2126.     TST.L    (12,A3)
  2127.     BEQ.B    lbC001708
  2128.     ADDQ.L    #1,($0018,A3)
  2129.     BSR.W    lbC001790
  2130.     BSR.W    lbC001886
  2131.     BRA.W    lbC001708
  2132.  
  2133. lbC001790:
  2134.     MOVEM.L    D2/A4/A6,-(SP)
  2135.     LEA    (4,A3),A4
  2136.     MOVEA.L    ($0026,A2),A6
  2137. lbC00179C:
  2138.     MOVE.L    (A4),D1
  2139.     BEQ.B    lbC0017AC
  2140.     MOVEA.L    D1,A4
  2141.     ADDQ.L    #5,D1
  2142.     MOVEQ    #0,D2
  2143.     JSR    (-$02DC,A6)
  2144.     BRA.B    lbC00179C
  2145.  
  2146. lbC0017AC:
  2147.     MOVEM.L    (SP)+,D2/A4/A6
  2148.     RTS
  2149.  
  2150. lbC0017B2:
  2151.     MOVEM.L    D2/A4-A6,-(SP)
  2152.     LEA    (4,A3),A4
  2153.     MOVEA.L    ($0026,A2),A6
  2154. lbC0017BE:
  2155.     MOVE.L    (A4),D1
  2156.     BEQ.B    lbC0017E6
  2157.     MOVEA.L    D1,A4
  2158.     MOVEA.L    A4,A5
  2159.     ADDQ.L    #4,A5
  2160.     MOVEQ    #0,D0
  2161.     MOVE.B    (A5)+,D0
  2162.     ADDA.L    D0,A5
  2163.     MOVE.B    #$3A,(A5)
  2164.     CLR.B    (1,A5)
  2165.     ADDQ.L    #5,D1
  2166.     MOVE.L    #$FFFFFF01,D2
  2167.     JSR    (-$02DC,A6)
  2168.     CLR.B    (A5)
  2169.     BRA.B    lbC0017BE
  2170.  
  2171. lbC0017E6:
  2172.     MOVEM.L    (SP)+,D2/A4-A6
  2173.     RTS
  2174.  
  2175. lbC0017EC:
  2176.     MOVEM.L    A4/A6,-(SP)
  2177.     MOVEA.L    ($0026,A2),A6
  2178.     MOVEQ    #$7D,D1
  2179.     JSR    (-$029A,A6)
  2180.     TST.L    D0
  2181.     BEQ.B    lbC001818
  2182.     LEA    (4,A3),A4
  2183. lbC001802:
  2184.     MOVE.L    (A4),D0
  2185.     BEQ.B    lbC00180E
  2186.     MOVEA.L    D0,A4
  2187.     BSR.W    lbC00181E
  2188.     BRA.B    lbC001802
  2189.  
  2190. lbC00180E:
  2191.     MOVEQ    #$7D,D1
  2192.     JSR    (-$0294,A6)
  2193.     BSR.W    lbC001886
  2194. lbC001818:
  2195.     MOVEM.L    (SP)+,A4/A6
  2196.     RTS
  2197.  
  2198. lbC00181E:
  2199.     MOVEM.L    D2/D3/A4/A5,-(SP)
  2200.     MOVE.L    D0,D2
  2201.     MOVEA.L    ($0022,A6),A0
  2202.     MOVE.L    ($0018,A0),D0
  2203.     LSL.L    #2,D0
  2204.     MOVEA.L    D0,A0
  2205.     MOVE.L    (4,A0),D0
  2206.     LSL.L    #2,D0
  2207.     MOVEA.L    D0,A5
  2208.     MOVE.L    A5,D1
  2209.     ADDQ.L    #5,D2
  2210.     MOVEQ    #$7D,D3
  2211.     JSR    (-$02AC,A6)
  2212.     TST.L    D0
  2213.     BEQ.W    lbC001880
  2214.     MOVEA.L    D0,A0
  2215.     MOVE.L    (8,A0),D3
  2216.     MOVE.L    A0,D1
  2217.     JSR    (-$02A0,A6)
  2218.     TST.L    D0
  2219.     BEQ.W    lbC001880
  2220. lbC00185A:
  2221.     CMP.L    (8,A5),D3
  2222.     BNE.W    lbC001868
  2223.     MOVE.L    A5,D1
  2224.     JSR    (-$02A0,A6)
  2225. lbC001868:
  2226.     MOVEQ    #$7D,D2
  2227.     MOVE.L    A5,D1
  2228.     JSR    (-$02B2,A6)
  2229.     TST.L    D0
  2230.     BEQ.B    lbC001878
  2231.     MOVEA.L    D0,A5
  2232.     BRA.B    lbC00185A
  2233.  
  2234. lbC001878:
  2235.     MOVEA.L    ($0042,A2),A0
  2236.     SUBQ.W    #1,($0020,A0)
  2237. lbC001880:
  2238.     MOVEM.L    (SP)+,D2/D3/A4/A5
  2239.     RTS
  2240.  
  2241. lbC001886:
  2242.     MOVE.L    ($001C,A3),D0
  2243.     BEQ.B    lbC001892
  2244.     MOVEA.L    D0,A1
  2245.     JSR    (-$00B4,A6)
  2246. lbC001892:
  2247.     RTS
  2248.  
  2249. lbC001894:
  2250.     BRA.W    lbC0018CC
  2251.  
  2252. timerdevice.MSG:
  2253.     dc.b    'timer.device',0,0
  2254.     dcb.b    2,0
  2255.  
  2256. lbC0018A8:
  2257.     MOVE.B    D1,(14,A1)
  2258.     MOVE.B    D0,(15,A1)
  2259.     MOVE.B    #4,(8,A1)
  2260.     MOVE.L    ($0114,A6),($0010,A1)
  2261.     LEA    ($0014,A1),A0
  2262.     MOVE.L    A0,(8,A0)
  2263.     ADDQ.L    #4,A0
  2264.     CLR.L    (A0)
  2265.     MOVE.L    A0,-(A0)
  2266.     RTS
  2267.  
  2268. lbC0018CC:
  2269.     MOVEA.L    (4).W,A6
  2270.     MOVEA.L    (4,SP),A4
  2271.     LEA    (lbC0031F0,PC),A0
  2272.     MOVE.L    A0,($0090,A4)
  2273.     LEA    (lbC003242,PC),A0
  2274.     MOVE.L    A0,($0094,A4)
  2275.     LEA    (lbC00314A,PC),A0
  2276.     MOVE.L    A0,($0088,A4)
  2277.     LEA    (lbC0031C4,PC),A0
  2278.     MOVE.L    A0,($008C,A4)
  2279.     LEA    (lbL0028D8,PC),A0
  2280.     MOVE.L    A0,($0080,A4)
  2281.     LEA    (lbC002A84,PC),A0
  2282.     MOVE.L    A0,($0084,A4)
  2283.     LEA    (lbC0027BE,PC),A0
  2284.     MOVE.L    A0,($007C,A4)
  2285.     MOVEA.L    ($003A,A4),A5
  2286.     MOVEQ    #-1,D0
  2287.     JSR    (-$014A,A6)
  2288.     MOVEQ    #0,D7
  2289.     BSET    D0,D7
  2290.     MOVEA.L    ($004A,A4),A0
  2291.     MOVE.L    D7,($0022,A0)
  2292.     MOVE.L    ($0010,A4),($0026,A0)
  2293.     MOVEA.L    ($004E,A4),A0
  2294.     MOVE.L    D7,($001A,A0)
  2295.     MOVE.L    ($0010,A4),($001E,A0)
  2296.     MOVEQ    #-1,D0
  2297.     JSR    (-$014A,A6)
  2298.     MOVE.B    D0,(15,A4)
  2299.     CLR.B    (14,A4)
  2300.     MOVEQ    #0,D6
  2301.     BSET    D0,D6
  2302.     MOVEQ    #-1,D0
  2303.     JSR    (-$014A,A6)
  2304.     MOVEQ    #0,D1
  2305.     LEA    ($0AC2,A4),A1
  2306.     BSR.W    lbC0018A8
  2307.     MOVEQ    #-1,D0
  2308.     JSR    (-$014A,A6)
  2309.     BSET    D0,D6
  2310.     MOVEQ    #0,D1
  2311.     LEA    ($00A2,A4),A1
  2312.     BSR.W    lbC0018A8
  2313.     LEA    ($00A2,A4),A0
  2314.     MOVEQ    #$28,D0
  2315.     JSR    (-$028E,A6)
  2316.     MOVE.L    D0,($00C4,A4)
  2317.     MOVEA.L    D0,A1
  2318.     LEA    (timerdevice.MSG,PC),A0
  2319.     MOVEQ    #1,D0
  2320.     MOVEQ    #0,D1
  2321.     JSR    (-$01BC,A6)
  2322. lbC001986:
  2323.     TST.B    ($006B,A4)
  2324.     BNE.B    lbC0019B0
  2325.     MOVE.L    #'LK@',D1
  2326.     MOVEA.L    ($00C4,A4),A1
  2327.     MOVE.W    #9,($001C,A1)
  2328.     CLR.B    ($001F,A1)
  2329.     CLR.L    ($0020,A1)
  2330.     MOVE.L    D1,($0024,A1)
  2331.     JSR    (-$01CE,A6)
  2332.     ST    ($006B,A4)
  2333. lbC0019B0:
  2334.     MOVE.L    D6,D0
  2335.     JSR    (-$013E,A6)
  2336.     MOVE.L    D0,D5
  2337.     MOVE.B    ($00B1,A4),D0
  2338.     BTST    D0,D5
  2339.     BEQ.B    lbC0019D6
  2340.     TST.B    ($006B,A4)
  2341.     BEQ.B    lbC0019D6
  2342.     SF    ($006B,A4)
  2343.     MOVEA.L    ($00C4,A4),A1
  2344.     JSR    (-$01DA,A6)
  2345.     BSR.W    lbC002536
  2346. lbC0019D6:
  2347.     MOVEA.L    A4,A0
  2348.     JSR    (-$0174,A6)
  2349.     TST.L    D0
  2350.     BEQ.B    lbC001986
  2351.     MOVEA.L    D0,A1
  2352.     CLR.B    ($001F,A1)
  2353.     MOVEA.L    ($0018,A1),A3
  2354.     MOVEQ    #0,D1
  2355.     MOVE.B    (A3),D0
  2356.     BTST    #1,D0
  2357.     BEQ.B    lbC0019F6
  2358.     MOVEQ    #-1,D1
  2359. lbC0019F6:
  2360.     MOVE.B    D1,($1012,A5)
  2361.     MOVE.L    ($0024,A1),D3
  2362.     MOVE.L    ($002C,A1),D4
  2363.     MOVEQ    #0,D0
  2364.     MOVE.B    ($001D,A1),D0
  2365.     CMP.B    #$1C,D0
  2366.     BEQ.W    lbC002396
  2367.     CMP.B    #$1E,D0
  2368.     BGE.W    lbC001A4A
  2369.     SUBQ.B    #2,D0
  2370.     AND.B    #1,D0
  2371.     LSL.L    #2,D0
  2372.     MOVE.B    (1,A3),D1
  2373.     CMP.B    #3,D1
  2374.     BNE.B    lbC001A2C
  2375.     ADDQ.L    #2,D0
  2376. lbC001A2C:
  2377.     MOVE.W    (lbW001A42,PC,D0.W),D0
  2378.     MOVE.L    A1,-(SP)
  2379.     JSR    (lbW001A42,PC,D0.W)
  2380. label16:
  2381.     MOVEA.L    (SP)+,A1
  2382.     MOVE.B    D0,($001F,A1)
  2383.     JSR    (-$017A,A6)
  2384. lbC001A40:
  2385.     BRA.B    lbC0019D6
  2386.  
  2387. lbW001A42:
  2388.     dc.w    $04AA,$0746,$0630,$073E
  2389.  
  2390. lbC001A4A:
  2391.     SUB.B    #$1E,D0
  2392.     LSL.L    #1,D0
  2393.     MOVE.W    (ascii.MSG,PC,D0.W),D0
  2394.     MOVE.L    A1,-(SP)
  2395.     JSR    (ascii.MSG,PC,D0.W)
  2396. label17:
  2397.     MOVEA.L    (SP)+,A1
  2398.     MOVE.B    D0,($001F,A1)
  2399.     JSR    (-$017A,A6)
  2400.     BRA.B    lbC001A40
  2401.  
  2402. ascii.MSG:
  2403.     dc.b    0
  2404.     dc.b    'x'
  2405.     dc.b    1
  2406.     dc.b    $1C
  2407.     dc.b    1
  2408.     dc.b    'À'
  2409.     dc.b    2
  2410.     dc.b    '&'
  2411.     dc.b    2
  2412.     dc.b    $9E
  2413.     dc.b    3
  2414.     dc.b    $12
  2415.     dc.b    0
  2416.     dc.b    $12
  2417.     dc.b    3
  2418.     dc.b    '°'
  2419.     dc.b    3
  2420.     dc.b    'r'
  2421.     dc.b    $10
  2422.     dc.b    $13
  2423.  
  2424. lb2:
  2425.     AND.B    #1,D0
  2426.     LSL.B    #4,D0
  2427.     OR.B    #$A0,D0
  2428. lb1:
  2429.     MOVE.B    D0,($0018,A5)
  2430.     MOVEA.L    ($004E,A4),A0
  2431.     MOVE.W    #1,($0022,A0)
  2432.     MOVE.L    D7,D0
  2433.     JSR    (-$013E,A6)
  2434.     MOVE.B    (A3),D0
  2435.     AND.B    #1,D0
  2436.     LSL.B    #4,D0
  2437.     OR.B    #$A0,D0
  2438.     MOVE.B    ($0018,A5),D1
  2439.     CMP.B    D0,D1
  2440.     BEQ.B    lb3
  2441.     MOVE.B    D0,($0018,A5)
  2442.     MOVEA.L    ($004E,A4),A0
  2443.     MOVE.W    #1,($0022,A0)
  2444.     MOVE.L    D7,D0
  2445.     JSR    (-$013E,A6)
  2446.     MOVE.B    (A3),D0
  2447.     AND.B    #1,D0
  2448.     LSL.B    #4,D0
  2449.     OR.B    #$A0,D0
  2450.     MOVE.B    ($0018,A5),D1
  2451.     CMP.B    D0,D1
  2452.     BNE.W    lb4
  2453. lb3:
  2454.     MOVEQ    #0,D0
  2455.     RTS
  2456.  
  2457. lb4:
  2458.     MOVEQ    #-1,D0
  2459.     RTS
  2460.  
  2461. lb5:
  2462.     MOVE.L    A2,-(SP)
  2463.     MOVEA.L    A1,A2
  2464.     MOVE.B    (A3),D0
  2465.     AND.B    #1,D0
  2466.     LSL.B    #4,D0
  2467.     OR.B    #$A0,D0
  2468.     MOVE.B    D0,($0018,A5)
  2469.     MOVEA.L    ($004A,A4),A0
  2470.     CLR.W    ($002A,A0)
  2471.     LEA    ($0A1E,A4),A0
  2472.     MOVE.L    D7,D0
  2473.     NOT.L    D0
  2474.     AND.L    D0,($001A,A0)
  2475.     MOVE.B    #$EC,($001C,A5)
  2476.     MOVEA.L    ($004E,A4),A0
  2477.     MOVE.W    #$0064,($0022,A0)
  2478.     MOVE.L    D7,D0
  2479.     JSR    (-$013E,A6)
  2480.     MOVEA.L    ($004E,A4),A0
  2481.     TST.W    ($0022,A0)
  2482.     BEQ.W    lb6
  2483.     MOVE.W    #$0190,D0
  2484. lb49:
  2485.     BTST    #7,($101A,A5)
  2486.     DBEQ    D0,lb49
  2487.     BTST    #7,($101A,A5)
  2488.     BNE.W    lb6
  2489.     MOVE.W    #$0190,D0
  2490. lb50:
  2491.     BTST    #0,($001C,A5)
  2492.     BNE.W    lb6
  2493.     BTST    #3,($001C,A5)
  2494.     DBNE    D0,lb50
  2495.     MOVEA.L    ($0028,A2),A0
  2496.     MOVE.W    #$00FF,D0
  2497. lb51:
  2498.     MOVE.W    (A5),D1
  2499.     ROL.W    #8,D1
  2500.     MOVE.W    D1,(A0)+
  2501.     DBRA    D0,lb51
  2502.     MOVE.L    #$00000200,($0020,A2)
  2503.     MOVEA.L    (SP)+,A2
  2504.     MOVEQ    #0,D0
  2505.     RTS
  2506.  
  2507. lb6:
  2508.     CLR.L    ($0020,A2)
  2509.     MOVEA.L    (SP)+,A2
  2510.     MOVEQ    #-1,D0
  2511.     RTS
  2512.  
  2513. lb7:
  2514.     MOVE.L    A2,-(SP)
  2515.     MOVEA.L    A1,A2
  2516.     MOVE.B    (A3),D0
  2517.     AND.B    #1,D0
  2518.     LSL.B    #4,D0
  2519.     OR.B    #$A0,D0
  2520.     MOVE.B    D0,($0018,A5)
  2521.     MOVEA.L    ($004A,A4),A0
  2522.     CLR.W    ($002A,A0)
  2523.     LEA    ($0A1E,A4),A0
  2524.     MOVE.L    D7,D0
  2525.     NOT.L    D0
  2526.     AND.L    D0,($001A,A0)
  2527.     MOVE.B    #$A1,($001C,A5)
  2528.     MOVEA.L    ($004E,A4),A0
  2529.     MOVE.W    #$0032,($0022,A0)
  2530.     MOVE.L    D7,D0
  2531.     JSR    (-$013E,A6)
  2532.     MOVEA.L    ($004E,A4),A0
  2533.     TST.W    ($0022,A0)
  2534.     BEQ.W    lb9
  2535.     MOVE.W    #$0190,D0
  2536. lb52:
  2537.     BTST    #7,($101A,A5)
  2538.     DBEQ    D0,lb52
  2539.     BTST    #7,($101A,A5)
  2540.     BNE.W    lb9
  2541.     MOVE.W    #$0190,D0
  2542. lb53:
  2543.     BTST    #0,($001C,A5)
  2544.     BNE.W    lb9
  2545.     BTST    #3,($001C,A5)
  2546.     DBNE    D0,lb53
  2547.     MOVEA.L    ($0028,A2),A0
  2548.     MOVE.W    #$00FF,D0
  2549. lb54:
  2550.     MOVE.W    (A5),D1
  2551.     ROL.W    #8,D1
  2552.     MOVE.W    D1,(A0)+
  2553.     DBRA    D0,lb54
  2554.     MOVE.L    #$00000200,($0020,A2)
  2555.     MOVEA.L    (SP)+,A2
  2556.     MOVEQ    #0,D0
  2557.     RTS
  2558.  
  2559. lb9:
  2560.     CLR.L    ($0020,A2)
  2561.     MOVEA.L    (SP)+,A2
  2562.     MOVEQ    #-1,D0
  2563.     RTS
  2564.  
  2565. lb10:
  2566.     MOVE.B    (A3),D0
  2567.     AND.B    #1,D0
  2568.     LSL.B    #4,D0
  2569.     OR.B    #$A0,D0
  2570.     MOVE.B    D0,($0018,A5)
  2571.     MOVEA.L    ($004A,A4),A0
  2572.     CLR.W    ($002A,A0)
  2573.     LEA    ($0A1E,A4),A0
  2574.     MOVE.L    D7,D0
  2575.     NOT.L    D0
  2576.     AND.L    D0,($001A,A0)
  2577.     MOVE.B    #8,($001C,A5)
  2578.     MOVEA.L    ($004E,A4),A0
  2579.     MOVE.W    #$0032,($0022,A0)
  2580.     MOVE.L    D7,D0
  2581.     JSR    (-$013E,A6)
  2582.     MOVEA.L    ($004E,A4),A0
  2583.     TST.W    ($0022,A0)
  2584.     BEQ.W    lb11
  2585.     MOVE.W    #$0190,D0
  2586. lb55:
  2587.     BTST    #7,($101A,A5)
  2588.     DBEQ    D0,lb55
  2589.     BTST    #7,($101A,A5)
  2590.     BNE.W    lb11
  2591.     MOVEQ    #0,D0
  2592.     RTS
  2593.  
  2594. lb11:
  2595.     MOVEQ    #-1,D0
  2596.     RTS
  2597.  
  2598. lb12:
  2599.     MOVE.B    ($0034,A3),D0
  2600.     SUBQ.B    #1,D0
  2601.     MOVE.B    (A3),D1
  2602.     AND.B    #1,D1
  2603.     LSL.B    #4,D1
  2604.     AND.B    #15,D0
  2605.     OR.B    #$A0,D0
  2606.     OR.B    D1,D0
  2607.     MOVE.B    D0,($0018,A5)
  2608.     MOVEA.L    ($004A,A4),A0
  2609.     CLR.W    ($002A,A0)
  2610.     LEA    ($0A1E,A4),A0
  2611.     MOVE.L    D7,D0
  2612.     NOT.L    D0
  2613.     AND.L    D0,($001A,A0)
  2614.     MOVE.B    ($0035,A3),(8,A5)
  2615.     MOVE.B    #$91,($001C,A5)
  2616.     MOVEA.L    ($004E,A4),A0
  2617.     MOVE.W    #$0032,($0022,A0)
  2618.     MOVE.L    D7,D0
  2619.     JSR    (-$013E,A6)
  2620.     MOVEA.L    ($004E,A4),A0
  2621.     TST.W    ($0022,A0)
  2622.     BEQ.W    lb13
  2623.     MOVE.W    #$0190,D0
  2624. lb56:
  2625.     BTST    #7,($101A,A5)
  2626.     DBEQ    D0,lb56
  2627.     BTST    #7,($101A,A5)
  2628.     BNE.W    lb13
  2629.     MOVEQ    #0,D0
  2630.     RTS
  2631.  
  2632. lb13:
  2633.     MOVEQ    #-1,D0
  2634.     RTS
  2635.  
  2636. lb14:
  2637.     MOVE.B    (A3),D0
  2638.     AND.B    #1,D0
  2639.     LSL.B    #4,D0
  2640.     OR.B    #$A0,D0
  2641.     MOVE.B    D0,($0018,A5)
  2642.     MOVEA.L    ($004A,A4),A0
  2643.     CLR.W    ($002A,A0)
  2644.     LEA    ($0A1E,A4),A0
  2645.     MOVE.L    D7,D0
  2646.     NOT.L    D0
  2647.     AND.L    D0,($001A,A0)
  2648.     MOVE.B    D3,(8,A5)
  2649.     MOVE.B    #$C6,($001C,A5)
  2650.     MOVEA.L    ($004E,A4),A0
  2651.     MOVE.W    #$0032,($0022,A0)
  2652.     MOVE.L    D7,D0
  2653.     JSR    (-$013E,A6)
  2654.     MOVEA.L    ($004E,A4),A0
  2655.     TST.W    ($0022,A0)
  2656.     BEQ.W    lb15
  2657.     MOVE.W    #$0190,D0
  2658. lb57:
  2659.     BTST    #7,($101A,A5)
  2660.     DBEQ    D0,lb57
  2661.     BTST    #7,($101A,A5)
  2662.     BNE.W    lb15
  2663.     BTST    #0,($101A,A5)
  2664.     BNE.W    lb15
  2665.     MOVEQ    #0,D0
  2666.     RTS
  2667.  
  2668. lb15:
  2669.     MOVEQ    #-1,D0
  2670.     RTS
  2671.  
  2672. lb16:
  2673.     MOVE.B    (A3),D0
  2674.     AND.B    #1,D0
  2675.     LSL.B    #4,D0
  2676.     OR.B    #$A0,D0
  2677.     MOVE.B    D0,($0018,A5)
  2678.     MOVEA.L    ($004A,A4),A0
  2679.     CLR.W    ($002A,A0)
  2680.     LEA    ($0A1E,A4),A0
  2681.     MOVE.L    D7,D0
  2682.     NOT.L    D0
  2683.     AND.L    D0,($001A,A0)
  2684.     MOVE.B    #$DC,($001C,A5)
  2685.     MOVEA.L    ($004E,A4),A0
  2686.     MOVE.W    #$0032,($0022,A0)
  2687.     MOVE.L    D7,D0
  2688.     JSR    (-$013E,A6)
  2689.     MOVEA.L    ($004E,A4),A0
  2690.     TST.W    ($0022,A0)
  2691.     BEQ.W    lb17
  2692.     MOVE.W    #$0190,D0
  2693. lb58:
  2694.     TST.B    ($101A,A5)
  2695.     DBEQ    D0,lb58
  2696.     TST.B    ($101A,A5)
  2697.     BEQ.B    lb17
  2698.     MOVEQ    #0,D0
  2699.     RTS
  2700.  
  2701. lb17:
  2702.     MOVEQ    #-1,D0
  2703.     RTS
  2704.  
  2705. lb18:
  2706.     MOVE.B    (A3),D0
  2707.     AND.B    #1,D0
  2708.     LSL.B    #4,D0
  2709.     OR.B    #$A0,D0
  2710.     MOVE.B    D0,($0018,A5)
  2711.     MOVEA.L    ($004A,A4),A0
  2712.     CLR.W    ($002A,A0)
  2713.     LEA    ($0A1E,A4),A0
  2714.     MOVE.L    D7,D0
  2715.     NOT.L    D0
  2716.     AND.L    D0,($001A,A0)
  2717.     MOVE.B    #$DB,($001C,A5)
  2718.     MOVEA.L    ($004E,A4),A0
  2719.     MOVE.W    #$0032,($0022,A0)
  2720.     MOVE.L    D7,D0
  2721.     JSR    (-$013E,A6)
  2722.     MOVEQ    #0,D0
  2723.     RTS
  2724.  
  2725. lb19:
  2726.     MOVE.L    D2,-(SP)
  2727.     MOVE.B    (A3),D0
  2728.     AND.B    #1,D0
  2729.     LSL.B    #4,D0
  2730.     OR.B    #$A0,D0
  2731.     MOVE.B    D0,($0018,A5)
  2732.     LEA    ($0A1E,A4),A0
  2733.     MOVE.L    D7,D0
  2734.     NOT.L    D0
  2735.     AND.L    D0,($001A,A0)
  2736.     MOVE.W    #$0028,D2
  2737. lb60:
  2738.     MOVEA.L    ($004E,A4),A0
  2739.     MOVE.W    #1,($0022,A0)
  2740.     MOVE.L    D7,D0
  2741.     JSR    (-$013E,A6)
  2742.     MOVE.W    #10,D0
  2743. lb59:
  2744.     BTST    #6,($001C,A5)
  2745.     BNE.W    lb20
  2746.     DBRA    D0,lb59
  2747.     DBRA    D2,lb60
  2748.     MOVE.L    (SP)+,D2
  2749.     MOVEQ    #0,D0
  2750.     RTS
  2751.  
  2752. lb20:
  2753.     MOVEA.L    ($004A,A4),A0
  2754.     CLR.W    ($002A,A0)
  2755.     LEA    ($0A1E,A4),A0
  2756.     MOVE.L    D7,D0
  2757.     NOT.L    D0
  2758.     AND.L    D0,($001A,A0)
  2759.     MOVE.B    #$10,($001C,A5)
  2760.     MOVEA.L    ($004E,A4),A0
  2761.     MOVE.W    #$05DC,($0022,A0)
  2762.     MOVE.L    D7,D0
  2763.     JSR    (-$013E,A6)
  2764.     MOVE.W    #$0190,D0
  2765. lb61:
  2766.     BTST    #7,($101A,A5)
  2767.     DBEQ    D0,lb61
  2768.     MOVE.L    (SP)+,D2
  2769.     MOVEQ    #-1,D0
  2770.     RTS
  2771.  
  2772. lb21:
  2773.     LSR.L    #8,D0
  2774.     LSR.L    #1,D0
  2775.     MOVEQ    #0,D1
  2776.     MOVE.B    ($0035,A3),D1
  2777.     DIVU.W    D1,D0
  2778.     MOVE.L    D0,D1
  2779.     SWAP    D1
  2780.     ADDQ.B    #1,D1
  2781.     MOVE.B    D1,(12,A5)
  2782.     AND.L    #$0000FFFF,D0
  2783.     MOVEQ    #0,D1
  2784.     MOVE.B    ($0034,A3),D1
  2785.     DIVU.W    D1,D0
  2786.     MOVE.L    D0,D1
  2787.     SWAP    D1
  2788.     MOVE.B    D0,($0010,A5)
  2789.     LSR.W    #8,D0
  2790.     MOVE.B    D0,($0014,A5)
  2791.     MOVE.B    (A3),D0
  2792.     AND.B    #1,D0
  2793.     LSL.B    #4,D0
  2794.     AND.B    #15,D1
  2795.     OR.B    #$A0,D1
  2796.     OR.B    D0,D1
  2797.     MOVE.B    D1,($0018,A5)
  2798.     RTS
  2799.  
  2800. label18:
  2801.     MOVE.L    D2,-(SP)
  2802.     MOVE.L    D3,D2
  2803.     MOVE.L    D3,($0020,A1)
  2804.     MOVEA.L    ($0028,A1),A0
  2805.     CMP.L    #$00000200,D2
  2806.     BNE.B    lb22
  2807.     MOVE.L    D4,D0
  2808.     MOVE.L    ($004C,A3),D1
  2809.     SUB.L    #$00000200,D0
  2810.     CMP.L    D0,D1
  2811.     BNE.B    lb22
  2812.     MOVE.L    D4,D0
  2813.     BSR.B    lb21
  2814.     LEA    ($0048,A3),A0
  2815.     MOVE.L    D4,D0
  2816.     ADD.L    #$00000200,D0
  2817.     MOVE.L    D0,(A0)
  2818.     MOVEA.L    ($0028,A1),A0
  2819.     BSR.W    lb25
  2820.     BRA.B    lb23
  2821.  
  2822. lb22:
  2823.     MOVE.L    D4,D0
  2824.     BSR.W    lb21
  2825.     MOVE.L    #$00020000,D1
  2826.     CMP.L    D1,D2
  2827.     BGT.B    lb63
  2828.     MOVE.L    D2,D1
  2829. lb63:
  2830.     SUB.L    D1,D2
  2831.     MOVE.L    D1,D3
  2832.     BSR.W    lb65
  2833.     TST.L    D0
  2834.     BNE.B    lb24
  2835.     TST.L    D2
  2836.     BEQ.B    lb23
  2837.     MOVE.L    D3,D1
  2838.     ADD.L    D1,D4
  2839.     BRA.B    lb22
  2840.  
  2841. lb23:
  2842.     MOVEQ    #0,D0
  2843.     MOVE.L    D4,($004C,A3)
  2844.     MOVE.L    (SP)+,D2
  2845.     RTS
  2846.  
  2847. lb24:
  2848.     MOVE.L    #$7FFFFFFF,($004C,A3)
  2849.     MOVEQ    #$1D,D0
  2850.     CMP.B    #2,D2
  2851.     BEQ.B    lb66
  2852.     MOVEQ    #$19,D0
  2853. lb66:
  2854.     MOVE.L    (SP)+,D2
  2855.     RTS
  2856.  
  2857. lb25:
  2858.     MOVE.L    D2,-(SP)
  2859.     MOVEQ    #$11,D2
  2860.     MOVE.B    D2,(8,A5)
  2861.     SUBQ.L    #2,D2
  2862.     MOVE.B    #$20,($001C,A5)
  2863.     MOVEQ    #7,D0
  2864. lb26:
  2865.     BTST    D0,($001C,A5)
  2866.     BNE.B    lb26
  2867.     MOVEQ    #3,D0
  2868. lb27:
  2869.     BTST    D0,($001C,A5)
  2870.     BEQ.B    lb27
  2871.     MOVEQ    #$7F,D0
  2872. lb28:
  2873.     MOVE.L    (A5),(A0)+
  2874.     DBRA    D0,lb28
  2875.     MOVEA.L    ($0044,A3),A0
  2876. lb32:
  2877.     MOVEQ    #7,D0
  2878. lb29:
  2879.     BTST    D0,($001C,A5)
  2880.     BNE.B    lb29
  2881.     MOVEQ    #3,D0
  2882. lb30:
  2883.     BTST    D0,($001C,A5)
  2884.     BEQ.B    lb30
  2885.     MOVEQ    #$7F,D0
  2886. lb31:
  2887.     MOVE.L    (A5),(A0)+
  2888.     DBRA    D0,lb31
  2889.     DBRA    D2,lb32
  2890.     MOVEQ    #7,D0
  2891. lb33:
  2892.     BTST    D0,($001C,A5)
  2893.     BNE.B    lb33
  2894.     MOVE.L    (SP)+,D2
  2895.     RTS
  2896.  
  2897. lb65:
  2898.     MOVEM.L    D3/D4/A2,-(SP)
  2899.     MOVEA.L    A0,A2
  2900.     MOVE.L    D1,D3
  2901.     LSR.L    #8,D3
  2902.     LSR.L    #1,D3
  2903.     MOVE.B    D3,(8,A5)
  2904.     SUBQ.L    #1,D3
  2905.     MOVEQ    #0,D4
  2906.     MOVE.B    ($0054,A3),($001C,A5)
  2907. lb70:
  2908.     TST.W    D4
  2909.     BNE.B    lb34
  2910.     MOVE.W    #$0032,D0
  2911. lb35:
  2912.     BTST    #7,($101A,A5)
  2913.     BEQ.B    lb34
  2914.     DBRA    D0,lb35
  2915.     MOVEA.L    ($004A,A4),A0
  2916.     CLR.W    ($002A,A0)
  2917.     BTST    #7,($101A,A5)
  2918.     BEQ.B    lb36
  2919.     MOVE.L    D7,D0
  2920.     JSR    (-$013E,A6)
  2921. lb36:
  2922.     MOVEQ    #-1,D0
  2923.     MOVEA.L    ($004A,A4),A0
  2924.     MOVE.W    D0,($002A,A0)
  2925. lb34:
  2926.     ADDQ.W    #1,D4
  2927.     CMP.W    ($009C,A4),D4
  2928.     BNE.B    lb37
  2929.     MOVEQ    #0,D4
  2930. lb37:
  2931.     MOVEQ    #7,D0
  2932. lb38:
  2933.     BTST    D0,($001C,A5)
  2934.     BNE.B    lb38
  2935. lb68:
  2936.     BTST    #6,($001C,A5)
  2937.     BEQ.B    lb40
  2938.     BTST    #0,($001C,A5)
  2939.     BNE.B    lb39
  2940.     BTST    #3,($001C,A5)
  2941.     BEQ.B    lb68
  2942.     MOVEQ    #$7F,D0
  2943. lb69:
  2944.     MOVE.L    (A5),(A2)+
  2945.     DBRA    D0,lb69
  2946.     DBRA    D3,lb70
  2947.     MOVEQ    #7,D0
  2948. lb71:
  2949.     BTST    D0,($001C,A5)
  2950.     BNE.B    lb71
  2951.     MOVEA.L    A2,A0
  2952.     MOVEM.L    (SP)+,D3/D4/A2
  2953.     MOVEQ    #0,D0
  2954.     RTS
  2955.  
  2956. lb39:
  2957.     MOVEM.L    (SP)+,D3/D4/A2
  2958.     MOVEQ    #1,D0
  2959.     RTS
  2960.  
  2961. lb40:
  2962.     CLR.B    (1,A3)
  2963.     MOVEM.L    (SP)+,D3/D4/A2
  2964.     MOVEQ    #2,D0
  2965.     RTS
  2966.  
  2967. lb41:
  2968.     MOVE.L    #$7FFFFFFF,($0048,A3)
  2969.     MOVE.L    D2,-(SP)
  2970.     MOVE.L    D3,D2
  2971.     MOVE.L    D3,($0020,A1)
  2972.     MOVEA.L    ($0028,A1),A0
  2973. lb77:
  2974.     MOVE.L    D4,D0
  2975.     BSR.W    lb21
  2976.     MOVE.L    #$00020000,D1
  2977.     CMP.L    D1,D2
  2978.     BGT.B    lb72
  2979.     MOVE.L    D2,D1
  2980. lb72:
  2981.     MOVE.L    D1,D3
  2982.     SUB.L    D1,D2
  2983.     BSR.W    lb75
  2984.     TST.L    D0
  2985.     BNE.B    lb74
  2986.     TST.L    D2
  2987.     BEQ.B    lb73
  2988.     MOVE.L    D3,D1
  2989.     ADD.L    D1,D4
  2990.     BRA.B    lb77
  2991.  
  2992. lb73:
  2993.     MOVEQ    #0,D0
  2994.     MOVE.L    (SP)+,D2
  2995.     RTS
  2996.  
  2997. lb74:
  2998.     MOVEQ    #$1D,D0
  2999.     CMP.B    #2,D2
  3000.     BEQ.B    lb78
  3001.     MOVEQ    #$19,D0
  3002. lb78:
  3003.     MOVE.L    (SP)+,D2
  3004.     RTS
  3005.  
  3006. lb75:
  3007.     MOVEM.L    D3/D4/A2,-(SP)
  3008.     MOVE.L    D1,D3
  3009.     MOVEA.L    A0,A2
  3010.     LSR.L    #8,D3
  3011.     LSR.L    #1,D3
  3012.     MOVE.B    D3,(8,A5)
  3013.     SUBQ.L    #1,D3
  3014.     MOVEQ    #-1,D4
  3015.     MOVEA.L    ($004A,A4),A0
  3016.     MOVE.W    D4,($002A,A0)
  3017.     MOVE.B    ($0055,A3),($001C,A5)
  3018.     MOVEQ    #0,D4
  3019.     BRA.B    lb79
  3020.  
  3021. lb76:
  3022.     TST.W    D4
  3023.     BNE.B    lb79
  3024.     MOVE.L    D7,D0
  3025.     JSR    (-$013E,A6)
  3026. lb79:
  3027.     TST.W    D3
  3028.     BEQ.B    lb80
  3029.     ADDQ.W    #1,D4
  3030.     CMP.W    ($009C,A4),D4
  3031.     BNE.B    lb82
  3032.     MOVEQ    #0,D4
  3033. lb80:
  3034.     MOVEQ    #7,D0
  3035. lb81:
  3036.     BTST    D0,($001C,A5)
  3037.     BNE.B    lb81
  3038. ld1:
  3039.     BTST    #6,($001C,A5)
  3040.     BEQ.B    lb86
  3041.     BTST    #0,($001C,A5)
  3042.     BNE.B    lb85
  3043.     BTST    #3,($001C,A5)
  3044.     BEQ.B    ld1
  3045.     MOVEA.L    ($004A,A4),A0
  3046.     CLR.W    ($002A,A0)
  3047. lb82:
  3048.     MOVEQ    #7,D0
  3049. lb83:
  3050.     BTST    D0,($001C,A5)
  3051.     BNE.B    lb83
  3052. ld2:
  3053.     BTST    #6,($001C,A5)
  3054.     BEQ.B    lb86
  3055.     BTST    #0,($001C,A5)
  3056.     BNE.B    lb85
  3057.     BTST    #3,($001C,A5)
  3058.     BEQ.B    ld2
  3059.     MOVEQ    #$7F,D0
  3060. ld3:
  3061.     MOVE.L    (A2)+,(A5)
  3062.     DBRA    D0,ld3
  3063.     DBRA    D3,lb76
  3064.     MOVE.L    D7,D0
  3065.     JSR    (-$013E,A6)
  3066.     MOVEQ    #7,D0
  3067. ld4:
  3068.     BTST    D0,($001C,A5)
  3069.     BNE.B    ld4
  3070.     MOVEA.L    A2,A0
  3071.     MOVEM.L    (SP)+,D3/D4/A2
  3072.     MOVEQ    #0,D0
  3073.     RTS
  3074.  
  3075. lb85:
  3076.     MOVEM.L    (SP)+,D3/D4/A2
  3077.     MOVEQ    #1,D0
  3078.     RTS
  3079.  
  3080. lb86:
  3081.     CLR.B    (1,A3)
  3082.     MOVEM.L    (SP)+,D3/D4/A2
  3083.     MOVEQ    #2,D0
  3084.     RTS
  3085.  
  3086. lb87:
  3087.     MOVE.B    #$1C,($001F,A1)
  3088.     RTS
  3089.  
  3090. lb88:
  3091.     MOVE.L    A2,-(SP)
  3092.     MOVE.B    (A3),D0
  3093.     AND.B    #1,D0
  3094.     LSL.B    #4,D0
  3095.     OR.B    #$A0,D0
  3096.     MOVE.B    D0,($0018,A5)
  3097.     MOVEA.L    ($0028,A1),A2
  3098.     MOVE.L    D3,D2
  3099.     MOVE.L    D3,($0020,A1)
  3100.     MOVEA.L    ($0028,A1),A0
  3101. ld6:
  3102.     MOVE.L    #$00008000,D1
  3103.     CMP.L    D1,D2
  3104.     BGT.B    ld5
  3105.     MOVE.L    D2,D1
  3106. ld5:
  3107.     MOVE.L    D1,D3
  3108.     SUB.L    D1,D2
  3109.     MOVE.L    D3,D0
  3110.     MOVE.L    D4,D1
  3111.     MOVEA.L    A2,A0
  3112.     BSR.W    lb91
  3113.     TST.L    D0
  3114.     BNE.B    lb90
  3115.     TST.L    D2
  3116.     BEQ.B    lb89
  3117.     MOVE.L    D3,D1
  3118.     ADD.L    D1,D4
  3119.     ADDA.L    D1,A2
  3120.     BRA.B    ld6
  3121.  
  3122. lb89:
  3123.     MOVEQ    #0,D0
  3124.     MOVEA.L    (SP)+,A2
  3125.     RTS
  3126.  
  3127. lb90:
  3128.     MOVEQ    #$1D,D0
  3129.     CMP.B    #2,D2
  3130.     BEQ.B    ld7
  3131.     MOVEQ    #$19,D0
  3132. ld7:
  3133.     MOVEA.L    (SP)+,A2
  3134.     RTS
  3135.  
  3136. lb91:
  3137.     MOVEM.L    D2/D3/D6/A2,-(SP)
  3138.     MOVEQ    #5,D6
  3139.     MOVE.L    D0,D2
  3140.     MOVE.L    D1,D3
  3141.     MOVEA.L    A0,A2
  3142. ld11:
  3143.     MOVEM.L    D2/A2,-(SP)
  3144.     MOVE.L    D2,D0
  3145.     MOVE.B    D0,($0010,A5)
  3146.     LSR.L    #8,D0
  3147.     MOVE.B    D0,($0014,A5)
  3148.     MOVEA.L    ($004A,A4),A0
  3149.     CLR.W    ($002A,A0)
  3150.     LEA    ($0A1E,A4),A0
  3151.     MOVE.L    D7,D0
  3152.     NOT.L    D0
  3153.     AND.L    D0,($001A,A0)
  3154.     MOVE.B    #$A0,($001C,A5)
  3155.     TST.B    (3,A3)
  3156.     BEQ.B    ld8
  3157.     MOVEA.L    ($004E,A4),A0
  3158.     MOVE.W    #$0064,($0022,A0)
  3159.     MOVE.L    D7,D0
  3160.     JSR    (-$013E,A6)
  3161.     MOVEA.L    ($004E,A4),A0
  3162.     TST.W    ($0022,A0)
  3163.     BNE.B    ld9
  3164.     CLR.B    (3,A3)
  3165. ld9:
  3166.     MOVEA.L    ($004E,A4),A0
  3167.     CLR.W    ($0022,A0)
  3168. ld8:
  3169.     MOVE.W    #$4E20,D1
  3170. ld12:
  3171.     MOVE.B    ($001C,A5),D0
  3172.     AND.B    #$81,D0
  3173.     CMP.B    #1,D0
  3174.     BEQ.W    ld10
  3175.     MOVE.B    ($001C,A5),D0
  3176.     AND.B    #$88,D0
  3177.     EORI.B    #8,D0
  3178.     DBEQ    D1,ld12
  3179.     ADDQ.W    #1,D1
  3180.     BEQ.W    ld10
  3181.     MOVE.B    (8,A5),D0
  3182.     AND.B    #3,D0
  3183.     CMP.B    #1,D0
  3184.     BNE.W    ld10
  3185.     MOVEA.L    ($004A,A4),A0
  3186.     CLR.W    ($002A,A0)
  3187.     LEA    ($0A1E,A4),A0
  3188.     MOVE.L    D7,D0
  3189.     NOT.L    D0
  3190.     AND.L    D0,($001A,A0)
  3191.     MOVE.W    #$2800,(A5)
  3192.     MOVE.L    D3,D0
  3193.     LSR.L    #8,D0
  3194.     LSR.L    #3,D0
  3195.     SWAP    D0
  3196.     MOVE.W    D0,(A5)
  3197.     SWAP    D0
  3198.     MOVE.W    D0,(A5)
  3199.     MOVE.L    D2,D0
  3200.     LSR.L    #3,D0
  3201.     SWAP    D0
  3202.     MOVE.W    D0,(A5)
  3203.     SWAP    D0
  3204.     MOVE.W    D0,(A5)
  3205.     MOVEQ    #0,D0
  3206.     MOVE.W    D0,(A5)
  3207. ld17:
  3208.     MOVEA.L    ($004E,A4),A0
  3209.     MOVE.W    #$01F4,($0022,A0)
  3210.     MOVE.L    D7,D0
  3211.     JSR    (-$013E,A6)
  3212.     MOVEA.L    ($004E,A4),A0
  3213.     TST.W    ($0022,A0)
  3214.     BEQ.W    ld10
  3215.     MOVEA.L    ($004E,A4),A0
  3216.     CLR.W    ($0022,A0)
  3217.     LEA    ($0A1E,A4),A0
  3218.     MOVE.L    D7,D0
  3219.     NOT.L    D0
  3220.     AND.L    D0,($001A,A0)
  3221.     MOVE.W    #$4E20,D1
  3222. ld13:
  3223.     MOVE.B    ($001C,A5),D0
  3224.     BTST    #7,D0
  3225.     DBEQ    D1,ld13
  3226.     ADDQ.W    #1,D1
  3227.     BEQ.W    ld10
  3228.     BTST    #3,D0
  3229.     BEQ.W    lb93
  3230.     MOVE.B    (8,A5),D0
  3231.     AND.B    #3,D0
  3232.     CMP.B    #2,D0
  3233.     BNE.W    ld10
  3234.     MOVEA.L    ($004A,A4),A0
  3235.     CLR.W    ($002A,A0)
  3236.     MOVEQ    #0,D0
  3237.     MOVE.B    ($0014,A5),D0
  3238.     LSL.L    #8,D0
  3239.     MOVE.B    ($0010,A5),D0
  3240.     MOVEQ    #0,D2
  3241.     BTST    #0,D0
  3242.     BEQ.B    ld14
  3243.     SUBQ.L    #1,D0
  3244.     MOVEQ    #-1,D2
  3245. ld14:
  3246.     TST.L    D0
  3247.     BEQ.B    lb93
  3248.     LSR.L    #1,D0
  3249.     MOVE.L    A2,D1
  3250.     BTST    #0,D1
  3251.     BEQ.W    ld15
  3252.     BRA.W    ld16
  3253.  
  3254. lb92:
  3255.     MOVE.W    (A5),D1
  3256.     ROR.W    #8,D1
  3257.     MOVE.B    D1,(A2)+
  3258.     ROR.W    #8,D1
  3259.     MOVE.B    D1,(A2)+
  3260. ld16:
  3261.     DBRA    D0,lb92
  3262. ld19:
  3263.     TST.B    D2
  3264.     BEQ.W    ld17
  3265.     MOVE.W    (A5),D2
  3266.     LSR.L    #8,D2
  3267.     MOVE.B    D2,(A2)+
  3268.     BRA.W    ld17
  3269.  
  3270. lb93:
  3271.     MOVE.B    ($001C,A5),D0
  3272.     BTST    #0,D0
  3273.     BNE.B    ld10
  3274.     MOVEM.L    (SP)+,D2/A2
  3275.     MOVEM.L    (SP)+,D2/D3/D6/A2
  3276.     MOVEQ    #0,D0
  3277.     RTS
  3278.  
  3279. ld10:
  3280.     MOVEM.L    (SP)+,D2/A2
  3281.     DBRA    D6,ld11
  3282.     MOVEM.L    (SP)+,D2/D3/D6/A2
  3283.     MOVEQ    #$19,D0
  3284.     RTS
  3285.  
  3286. ld18:
  3287.     MOVE.W    (A5),(A2)+
  3288. ld15:
  3289.     DBRA    D0,ld18
  3290.     BRA.B    ld19
  3291.  
  3292. lbC002396:
  3293.     CMPI.B    #3,(1,A3)
  3294.     BNE.B    lbC0023B6
  3295.     MOVEM.L    A1/A2,-(SP)
  3296.     BSR.W    lbC0026D2
  3297.     MOVEM.L    (SP)+,A1/A2
  3298.     MOVE.B    D0,($001F,A1)
  3299.     JSR    (-$017A,A6)
  3300.     BRA.W    lbC001A40
  3301.  
  3302. lbC0023B6:
  3303.     MOVE.L    A2,-(SP)
  3304.     MOVEA.L    ($0028,A1),A2
  3305.     CLR.L    (8,A2)
  3306.     MOVE.W    ($0010,A2),($0012,A2)
  3307.     CLR.B    ($0015,A2)
  3308.     MOVEA.L    (12,A2),A0
  3309.     MOVEQ    #0,D0
  3310.     MOVE.B    (A0),D0
  3311.     CMP.B    #$25,D0
  3312.     BEQ.B    lbC002424
  3313.     CMP.B    #$12,D0
  3314.     BEQ.B    lbC0023F6
  3315.     CMP.B    #$1A,D0
  3316.     BEQ.W    lbC002466
  3317. lbC0023E6:
  3318.     MOVEA.L    (SP)+,A2
  3319.     MOVE.B    #$2D,($001F,A1)
  3320.     JSR    (-$017A,A6)
  3321.     BRA.W    lbC001A40
  3322.  
  3323. lbC0023F6:
  3324.     MOVE.L    A1,-(SP)
  3325.     MOVEQ    #0,D0
  3326.     MOVEA.L    (12,A2),A0
  3327.     MOVE.B    (4,A0),D0
  3328.     MOVE.L    D0,(8,A2)
  3329.     LEA    ($0062,A3),A0
  3330.     MOVEA.L    (A2),A1
  3331.     BRA.B    lbC002410
  3332.  
  3333. lbC00240E:
  3334.     MOVE.B    (A0)+,(A1)+
  3335. lbC002410:
  3336.     DBRA    D0,lbC00240E
  3337.     MOVEA.L    (SP)+,A1
  3338.     MOVEA.L    (SP)+,A2
  3339.     CLR.B    ($001F,A1)
  3340.     JSR    (-$017A,A6)
  3341.     BRA.W    lbC001A40
  3342.  
  3343. lbC002424:
  3344.     MOVEQ    #0,D1
  3345.     MOVEQ    #1,D0
  3346.     CMPI.B    #1,(8,A0)
  3347.     BEQ.B    lbC00243E
  3348.     MOVEQ    #0,D0
  3349.     MOVE.B    ($0034,A3),D0
  3350.     MOVEQ    #0,D1
  3351.     MOVE.B    ($0035,A3),D1
  3352.     MULU.W    D1,D0
  3353. lbC00243E:
  3354.     MOVE.W    ($0032,A3),D1
  3355.     MULU.W    D1,D0
  3356.     MOVEA.L    (A2),A0
  3357.     SUBQ.L    #1,D0
  3358.     MOVE.L    D0,(A0)+
  3359.     MOVE.L    #$00000200,(A0)+
  3360.     MOVE.L    #8,(8,A2)
  3361.     MOVEA.L    (SP)+,A2
  3362.     CLR.B    ($001F,A1)
  3363.     JSR    (-$017A,A6)
  3364.     BRA.W    lbC001A40
  3365.  
  3366. lbC002466:
  3367.     MOVE.B    (2,A0),D0
  3368.     AND.B    #$3F,D0
  3369.     CMP.B    #4,D0
  3370.     BEQ.W    lbC0024CE
  3371.     CMP.B    #3,D0
  3372.     BNE.W    lbC0023E6
  3373.     MOVEA.L    (A2),A0
  3374.     MOVE.B    #$1B,(A0)+
  3375.     CLR.B    (A0)+
  3376.     CLR.B    (A0)+
  3377.     CLR.B    (A0)+
  3378.     MOVE.B    #3,(A0)+
  3379.     MOVE.B    #$16,(A0)+
  3380.     MOVE.W    ($0032,A3),(A0)+
  3381.     CLR.W    (A0)+
  3382.     CLR.W    (A0)+
  3383.     CLR.W    (A0)+
  3384.     CLR.B    (A0)+
  3385.     MOVE.B    ($0035,A3),(A0)+
  3386.     MOVE.W    #$0200,(A0)+
  3387.     MOVE.W    #1,(A0)+
  3388.     CLR.W    (A0)+
  3389.     CLR.W    (A0)+
  3390.     MOVE.B    #$40,(A0)+
  3391.     CLR.B    (A0)+
  3392.     CLR.B    (A0)+
  3393.     CLR.B    (A0)+
  3394.     MOVE.L    #$0000001B,(8,A2)
  3395.     MOVEA.L    (SP)+,A2
  3396.     CLR.B    ($001F,A1)
  3397.     JSR    (-$017A,A6)
  3398.     BRA.W    lbC001A40
  3399.  
  3400. lbC0024CE:
  3401.     MOVEA.L    (A2),A0
  3402.     MOVE.B    #$1B,(A0)+
  3403.     CLR.B    (A0)+
  3404.     CLR.B    (A0)+
  3405.     CLR.B    (A0)+
  3406.     MOVE.B    #4,(A0)+
  3407.     MOVE.B    #$12,(A0)+
  3408.     CLR.B    (A0)+
  3409.     MOVE.W    ($0032,A3),D0
  3410.     ROL.W    #8,D0
  3411.     MOVE.B    D0,(A0)+
  3412.     ROL.W    #8,D0
  3413.     MOVE.B    D0,(A0)+
  3414.     MOVE.B    ($0034,A3),(A0)+
  3415.     CLR.B    (A0)+
  3416.     MOVE.W    ($0032,A3),D0
  3417.     ROL.W    #8,D0
  3418.     MOVE.B    D0,(A0)+
  3419.     ROL.W    #8,D0
  3420.     MOVE.B    D0,(A0)+
  3421.     CLR.B    (A0)+
  3422.     MOVE.W    ($0032,A3),D0
  3423.     ROL.W    #8,D0
  3424.     MOVE.B    D0,(A0)+
  3425.     ROL.W    #8,D0
  3426.     MOVE.B    D0,(A0)+
  3427.     CLR.B    (A0)+
  3428.     CLR.B    (A0)+
  3429.     CLR.B    (A0)+
  3430.     CLR.B    (A0)+
  3431.     CLR.B    (A0)+
  3432.     CLR.B    (A0)+
  3433.     CLR.B    (A0)+
  3434.     CLR.B    (A0)+
  3435.     MOVE.L    #$0000001B,(8,A2)
  3436.     MOVEA.L    (SP)+,A2
  3437.     CLR.B    ($001F,A1)
  3438.     JSR    (-$017A,A6)
  3439.     BRA.W    lbC001A40
  3440.  
  3441. lbC002536:
  3442.     MOVEM.L    D2/A2/A3,-(SP)
  3443.     MOVEQ    #3,D2
  3444.     LEA    ($005A,A4),A2
  3445. lbC002540:
  3446.     MOVE.L    (A2)+,D0
  3447.     BEQ.B    lbC002562
  3448.     MOVEA.L    D0,A3
  3449.     TST.B    (1,A3)
  3450.     BEQ.W    lbC00256C
  3451.     CMPI.B    #1,(1,A3)
  3452.     BEQ.W    lbC0025AE
  3453.     CMPI.B    #3,(1,A3)
  3454.     BEQ.W    lbC00264A
  3455. lbC002562:
  3456.     DBRA    D2,lbC002540
  3457.     MOVEM.L    (SP)+,D2/A2/A3
  3458.     RTS
  3459.  
  3460. lbC00256C:
  3461.     MOVEQ    #0,D1
  3462.     MOVE.B    (A3),D0
  3463.     BTST    #1,D0
  3464.     BEQ.B    lbC002578
  3465.     MOVEQ    #-1,D1
  3466. lbC002578:
  3467.     MOVE.B    D1,($1012,A5)
  3468.     AND.B    #1,D0
  3469.     LSL.B    #4,D0
  3470.     OR.B    #$A0,D0
  3471.     MOVE.B    D0,($0018,A5)
  3472.     MOVE.B    ($001C,A5),D0
  3473.     BTST    #0,D0
  3474.     BNE.B    lbC0025AC
  3475.     BTST    #6,D0
  3476.     BEQ.B    lbC0025AC
  3477.     BTST    #7,D0
  3478.     BNE.B    lbC0025AC
  3479.     MOVE.B    #1,(1,A3)
  3480.     MOVEQ    #0,D0
  3481.     BSR.W    lbC0025EC
  3482. lbC0025AC:
  3483.     BRA.B    lbC002562
  3484.  
  3485. lbC0025AE:
  3486.     MOVEQ    #0,D1
  3487.     MOVE.B    (A3),D0
  3488.     BTST    #1,D0
  3489.     BEQ.B    lbC0025BA
  3490.     MOVEQ    #-1,D1
  3491. lbC0025BA:
  3492.     MOVE.B    D1,($1012,A5)
  3493.     MOVE.B    (A3),D0
  3494.     AND.B    #1,D0
  3495.     LSL.B    #4,D0
  3496.     OR.B    #$A0,D0
  3497.     MOVE.B    D0,($0018,A5)
  3498.     MOVE.B    ($001C,A5),D0
  3499.     BTST    #0,D0
  3500.     BNE.B    lbC0025E8
  3501.     BTST    #6,D0
  3502.     BNE.B    lbC0025E8
  3503.     CLR.B    (1,A3)
  3504.     MOVEQ    #1,D0
  3505.     BSR.W    lbC0025EC
  3506. lbC0025E8:
  3507.     BRA.W    lbC002562
  3508.  
  3509. lbC0025EC:
  3510.     MOVEM.L    D2/A2,-(SP)
  3511.     LEA    ($0AE4,A4),A2
  3512.     MOVE.B    #5,(8,A2)
  3513.     LEA    ($0AC2,A4),A1
  3514.     MOVE.L    A1,(14,A2)
  3515.     MOVE.L    A3,($0014,A2)
  3516.     MOVE.L    D0,($0018,A2)
  3517.     MOVEA.L    A2,A1
  3518.     LEA    ($0A7A,A4),A0
  3519.     JSR    (-$016E,A6)
  3520.     MOVEA.L    (14,A2),A0
  3521.     MOVE.B    (15,A0),D1
  3522.     MOVEQ    #0,D2
  3523.     BSET    D1,D2
  3524.     JSR    (-$0084,A6)
  3525. lbC002624:
  3526.     CMPI.B    #7,(8,A2)
  3527.     BEQ.B    lbC002634
  3528.     MOVE.L    D2,D0
  3529.     JSR    (-$013E,A6)
  3530.     BRA.B    lbC002624
  3531.  
  3532. lbC002634:
  3533.     MOVEA.L    A2,A1
  3534.     MOVEA.L    (A1)+,A0
  3535.     MOVEA.L    (A1),A1
  3536.     MOVE.L    A0,(A1)
  3537.     MOVE.L    A1,(4,A0)
  3538.     JSR    (-$008A,A6)
  3539.     MOVEM.L    (SP)+,D2/A2
  3540.     RTS
  3541.  
  3542. lbC00264A:
  3543.     MOVE.L    A2,-(SP)
  3544.     MOVEA.L    ($0020,A3),A0
  3545.     TST.L    (A0)
  3546.     BEQ.W    lbC0026CC
  3547.     MOVEQ    #0,D1
  3548.     MOVE.B    (A3),D0
  3549.     BTST    #1,D0
  3550.     BEQ.B    lbC002662
  3551.     MOVEQ    #-1,D1
  3552. lbC002662:
  3553.     MOVE.B    D1,($1012,A5)
  3554.     MOVE.B    (A3),D0
  3555.     AND.B    #1,D0
  3556.     LSL.B    #4,D0
  3557.     OR.B    #$A0,D0
  3558.     MOVE.B    D0,($0018,A5)
  3559.     SUBQ.L    #8,SP
  3560.     MOVEA.L    SP,A0
  3561.     MOVEQ    #0,D0
  3562.     MOVE.L    D0,(A0)+
  3563.     MOVE.L    D0,(A0)+
  3564.     MOVEA.L    SP,A0
  3565.     LEA    ($0056,A3),A2
  3566.     MOVE.L    A0,(12,A2)
  3567.     MOVE.L    D0,(4,A2)
  3568.     MOVE.L    D0,(A2)
  3569.     CLR.B    ($0014,A2)
  3570.     CLR.L    ($0016,A2)
  3571.     CLR.W    ($001A,A2)
  3572.     MOVE.W    #$2000,($009E,A4)
  3573.     BSR.W    lbC0027BE
  3574.     ADDQ.L    #8,SP
  3575.     MOVE.L    ($002E,A3),D1
  3576.     CMP.L    D1,D0
  3577.     BEQ.B    lbC0026CC
  3578.     MOVE.L    D0,($002E,A3)
  3579.     ADDQ.L    #1,($0018,A3)
  3580.     LEA    ($0020,A3),A2
  3581. lbC0026BC:
  3582.     MOVEA.L    (A2),A2
  3583.     TST.L    (A2)
  3584.     BEQ.B    lbC0026CC
  3585.     MOVEA.L    ($0028,A2),A1
  3586.     JSR    (-$00B4,A6)
  3587.     BRA.B    lbC0026BC
  3588.  
  3589. lbC0026CC:
  3590.     MOVEA.L    (SP)+,A2
  3591.     BRA.W    lbC002562
  3592.  
  3593. lbC0026D2:
  3594.     MOVE.B    (A3),D0
  3595.     AND.B    #1,D0
  3596.     LSL.B    #4,D0
  3597.     OR.B    #$A0,D0
  3598.     MOVE.B    D0,($0018,A5)
  3599.     MOVE.L    A2,-(SP)
  3600.     MOVEA.L    ($0028,A1),A2
  3601.     CLR.L    (8,A2)
  3602.     MOVE.W    ($0010,A2),($0012,A2)
  3603.     MOVEA.L    (12,A2),A0
  3604.     MOVEQ    #0,D0
  3605.     MOVE.B    (A0),D0
  3606.     CMP.W    #$004E,D0
  3607.     BLE.B    lbC002748
  3608.     CMP.B    #$55,D0
  3609.     BNE.B    lbC00270A
  3610.     MOVEQ    #$50,D0
  3611.     BRA.B    lbC002748
  3612.  
  3613. lbC00270A:
  3614.     CMP.B    #$5A,D0
  3615.     BNE.B    lbC002714
  3616.     MOVEQ    #$51,D0
  3617.     BRA.B    lbC002748
  3618.  
  3619. lbC002714:
  3620.     CMP.B    #$A5,D0
  3621.     BNE.B    lbC00271E
  3622.     MOVEQ    #$52,D0
  3623.     BRA.B    lbC002748
  3624.  
  3625. lbC00271E:
  3626.     CMP.B    #$A8,D0
  3627.     BNE.B    lbC002728
  3628.     MOVEQ    #$53,D0
  3629.     BRA.B    lbC002748
  3630.  
  3631. lbC002728:
  3632.     CMP.B    #$A9,D0
  3633.     BNE.B    lbC002732
  3634.     MOVEQ    #$54,D0
  3635.     BRA.B    lbC002748
  3636.  
  3637. lbC002732:
  3638.     CMP.B    #$D4,D0
  3639.     BNE.B    lbC00273C
  3640.     MOVEQ    #$55,D0
  3641.     BRA.B    lbC002748
  3642.  
  3643. lbC00273C:
  3644.     CMP.B    #$D5,D0
  3645.     BNE.B    lbC002746
  3646.     MOVEQ    #$56,D0
  3647.     BRA.B    lbC002748
  3648.  
  3649. lbC002746:
  3650.     BRA.B    lbC002792
  3651.  
  3652. lbC002748:
  3653.     LSL.L    #1,D0
  3654.     MOVE.L    ($0014,A3),D1
  3655.     LEA    (lbL003290,PC),A0
  3656.     JSR    (A0,D1.W)
  3657.     MOVEA.L    (12,A2),A0
  3658.     MOVEQ    #0,D1
  3659.     MOVE.B    (A0),D1
  3660.     CMP.B    #$12,D1
  3661.     BNE.B    lbC002772
  3662.     MOVEA.L    (A2),A0
  3663.     MOVE.B    #2,(2,A0)
  3664.     MOVE.B    #2,(3,A0)
  3665. lbC002772:
  3666.     MOVE.B    ($0036,A3),($0015,A2)
  3667.     TST.B    ($0036,A3)
  3668.     BEQ.B    lbC00278E
  3669.     BTST    #2,($0014,A2)
  3670.     BNE.B    lbC00279C
  3671.     BTST    #1,($0014,A2)
  3672.     BNE.B    lbC0027A4
  3673. lbC00278E:
  3674.     MOVEA.L    (SP)+,A2
  3675.     RTS
  3676.  
  3677. lbC002792:
  3678.     MOVE.B    #2,($0036,A3)
  3679.     MOVEQ    #$2D,D0
  3680.     BRA.B    lbC002772
  3681.  
  3682. lbC00279C:
  3683.     CLR.W    ($001C,A2)
  3684.     MOVEA.L    (SP)+,A2
  3685.     RTS
  3686.  
  3687. lbC0027A4:
  3688.     MOVE.L    D0,-(SP)
  3689.     MOVEA.L    ($0016,A2),A1
  3690.     MOVE.W    ($001A,A2),D0
  3691.     BEQ.B    lbC0027B4
  3692.     BSR.W    lbC002BFA
  3693. lbC0027B4:
  3694.     MOVE.W    D0,($001C,A2)
  3695.     MOVE.L    (SP)+,D0
  3696.     MOVEA.L    (SP)+,A2
  3697.     RTS
  3698.  
  3699. lbC0027BE:
  3700.     MOVEM.L    D2/A3,-(SP)
  3701.     MOVEA.L    (12,A2),A0
  3702.     MOVEQ    #0,D0
  3703.     MOVE.L    D0,(8,A2)
  3704.     MOVE.B    (A0),D0
  3705.     MOVE.W    D0,($0012,A2)
  3706.     MOVE.L    (4,A2),D0
  3707.     MOVE.B    D0,($0010,A5)
  3708.     LSR.L    #8,D0
  3709.     MOVE.B    D0,($0014,A5)
  3710.     MOVEA.L    ($004A,A4),A0
  3711.     CLR.W    ($002A,A0)
  3712.     LEA    ($0A1E,A4),A0
  3713.     MOVE.L    D7,D0
  3714.     NOT.L    D0
  3715.     AND.L    D0,($001A,A0)
  3716.     MOVE.B    #$A0,($001C,A5)
  3717.     TST.B    (3,A3)
  3718.     BEQ.B    lbC002826
  3719.     MOVEA.L    ($004E,A4),A0
  3720.     MOVE.W    #$0064,($0022,A0)
  3721.     MOVE.L    D7,D0
  3722.     JSR    (-$013E,A6)
  3723.     MOVEA.L    ($004E,A4),A0
  3724.     TST.W    ($0022,A0)
  3725.     BNE.B    lbC00281E
  3726.     CLR.B    (3,A3)
  3727. lbC00281E:
  3728.     MOVEA.L    ($004E,A4),A0
  3729.     CLR.W    ($0022,A0)
  3730. lbC002826:
  3731.     MOVE.W    #$4E20,D1
  3732. lbC00282A:
  3733.     MOVE.B    ($001C,A5),D0
  3734.     AND.B    #$88,D0
  3735.     EORI.B    #8,D0
  3736.     DBEQ    D1,lbC00282A
  3737.     ADDQ.W    #1,D1
  3738.     BEQ.W    lbC0028CA
  3739.     MOVE.B    (8,A5),D0
  3740.     AND.B    #3,D0
  3741.     CMP.B    #1,D0
  3742.     BNE.W    lbC0028CA
  3743.     MOVEA.L    ($004A,A4),A0
  3744.     CLR.W    ($002A,A0)
  3745.     LEA    ($0A1E,A4),A0
  3746.     MOVE.L    D7,D0
  3747.     NOT.L    D0
  3748.     AND.L    D0,($001A,A0)
  3749.     MOVEA.L    (12,A2),A0
  3750.     BSR.W    lbC002D44
  3751.     MOVEA.L    (A2),A3
  3752.     MOVEA.L    ($004E,A4),A0
  3753.     MOVE.W    ($009E,A4),($0022,A0)
  3754.     MOVE.L    D7,D0
  3755.     JSR    (-$013E,A6)
  3756.     MOVEA.L    ($004E,A4),A0
  3757.     TST.W    ($0022,A0)
  3758.     BEQ.W    lbC0028CA
  3759.     MOVEA.L    ($004E,A4),A0
  3760.     CLR.W    ($0022,A0)
  3761.     LEA    ($0A1E,A4),A0
  3762.     MOVE.L    D7,D0
  3763.     NOT.L    D0
  3764.     AND.L    D0,($001A,A0)
  3765.     MOVE.W    #$4E20,D1
  3766. lbC0028A2:
  3767.     MOVE.B    ($001C,A5),D0
  3768.     BTST    #7,D0
  3769.     DBEQ    D1,lbC0028A2
  3770.     ADDQ.W    #1,D1
  3771.     BEQ.W    lbC0028CA
  3772.     MOVE.B    ($001C,A5),D0
  3773.     BTST    #0,D0
  3774.     BNE.B    lbC0028CA
  3775.     MOVEM.L    (SP)+,D2/A3
  3776.     CLR.B    ($0036,A3)
  3777.     MOVEQ    #0,D0
  3778.     RTS
  3779.  
  3780. lbC0028CA:
  3781.     MOVEM.L    (SP)+,D2/A3
  3782.     MOVE.B    #2,($0036,A3)
  3783.     MOVEQ    #$2D,D0
  3784.     RTS
  3785.  
  3786. lbL0028D8:
  3787.     dc.l    $2F062C01
  3788.  
  3789. lbC0028DC:
  3790.     MOVEM.L    D2/A3,-(SP)
  3791.     MOVEA.L    (12,A2),A0
  3792.     MOVEQ    #0,D0
  3793.     MOVE.L    D0,(8,A2)
  3794.     MOVE.B    (A0),D0
  3795.     MOVE.W    D0,($0012,A2)
  3796.     MOVE.L    (4,A2),D0
  3797.     MOVE.B    D0,($0010,A5)
  3798.     LSR.L    #8,D0
  3799.     MOVE.B    D0,($0014,A5)
  3800.     MOVEA.L    ($004A,A4),A0
  3801.     CLR.W    ($002A,A0)
  3802.     LEA    ($0A1E,A4),A0
  3803.     MOVE.L    D7,D0
  3804.     NOT.L    D0
  3805.     AND.L    D0,($001A,A0)
  3806.     MOVE.B    #$A0,($001C,A5)
  3807.     TST.B    (3,A3)
  3808.     BEQ.B    lbC002944
  3809.     MOVEA.L    ($004E,A4),A0
  3810.     MOVE.W    #$0064,($0022,A0)
  3811.     MOVE.L    D7,D0
  3812.     JSR    (-$013E,A6)
  3813.     MOVEA.L    ($004E,A4),A0
  3814.     TST.W    ($0022,A0)
  3815.     BNE.B    lbC00293C
  3816.     CLR.B    (3,A3)
  3817. lbC00293C:
  3818.     MOVEA.L    ($004E,A4),A0
  3819.     CLR.W    ($0022,A0)
  3820. lbC002944:
  3821.     MOVE.W    #$4E20,D1
  3822. lbC002948:
  3823.     MOVE.B    ($001C,A5),D0
  3824.     AND.B    #$89,D0
  3825.     CMP.B    #1,D0
  3826.     BEQ.W    lbC002A68
  3827.     MOVE.B    ($001C,A5),D0
  3828.     AND.B    #$88,D0
  3829.     EORI.B    #8,D0
  3830.     DBEQ    D1,lbC002948
  3831.     ADDQ.W    #1,D1
  3832.     BEQ.W    lbC002A68
  3833.     MOVE.B    (8,A5),D0
  3834.     AND.B    #3,D0
  3835.     CMP.B    #1,D0
  3836.     BNE.W    lbC002A68
  3837.     MOVEA.L    ($004A,A4),A0
  3838.     CLR.W    ($002A,A0)
  3839.     LEA    ($0A1E,A4),A0
  3840.     MOVE.L    D7,D0
  3841.     NOT.L    D0
  3842.     AND.L    D0,($001A,A0)
  3843.     MOVEA.L    (12,A2),A0
  3844.     BSR.W    lbC002D44
  3845.     MOVEA.L    (A2),A3
  3846. lbC00299C:
  3847.     MOVEA.L    ($004E,A4),A0
  3848.     MOVE.W    ($009E,A4),($0022,A0)
  3849.     MOVE.L    D7,D0
  3850.     JSR    (-$013E,A6)
  3851.     MOVEA.L    ($004E,A4),A0
  3852.     TST.W    ($0022,A0)
  3853.     BEQ.W    lbC002A68
  3854.     MOVEA.L    ($004E,A4),A0
  3855.     CLR.W    ($0022,A0)
  3856.     LEA    ($0A1E,A4),A0
  3857.     MOVE.L    D7,D0
  3858.     NOT.L    D0
  3859.     AND.L    D0,($001A,A0)
  3860.     MOVE.W    #$4E20,D1
  3861. lbC0029D0:
  3862.     MOVE.B    ($001C,A5),D0
  3863.     BTST    #7,D0
  3864.     DBEQ    D1,lbC0029D0
  3865.     ADDQ.W    #1,D1
  3866.     BEQ.W    lbC002A68
  3867.     BTST    #3,D0
  3868.     BEQ.W    lbC002A50
  3869.     MOVE.B    (8,A5),D0
  3870.     AND.B    #3,D0
  3871.     CMP.B    #2,D0
  3872.     BNE.W    lbC002A68
  3873.     MOVEA.L    ($004A,A4),A0
  3874.     CLR.W    ($002A,A0)
  3875.     MOVEQ    #0,D0
  3876.     MOVE.B    ($0014,A5),D0
  3877.     LSL.L    #8,D0
  3878.     MOVE.B    ($0010,A5),D0
  3879.     MOVEQ    #0,D2
  3880.     BTST    #0,D0
  3881.     BEQ.B    lbC002A1A
  3882.     SUBQ.L    #1,D0
  3883.     MOVEQ    #-1,D2
  3884. lbC002A1A:
  3885.     ADD.L    D0,(8,A2)
  3886.     TST.L    D0
  3887.     BEQ.B    lbC002A50
  3888.     LSR.L    #1,D0
  3889.     MOVE.L    A3,D1
  3890.     BTST    #0,D1
  3891.     BEQ.W    lbC002A7E
  3892.     BRA.W    lbC002A3C
  3893.  
  3894. lbC002A32:
  3895.     MOVE.W    (A5),D1
  3896.     ROR.W    #8,D1
  3897.     MOVE.B    D1,(A3)+
  3898.     ROR.W    #8,D1
  3899.     MOVE.B    D1,(A3)+
  3900. lbC002A3C:
  3901.     DBRA    D0,lbC002A32
  3902. lbC002A40:
  3903.     TST.B    D2
  3904.     BEQ.W    lbC00299C
  3905.     MOVE.W    (A5),D2
  3906.     LSR.L    #8,D2
  3907.     MOVE.B    D2,(A3)+
  3908.     BRA.W    lbC00299C
  3909.  
  3910. lbC002A50:
  3911.     MOVE.B    ($001C,A5),D0
  3912.     BTST    #0,D0
  3913.     BNE.B    lbC002A68
  3914.     MOVEM.L    (SP)+,D2/A3
  3915.     CLR.B    ($0036,A3)
  3916.     MOVEQ    #0,D0
  3917.     MOVE.L    (SP)+,D6
  3918.     RTS
  3919.  
  3920. lbC002A68:
  3921.     MOVEM.L    (SP)+,D2/A3
  3922.     DBRA    D6,lbC0028DC
  3923.     MOVE.L    (SP)+,D6
  3924.     MOVE.B    #2,($0036,A3)
  3925.     MOVEQ    #$2D,D0
  3926.     RTS
  3927.  
  3928. lbC002A7C:
  3929.     MOVE.W    (A5),(A3)+
  3930. lbC002A7E:
  3931.     DBRA    D0,lbC002A7C
  3932.     BRA.B    lbC002A40
  3933.  
  3934. lbC002A84:
  3935.     MOVEM.L    D2/A3,-(SP)
  3936.     MOVEA.L    (12,A2),A0
  3937.     MOVEQ    #0,D0
  3938.     MOVE.L    D0,(8,A2)
  3939.     MOVE.B    (A0),D0
  3940.     MOVE.W    D0,($0012,A2)
  3941.     MOVE.L    (4,A2),D0
  3942.     MOVE.B    D0,($0010,A5)
  3943.     LSR.L    #8,D0
  3944.     MOVE.B    D0,($0014,A5)
  3945.     MOVEA.L    ($004A,A4),A0
  3946.     CLR.W    ($002A,A0)
  3947.     LEA    ($0A1E,A4),A0
  3948.     MOVE.L    D7,D0
  3949.     NOT.L    D0
  3950.     AND.L    D0,($001A,A0)
  3951.     MOVE.B    #$A0,($001C,A5)
  3952.     TST.B    (3,A3)
  3953.     BEQ.B    lbC002AEC
  3954.     MOVEA.L    ($004E,A4),A0
  3955.     MOVE.W    #$0064,($0022,A0)
  3956.     MOVE.L    D7,D0
  3957.     JSR    (-$013E,A6)
  3958.     MOVEA.L    ($004E,A4),A0
  3959.     TST.W    ($0022,A0)
  3960.     BNE.B    lbC002AE4
  3961.     CLR.B    (3,A3)
  3962. lbC002AE4:
  3963.     MOVEA.L    ($004E,A4),A0
  3964.     CLR.W    ($0022,A0)
  3965. lbC002AEC:
  3966.     MOVE.W    #$4E20,D1
  3967. lbC002AF0:
  3968.     MOVE.B    ($001C,A5),D0
  3969.     AND.B    #$88,D0
  3970.     EORI.B    #8,D0
  3971.     DBEQ    D1,lbC002AF0
  3972.     ADDQ.W    #1,D1
  3973.     BEQ.W    lbC002BE4
  3974.     MOVE.B    (8,A5),D0
  3975.     AND.B    #3,D0
  3976.     CMP.B    #1,D0
  3977.     BNE.W    lbC002BE4
  3978.     MOVEA.L    ($004A,A4),A0
  3979.     CLR.W    ($002A,A0)
  3980.     LEA    ($0A1E,A4),A0
  3981.     MOVE.L    D7,D0
  3982.     NOT.L    D0
  3983.     AND.L    D0,($001A,A0)
  3984.     MOVEA.L    (12,A2),A0
  3985.     BSR.W    lbC002D44
  3986.     MOVEA.L    (A2),A3
  3987. lbC002B34:
  3988.     MOVEA.L    ($004E,A4),A0
  3989.     MOVE.W    ($009E,A4),($0022,A0)
  3990.     MOVE.L    D7,D0
  3991.     JSR    (-$013E,A6)
  3992.     MOVEA.L    ($004E,A4),A0
  3993.     TST.W    ($0022,A0)
  3994.     BEQ.W    lbC002BE4
  3995.     MOVEA.L    ($004E,A4),A0
  3996.     CLR.W    ($0022,A0)
  3997.     LEA    ($0A1E,A4),A0
  3998.     MOVE.L    D7,D0
  3999.     NOT.L    D0
  4000.     AND.L    D0,($001A,A0)
  4001.     MOVE.W    #$4E20,D1
  4002. lbC002B68:
  4003.     MOVE.B    ($001C,A5),D0
  4004.     BTST    #7,D0
  4005.     DBEQ    D1,lbC002B68
  4006.     ADDQ.W    #1,D1
  4007.     BEQ.W    lbC002BE4
  4008.     BTST    #3,D0
  4009.     BEQ.W    lbC002BCE
  4010.     MOVE.B    (8,A5),D0
  4011.     AND.B    #3,D0
  4012.     TST.B    D0
  4013.     BNE.W    lbC002BE4
  4014.     MOVEA.L    ($004A,A4),A0
  4015.     CLR.W    ($002A,A0)
  4016.     MOVEQ    #0,D0
  4017.     MOVE.B    ($0014,A5),D0
  4018.     LSL.L    #8,D0
  4019.     MOVE.B    ($0010,A5),D0
  4020.     ADD.L    D0,(8,A2)
  4021.     TST.L    D0
  4022.     BEQ.W    lbC002BCE
  4023.     LSR.L    #1,D0
  4024.     MOVE.L    A3,D1
  4025.     BTST    #0,D1
  4026.     BEQ.W    lbC002BF4
  4027.     BRA.W    lbC002BC6
  4028.  
  4029. lbC002BBE:
  4030.     MOVE.B    (A3)+,D1
  4031.     ROL.W    #8,D1
  4032.     MOVE.B    (A3)+,D1
  4033.     MOVE.W    D1,(A5)
  4034. lbC002BC6:
  4035.     DBRA    D0,lbC002BBE
  4036. lbC002BCA:
  4037.     BRA.W    lbC002B34
  4038.  
  4039. lbC002BCE:
  4040.     MOVE.B    ($001C,A5),D0
  4041.     BTST    #0,D0
  4042.     BNE.B    lbC002BE4
  4043.     MOVEM.L    (SP)+,D2/A3
  4044.     CLR.B    ($0036,A3)
  4045.     MOVEQ    #0,D0
  4046.     RTS
  4047.  
  4048. lbC002BE4:
  4049.     MOVEM.L    (SP)+,D2/A3
  4050.     MOVE.B    #2,($0036,A3)
  4051.     MOVEQ    #$2D,D0
  4052.     RTS
  4053.  
  4054. lbC002BF2:
  4055.     MOVE.W    (A3)+,(A5)
  4056. lbC002BF4:
  4057.     DBRA    D0,lbC002BF2
  4058.     BRA.B    lbC002BCA
  4059.  
  4060. lbC002BFA:
  4061.     MOVEM.L    D2/D3/A2,-(SP)
  4062.     MOVEQ    #0,D3
  4063.     MOVEA.L    A1,A2
  4064.     MOVE.L    D0,D2
  4065.     MOVE.L    D2,D0
  4066.     MOVE.B    D0,($0010,A5)
  4067.     LSR.L    #8,D0
  4068.     MOVE.B    D0,($0014,A5)
  4069.     MOVEA.L    ($004A,A4),A0
  4070.     CLR.W    ($002A,A0)
  4071.     LEA    ($0A1E,A4),A0
  4072.     MOVE.L    D7,D0
  4073.     NOT.L    D0
  4074.     AND.L    D0,($001A,A0)
  4075.     MOVE.B    #$A0,($001C,A5)
  4076.     TST.B    (3,A3)
  4077.     BEQ.B    lbC002C56
  4078.     MOVEA.L    ($004E,A4),A0
  4079.     MOVE.W    #$0064,($0022,A0)
  4080.     MOVE.L    D7,D0
  4081.     JSR    (-$013E,A6)
  4082.     MOVEA.L    ($004E,A4),A0
  4083.     TST.W    ($0022,A0)
  4084.     BNE.B    lbC002C4E
  4085.     CLR.B    (3,A3)
  4086. lbC002C4E:
  4087.     MOVEA.L    ($004E,A4),A0
  4088.     CLR.W    ($0022,A0)
  4089. lbC002C56:
  4090.     MOVE.W    #$4E20,D1
  4091. lbC002C5A:
  4092.     MOVE.B    ($001C,A5),D0
  4093.     AND.B    #$88,D0
  4094.     EORI.B    #8,D0
  4095.     DBEQ    D1,lbC002C5A
  4096.     ADDQ.W    #1,D1
  4097.     BEQ.W    lbC002D3C
  4098.     MOVE.B    (8,A5),D0
  4099.     AND.B    #3,D0
  4100.     CMP.B    #1,D0
  4101.     BNE.W    lbC002D3C
  4102.     MOVEA.L    ($004A,A4),A0
  4103.     CLR.W    ($002A,A0)
  4104.     LEA    ($0A1E,A4),A0
  4105.     MOVE.L    D7,D0
  4106.     NOT.L    D0
  4107.     AND.L    D0,($001A,A0)
  4108.     MOVEQ    #0,D0
  4109.     MOVE.W    #$0300,(A5)
  4110.     MOVE.W    D0,(A5)
  4111.     MOVE.L    D2,D1
  4112.     LSL.W    #8,D1
  4113.     MOVE.W    D1,(A5)
  4114.     MOVE.W    D0,(A5)
  4115.     MOVE.W    D0,(A5)
  4116.     MOVE.W    D0,(A5)
  4117. lbC002CA8:
  4118.     MOVEA.L    ($004E,A4),A0
  4119.     MOVE.W    ($009E,A4),($0022,A0)
  4120.     MOVE.L    D7,D0
  4121.     JSR    (-$013E,A6)
  4122.     MOVEA.L    ($004E,A4),A0
  4123.     TST.W    ($0022,A0)
  4124.     BEQ.W    lbC002D3C
  4125.     MOVEA.L    ($004E,A4),A0
  4126.     CLR.W    ($0022,A0)
  4127.     LEA    ($0A1E,A4),A0
  4128.     MOVE.L    D7,D0
  4129.     NOT.L    D0
  4130.     AND.L    D0,($001A,A0)
  4131.     MOVE.W    #$4E20,D1
  4132. lbC002CDC:
  4133.     MOVE.B    ($001C,A5),D0
  4134.     BTST    #7,D0
  4135.     DBEQ    D1,lbC002CDC
  4136.     ADDQ.W    #1,D1
  4137.     BEQ.W    lbC002D3C
  4138.     BTST    #3,D0
  4139.     BEQ.W    lbC002D32
  4140.     MOVE.B    (8,A5),D0
  4141.     AND.B    #3,D0
  4142.     CMP.B    #2,D0
  4143.     BNE.W    lbC002D3C
  4144.     MOVEA.L    ($004A,A4),A0
  4145.     CLR.W    ($002A,A0)
  4146.     MOVEQ    #0,D0
  4147.     MOVE.B    ($0014,A5),D0
  4148.     LSL.L    #8,D0
  4149.     MOVE.B    ($0010,A5),D0
  4150.     BTST    #0,D0
  4151.     BEQ.B    lbC002D22
  4152.     ADDQ.L    #1,D0
  4153. lbC002D22:
  4154.     ADD.L    D0,D3
  4155.     LSR.L    #1,D0
  4156.     BRA.B    lbC002D2A
  4157.  
  4158. lbC002D28:
  4159.     MOVE.W    (A5),(A2)+
  4160. lbC002D2A:
  4161.     DBRA    D0,lbC002D28
  4162.     BRA.W    lbC002CA8
  4163.  
  4164. lbC002D32:
  4165.     MOVEQ    #0,D0
  4166.     MOVE.W    D3,D0
  4167.     MOVEM.L    (SP)+,D2/D3/A2
  4168.     RTS
  4169.  
  4170. lbC002D3C:
  4171.     MOVEM.L    (SP)+,D2/D3/A2
  4172.     MOVEQ    #0,D0
  4173.     RTS
  4174.  
  4175. lbC002D44:
  4176.     MOVEQ    #0,D0
  4177.     MOVE.B    (A0),D0
  4178.     CMP.W    #$004E,D0
  4179.     BLE.B    lbC002D74
  4180.     CMP.B    #$55,D0
  4181.     BNE.B    lbC002D58
  4182.     MOVEQ    #$50,D0
  4183.     BRA.B    lbC002D74
  4184.  
  4185. lbC002D58:
  4186.     CMP.B    #$5A,D0
  4187.     BNE.B    lbC002D62
  4188.     MOVEQ    #$51,D0
  4189.     BRA.B    lbC002D74
  4190.  
  4191. lbC002D62:
  4192.     CMP.B    #$A5,D0
  4193.     BNE.B    lbC002D6C
  4194.     MOVEQ    #$52,D0
  4195.     BRA.B    lbC002D74
  4196.  
  4197. lbC002D6C:
  4198.     CMP.B    #$A8,D0
  4199.     BNE.B    lbC002D74
  4200.     MOVEQ    #$53,D0
  4201. lbC002D74:
  4202.     LSL.L    #1,D0
  4203.     MOVE.W    (loop4,PC,D0.W),D0
  4204.     JMP    (loop4,PC,D0.W)
  4205.  
  4206. label19:
  4207. loop4:
  4208.     dc.b    0,$B6,0,$C6,0,$AE,0,$DC,0,$AE,0,$AE,0,$AE,0,$AE,0
  4209.     dc.b    $FA,0,$AE,0,$AE,0,$AE,0,$AE,0,$AE,0,$AE,0,$AE,0
  4210.     dc.b    $AE,0,$AE,1,$24,0,$AE,0,$AE,1,$42,0,$AE,0,$AE,0
  4211.     dc.b    $AE,0,$AE,1,$92,1,$B4,1,$D2,1,$DA,1,$E2,0,$AE,0
  4212.     dc.b    $AE,0,$AE,0,$AE,0,$AE,0,$AE,2,0,0,$AE,0,$AE,2,$1A
  4213.     dc.b    0,$AE,0,$AE,2,$34,0,$AE,0,$AE,0,$AE,0,$AE,0,$AE,0
  4214.     dc.b    $AE,0,$AE,0,$AE,0,$AE,0,$AE,0,$AE,0,$AE,0,$AE,0
  4215.     dc.b    $AE,0,$AE,0,$AE,0,$AE,0,$AE,0,$AE,0,$AE,0,$AE,0
  4216.     dc.b    $AE
  4217.     dc.b    2
  4218.     dc.b    $4E
  4219.     dc.b    2,$76,2,$96,2,$C0,0,$AE,2,$EA,3,$14,3,$3C,0,$AE,3
  4220.     dc.b    $60,0,$AE,0,$AE,3,$7E,0,$AE,1,$5E,1,$78,3,$94,3
  4221.     dc.b    $B2,3,$B2,3,$B2,3,$B2,$42,$2B,0,$36,$70,$2D,$4E
  4222.     dc.b    $75
  4223.  
  4224. loop6:
  4225.     MOVEQ    #0,D0
  4226.     MOVE.W    D0,(A5)
  4227.     MOVE.W    D0,(A5)
  4228.     MOVE.W    D0,(A5)
  4229.     MOVE.W    D0,(A5)
  4230.     MOVE.W    D0,(A5)
  4231.     MOVE.W    D0,(A5)
  4232.     RTS
  4233.  
  4234. label20:
  4235.     MOVEQ    #0,D0
  4236.     MOVE.W    (A0),D1
  4237.     AND.W    #$FF00,D1
  4238.     MOVE.W    D1,(A5)
  4239.     MOVE.W    D0,(A5)
  4240.     MOVE.W    D0,(A5)
  4241.     MOVE.W    D0,(A5)
  4242.     MOVE.W    D0,(A5)
  4243.     MOVE.W    D0,(A5)
  4244.     RTS
  4245.  
  4246. label21:
  4247.     MOVEQ    #0,D0
  4248.     MOVE.W    (A0),D1
  4249.     AND.W    #$FF00,D1
  4250.     MOVE.W    D1,(A5)
  4251.     MOVE.W    D0,(A5)
  4252.     MOVE.W    (4,A0),D1
  4253.     AND.W    #$FF00,D1
  4254.     MOVE.W    D1,(A5)
  4255.     MOVE.W    D0,(A5)
  4256.     MOVE.W    D0,(A5)
  4257.     MOVE.W    D0,(A5)
  4258.     RTS
  4259.  
  4260. label22:
  4261.     MOVEQ    #0,D0
  4262.     MOVE.W    #$2800,(A5)
  4263.     MOVE.B    (1,A0),D0
  4264.     AND.W    #$001F,D0
  4265.     MOVE.W    D0,(A5)
  4266.     MOVE.W    (2,A0),(A5)
  4267.     MOVEQ    #0,D0
  4268.     MOVE.W    D0,(A5)
  4269.     MOVE.W    (4,A0),D0
  4270.     AND.W    #$FF00,D0
  4271.     MOVE.W    D0,(A5)
  4272.     MOVEQ    #0,D0
  4273.     MOVE.W    D0,(A5)
  4274.     MOVE.W    D0,(A5)
  4275.     RTS
  4276.  
  4277. label23:
  4278.     MOVEQ    #0,D0
  4279.     MOVE.W    (A0),D1
  4280.     AND.W    #$FF00,D1
  4281.     MOVE.W    D1,(A5)
  4282.     MOVE.W    D0,(A5)
  4283.     MOVE.W    (4,A0),D1
  4284.     AND.W    #$FF00,D1
  4285.     MOVE.W    D1,(A5)
  4286.     MOVE.W    D0,(A5)
  4287.     MOVE.W    D0,(A5)
  4288.     MOVE.W    D0,(A5)
  4289.     RTS
  4290.  
  4291. label24:
  4292.     MOVEQ    #0,D0
  4293.     MOVE.W    #$5510,(A5)
  4294.     MOVE.W    (2,A0),(A5)
  4295.     MOVE.W    D0,(A5)
  4296.     MOVE.W    D0,(A5)
  4297.     MOVE.W    (4,A0),D1
  4298.     AND.W    #$FF00,D1
  4299.     MOVE.W    D1,(A5)
  4300.     MOVE.W    D0,(A5)
  4301.     RTS
  4302.  
  4303. label25:
  4304.     MOVEQ    #0,D0
  4305.     MOVE.W    #$5510,(A5)
  4306.     MOVE.W    (2,A0),(A5)
  4307.     MOVE.W    (4,A0),(A5)
  4308.     MOVE.W    (6,A0),(A5)
  4309.     MOVE.W    (8,A0),(A5)
  4310.     MOVE.W    D0,(A5)
  4311.     RTS
  4312.  
  4313. label26:
  4314.     MOVEQ    #0,D0
  4315.     MOVE.W    #$5A00,(A5)
  4316.     MOVE.W    (2,A0),(A5)
  4317.     MOVE.W    (4,A0),(A5)
  4318.     MOVE.W    (6,A0),(A5)
  4319.     MOVE.W    (8,A0),(A5)
  4320.     MOVE.W    D0,(A5)
  4321.     RTS
  4322.  
  4323. label27:
  4324.     MOVEQ    #0,D0
  4325.     MOVE.W    #$5A00,(A5)
  4326.     MOVE.W    (2,A0),D1
  4327.     AND.W    #$FF00,D1
  4328.     MOVE.W    D1,(A5)
  4329.     MOVE.W    D0,(A5)
  4330.     MOVE.W    D0,(A5)
  4331.     MOVE.W    (4,A0),D1
  4332.     AND.W    #$FF00,D1
  4333.     MOVE.W    D1,(A5)
  4334.     MOVE.W    D0,(A5)
  4335.     RTS
  4336.  
  4337. label28:
  4338.     MOVEQ    #0,D0
  4339.     MOVE.W    (A0),D1
  4340.     AND.W    #$FF01,D1
  4341.     MOVE.W    D1,(A5)
  4342.     MOVE.W    D0,(A5)
  4343.     MOVE.W    (4,A0),D1
  4344.     AND.W    #$0300,D1
  4345.     MOVE.W    D1,(A5)
  4346.     MOVE.W    D0,(A5)
  4347.     MOVE.W    D0,(A5)
  4348.     MOVE.W    D0,(A5)
  4349.     RTS
  4350.  
  4351. label29:
  4352.     CLR.B    ($0036,A3)
  4353.     MOVEQ    #0,D0
  4354.     RTS
  4355.  
  4356. label30:
  4357.     CLR.B    ($0036,A3)
  4358.     MOVEQ    #0,D0
  4359.     RTS
  4360.  
  4361. label31:
  4362.     MOVEQ    #0,D0
  4363.     MOVE.W    (A0),D1
  4364.     AND.W    #$FF00,D1
  4365.     MOVE.W    D1,(A5)
  4366.     MOVE.W    D0,(A5)
  4367.     MOVE.W    (4,A0),D1
  4368.     AND.W    #$0100,D1
  4369.     MOVE.W    D1,(A5)
  4370.     MOVE.W    D0,(A5)
  4371.     MOVE.W    D0,(A5)
  4372.     MOVE.W    D0,(A5)
  4373.     RTS
  4374.  
  4375. label32:
  4376.     MOVEQ    #0,D0
  4377.     MOVE.W    (A0),D1
  4378.     AND.W    #$FF00,D1
  4379.     MOVE.W    D1,(A5)
  4380.     MOVE.W    (2,A0),(A5)
  4381.     MOVE.W    (4,A0),(A5)
  4382.     MOVE.W    D0,(A5)
  4383.     MOVE.W    D0,(A5)
  4384.     MOVE.W    D0,(A5)
  4385.     RTS
  4386.  
  4387. label33:
  4388.     MOVEQ    #0,D0
  4389.     MOVE.W    #$2800,(A5)
  4390.     MOVE.W    (2,A0),(A5)
  4391.     MOVE.W    (4,A0),(A5)
  4392.     MOVE.W    (6,A0),(A5)
  4393.     MOVE.W    (8,A0),(A5)
  4394.     MOVE.W    D0,(A5)
  4395.     RTS
  4396.  
  4397. label34:
  4398.     MOVEQ    #0,D0
  4399.     MOVE.W    (A0),D1
  4400.     AND.W    #$FF00,D1
  4401.     MOVE.W    D1,(A5)
  4402.     MOVE.W    (2,A0),(A5)
  4403.     MOVE.W    (4,A0),(A5)
  4404.     MOVE.W    D0,(A5)
  4405.     MOVE.W    D0,(A5)
  4406.     MOVE.W    D0,(A5)
  4407.     RTS
  4408.  
  4409. label35:
  4410.     MOVEQ    #0,D0
  4411.     MOVE.W    (A0),D1
  4412.     AND.W    #$FF02,D1
  4413.     MOVE.W    D1,(A5)
  4414.     MOVE.W    (2,A0),(A5)
  4415.     MOVE.W    D0,(A5)
  4416.     MOVE.W    (6,A0),D1
  4417.     AND.W    #$00FF,D1
  4418.     MOVE.W    D1,(A5)
  4419.     MOVE.W    (8,A0),D1
  4420.     AND.W    #$FF00,D1
  4421.     MOVE.W    D1,(A5)
  4422.     MOVE.W    D0,(A5)
  4423.     RTS
  4424.  
  4425. label36:
  4426.     MOVEQ    #0,D0
  4427.     MOVE.W    (A0),D1
  4428.     AND.W    #$FF02,D1
  4429.     MOVE.W    D1,(A5)
  4430.     MOVE.W    D0,(A5)
  4431.     MOVE.W    D0,(A5)
  4432.     MOVE.W    (6,A0),(A5)
  4433.     MOVE.W    (8,A0),D1
  4434.     AND.W    #$FFC0,D1
  4435.     MOVE.W    D1,(A5)
  4436.     MOVE.W    D0,(A5)
  4437.     RTS
  4438.  
  4439. label37:
  4440.     MOVEQ    #0,D0
  4441.     MOVE.W    (A0),D1
  4442.     AND.W    #$FF02,D1
  4443.     MOVE.W    D1,(A5)
  4444.     MOVE.W    (2,A0),(A5)
  4445.     MOVE.W    (4,A0),(A5)
  4446.     MOVE.W    (6,A0),D1
  4447.     AND.W    #$00FF,D1
  4448.     MOVE.W    D1,(A5)
  4449.     MOVE.W    (8,A0),D1
  4450.     AND.W    #$FF00,D1
  4451.     MOVE.W    D1,(A5)
  4452.     MOVE.W    D0,(A5)
  4453.     RTS
  4454.  
  4455. label38:
  4456.     MOVEQ    #0,D0
  4457.     MOVE.W    (A0),D1
  4458.     AND.W    #$FF00,D1
  4459.     MOVE.W    D1,(A5)
  4460.     MOVE.W    (2,A0),(A5)
  4461.     MOVE.W    (4,A0),(A5)
  4462.     MOVE.W    (6,A0),D1
  4463.     AND.W    #$00FF,D1
  4464.     MOVE.W    D1,(A5)
  4465.     MOVE.W    (8,A0),D1
  4466.     AND.W    #$FF00,D1
  4467.     MOVE.W    D1,(A5)
  4468.     MOVE.W    D0,(A5)
  4469.     RTS
  4470.  
  4471. label39:
  4472.     MOVEQ    #0,D0
  4473.     MOVE.W    (A0),D1
  4474.     AND.W    #$FF00,D1
  4475.     MOVE.W    D1,(A5)
  4476.     MOVE.W    (2,A0),D1
  4477.     AND.W    #$00FF,D1
  4478.     MOVE.W    D1,(A5)
  4479.     MOVE.W    (4,A0),(A5)
  4480.     MOVE.W    (6,A0),(A5)
  4481.     MOVE.W    (8,A0),D1
  4482.     AND.W    #$FF00,D1
  4483.     MOVE.W    D1,(A5)
  4484.     MOVE.W    D0,(A5)
  4485.     RTS
  4486.  
  4487. label40:
  4488.     MOVEQ    #0,D0
  4489.     MOVE.W    (A0),D1
  4490.     AND.W    #$FF00,D1
  4491.     MOVE.W    D1,(A5)
  4492.     MOVE.W    D0,(A5)
  4493.     MOVE.W    (4,A0),(A5)
  4494.     MOVE.W    (6,A0),D1
  4495.     AND.W    #$00FF,D1
  4496.     MOVE.W    D1,(A5)
  4497.     MOVE.W    (8,A0),D1
  4498.     AND.W    #$FF00,D1
  4499.     MOVE.W    D1,(A5)
  4500.     MOVE.W    D0,(A5)
  4501.     RTS
  4502.  
  4503. label41:
  4504.     MOVEQ    #0,D0
  4505.     MOVE.W    (A0),D1
  4506.     AND.W    #$FF00,D1
  4507.     MOVE.W    D1,(A5)
  4508.     MOVE.W    (2,A0),(A5)
  4509.     MOVE.W    (4,A0),(A5)
  4510.     MOVE.W    (6,A0),(A5)
  4511.     MOVE.W    (8,A0),D1
  4512.     AND.W    #$FF00,D1
  4513.     MOVE.W    D1,(A5)
  4514.     MOVE.W    D0,(A5)
  4515.     RTS
  4516.  
  4517. label42:
  4518.     MOVEQ    #0,D0
  4519.     MOVE.W    (A0),D1
  4520.     AND.W    #$FF00,D1
  4521.     MOVE.W    D1,(A5)
  4522.     MOVE.W    D0,(A5)
  4523.     MOVE.W    D0,(A5)
  4524.     MOVE.W    D0,(A5)
  4525.     MOVE.W    (8,A0),D1
  4526.     AND.W    #$0100,D1
  4527.     MOVE.W    D1,(A5)
  4528.     MOVE.W    D0,(A5)
  4529.     RTS
  4530.  
  4531. label43:
  4532.     MOVEQ    #0,D0
  4533.     MOVE.W    (A0),D1
  4534.     AND.W    #$FF00,D1
  4535.     MOVE.W    D1,(A5)
  4536.     MOVE.W    D0,(A5)
  4537.     MOVE.W    D0,(A5)
  4538.     MOVE.W    D0,(A5)
  4539.     MOVE.W    D0,(A5)
  4540.     MOVE.W    D0,(A5)
  4541.     RTS
  4542.  
  4543. label44:
  4544.     MOVEQ    #0,D0
  4545.     MOVE.W    (A0),D1
  4546.     AND.W    #$FF00,D1
  4547.     MOVE.W    D1,(A5)
  4548.     MOVE.W    (2,A0),(A5)
  4549.     MOVE.W    (4,A0),(A5)
  4550.     MOVE.W    (6,A0),(A5)
  4551.     MOVE.W    (8,A0),(A5)
  4552.     MOVE.W    D0,(A5)
  4553.     RTS
  4554.  
  4555. label45:
  4556.     MOVEQ    #0,D0
  4557.     MOVE.W    (A0),(A5)
  4558.     MOVE.W    (2,A0),(A5)
  4559.     MOVE.W    (4,A0),(A5)
  4560.     MOVE.W    (6,A0),(A5)
  4561.     MOVE.W    (8,A0),(A5)
  4562.     MOVE.W    (10,A0),(A5)
  4563.     RTS
  4564.  
  4565. lbC00314A:
  4566.     MOVEM.L    D2/D3,-(SP)
  4567.     MOVEQ    #0,D3
  4568.     MOVE.B    D0,D1
  4569.     MOVE.B    D0,D2
  4570.     AND.L    #$000000F0,D1
  4571.     LSR.B    #4,D1
  4572.     MULU.W    #10,D1
  4573.     AND.L    #15,D2
  4574.     ADD.B    D2,D1
  4575.     MOVE.B    D1,D3
  4576.     LSR.L    #8,D0
  4577.     MOVE.B    D0,D1
  4578.     MOVE.B    D0,D2
  4579.     AND.L    #$000000F0,D1
  4580.     LSR.B    #4,D1
  4581.     MULU.W    #10,D1
  4582.     AND.L    #15,D2
  4583.     ADD.B    D2,D1
  4584.     MOVEQ    #8,D2
  4585.     LSL.L    D2,D1
  4586.     AND.L    #$0000FF00,D1
  4587.     OR.L    D1,D3
  4588.     LSR.L    #8,D0
  4589.     MOVE.B    D0,D1
  4590.     MOVE.B    D0,D2
  4591.     AND.L    #$000000F0,D1
  4592.     LSR.B    #4,D1
  4593.     MULU.W    #10,D1
  4594.     AND.L    #15,D2
  4595.     ADD.B    D2,D1
  4596.     MOVEQ    #$10,D2
  4597.     LSL.L    D2,D1
  4598.     AND.L    #$00FF0000,D1
  4599.     OR.L    D1,D3
  4600.     AND.L    #$00FFFFFF,D3
  4601.     MOVE.L    D3,D0
  4602.     MOVEM.L    (SP)+,D2/D3
  4603.     RTS
  4604.  
  4605. lbC0031C4:
  4606.     MOVE.L    D2,-(SP)
  4607.     BSR.B    lbC00314A
  4608.     MOVEQ    #0,D2
  4609.     MOVE.B    D0,D2
  4610.     LSR.L    #8,D0
  4611.     MOVEQ    #0,D1
  4612.     MOVE.B    D0,D1
  4613.     MULU.W    #$004B,D1
  4614.     ADD.L    D1,D2
  4615.     LSR.L    #8,D0
  4616.     MOVEQ    #0,D1
  4617.     MOVE.B    D0,D1
  4618.     MULU.W    #$1194,D1
  4619.     ADD.L    D1,D2
  4620.     MOVE.L    D2,D0
  4621.     MOVE.L    (SP)+,D2
  4622.     SUB.L    #$00000096,D0
  4623.     RTS
  4624.  
  4625. lbC0031F0:
  4626.     MOVEM.L    D2/D3,-(SP)
  4627.     MOVEQ    #0,D2
  4628.     MOVE.B    D0,D2
  4629.     DIVU.W    #10,D2
  4630.     MOVEQ    #0,D1
  4631.     MOVE.W    D2,D1
  4632.     LSL.L    #4,D1
  4633.     SWAP    D2
  4634.     ADD.W    D2,D1
  4635.     MOVE.L    D1,D3
  4636.     LSR.L    #8,D0
  4637.     MOVEQ    #0,D2
  4638.     MOVE.B    D0,D2
  4639.     DIVU.W    #10,D2
  4640.     MOVEQ    #0,D1
  4641.     MOVE.W    D2,D1
  4642.     LSL.L    #4,D1
  4643.     SWAP    D2
  4644.     ADD.W    D2,D1
  4645.     LSL.L    #8,D1
  4646.     OR.L    D1,D3
  4647.     LSR.L    #8,D0
  4648.     MOVEQ    #0,D2
  4649.     MOVE.B    D0,D2
  4650.     DIVU.W    #10,D2
  4651.     MOVEQ    #0,D1
  4652.     MOVE.W    D2,D1
  4653.     LSL.L    #4,D1
  4654.     SWAP    D2
  4655.     ADD.W    D2,D1
  4656.     MOVEQ    #$10,D2
  4657.     LSL.L    D2,D1
  4658.     OR.L    D1,D3
  4659.     MOVE.L    D3,D0
  4660.     MOVEM.L    (SP)+,D2/D3
  4661.     RTS
  4662.  
  4663. lbC003242:
  4664.     MOVE.L    D2,-(SP)
  4665.     MOVEQ    #0,D2
  4666.     MOVEQ    #0,D1
  4667.     DIVU.W    #$1194,D0
  4668.     MOVE.W    D0,D2
  4669.     CLR.W    D0
  4670.     SWAP    D0
  4671.     DIVU.W    #$004B,D0
  4672.     MOVE.W    D0,D1
  4673.     CLR.W    D0
  4674.     SWAP    D0
  4675.     LSL.L    #8,D1
  4676.     OR.L    D1,D0
  4677.     MOVEQ    #$10,D1
  4678.     LSL.L    D1,D2
  4679.     OR.L    D2,D0
  4680.     MOVE.L    (SP)+,D2
  4681.     BSR.B    lbC0031F0
  4682.     RTS
  4683.  
  4684. label50:
  4685.     NOP
  4686.     NOP
  4687.     MOVEQ    #$2D,D0
  4688.     MOVEA.L    (12,A2),A0
  4689.     MOVEQ    #0,D1
  4690.     MOVE.B    (A0),D1
  4691.     CMP.B    #$12,D1
  4692.     BNE.B    ld20
  4693.     MOVE.W    #$2000,($009E,A4)
  4694.     MOVEQ    #0,D1
  4695.     BSR.W    lbL0028D8
  4696. ld20:
  4697.     RTS
  4698.  
  4699. label51:
  4700.     dc.w    0
  4701. lbL003290:
  4702.     dcb.l    4,$FFFFFFDC
  4703. lbL0032A0:
  4704.     dc.l    $00000014
  4705.  
  4706.     end
  4707.