; Disassembly of Macintosh Plus ROM
                      ; Generated by FDisasm, http://minivmac.sourceforge.net/extras/fdisasm.html

                      ; comments tagged @sc are by Steve Chamberlin
                      ; steve@bigmessowires.com, www.bigmessowires.com

0      4D1F 8172                 DC.L      $4D1F8172       ; Rom CheckSum
4      0040 002A                 DC.L      $0040002A       ; Boot Vector = EBootStart
8      00                        DC.B      $00             ; Machine Type
9      75                        DC.B      $75             ; Rom Version
A      6000 0056                 Bra       L3
E      6000 0750                 Bra       L62
12     6000 0044                 Bra       L2
16     6000 0016                 Bra       E_6
1A     0001 76F8                 DC.L      $000176F8       ; offset of Resources in ROM
1E     4EFA 2BFC                 Jmp       P_mvDoEject
22     0000 0000                 DC.L      $00000000
26     0000 0000                 DC.L      $00000000

                      EBootStart:
2A     6000 0016                 Bra       L1

                      E_6:
2E     1080                      Move.B    D0, (A0)
                      L0:
                      ; Check memory A7 times, boot if no failure
                      ; Never called by the Mac Plus- a remnant from older ROMs? @sc
30     4DFA 0006                 Lea.L     E_7, A6
34     6000 0D40                 Bra       P_ChecksumRomAndTestMemory ; Call with return address in A6
38     6600 00FC      E_7:       BNE       P_mCritErr
3C     538F                      SubQ      #$1, A7
3E     200F                      Move.L    A7, D0
40     66EE                      BNE.B     L0

                      L1:
                      ; Check if test software exists, and if so run it
42     4CF9 0101 00F8            MoveM.L   (TestSoftware), D0/A0
       0000
4A     0C80 55AA AA55            Cmp.L     #$55AAAA55, D0
50     6610                      BNE.B     L3
52     43FA 000E                 Lea.L     L3, A1
56     4ED0                      Jmp       (A0)

                      L2:
                      ; return address in A5
58     4CB9 0007 00F0            MoveM     (Phase_Read), D0-D2
       0000
60     4ED5                      Jmp       (A5)

                      L3:
                      ; Check timing signals
62     46FC 2700                 Move      #$2700, SR
66     4BFA 0004                 Lea.L     E_8, A5
6A     60EC                      Bra.B     L2              ; Call with return address in A5
6C     7E01           E_8:       MoveQ.L   #$1, D7
6E     4DF9 009F FFF7            Lea.L     ($9FFFF7), A6
74     4A1E                      Tst.B     (A6)+
76     C047                      And       D7, D0
78     C247                      And       D7, D1
7A     C447                      And       D7, D2
7C     D042                      Add       D2, D0
7E     D041                      Add       D1, D0
80     5340                      SubQ      #$1, D0
82     6F02                      BLE.B     L4
84     4A56                      Tst       (A6)            ; Word access to any SCC address shifts the phase of the high-frequency timing by 128 ns @sc
86     97CB           L4:        SubA.L    A3, A3
88     247C 003F A700            Move.L    #$3FA700, A2    ; Screen buffer
                      ; Init VIA
8E     2A7C 00EF E1FE            Move.L    #$EFE1FE, A5
94     1B7C 0087 0400            Move.B    #$-79, $400(A5) ; Set VIA register B direction @sc
9A     1ABC 0087                 Move.B    #$-79, (A5)     ; Set VIA register B value @sc
9E     72C1                      MoveQ.L   #$-3F, D1
A0     4BFA 0006                 Lea.L     E_9, A5
A4     6000 0152                 Bra       P_tA053_mClkNoMem ; Call with return address in A5
A8     0C02 00A8      E_9:       Cmp.B     #$-58, D2
AC     6704                      BEQ.B     L5
AE     7407                      MoveQ.L   #$7, D2
B0     600A                      Bra.B     L6
B2     72A1           L5:        MoveQ.L   #$-5F, D1
B4     4BFA 0006                 Lea.L     L6, A5
B8     6000 013E                 Bra       P_tA053_mClkNoMem
BC     7807           L6:        MoveQ.L   #$7, D4
BE     C802                      And.B     D2, D4          ; Mask the sound volume bits @sc
C0     74F8                      MoveQ.L   #$-8, D2
C2     0202 006B                 And.B     #$6B, D2
C6     8404                      Or.B      D4, D2          ; OR in the sound volume bits @sc
C8     2A7C 00EF E1FE            Move.L    #$EFE1FE, A5
CE     1B42 1E00                 Move.B    D2, $1E00(A5)   ; Set VIA register A value - turns off ROM overlay @sc
D2     1B7C 007F 0600            Move.B    #$7F, $600(A5)  ; Set VIA register A direction @sc
D8     1C15                      Move.B    (A5), D6
DA     E90E                      LsL.B     #$4, D6
DC     1B7C 0082 1C00            Move.B    #$-7E, $1C00(A5) ; Init VIA interrupt enable register @sc
E2     422D 1800                 Clr.B     $1800(A5)       ; Init VIA peripheral control register @sc
E6     4DFA 0006                 Lea.L     E_10, A6
EA     6000 00FE                 Bra       P_EraseScrnBuff ; Call with return address in A6
EE     7628           E_10:      MoveQ.L   #$28, D3        ; Duration of beep in ticks @sc
F0     4DFA 0006                 Lea.L     E_11, A6
F4     6000 0194                 Bra       P_mBootBeep     ; Call with return address in A6
F8     08D5 0007      E_11:      BSet.B    #$7, (A5)
                      ; Init IWM
FC     207C 00DF E1FF            Move.L    #$DFE1FF, A0
102    701F                      MoveQ.L   #$1F, D0
104    4A28 1000      L7:        Tst.B     $1000(A0)       ; ENABLE off @sc
108    4A28 1A00                 Tst.B     $1A00(A0)       ; Q6 on @sc
10C    1428 1C00                 Move.B    $1C00(A0), D2   ; Q7 off, read IWM status register @sc
110    0802 0005                 BTst.B    #$5, D2         ; Check the E bit to see if any drive is on @sc
114    66EE                      BNE.B     L7
116    C400                      And.B     D0, D2
118    B400                      Cmp.B     D0, D2
11A    670A                      BEQ.B     L8
11C    1140 1E00                 Move.B    D0, $1E00(A0)   ; Q7 on, write IWM mode register @sc
120    4A28 1C00                 Tst.B     $1C00(A0)       ; Q7 off @sc
124    60DE                      Bra.B     L7
126    4A28 1800      L8:        Tst.B     $1800(A0)       ; Q6 off @sc
12A    4DFA 0006                 Lea.L     E_12, A6
12E    6000 0C46                 Bra       P_ChecksumRomAndTestMemory ; Call with return address in A6
132    6700 021E      E_12:      BEQ       P_BootPart2

                      P_mCritErr:
                      ; display boot failure
136    48F9 FFFF 003F            MoveM.L   D0-D7/A0-A7, ($3FFC80)
       FC80
13E    4A39 00DF F1FF            Tst.B     ($DFF1FF)
144    45F9 003F A700            Lea.L     ($3FA700), A2
14A    4DFA 0006                 Lea.L     E_13, A6
14E    6000 009A                 Bra       P_EraseScrnBuff ; Call with return address in A5
152    300C           E_13:      Move      A4, D0
154    4BFA 0006                 Lea.L     E_14, A5
158    6000 0DA6                 Bra       L135            ; Call with return address in A5
15C    4840           E_14:      Swap      D0
15E    3001                      Move      D1, D0
160    E188                      LsL.L     #$8, D0
162    247C 003F D3DD            Move.L    #$3FD3DD, A2
168    7805                      MoveQ.L   #$5, D4
16A    E998           L10:       ROL.L     #$4, D0
16C    3A00                      Move      D0, D5
16E    0245 000F                 And       #$F, D5
172    CAFC 0003                 MulU      #$3, D5
176    43FB 5042                 Lea.L     DT0(D5.W), A1
17A    72C3                      MoveQ.L   #$-3D, D1
17C    7602                      MoveQ.L   #$2, D3
17E    1A11           L11:       Move.B    (A1), D5
180    E44D                      LsR       #$2, D5
182    8A41                      Or        D1, D5
184    1485                      Move.B    D5, (A2)
186    D4FC 0040                 AddA      #$40, A2
18A    1A19                      Move.B    (A1)+, D5
18C    E54D                      LsL       #$2, D5
18E    8A41                      Or        D1, D5
190    1485                      Move.B    D5, (A2)
192    D4FC 0040                 AddA      #$40, A2
196    51CB FFE6                 DBF       D3, L11
19A    94FC 017F                 SubA      #$17F, A2
19E    51CC FFCA                 DBF       D4, L10
1A2    247C 003F D5DF            Move.L    #$3FD5DF, A2
1A8    46FC 2700                 Move      #$2700, SR
1AC    5280           L12:       AddQ      #$1, D0
1AE    4840                      Swap      D0
1B0    1480                      Move.B    D0, (A2)
1B2    1552 0001                 Move.B    (A2), $1(A2)
1B6    4840                      Swap      D0
1B8    60F2                      Bra.B     L12

                      DT0:
1BA    9642 69B3 BBB1            DC.B      ' Bi   '
1C0    96ED B00E 9E69            DC.B      '     i'
1C6    6660 EE07 1E69            DC.B      'f`   i'
1CC    8716 690E DDBB            DC.B      '  i   '
1D2    9696 6996 68E1            DC.B      '  i h '
1D8    9660 6616 1661            DC.B      ' `f  a'
1DE    8777 7816 6661            DC.B      ' wx fa'
1E4    0717 7007 1777            DC.B      '  p  w'

                      P_EraseScrnBuff:
                      ; return address in A6
                      ; screen address in A2
1EA    76FF                      MoveQ.L   #$-1, D3
1EC    343C 155F                 Move      #$155F, D2
1F0    24C3           L14:       Move.L    D3, (A2)+
1F2    51CA FFFC                 DBF       D2, L14
1F6    4ED6                      Jmp       (A6)

                      P_tA053_mClkNoMem:
                      ; writes then reads a byte to/from the RTC chip @sc
                      ; return address in A5
                      ; byte to send in D1 @sc
                      ; byte returned in D2 @sc
1F8    007C 0300                 Or        #$300, SR
1FC    227C 00EF E1FE            Move.L    #$EFE1FE, A1    ; VIA register B @sc
202    1611                      Move.B    (A1), D3
204    7801                      MoveQ.L   #$1, D4
206    0203 00F9                 And.B     #$-7, D3
20A    3C01                      Move      D1, D6
20C    0246 0078                 And       #$78, D6
210    0C46 0038                 Cmp       #$38, D6
214    6610                      BNE.B     L15
216    3C01                      Move      D1, D6
218    4DFA 0006                 Lea.L     E_16, A6
21C    6000 0036                 Bra       P_WriteRTCByte  ; Call with return address in A6
220    E049           E_16:      LsR       #$8, D1
222    4A06                      Tst.B     D6
224    6002                      Bra.B     L16
226    4A01           L15:       Tst.B     D1
228    6B14           L16:       BMI.B     L17
22A    4DFA 0006                 Lea.L     E_17, A6
22E    6000 0024                 Bra       P_WriteRTCByte  ; Call with return address in A6
232    3202           E_17:      Move      D2, D1
234    4DFA 0006                 Lea.L     E_18, A6
238    6000 001A                 Bra       P_WriteRTCByte  ; Call with return address in A6
23C    6010           E_18:      Bra.B     L18
23E    4DFA 0006      L17:       Lea.L     E_19, A6
242    6000 0010                 Bra       P_WriteRTCByte  ; Call with return address in A6
246    4DFA 0006      E_19:      Lea.L     L18, A6
24A    6000 001A                 Bra       P_ReadRTCByte
24E    08D1 0002      L18:       BSet.B    #$2, (A1)       ; disable RTC serial interface @sc
252    4ED5                      Jmp       (A5)

                      P_WriteRTCByte:
                      ; writes a byte from D1 to the RTC chip @sc
                      ; return address in A6
254    7A07                      MoveQ.L   #$7, D5
256    E21B           L19:       ROR.B     #$1, D3         ; rotate the MSB of D1 into the RTC data line bit position @sc
258    E311                      RXL.B     #$1, D1
25A    E313                      RXL.B     #$1, D3
25C    1283                      Move.B    D3, (A1)        ; set the RTC clock low, and assert the RTC data bit @sc
25E    09D1                      BSet.L    D4, (A1)        ; set the RTC clock high @sc
260    51CD FFF4                 DBF       D5, L19         ; loop until all 8 bits are sent @sc
264    4ED6                      Jmp       (A6)

                      P_ReadRTCByte:
                      ; reads a byte from the RTC chip into D1 @sc
                      ; return address in A6
266    7A07                      MoveQ.L   #$7, D5
268    08A9 0000 0400            BClr.B    #$0, $400(A1)   ; change the RTC data line direction to input @sc
26E    1803                      Move.B    D3, D4
270    08C4 0001                 BSet.B    #$1, D4
274    1283           L21:       Move.B    D3, (A1)        ; RTC clock low @sc
276    1284                      Move.B    D4, (A1)        ; RTC clock high @sc
278    1211                      Move.B    (A1), D1        ; read VIA register B @sc
27A    E209                      LsR.B     #$1, D1         ; shift the RTC data bit into carry @sc
27C    E312                      RXL.B     #$1, D2         ; shift the carry into the byte being constructed @sc
27E    51CD FFF4                 DBF       D5, L21
282    08E9 0000 0400            BSet.B    #$0, $400(A1)   ; change the RTC data line direction to output @sc
288    4ED6                      Jmp       (A6)

                      P_mBootBeep:
                      ; return address in A6
28A    4BF9 00EF E1FE            Lea.L     (VIA_Base), A5
290    41F9 003F FD00            Lea.L     ($3FFD00), A0   ; sound buffer base @sc
296    2848                      Move.L    A0, A4
298    40C5                      Move      SR, D5
29A    0245 0700                 And       #$700, D5
29E    660C                      BNE.B     L24
2A0    2038 016A                 Move.L    (Ticks), D0
2A4    B0B8 016A      L23:       Cmp.L     (Ticks), D0
2A8    67FA                      BEQ.B     L23             ; wait for the next tick @sc
2AA    6012                      Bra.B     L26
2AC    70FF           L24:       MoveQ.L   #$-1, D0
2AE    082D 0001 1A00 L25:       BTst.B    #$1, $1A00(A5)  ; check the VBLANK interrupt flag @sc
2B4    56C8 FFF8                 DBNE      D0, L25         ; wait until the VBLANK interrupt flag is set @sc
2B8    1B7C 0002 1A00            Move.B    #$2, $1A00(A5)  ; clear the VBLANK interrupt flag @sc
2BE    303C 0D00      L26:       Move      #$D00, D0
2C2    51C8 FFFE      L27:       DBF       D0, L27         ; busy loop $D00 times, why? @sc
2C6    7004                      MoveQ.L   #$4, D0
2C8    223C C006 FA40 L28:       Move.L    #$C006FA40, D1
2CE    7413           L29:       MoveQ.L   #$13, D2
2D0    1081           L30:       Move.B    D1, (A0)        ; store a byte in the sound buffer @sc
2D2    5448                      AddQ      #$2, A0         ; skip over the drive motor speed byte to the next sound byte @sc
2D4    5342                      SubQ      #$1, D2
2D6    66F8                      BNE.B     L30
2D8    E089                      LsR.L     #$8, D1
2DA    66F2                      BNE.B     L29
2DC    51C8 FFEA                 DBF       D0, L28
2E0    0895 0007                 BClr.B    #$7, (A5)       ; sound enable @sc
2E4    5243                      AddQ      #$1, D3         ; duration of beep @sc
2E6    6032                      Bra.B     L34
2E8    204C           L31:       Move.L    A4, A0
2EA    43E8 0092                 Lea.L     $92(A0), A1
2EE    7049                      MoveQ.L   #$49, D0
2F0    1411           L32:       Move.B    (A1), D2
2F2    5849                      AddQ      #$4, A1
2F4    1211                      Move.B    (A1), D1
2F6    D441                      Add       D1, D2
2F8    5549                      SubQ      #$2, A1
2FA    1211                      Move.B    (A1), D1
2FC    D441                      Add       D1, D2
2FE    D441                      Add       D1, D2
300    5642                      AddQ      #$3, D2
302    E442                      AsR       #$2, D2
304    1082                      Move.B    D2, (A0)
306    5448                      AddQ      #$2, A0
308    51C8 FFE6                 DBF       D0, L32
30C    303C 0127                 Move      #$127, D0
310    10A8 FFB6      L33:       Move.B    $-4A(A0), (A0)
314    5448                      AddQ      #$2, A0
316    51C8 FFF8                 DBF       D0, L33
31A    70FF           L34:       MoveQ.L   #$-1, D0
31C    4A45                      Tst       D5
31E    660C                      BNE.B     L36
320    2038 016A                 Move.L    (Ticks), D0
324    B0B8 016A      L35:       Cmp.L     (Ticks), D0
328    67FA                      BEQ.B     L35             ; wait for the next tick @sc
32A    6010                      Bra.B     L37
32C    082D 0001 1A00 L36:       BTst.B    #$1, $1A00(A5)
332    56C8 FFF8                 DBNE      D0, L36         ; wait until the VBLANK interrupt flag is set @sc
336    1B7C 0002 1A00            Move.B    #$2, $1A00(A5)  ; clear the VBLANK interrupt flag @sc
33C    51CB FFAA      L37:       DBF       D3, L31         ; decrement the duration tick count @sc
340    204C                      Move.L    A4, A0
342    7080                      MoveQ.L   #$-80, D0
344    323C 0171                 Move      #$171, D1
348    1080           L38:       Move.B    D0, (A0)
34A    5448                      AddQ      #$2, A0         ; fill the sound buffer with $FF to produce silence @sc
34C    51C9 FFFA                 DBF       D1, L38
350    4ED6                      Jmp       (A6)

                      P_BootPart2:
                      ; continue with booting
                      ; initialize RAM contents @sc
352    204B                      Move.L    A3, A0
354    72FF                      MoveQ.L   #$-1, D1
356    908B                      Sub.L     A3, D0
358    E488                      LsR.L     #$2, D0
35A    20C1           L40:       Move.L    D1, (A0)+
35C    5380                      SubQ      #$1, D0
35E    66FA                      BNE.B     L40             ; writes $FFFFFFFF to D0 longwords beginning at address A0 @sc
360    4DFA 0006                 Lea.L     E_21, A6
364    6000 0CD0                 Bra       P_mSysErrInit   ; Call with return address in A6
                      ; A second place for test software to interrupt the normal boot.
368    4CF9 0101 00F8 E_21:      MoveM.L   ($F80080), D0/A0
       0080
370    0C80 55AA AA55            Cmp.L     #$55AAAA55, D0
376    6606                      BNE.B     L41
378    43FA 002E                 Lea.L     E_SoftReset, A1
37C    4ED0                      Jmp       (A0)
37E    21CD 0108      L41:       Move.L    A5, (MemTop)
382    224D                      Move.L    A5, A1
384    92FC 02FF                 SubA      #$2FF, A1
388    21C9 0312                 Move.L    A1, (PWMBuf2)
38C    21C9 0B0A                 Move.L    A1, (PWMBuf1)
390    31FC FFFF 0138            Move      #$-1, (PWMValue)
396    224D                      Move.L    A5, A1
398    92FC 0300                 SubA      #$300, A1
39C    21C9 0266                 Move.L    A1, (SoundBase)
3A0    9AFC 5900                 SubA      #$5900, A5
3A4    21CD 010C                 Move.L    A5, (BufPtr)

                      E_SoftReset:
3A8    46FC 2700                 Move      #$2700, SR
3AC    11FC 007F 028E            Move.B    #$7F, (ROM85)
3B2    21FC 0040 0000            Move.L    #$400000, (ROMBase)
       02AE
3BA    97CB                      SubA.L    A3, A3
3BC    2038 0108                 Move.L    (MemTop), D0
3C0    E288                      LsR.L     #$1, D0
3C2    2C40                      Move.L    D0, A6
3C4    2E40                      Move.L    D0, A7
3C6    9EFC 0400                 SubA      #$400, A7
3CA    42B8 02BA                 Clr.L     (DSAlertTab)
3CE    21FC 0001 0001            Move.L    #$10001, (OneOne)
       0A02
3D6    70FF                      MoveQ.L   #$-1, D0
3D8    21C0 0A06                 Move.L    D0, (MinusOne)
3DC    31C0 03F6                 Move      D0, (FSFCBLen)
3E0    4278 0B22                 Clr       (HWCfgFlags)
3E4    2039 0042 0000            Move.L    ($420000), D0
3EA    B0B9 0044 0000            Cmp.L     ($440000), D0
3F0    6706                      BEQ.B     L42             ; if ROM is mirrored, then SCSI is not present @sc
3F2    11FC 00C0 0B22            Move.B    #$-40, (HWCfgFlags)
3F8    42B8 013E      L42:       Clr.L     (PollProc)
3FC    21FC 00EF E1FE            Move.L    #$EFE1FE, (VIA)
       01D4
404    21FC 00DF E1FF            Move.L    #$DFE1FF, (IWM)
       01E0
40C    41FA 1C22                 Lea.L     DT_mFSIODNETbl, A0
410    43F8 08F4                 Lea.L     (JFetch), A1
414    7202                      MoveQ.L   #$2, D1
416    6100 0446                 Bsr       P_mJmpTblInit
41A    50F8 0A58                 ST.B      (SysMap)
41E    42B8 0A50                 Clr.L     (TopMapHndl)
422    42B8 012C                 Clr.L     (DskVerify)
426    4278 0144                 Clr       (SysEvtMask)
42A    42B8 021A                 Clr.L     (JKybdTask)
42E    42B8 0110                 Clr.L     (StackLowPoint)
432    43F8 0160                 Lea.L     (VBLQueueHdr_Flags), A1
436    4EBA 1600                 Jsr       P_mInitQueue
43A    42B8 016A                 Clr.L     (Ticks)
43E    42B8 016E                 Clr.L     (MBTicks)
442    42B8 0BA6                 Clr.L     (SysFontFam)
446    42B8 0B2A                 Clr.L     (WidthTabHandle)
44A    4278 0BAC                 Clr       (TESysJust)
44E    4238 0BA5                 Clr.B     (WordRedraw)
452    1039 00EF E1FE            Move.B    (VIA_Base), D0
458    E900                      AsL.B     #$4, D0
45A    11C0 0172                 Move.B    D0, (MBState)
45E    41F8 0800                 Lea.L     (GrafBegin_JHideCursor), A0
462    43F8 08F2                 Lea.L     (WWExist), A1
466    4258           L43:       Clr       (A0)+
468    B1C9                      CmpA.L    A1, A0
46A    6DFA                      BLT.B     L43
46C    21F8 010C 0824            Move.L    (BufPtr), (ScrnBase)
472    31FC 0040 0106            Move      #$40, (ScreenRow)
478    21FC 0048 0048            Move.L    #$480048, (ScrVRes)
       0102
480    203C 000F 000F            Move.L    #$F000F, D0
486    41F8 0828                 Lea.L     (MTemp_v), A0
48A    20C0                      Move.L    D0, (A0)+
48C    20C0                      Move.L    D0, (A0)+
48E    20C0                      Move.L    D0, (A0)+
490    4298                      Clr.L     (A0)+
492    30FC 0156                 Move      #$156, (A0)+
496    30BC 0200                 Move      #$200, (A0)
49A    41FA 19EA                 Lea.L     P_mCrsrVBLTask, A0
49E    2308                      Move.L    A0, -(A1)
4A0    333C 0006                 Move      #$6, -(A1)
4A4    41FA 17E4                 Lea.L     DT_mCRSRCore, A0
4A8    43F8 0800                 Lea.L     (GrafBegin_JHideCursor), A1
4AC    7207                      MoveQ.L   #$7, D1
4AE    6100 03AE                 Bsr       P_mJmpTblInit
4B2    70FF                      MoveQ.L   #$-1, D0
4B4    31C0 08CE                 Move      D0, (CrsrNew)
4B8    21C0 08D6                 Move.L    D0, (MouseMask)
4BC    41F8 0192                 Lea.L     (Lvl1DT), A0
4C0    43FA 164E                 Lea.L     E_78, A1
4C4    2448                      Move.L    A0, A2
4C6    700F                      MoveQ.L   #$F, D0
4C8    20C9           L44:       Move.L    A1, (A0)+
4CA    51C8 FFFC                 DBF       D0, L44
4CE    41FA 1618                 Lea.L     P_mOneSecInt_VIA, A0
4D2    24C8                      Move.L    A0, (A2)+
4D4    41FA 163C                 Lea.L     P_mVBLInt_VIA, A0
4D8    2488                      Move.L    A0, (A2)
4DA    45F8 0064                 Lea.L     (Lev1AutoVector), A2
4DE    41FA 1562                 Lea.L     P_mLvl1Int_VIA, A0
4E2    24C8                      Move.L    A0, (A2)+
4E4    41FA 159E                 Lea.L     P_mLvl2Int_SCC, A0
4E8    24C8                      Move.L    A0, (A2)+
4EA    41FA 15C8                 Lea.L     P_mSpurious_IntVIAandSCC, A0
4EE    2488                      Move.L    A0, (A2)
4F0    45F8 02BE                 Lea.L     (ExtStsDT), A2
4F4    41FA 170A                 Lea.L     P_SCCInt_BChng_MouseV, A0
4F8    24C8                      Move.L    A0, (A2)+
4FA    24C8                      Move.L    A0, (A2)+
4FC    41FA 16DA                 Lea.L     P_SCCInt_AChng_MouseH, A0
500    24C8                      Move.L    A0, (A2)+
502    2488                      Move.L    A0, (A2)
504    45F8 01B6                 Lea.L     (Lvl2DT.1), A2
508    41FA 15AC                 Lea.L     P_mExtBInt_StatusChngSCC, A0
50C    2488                      Move.L    A0, (A2)
50E    41FA 15B2                 Lea.L     P_mExtAInt_StatusChngSCC, A0
512    2548 0010                 Move.L    A0, $10(A2)
                      ; Begin setting up A-line dispatch
516    41F8 0C00                 Lea.L     (ToolDispTable), A0
51A    43FA 02EA                 Lea.L     P_tUnimplemented, A1
51E    303C 01FF                 Move      #$1FF, D0
522    20C9           L45:       Move.L    A1, (A0)+
524    51C8 FFFC                 DBF       D0, L45
528    41F8 0400                 Lea.L     (DispatchTab), A0
52C    303C 00FF                 Move      #$FF, D0
530    20C9           L46:       Move.L    A1, (A0)+
532    51C8 FFFC                 DBF       D0, L46
536    41FA 7920                 Lea.L     DT22, A0
53A    43F8 0C00                 Lea.L     (ToolDispTable), A1
53E    2478 02AE                 Move.L    (ROMBase), A2
542    303C 0200                 Move      #$200, D0
546    747F                      MoveQ.L   #$7F, D2
548    1218           L47:       Move.B    (A0)+, D1
54A    6B1C                      BMI.B     L51
54C    E141                      AsL       #$8, D1
54E    1218                      Move.B    (A0)+, D1
550    D241           L48:       Add       D1, D1
552    48C1                      Ext.L     D1
554    672A                      BEQ.B     L53
556    D5C1           L49:       AddA.L    D1, A2
558    228A                      Move.L    A2, (A1)
55A    5849           L50:       AddQ      #$4, A1
55C    5340                      SubQ      #$1, D0
55E    66E8                      BNE.B     L47
560    70FF                      MoveQ.L   #$-1, D0
562    43F8 0400                 Lea.L     (DispatchTab), A1
566    60E0                      Bra.B     L47
568    C242           L51:       And       D2, D1
56A    67EE                      BEQ.B     L50
56C    B242                      Cmp       D2, D1
56E    66E0                      BNE.B     L48
570    7603                      MoveQ.L   #$3, D3
572    E181           L52:       AsL.L     #$8, D1
574    1218                      Move.B    (A0)+, D1
576    51CB FFFA                 DBF       D3, L52
57A    2478 02AE                 Move.L    (ROMBase), A2
57E    60D6                      Bra.B     L49
                      ; Done setting up A-line dispatch
                      ; Begin determine CPUFlag
580    43F8 0010      L53:       Lea.L     (IllegalInstructionVector), A1
584    2411                      Move.L    (A1), D2        ; save old vector
586    41FA 0012                 Lea.L     E_23, A0
58A    2288                      Move.L    A0, (A1)
58C    204F                      Move.L    A7, A0
58E    4267                      Clr       -(A7)
590    7202                      MoveQ.L   #$2, D1         ; 68020 if MOVEC works
592    7001                      MoveQ.L   #$1, D0
594    4E7B 0002                 MOVEC     #$2
598    600C                      Bra.B     L54

                      E_23:
                      ; MOVEC illegal - 68000 or 10
59A    7201                      MoveQ.L   #$1, D1
59C    0C6F 0010 0006            Cmp       #$10, $6(A7)
5A2    6702                      BEQ.B     L54
5A4    7200                      MoveQ.L   #$0, D1
5A6    2E48           L54:       Move.L    A0, A7          ; restore old stack pointer
5A8    2282                      Move.L    D2, (A1)        ; restore old vector
5AA    11C1 012F                 Move.B    D1, (CPUFlag)
                      ; Done determining CPUFlag
                      ; now use CPUFlag to set appropriate ATrapVector
5AE    41FA 19A2                 Lea.L     P_mEMT1010_TrapDispatch, A0
5B2    6704                      BEQ.B     L55
5B4    41FA 1994                 Lea.L     P_mATrap68020, A0
5B8    21C8 0028      L55:       Move.L    A0, (ATrapVector)
5BC    A03F                      _InitUtil
5BE    0838 0006 020B            BTst.B    #$6, (SPMisc2)
5C4    56F8 08D3                 SNE.B     (CrsrScale)
5C8    72FC                      MoveQ.L   #$-4, D1
5CA    700F                      MoveQ.L   #$F, D0
5CC    1438 0206                 Move.B    (SPKbd), D2
5D0    C002                      And.B     D2, D0
5D2    D040                      Add       D0, D0
5D4    4840                      Swap      D0
5D6    1002                      Move.B    D2, D0
5D8    E448                      LsR       #$2, D0
5DA    C041                      And       D1, D0
5DC    4840                      Swap      D0
5DE    21C0 018E                 Move.L    D0, (KeyThresh)
5E2    700F                      MoveQ.L   #$F, D0
5E4    1438 0209                 Move.B    (SPClikCaret), D2
5E8    C002                      And.B     D2, D0
5EA    E548                      LsL       #$2, D0
5EC    21C0 02F4                 Move.L    D0, (CaretTime)
5F0    1002                      Move.B    D2, D0
5F2    E448                      LsR       #$2, D0
5F4    C041                      And       D1, D0
5F6    21C0 02F0                 Move.L    D0, (DoubleTime)
5FA    6100 0366                 Bsr       P5
5FE    4267                      Clr       -(A7)
600    A995                      _InitResources
602    544F                      AddQ      #$2, A7
604    7012                      MoveQ.L   #$12, D0
606    A71E                      _NewPtrSysClear
608    21C8 0B30                 Move.L    A0, (TimeVars)
60C    43E8 0008                 Lea.L     $8(A0), A1
610    4EBA 1426                 Jsr       P_mInitQueue
614    6100 0216                 Bsr       P_InitSCC
618    4EBA 1F4E                 Jsr       P_InitKeyboard
61C    43F8 0308                 Lea.L     (DrvQHdr_Flags), A1
620    4EBA 1416                 Jsr       P_mInitQueue
624    6100 0256                 Bsr       P_mInitIOMgr
628    4CF9 0101 00F8            MoveM.L   ($F80088), D0/A0
       0088
630    0C80 55AA AA55            Cmp.L     #$55AAAA55, D0
636    6606                      BNE.B     L56
638    43FA FF7E                 Lea.L     L55, A1
63C    4ED0                      Jmp       (A0)
63E    46FC 2000      L56:       Move      #$2000, SR      ; enable interrupts for the first time @sc
642    4278 015A                 Clr       (SysVersion)
646    21F8 02A6 02B2            Move.L    (SysZone), (RAMBase)
64C    11FC 00FE 021F            Move.B    #$-2, (AlarmState)
652    41FA 027E                 Lea.L     P_mGNEFilter, A0
656    21C8 029A                 Move.L    A0, (GNEFilter)
65A    42B8 033C                 Clr.L     (IAZNotify)
65E    31FC FF7F 025E            Move      #$-81, (DiskVars.FlEvtMask)
664    7007                      MoveQ.L   #$7, D0
666    41F8 0AB8                 Lea.L     (AppPacks), A0
66A    4298           L57:       Clr.L     (A0)+
66C    51C8 FFFC                 DBF       D0, L57
670    6020                      Bra.B     L58

                      DT1:
672    0400 0400 0C00            DC.B      '      '
678    0800 0B80 0080            DC.B      '      '
67E    0376 0002 0384            DC.B      ' v    '
684    0002 0000 0000            DC.B      '      '
68A    0000 0004 0000            DC.B      '      '
690    0000                      DC.B      '  '
692    7020           L58:       MoveQ.L   #$20, D0
694    A71E                      _NewPtrSysClear
696    2248                      Move.L    A0, A1
698    41FA FFD8                 Lea.L     DT1, A0
69C    7020                      MoveQ.L   #$20, D0
69E    A02E                      _BlockMove
6A0    21C9 0286                 Move.L    A1, (SwitcherTPtr)
6A4    4BEF 0190                 Lea.L     $190(A7), A5
6A8    486D FFFC                 Pea.L     $-4(A5)
6AC    A86E                      _InitGraf
6AE    486E FE00                 Pea.L     $-200(A6)
6B2    A86F                      _OpenPort
6B4    2455                      Move.L    (A5), A2
6B6    486A FF94                 Pea.L     $-6C(A2)
6BA    A851                      _SetCursor
6BC    486A FF8C                 Pea.L     $-74(A2)
6C0    2F17                      Move.L    (A7), -(A7)
6C2    A8A2                      _PaintRect
6C4    2F3C 0010 0010            Move.L    #$100010, -(A7)
6CA    486A FFE8                 Pea.L     $-18(A2)
6CE    A8B4                      _FillRoundRect
6D0    41FA 0928                 Lea.L     DT_mQMark, A0
6D4    2E08                      Move.L    A0, D7
6D6    48E7 0106                 MoveM.L   D7/A5-A6, -(A7)
6DA    6100 00F2                 Bsr       P_mPlotDisk
6DE    4CDF 6080                 MoveM.L   (A7)+, D7/A5-A6
6E2    7800                      MoveQ.L   #$0, D4
6E4    2C38 030A                 Move.L    (DrvQHdr.Head), D6
6E8    67FE           L59:       BEQ.B     L59
6EA    0838 0004 020B            BTst.B    #$4, (SPMisc2)
6F0    6600 008A                 BNE       L65

                      P_WaitForBootDisk:
                      ; beginning of the 'question-mark disk' loop @sc
6F4    204F                      Move.L    A7, A0          ; A0 is pointer to an IO param block @sc
6F6    317C 0001 002C            Move      #$1, $2C(A0)    ; use offset-from-start positioning @sc
6FC    42A8 002E                 Clr.L     $2E(A0)         ; position = 0 @sc
700    214E 0020                 Move.L    A6, $20(A0)     ; A6 is pointer to the buffer to fill @sc
704    217C 0000 0400            Move.L    #$400, $24(A0)  ; request size = $400 bytes (two sectors) @sc
       0024
70C    4A86                      Tst.L     D6
70E    6700 006C                 BEQ       L65
712    2246                      Move.L    D6, A1
714    3629 0008                 Move      $8(A1), D3
718    3143 0018                 Move      D3, $18(A0)
71C    31C3 0B34                 Move      D3, (BtDskRfn)
720    3629 0006                 Move      $6(A1), D3      ; drive/volume number of the next drive to check @sc
724    3143 0016                 Move      D3, $16(A0)
728    31C3 0210                 Move      D3, (BootDrive)
72C    7200                      MoveQ.L   #$0, D1
72E    4A38 0172                 Tst.B     (MBState)
732    6A2E                      BPL.B     L63             ; if mouse button is pressed, eject the disk @sc
734    A002                      _Read                     ; attempt to read the disk @sc
736    661C                      BNE.B     L61             ; branch if a read error occurred @sc
738    0C56 4C4B                 Cmp       #$4C4B, (A6)    ; check the data to see if it begins with the boot disk magic signature $4C4B @sc
73C    6622                      BNE.B     L62             ; branch if not a boot disk @sc
73E    A852                      _HideCursor
740    48E7 0006                 MoveM.L   A5-A6, -(A7)
744    4BFA 0006                 Lea.L     E_24, A5
748    6000 07DE                 Bra       P_ShowHappyMac  ; Call with return address in A5
74C    4CDF 6000      E_24:      MoveM.L   (A7)+, A5-A6
750    6000 0234                 Bra       P_BootFromDisk
754    0C40 FFBF      L61:       Cmp       #$-41, D0       ; offLinErr- no disk in drive @sc
758    6722                      BEQ.B     L65
75A    0C40 FFC0                 Cmp       #$-40, D0       ; noDriveErr- drive isn't connected @sc
75E    6712                      BEQ.B     L64
760    72FF           L62:       MoveQ.L   #$-1, D1
762    317C 0007 001A L63:       Move      #$7, $1A(A0)    ; control function 7 = eject @sc
768    A004                      _Control                  ; eject the disk @sc
76A    4A41                      Tst       D1
76C    670E                      BEQ.B     L65
76E    4A40                      Tst       D0
770    672C                      BEQ.B     L67
772    3038 0B0E      L64:       Move      (BootMask), D0  ; remove the drive from the boot mask @sc
776    0780                      BClr.L    D3, D0
778    31C0 0B0E                 Move      D0, (BootMask)  ; clear the bit for the drive that was just checked @sc
77C    4EBA 75C2      L65:       Jsr       P_CheckSCSI
780    2246                      Move.L    D6, A1
782    2C11                      Move.L    (A1), D6        ; next entry in linked list @sc
784    6606                      BNE.B     L66
786    2C38 030A                 Move.L    (DrvQHdr.Head), D6 ; restart search from head of list @sc
78A    601A                      Bra.B     L68
78C    2246           L66:       Move.L    D6, A1
78E    3629 0006                 Move      $6(A1), D3      ; drive/volume number @sc
792    3038 0B0E                 Move      (BootMask), D0
796    0700                      BTst.L    D3, D0
798    67E2                      BEQ.B     L65             ; keep looking for a drive that's in the bootmask @sc
79A    6000 FF58                 Bra       P_WaitForBootDisk
79E    41FA 0878      L67:       Lea.L     DT_mXMark, A0
7A2    2E08                      Move.L    A0, D7
7A4    7A08                      MoveQ.L   #$8, D5
7A6    48E7 1F06      L68:       MoveM.L   D3-D7/A5-A6, -(A7)
7AA    E24C                      LsR       #$1, D4         ; D4 flag controls icon draw/erase? @sc
7AC    6402                      BCC.B     L69
7AE    7E00                      MoveQ.L   #$0, D7
7B0    611C           L69:       Bsr.B     P_mPlotDisk     ; draw icon number whose address is in D7 @sc
7B2    4CDF 60F8                 MoveM.L   (A7)+, D3-D7/A5-A6
7B6    7004                      MoveQ.L   #$4, D0
7B8    4840                      Swap      D0
7BA    5380           L70:       SubQ      #$1, D0
7BC    66FC                      BNE.B     L70             ; busy loop $40000 times @sc
7BE    5244                      AddQ      #$1, D4
7C0    5345                      SubQ      #$1, D5
7C2    6606                      BNE.B     L71
7C4    41FA 0834                 Lea.L     DT_mQMark, A0
7C8    2E08                      Move.L    A0, D7
7CA    6000 FF28      L71:       Bra       P_WaitForBootDisk
                      ; End of main boot code

                      P_mPlotDisk:
7CE    A852                      _HideCursor
7D0    2038 016A                 Move.L    (Ticks), D0
7D4    B0B8 016A      L72:       Cmp.L     (Ticks), D0
7D8    67FA                      BEQ.B     L72             ; wait until next tick @sc
7DA    49FA 07C6                 Lea.L     DT10, A4
7DE    247C 003F CB5E            Move.L    #$3FCB5E, A2
7E4    4DFA 0006                 Lea.L     E_25, A6
7E8    6000 06DA                 Bra       P_tPutIcon      ; Call with return address in A6
7EC    4A47           E_25:      Tst       D7
7EE    6712                      BEQ.B     L73
7F0    247C 003F CF1F            Move.L    #$3FCF1F, A2
7F6    2847                      Move.L    D7, A4
7F8    740E                      MoveQ.L   #$E, D2
7FA    4DFA 0006                 Lea.L     L73, A6
7FE    6000 0730                 Bra       L139
802    A853           L73:       _ShowCursor
804    4E75                      Rts

                      P_tUnimplemented:
806    700C                      MoveQ.L   #$C, D0
808    6000 0938                 Bra       P_tSysError

                      DT2:
80C    0940 044C 0200            DC.B      ' @ L  '
812    03C0 0F08 0010            DC.B      '      '
818    0010 0101 0980            DC.B      '      '
81E    044C 03C0 0F08            DC.B      ' L    '
824    0010 0010 0101            DC.B      '      '
82A    090A                      DC.B      '  '

                      P_InitSCC:
82C    207C 00BF FFF9            Move.L    #$BFFFF9, A0
832    227C 009F FFF8            Move.L    #$9FFFF8, A1
838    21C8 01DC                 Move.L    A0, (SCCWr)
83C    21C9 01D8                 Move.L    A1, (SCCRd)
840    45FA FFCA                 Lea.L     DT2, A2
844    7210                      MoveQ.L   #$10, D1
846    6106                      Bsr.B     P2
848    5488                      AddQ      #$2, A0
84A    5489                      AddQ      #$2, A1
84C    7210                      MoveQ.L   #$10, D1

                      P2:
84E    1411                      Move.B    (A1), D2
850    6006                      Bra.B     L75
852    2E97           L74:       Move.L    (A7), (A7)
854    2E97                      Move.L    (A7), (A7)
856    109A                      Move.B    (A2)+, (A0)
858    51C9 FFF8      L75:       DBF       D1, L74
85C    4E75                      Rts

                      P_mJmpTblInit:
85E    2008                      Move.L    A0, D0
                      L_mJmpTbl2:
860    7400                      MoveQ.L   #$0, D2
862    3418                      Move      (A0)+, D2
864    D480                      Add.L     D0, D2
866    22C2                      Move.L    D2, (A1)+
868    51C9 FFF6                 DBF       D1, L_mJmpTbl2
86C    4E75                      Rts

                      DT3:
86E    052E 536F 6E79            DC.B      ' .Sony'

                      DT4:
874    062E 536F 756E            DC.B      ' .Soun'
87A    6420                      DC.B      'd '

                      P_mInitIOMgr:
87C    7030                      MoveQ.L   #$30, D0
87E    31C0 01D2                 Move      D0, (UnitTableEntryCount)
882    E580                      AsL.L     #$2, D0
884    A71E                      _NewPtrSysClear
886    21C8 011C                 Move.L    A0, (UTableBase)
88A    9EFC 0032                 SubA      #$32, A7
88E    204F                      Move.L    A7, A0
890    4228 001B                 Clr.B     $1B(A0)
894    43FA FFD8                 Lea.L     DT3, A1         ; name of disk driver @sc
898    2149 0012                 Move.L    A1, $12(A0)     ; set PB driver name for _Open call @sc
89C    A000                      _Open                     ; open the disk driver @sc
89E    43FA FFD4                 Lea.L     DT4, A1         ; name of sound driver @sc
8A2    2149 0012                 Move.L    A1, $12(A0)     ; set PB driver name for _Open call @sc
8A6    A000                      _Open                     ; open the sound driver @sc
8A8    DEFC 0032                 AddA      #$32, A7
8AC    4EB9 0041 FFC0            Jsr       ($41FFC0)
8B2    4E71                      Nop
8B4    594F                      SubQ      #$4, A7
8B6    2F3C 5345 5244            Move.L    #$53455244, -(A7)
8BC    4267                      Clr       -(A7)
8BE    31FC FFFF 0B9E            Move      #$-1, (ROMMapInsert)
8C4    A9A0                      _GetResource
8C6    201F                      Move.L    (A7)+, D0
8C8    6706                      BEQ.B     L77
8CA    2040                      Move.L    D0, A0
8CC    2050                      Move.L    (A0), A0
8CE    4E90                      Jsr       (A0)
8D0    4E75           L77:       Rts

                      P_mGNEFilter:
8D2    43F8 021F                 Lea.L     (AlarmState), A1
8D6    08D1 0005                 BSet.B    #$5, (A1)
8DA    6668                      BNE.B     L79
8DC    7003                      MoveQ.L   #$3, D0
8DE    C011                      And.B     (A1), D0
8E0    6662                      BNE.B     L79
8E2    4A38 08F2                 Tst.B     (WWExist)
8E6    665C                      BNE.B     L79
8E8    2038 0A1C                 Move.L    (MenuList), D0
8EC    6756                      BEQ.B     L79
8EE    2040                      Move.L    D0, A0
8F0    2050                      Move.L    (A0), A0
8F2    4A50                      Tst       (A0)
8F4    6F4E                      BLE.B     L79
8F6    2068 0006                 Move.L    $6(A0), A0
8FA    2050                      Move.L    (A0), A0
8FC    0C68 0114 000E            Cmp       #$114, $E(A0)
902    6640                      BNE.B     L79
904    2F3C 0001 0011            Move.L    #$10011, -(A7)
90A    2F3C 0013 001E            Move.L    #$13001E, -(A7)
910    2078 0808                 Move.L    (JShieldCursor), A0
914    4E90                      Jsr       (A0)
916    2078 0824                 Move.L    (ScrnBase), A0
91A    3038 0106                 Move      (ScreenRow), D0
91E    223C 0000 7FFC            Move.L    #$7FFC, D1
924    7411                      MoveQ.L   #$11, D2
926    D0C0           L78:       AddA      D0, A0
928    B390                      Eor.L     D1, (A0)
92A    51CA FFFA                 DBF       D2, L78
92E    2078 0804                 Move.L    (JShowCursor), A0
932    4E90                      Jsr       (A0)
934    0851 0007                 BChg.B    #$7, (A1)
938    0891 0006                 BClr.B    #$6, (A1)
93C    6706                      BEQ.B     L79
93E    3F3C 0008                 Move      #$8, -(A7)
942    A9C8                      _SysBeep
944    4E75           L79:       Rts

                      DT5:
946    00FF FFFF 0000            DC.B      '      '
94C    0400 0000 2000            DC.B      '      '
952    0000 0000 1400            DC.B      '      '
958    0000 4E00 0020            DC.B      '  N   '
95E    0000 0000                 DC.B      '    '

                      P5:
962    41FA FFE2                 Lea.L     DT5, A0
966    43F8 031A                 Lea.L     (Lo3Bytes), A1
96A    7006                      MoveQ.L   #$6, D0
96C    32D8           L80:       Move      (A0)+, (A1)+
96E    51C8 FFFC                 DBF       D0, L80
972    A019                      _InitZone
974    21F8 0118 02A6            Move.L    (TheZone), (SysZone)
97A    4E75                      Rts

                      E_28:
97C    A019                      _InitZone
97E    21F8 0118 02A6            Move.L    (TheZone), (SysZone)
984    4E75                      Rts

                      P_BootFromDisk:
                      ; buffer address in A6 @sc
                      ; disk boot block (sector 0):  @sc
                      ; offset    bytes   data
                      ; 0         2       signature $4C4B
                      ; 2         4       pointer to disk driver init code?
                      ; 6         2       version number? If high byte is $44, above init code will be called
                      ; ...
                      ; $7E       4       System Heap Size (128K)
                      ; $86       4       System Heap Size (512K)
986    0C2E 0044 0006            Cmp.B     #$44, $6(A6)    ; version number @sc
98C    6604                      BNE.B     L82
98E    4EAE 0002                 Jsr       $2(A6)          ; call disk driver init code @sc
992    0C6E 0014 0006 L82:       Cmp       #$14, $6(A6)    ; MFS disk? @sc
998    6208                      BHI.B     L83
99A    2D7C 0000 B700            Move.L    #$B700, $86(A6) ; force 512K config system heap size to $B700 @sc
       0086
9A2    202E 007E      L83:       Move.L    $7E(A6), D0
9A6    0C78 0002 0108            Cmp       #$2, (MemTop)   ; is installed memory less than or equal to 128K? @sc
9AC    6F04                      BLE.B     L84
9AE    202E 0086                 Move.L    $86(A6), D0
9B2    2078 02A6      L84:       Move.L    (SysZone), A0
9B6    D1C0                      AddA.L    D0, A0
9B8    A057                      _SetApplBase
9BA    21F8 02A6 0118            Move.L    (SysZone), (TheZone)
9C0    302E 007C                 Move      $7C(A6), D0
9C4    A06D                      _InitEvents
9C6    302E 007A                 Move      $7A(A6), D0
9CA    A06C                      _InitFS
9CC    204F                      Move.L    A7, A0
9CE    3178 0210 0016            Move      (BootDrive), $16(A0)
9D4    A00F                      _MountVol
9D6    6600 01AA                 BNE       L97             ; fail; eject disk and wait for a new one @sc
9DA    42A8 0012                 Clr.L     $12(A0)
9DE    4268 001C                 Clr       $1C(A0)
9E2    A207                      _HGetVInfo
9E4    660C                      BNE.B     L85
9E6    2868 005E                 Move.L    $5E(A0), A4
9EA    2028 005A                 Move.L    $5A(A0), D0
9EE    6100 025C                 Bsr       P10
9F2    43F8 0AD8      L85:       Lea.L     (SysResName), A1
9F6    41EE 000A                 Lea.L     $A(A6), A0
9FA    7010                      MoveQ.L   #$10, D0
9FC    A02E                      _BlockMove
9FE    43EE 004A                 Lea.L     $4A(A6), A1
A02    7601                      MoveQ.L   #$1, D3
A04    6100 01D6                 Bsr       P9
A08    56C7                      SNE.B     D7
A0A    662A                      BNE.B     L86
A0C    2F3C 0156 0200            Move.L    #$1560200, -(A7)
A12    42A7                      Clr.L     -(A7)
A14    3F38 0106                 Move      (ScreenRow), -(A7)
A18    486E 0800                 Pea.L     $800(A6)
A1C    45EE FE02                 Lea.L     $-1FE(A6), A2
A20    2F0F                      Move.L    A7, -(A7)
A22    4852                      Pea.L     (A2)
A24    486F 000E                 Pea.L     $E(A7)
A28    486A 0006                 Pea.L     $6(A2)
A2C    4267                      Clr       -(A7)
A2E    42A7                      Clr.L     -(A7)
A30    A8EC                      _CopyBits                 ; Welcome to Macintosh? @sc
A32    DEFC 000E                 AddA      #$E, A7
A36    554F           L86:       SubQ      #$2, A7
A38    42B8 0AF2                 Clr.L     (ResErrProc)
A3C    A995                      _InitResources
A3E    4A5F                      Tst       (A7)+
A40    6B00 0140                 BMI       L97             ; fail; eject disk and wait for a new one @sc
A44    594F                      SubQ      #$4, A7
A46    2F3C 4453 4154            Move.L    #$44534154, -(A7)
A4C    4267                      Clr       -(A7)
A4E    A9A0                      _GetResource
A50    2A1F                      Move.L    (A7)+, D5
A52    6700 0158                 BEQ       L99
A56    2045                      Move.L    D5, A0
A58    21D0 02BA                 Move.L    (A0), (DSAlertTab)
A5C    A8FE           L87:       _InitFonts
A5E    7028                      MoveQ.L   #$28, D0
A60    6100 0150                 Bsr       P6
A64    203C 0000 0600            Move.L    #$600, D0
A6A    322E 0008                 Move      $8(A6), D1
A6E    670A                      BEQ.B     L89
A70    6A04                      BPL.B     L88
A72    7001                      MoveQ.L   #$1, D0
A74    E258                      ROR       #$1, D0
A76    91B8 010C      L88:       Sub.L     D0, (BufPtr)
A7A    04B8 0000 0400 L89:       Sub.L     #$400, (BufPtr)
       010C
A82    43EE 002A                 Lea.L     $2A(A6), A1
A86    6100 0152                 Bsr       P8
A8A    6600 012E                 BNE       L101
A8E    4E91                      Jsr       (A1)
A90    70F6                      MoveQ.L   #$-A, D0
A92    6100 011E                 Bsr       P6
A96    43EE 003A                 Lea.L     $3A(A6), A1
A9A    6100 013E                 Bsr       P8
A9E    6608                      BNE.B     L90
AA0    4E91                      Jsr       (A1)
AA2    70F5                      MoveQ.L   #$-B, D0
AA4    6100 010C                 Bsr       P6
AA8    43F8 0AD8      L90:       Lea.L     (SysResName), A1
AAC    76FF                      MoveQ.L   #$-1, D3
AAE    6100 012C                 Bsr       P9
AB2    6600 0004                 BNE       L91
AB6    4E91                      Jsr       (A1)
AB8    21F8 02A6 02B2 L91:       Move.L    (SysZone), (RAMBase)
ABE    700C                      MoveQ.L   #$C, D0
AC0    A722                      _NewHandleSysClear
AC2    21C8 0AEC                 Move.L    A0, (AppParmHandle)
AC6    A02C                      _InitApplZone
AC8    A04F                      _RDrvrInstall
ACA    2F05                      Move.L    D5, -(A7)
ACC    A9A3                      _ReleaseResource
ACE    7C00                      MoveQ.L   #$0, D6
AD0    48F8 6000 0B36 L92:       MoveM.L   A5-A6, (BootTmp8)
AD6    594F                      SubQ      #$4, A7
AD8    2F3C 494E 4954            Move.L    #$494E4954, -(A7)
ADE    3F06                      Move      D6, -(A7)
AE0    A9A0                      _GetResource
AE2    2E17                      Move.L    (A7), D7
AE4    6700 0096                 BEQ       L96
AE8    A992                      _DetachResource
AEA    2047                      Move.L    D7, A0
AEC    2010                      Move.L    (A0), D0
AEE    C0B8 031A                 And.L     (Lo3Bytes), D0
AF2    2040                      Move.L    D0, A0
AF4    4E90                      Jsr       (A0)
AF6    4CF8 6000 0B36 L93:       MoveM.L   (BootTmp8), A5-A6
AFC    5246                      AddQ      #$1, D6
AFE    0C46 0024                 Cmp       #$24, D6
B02    6DCC                      BLT.B     L92
B04    7002                      MoveQ.L   #$2, D0
B06    4840                      Swap      D0
B08    A44D                      _PurgeMemSys
B0A    486E FE00                 Pea.L     $-200(A6)
B0E    A87D                      _ClosePort
B10    41EE FC00                 Lea.L     $-400(A6), A0
B14    3F7C FFFB 0018            Move      #$-5, $18(A7)
B1A    317C 0009 001A            Move      #$9, $1A(A0)
B20    317C FF01 001C            Move      #$-FF, $1C(A0)
B26    A004                      _Control
B28    43F8 0970                 Lea.L     (ScrapTag), A1
B2C    21C9 096C                 Move.L    A1, (ScrapName)
B30    41EE 006A                 Lea.L     $6A(A6), A0
B34    7010                      MoveQ.L   #$10, D0
B36    A02E                      _BlockMove
B38    41EE 001A                 Lea.L     $1A(A6), A0
B3C    43F8 02E0                 Lea.L     (FinderName), A1
B40    7010                      MoveQ.L   #$10, D0
B42    A02E                      _BlockMove
B44    4278 0900                 Clr       (CurApRefNum)
B48    200C                      Move.L    A4, D0
B4A    6100 0100                 Bsr       P10
B4E    47EE 005A                 Lea.L     $5A(A6), A3     ; get name of initial file to run @sc
B52    6172                      Bsr.B     P7
B54    6708                      BEQ.B     L94
B56    47EE 001A                 Lea.L     $1A(A6), A3
B5A    616A                      Bsr.B     P7              ; get name of Finder @sc
B5C    6618                      BNE.B     L95             ; no Finder on disk; panic @sc
B5E    204F           L94:       Move.L    A7, A0
B60    42A8 0012                 Clr.L     $12(A0)
B64    A014                      _GetVol
B66    31E8 0016 0210            Move      $16(A0), (BootDrive)
B6C    4267                      Clr       -(A7)
B6E    42A7                      Clr.L     -(A7)
B70    2F0B                      Move.L    A3, -(A7)
B72    204F                      Move.L    A7, A0
B74    A9F2                      _Launch                   ; start the Finder @sc
B76    7029           L95:       MoveQ.L   #$29, D0
B78    A9C9                      _SysError
B7A    A9FF                      _Debugger
B7C    584F           L96:       AddQ      #$4, A7
B7E    6000 FF76                 Bra       L93
B82    41EE FC00      L97:       Lea.L     $-400(A6), A0   ; problem booting disk-- eject disk and wait for a new one @sc
B86    3178 0B34 0018            Move      (BtDskRfn), $18(A0)
B8C    317C 0007 001A            Move      #$7, $1A(A0)
B92    3638 0210                 Move      (BootDrive), D3
B96    3143 0016                 Move      D3, $16(A0)
B9A    A004                      _Control
B9C    670A                      BEQ.B     L98
B9E    3038 0B0E                 Move      (BootMask), D0
BA2    0780                      BClr.L    D3, D0
BA4    31C0 0B0E                 Move      D0, (BootMask)
BA8    6000 F7FE      L98:       Bra       E_SoftReset
BAC    7E00           L99:       MoveQ.L   #$0, D7
BAE    6000 FEAC                 Bra       L87

                      P6:
BB2    4A07                      Tst.B     D7
BB4    6702                      BEQ.B     L100
BB6    A9C9                      _SysError
BB8    4E75           L100:      Rts
BBA    06B8 0000 0400 L101:      Add.L     #$400, (BufPtr)
       010C
BC2    6000 FEE4                 Bra       L90

                      P7:
BC6    41EE FC00                 Lea.L     $-400(A6), A0
BCA    4268 0016                 Clr       $16(A0)
BCE    42A8 001A                 Clr.L     $1A(A0)
BD2    214B 0012                 Move.L    A3, $12(A0)
BD6    A00C                      _GetFileInfo
BD8    4E75                      Rts

                      P8:
BDA    7600                      MoveQ.L   #$0, D3

                      P9:
BDC    41EE FC00                 Lea.L     $-400(A6), A0
BE0    74FF                      MoveQ.L   #$-1, D2
BE2    45E8 0012                 Lea.L     $12(A0), A2
BE6    24C9                      Move.L    A1, (A2)+
BE8    429A                      Clr.L     (A2)+
BEA    421A                      Clr.B     (A2)+
BEC    14FC 0001                 Move.B    #$1, (A2)+
BF0    486E 0400                 Pea.L     $400(A6)
BF4    249F                      Move.L    (A7)+, (A2)
BF6    A000                      _Open
BF8    6638                      BNE.B     L104
BFA    A011                      _GetEOF
BFC    662E                      BNE.B     L103
BFE    281A                      Move.L    (A2)+, D4
C00    7C02                      MoveQ.L   #$2, D6
C02    E146                      AsL       #$8, D6
C04    9886                      Sub.L     D6, D4
C06    4A43                      Tst       D3
C08    6B36                      BMI.B     L106
C0A    662A                      BNE.B     L105
C0C    2278 010C                 Move.L    (BufPtr), A1
C10    93C4                      SubA.L    D4, A1
C12    41EE FC00      L102:      Lea.L     $-400(A6), A0
C16    45E8 0020                 Lea.L     $20(A0), A2
C1A    24C9                      Move.L    A1, (A2)+
C1C    24C4                      Move.L    D4, (A2)+
C1E    584A                      AddQ      #$4, A2
C20    34FC 0001                 Move      #$1, (A2)+
C24    2486                      Move.L    D6, (A2)
C26    A002                      _Read
C28    6602                      BNE.B     L103
C2A    7400                      MoveQ.L   #$0, D2
C2C    41EE FC00      L103:      Lea.L     $-400(A6), A0
C30    A001                      _Close
C32    3002           L104:      Move      D2, D0
C34    4E75                      Rts
C36    43EE 0800      L105:      Lea.L     $800(A6), A1
C3A    D886                      Add.L     D6, D4
C3C    7C00                      MoveQ.L   #$0, D6
C3E    60D2                      Bra.B     L102
C40    2004           L106:      Move.L    D4, D0
C42    A11E                      _NewPtr
C44    3400                      Move      D0, D2
C46    66E4                      BNE.B     L103
C48    2248                      Move.L    A0, A1
C4A    60C6                      Bra.B     L102

                      P10:
C4C    4A80                      Tst.L     D0
C4E    6724                      BEQ.B     L107
C50    41EE FC00                 Lea.L     $-400(A6), A0
C54    0C80 0000 0002            Cmp.L     #$2, D0
C5A    6718                      BEQ.B     L107
C5C    2140 0030                 Move.L    D0, $30(A0)
C60    42A8 0012                 Clr.L     $12(A0)
C64    217C 4552 494B            Move.L    #$4552494B, $1C(A0)
       001C
C6C    7001                      MoveQ.L   #$1, D0
C6E    A260                      _HFSDispatch
C70    6602                      BNE.B     L107
C72    A015                      _SetVol
C74    4E75           L107:      Rts

                      L108:
C76    70FF                      MoveQ.L   #$-1, D0
C78    4E75                      Rts
                      P_tInitFS:
C7A    4A78 03F6                 Tst       (FSFCBLen)
C7E    6A00 00C8                 BPL       L113
C82    31FC 005E 03F6            Move      #$5E, (FSFCBLen)
C88    41F8 0340                 Lea.L     (CkdDB), A0
C8C    7250                      MoveQ.L   #$50, D1
C8E    4258           L109:      Clr       (A0)+
C90    51C9 FFFC                 DBF       D1, L109
C94    31FC 0002 034C            Move      #$2, (DrMstrBlk)
C9A    0C78 0002 0108            Cmp       #$2, (MemTop)
CA0    6F02                      BLE.B     L110
CA2    E548                      LsL       #$2, D0
CA4    3400           L110:      Move      D0, D2
CA6    C0FC 005E                 MulU      #$5E, D0
CAA    5440                      AddQ      #$2, D0
CAC    3200                      Move      D0, D1
CAE    A71E                      _NewPtrSysClear
CB0    66C4                      BNE.B     L108
CB2    3081                      Move      D1, (A0)
CB4    21C8 034E                 Move.L    A0, (FCBSPtr)
CB8    C4FC 0010                 MulU      #$10, D2
CBC    2002                      Move.L    D2, D0
CBE    5440                      AddQ      #$2, D0
CC0    3200                      Move      D0, D1
CC2    A71E                      _NewPtrSysClear
CC4    66B0                      BNE.B     L108
CC6    3081                      Move      D1, (A0)
CC8    21C8 0372                 Move.L    A0, (WDCBsPtr)
CCC    2478 0286                 Move.L    (SwitcherTPtr), A2
CD0    3548 0014                 Move      A0, $14(A2)
CD4    3541 0016                 Move      D1, $16(A2)
CD8    203C 0000 0510            Move.L    #$510, D0
CDE    A71E                      _NewPtrSysClear
CE0    6694                      BNE.B     L108
CE2    D0FC 0500                 AddA      #$500, A0
CE6    21C8 036A                 Move.L    A0, (HFSVars_HFSStkTop)
CEA    7038                      MoveQ.L   #$38, D0
CEC    A71E                      _NewPtrSysClear
CEE    6686                      BNE.B     L108
CF0    3548 0018                 Move      A0, $18(A2)
CF4    5C88                      AddQ      #$6, A0
CF6    7032                      MoveQ.L   #$32, D0
CF8    3080                      Move      D0, (A0)
CFA    21C8 0386                 Move.L    A0, (PMSPPtr)
CFE    323C 0200                 Move      #$200, D1
D02    7001                      MoveQ.L   #$1, D0
D04    4EBA 6C94                 Jsr       P_mInitCache
D08    6600 FF6C                 BNE       L108
D0C    21C9 0378                 Move.L    A1, (SysBMCPtr)
D10    7001                      MoveQ.L   #$1, D0
D12    0C78 0002 0108            Cmp       #$2, (MemTop)
D18    6F02                      BLE.B     L111
D1A    7002                      MoveQ.L   #$2, D0
D1C    4EBA 6C7C      L111:      Jsr       P_mInitCache
D20    6600 FF54                 BNE       L108
D24    21C9 037C                 Move.L    A1, (SysVolCPtr)
D28    7004                      MoveQ.L   #$4, D0
D2A    0C78 0002 0108            Cmp       #$2, (MemTop)
D30    6F02                      BLE.B     L112
D32    7010                      MoveQ.L   #$10, D0
D34    4EBA 6C64      L112:      Jsr       P_mInitCache
D38    6600 FF3C                 BNE       L108
D3C    21C9 0380                 Move.L    A1, (SysCtlCPtr)
D40    41FA 1D44                 Lea.L     P_mDSHook, A0
D44    21C8 03EA                 Move.L    A0, (DskSwtchHook)
D48    7000           L113:      MoveQ.L   #$0, D0
D4A    4E75                      Rts

                      P_tInitEvents:
D4C    3400                      Move      D0, D2
D4E    7016                      MoveQ.L   #$16, D0
D50    C0C2                      MulU      D2, D0
D52    2200                      Move.L    D0, D1
D54    A71E                      _NewPtrSysClear
D56    43F8 0154                 Lea.L     (EvtBufCnt), A1
D5A    5342                      SubQ      #$1, D2
D5C    3282                      Move      D2, (A1)
D5E    42A1                      Clr.L     -(A1)
D60    42A1                      Clr.L     -(A1)
D62    4261                      Clr       -(A1)
D64    2308                      Move.L    A0, -(A1)
D66    4658           L114:      Not       (A0)+
D68    5541                      SubQ      #$2, D1
D6A    66FA                      BNE.B     L114
D6C    333C FFEF                 Move      #$-11, -(A1)
D70    4278 0184                 Clr       (KeyLast)
D74    4E75                      Rts

                      P_ChecksumRomAndTestMemory:
                      ; return address in A6
D76    7001                      MoveQ.L   #$1, D0
D78    2840                      Move.L    D0, A4          ; A4 holds test number, test 1 is ROM checksum @sc
D7A    7000                      MoveQ.L   #$0, D0
D7C    7200                      MoveQ.L   #$0, D1
D7E    41F9 0040 0000            Lea.L     ($400000), A0
D84    2618                      Move.L    (A0)+, D3
D86    343C FFFD                 Move      #$-3, D2
D8A    3018           L116:      Move      (A0)+, D0
D8C    D280                      Add.L     D0, D1
D8E    51CA FFFA                 DBF       D2, L116
D92    B781                      Eor.L     D3, D1
D94    3001                      Move      D1, D0
D96    4841                      Swap      D1
D98    8240                      Or        D0, D1
D9A    6600 009A                 BNE       L125            ; perform ROM checksum comparison @sc
D9E    524C                      AddQ      #$1, A4         ; begin test 2: memory test, bus subtest. Checks if any address lines are stuck? @sc
DA0    4253                      Clr       (A3)
DA2    70FF                      MoveQ.L   #$-1, D0
DA4    7202                      MoveQ.L   #$2, D1
DA6    760F                      MoveQ.L   #$F, D3
DA8    244B           L117:      Move.L    A3, A2
DAA    D5C1                      AddA.L    D1, A2
DAC    D281                      Add.L     D1, D1
DAE    3480                      Move      D0, (A2)
DB0    4A53                      Tst       (A3)
DB2    660A                      BNE.B     L118
DB4    4253                      Clr       (A3)
DB6    B152                      Eor       D0, (A2)
DB8    56CB FFEE                 DBNE      D3, L117
DBC    6704                      BEQ.B     L119
DBE    3213           L118:      Move      (A3), D1        ; fail @sc
DC0    6074                      Bra.B     L125
DC2    244B           L119:      Move.L    A3, A2
DC4    D5C1                      AddA.L    D1, A2
DC6    4253                      Clr       (A3)
DC8    3480                      Move      D0, (A2)        ; write next power of two memory location @sc
DCA    4A53                      Tst       (A3)
DCC    662E                      BNE.B     L123            ; overwrote address zero-- found start of RAM mirroring @sc
DCE    244B                      Move.L    A3, A2
DD0    E581                      AsL.L     #$2, D1
DD2    7401                      MoveQ.L   #$1, D2
DD4    7605           L120:      MoveQ.L   #$5, D3
DD6    4642           L121:      Not       D2
DD8    3482                      Move      D2, (A2)
DDA    B452                      Cmp       (A2), D2
DDC    56CB FFF8                 DBNE      D3, L121
DE0    661A                      BNE.B     L123
DE2    224B                      Move.L    A3, A1
DE4    7600                      MoveQ.L   #$0, D3
DE6    5243           L122:      AddQ      #$1, D3
DE8    B651                      Cmp       (A1), D3
DEA    6610                      BNE.B     L123
DEC    D3C1                      AddA.L    D1, A1
DEE    B443                      Cmp       D3, D2
DF0    6EF4                      BGT.B     L122
DF2    D5C1                      AddA.L    D1, A2
DF4    5242                      AddQ      #$1, D2
DF6    0C42 0008                 Cmp       #$8, D2
DFA    6FD8                      BLE.B     L120
DFC    524C           L123:      AddQ      #$1, A4
DFE    7000                      MoveQ.L   #$0, D0
E00    0CAB 0040 0000            Cmp.L     #$400000, $2AE(A3)
       02AE
E08    6722                      BEQ.B     L124
E0A    4A06                      Tst.B     D6
E0C    6A1E                      BPL.B     L124
E0E    41FA 009C                 Lea.L     DT6, A0
E12    4BFA 0004                 Lea.L     E_31, A5
E16    6024                      Bra.B     L126            ; Call with return address in A5
E18    41FA 0096      E_31:      Lea.L     DT8, A0
E1C    4BFA 0004                 Lea.L     E_32, A5
E20    601A                      Bra.B     L126            ; Call with return address in A5
E22    41FA 008A      E_32:      Lea.L     DT7, A0
E26    4BFA 0004                 Lea.L     L124, A5
E2A    6010                      Bra.B     L126
E2C    2A4A           L124:      Move.L    A2, A5
E2E    7200                      MoveQ.L   #$0, D1
E30    3200                      Move      D0, D1
E32    4840                      Swap      D0
E34    8240                      Or        D0, D1
E36    200D           L125:      Move.L    A5, D0          ; done with tests, D1 should be zero if successful, A3 = start of RAM? D0 = end of RAM? @sc
E38    4A41                      Tst       D1
E3A    4ED6                      Jmp       (A6)

                      L126:
                      ; return address in A5
E3C    220A                      Move.L    A2, D1
E3E    928B                      Sub.L     A3, D1
E40    2401                      Move.L    D1, D2
E42    4242                      Clr       D2
E44    4842                      Swap      D2
E46    7600                      MoveQ.L   #$0, D3
E48    3601                      Move      D1, D3
E4A    D483                      Add.L     D3, D2
E4C    84FC 0003                 DivU      #$3, D2
E50    4242                      Clr       D2
E52    4842                      Swap      D2
E54    260A                      Move.L    A2, D3
E56    5582                      SubQ      #$2, D2
E58    D482                      Add.L     D2, D2
E5A    D682                      Add.L     D2, D3
E5C    D282                      Add.L     D2, D1
E5E    3E01                      Move      D1, D7
E60    4241                      Clr       D1
E62    4841                      Swap      D1
E64    82FC 000C                 DivU      #$C, D1
E68    4841                      Swap      D1
E6A    4847                      Swap      D7
E6C    3E01                      Move      D1, D7
E6E    4847                      Swap      D7
E70    8EFC 000C                 DivU      #$C, D7
E74    3207                      Move      D7, D1
E76    2E01                      Move.L    D1, D7
E78    E289                      LsR.L     #$1, D1
E7A    2243                      Move.L    D3, A1
E7C    4CD0 007C                 MoveM.L   (A0), D2-D6
E80    204B                      Move.L    A3, A0
E82    48D0 001C      L127:      MoveM.L   D2-D4, (A0)
E86    D0FC 000C                 AddA      #$C, A0
E8A    48E1 0E00                 MoveM.L   D4-D6, -(A1)
E8E    5381                      SubQ      #$1, D1
E90    6AF0                      BPL.B     L127
E92    204B                      Move.L    A3, A0
E94    2207                      Move.L    D7, D1
E96    4CD8 00E0      L128:      MoveM.L   (A0)+, D5-D7
E9A    B585                      Eor.L     D2, D5
E9C    B786                      Eor.L     D3, D6
E9E    B987                      Eor.L     D4, D7
EA0    8C85                      Or.L      D5, D6
EA2    8E86                      Or.L      D6, D7
EA4    8087                      Or.L      D7, D0
EA6    5381                      SubQ      #$1, D1
EA8    6EEC                      BGT.B     L128
EAA    4ED5                      Jmp       (A5)

                      DT6:
EAC    DB6D                      DC.B      ' m'

                      DT7:
EAE    B6DB                      DC.B      '  '

                      DT8:
EB0    6DB6 DB6D B6DB            DC.B      'm  m  '
EB6    6DB6 DB6D B6DB            DC.B      'm  m  '
EBC    6DB6 DB6D B6DB            DC.B      'm  m  '
EC2    6DB6                      DC.B      'm '

                      P_tPutIcon:
                      ; return address in A6
EC4    760F                      MoveQ.L   #$F, D3
EC6    204A                      Move.L    A2, A0
EC8    7403                      MoveQ.L   #$3, D2
ECA    383C 0100      L129:      Move      #$100, D4
ECE    181C                      Move.B    (A4)+, D4
ED0    E24C           L130:      LsR       #$1, D4
ED2    6714                      BEQ.B     L133
ED4    6404                      BCC.B     L131
ED6    421A                      Clr.B     (A2)+
ED8    6002                      Bra.B     L132
EDA    14DC           L131:      Move.B    (A4)+, (A2)+
EDC    51CA FFF2      L132:      DBF       D2, L130
EE0    D4FC 003C                 AddA      #$3C, A2
EE4    7403                      MoveQ.L   #$3, D2
EE6    60E8                      Bra.B     L130
EE8    51CB FFE0      L133:      DBF       D3, L129
EEC    2248                      Move.L    A0, A1
EEE    761E                      MoveQ.L   #$1E, D3
EF0    D2FC 0040      L134:      AddA      #$40, A1
EF4    2810                      Move.L    (A0), D4
EF6    B991                      Eor.L     D4, (A1)
EF8    2049                      Move.L    A1, A0
EFA    51CB FFF4                 DBF       D3, L134
EFE    4ED6                      Jmp       (A6)

                      L135:
                      ; return address in A5
F00    41FA 00E4                 Lea.L     DT_mSadMac, A0
F04    49FA 0038      L136:      Lea.L     DT9, A4
F08    2E08                      Move.L    A0, D7
F0A    247C 003F CB5E            Move.L    #$3FCB5E, A2
F10    4DFA 0004                 Lea.L     E_34, A6
F14    60AE                      Bra.B     P_tPutIcon      ; Call with return address in A6
F16    247C 003F CCDF E_34:      Move.L    #$3FCCDF, A2
F1C    2847                      Move.L    D7, A4
F1E    4DFA 0006                 Lea.L     E_35, A6
F22    6000 000A                 Bra       P_mPutSymbol    ; Call with return address in A6
F26    4ED5           E_35:      Jmp       (A5)

                      P_ShowHappyMac:
                      ; return address in A5
F28    41FA 00A8                 Lea.L     DT_mHappyMac, A0
F2C    60D6                      Bra.B     L136

                      P_mPutSymbol:
                      ; return address in A6
F2E    7409                      MoveQ.L   #$9, D2
F30    14DC           L139:      Move.B    (A4)+, (A2)+
F32    14DC                      Move.B    (A4)+, (A2)+
F34    D4FC 003E                 AddA      #$3E, A2
F38    51CA FFF6                 DBF       D2, L139
F3C    4ED6                      Jmp       (A6)

                      DT9:
F3E    0057 FFFF D5FF            DC.B      ' W    '
F44    FFFF FF06 F83F            DC.B      '     ?'
F4A    E1FF FF0F 60E3            DC.B      '    ` '
F50    FFFF 8FE0 0F66            DC.B      '     f'
F56    E00F E00F 66E0            DC.B      '    f '
F5C    0FE0 0F66 E00F            DC.B      '   f  '
F62    E00F 66E0 0FE0            DC.B      '  f   '
F68    0F66 E00F E00F            DC.B      ' f    '
F6E    06E0 0FE3 FFFF            DC.B      '      '
F74    8F60 E1FF FF0F            DC.B      ' `    '
F7A    E00F 66E0 0FE0            DC.B      '  f   '
F80    0F22 E33F 0FE3            DC.B      ' " ?  '
F86    3F0F 66E0 0FE0            DC.B      '? f   '
F8C    0F06 E00F FFFF            DC.B      '      '
F92    FFFF 60F7 FFFF            DC.B      '  `   '
F98    DFF0 1F06 F01F            DC.B      '      '
F9E    F7FF FFDF                 DC.B      '    '

                      DT10:
FA2    007F FFFF F5FE            DC.B      '      '
FA8    FFFE FF33 700F            DC.B      '   3p '
FAE    F807 F703 FFBB            DC.B      '      '
FB4    F870 9801 FFFF            DC.B      ' p    '
FBA    FFFE FF00 07FF            DC.B      '      '
FC0    FFE0 0FFF FFF0            DC.B      '      '
FC6    FFFF FFFF FFFF            DC.B      '      '
FCC    FF0F 77FF FFEF            DC.B      '  w   '

                      DT_mHappyMac:
FD2    0000 1110 1110            DC.B      '      '
FD8    0100 0100 0300            DC.B      '      '
FDE    0000 0840 0780            DC.B      '   @  '
FE4    0000                      DC.B      '  '

                      DT_mSadMac:
FE6    2828 1010 2828            DC.B      '((  (('
FEC    0000 0480 0300            DC.B      '      '
FF2    0000 0FC0 1030            DC.B      '     0'
FF8    0008                      DC.B      '  '

                      DT_mQMark:
FFA    0000 0000 07E0            DC.B      '      '
1000   0FF0 0C30 0C30            DC.B      '   0 0'
1006   0070 00E0 01C0            DC.B      ' p    '
100C   0180 0180 0000            DC.B      '      '
1012   0180 0180 0000            DC.B      '      '

                      DT_mXMark:
1018   0000 0000 1008            DC.B      '      '
101E   381C 1C38 0E70            DC.B      '8  8 p'
1024   07E0 03C0 03C0            DC.B      '      '
102A   07E0 0E70 1C38            DC.B      '   p 8'
1030   381C 1008 0000            DC.B      '8     '

                      P_mSysErrInit:
                      ; return address in A6
                      ; init 680x0 vector table
1036   91C8                      SubA.L    A0, A0
1038   5088                      AddQ      #$8, A0
103A   43FA 00EC                 Lea.L     P_mGenExcps, A1
103E   7009                      MoveQ.L   #$9, D0
1040   20C9           L141:      Move.L    A1, (A0)+
1042   5489                      AddQ      #$2, A1
1044   51C8 FFFA                 DBF       D0, L141
1048   700C                      MoveQ.L   #$C, D0
104A   20C9           L142:      Move.L    A1, (A0)+
104C   51C8 FFFC                 DBF       D0, L142
1050   45FA 00EE                 Lea.L     P_mIRQexception, A2
1054   7006                      MoveQ.L   #$6, D0
1056   20CA           L143:      Move.L    A2, (A0)+
1058   51C8 FFFC                 DBF       D0, L143
105C   701F                      MoveQ.L   #$1F, D0
105E   20C9           L144:      Move.L    A1, (A0)+
1060   51C8 FFFC                 DBF       D0, L144
1064   41F9 003F FC80            Lea.L     ($3FFC80), A0
106A   701F                      MoveQ.L   #$1F, D0
106C   4298           L145:      Clr.L     (A0)+
106E   51C8 FFFC                 DBF       D0, L145
1072   41FA 076C                 Lea.L     E_61, A0
1076   21C8 0120                 Move.L    A0, (MacJmp)
107A   08F8 0005 0120            BSet.B    #$5, (MacJmp)
1080   4ED6                      Jmp       (A6)

                      P_mDebugger:
1082   48F9 FFFF 003F            MoveM.L   D0-D7/A0-A7, ($3FFC80)
       FC80
108A   08F8 0007 0120            BSet.B    #$7, (MacJmp)
1090   4E56 0000                 Link      A6, #$0
1094   41EE 0008                 Lea.L     $8(A6), A0
1098   3018                      Move      (A0)+, D0
109A   33D8 003F FCCA            Move      (A0)+, ($3FFCCA)
10A0   6128                      Bsr.B     P_mDebugProlog
10A2   6F08                      BLE.B     L146
10A4   08C0 000F                 BSet.B    #$F, D0
10A8   4E91                      Jsr       (A1)
10AA   6002                      Bra.B     L147
10AC   70F8           L146:      MoveQ.L   #$-8, D0
10AE   4E5E           L147:      Unlk      A6
10B0   4CF9 FFFF 003F            MoveM.L   ($3FFC80), D0-D7/A0-A7
       FC80
10B8   205F                      Move.L    (A7)+, A0
10BA   DEF9 003F FCCA            AddA      ($3FFCCA), A7
10C0   588F                      AddQ      #$4, A7
10C2   08B8 0007 0120            BClr.B    #$7, (MacJmp)
10C8   4ED0                      Jmp       (A0)

                      P_mDebugProlog:
10CA   2438 0120                 Move.L    (MacJmp), D2
10CE   C4B8 031A                 And.L     (Lo3Bytes), D2
10D2   2242                      Move.L    D2, A1
10D4   1638 0120                 Move.B    (MacJmp), D3
10D8   D603                      Add.B     D3, D3
10DA   4E75                      Rts

                      P_mToDeepShit:
10DC   46FC 2700                 Move      #$2700, SR
10E0   4A38 0120                 Tst.B     (MacJmp)
10E4   6B08                      BMI.B     L148
10E6   48F9 FFFF 003F            MoveM.L   D0-D7/A0-A7, ($3FFC80)
       FC80
10EE   41FA 0038      L148:      Lea.L     P_mGenExcps, A0
10F2   201F                      Move.L    (A7)+, D0
10F4   9088                      Sub.L     A0, D0
10F6   E248                      LsR       #$1, D0
10F8   4A38 012F                 Tst.B     (CPUFlag)
10FC   6612                      BNE.B     L149
10FE   0C40 0002                 Cmp       #$2, D0
1102   6E0C                      BGT.B     L149
1104   23DF 003F FCCC            Move.L    (A7)+, ($3FFCCC)
110A   23DF 003F FCD0            Move.L    (A7)+, ($3FFCD0)
1110   4A38 0120      L149:      Tst.B     (MacJmp)
1114   6B0E                      BMI.B     L150
1116   33DF 003F FCC4            Move      (A7)+, ($3FFCC4)
111C   23DF 003F FCC0            Move.L    (A7)+, ($3FFCC0)
1122   6002                      Bra.B     L151
1124   5C8F           L150:      AddQ      #$6, A7
1126   6036           L151:      Bra.B     P_mSysErr2

                      P_mGenExcps:
1128   61B2                      Bsr.B     P_mToDeepShit

                      E_38:
112A   61B0                      Bsr.B     P_mToDeepShit

                      E_39:
112C   61AE                      Bsr.B     P_mToDeepShit

                      E_40:
112E   61AC                      Bsr.B     P_mToDeepShit

                      E_41:
1130   61AA                      Bsr.B     P_mToDeepShit

                      E_42:
1132   61A8                      Bsr.B     P_mToDeepShit

                      E_43:
1134   61A6                      Bsr.B     P_mToDeepShit

                      E_44:
1136   61A4                      Bsr.B     P_mToDeepShit

                      E_45:
1138   61A2                      Bsr.B     P_mToDeepShit

                      E_46:
113A   61A0                      Bsr.B     P_mToDeepShit

                      E_47:
113C   619E                      Bsr.B     P_mToDeepShit

                      E_48:
113E   619C                      Bsr.B     P_mToDeepShit

                      P_mIRQexception:
1140   619A                      Bsr.B     P_mToDeepShit

                      P_tSysError:
1142   48F9 FFFF 003F            MoveM.L   D0-D7/A0-A7, ($3FFC80)
       FC80
114A   40F9 003F FCC4            Move      SR, ($3FFCC4)
1150   23DF 003F FCC0            Move.L    (A7)+, ($3FFCC0)
1156   4A38 012F                 Tst.B     (CPUFlag)
115A   6702                      BEQ.B     P_mSysErr2
115C   4267                      Clr       -(A7)
                      P_mSysErr2:
115E   4A38 0120                 Tst.B     (MacJmp)
1162   6B06                      BMI.B     L153
1164   23CF 003F FCBC            Move.L    A7, ($3FFCBC)
116A   08F8 0007 0120 L153:      BSet.B    #$7, (MacJmp)
1170   31C0 0AF0                 Move      D0, (DSErrCode)
1174   6100 FF54                 Bsr       P_mDebugProlog
1178   6A02                      BPL.B     L154
117A   660E                      BNE.B     L156
117C   0C40 000D      L154:      Cmp       #$D, D0
1180   6604                      BNE.B     L155
1182   7000                      MoveQ.L   #$0, D0
1184   6004                      Bra.B     L156
1186   43FA 00AC      L155:      Lea.L     P_mDSErrorHandler, A1
118A   4E91           L156:      Jsr       (A1)
118C   4A40                      Tst       D0
118E   66F6                      BNE.B     L155
1190   08B8 0007 0120            BClr.B    #$7, (MacJmp)
1196   4CF9 FFFF 003F            MoveM.L   ($3FFC80), D0-D7/A0-A7
       FC80
119E   2F39 003F FCC0            Move.L    ($3FFCC0), -(A7)
11A4   3F39 003F FCC4            Move      ($3FFCC4), -(A7)
11AA   4E73                      Rte

                      P_mAllocFakeRgns:
11AC   43EE 0018                 Lea.L     $18(A6), A1
11B0   41EE 006C                 Lea.L     $6C(A6), A0
11B4   22C8                      Move.L    A0, (A1)+
11B6   5848                      AddQ      #$4, A0
11B8   22C8                      Move.L    A0, (A1)+
11BA   43F8 01E4                 Lea.L     (Scratch20), A1
11BE   2089                      Move.L    A1, (A0)
11C0   5948                      SubQ      #$4, A0
11C2   2089                      Move.L    A1, (A0)

                      P14:
11C4   43F8 01E4                 Lea.L     (Scratch20), A1
11C8   41FA 0008                 Lea.L     DT15, A0
11CC   700A                      MoveQ.L   #$A, D0
11CE   A02E                      _BlockMove
11D0   4E75                      Rts

                      DT15:
11D2   000A 8001 8001            DC.B      '      '
11D8   7FFF 7FFF                 DC.B      '    '

                      P_tSysBeep:
11DC   48E7 FF7E                 MoveM.L   D0-D7/A1-A6, -(A7)
11E0   4A38 027E                 Tst.B     (SoundActive)
11E4   6606                      BNE.B     L157
11E6   4A38 0260                 Tst.B     (SdVolume)
11EA   6614                      BNE.B     L158
11EC   4A38 08F2      L157:      Tst.B     (WWExist)
11F0   661A                      BNE.B     L159
11F2   42A7                      Clr.L     -(A7)
11F4   A94C                      _FlashMenuBar
11F6   91C8                      SubA.L    A0, A0
11F8   5048                      AddQ      #$8, A0
11FA   A03B                      _Delay
11FC   A94C                      _FlashMenuBar
11FE   600C                      Bra.B     L159
1200   362F 003C      L158:      Move      $3C(A7), D3
1204   4DFA 0006                 Lea.L     L159, A6
1208   6000 F080                 Bra       P_mBootBeep
120C   4CDF 7EFF      L159:      MoveM.L   (A7)+, D0-D7/A1-A6
1210   205F                      Move.L    (A7)+, A0
1212   544F                      AddQ      #$2, A7
1214   4ED0                      Jmp       (A0)

                      P15:
1216   41F8 03F8                 Lea.L     (DSAlertRect), A0
121A   43F8 01E6                 Lea.L     (Scratch20.2), A1
121E   7008                      MoveQ.L   #$8, D0
1220   A02E                      _BlockMove
1222   2F09                      Move.L    A1, -(A7)
1224   0891 0007                 BClr.B    #$7, (A1)
1228   2055                      Move.L    (A5), A0
122A   2050                      Move.L    (A0), A0
122C   2F28 0008                 Move.L    $8(A0), -(A7)
1230   A8A8                      _OffsetRect
1232   4E75                      Rts

                      P_mDSErrorHandler:
1234   46FC 2000                 Move      #$2000, SR
1238   3F38 0A5A                 Move      (CurMap), -(A7)
123C   31F8 0A58 0A5A            Move      (SysMap), (CurMap)
1242   4BEF FFFC                 Lea.L     $-4(A7), A5
1246   9EFC 015A                 SubA      #$15A, A7
124A   2C4F                      Move.L    A7, A6
124C   486D FFFC                 Pea.L     $-4(A5)
1250   1638 08F3                 Move.B    (QDExist), D3
1254   A86E                      _InitGraf
1256   11C3 08F3                 Move.B    D3, (QDExist)
125A   6100 FF50                 Bsr       P_mAllocFakeRgns
125E   2F0E                      Move.L    A6, -(A7)
1260   A86D                      _InitPort
1262   3F38 0AF0                 Move      (DSErrCode), -(A7)
1266   2E38 02BA                 Move.L    (DSAlertTab), D7
126A   660C                      BNE.B     L160
126C   321F                      Move      (A7)+, D1
126E   387C 000F                 Move      #$F, A4
1272   97CB                      SubA.L    A3, A3
1274   6000 EEC0                 Bra       P_mCritErr
1278   3017           L160:      Move      (A7), D0
127A   6B0C                      BMI.B     L161
127C   0C40 000D                 Cmp       #$D, D0
1280   6700 01D0                 BEQ       L183
1284   6100 00B4                 Bsr       P18
1288   618C           L161:      Bsr.B     P15
128A   301F                      Move      (A7)+, D0
128C   6156                      Bsr.B     P16
128E   6604                      BNE.B     L162
1290   2047                      Move.L    D7, A0
1292   5C88                      AddQ      #$6, A0
1294   2648           L162:      Move.L    A0, A3
1296   6168                      Bsr.B     P17
1298   6166                      Bsr.B     P17
129A   301B                      Move      (A3)+, D0
129C   6712                      BEQ.B     L163
129E   6144                      Bsr.B     P16
12A0   670E                      BEQ.B     L163
12A2   4868 0008                 Pea.L     $8(A0)
12A6   2F08                      Move.L    A0, -(A7)
12A8   486F 0004                 Pea.L     $4(A7)
12AC   A94B                      _PlotIcon
12AE   584F                      AddQ      #$4, A7
12B0   301B           L163:      Move      (A3)+, D0
12B2   6706                      BEQ.B     L164
12B4   612E                      Bsr.B     P16
12B6   6702                      BEQ.B     L164
12B8   4E90                      Jsr       (A0)
12BA   301B           L164:      Move      (A3)+, D0
12BC   670E                      BEQ.B     L166
12BE   4AB8 0A8C                 Tst.L     (ResumeProc)
12C2   6702                      BEQ.B     L165
12C4   5240                      AddQ      #$1, D0
12C6   6100 00DC      L165:      Bsr       P21
12CA   6610                      BNE.B     L167
12CC   6100 FEF6      L166:      Bsr       P14
12D0   DEFC 015A                 AddA      #$15A, A7
12D4   31DF 0A5A                 Move      (A7)+, (CurMap)
12D8   7000                      MoveQ.L   #$0, D0
12DA   4E75                      Rts
12DC   2F08           L167:      Move.L    A0, -(A7)
12DE   6100 FEE4                 Bsr       P14
12E2   4E75                      Rts

                      P16:
12E4   2047                      Move.L    D7, A0
12E6   3218                      Move      (A0)+, D1
12E8   6006                      Bra.B     L169
12EA   B058           L168:      Cmp       (A0)+, D0
12EC   670C                      BEQ.B     L170
12EE   D0D8                      AddA      (A0)+, A0
12F0   51C9 FFF8      L169:      DBF       D1, L168
12F4   7000                      MoveQ.L   #$0, D0
12F6   91C8                      SubA.L    A0, A0
12F8   4E75                      Rts
12FA   70FF           L170:      MoveQ.L   #$-1, D0
12FC   5448                      AddQ      #$2, A0
12FE   4E75                      Rts

                      P17:
1300   301B                      Move      (A3)+, D0
1302   6734                      BEQ.B     L173
1304   61DE                      Bsr.B     P16
1306   6730                      BEQ.B     L173
1308   2618                      Move.L    (A0)+, D3
130A   2448                      Move.L    A0, A2
130C   1018           L171:      Move.B    (A0)+, D0
130E   6706                      BEQ.B     L172
1310   0C00 002F                 Cmp.B     #$2F, D0
1314   66F6                      BNE.B     L171
1316   1F00           L172:      Move.B    D0, -(A7)
1318   2F0A                      Move.L    A2, -(A7)
131A   4267                      Clr       -(A7)
131C   2008                      Move.L    A0, D0
131E   908A                      Sub.L     A2, D0
1320   5340                      SubQ      #$1, D0
1322   2448                      Move.L    A0, A2
1324   3F00                      Move      D0, -(A7)
1326   2F03                      Move.L    D3, -(A7)
1328   A893                      _MoveTo
132A   A885                      _DrawText
132C   0683 000E 0000            Add.L     #$E0000, D3
1332   204A                      Move.L    A2, A0
1334   101F                      Move.B    (A7)+, D0
1336   66D4                      BNE.B     L171
1338   4E75           L173:      Rts

                      P18:
133A   2038 0334                 Move.L    (DSDrawProc), D0
133E   6F0A                      BLE.B     L174
1340   2F00                      Move.L    D0, -(A7)
1342   08F8 0007 0334            BSet.B    #$7, (DSDrawProc)
1348   4E75                      Rts
134A   41F8 03F8      L174:      Lea.L     (DSAlertRect), A0
134E   0838 0007 03F8            BTst.B    #$7, (DSAlertRect)
1354   6718                      BEQ.B     L175

                      P19:
1356   20FC 0040 0020            Move.L    #$400020, (A0)+
135C   20BC 00BE 01E0            Move.L    #$BE01E0, (A0)
1362   5988                      SubQ      #$4, A0
1364   6112                      Bsr.B     P20
1366   08F8 0007 03F8            BSet.B    #$7, (DSAlertRect)
136C   4E75                      Rts
136E   6108           L175:      Bsr.B     P20
1370   2F38 03F8                 Move.L    (DSAlertRect), -(A7)
1374   A877                      _MovePortTo
1376   4E75                      Rts

                      P20:
1378   2F08                      Move.L    A0, -(A7)
137A   2F08                      Move.L    A0, -(A7)
137C   2F08                      Move.L    A0, -(A7)
137E   2F08                      Move.L    A0, -(A7)
1380   2F08                      Move.L    A0, -(A7)
1382   A8A3                      _EraseRect
1384   A8A1                      _FrameRect
1386   2F3C 0002 0002            Move.L    #$20002, -(A7)
138C   A89B                      _PenSize
138E   2F3C 0003 0003            Move.L    #$30003, -(A7)
1394   A8A9                      _InsetRect
1396   A8A1                      _FrameRect
1398   2F3C FFFD FFFD            Move.L    #$FFFDFFFD, -(A7)
139E   A8A9                      _InsetRect
13A0   A89E                      _PenNormal
13A2   4E75           L176:      Rts

                      P21:
13A4   6100 FF3E                 Bsr       P16
13A8   67F8                      BEQ.B     L176
13AA   2448                      Move.L    A0, A2
13AC   3618                      Move      (A0)+, D3
13AE   2648                      Move.L    A0, A3
13B0   2F2B 0002      L177:      Move.L    $2(A3), -(A7)
13B4   0697 000E 0004            Add.L     #$E0004, (A7)
13BA   A893                      _MoveTo
13BC   3013                      Move      (A3), D0
13BE   6100 FF24                 Bsr       P16
13C2   5348                      SubQ      #$1, A0
13C4   2F08                      Move.L    A0, -(A7)
13C6   A884                      _DrawString
13C8   486B 0002                 Pea.L     $2(A3)
13CC   2F3C 0010 0010            Move.L    #$100010, -(A7)
13D2   A8B0                      _FrameRoundRect
13D4   D6FC 000C                 AddA      #$C, A3
13D8   5343                      SubQ      #$1, D3
13DA   66D4                      BNE.B     L177
13DC   2055                      Move.L    (A5), A0
13DE   4868 FF94                 Pea.L     $-6C(A0)
13E2   A851                      _SetCursor
13E4   A853                      _ShowCursor
13E6   46FC 2000                 Move      #$2000, SR
13EA   50F8 08CF                 ST.B      (CrsrCouple)
13EE   4238 0160                 Clr.B     (VBLQueueHdr_Flags)
13F2   0839 0003 00EF L178:      BTst.B    #$3, (VIA_Base)
       E1FE
13FA   66F6                      BNE.B     L178
13FC   264A                      Move.L    A2, A3
13FE   361B                      Move      (A3)+, D3
1400   544B                      AddQ      #$2, A3
1402   6134           L179:      Bsr.B     P22
1404   660A                      BNE.B     L180
1406   D6FC 000C                 AddA      #$C, A3
140A   5343                      SubQ      #$1, D3
140C   66F4                      BNE.B     L179
140E   60E2                      Bra.B     L178
1410   6134           L180:      Bsr.B     P23
1412   7601                      MoveQ.L   #$1, D3
1414   6122           L181:      Bsr.B     P22
1416   B600                      Cmp.B     D0, D3
1418   6706                      BEQ.B     L182
141A   0A43 0001                 Eor       #$1, D3
141E   6126                      Bsr.B     P23
1420   0839 0003 00EF L182:      BTst.B    #$3, (VIA_Base)
       E1FE
1428   67EA                      BEQ.B     L181
142A   4A03                      Tst.B     D3
142C   67C4                      BEQ.B     L178
142E   302B 0008                 Move      $8(A3), D0
1432   6100 FEB0                 Bsr       P16
1436   4E75                      Rts

                      P22:
1438   554F                      SubQ      #$2, A7
143A   2F38 0830                 Move.L    (Mouse_v), -(A7)
143E   2F0B                      Move.L    A3, -(A7)
1440   A8AD                      _PtInRect
1442   101F                      Move.B    (A7)+, D0
1444   4E75                      Rts

                      P23:
1446   2F0B                      Move.L    A3, -(A7)
1448   2F3C 0010 0010            Move.L    #$100010, -(A7)
144E   A8B3                      _InvertRoundRect
1450   4E75                      Rts
1452   548F           L183:      AddQ      #$2, A7
1454   41F8 03F8                 Lea.L     (DSAlertRect), A0
1458   6100 FEFC                 Bsr       P19
145C   2F3C 0046 0026            Move.L    #$460026, -(A7)
1462   A877                      _MovePortTo
1464   6100 FDB0                 Bsr       P15
1468   9EFC 0010                 SubA      #$10, A7
146C   4247                      Clr       D7
146E   42B9 003F FCF8            Clr.L     ($3FFCF8)
1474   42B9 003F FCFC            Clr.L     ($3FFCFC)
147A   2F3C 0011 01B0 L184:      Move.L    #$1101B0, -(A7)
1480   42A7                      Clr.L     -(A7)
1482   6100 0104                 Bsr       P24
1486   4DF9 003F FCF6            Lea.L     ($3FFCF6), A6
148C   7C00                      MoveQ.L   #$0, D6
148E   3D3C 0020      L185:      Move      #$20, -(A6)
1492   5446                      AddQ      #$2, D6
1494   0C46 0022                 Cmp       #$22, D6
1498   66F4                      BNE.B     L185
149A   284E                      Move.L    A6, A4
149C   2F3C 000F 000A            Move.L    #$F000A, -(A7)
14A2   A893                      _MoveTo
14A4   703E                      MoveQ.L   #$3E, D0
14A6   3F00                      Move      D0, -(A7)
14A8   A883                      _DrawChar
14AA   204F           L186:      Move.L    A7, A0
14AC   7008                      MoveQ.L   #$8, D0
14AE   A031                      _GetOSEvent
14B0   66F8                      BNE.B     L186
14B2   202F 0002                 Move.L    $2(A7), D0
14B6   0880 0007                 BClr.B    #$7, D0
14BA   0C00 0061                 Cmp.B     #$61, D0
14BE   6D04                      BLT.B     L187
14C0   0880 0005                 BClr.B    #$5, D0
14C4   0C00 000D      L187:      Cmp.B     #$D, D0
14C8   674C                      BEQ.B     L189
14CA   0C00 0008                 Cmp.B     #$8, D0
14CE   6638                      BNE.B     L188
14D0   B9CE                      CmpA.L    A6, A4
14D2   67D6                      BEQ.B     L186
14D4   5246                      AddQ      #$1, D6
14D6   538E                      SubQ      #$1, A6
14D8   598F                      SubQ      #$4, A7
14DA   2F0F                      Move.L    A7, -(A7)
14DC   A89A                      _GetPen
14DE   2F17                      Move.L    (A7), -(A7)
14E0   558F                      SubQ      #$2, A7
14E2   1016                      Move.B    (A6), D0
14E4   3F00                      Move      D0, -(A7)
14E6   A88D                      _CharWidth
14E8   361F                      Move      (A7)+, D3
14EA   976F 0002                 Sub       D3, $2(A7)
14EE   4257                      Clr       (A7)
14F0   2F0F                      Move.L    A7, -(A7)
14F2   4267                      Clr       -(A7)
14F4   3F3C 0002                 Move      #$2, -(A7)
14F8   A8A8                      _OffsetRect
14FA   6100 008C                 Bsr       P24
14FE   3F03                      Move      D3, -(A7)
1500   4457                      Neg       (A7)
1502   4267                      Clr       -(A7)
1504   A894                      _Move
1506   60A2                      Bra.B     L186
1508   4A46           L188:      Tst       D6
150A   679E                      BEQ.B     L186
150C   5346                      SubQ      #$1, D6
150E   1CC0                      Move.B    D0, (A6)+
1510   3F00                      Move      D0, -(A7)
1512   A883                      _DrawChar
1514   6094                      Bra.B     L186
1516   BDCC           L189:      CmpA.L    A4, A6
1518   6602                      BNE.B     L190
151A   3CC7                      Move      D7, (A6)+
151C   3E1C           L190:      Move      (A4)+, D7
151E   41FA 002C                 Lea.L     DT_DbgCmdTab, A0
1522   3018           L191:      Move      (A0)+, D0
1524   6B22                      BMI.B     L193
1526   3418                      Move      (A0)+, D2
1528   0C00 0040                 Cmp.B     #$40, D0
152C   660E                      BNE.B     L192
152E   1007                      Move.B    D7, D0
1530   0C00 0030                 Cmp.B     #$30, D0
1534   6BEC                      BMI.B     L191
1536   0C00 0037                 Cmp.B     #$37, D0
153A   6EE6                      BGT.B     L191
153C   BE40           L192:      Cmp       D0, D7
153E   66E2                      BNE.B     L191
1540   41FA 000A                 Lea.L     DT_DbgCmdTab, A0
1544   4EB0 2000                 Jsr       $0(A0,D2.W)
1548   6000 FF30      L193:      Bra       L184

                      DT_DbgCmdTab:
154C   4720 0022 444D            DC.B      'G  "DM'
1552   0046 534D 00C6            DC.B      ' FSM  '
1558   5444 00F2 4440            DC.B      'TD  D@'
155E   0100 4140 0108            DC.B      '  A@  '
1564   5043 0110 5352            DC.B      'PC  SR'
156A   0118 FFFF                 DC.B      '    '

                      P_DbgCmd_G:
156E   6100 0158                 Bsr       P31
1572   6708                      BEQ.B     L194
1574   2F00                      Move.L    D0, -(A7)
1576   6100 FC4C                 Bsr       P14
157A   4E75                      Rts
157C   DEFC 0014      L194:      AddA      #$14, A7
1580   4238 015D                 Clr.B     (DSWndUpdate)
1584   6000 FD46                 Bra       L166

                      P24:
1588   245F                      Move.L    (A7)+, A2
158A   2F0F                      Move.L    A7, -(A7)
158C   A8A3                      _EraseRect
158E   508F                      AddQ      #$8, A7
1590   4ED2                      Jmp       (A2)

                      P_DbgCmd_DM:
1592   2F3C 0070 01B0            Move.L    #$7001B0, -(A7)
1598   42A7                      Clr.L     -(A7)
159A   61EC                      Bsr.B     P24
159C   6100 011E                 Bsr       P30
15A0   0880 0000                 BClr.B    #$0, D0
15A4   2640                      Move.L    D0, A3
15A6   23C0 003F FCF8            Move.L    D0, ($3FFCF8)
15AC   7C05                      MoveQ.L   #$5, D6
15AE   7A0F                      MoveQ.L   #$F, D5
15B0   0645 000F      L195:      Add       #$F, D5
15B4   3F3C 000A                 Move      #$A, -(A7)
15B8   3F05                      Move      D5, -(A7)
15BA   A893                      _MoveTo
15BC   200B                      Move.L    A3, D0
15BE   6122                      Bsr.B     P25
15C0   7807                      MoveQ.L   #$7, D4
15C2   7623                      MoveQ.L   #$23, D3
15C4   0643 002D      L196:      Add       #$2D, D3
15C8   3F03                      Move      D3, -(A7)
15CA   3F05                      Move      D5, -(A7)
15CC   A893                      _MoveTo
15CE   301B                      Move      (A3)+, D0
15D0   6116                      Bsr.B     P26
15D2   51CC FFF0                 DBF       D4, L196
15D6   51CE FFD8                 DBF       D6, L195
15DA   23CB 003F FCFC            Move.L    A3, ($3FFCFC)
15E0   4E75                      Rts

                      P25:
15E2   4840                      Swap      D0
15E4   610A                      Bsr.B     P27
15E6   4840                      Swap      D0

                      P26:
15E8   3F00                      Move      D0, -(A7)
15EA   E050                      RXR       #$8, D0
15EC   6102                      Bsr.B     P27
15EE   301F                      Move      (A7)+, D0

                      P27:
15F0   3F00                      Move      D0, -(A7)
15F2   E858                      ROR       #$4, D0
15F4   6102                      Bsr.B     P28
15F6   301F                      Move      (A7)+, D0

                      P28:
15F8   0200 000F                 And.B     #$F, D0
15FC   0000 0030                 Or.B      #$30, D0
1600   0C00 0039                 Cmp.B     #$39, D0
1604   6F02                      BLE.B     L197
1606   5E40                      AddQ      #$7, D0
1608   2F00           L197:      Move.L    D0, -(A7)
160A   3F00                      Move      D0, -(A7)
160C   A883                      _DrawChar
160E   201F                      Move.L    (A7)+, D0
1610   4E75                      Rts

                      P_DbgCmd_FS:
1612   6100 00A8                 Bsr       P30
1616   2240                      Move.L    D0, A1
1618   41F9 003F FCF8            Lea.L     ($3FFCF8), A0
161E   20C0                      Move.L    D0, (A0)+
1620   20C0                      Move.L    D0, (A0)+
1622   3E3C 444D                 Move      #$444D, D7
1626   6100 00A0      L198:      Bsr       P31
162A   6700 FF66                 BEQ       P_DbgCmd_DM
162E   2449                      Move.L    A1, A2
1630   1580 10FF      L199:      Move.B    D0, $-1(A2,D1.W)
1634   E080                      AsR.L     #$8, D0
1636   5289                      AddQ      #$1, A1
1638   5381                      SubQ      #$1, D1
163A   66F4                      BNE.B     L199
163C   60E8                      Bra.B     L198

                      P_DbgCmd_TD:
163E   23FC 003F FC80            Move.L    #$3FFC80, ($3FFCFC)
       003F FCFC
1648   6000 FF48                 Bra       P_DbgCmd_DM

                      P_DbgCmd_D@:
164C   47F9 003F FC80            Lea.L     ($3FFC80), A3
1652   601E                      Bra.B     L200

                      P_DbgCmd_A@:
1654   47F9 003F FCA0            Lea.L     ($3FFCA0), A3
165A   6016                      Bra.B     L200

                      P_DbgCmd_PC:
165C   47F9 003F FCC0            Lea.L     ($3FFCC0), A3
1662   6014                      Bra.B     L201

                      P_DbgCmd_SR:
1664   47F9 003F FCC4            Lea.L     ($3FFCC4), A3
166A   615C                      Bsr.B     P31
166C   6712                      BEQ.B     L202
166E   3680                      Move      D0, (A3)
1670   4E75                      Rts
1672   6134           L200:      Bsr.B     P29
1674   E588                      LsL.L     #$2, D0
1676   D7C0                      AddA.L    D0, A3
1678   614E           L201:      Bsr.B     P31
167A   6706                      BEQ.B     L203
167C   2680                      Move.L    D0, (A3)
167E   4E75                      Rts
1680   7CFF           L202:      MoveQ.L   #$-1, D6
1682   2F3C 0070 01B0 L203:      Move.L    #$7001B0, -(A7)
1688   42A7                      Clr.L     -(A7)
168A   6100 FEFC                 Bsr       P24
168E   2F3C 0030 0010            Move.L    #$300010, -(A7)
1694   A893                      _MoveTo
1696   301B                      Move      (A3)+, D0
1698   4A46                      Tst       D6
169A   6606                      BNE.B     L204
169C   6100 FF4A                 Bsr       P26
16A0   301B                      Move      (A3)+, D0
16A2   6100 FF44      L204:      Bsr       P26
16A6   4E75                      Rts

                      P29:
16A8   0280 0000 00FF            And.L     #$FF, D0
16AE   0C00 0039                 Cmp.B     #$39, D0
16B2   6F02                      BLE.B     L205
16B4   5F00                      SubQ      #$7, D0
16B6   0200 000F      L205:      And.B     #$F, D0
16BA   4E75                      Rts

                      P30:
16BC   610A                      Bsr.B     P31
16BE   6606                      BNE.B     L206
16C0   2039 003F FCFC            Move.L    ($3FFCFC), D0
16C6   4E75           L206:      Rts

                      P31:
16C8   7800                      MoveQ.L   #$0, D4
16CA   7C00                      MoveQ.L   #$0, D6
16CC   7A00           L207:      MoveQ.L   #$0, D5
16CE   4279 003F FCF6            Clr       ($3FFCF6)
16D4   7600                      MoveQ.L   #$0, D3
16D6   7000                      MoveQ.L   #$0, D0
16D8   7200                      MoveQ.L   #$0, D1
16DA   B9CE           L208:      CmpA.L    A6, A4
16DC   6C00 0048                 BGE       L213
16E0   101C           L209:      Move.B    (A4)+, D0
16E2   0C00 0020                 Cmp.B     #$20, D0
16E6   6FF2                      BLE.B     L208
16E8   0C00 0040                 Cmp.B     #$40, D0
16EC   6604                      BNE.B     L210
16EE   5243                      AddQ      #$1, D3
16F0   60EE                      Bra.B     L209
16F2   0C00 002B      L210:      Cmp.B     #$2B, D0
16F6   67E8                      BEQ.B     L209
16F8   0C00 002D                 Cmp.B     #$2D, D0
16FC   6608                      BNE.B     L211
16FE   4639 003F FCF6            Not.B     ($3FFCF6)
1704   60DA                      Bra.B     L209
1706   0C00 0024      L211:      Cmp.B     #$24, D0
170A   6600 0062                 BNE       L221
170E   7000                      MoveQ.L   #$0, D0
1710   101C                      Move.B    (A4)+, D0
1712   6194           L212:      Bsr.B     P29
1714   5245                      AddQ      #$1, D5
1716   E989                      LsL.L     #$4, D1
1718   D280                      Add.L     D0, D1
171A   B9CE                      CmpA.L    A6, A4
171C   6C08                      BGE.B     L213
171E   101C                      Move.B    (A4)+, D0
1720   0C00 0030                 Cmp.B     #$30, D0
1724   6CEC                      BGE.B     L212
1726   4A43           L213:      Tst       D3
1728   670E                      BEQ.B     L215
172A   7A08                      MoveQ.L   #$8, D5
172C   0881 0000      L214:      BClr.B    #$0, D1
1730   2041                      Move.L    D1, A0
1732   2210                      Move.L    (A0), D1
1734   5343                      SubQ      #$1, D3
1736   66F4                      BNE.B     L214
1738   4A39 003F FCF6 L215:      Tst.B     ($3FFCF6)
173E   6702                      BEQ.B     L216
1740   4481                      Neg.L     D1
1742   D881           L216:      Add.L     D1, D4
1744   5245                      AddQ      #$1, D5
1746   E24D                      LsR       #$1, D5
1748   0C45 0004                 Cmp       #$4, D5
174C   6F02                      BLE.B     L217
174E   7A04                      MoveQ.L   #$4, D5
1750   BA46           L217:      Cmp       D6, D5
1752   6F02                      BLE.B     L218
1754   3C05                      Move      D5, D6
1756   0C00 002B      L218:      Cmp.B     #$2B, D0
175A   6706                      BEQ.B     L219
175C   0C00 002D                 Cmp.B     #$2D, D0
1760   6606                      BNE.B     L220
1762   1900           L219:      Move.B    D0, -(A4)
1764   6000 FF66                 Bra       L207
1768   2004           L220:      Move.L    D4, D0
176A   2206                      Move.L    D6, D1
176C   4E75                      Rts
176E   0C00 002E      L221:      Cmp.B     #$2E, D0
1772   6612                      BNE.B     L224
1774   2239 003F FCF8            Move.L    ($3FFCF8), D1
177A   7401                      MoveQ.L   #$1, D2
177C   7A08           L222:      MoveQ.L   #$8, D5
177E   101C           L223:      Move.B    (A4)+, D0
1780   5342                      SubQ      #$1, D2
1782   66FA                      BNE.B     L223
1784   60A0                      Bra.B     L213
1786   3400           L224:      Move      D0, D2
1788   E14A                      LsL       #$8, D2
178A   1414                      Move.B    (A4), D2
178C   0C42 5043                 Cmp       #$5043, D2
1790   660A                      BNE.B     L225
1792   2239 003F FCC0            Move.L    ($3FFCC0), D1
1798   7402                      MoveQ.L   #$2, D2
179A   60E0                      Bra.B     L222
179C   0C00 0052      L225:      Cmp.B     #$52, D0
17A0   6600 FF70                 BNE       L212
17A4   0C02 0041                 Cmp.B     #$41, D2
17A8   6626                      BNE.B     L227
17AA   41F9 003F FCA0            Lea.L     ($3FFCA0), A0
17B0   7400           L226:      MoveQ.L   #$0, D2
17B2   142C 0001                 Move.B    $1(A4), D2
17B6   0442 0030                 Sub       #$30, D2
17BA   6B00 FF56                 BMI       L212
17BE   0C42 0007                 Cmp       #$7, D2
17C2   6E00 FF4E                 BGT       L212
17C6   E54A                      LsL       #$2, D2
17C8   2230 2000                 Move.L    $0(A0,D2.W), D1
17CC   7403                      MoveQ.L   #$3, D2
17CE   60AC                      Bra.B     L222
17D0   0C02 0044      L227:      Cmp.B     #$44, D2
17D4   6600 FF3C                 BNE       L212
17D8   41F9 003F FC80            Lea.L     ($3FFC80), A0
17DE   60D0                      Bra.B     L226

                      E_61:
17E0   0880 000F                 BClr.B    #$F, D0
17E4   6624                      BNE.B     L229
17E6   4A40                      Tst       D0
17E8   6600 003E                 BNE       L231
17EC   7001                      MoveQ.L   #$1, D0
17EE   0838 0000 017B            BTst.B    #$0, (KeyMap.7)
17F4   6702                      BEQ.B     L228
17F6   7002                      MoveQ.L   #$2, D0
17F8   6000 00CE      L228:      Bra       L238

                      P32:
17FC   3F00                      Move      D0, -(A7)
17FE   1001                      Move.B    D1, D0
1800   6100 0134                 Bsr       P35
1804   301F                      Move      (A7)+, D0
1806   6000 0126                 Bra       P34
180A   2448           L229:      Move.L    A0, A2
180C   7202                      MoveQ.L   #$2, D1
180E   61EC                      Bsr.B     P32
1810   3439 003F FCCA            Move      ($3FFCCA), D2
1816   3002                      Move      D2, D0
1818   6100 0114                 Bsr       P34
181C   5342           L230:      SubQ      #$1, D2
181E   6D12                      BLT.B     L233
1820   101A                      Move.B    (A2)+, D0
1822   6100 0112                 Bsr       P35
1826   60F4                      Bra.B     L230
1828   7201           L231:      MoveQ.L   #$1, D1
182A   61D0                      Bsr.B     P32
182C   08F8 0006 0120 L232:      BSet.B    #$6, (MacJmp)
1832   7200           L233:      MoveQ.L   #$0, D1
1834   6100 013A                 Bsr       P39
1838   41FA 000C                 Lea.L     DT17, A0
183C   D040                      Add       D0, D0
183E   D0F0 0000                 AddA      $0(A0,D0.W), A0
1842   4E90                      Jsr       (A0)
1844   60EC                      Bra.B     L233

                      DT17:
1846   000C 0012 0038            DC.B      '     8'
184C   0052 005A 006C            DC.B      ' R Z l'

                      E_62:
1852   7000                      MoveQ.L   #$0, D0
1854   6000 00E0                 Bra       P35

                      E_63:
1858   6100 0108                 Bsr       P37
185C   2440                      Move.L    D0, A2
185E   6100 0102                 Bsr       P37
1862   2400                      Move.L    D0, D2
1864   7003                      MoveQ.L   #$3, D0
1866   6100 00CE                 Bsr       P35
186A   2002                      Move.L    D2, D0
186C   6100 00B6                 Bsr       P33
1870   5382           L234:      SubQ      #$1, D2
1872   6B08                      BMI.B     L235
1874   101A                      Move.B    (A2)+, D0
1876   6100 00BE                 Bsr       P35
187A   60F4                      Bra.B     L234
187C   4E75           L235:      Rts

                      E_64:
187E   6100 00E2                 Bsr       P37
1882   2440                      Move.L    D0, A2
1884   6100 00DC                 Bsr       P37
1888   2400                      Move.L    D0, D2
188A   5382           L236:      SubQ      #$1, D2
188C   6B08                      BMI.B     L237
188E   6100 00E0                 Bsr       P39
1892   14C0                      Move.B    D0, (A2)+
1894   60F4                      Bra.B     L236
1896   4E75           L237:      Rts

                      E_65:
1898   6100 00C8                 Bsr       P37
189C   2040                      Move.L    D0, A0
189E   4ED0                      Jmp       (A0)

                      E_66:
18A0   41FA 00E4                 Lea.L     E_68, A0
18A4   23F8 0028 003F            Move.L    (ATrapVector), ($3FFCDA)
       FCDA
18AC   21C8 0028                 Move.L    A0, (ATrapVector)
18B0   4E75                      Rts

                      E_67:
18B2   588F                      AddQ      #$4, A7
18B4   7000                      MoveQ.L   #$0, D0
18B6   4E75                      Rts

                      DT18:
18B8   044C 0E00 0B50            DC.B      ' L   P'
18BE   0C0A 0D00 0E01            DC.B      '      '
18C4   03C1 056A                 DC.B      '   j'
18C8   33C0 003F FCD4 L238:      Move      D0, ($3FFCD4)
18CE   1238 01FB                 Move.B    (SPConfig), D1
18D2   5340                      SubQ      #$1, D0
18D4   6602                      BNE.B     L239
18D6   E809                      LsR.B     #$4, D1
18D8   0201 000F      L239:      And.B     #$F, D1
18DC   6708                      BEQ.B     L240
18DE   5501                      SubQ      #$2, D1
18E0   6704                      BEQ.B     L240
18E2   709E                      MoveQ.L   #$-62, D0
18E4   6016                      Bra.B     L241
18E6   41F8 0290      L240:      Lea.L     (PortAUse), A0
18EA   1230 0000                 Move.B    $0(A0,D0.W), D1
18EE   0881 0007                 BClr.B    #$7, D1
18F2   660C                      BNE.B     L242
18F4   0A01 0002                 Eor.B     #$2, D1
18F8   6706                      BEQ.B     L242
18FA   709F                      MoveQ.L   #$-61, D0
18FC   4A40           L241:      Tst       D0
18FE   4E75                      Rts
1900   6148           L242:      Bsr.B     P36
1902   45FA FFB4                 Lea.L     DT18, A2
1906   7210                      MoveQ.L   #$10, D1
1908   6100 EF44                 Bsr       P2
190C   7000                      MoveQ.L   #$0, D0
190E   6126                      Bsr.B     P35
1910   303C E000                 Move      #$-2000, D0
1914   5340           L243:      SubQ      #$1, D0
1916   66FC                      BNE.B     L243
1918   72FF                      MoveQ.L   #$-1, D1
191A   6154                      Bsr.B     P39
191C   6A00 FF0E                 BPL       L232
1920   70F8                      MoveQ.L   #$-8, D0
1922   4E75                      Rts

                      P33:
1924   2F00                      Move.L    D0, -(A7)
1926   E088                      LsR.L     #$8, D0
1928   E088                      LsR.L     #$8, D0
192A   6102                      Bsr.B     P34
192C   201F                      Move.L    (A7)+, D0

                      P34:
192E   3F00                      Move      D0, -(A7)
1930   E048                      LsR       #$8, D0
1932   6102                      Bsr.B     P35
1934   301F                      Move      (A7)+, D0

                      P35:
1936   6100 0012                 Bsr       P36
193A   1211                      Move.B    (A1), D1
193C   3E97           L244:      Move      (A7), (A7)
193E   0811 0002                 BTst.B    #$2, (A1)
1942   67F8                      BEQ.B     L244
1944   1140 0004                 Move.B    D0, $4(A0)
1948   4E75                      Rts

                      P36:
194A   2078 01DC                 Move.L    (SCCWr), A0
194E   2278 01D8                 Move.L    (SCCRd), A1
1952   0C79 0001 003F            Cmp       #$1, ($3FFCD4)
       FCD4
195A   6604                      BNE.B     L245
195C   5488                      AddQ      #$2, A0
195E   5489                      AddQ      #$2, A1
1960   4E75           L245:      Rts

                      P37:
1962   6100 0006                 Bsr       P38
1966   E188                      LsL.L     #$8, D0
1968   E188                      LsL.L     #$8, D0

                      P38:
196A   6100 0004                 Bsr       P39
196E   E148                      LsL       #$8, D0

                      P39:
1970   61D8                      Bsr.B     P36
1972   0811 0000      L246:      BTst.B    #$0, (A1)
1976   6606                      BNE.B     L247
1978   4A01                      Tst.B     D1
197A   67F6                      BEQ.B     L246
197C   4E75                      Rts
197E   3E97           L247:      Move      (A7), (A7)
1980   1029 0004                 Move.B    $4(A1), D0
1984   4E75                      Rts

                      E_68:
1986   48E7 8080                 MoveM.L   D0/A0, -(A7)
198A   206F 000A                 Move.L    $A(A7), A0
198E   3010                      Move      (A0), D0
1990   0800 000B                 BTst.B    #$B, D0
1994   6706                      BEQ.B     L248
1996   0240 01FF                 And       #$1FF, D0
199A   6004                      Bra.B     L249
199C   0240 00FF      L248:      And       #$FF, D0
19A0   B079 003F FCDE L249:      Cmp       ($3FFCDE), D0
19A6   6D16                      BLT.B     L250
19A8   B079 003F FCE0            Cmp       ($3FFCE0), D0
19AE   6E0E                      BGT.B     L250
19B0   4CDF 0101                 MoveM.L   (A7)+, D0/A0
19B4   487A F772                 Pea.L     P_mGenExcps
19B8   0657 0010                 Add       #$10, (A7)
19BC   4E75                      Rts
19BE   4CDF 0101      L250:      MoveM.L   (A7)+, D0/A0
19C2   2F39 003F FCDA            Move.L    ($3FFCDA), -(A7)
19C8   4E75                      Rts

                      P_tEnqueue:
19CA   40E7                      Move      SR, -(A7)
19CC   5449                      AddQ      #$2, A1
19CE   007C 0300                 Or        #$300, SR
19D2   4290                      Clr.L     (A0)
19D4   4A99                      Tst.L     (A1)+
19D6   6606                      BNE.B     L251
19D8   2288                      Move.L    A0, (A1)
19DA   2308                      Move.L    A0, -(A1)
19DC   600C                      Bra.B     L252
19DE   2F0A           L251:      Move.L    A2, -(A7)
19E0   2451                      Move.L    (A1), A2
19E2   2488                      Move.L    A0, (A2)
19E4   2288                      Move.L    A0, (A1)
19E6   245F                      Move.L    (A7)+, A2
19E8   5949                      SubQ      #$4, A1
19EA   5549           L252:      SubQ      #$2, A1
19EC   46DF                      Move      (A7)+, SR
19EE   4E75                      Rts

                      P_tDequeue:
19F0   40E7                      Move      SR, -(A7)
19F2   48E7 0030                 MoveM.L   A2-A3, -(A7)
19F6   007C 0300                 Or        #$300, SR
19FA   2469 0002                 Move.L    $2(A1), A2
19FE   264A                      Move.L    A2, A3
1A00   B1CB           L253:      CmpA.L    A3, A0
1A02   670E                      BEQ.B     L254
1A04   244B                      Move.L    A3, A2
1A06   2652                      Move.L    (A2), A3
1A08   B5E9 0006                 CmpA.L    $6(A1), A2
1A0C   66F2                      BNE.B     L253
1A0E   70FF                      MoveQ.L   #$-1, D0
1A10   6010                      Bra.B     L256
1A12   B7CA           L254:      CmpA.L    A2, A3
1A14   6614                      BNE.B     L257
1A16   2352 0002                 Move.L    (A2), $2(A1)
1A1A   6604                      BNE.B     L255
1A1C   42A9 0006                 Clr.L     $6(A1)
1A20   7000           L255:      MoveQ.L   #$0, D0
1A22   4CDF 0C00      L256:      MoveM.L   (A7)+, A2-A3
1A26   46DF                      Move      (A7)+, SR
1A28   4E75                      Rts
1A2A   2493           L257:      Move.L    (A3), (A2)
1A2C   B7E9 0006                 CmpA.L    $6(A1), A3
1A30   66EE                      BNE.B     L255
1A32   234A 0006                 Move.L    A2, $6(A1)
1A36   60E8                      Bra.B     L255

                      P_mInitQueue:
1A38   4259                      Clr       (A1)+
1A3A   4299                      Clr.L     (A1)+
1A3C   4291                      Clr.L     (A1)
1A3E   5D49                      SubQ      #$6, A1
1A40   4E75                      Rts

                      P_mLvl1Int_VIA:
1A42   48E7 F0F0                 MoveM.L   D0-D3/A0-A3, -(A7)
1A46   4A38 0B22                 Tst.B     (HWCfgFlags)
1A4A   6014                      Bra.B     L258

                      E_72:
1A4C   207C 0058 0000            Move.L    #$580000, A0
1A52   0828 0004 0050            BTst.B    #$4, $50(A0)
1A58   6706                      BEQ.B     L258
1A5A   4A28 0070                 Tst.B     $70(A0)
1A5E   601E                      Bra.B     L260
1A60   41F8 018E      L258:      Lea.L     (KeyThresh), A0
1A64   2278 01D4                 Move.L    (VIA), A1
1A68   1029 1A00                 Move.B    $1A00(A1), D0
1A6C   C029 1C00                 And.B     $1C00(A1), D0
1A70   08C0 0007                 BSet.B    #$7, D0
1A74   5888           L259:      AddQ      #$4, A0
1A76   E208                      LsR.B     #$1, D0
1A78   64FA                      BCC.B     L259
1A7A   2050                      Move.L    (A0), A0
1A7C   4E90                      Jsr       (A0)
1A7E   4CDF 0F0F      L260:      MoveM.L   (A7)+, D0-D3/A0-A3
1A82   4E73                      Rte

                      P_mLvl2Int_SCC:
                      ; SCC interrupt flags = SCCBControl[3:1] @sc
                      ; SCCBControl[3]: 0=channel B, 1=channel A @sc
1A84   48E7 F0F0                 MoveM.L   D0-D3/A0-A3, -(A7)
1A88   2078 01D8                 Move.L    (SCCRd), A0
1A8C   1010                      Move.B    (A0), D0        ; read from SCC B control into D0- this gets thrown away, but side effect is to select SCC register index 0 @sc
1A8E   2278 01DC                 Move.L    (SCCWr), A1
1A92   12BC 0002                 Move.B    #$2, (A1)       ; write $2 to SCC B control; selects RR2B @sc
1A96   45F8 01B2                 Lea.L     (Lvl2DT), A2
1A9A   700E                      MoveQ.L   #$E, D0
1A9C   C010                      And.B     (A0), D0        ; get and mask interrupt flag bits from RR2B, reset register index to 0 @sc
1A9E   0C00 0008                 Cmp.B     #$8, D0
1AA2   6D04                      BLT.B     L261
1AA4   5448                      AddQ      #$2, A0
1AA6   5449                      AddQ      #$2, A1         ; point to channel A instead of B @sc
1AA8   D040           L261:      Add       D0, D0
1AAA   2472 0000                 Move.L    $0(A2,D0.W), A2
1AAE   4E92                      Jsr       (A2)
1AB0   4CDF 0F0F                 MoveM.L   (A7)+, D0-D3/A0-A3

                      P_mSpurious_IntVIAandSCC:
1AB4   4E73                      Rte

                      P_mExtBInt_StatusChngSCC:
1AB6   1010                      Move.B    (A0), D0        ; get channel B RR0 @sc
1AB8   47F8 02CF                 Lea.L     (SCCBSts), A3
1ABC   45F8 02BE                 Lea.L     (ExtStsDT), A2
1AC0   600A                      Bra.B     L262

                      P_mExtAInt_StatusChngSCC:
1AC2   1010                      Move.B    (A0), D0        ; get channel A RR0. Bit 3 = X1 or Y1. @sc
1AC4   47F8 02CE                 Lea.L     (SCCASts), A3
1AC8   45F8 02C6                 Lea.L     (ExtStsDT.A), A2
1ACC   12BC 000F      L262:      Move.B    #$F, (A1)       ; select register $F @sc
1AD0   1213                      Move.B    (A3), D1        ; get previous status @sc
1AD2   1680                      Move.B    D0, (A3)        ; save new status @sc
1AD4   B101                      Eor.B     D0, D1          ; XOR old and new status @sc
1AD6   C210                      And.B     (A0), D1        ; AND with register F, reset register to 0 @sc
1AD8   0C01 0008                 Cmp.B     #$8, D1
1ADC   6602                      BNE.B     L263
1ADE   584A                      AddQ      #$4, A2
1AE0   12BC 0010      L263:      Move.B    #$10, (A1)
1AE4   2452                      Move.L    (A2), A2
1AE6   4ED2                      Jmp       (A2)

                      P_mOneSecInt_VIA:
1AE8   52B8 020C                 AddQ      #$1, (Time)
1AEC   137C 0001 1A00            Move.B    #$1, $1A00(A1)
1AF2   08B8 0005 021F            BClr.B    #$5, (AlarmState)
1AF8   4A38 0208                 Tst.B     (SPVolCtl)
1AFC   6A12                      BPL.B     E_78
1AFE   2038 0200                 Move.L    (SPAlarm), D0
1B02   670C                      BEQ.B     E_78
1B04   B0B8 020C                 Cmp.L     (Time), D0
1B08   6206                      BHI.B     E_78
1B0A   08B8 0001 021F            BClr.B    #$1, (AlarmState)

                      E_78:
1B10   4E75                      Rts

                      P_mVBLInt_VIA:
1B12   52B8 016A                 AddQ      #$1, (Ticks)
1B16   137C 0002 1A00            Move.B    #$2, $1A00(A1)
1B1C   46FC 2000                 Move      #$2000, SR
1B20   08F8 0006 0160            BSet.B    #$6, (VBLQueueHdr_Flags)
1B26   66E8                      BNE.B     E_78
1B28   2038 0110                 Move.L    (StackLowPoint), D0
1B2C   6718                      BEQ.B     L265
1B2E   BFC0                      CmpA.L    D0, A7
1B30   6400 0006                 BCC       L264
1B34   21CF 0110                 Move.L    A7, (StackLowPoint)
1B38   2278 02AA      L264:      Move.L    (ApplZone), A1
1B3C   BFD1                      CmpA.L    (A1), A7
1B3E   6400 0006                 BCC       L265
1B42   701C                      MoveQ.L   #$1C, D0
1B44   A9C9                      _SysError
1B46   2078 08EE      L265:      Move.L    (JCrsrTask), A0
1B4A   4E90                      Jsr       (A0)
1B4C   0838 0000 016D            BTst.B    #$0, (Ticks.LoByte)
1B52   6652                      BNE.B     L268
1B54   7001                      MoveQ.L   #$1, D0
1B56   1439 00EF E1FE            Move.B    (VIA_Base), D2
1B5C   E902                      AsL.B     #$4, D2
1B5E   6A02                      BPL.B     L266
1B60   7002                      MoveQ.L   #$2, D0
1B62   1238 0172      L266:      Move.B    (MBState), D1
1B66   B501                      Eor.B     D2, D1
1B68   6A28                      BPL.B     L267
1B6A   2238 016A                 Move.L    (Ticks), D1
1B6E   92B8 016E                 Sub.L     (MBTicks), D1
1B72   0C81 0000 0003            Cmp.L     #$3, D1
1B78   6D18                      BLT.B     L267
1B7A   D3B8 0156                 Add.L     D1, (RndSeed)
1B7E   21F8 016A 016E            Move.L    (Ticks), (MBTicks)
1B84   0202 0080                 And.B     #$-80, D2
1B88   11C2 0172                 Move.B    D2, (MBState)
1B8C   2040                      Move.L    D0, A0
1B8E   7000                      MoveQ.L   #$0, D0
1B90   A02F                      _PostEvent
1B92   1038 016D      L267:      Move.B    (Ticks.LoByte), D0
1B96   0200 001F                 And.B     #$1F, D0
1B9A   660A                      BNE.B     L268
1B9C   2038 021A                 Move.L    (JKybdTask), D0
1BA0   6704                      BEQ.B     L268
1BA2   2040                      Move.L    D0, A0
1BA4   4E90                      Jsr       (A0)
1BA6   2038 0162      L268:      Move.L    (VBLQueueHdr.Head), D0
1BAA   6724                      BEQ.B     L271
1BAC   2040           L269:      Move.L    D0, A0
1BAE   5368 000A                 SubQ      #$1, $A(A0)
1BB2   6618                      BNE.B     L270
1BB4   2F08                      Move.L    A0, -(A7)
1BB6   2268 0006                 Move.L    $6(A0), A1
1BBA   4E91                      Jsr       (A1)
1BBC   205F                      Move.L    (A7)+, A0
1BBE   4A68 000A                 Tst       $A(A0)
1BC2   6608                      BNE.B     L270
1BC4   43F8 0160                 Lea.L     (VBLQueueHdr_Flags), A1
1BC8   4EBA FE26                 Jsr       P_tDequeue
1BCC   2010           L270:      Move.L    (A0), D0
1BCE   66DC                      BNE.B     L269
1BD0   08B8 0006 0160 L271:      BClr.B    #$6, (VBLQueueHdr_Flags)
1BD6   4E75                      Rts

                      P_SCCInt_AChng_MouseH:
                      ; on entry, D0 = newest channel A/B RR0 value. Bit 3 = X1 or Y1. @sc
1BD8   1239 00EF E1FE            Move.B    (VIA_Base), D1  ; read VIA register B, bit 4 = X2 @sc
1BDE   D040                      Add       D0, D0
1BE0   B141                      Eor       D0, D1
1BE2   0801 0004                 BTst.B    #$4, D1
1BE6   670C                      BEQ.B     L272
1BE8   5278 082A                 AddQ      #$1, (MTemp.h)  ; X1^X2 = 1, move right @sc
1BEC   11F8 08CF 08CE            Move.B    (CrsrCouple), (CrsrNew)
1BF2   4E75                      Rts
1BF4   5378 082A      L272:      SubQ      #$1, (MTemp.h)  ; X1^X2 = 0, move left @sc
1BF8   11F8 08CF 08CE            Move.B    (CrsrCouple), (CrsrNew)
1BFE   4E75                      Rts

                      P_SCCInt_BChng_MouseV:
1C00   1239 00EF E1FE            Move.B    (VIA_Base), D1  ; read VIA register B, bit 5 = Y2 @sc
1C06   D040                      Add       D0, D0
1C08   D040                      Add       D0, D0
1C0A   B141                      Eor       D0, D1
1C0C   0801 0005                 BTst.B    #$5, D1
1C10   670C                      BEQ.B     L273
1C12   5378 0828                 SubQ      #$1, (MTemp_v)  ; Y1^Y2 = 1, move up @sc
1C16   11F8 08CF 08CE            Move.B    (CrsrCouple), (CrsrNew)
1C1C   4E75                      Rts
1C1E   5278 0828      L273:      AddQ      #$1, (MTemp_v)  ; Y1^Y2 = 0, move down @sc
1C22   11F8 08CF 08CE            Move.B    (CrsrCouple), (CrsrNew)
1C28   4E75                      Rts

                      P_tVInstall:
1C2A   0C68 0001 0004            Cmp       #$1, $4(A0)
1C30   6704                      BEQ.B     L275
1C32   70FE           L274:      MoveQ.L   #$-2, D0
1C34   4E75                      Rts
1C36   3228 000A      L275:      Move      $A(A0), D1
1C3A   672C                      BEQ.B     L277
1C3C   40E7                      Move      SR, -(A7)
1C3E   007C 0100                 Or        #$100, SR
1C42   2038 016A                 Move.L    (Ticks), D0
1C46   4840                      Swap      D0
1C48   7400                      MoveQ.L   #$0, D2
1C4A   3400                      Move      D0, D2
1C4C   84C1                      DivU      D1, D2
1C4E   4842                      Swap      D2
1C50   3002                      Move      D2, D0
1C52   4840                      Swap      D0
1C54   80C1                      DivU      D1, D0
1C56   4840                      Swap      D0
1C58   9068 000C                 Sub       $C(A0), D0
1C5C   4440                      Neg       D0
1C5E   6A02                      BPL.B     L276
1C60   D041                      Add       D1, D0
1C62   D168 000A      L276:      Add       D0, $A(A0)
1C66   46DF                      Move      (A7)+, SR
1C68   43F8 0160      L277:      Lea.L     (VBLQueueHdr_Flags), A1
1C6C   4EBA FD5C                 Jsr       P_tEnqueue
1C70   7000                      MoveQ.L   #$0, D0
1C72   4E75                      Rts

                      P_tVRemove:
1C74   0C68 0001 0004            Cmp       #$1, $4(A0)
1C7A   66B6                      BNE.B     L274
1C7C   2F09                      Move.L    A1, -(A7)
1C7E   43F8 0160                 Lea.L     (VBLQueueHdr_Flags), A1
1C82   4EBA FD6C                 Jsr       P_tDequeue
1C86   225F                      Move.L    (A7)+, A1
1C88   4E75                      Rts

                      DT_mCRSRCore:
1C8A   001E 0070 013E            DC.B      '   p >'
1C90   01D0 01D8 0062            DC.B      '     b'
1C96   0180 0010                 DC.B      '    '

                      P_CrsrObscure:
1C9A   11FC 0001 08CD            Move.B    #$1, (CrsrBusy)
1CA0   08F8 0000 08D2            BSet.B    #$0, (CrsrObscure)
1CA6   663E                      BNE.B     L281

                      P_HideCursor:
1CA8   11FC 0001 08CD            Move.B    #$1, (CrsrBusy)
1CAE   4A38 08CC                 Tst.B     (CrsrVis)
1CB2   672E                      BEQ.B     L280
1CB4   48E7 C0C0                 MoveM.L   D0-D1/A0-A1, -(A7)
1CB8   43F8 083C                 Lea.L     (CrsrRect), A1
1CBC   3211                      Move      (A1), D1        ; rect top @sc
1CBE   4299                      Clr.L     (A1)+
1CC0   9251                      Sub       (A1), D1        ; rect bottom @sc
1CC2   4291                      Clr.L     (A1)
1CC4   4441                      Neg       D1              ; D1 = height of cursor rect @sc
1CC6   6712                      BEQ.B     L279
1CC8   2278 0888                 Move.L    (CrsrAddr), A1
1CCC   41F8 088C                 Lea.L     (CrsrSave), A0
1CD0   7040                      MoveQ.L   #$40, D0
1CD2   2298           L278:      Move.L    (A0)+, (A1)
1CD4   D2C0                      AddA      D0, A1          ; advance A1 to the next line in the screen buffer @sc
1CD6   5341                      SubQ      #$1, D1
1CD8   6EF8                      BGT.B     L278
1CDA   4238 08CC      L279:      Clr.B     (CrsrVis)
1CDE   4CDF 0303                 MoveM.L   (A7)+, D0-D1/A0-A1
1CE2   5378 08D0      L280:      SubQ      #$1, (CrsrState)
1CE6   4238 08CD      L281:      Clr.B     (CrsrBusy)
1CEA   4E75                      Rts

                      P_InitCrsr:
1CEC   11FC 0001 08CD            Move.B    #$1, (CrsrBusy)
1CF2   4238 08D2                 Clr.B     (CrsrObscure)
1CF6   4278 08D0                 Clr       (CrsrState)

                      P_ShowCursor:
1CFA   11FC 0001 08CD            Move.B    #$1, (CrsrBusy)
1D00   5278 08D0                 AddQ      #$1, (CrsrState)
1D04   6DE0                      BLT.B     L281
1D06   4278 08D0                 Clr       (CrsrState)
1D0A   4A38 08CC                 Tst.B     (CrsrVis)
1D0E   66D6                      BNE.B     L281
1D10   48E7 FCF0                 MoveM.L   D0-D5/A0-A3, -(A7)
1D14   7A10                      MoveQ.L   #$10, D5
1D16   41F8 088C                 Lea.L     (CrsrSave), A0
1D1A   45F8 0844                 Lea.L     (TheCrsr_data), A2
1D1E   47F8 0864                 Lea.L     (TheCrsr.mask), A3
1D22   3038 0832                 Move      (Mouse.h), D0
1D26   9078 0886                 Sub       (TheCrsr.hotspot.h), D0
1D2A   740F                      MoveQ.L   #$F, D2
1D2C   C440                      And       D0, D2
1D2E   4442                      Neg       D2
1D30   D445                      Add       D5, D2
1D32   7600                      MoveQ.L   #$0, D3
1D34   5343                      SubQ      #$1, D3
1D36   E5AB                      LsL.L     D2, D3
1D38   0240 FFF0                 And       #$-10, D0
1D3C   6C08                      BGE.B     L282
1D3E   7000                      MoveQ.L   #$0, D0
1D40   4843                      Swap      D3
1D42   9643                      Sub       D3, D3
1D44   D445                      Add       D5, D2
1D46   0C40 01E0      L282:      Cmp       #$1E0, D0
1D4A   6F0A                      BLE.B     L283
1D4C   303C 01E0                 Move      #$1E0, D0
1D50   9643                      Sub       D3, D3
1D52   4843                      Swap      D3
1D54   D445                      Add       D5, D2
1D56   3805           L283:      Move      D5, D4
1D58   3238 0830                 Move      (Mouse_v), D1
1D5C   9278 0884                 Sub       (TheCrsr.hotspot_v), D1
1D60   6C0A                      BGE.B     L284
1D62   D841                      Add       D1, D4
1D64   D241                      Add       D1, D1
1D66   94C1                      SubA      D1, A2
1D68   96C1                      SubA      D1, A3
1D6A   7200                      MoveQ.L   #$0, D1
1D6C   0C41 0146      L284:      Cmp       #$146, D1
1D70   6F06                      BLE.B     L285
1D72   383C 0156                 Move      #$156, D4
1D76   9841                      Sub       D1, D4
1D78   43F8 083C      L285:      Lea.L     (CrsrRect), A1
1D7C   32C1                      Move      D1, (A1)+
1D7E   32C0                      Move      D0, (A1)+
1D80   3281                      Move      D1, (A1)
1D82   D959                      Add       D4, (A1)+
1D84   3280                      Move      D0, (A1)
1D86   0651 0020                 Add       #$20, (A1)
1D8A   2278 0824                 Move.L    (ScrnBase), A1
1D8E   E648                      LsR       #$3, D0
1D90   D2C0                      AddA      D0, A1
1D92   7A40                      MoveQ.L   #$40, D5
1D94   C2C5                      MulU      D5, D1
1D96   D3C1                      AddA.L    D1, A1
1D98   21C9 0888                 Move.L    A1, (CrsrAddr)
1D9C   6016                      Bra.B     L287
1D9E   301A           L286:      Move      (A2)+, D0
1DA0   E5B8                      ROL.L     D2, D0
1DA2   C083                      And.L     D3, D0
1DA4   321B                      Move      (A3)+, D1
1DA6   E5B9                      ROL.L     D2, D1
1DA8   C283                      And.L     D3, D1
1DAA   4681                      Not.L     D1
1DAC   20D1                      Move.L    (A1), (A0)+
1DAE   C391                      And.L     D1, (A1)
1DB0   B191                      Eor.L     D0, (A1)
1DB2   D2C5                      AddA      D5, A1
1DB4   51CC FFE8      L287:      DBF       D4, L286
1DB8   11FC 0001 08CC            Move.B    #$1, (CrsrVis)
1DBE   4CDF 0F3F                 MoveM.L   (A7)+, D0-D5/A0-A3
1DC2   4238 08CD                 Clr.B     (CrsrBusy)
1DC6   4E75                      Rts

                      P_ShieldCursor:
1DC8   48E7 8080                 MoveM.L   D0/A0, -(A7)
1DCC   41F8 083C                 Lea.L     (CrsrRect), A0
1DD0   302F 000C                 Move      $C(A7), D0
1DD4   B058                      Cmp       (A0)+, D0
1DD6   6D24                      BLT.B     L289
1DD8   0C50 01F0                 Cmp       #$1F0, (A0)
1DDC   6C18                      BGE.B     L288
1DDE   302F 000E                 Move      $E(A7), D0
1DE2   B058                      Cmp       (A0)+, D0
1DE4   6F16                      BLE.B     L289
1DE6   302F 0010                 Move      $10(A7), D0
1DEA   B058                      Cmp       (A0)+, D0
1DEC   6C0E                      BGE.B     L289
1DEE   302F 0012                 Move      $12(A7), D0
1DF2   B050                      Cmp       (A0), D0
1DF4   6C06                      BGE.B     L289
1DF6   6100 FEB0      L288:      Bsr       P_HideCursor
1DFA   6004                      Bra.B     L290
1DFC   5378 08D0      L289:      SubQ      #$1, (CrsrState)
1E00   4CDF 0101      L290:      MoveM.L   (A7)+, D0/A0
1E04   2E9F                      Move.L    (A7)+, (A7)
1E06   2E9F                      Move.L    (A7)+, (A7)
1E08   4E75                      Rts

                      P_SetCrsr:
1E0A   206F 0008                 Move.L    $8(A7), A0
1E0E   43F8 0844                 Lea.L     (TheCrsr_data), A1
1E12   740F                      MoveQ.L   #$F, D2
1E14   7200                      MoveQ.L   #$0, D1
1E16   2018           L291:      Move.L    (A0)+, D0
1E18   B091                      Cmp.L     (A1), D0
1E1A   6702                      BEQ.B     L292
1E1C   5241                      AddQ      #$1, D1
1E1E   22C0           L292:      Move.L    D0, (A1)+
1E20   51CA FFF4                 DBF       D2, L291
1E24   202F 000E                 Move.L    $E(A7), D0
1E28   7410                      MoveQ.L   #$10, D2
1E2A   B042                      Cmp       D2, D0
1E2C   6302                      BLS.B     L293
1E2E   3002                      Move      D2, D0
1E30   4840           L293:      Swap      D0
1E32   B042                      Cmp       D2, D0
1E34   6302                      BLS.B     L294
1E36   3002                      Move      D2, D0
1E38   4840           L294:      Swap      D0
1E3A   B0B8 0884                 Cmp.L     (TheCrsr.hotspot_v), D0
1E3E   6706                      BEQ.B     L295
1E40   5241                      AddQ      #$1, D1
1E42   21C0 0884                 Move.L    D0, (TheCrsr.hotspot_v)
1E46   4A41           L295:      Tst       D1
1E48   6708                      BEQ.B     L296
1E4A   6100 FE5C                 Bsr       P_HideCursor
1E4E   6100 FEAA                 Bsr       P_ShowCursor
1E52   205F           L296:      Move.L    (A7)+, A0
1E54   DEFC 000E                 AddA      #$E, A7
1E58   4ED0                      Jmp       (A0)

                      P_mScrnAddress:
1E5A   2F78 0824 0004            Move.L    (ScrnBase), $4(A7)
1E60   4E75                      Rts

                      P_mScrnSize:
1E62   225F                      Move.L    (A7)+, A1
1E64   205F                      Move.L    (A7)+, A0
1E66   30BC 0156                 Move      #$156, (A0)
1E6A   205F                      Move.L    (A7)+, A0
1E6C   30BC 0200      L297:      Move      #$200, (A0)
1E70   4ED1                      Jmp       (A1)

                      P_tScrnBitMap:
1E72   225F                      Move.L    (A7)+, A1
1E74   205F                      Move.L    (A7)+, A0
1E76   20F8 0824                 Move.L    (ScrnBase), (A0)+
1E7A   30F8 0106                 Move      (ScreenRow), (A0)+
1E7E   4298                      Clr.L     (A0)+
1E80   30FC 0156                 Move      #$156, (A0)+
1E84   60E6                      Bra.B     L297

                      P_mCrsrVBLTask:
1E86   4A38 08CE                 Tst.B     (CrsrNew)       ; non-zero if mouse position has changed @sc
1E8A   677C                      BEQ.B     L305
1E8C   4A38 08CD                 Tst.B     (CrsrBusy)      ; semaphore @sc
1E90   6676                      BNE.B     L305
1E92   4A38 08CF                 Tst.B     (CrsrCouple)    ; if 0, we will redraw the cursor but not move it @sc
1E96   675A                      BEQ.B     L303
1E98   3038 0828                 Move      (MTemp_v), D0   ; new location of the mouse as updated by the mouse interrupt handler @sc
1E9C   9078 082C                 Sub       (RawMouse_v), D0 ; current mouse cursor position @sc
1EA0   3400                      Move      D0, D2
1EA2   6C02                      BGE.B     L298
1EA4   4442                      Neg       D2
1EA6   3238 082A      L298:      Move      (MTemp.h), D1
1EAA   9278 082E                 Sub       (RawMouse.h), D1
1EAE   6C04                      BGE.B     L299
1EB0   9441                      Sub       D1, D2
1EB2   6002                      Bra.B     L300
1EB4   D441           L299:      Add       D1, D2
1EB6   4A38 08D3      L300:      Tst.B     (CrsrScale)     ; D2 is now the absolute manhattan distance displacement @sc
1EBA   670A                      BEQ.B     L301
1EBC   B478 08EC                 Cmp       (CrsrThresh), D2
1EC0   6D04                      BLT.B     L301
1EC2   D241                      Add       D1, D1
1EC4   D040                      Add       D0, D0          ; double the displacement if it's over a threshold @sc
1EC6   D378 082E      L301:      Add       D1, (RawMouse.h)
1ECA   D178 082C                 Add       D0, (RawMouse_v)
1ECE   41F8 0834                 Lea.L     (CrsrPin), A0
1ED2   2038 082C                 Move.L    (RawMouse_v), D0
1ED6   6132                      Bsr.B     P41             ; constrain the cursor position @sc
1ED8   21C0 082C                 Move.L    D0, (RawMouse_v)
1EDC   21C0 0828                 Move.L    D0, (MTemp_v)
1EE0   C0B8 08D6                 And.L     (MouseMask), D0 ; mask the mouse location @sc
1EE4   2238 08DA                 Move.L    (MouseOffset), D1
1EE8   6704                      BEQ.B     L302
1EEA   D081                      Add.L     D1, D0
1EEC   611C                      Bsr.B     P41             ; if mouse is offset, constrain the offset position @sc
1EEE   21C0 0830      L302:      Move.L    D0, (Mouse_v)   ; update the software-visible mouse location @sc
1EF2   4A38 08D2      L303:      Tst.B     (CrsrObscure)
1EF6   6604                      BNE.B     L304
1EF8   6100 FDAE                 Bsr       P_HideCursor
1EFC   4238 08CE      L304:      Clr.B     (CrsrNew)
1F00   4238 08D2                 Clr.B     (CrsrObscure)
1F04   6100 FDF4                 Bsr       P_ShowCursor
1F08   4E75           L305:      Rts

                      P41:
1F0A   B068 0002                 Cmp       $2(A0), D0
1F0E   6C04                      BGE.B     L306
1F10   3028 0002                 Move      $2(A0), D0
1F14   B068 0006      L306:      Cmp       $6(A0), D0
1F18   6D06                      BLT.B     L307
1F1A   3028 0006                 Move      $6(A0), D0
1F1E   5340                      SubQ      #$1, D0
1F20   4840           L307:      Swap      D0
1F22   B050                      Cmp       (A0), D0
1F24   6C02                      BGE.B     L308
1F26   3010                      Move      (A0), D0
1F28   B068 0004      L308:      Cmp       $4(A0), D0
1F2C   6D06                      BLT.B     L309
1F2E   3028 0004                 Move      $4(A0), D0
1F32   5340                      SubQ      #$1, D0
1F34   4840           L309:      Swap      D0
1F36   4E75                      Rts

                      P_tPinRect:
1F38   202F 0004                 Move.L    $4(A7), D0
1F3C   206F 0008                 Move.L    $8(A7), A0
1F40   61C8                      Bsr.B     P41
1F42   205F                      Move.L    (A7)+, A0
1F44   504F                      AddQ      #$8, A7
1F46   2E80                      Move.L    D0, (A7)
1F48   4ED0                      Jmp       (A0)

                      P_mATrap68020:
1F4A   2F6F 0002 0004            Move.L    $2(A7), $4(A7)
1F50   6002                      Bra.B     L310

                      P_mEMT1010_TrapDispatch:
1F52   558F                      SubQ      #$2, A7
1F54   48E7 6020      L310:      MoveM.L   D1-D2/A2, -(A7)
1F58   246F 0010                 Move.L    $10(A7), A2
1F5C   341A                      Move      (A2)+, D2
1F5E   2F4A 0010                 Move.L    A2, $10(A7)
1F62   3202                      Move      D2, D1
1F64   0242 01FF                 And       #$1FF, D2
1F68   0C41 A800                 Cmp       #$-5800, D1
1F6C   651A                      BCS.B     L312
1F6E   45F8 0C00                 Lea.L     (ToolDispTable), A2
1F72   E54A                      LsL       #$2, D2
1F74   2F72 2000 000C            Move.L    $0(A2,D2.W), $C(A7)
1F7A   0C41 AC00                 Cmp       #$-5400, D1
1F7E   4CDF 0406                 MoveM.L   (A7)+, D1-D2/A2
1F82   6502                      BCS.B     L311
1F84   2E9F                      Move.L    (A7)+, (A7)
1F86   4E75           L311:      Rts                       ; jump to tool routine by pushing it on the stack and doing RTS @sc
1F88   45F8 0400      L312:      Lea.L     (DispatchTab), A2
1F8C   0882 0008                 BClr.B    #$8, D2
1F90   661A                      BNE.B     L314
1F92   E54A                      LsL       #$2, D2
1F94   2472 2000                 Move.L    $0(A2,D2.W), A2
1F98   48E7 00C0                 MoveM.L   A0-A1, -(A7)
1F9C   4E92                      Jsr       (A2)            ; calls trap subroutine @sc
1F9E   4CDF 0300                 MoveM.L   (A7)+, A0-A1
1FA2   4CDF 0406      L313:      MoveM.L   (A7)+, D1-D2/A2
1FA6   584F                      AddQ      #$4, A7
1FA8   4A40                      Tst       D0
1FAA   4E75                      Rts
1FAC   E54A           L314:      LsL       #$2, D2
1FAE   2472 2000                 Move.L    $0(A2,D2.W), A2
1FB2   2F09                      Move.L    A1, -(A7)
1FB4   4E92                      Jsr       (A2)
1FB6   225F                      Move.L    (A7)+, A1
1FB8   60E8                      Bra.B     L313

                      P_tSetTrapAddress:
1FBA   0801 0009                 BTst.B    #$9, D1
1FBE   6720                      BEQ.B     L316
1FC0   0240 01FF                 And       #$1FF, D0
1FC4   43F8 0C00                 Lea.L     (ToolDispTable), A1
1FC8   0801 000A                 BTst.B    #$A, D1
1FCC   6608                      BNE.B     L315
1FCE   0240 00FF                 And       #$FF, D0
1FD2   43F8 0400                 Lea.L     (DispatchTab), A1
1FD6   E548           L315:      LsL       #$2, D0
1FD8   2388 0000                 Move.L    A0, $0(A1,D0.W)
1FDC   7000                      MoveQ.L   #$0, D0
1FDE   4E75                      Rts
1FE0   6102           L316:      Bsr.B     P42
1FE2   60F2                      Bra.B     L315

                      P42:
1FE4   0240 01FF                 And       #$1FF, D0
1FE8   43F8 0C00                 Lea.L     (ToolDispTable), A1
1FEC   0C40 0057                 Cmp       #$57, D0
1FF0   6212                      BHI.B     L318
1FF2   670C                      BEQ.B     L317
1FF4   0C40 004F                 Cmp       #$4F, D0
1FF8   6306                      BLS.B     L317
1FFA   0C40 0054                 Cmp       #$54, D0
1FFE   6604                      BNE.B     L318
2000   43F8 0400      L317:      Lea.L     (DispatchTab), A1
2004   4E75           L318:      Rts
2006   61DC           L319:      Bsr.B     P42
2008   601C                      Bra.B     L320

                      P_tGetTrapAddress:
200A   0801 0009                 BTst.B    #$9, D1
200E   67F6                      BEQ.B     L319
2010   0240 01FF                 And       #$1FF, D0
2014   43F8 0C00                 Lea.L     (ToolDispTable), A1
2018   0801 000A                 BTst.B    #$A, D1
201C   6608                      BNE.B     L320
201E   0240 00FF                 And       #$FF, D0
2022   43F8 0400                 Lea.L     (DispatchTab), A1
2026   E548           L320:      LsL       #$2, D0
2028   2071 0000                 Move.L    $0(A1,D0.W), A0
202C   7000                      MoveQ.L   #$0, D0
202E   4E75                      Rts

                      DT_mFSIODNETbl:
2030   0006 004A 0052            DC.B      '   J R'

                      P_mFetch:
2036   0880 000F                 BClr.B    #$F, D0
203A   48E7 4030      L321:      MoveM.L   D1/A2-A3, -(A7)
203E   2229 0008                 Move.L    $8(A1), D1
2042   6732                      BEQ.B     L325
2044   2641                      Move.L    D1, A3
2046   222B 0028                 Move.L    $28(A3), D1
204A   246B 0020                 Move.L    $20(A3), A2
204E   0880 000F                 BClr.B    #$F, D0
2052   6606                      BNE.B     L322
2054   1032 1800                 Move.B    $0(A2,D1.L), D0
2058   6004                      Bra.B     L323
205A   1580 1800      L322:      Move.B    D0, $0(A2,D1.L)
205E   5281           L323:      AddQ      #$1, D1
2060   2741 0028                 Move.L    D1, $28(A3)
2064   B2AB 0024                 Cmp.L     $24(A3), D1
2068   6D04                      BLT.B     L324
206A   08C0 000F                 BSet.B    #$F, D0
206E   48C0           L324:      Ext.L     D0
2070   4CDF 0C02                 MoveM.L   (A7)+, D1/A2-A3
2074   4E75                      Rts
2076   700E           L325:      MoveQ.L   #$E, D0
2078   A9C9                      _SysError

                      P_mStash:
207A   08C0 000F                 BSet.B    #$F, D0
207E   60BA                      Bra.B     L321
2080   7000           L326:      MoveQ.L   #$0, D0

                      P_mIODone:
2082   2229 0008                 Move.L    $8(A1), D1
2086   6720                      BEQ.B     L327
2088   40E7                      Move      SR, -(A7)
208A   40C1                      Move      SR, D1
208C   007C 0300                 Or        #$300, SR
2090   6110                      Bsr.B     P43
2092   6130                      Bsr.B     P44
2094   007C 0300                 Or        #$300, SR
2098   4AA9 0008                 Tst.L     $8(A1)
209C   666C                      BNE.B     L332
209E   46DF                      Move      (A7)+, SR
20A0   4E75                      Rts

                      P43:
20A2   08A9 0007 0005            BClr.B    #$7, $5(A1)
20A8   0829 0006 0004 L327:      BTst.B    #$6, $4(A1)
20AE   6612                      BNE.B     L328
20B0   2051                      Move.L    (A1), A0
20B2   0890 0007                 BClr.B    #$7, (A0)
20B6   2078 02A6                 Move.L    (SysZone), A0
20BA   D1E9 FFFC                 AddA.L    $-4(A1), A0
20BE   0890 0007                 BClr.B    #$7, (A0)
20C2   4E75           L328:      Rts

                      P44:
20C4   2069 0008                 Move.L    $8(A1), A0
20C8   0C68 0002 0004            Cmp       #$2, $4(A0)
20CE   66A6                      BNE.B     L325
20D0   2350 0008                 Move.L    (A0), $8(A1)
20D4   6604                      BNE.B     L329
20D6   42A9 000C                 Clr.L     $C(A1)
20DA   46C1           L329:      Move      D1, SR
20DC   3140 0010                 Move      D0, $10(A0)
20E0   6F04                      BLE.B     L330
20E2   4268 0010                 Clr       $10(A0)
20E6   2228 000C      L330:      Move.L    $C(A0), D1
20EA   670A                      BEQ.B     L331
20EC   2F09                      Move.L    A1, -(A7)
20EE   2241                      Move.L    D1, A1
20F0   48C0                      Ext.L     D0
20F2   4E91                      Jsr       (A1)
20F4   225F                      Move.L    (A7)+, A1
20F6   4E75           L331:      Rts

                      P45:
                      ; put something in a driver's queue? @sc
20F8   2209                      Move.L    A1, D1
20FA   43E9 0006                 Lea.L     $6(A1), A1
20FE   40E7                      Move      SR, -(A7)
2100   007C 0300                 Or        #$300, SR
2104   4EBA F8C4                 Jsr       P_tEnqueue
2108   2241                      Move.L    D1, A1
210A   08E9 0007 0005 L332:      BSet.B    #$7, $5(A1)
2110   6706                      BEQ.B     L333
2112   7000                      MoveQ.L   #$0, D0
2114   46DF                      Move      (A7)+, SR
2116   4E75                      Rts
2118   46DF           L333:      Move      (A7)+, SR
211A   2069 0008                 Move.L    $8(A1), A0
211E   720C           L334:      MoveQ.L   #$C, D1
2120   0C28 0004 0007            Cmp.B     #$4, $7(A0)
2126   672A                      BEQ.B     P46
2128   720E                      MoveQ.L   #$E, D1
212A   0C28 0005 0007            Cmp.B     #$5, $7(A0)
2130   6720                      BEQ.B     P46
2132   4AA8 0024                 Tst.L     $24(A0)
2136   6700 FF48                 BEQ       L326
213A   3028 002C                 Move      $2C(A0), D0
213E   2228 002E                 Move.L    $2E(A0), D1
2142   E410                      RXR.B     #$2, D0
2144   6A0A                      BPL.B     L336
2146   6404                      BCC.B     L335
2148   D2A9 0010                 Add.L     $10(A1), D1
214C   2341 0010      L335:      Move.L    D1, $10(A1)
2150   720A           L336:      MoveQ.L   #$A, D1

                      P46:
                      ; make sure driver is loaded, then call it? @sc
2152   2011                      Move.L    (A1), D0
2154   6608                      BNE.B     L337
2156   70EA                      MoveQ.L   #$-16, D0
2158   3140 0010                 Move      D0, $10(A0)
215C   4E75                      Rts
215E   48E7 1F7E      L337:      MoveM.L   D3-D7/A1-A6, -(A7)
2162   2440                      Move.L    D0, A2
2164   0829 0006 0005            BTst.B    #$6, $5(A1)
216A   6724                      BEQ.B     L339
216C   2678 02A6                 Move.L    (SysZone), A3
2170   D7E9 FFFC                 AddA.L    $-4(A1), A3
2174   08D3 0007                 BSet.B    #$7, (A3)
2178   4A92                      Tst.L     (A2)
217A   660A                      BNE.B     L338
217C   2F0A                      Move.L    A2, -(A7)
217E   A9A2                      _LoadResource
2180   3038 0A60                 Move      (ResErr), D0
2184   6616                      BNE.B     L340
2186   08D2 0007      L338:      BSet.B    #$7, (A2)
218A   2F12                      Move.L    (A2), -(A7)
218C   4217                      Clr.B     (A7)
218E   245F                      Move.L    (A7)+, A2
2190   3232 1000      L339:      Move      $0(A2,D1.W), D1
2194   7000                      MoveQ.L   #$0, D0
2196   4EB2 1000                 Jsr       $0(A2,D1.W)
219A   6004                      Bra.B     L341
219C   3140 0010      L340:      Move      D0, $10(A0)
21A0   48C0           L341:      Ext.L     D0
21A2   4CDF 7EF8                 MoveM.L   (A7)+, D3-D7/A1-A6
21A6   4E75                      Rts

                      P47:
                      ; find a driver call? @sc
21A8   4642                      Not       D2
21AA   6B1E                      BMI.B     L342
21AC   B478 01D2                 Cmp       (UnitTableEntryCount), D2
21B0   6C18                      BGE.B     L342
21B2   E542                      AsL       #$2, D2
21B4   2278 011C                 Move.L    (UTableBase), A1
21B8   2431 2000                 Move.L    $0(A1,D2.W), D2
21BC   670C                      BEQ.B     L342
21BE   2442                      Move.L    D2, A2
21C0   2412                      Move.L    (A2), D2
21C2   6700 FEB2                 BEQ       L325
21C6   2242                      Move.L    D2, A1
21C8   4E75                      Rts
21CA   2045           L342:      Move.L    D5, A0
21CC   4CDF 0C39                 MoveM.L   (A7)+, D0/D3-D5/A2-A3
21D0   70EB                      MoveQ.L   #$-15, D0
21D2   3140 0010                 Move      D0, $10(A0)
21D6   4E75                      Rts
21D8   2045           L343:      Move.L    D5, A0
21DA   3228 0006                 Move      $6(A0), D1
21DE   4CDF 0C38                 MoveM.L   (A7)+, D3-D5/A2-A3
21E2   0C28 0040 001B            Cmp.B     #$40, $1B(A0)
21E8   6704                      BEQ.B     L344
21EA   4EFA 1E38                 Jmp       P_mFileOpen
21EE   70E9           L344:      MoveQ.L   #$-17, D0
21F0   6000 018A                 Bra       L361

                      P_tOpen:
21F4   48E7 1C30                 MoveM.L   D3-D5/A2-A3, -(A7)
21F8   2A08                      Move.L    A0, D5
21FA   3141 0006                 Move      D1, $6(A0)
21FE   3428 001A                 Move      $1A(A0), D2
2202   2068 0012                 Move.L    $12(A0), A0
2206   7200                      MoveQ.L   #$0, D1
2208   1218                      Move.B    (A0)+, D1
220A   0C02 0040                 Cmp.B     #$40, D2
220E   6706                      BEQ.B     L345
2210   0C10 002E                 Cmp.B     #$2E, (A0)
2214   66C2                      BNE.B     L343
2216   2678 011C      L345:      Move.L    (UTableBase), A3
221A   3438 01D2                 Move      (UnitTableEntryCount), D2
221E   78FF                      MoveQ.L   #$-1, D4
2220   201B           L346:      Move.L    (A3)+, D0
2222   6730                      BEQ.B     L348
2224   2440                      Move.L    D0, A2
2226   2012                      Move.L    (A2), D0
2228   672A                      BEQ.B     L348
222A   2240                      Move.L    D0, A1
222C   0829 0006 0005            BTst.B    #$6, $5(A1)
2232   2251                      Move.L    (A1), A1
2234   6706                      BEQ.B     L347
2236   2009                      Move.L    A1, D0
2238   671A                      BEQ.B     L348
223A   2251                      Move.L    (A1), A1
223C   2009           L347:      Move.L    A1, D0
223E   6714                      BEQ.B     L348
2240   43E9 0012                 Lea.L     $12(A1), A1
2244   2001                      Move.L    D1, D0
2246   4840                      Swap      D0
2248   1019                      Move.B    (A1)+, D0
224A   B200                      Cmp.B     D0, D1
224C   6606                      BNE.B     L348
224E   A03C                      _CmpString
2250   6700 00A6                 BEQ       L354
2254   5344           L348:      SubQ      #$1, D4
2256   5342                      SubQ      #$1, D2
2258   6EC6                      BGT.B     L346
225A   594F                      SubQ      #$4, A7
225C   2F3C 4452 5652            Move.L    #$44525652, -(A7)
2262   2045                      Move.L    D5, A0
2264   2F28 0012                 Move.L    $12(A0), -(A7)
2268   31FC FFFF 0B9E            Move      #$-1, (ROMMapInsert)
226E   A9A1                      _GetNamedResource
2270   261F                      Move.L    (A7)+, D3
2272   6614                      BNE.B     L349
2274   3038 0A60                 Move      (ResErr), D0
2278   6700 FF5E                 BEQ       L343
227C   0C40 FF40                 Cmp       #$-C0, D0
2280   6700 FF56                 BEQ       L343
2284   6000 00F0                 Bra       L360
2288   4267           L349:      Clr       -(A7)
228A   200F                      Move.L    A7, D0
228C   2F03                      Move.L    D3, -(A7)
228E   2F00                      Move.L    D0, -(A7)
2290   42A7                      Clr.L     -(A7)
2292   42A7                      Clr.L     -(A7)
2294   31FC FFFF 0B9E            Move      #$-1, (ROMMapInsert)
229A   A9A8                      _GetResInfo
229C   381F                      Move      (A7)+, D4
229E   4644                      Not       D4
22A0   3004                      Move      D4, D0
22A2   6100 0264                 Bsr       P48
22A6   6B00 00CE                 BMI       L360
22AA   6616                      BNE.B     L352
22AC   3004                      Move      D4, D0
22AE   2043                      Move.L    D3, A0
22B0   2050                      Move.L    (A0), A0
22B2   0810 0006                 BTst.B    #$6, (A0)
22B6   6704                      BEQ.B     L350
22B8   A43D                      _DrvrInstallResrvMem
22BA   6002                      Bra.B     L351
22BC   A03D           L350:      _DrvrInstall
22BE   6600 00B6      L351:      BNE       L360
22C2   3404           L352:      Move      D4, D2
22C4   6100 FEE2                 Bsr       P47
22C8   08E9 0005 0005            BSet.B    #$5, $5(A1)
22CE   6628                      BNE.B     L354
22D0   7040                      MoveQ.L   #$40, D0
22D2   2283                      Move.L    D3, (A1)
22D4   2043                      Move.L    D3, A0
22D6   2610                      Move.L    (A0), D3
22D8   C6B8 031A                 And.L     (Lo3Bytes), D3
22DC   B6B8 02AE                 Cmp.L     (ROMBase), D3
22E0   6D04                      BLT.B     L353
22E2   2283                      Move.L    D3, (A1)
22E4   7000                      MoveQ.L   #$0, D0
22E6   2043           L353:      Move.L    D3, A0
22E8   3358 0004                 Move      (A0)+, $4(A1)
22EC   1340 0005                 Move.B    D0, $5(A1)
22F0   2358 0022                 Move.L    (A0)+, $22(A1)
22F4   3358 0026                 Move      (A0)+, $26(A1)
22F8   2252           L354:      Move.L    (A2), A1
22FA   0829 0006 0004            BTst.B    #$6, $4(A1)
2300   6712                      BEQ.B     L356
2302   2051                      Move.L    (A1), A0
2304   0829 0006 0005            BTst.B    #$6, $5(A1)
230A   6704                      BEQ.B     L355
230C   08D0 0007                 BSet.B    #$7, (A0)
2310   08D2 0007      L355:      BSet.B    #$7, (A2)
2314   2045           L356:      Move.L    D5, A0
2316   3144 0018                 Move      D4, $18(A0)
231A   70E9                      MoveQ.L   #$-17, D0
231C   1229 0004                 Move.B    $4(A1), D1
2320   3401                      Move      D1, D2
2322   8228 001B                 Or.B      $1B(A0), D1
2326   B501                      Eor.B     D2, D1
2328   0201 0003                 And.B     #$3, D1
232C   6648                      BNE.B     L360
232E   08E9 0005 0005            BSet.B    #$5, $5(A1)
2334   6708                      BEQ.B     L357
2336   0C28 0040 001B            Cmp.B     #$40, $1B(A0)
233C   6644                      BNE.B     L362
233E   7208           L357:      MoveQ.L   #$8, D1
2340   6100 FE10                 Bsr       P46
2344   6A0E                      BPL.B     L358
2346   2045                      Move.L    D5, A0
2348   4268 0018                 Clr       $18(A0)
234C   08A9 0005 0005            BClr.B    #$5, $5(A1)
2352   6008                      Bra.B     L359
2354   0829 0006 0004 L358:      BTst.B    #$6, $4(A1)
235A   661A                      BNE.B     L360
235C   2051           L359:      Move.L    (A1), A0
235E   0829 0006 0005            BTst.B    #$6, $5(A1)
2364   6710                      BEQ.B     L360
2366   0890 0007                 BClr.B    #$7, (A0)
236A   0829 0006 0004            BTst.B    #$6, $4(A1)
2370   6604                      BNE.B     L360
2372   0892 0007                 BClr.B    #$7, (A2)
2376   2045           L360:      Move.L    D5, A0
2378   4CDF 0C38                 MoveM.L   (A7)+, D3-D5/A2-A3
237C   3140 0010      L361:      Move      D0, $10(A0)
2380   4E75                      Rts
2382   7000           L362:      MoveQ.L   #$0, D0
2384   60F0                      Bra.B     L360

                      P_tClose:
2386   3428 0018                 Move      $18(A0), D2
238A   6B04                      BMI.B     L363
238C   4EFA 2DC0                 Jmp       P_mFileClose
2390   48E7 1C30      L363:      MoveM.L   D3-D5/A2-A3, -(A7)
2394   2A08                      Move.L    A0, D5
2396   6100 FE10                 Bsr       P47
239A   0829 0005 0005            BTst.B    #$5, $5(A1)
23A0   67E0                      BEQ.B     L362
23A2   0829 0007 0005 L364:      BTst.B    #$7, $5(A1)
23A8   66F8                      BNE.B     L364
23AA   7210                      MoveQ.L   #$10, D1
23AC   6100 FDA4                 Bsr       P46
23B0   0C40 FFE8                 Cmp       #$-18, D0
23B4   679E                      BEQ.B     L358
23B6   08A9 0005 0005            BClr.B    #$5, $5(A1)
23BC   609E                      Bra.B     L359

                      P_tRead:
23BE   3428 0018                 Move      $18(A0), D2
23C2   6B04                      BMI.B     L365
23C4   4EFA 2B52                 Jmp       L_mFileRead
23C8   48E7 1C30      L365:      MoveM.L   D3-D5/A2-A3, -(A7)
23CC   70ED                      MoveQ.L   #$-13, D0
23CE   7800                      MoveQ.L   #$0, D4
23D0   2A08           L366:      Move.L    A0, D5
23D2   6100 FDD4                 Bsr       P47
23D6   0C01 0003                 Cmp.B     #$3, D1
23DA   6E04                      BGT.B     L367
23DC   42A8 0028                 Clr.L     $28(A0)         ; ioActCount @sc
23E0   317C 0001 0010 L367:      Move      #$1, $10(A0)    ; ioResult @sc
23E6   3141 0006                 Move      D1, $6(A0)      ; ioTrap @sc
23EA   317C 0002 0004            Move      #$2, $4(A0)     ; qType @sc
23F0   0929 0004                 BTst.L    D4, $4(A1)
23F4   4CDF 0C38                 MoveM.L   (A7)+, D3-D5/A2-A3
23F8   672E                      BEQ.B     L369
23FA   70E4                      MoveQ.L   #$-1C, D0       ; error -28, driver isn't open @sc
23FC   0829 0005 0005            BTst.B    #$5, $5(A1)
2402   6724                      BEQ.B     L369
2404   0801 0009                 BTst.B    #$9, D1
2408   6600 FD14                 BNE       L334
240C   0801 000A                 BTst.B    #$A, D1
2410   6600 FCE6                 BNE       P45             ; async or immediate?? @sc
2414   42A8 000C                 Clr.L     $C(A0)          ; clear the completion pointer @sc
2418   2F08                      Move.L    A0, -(A7)
241A   6100 FCDC                 Bsr       P45
241E   205F                      Move.L    (A7)+, A0
2420   3028 0010      L368:      Move      $10(A0), D0
2424   6EFA                      BGT.B     L368            ; wait for IOParam ioResult @sc
2426   48C0                      Ext.L     D0
2428   3140 0010      L369:      Move      D0, $10(A0)
242C   4E75                      Rts

                      P_tWrite:
242E   3428 0018                 Move      $18(A0), D2
2432   6B04                      BMI.B     L370
2434   4EFA 2BF4                 Jmp       P_mFileWrite
2438   48E7 1C30      L370:      MoveM.L   D3-D5/A2-A3, -(A7)
243C   70EC                      MoveQ.L   #$-14, D0
243E   7801                      MoveQ.L   #$1, D4
2440   608E                      Bra.B     L366

                      P_tControl:
2442   48E7 1C30                 MoveM.L   D3-D5/A2-A3, -(A7)
2446   3428 0018                 Move      $18(A0), D2     ; driver ID number @sc
244A   70EF                      MoveQ.L   #$-11, D0
244C   7802                      MoveQ.L   #$2, D4
244E   6080                      Bra.B     L366

                      P_tStatus:
2450   48E7 1C30                 MoveM.L   D3-D5/A2-A3, -(A7)
2454   3428 0018                 Move      $18(A0), D2
2458   2A08                      Move.L    A0, D5
245A   0C68 0001 001A            Cmp       #$1, $1A(A0)
2460   6708                      BEQ.B     L371
2462   70EE                      MoveQ.L   #$-12, D0
2464   7803                      MoveQ.L   #$3, D4
2466   6000 FF68                 Bra       L366
246A   6100 FD3C      L371:      Bsr       P47
246E   214A 001C                 Move.L    A2, $1C(A0)
2472   6000 FF0E                 Bra       L362

                      P_tKillIO:
2476   48E7 1C30                 MoveM.L   D3-D5/A2-A3, -(A7)
247A   3428 0018                 Move      $18(A0), D2
247E   2A08                      Move.L    A0, D5
2480   6100 FD26                 Bsr       P47
2484   317C 0001 001A            Move      #$1, $1A(A0)
248A   40E7                      Move      SR, -(A7)
248C   007C 0300                 Or        #$300, SR
2490   720C                      MoveQ.L   #$C, D1
2492   70EF                      MoveQ.L   #$-11, D0
2494   7802                      MoveQ.L   #$2, D4
2496   0929 0004                 BTst.L    D4, $4(A1)
249A   6728                      BEQ.B     L374
249C   70E4                      MoveQ.L   #$-1C, D0
249E   0829 0005 0005            BTst.B    #$5, $5(A1)
24A4   671E                      BEQ.B     L374
24A6   6100 FCAA                 Bsr       P46
24AA   6618                      BNE.B     L374
24AC   4AA9 0008      L372:      Tst.L     $8(A1)
24B0   670C                      BEQ.B     L373
24B2   70E5                      MoveQ.L   #$-1B, D0
24B4   323C 2300                 Move      #$2300, D1
24B8   6100 FC0A                 Bsr       P44
24BC   60EE                      Bra.B     L372
24BE   6100 FBE2      L373:      Bsr       P43
24C2   7000                      MoveQ.L   #$0, D0
24C4   46DF           L374:      Move      (A7)+, SR
24C6   6000 FEAE                 Bra       L360

                      P_tDrvrInstall:
24CA   48E7 1C30                 MoveM.L   D3-D5/A2-A3, -(A7)
24CE   2648                      Move.L    A0, A3
24D0   2600                      Move.L    D0, D3
24D2   6134                      Bsr.B     P48
24D4   6B2C                      BMI.B     L379
24D6   6610                      BNE.B     L376
24D8   0801 000A                 BTst.B    #$A, D1
24DC   6704                      BEQ.B     L375
24DE   7028                      MoveQ.L   #$28, D0
24E0   A440                      _ResrvMemSys
24E2   7028           L375:      MoveQ.L   #$28, D0
24E4   A522                      _NewHandleSys
24E6   661A                      BNE.B     L379
24E8   7027           L376:      MoveQ.L   #$27, D0
24EA   2250                      Move.L    (A0), A1
24EC   4219           L377:      Clr.B     (A1)+
24EE   51C8 FFFC                 DBF       D0, L377
24F2   2488                      Move.L    A0, (A2)
24F4   2650                      Move.L    (A0), A3
24F6   08EB 0006 0005            BSet.B    #$6, $5(A3)
24FC   3743 0018                 Move      D3, $18(A3)
2500   7000           L378:      MoveQ.L   #$0, D0
2502   4CDF 0C38      L379:      MoveM.L   (A7)+, D3-D5/A2-A3
2506   4E75                      Rts

                      P48:
2508   4640                      Not       D0
250A   6B18                      BMI.B     L380
250C   B078 01D2                 Cmp       (UnitTableEntryCount), D0
2510   6C12                      BGE.B     L380
2512   E540                      AsL       #$2, D0
2514   2478 011C                 Move.L    (UTableBase), A2
2518   D4C0                      AddA      D0, A2
251A   2052                      Move.L    (A2), A0
251C   2008                      Move.L    A0, D0
251E   C0B8 031A                 And.L     (Lo3Bytes), D0
2522   4E75                      Rts
2524   70EB           L380:      MoveQ.L   #$-15, D0
2526   4E75                      Rts

                      P_tDrvrRemove:
2528   48E7 1C30                 MoveM.L   D3-D5/A2-A3, -(A7)
252C   61DA                      Bsr.B     P48
252E   6BD2                      BMI.B     L379
2530   67CE                      BEQ.B     L378
2532   264A                      Move.L    A2, A3
2534   2440                      Move.L    D0, A2
2536   2252                      Move.L    (A2), A1
2538   0829 0005 0005            BTst.B    #$5, $5(A1)
253E   6614                      BNE.B     L382
2540   0829 0006 0005            BTst.B    #$6, $5(A1)
2546   6704                      BEQ.B     L381
2548   2F11                      Move.L    (A1), -(A7)
254A   A9A3                      _ReleaseResource
254C   204A           L381:      Move.L    A2, A0
254E   A023                      _DisposeHandle
2550   4293                      Clr.L     (A3)
2552   60AC                      Bra.B     L378
2554   70E7           L382:      MoveQ.L   #$-19, D0
2556   60AA                      Bra.B     L379

                      P_tAddDrive:
2558   2140 0006                 Move.L    D0, $6(A0)
255C   43F8 0308                 Lea.L     (DrvQHdr_Flags), A1
2560   4EBA F468                 Jsr       P_tEnqueue
2564   7000                      MoveQ.L   #$0, D0
2566   4E75                      Rts

                      P_InitKeyboard:
2568   4238 021E                 Clr.B     (KbdType)
256C   42B8 0216                 Clr.L     (KbdVers)
2570   6100 0168                 Bsr       P52
2574   50F8 0216                 ST.B      (KbdVers)
2578   41FA 006A                 Lea.L     P_VIAInt_KeyDataReady, A0
257C   21C8 019A                 Move.L    A0, (Lvl1DT.2)
2580   42B8 029E                 Clr.L     (Key1Trans)
2584   42B8 02A2                 Clr.L     (Key2Trans)
2588   41FA 0142                 Lea.L     P_KybdTask, A0
258C   21C8 021A                 Move.L    A0, (JKybdTask)

                      P_GetKeyboardModelNumber:
2590   2278 01D4                 Move.L    (VIA), A1
2594   4229 1800                 Clr.B     $1800(A1)       ; clear peripheral control register @sc
2598   137C 0087 1C00            Move.B    #$-79, $1C00(A1) ; enable keyboard data line @sc
259E   7016                      MoveQ.L   #$16, D0        ; model number command @sc
25A0   50F8 0218                 ST.B      (KbdLast)
                      ; send D0 to keyboard @sc
25A4   2278 01D4      L383:      Move.L    (VIA), A1
25A8   40E7                      Move      SR, -(A7)
25AA   007C 0300                 Or        #$300, SR
25AE   1229 1600                 Move.B    $1600(A1), D1
25B2   0201 00E3                 And.B     #$-1D, D1       ; set shift register control to 000 @sc
25B6   3F01                      Move      D1, -(A7)
25B8   1341 1600                 Move.B    D1, $1600(A1)
25BC   4229 1400                 Clr.B     $1400(A1)       ; VIA shift register @sc
25C0   0001 0018                 Or.B      #$18, D1
25C4   1341 1600                 Move.B    D1, $1600(A1)   ; VIA aux control register @sc
25C8   4229 1400                 Clr.B     $1400(A1)       ; VIA shift register @sc
25CC   4E71                      Nop
25CE   321F                      Move      (A7)+, D1
25D0   1341 1600                 Move.B    D1, $1600(A1)   ; VIA aux control register @sc
25D4   0001 001C                 Or.B      #$1C, D1
25D8   1341 1600                 Move.B    D1, $1600(A1)   ; VIA aux control register @sc
25DC   1340 1400                 Move.B    D0, $1400(A1)   ; VIA shift register @sc
25E0   46DF                      Move      (A7)+, SR
25E2   4E75                      Rts

                      P_VIAInt_KeyDataReady:
25E4   0829 0004 1600            BTst.B    #$4, $1600(A1)
25EA   6722                      BEQ.B     L385
25EC   137C 0004 1A00            Move.B    #$4, $1A00(A1)
25F2   303C 00C8                 Move      #$C8, D0
25F6   4A38 012F                 Tst.B     (CPUFlag)
25FA   6702                      BEQ.B     L384
25FC   E748                      LsL       #$3, D0
25FE   51C8 FFFE      L384:      DBF       D0, L384
2602   08A9 0004 1600            BClr.B    #$4, $1600(A1)
2608   1029 1400                 Move.B    $1400(A1), D0
260C   4E75                      Rts
260E   50F8 0216      L385:      ST.B      (KbdVers)
2612   1029 1400                 Move.B    $1400(A1), D0
2616   1600                      Move.B    D0, D3
2618   0C00 007B                 Cmp.B     #$7B, D0
261C   671E                      BEQ.B     L387
261E   4A38 0218                 Tst.B     (KbdLast)
2622   670A                      BEQ.B     L386
2624   11C0 021E                 Move.B    D0, (KbdType)
2628   4238 0218                 Clr.B     (KbdLast)
262C   600E                      Bra.B     L387
262E   0C00 0079      L386:      Cmp.B     #$79, D0
2632   660E                      BNE.B     L389
2634   50F8 0217                 ST.B      (KbdVars.1)
2638   7014                      MoveQ.L   #$14, D0
263A   6002                      Bra.B     L388
263C   7010           L387:      MoveQ.L   #$10, D0
263E   6000 FF64      L388:      Bra       L383
2642   747F           L389:      MoveQ.L   #$7F, D2
2644   C400                      And.B     D0, D2
2646   E20A                      LsR.B     #$1, D2
2648   4A38 0217                 Tst.B     (KbdVars.1)
264C   6704                      BEQ.B     L390
264E   0642 0040                 Add       #$40, D2
2652   4A03           L390:      Tst.B     D3
2654   6A0E                      BPL.B     L391
2656   3238 0184                 Move      (KeyLast), D1
265A   E049                      LsR       #$8, D1
265C   B401                      Cmp.B     D1, D2
265E   6604                      BNE.B     L391
2660   4278 0184                 Clr       (KeyLast)
2664   2F02           L391:      Move.L    D2, -(A7)
2666   6134                      Bsr.B     P51
2668   241F                      Move.L    (A7)+, D2
266A   E14A                      LsL       #$8, D2
266C   1400                      Move.B    D0, D2
266E   660C                      BNE.B     L392
2670   1038 02F9                 Move.B    (ScrDmpType), D0
2674   6BC6                      BMI.B     L387
2676   50F8 02F9                 ST.B      (ScrDmpType)
267A   1400                      Move.B    D0, D2
267C   7004           L392:      MoveQ.L   #$4, D0
267E   4A03                      Tst.B     D3
2680   6B12                      BMI.B     L393
2682   7003                      MoveQ.L   #$3, D0
2684   21F8 016A 0186            Move.L    (Ticks), (KeyTime)
268A   21F8 016A 018A            Move.L    (Ticks), (KeyRepTime)
2690   31C2 0184                 Move      D2, (KeyLast)
2694   2040           L393:      Move.L    D0, A0
2696   2002                      Move.L    D2, D0
2698   A02F                      _PostEvent
269A   60A0                      Bra.B     L387

                      P51:
269C   41F8 0174                 Lea.L     (KeyMap), A0
26A0   3202                      Move      D2, D1
26A2   E649                      LsR       #$3, D1
26A4   D0C1                      AddA      D1, A0
26A6   05D0                      BSet.L    D2, (A0)
26A8   4A03                      Tst.B     D3
26AA   6A02                      BPL.B     L394
26AC   0590                      BClr.L    D2, (A0)
26AE   2F38 029E      L394:      Move.L    (Key1Trans), -(A7)
26B2   4A38 0217                 Tst.B     (KbdVars.1)
26B6   6708                      BEQ.B     L395
26B8   2EB8 02A2                 Move.L    (Key2Trans), (A7)
26BC   4238 0217                 Clr.B     (KbdVars.1)
26C0   3238 017A      L395:      Move      (KeyMap.6), D1
26C4   4A97                      Tst.L     (A7)
26C6   6602                      BNE.B     L396
26C8   201F                      Move.L    (A7)+, D0
26CA   4E75           L396:      Rts

                      P_KybdTask:
26CC   4A38 0216                 Tst.B     (KbdVers)
26D0   6614                      BNE.B     L398
26D2   4238 021E                 Clr.B     (KbdType)
26D6   6100 FEB8                 Bsr       P_GetKeyboardModelNumber

                      P52:
26DA   41F8 0174                 Lea.L     (KeyMap), A0
26DE   7008                      MoveQ.L   #$8, D0
26E0   4258           L397:      Clr       (A0)+
26E2   51C8 FFFC                 DBF       D0, L397
26E6   4238 0216      L398:      Clr.B     (KbdVers)
26EA   4E75                      Rts

                      P_tPostEvent:
26EC   3438 0144                 Move      (SysEvtMask), D2
26F0   3208                      Move      A0, D1
26F2   0302                      BTst.L    D1, D2
26F4   6604                      BNE.B     L399
26F6   7001                      MoveQ.L   #$1, D0
26F8   4E75                      Rts
26FA   40E7           L399:      Move      SR, -(A7)
26FC   2F00                      Move.L    D0, -(A7)
26FE   3F08                      Move      A0, -(A7)
2700   2078 0146                 Move.L    (SysEvtBuf), A0
2704   5C88                      AddQ      #$6, A0
2706   7016                      MoveQ.L   #$16, D0
2708   72FF                      MoveQ.L   #$-1, D1
270A   90C0                      SubA      D0, A0
270C   3438 0154                 Move      (EvtBufCnt), D2
2710   007C 0100                 Or        #$100, SR
2714   D0C0           L400:      AddA      D0, A0
2716   B250                      Cmp       (A0), D1
2718   57CA FFFA                 DBEQ      D2, L400
271C   43F8 014A                 Lea.L     (EventQueue), A1
2720   670A                      BEQ.B     L401
2722   2069 0002                 Move.L    $2(A1), A0
2726   2350 0002                 Move.L    (A0), $2(A1)
272A   5C88                      AddQ      #$6, A0
272C   309F           L401:      Move      (A7)+, (A0)
272E   215F 0002                 Move.L    (A7)+, $2(A0)
2732   6112                      Bsr.B     P53
2734   5D88                      SubQ      #$6, A0
2736   317C 0004 0004            Move      #$4, $4(A0)
273C   4EBA F28C                 Jsr       P_tEnqueue
2740   46DF                      Move      (A7)+, SR
2742   7000                      MoveQ.L   #$0, D0
2744   4E75                      Rts

                      P53:
2746   2178 016A 0006            Move.L    (Ticks), $6(A0)
274C   2178 0830 000A            Move.L    (Mouse_v), $A(A0)
2752   3238 017A                 Move      (KeyMap.6), D1
2756   E359                      ROL       #$1, D1
2758   1141 000E                 Move.B    D1, $E(A0)
275C   1178 0172 000F            Move.B    (MBState), $F(A0)
2762   4E75                      Rts

                      P_tOSEventAvail:
2764   43F8 014A                 Lea.L     (EventQueue), A1
2768   40E7                      Move      SR, -(A7)
276A   007C 0100                 Or        #$100, SR
276E   2229 0002                 Move.L    $2(A1), D1
2772   670E                      BEQ.B     L403
2774   2241           L402:      Move.L    D1, A1
2776   3229 0006                 Move      $6(A1), D1
277A   0300                      BTst.L    D1, D0
277C   6648                      BNE.B     L404
277E   2211                      Move.L    (A1), D1
2780   66F2                      BNE.B     L402
2782   C078 0144      L403:      And       (SysEvtMask), D0
2786   4A78 0184                 Tst       (KeyLast)
278A   6750                      BEQ.B     L406
278C   0800 0005                 BTst.B    #$5, D0
2790   674A                      BEQ.B     L406
2792   2238 016A                 Move.L    (Ticks), D1
2796   2401                      Move.L    D1, D2
2798   92B8 0186                 Sub.L     (KeyTime), D1
279C   B278 018E                 Cmp       (KeyThresh), D1
27A0   6D3A                      BLT.B     L406
27A2   94B8 018A                 Sub.L     (KeyRepTime), D2
27A6   B478 0190                 Cmp       (KeyRepThresh), D2
27AA   6D30                      BLT.B     L406
27AC   21F8 016A 018A            Move.L    (Ticks), (KeyRepTime)
27B2   2F08                      Move.L    A0, -(A7)
27B4   307C 0005                 Move      #$5, A0
27B8   7000                      MoveQ.L   #$0, D0
27BA   3038 0184                 Move      (KeyLast), D0
27BE   6100 FF2C                 Bsr       P_tPostEvent
27C2   2248                      Move.L    A0, A1
27C4   205F                      Move.L    (A7)+, A0
27C6   46DF           L404:      Move      (A7)+, SR
27C8   7004                      MoveQ.L   #$4, D0
27CA   48E7 00C0                 MoveM.L   A0-A1, -(A7)
27CE   5C89                      AddQ      #$6, A1
27D0   20D9           L405:      Move.L    (A1)+, (A0)+
27D2   5340                      SubQ      #$1, D0
27D4   66FA                      BNE.B     L405
27D6   4CDF 0300                 MoveM.L   (A7)+, A0-A1
27DA   4E75                      Rts
27DC   6100 FF68      L406:      Bsr       P53
27E0   46DF                      Move      (A7)+, SR
27E2   4250                      Clr       (A0)
27E4   42A8 0002                 Clr.L     $2(A0)
27E8   70FF                      MoveQ.L   #$-1, D0
27EA   4E75                      Rts

                      P_tGetOSEvent:
27EC   6100 FF76                 Bsr       P_tOSEventAvail
27F0   660A                      BNE.B     L407
27F2   2049                      Move.L    A1, A0
27F4   43F8 014A                 Lea.L     (EventQueue), A1
27F8   6104                      Bsr.B     P54
27FA   7000                      MoveQ.L   #$0, D0
27FC   4E75           L407:      Rts

                      P54:
27FE   4EBA F1F0                 Jsr       P_tDequeue
2802   317C FFFF 0006            Move      #$-1, $6(A0)
2808   4E75                      Rts

                      P_tFlushEvents:
280A   40E7                      Move      SR, -(A7)
280C   48E7 1800                 MoveM.L   D3-D4, -(A7)
2810   72FF                      MoveQ.L   #$-1, D1
2812   21C1 0B4C                 Move.L    D1, (LastSPExtra)
2816   2200                      Move.L    D0, D1
2818   4841                      Swap      D1
281A   3800                      Move      D0, D4
281C   C878 025E                 And       (DiskVars.FlEvtMask), D4
2820   43F8 014A                 Lea.L     (EventQueue), A1
2824   007C 0100                 Or        #$100, SR
2828   2629 0002                 Move.L    $2(A1), D3
282C   6716                      BEQ.B     L410
282E   2043           L408:      Move.L    D3, A0
2830   2610                      Move.L    (A0), D3
2832   3428 0006                 Move      $6(A0), D2
2836   0501                      BTst.L    D2, D1
2838   660C                      BNE.B     L411
283A   0504                      BTst.L    D2, D4
283C   6702                      BEQ.B     L409
283E   61BE                      Bsr.B     P54
2840   4A83           L409:      Tst.L     D3
2842   66EA                      BNE.B     L408
2844   7400           L410:      MoveQ.L   #$0, D2
2846   4CDF 0018      L411:      MoveM.L   (A7)+, D3-D4
284A   3002                      Move      D2, D0
284C   48C0                      Ext.L     D0
284E   46DF                      Move      (A7)+, SR
2850   4E75                      Rts

                      P_tFSDispatch:
2852   4A40                      Tst       D0
2854   6D06                      BLT.B     L412
2856   0C40 0011                 Cmp       #$11, D0
285A   6308                      BLS.B     L413
285C   614C           L412:      Bsr.B     P56
285E   70CE                      MoveQ.L   #$-32, D0
2860   6000 00FC                 Bra       L423
2864   3400           L413:      Move      D0, D2
2866   45FA 000A                 Lea.L     DT21, A2
286A   D442                      Add       D2, D2
286C   D4F2 2000                 AddA      $0(A2,D2.W), A2
2870   4ED2                      Jmp       (A2)

                      DT21:
2872   0024 1300 13AC            DC.B      ' $    '
2878   12A8 12DC 1DBE            DC.B      '      '
287E   1964 13E6 2B40            DC.B      ' d  +@'
2884   225E 2096 115C            DC.B      '"^   \'
288A   0F84 14EE 1518            DC.B      '      '
2890   1492 2BF4 2BF4            DC.B      '  + + '

                      P_hfs0:
2896   6112                      Bsr.B     P56
2898   217C 312E 3241            Move.L    #$312E3241, $20(A0)
       0020
28A0   7000                      MoveQ.L   #$0, D0
28A2   6000 00BA                 Bra       L423

                      P55:
28A6   0881 000A                 BClr.B    #$A, D1

                      P56:
28AA   2438 03E2                 Move.L    (FSQueueHook), D2
28AE   6F04                      BLE.B     L414
28B0   2242                      Move.L    D2, A1
28B2   4E91                      Jsr       (A1)
28B4   317C 0001 0010 L414:      Move      #$1, $10(A0)
28BA   3141 0006                 Move      D1, $6(A0)
28BE   0C01 0060                 Cmp.B     #$60, D1
28C2   660A                      BNE.B     L415
28C4   0228 000F 0006            And.B     #$F, $6(A0)
28CA   1140 0007                 Move.B    D0, $7(A0)
28CE   215F 0008      L415:      Move.L    (A7)+, $8(A0)
28D2   317C 0005 0004            Move      #$5, $4(A0)
28D8   0801 000A                 BTst.B    #$A, D1
28DC   6708                      BEQ.B     L416
28DE   4A38 0349                 Tst.B     (FrcSync)
28E2   672E                      BEQ.B     P57
28E4   6004                      Bra.B     L417
28E6   42A8 000C      L416:      Clr.L     $C(A0)
28EA   2F08           L417:      Move.L    A0, -(A7)
28EC   6124                      Bsr.B     P57
28EE   205F                      Move.L    (A7)+, A0
28F0   3028 0010      L418:      Move      $10(A0), D0
28F4   6EFA                      BGT.B     L418
28F6   48C0                      Ext.L     D0
28F8   0C40 FFCB                 Cmp       #$-35, D0
28FC   6612                      BNE.B     L419
28FE   2F38 03EA                 Move.L    (DskSwtchHook), -(A7)
2902   6E0C                      BGT.B     L419
2904   584F                      AddQ      #$4, A7
2906   0838 0007 03F8            BTst.B    #$7, (DSAlertRect)
290C   6600 0178                 BNE       P_mDSHook
2910   4E75           L419:      Rts

                      P57:
2912   43F8 0360                 Lea.L     (FSQHdr_Flags), A1
2916   40E7                      Move      SR, -(A7)
2918   007C 0300                 Or        #$300, SR
291C   4EBA F0AC                 Jsr       P_tEnqueue
2920   08F8 0000 0360 L420:      BSet.B    #$0, (FSQHdr_Flags)
2926   6706                      BEQ.B     L421
2928   7000                      MoveQ.L   #$0, D0
292A   46DF                      Move      (A7)+, SR
292C   4E75                      Rts
292E   46DF           L421:      Move      (A7)+, SR
2930   2078 0362                 Move.L    (FSQHdr.Head), A0
2934   2268 0008                 Move.L    $8(A0), A1
2938   48E7 1F3E                 MoveM.L   D3-D7/A2-A6, -(A7)
293C   2C78 0386                 Move.L    (PMSPPtr), A6
2940   426E FFFE                 Clr       $-2(A6)
2944   0828 000A 0006            BTst.B    #$A, $6(A0)
294A   56F8 0342                 SNE.B     (NxtDB)
294E   2C78 036A                 Move.L    (HFSVars_HFSStkTop), A6
2952   4E91                      Jsr       (A1)
2954   4CDF 7CF8                 MoveM.L   (A7)+, D3-D7/A2-A6
2958   4E75                      Rts

                      L422:
295A   701B                      MoveQ.L   #$1B, D0
295C   A9C9                      _SysError
295E   4238 0377      L423:      Clr.B     (SysCRefCnt)
2962   48C0                      Ext.L     D0
2964   6F06                      BLE.B     L424
2966   31C0 0392                 Move      D0, (HFSDSErr)
296A   7081                      MoveQ.L   #$-7F, D0
296C   2078 0362      L424:      Move.L    (FSQHdr.Head), A0
2970   0C68 0005 0004            Cmp       #$5, $4(A0)
2976   66E2                      BNE.B     L422
2978   0C40 FFD5                 Cmp       #$-2B, D0
297C   6664                      BNE.B     L429
297E   0828 0009 0006            BTst.B    #$9, $6(A0)
2984   6706                      BEQ.B     L425
2986   4AA8 0030                 Tst.L     $30(A0)
298A   6656                      BNE.B     L429
298C   0838 0006 0376 L425:      BTst.B    #$6, (HFSFlags)
2992   664E                      BNE.B     L429
2994   0838 0005 0376            BTst.B    #$5, (HFSFlags)
299A   6646                      BNE.B     L429
299C   2278 0386                 Move.L    (PMSPPtr), A1
29A0   48E7 4020                 MoveM.L   D1/A2, -(A7)
29A4   3229 FFFE                 Move      $-2(A1), D1
29A8   5C41           L426:      AddQ      #$6, D1
29AA   B251                      Cmp       (A1), D1
29AC   6C12                      BGE.B     L427
29AE   3031 1000                 Move      $0(A1,D1.W), D0
29B2   670C                      BEQ.B     L427
29B4   6100 02F0                 Bsr       P_mGetVCBRFN
29B8   6606                      BNE.B     L427
29BA   302A 0048                 Move      $48(A2), D0
29BE   6FE8                      BLE.B     L426
29C0   3341 FFFE      L427:      Move      D1, $-2(A1)
29C4   3001                      Move      D1, D0
29C6   4CDF 0402                 MoveM.L   (A7)+, D1/A2
29CA   B051                      Cmp       (A1), D0
29CC   6C12                      BGE.B     L428
29CE   4A71 0000                 Tst       $0(A1,D0.W)
29D2   670C                      BEQ.B     L428
29D4   7000                      MoveQ.L   #$0, D0
29D6   1028 0007                 Move.B    $7(A0), D0
29DA   2268 0008                 Move.L    $8(A0), A1
29DE   4ED1                      Jmp       (A1)
29E0   70D5           L428:      MoveQ.L   #$-2B, D0
29E2   08B8 0005 0376 L429:      BClr.B    #$5, (HFSFlags)
29E8   2438 03E6                 Move.L    (ExtFSHook), D2
29EC   6F04                      BLE.B     L430
29EE   2242                      Move.L    D2, A1
29F0   4E91                      Jsr       (A1)
29F2   0C40 FFC6      L430:      Cmp       #$-3A, D0
29F6   662E                      BNE.B     L432
29F8   2438 03F2                 Move.L    (ToExtFS), D2
29FC   6F28                      BLE.B     L432
29FE   2242                      Move.L    D2, A1
2A00   2078 0362                 Move.L    (FSQHdr.Head), A0
2A04   0C68 0005 0004            Cmp       #$5, $4(A0)
2A0A   6600 FF4E                 BNE       L422
2A0E   4A68 0006                 Tst       $6(A0)
2A12   6D10                      BLT.B     L431
2A14   7000                      MoveQ.L   #$0, D0
2A16   1028 0007                 Move.B    $7(A0), D0
2A1A   4228 0007                 Clr.B     $7(A0)
2A1E   0068 A060 0006            Or        #$-5FA0, $6(A0)
2A24   4E91           L431:      Jsr       (A1)
2A26   40E7           L432:      Move      SR, -(A7)
2A28   007C 0300                 Or        #$300, SR
2A2C   4278 0360                 Clr       (FSQHdr_Flags)
2A30   2078 0362                 Move.L    (FSQHdr.Head), A0
2A34   0C68 0005 0004            Cmp       #$5, $4(A0)
2A3A   6600 FF1E                 BNE       L422
2A3E   21D0 0362                 Move.L    (A0), (FSQHdr.Head)
2A42   6604                      BNE.B     L433
2A44   42B8 0366                 Clr.L     (FSQHdr.Tail)
2A48   46DF           L433:      Move      (A7)+, SR
2A4A   3140 0010                 Move      D0, $10(A0)
2A4E   2228 000C                 Move.L    $C(A0), D1
2A52   6706                      BEQ.B     L434
2A54   2241                      Move.L    D1, A1
2A56   4A40                      Tst       D0
2A58   4E91                      Jsr       (A1)
2A5A   40E7           L434:      Move      SR, -(A7)
2A5C   007C 0300                 Or        #$300, SR
2A60   4AB8 0362                 Tst.L     (FSQHdr.Head)
2A64   6600 FEBA                 BNE       L420
2A68   46DF                      Move      (A7)+, SR
2A6A   4E75                      Rts

                      P_tFInitQueue:
2A6C   40E7                      Move      SR, -(A7)
2A6E   007C 0300                 Or        #$300, SR
2A72   2038 0362                 Move.L    (FSQHdr.Head), D0
2A76   6708                      BEQ.B     L435
2A78   2040                      Move.L    D0, A0
2A7A   4290                      Clr.L     (A0)
2A7C   21C8 0366                 Move.L    A0, (FSQHdr.Tail)
2A80   7000           L435:      MoveQ.L   #$0, D0
2A82   46DF                      Move      (A7)+, SR
2A84   4E75                      Rts

                      P_mDSHook:
2A86   48E7 FFF2                 MoveM.L   D0-D7/A0-A3/A6, -(A7)
2A8A   43F8 0B00                 Lea.L     (TrapAgain), A1
2A8E   32E8 0006                 Move      $6(A0), (A1)+
2A92   32BC 4E75                 Move      #$4E75, (A1)
2A96   6100 034E                 Bsr       P_mMakeStkPB
2A9A   2E08                      Move.L    A0, D7
2A9C   2478 03EE                 Move.L    (ReqstVol), A2
2AA0   362A 004A                 Move      $4A(A2), D3
2AA4   6A10                      BPL.B     L437
2AA6   4443                      Neg       D3
2AA8   3143 0016                 Move      D3, $16(A0)
2AAC   A00F                      _MountVol
2AAE   6606                      BNE.B     L437
2AB0   7600                      MoveQ.L   #$0, D3
2AB2   6000 0134                 Bra       L450
2AB6   21FC 0050 0078 L437:      Move.L    #$500078, (DSAlertRect)
       03F8
2ABE   21FC 0098 0195            Move.L    #$980195, (DSAlertRect.botRight)
       03FC
2AC6   7800                      MoveQ.L   #$0, D4
2AC8   7A00                      MoveQ.L   #$0, D5
2ACA   4A38 08F3                 Tst.B     (QDExist)
2ACE   665C                      BNE.B     L438
2AD0   2055                      Move.L    (A5), A0
2AD2   2810                      Move.L    (A0), D4
2AD4   200F                      Move.L    A7, D0
2AD6   0480 0000 12BE            Sub.L     #$12BE, D0
2ADC   2078 02AA                 Move.L    (ApplZone), A0
2AE0   B090                      Cmp.L     (A0), D0
2AE2   6F48                      BLE.B     L438
2AE4   2A0F                      Move.L    A7, D5
2AE6   0680 0000 0800            Add.L     #$800, D0
2AEC   2E40                      Move.L    D0, A7
2AEE   2C00                      Move.L    D0, D6
2AF0   204F                      Move.L    A7, A0
2AF2   4868 000E                 Pea.L     $E(A0)
2AF6   20DF                      Move.L    (A7)+, (A0)+
2AF8   30FC 0024                 Move      #$24, (A0)+
2AFC   4298                      Clr.L     (A0)+
2AFE   20FC 0048 011D            Move.L    #$48011D, (A0)+
2B04   9EFC 0074                 SubA      #$74, A7
2B08   2C4F                      Move.L    A7, A6
2B0A   4EBA E6A0                 Jsr       P_mAllocFakeRgns
2B0E   2F0F                      Move.L    A7, -(A7)
2B10   A86D                      _InitPort
2B12   2055                      Move.L    (A5), A0
2B14   208E                      Move.L    A6, (A0)
2B16   4868 FF86                 Pea.L     $-7A(A0)
2B1A   2F06                      Move.L    D6, -(A7)
2B1C   4878 03F8                 Pea.L     (DSAlertRect)
2B20   2046                      Move.L    D6, A0
2B22   4868 0006                 Pea.L     $6(A0)
2B26   4267                      Clr       -(A7)
2B28   42A7                      Clr.L     -(A7)
2B2A   A8EC                      _CopyBits
2B2C   701E           L438:      MoveQ.L   #$1E, D0
2B2E   A9C9                      _SysError
2B30   2038 030A                 Move.L    (DrvQHdr.Head), D0
2B34   6724           L439:      BEQ.B     L443
2B36   2240                      Move.L    D0, A1
2B38   B669 0006                 Cmp       $6(A1), D3
2B3C   6704                      BEQ.B     L440
2B3E   2011                      Move.L    (A1), D0
2B40   60F2                      Bra.B     L439
2B42   1029 FFFD      L440:      Move.B    $-3(A1), D0
2B46   0C00 0001                 Cmp.B     #$1, D0
2B4A   6706                      BEQ.B     L441
2B4C   0C00 0002                 Cmp.B     #$2, D0
2B50   6608                      BNE.B     L443
2B52   3203           L441:      Move      D3, D1
2B54   7402           L442:      MoveQ.L   #$2, D2
2B56   6100 00C4                 Bsr       P_mvDoEject
2B5A   9EFC 0010      L443:      SubA      #$10, A7
2B5E   303C 0088      L444:      Move      #$88, D0
2B62   204F                      Move.L    A7, A0
2B64   A031                      _GetOSEvent
2B66   66F6                      BNE.B     L444
2B68   202F 0002                 Move.L    $2(A7), D0
2B6C   3617                      Move      (A7), D3
2B6E   322F 000E                 Move      $E(A7), D1
2B72   DEFC 0010                 AddA      #$10, A7
2B76   5F43                      SubQ      #$7, D3
2B78   672C                      BEQ.B     L446
2B7A   0C00 002E                 Cmp.B     #$2E, D0
2B7E   671E                      BEQ.B     L445
2B80   0C00 0002                 Cmp.B     #$2, D0
2B84   62D4                      BHI.B     L443
2B86   4A00                      Tst.B     D0
2B88   67D0                      BEQ.B     L443
2B8A   740B                      MoveQ.L   #$B, D2
2B8C   E049                      LsR       #$8, D1
2B8E   C401                      And.B     D1, D2
2B90   5702                      SubQ      #$3, D2
2B92   66C6                      BNE.B     L443
2B94   7401                      MoveQ.L   #$1, D2
2B96   1200                      Move.B    D0, D1
2B98   6100 0082                 Bsr       P_mvDoEject
2B9C   60BC                      Bra.B     L443
2B9E   0801 0008      L445:      BTst.B    #$8, D1
2BA2   67B6                      BEQ.B     L443
2BA4   6014                      Bra.B     L447
2BA6   2047           L446:      Move.L    D7, A0
2BA8   3140 0016                 Move      D0, $16(A0)
2BAC   3200                      Move      D0, D1
2BAE   A00F                      _MountVol
2BB0   6708                      BEQ.B     L447
2BB2   0C40 FF94                 Cmp       #$-6C, D0
2BB6   669C                      BNE.B     L442
2BB8   76FF                      MoveQ.L   #$-1, D3
2BBA   4A85           L447:      Tst.L     D5
2BBC   671E                      BEQ.B     L448
2BBE   2F06                      Move.L    D6, -(A7)
2BC0   2055                      Move.L    (A5), A0
2BC2   208E                      Move.L    A6, (A0)
2BC4   4868 FF86                 Pea.L     $-7A(A0)
2BC8   2046                      Move.L    D6, A0
2BCA   4868 0006                 Pea.L     $6(A0)
2BCE   4878 03F8                 Pea.L     (DSAlertRect)
2BD2   4267                      Clr       -(A7)
2BD4   42A7                      Clr.L     -(A7)
2BD6   A8EC                      _CopyBits
2BD8   2E45                      Move.L    D5, A7
2BDA   6008                      Bra.B     L449
2BDC   4238 015D      L448:      Clr.B     (DSWndUpdate)
2BE0   4A84                      Tst.L     D4
2BE2   6704                      BEQ.B     L450
2BE4   2F04           L449:      Move.L    D4, -(A7)
2BE6   A873                      _SetPort
2BE8   08F8 0007 03F8 L450:      BSet.B    #$7, (DSAlertRect)
2BEE   DEFC 0040                 AddA      #$40, A7
2BF2   4A43                      Tst       D3
2BF4   4CDF 4FFF                 MoveM.L   (A7)+, D0-D7/A0-A3/A6
2BF8   6704                      BEQ.B     L451
2BFA   70CB                      MoveQ.L   #$-35, D0
2BFC   4E75                      Rts
2BFE   3028 0006      L451:      Move      $6(A0), D0
2C02   6E04                      BGT.B     L452
2C04   4EF8 0B00                 Jmp       (TrapAgain)
2C08   0038 00A0 0B00 L452:      Or.B      #$-60, (TrapAgain)
2C0E   11FC 0060 0B01            Move.B    #$60, (TrapAgain.1)
2C14   0240 00FF                 And       #$FF, D0
2C18   4EF8 0B00                 Jmp       (TrapAgain)

                      P_mvDoEject:
2C1C   6100 01C8                 Bsr       P_mMakeStkPB
2C20   3141 0016                 Move      D1, $16(A0)
2C24   2038 0338                 Move.L    (EjectNotify), D0
2C28   6F16                      BLE.B     L453
2C2A   48E7 20E0                 MoveM.L   D2/A0-A2, -(A7)
2C2E   4267                      Clr       -(A7)
2C30   3F01                      Move      D1, -(A7)
2C32   3F02                      Move      D2, -(A7)
2C34   2040                      Move.L    D0, A0
2C36   4E90                      Jsr       (A0)
2C38   4A1F                      Tst.B     (A7)+
2C3A   4CDF 0704                 MoveM.L   (A7)+, D2/A0-A2
2C3E   670A                      BEQ.B     L454
2C40   A017           L453:      _Eject
2C42   6706                      BEQ.B     L454
2C44   3F3C 0008                 Move      #$8, -(A7)
2C48   A9C8                      _SysBeep
2C4A   DEFC 0040      L454:      AddA      #$40, A7
2C4E   4E75                      Rts

                      P_mDivUp:
2C50   80C1                      DivU      D1, D0
2C52   4840                      Swap      D0
2C54   4A40                      Tst       D0
2C56   6708                      BEQ.B     L455
2C58   4240                      Clr       D0
2C5A   4840                      Swap      D0
2C5C   5240                      AddQ      #$1, D0
2C5E   6002                      Bra.B     L456
2C60   4840           L455:      Swap      D0
2C62   4E75           L456:      Rts

                      P_mRoundAlloc:
2C64   2F01                      Move.L    D1, -(A7)
2C66   2F00                      Move.L    D0, -(A7)
2C68   2001                      Move.L    D1, D0
2C6A   222A 001C                 Move.L    $1C(A2), D1
2C6E   61E0                      Bsr.B     P_mDivUp
2C70   2200                      Move.L    D0, D1
2C72   201F                      Move.L    (A7)+, D0
2C74   2F01                      Move.L    D1, -(A7)
2C76   222A 001C                 Move.L    $1C(A2), D1
2C7A   61D4                      Bsr.B     P_mDivUp
2C7C   221F                      Move.L    (A7)+, D1
2C7E   61D0                      Bsr.B     P_mDivUp
2C80   C0C1                      MulU      D1, D0
2C82   221F                      Move.L    (A7)+, D1
2C84   4E75                      Rts

                      P61:
2C86   2F02                      Move.L    D2, -(A7)
2C88   2428 0002                 Move.L    $2(A0), D2
2C8C   6714           L457:      BEQ.B     L460
2C8E   2042                      Move.L    D2, A0
2C90   B070 1000                 Cmp       $0(A0,D1.W), D0
2C94   6704                      BEQ.B     L458
2C96   2410                      Move.L    (A0), D2
2C98   60F2                      Bra.B     L457
2C9A   7000           L458:      MoveQ.L   #$0, D0
2C9C   241F           L459:      Move.L    (A7)+, D2
2C9E   4A40                      Tst       D0
2CA0   4E75                      Rts
2CA2   70FF           L460:      MoveQ.L   #$-1, D0
2CA4   60F6                      Bra.B     L459

                      P_mGetVCBRFN:
2CA6   48E7 4080                 MoveM.L   D1/A0, -(A7)
2CAA   724E                      MoveQ.L   #$4E, D1
2CAC   41F8 0356                 Lea.L     (VCBQHdr_Flags), A0
2CB0   61D4                      Bsr.B     P61
2CB2   6608                      BNE.B     L462
2CB4   2448                      Move.L    A0, A2
2CB6   4CDF 0102      L461:      MoveM.L   (A7)+, D1/A0
2CBA   4E75                      Rts
2CBC   70DD           L462:      MoveQ.L   #$-23, D0
2CBE   60F6                      Bra.B     L461

                      P63:
2CC0   48E7 6000                 MoveM.L   D1-D2, -(A7)
2CC4   3200                      Move      D0, D1
2CC6   3400                      Move      D0, D2
2CC8   4442                      Neg       D2
2CCA   2478 0358                 Move.L    (VCBQHdr.Head), A2
2CCE   200A           L463:      Move.L    A2, D0
2CD0   671E                      BEQ.B     L467
2CD2   B26A 0048                 Cmp       $48(A2), D1
2CD6   6710                      BEQ.B     L465
2CD8   4A6A 0048                 Tst       $48(A2)
2CDC   6606                      BNE.B     L464
2CDE   B46A 004A                 Cmp       $4A(A2), D2
2CE2   6704                      BEQ.B     L465
2CE4   2452           L464:      Move.L    (A2), A2
2CE6   60E6                      Bra.B     L463
2CE8   7000           L465:      MoveQ.L   #$0, D0
2CEA   4CDF 0006      L466:      MoveM.L   (A7)+, D1-D2
2CEE   4E75                      Rts
2CF0   70DD           L467:      MoveQ.L   #$-23, D0
2CF2   60F6                      Bra.B     L466

                      P64:
2CF4   2678 0372                 Move.L    (WDCBsPtr), A3
2CF8   48E7 4040                 MoveM.L   D1/A1, -(A7)
2CFC   7200                      MoveQ.L   #$0, D1
2CFE   3200                      Move      D0, D1
2D00   6100 103A                 Bsr       P95
2D04   6610                      BNE.B     L468
2D06   0441 8001                 Sub       #$-7FFF, D1
2D0A   D6C1                      AddA      D1, A3
2D0C   70DD                      MoveQ.L   #$-23, D0
2D0E   2213                      Move.L    (A3), D1
2D10   6704                      BEQ.B     L468
2D12   2441                      Move.L    D1, A2
2D14   7000                      MoveQ.L   #$0, D0
2D16   4CDF 0202      L468:      MoveM.L   (A7)+, D1/A1
2D1A   4A40                      Tst       D0
2D1C   4E75                      Rts

                      P_mMarkVCB:
2D1E   6108                      Bsr.B     P67
                      P_mMarkVCBTime:
2D20   2578 020C 000E            Move.L    (Time), $E(A2)
2D26   4E75                      Rts

                      P67:
2D28   50EA 0006                 ST.B      $6(A2)
2D2C   4E75                      Rts

                      P_mFlushMDB:
2D2E   2D1F                      Move.L    (A7)+, -(A6)
2D30   48E6 E0C0                 MoveM.L   D0-D2/A0-A1, -(A6)
2D34   4A2A 0006                 Tst.B     $6(A2)
2D38   6A00 00A2                 BPL       L469
2D3C   226A 0054                 Move.L    $54(A2), A1
2D40   302A 004E                 Move      $4E(A2), D0
2D44   7200                      MoveQ.L   #$0, D1
2D46   7402                      MoveQ.L   #$2, D2
2D48   4EBA 4A66                 Jsr       P_mGetBlock
2D4C   6600 008E                 BNE       L469
2D50   2248                      Move.L    A0, A1
2D52   41EA 0008                 Lea.L     $8(A2), A0
2D56   203C 0000 00A2            Move.L    #$A2, D0
2D5C   A02E                      _BlockMove
2D5E   41EA 005E                 Lea.L     $5E(A2), A0
2D62   43E9 0040                 Lea.L     $40(A1), A1
2D66   7042                      MoveQ.L   #$42, D0
2D68   A02E                      _BlockMove
2D6A   93FC 0000 0040            SubA.L    #$40, A1
2D70   2678 034E                 Move.L    (FCBSPtr), A3
2D74   322A 00A4                 Move      $A4(A2), D1
2D78   48E7 00C0                 MoveM.L   A0-A1, -(A7)
2D7C   700C                      MoveQ.L   #$C, D0
2D7E   41F3 1026                 Lea.L     $26(A3,D1.W), A0
2D82   43E9 0086                 Lea.L     $86(A1), A1
2D86   A02E                      _BlockMove
2D88   4CDF 0300                 MoveM.L   (A7)+, A0-A1
2D8C   2033 100C                 Move.L    $C(A3,D1.W), D0
2D90   2340 0082                 Move.L    D0, $82(A1)
2D94   222A 001C                 Move.L    $1C(A2), D1
2D98   4EBA FEB6                 Jsr       P_mDivUp
2D9C   3540 00A0                 Move      D0, $A0(A2)
2DA0   322A 00A6                 Move      $A6(A2), D1
2DA4   48E7 00C0                 MoveM.L   A0-A1, -(A7)
2DA8   700C                      MoveQ.L   #$C, D0
2DAA   41F3 1026                 Lea.L     $26(A3,D1.W), A0
2DAE   43E9 0096                 Lea.L     $96(A1), A1
2DB2   A02E                      _BlockMove
2DB4   4CDF 0300                 MoveM.L   (A7)+, A0-A1
2DB8   2033 100C                 Move.L    $C(A3,D1.W), D0
2DBC   2340 0092                 Move.L    D0, $92(A1)
2DC0   222A 001C                 Move.L    $1C(A2), D1
2DC4   4EBA FE8A                 Jsr       P_mDivUp
2DC8   3540 00A2                 Move      D0, $A2(A2)
2DCC   7201                      MoveQ.L   #$1, D1
2DCE   2049                      Move.L    A1, A0
2DD0   226A 0054                 Move.L    $54(A2), A1
2DD4   4EBA 4C34                 Jsr       P_mRelBlock
2DD8   422A 0006                 Clr.B     $6(A2)
2DDC   4CDE 0307      L469:      MoveM.L   (A6)+, D0-D2/A0-A1
2DE0   2F1E                      Move.L    (A6)+, -(A7)
2DE2   4A40                      Tst       D0
2DE4   4E75                      Rts

                      P_mMakeStkPB:
2DE6   205F                      Move.L    (A7)+, A0
2DE8   701F                      MoveQ.L   #$1F, D0
2DEA   4267           L470:      Clr       -(A7)
2DEC   51C8 FFFC                 DBF       D0, L470
2DF0   2F08                      Move.L    A0, -(A7)
2DF2   204F                      Move.L    A7, A0
2DF4   5848                      AddQ      #$4, A0
2DF6   4E75                      Rts

                      P_tMountVol:
2DF8   3428 0016                 Move      $16(A0), D2
2DFC   48E7 60C0                 MoveM.L   D1-D2/A0-A1, -(A7)
2E00   6146                      Bsr.B     P70
2E02   4CDF 0306                 MoveM.L   (A7)+, D1-D2/A0-A1
2E06   0C40 FF94                 Cmp       #$-6C, D0
2E0A   6708                      BEQ.B     L471
2E0C   0C40 FFD6                 Cmp       #$-2A, D0
2E10   6702                      BEQ.B     L471
2E12   4E75                      Rts
2E14   3142 0016      L471:      Move      D2, $16(A0)
2E18   2038 0358      L472:      Move.L    (VCBQHdr.Head), D0
2E1C   6726           L473:      BEQ.B     L476
2E1E   2240                      Move.L    D0, A1
2E20   4A69 004C                 Tst       $4C(A1)
2E24   6606                      BNE.B     L474
2E26   3429 0048                 Move      $48(A1), D2
2E2A   6604                      BNE.B     L475
2E2C   2011           L474:      Move.L    (A1), D0
2E2E   60EC                      Bra.B     L473
2E30   2F08           L475:      Move.L    A0, -(A7)
2E32   61B2                      Bsr.B     P_mMakeStkPB
2E34   3142 0016                 Move      D2, $16(A0)
2E38   A035                      _OffLine
2E3A   DEFC 0040                 AddA      #$40, A7
2E3E   205F                      Move.L    (A7)+, A0
2E40   66D6                      BNE.B     L472
2E42   60B4                      Bra.B     P_tMountVol
2E44   7094           L476:      MoveQ.L   #$-6C, D0
2E46   4E75                      Rts

                      P70:
2E48   6100 FA5C                 Bsr       P55
2E4C   50F8 034A                 ST.B      (NewMount)
2E50   70CE           L477:      MoveQ.L   #$-32, D0
2E52   3428 0016                 Move      $16(A0), D2
2E56   6F10                      BLE.B     L478
2E58   3002                      Move      D2, D0
2E5A   6100 FE64                 Bsr       P63
2E5E   660C                      BNE.B     L479
2E60   4A6A 0048                 Tst       $48(A2)
2E64   6706                      BEQ.B     L479
2E66   70C9                      MoveQ.L   #$-37, D0
2E68   6000 02D0      L478:      Bra       L499
2E6C   6100 05A6      L479:      Bsr       P_mFindDrive
2E70   66F6                      BNE.B     L478
2E72   2448                      Move.L    A0, A2
2E74   203C 0000 00B2            Move.L    #$B2, D0
2E7A   A71E                      _NewPtrSysClear
2E7C   66EA                      BNE.B     L478
2E7E   43F8 0356                 Lea.L     (VCBQHdr_Flags), A1
2E82   4AA9 0002                 Tst.L     $2(A1)
2E86   661E                      BNE.B     L480
2E88   21C8 0352                 Move.L    A0, (DefVCBPtr)
2E8C   2278 0372                 Move.L    (WDCBsPtr), A1
2E90   2348 0002                 Move.L    A0, $2(A1)
2E94   7002                      MoveQ.L   #$2, D0
2E96   2340 0006                 Move.L    D0, $6(A1)
2E9A   42A9 000A                 Clr.L     $A(A1)
2E9E   42A9 000E                 Clr.L     $E(A1)
2EA2   43F8 0356                 Lea.L     (VCBQHdr_Flags), A1
2EA6   4EBA EB22      L480:      Jsr       P_tEnqueue
2EAA   C14A                      Exg.L     A0, A2
2EAC   3542 0048                 Move      D2, $48(A2)
2EB0   3541 004A                 Move      D1, $4A(A2)
2EB4   2278 037C                 Move.L    (SysVolCPtr), A1
2EB8   2549 0054                 Move.L    A1, $54(A2)
2EBC   7000                      MoveQ.L   #$0, D0
2EBE   5340           L481:      SubQ      #$1, D0
2EC0   48E7 8020                 MoveM.L   D0/A2, -(A7)
2EC4   6100 FDE0                 Bsr       P_mGetVCBRFN
2EC8   4CDF 0401                 MoveM.L   (A7)+, D0/A2
2ECC   67F0                      BEQ.B     L481
2ECE   3540 004E                 Move      D0, $4E(A2)
2ED2   B5F8 0352                 CmpA.L    (DefVCBPtr), A2
2ED6   6604                      BNE.B     L482
2ED8   31C0 0384                 Move      D0, (DefVRefNum)
2EDC   7200           L482:      MoveQ.L   #$0, D1
2EDE   7402                      MoveQ.L   #$2, D2
2EE0   4EBA 48CE                 Jsr       P_mGetBlock
2EE4   6600 0280                 BNE       L504
2EE8   2A48                      Move.L    A0, A5
2EEA   7202                      MoveQ.L   #$2, D1
2EEC   4EBA 4B1C                 Jsr       P_mRelBlock
2EF0   0C55 4244                 Cmp       #$4244, (A5)
2EF4   670A                      BEQ.B     L483
2EF6   70C7                      MoveQ.L   #$-39, D0
2EF8   0C55 D2D7                 Cmp       #$-2D29, (A5)
2EFC   6600 0268                 BNE       L504
2F00   70C4           L483:      MoveQ.L   #$-3C, D0
2F02   222D 0014                 Move.L    $14(A5), D1
2F06   6700 025A                 BEQ       L503
2F0A   0241 01FF                 And       #$1FF, D1
2F0E   6600 0252                 BNE       L503
2F12   43EA 0008                 Lea.L     $8(A2), A1
2F16   7040                      MoveQ.L   #$40, D0
2F18   A02E                      _BlockMove
2F1A   2078 0362                 Move.L    (FSQHdr.Head), A0
2F1E   316A 004E 0016            Move      $4E(A2), $16(A0)
2F24   41F8 03A4                 Lea.L     (Params), A0
2F28   317C 0008 001A            Move      #$8, $1A(A0)
2F2E   4228 001E                 Clr.B     $1E(A0)
2F32   A005                      _Status
2F34   7080                      MoveQ.L   #$-80, D0
2F36   C028 001E                 And.B     $1E(A0), D0
2F3A   1540 0013                 Move.B    D0, $13(A2)
2F3E   6100 1F86                 Bsr       P_mTFSVCBTst
2F42   6600 0E66                 BNE       L658
2F46   41ED 0040                 Lea.L     $40(A5), A0
2F4A   43EA 005E                 Lea.L     $5E(A2), A1
2F4E   7042                      MoveQ.L   #$42, D0
2F50   A02E                      _BlockMove
2F52   222A 001C                 Move.L    $1C(A2), D1
2F56   202D 0082                 Move.L    $82(A5), D0
2F5A   4EBA FCF4                 Jsr       P_mDivUp
2F5E   3540 00A0                 Move      D0, $A0(A2)
2F62   202D 0092                 Move.L    $92(A5), D0
2F66   4EBA FCE8                 Jsr       P_mDivUp
2F6A   3540 00A2                 Move      D0, $A2(A2)
2F6E   426A 0018                 Clr       $18(A2)
2F72   52AA 0064                 AddQ      #$1, $64(A2)
2F76   6100 0448                 Bsr       P75
2F7A   6600 01E2                 BNE       L502
2F7E   3541 00A4                 Move      D1, $A4(A2)
2F82   23AD 0082 1008            Move.L    $82(A5), $8(A1,D1.W)
2F88   23AD 0082 100C            Move.L    $82(A5), $C(A1,D1.W)
2F8E   700C                      MoveQ.L   #$C, D0
2F90   41ED 0086                 Lea.L     $86(A5), A0
2F94   43F1 1026                 Lea.L     $26(A1,D1.W), A1
2F98   A02E                      _BlockMove
2F9A   6100 0424                 Bsr       P75
2F9E   6600 01BE                 BNE       L502
2FA2   3541 00A6                 Move      D1, $A6(A2)
2FA6   23AD 0092 1008            Move.L    $92(A5), $8(A1,D1.W)
2FAC   23AD 0092 100C            Move.L    $92(A5), $C(A1,D1.W)
2FB2   700C                      MoveQ.L   #$C, D0
2FB4   41ED 0096                 Lea.L     $96(A5), A0
2FB8   43F1 1026                 Lea.L     $26(A1,D1.W), A1
2FBC   A02E                      _BlockMove
2FBE   2578 0378 0050            Move.L    (SysBMCPtr), $50(A2)
2FC4   2578 0380 00A8            Move.L    (SysCtlCPtr), $A8(A2)
2FCA   302A 00A4                 Move      $A4(A2), D0
2FCE   7203                      MoveQ.L   #$3, D1
2FD0   242A 0068                 Move.L    $68(A2), D2
2FD4   226A 00A8                 Move.L    $A8(A2), A1
2FD8   47FA 2D04                 Lea.L     P_mFXMKeyCmp, A3
2FDC   6100 0402                 Bsr       P76
2FE0   6600 0176                 BNE       L501
2FE4   302A 00A6                 Move      $A6(A2), D0
2FE8   7204                      MoveQ.L   #$4, D1
2FEA   242A 006C                 Move.L    $6C(A2), D2
2FEE   226A 00A8                 Move.L    $A8(A2), A1
2FF2   47FA 3646                 Lea.L     P_mCMKeyCmp, A3
2FF6   6100 03E8                 Bsr       P76
2FFA   6600 015C                 BNE       L501
2FFE   08AA 0008 0012            BClr.B    #$8, $12(A2)
3004   6700 018A                 BEQ       L507
3008   2038 0358      L484:      Move.L    (VCBQHdr.Head), D0
300C   6700 012A      L485:      BEQ       L498
3010   2840                      Move.L    D0, A4
3012   B5CC                      CmpA.L    A4, A2
3014   672A                      BEQ.B     L487
3016   302C 0008                 Move      $8(A4), D0
301A   B06A 0008                 Cmp       $8(A2), D0
301E   6620                      BNE.B     L487
3020   202C 000A                 Move.L    $A(A4), D0
3024   B0AA 000A                 Cmp.L     $A(A2), D0
3028   6616                      BNE.B     L487
302A   43EC 002C                 Lea.L     $2C(A4), A1
302E   47EA 002C                 Lea.L     $2C(A2), A3
3032   700D                      MoveQ.L   #$D, D0
3034   B749           L486:      CmpM      (A1)+, (A3)+
3036   56C8 FFFC                 DBNE      D0, L486
303A   6604                      BNE.B     L487
303C   4A51                      Tst       (A1)
303E   6704                      BEQ.B     L488
3040   2014           L487:      Move.L    (A4), D0
3042   60C8                      Bra.B     L485
3044   6100 0FAC      L488:      Bsr       P100
3048   B9F1 1014      L489:      CmpA.L    $14(A1,D1.W), A4
304C   6600 008A                 BNE       L495
3050   6100 1E74                 Bsr       P_mTFSVCBTst
3054   6740                      BEQ.B     L493
3056   3631 101C                 Move      $1C(A1,D1.W), D3
305A   6100 20C0                 Bsr       P134
305E   6600 00D8                 BNE       L498
3062   7000                      MoveQ.L   #$0, D0
3064   2631 1000                 Move.L    $0(A1,D1.W), D3
3068   B6B5 0012      L490:      Cmp.L     $12(A5,D0.W), D3
306C   670A                      BEQ.B     L491
306E   6100 131A                 Bsr       P109
3072   65F4                      BCS.B     L490
3074   6000 00C2                 Bra       L498
3078   47F5 0016      L491:      Lea.L     $16(A5,D0.W), A3
307C   0831 0001 1004            BTst.B    #$1, $4(A1,D1.W)
3082   6704                      BEQ.B     L492
3084   47F5 0020                 Lea.L     $20(A5,D0.W), A3
3088   301B           L492:      Move      (A3)+, D0
308A   B071 1006                 Cmp       $6(A1,D1.W), D0
308E   6600 00A8                 BNE       L498
3092   201B                      Move.L    (A3)+, D0
3094   603C                      Bra.B     L494
3096   2031 1000      L493:      Move.L    $0(A1,D1.W), D0
309A   0C80 0000 0010            Cmp.L     #$10, D0
30A0   6536                      BCS.B     L495
30A2   48E6 20C0                 MoveM.L   D2/A0-A1, -(A6)
30A6   2031 103A                 Move.L    $3A(A1,D1.W), D0
30AA   41F1 103E                 Lea.L     $3E(A1,D1.W), A0
30AE   7400                      MoveQ.L   #$0, D2
30B0   4EBA 3186                 Jsr       P_mCMGetCN
30B4   2649                      Move.L    A1, A3
30B6   4CDE 0304                 MoveM.L   (A6)+, D2/A0-A1
30BA   667C                      BNE.B     L498
30BC   0C13 0002                 Cmp.B     #$2, (A3)
30C0   6676                      BNE.B     L498
30C2   202B 001A                 Move.L    $1A(A3), D0
30C6   0831 0001 1004            BTst.B    #$1, $4(A1,D1.W)
30CC   6704                      BEQ.B     L494
30CE   202B 0024                 Move.L    $24(A3), D0
30D2   B0B1 1008      L494:      Cmp.L     $8(A1,D1.W), D0
30D6   6660                      BNE.B     L498
30D8   6100 0F20      L495:      Bsr       P101
30DC   6500 FF6A                 BCS       L489
30E0   4238 034A                 Clr.B     (NewMount)
30E4   322C 004E                 Move      $4E(A4), D1
30E8   41EA 0008                 Lea.L     $8(A2), A0
30EC   43EC 0008                 Lea.L     $8(A4), A1
30F0   7056                      MoveQ.L   #$56, D0
30F2   6100 1DD2                 Bsr       P_mTFSVCBTst
30F6   6604                      BNE.B     L496
30F8   303C 00AA                 Move      #$AA, D0
30FC   A02E           L496:      _BlockMove
30FE   3941 004E                 Move      D1, $4E(A4)
3102   6100 1DC2                 Bsr       P_mTFSVCBTst
3106   6614                      BNE.B     L497
3108   2278 034E                 Move.L    (FCBSPtr), A1
310C   302A 00A4                 Move      $A4(A2), D0
3110   238C 0014                 Move.L    A4, $14(A1,D0.W)
3114   302A 00A6                 Move      $A6(A2), D0
3118   238C 0014                 Move.L    A4, $14(A1,D0.W)
311C   6100 0324      L497:      Bsr       P78
3120   204A                      Move.L    A2, A0
3122   244C                      Move.L    A4, A2
3124   43F8 0356                 Lea.L     (VCBQHdr_Flags), A1
3128   4EBA E8C6                 Jsr       P_tDequeue
312C   A01F                      _DisposePtr
312E   2078 0362                 Move.L    (FSQHdr.Head), A0
3132   316A 004E 0016            Move      $4E(A2), $16(A0)
3138   7000           L498:      MoveQ.L   #$0, D0
313A   4A40           L499:      Tst       D0
313C   6616                      BNE.B     L500
313E   6100 1D86                 Bsr       P_mTFSVCBTst
3142   6610                      BNE.B     L500
3144   082A 0007 0013            BTst.B    #$7, $13(A2)
314A   6608                      BNE.B     L500
314C   6100 FBDA                 Bsr       P67
3150   6100 FBDC                 Bsr       P_mFlushMDB
3154   6000 F808      L500:      Bra       L423
3158   31C0 0392      L501:      Move      D0, (HFSDSErr)
315C   70C4                      MoveQ.L   #$-3C, D0
315E   6100 01EC      L502:      Bsr       P72
3162   6100 023E      L503:      Bsr       P74
3166   4A38 034A      L504:      Tst.B     (NewMount)
316A   6712                      BEQ.B     L506
316C   6100 0200                 Bsr       P73
3170   4A40           L505:      Tst       D0
3172   6F00 F7EA                 BLE       L423
3176   2078 0362                 Move.L    (FSQHdr.Head), A0
317A   6000 FCD4                 Bra       L477
317E   D4FC 0048      L506:      AddA      #$48, A2
3182   3612                      Move      (A2), D3
3184   425A                      Clr       (A2)+
3186   34C3                      Move      D3, (A2)+
3188   584A                      AddQ      #$4, A2
318A   429A                      Clr.L     (A2)+
318C   429A                      Clr.L     (A2)+
318E   60E0                      Bra.B     L505
3190   7002           L507:      MoveQ.L   #$2, D0
3192   7400                      MoveQ.L   #$0, D2
3194   2042                      Move.L    D2, A0
3196   4EBA 30A0                 Jsr       P_mCMGetCN
319A   66BC                      BNE.B     L501
319C   7000                      MoveQ.L   #$0, D0
319E   43E8 0006                 Lea.L     $6(A0), A1
31A2   1019                      Move.B    (A1)+, D0
31A4   4840                      Swap      D0
31A6   41EA 002C                 Lea.L     $2C(A2), A0
31AA   1018                      Move.B    (A0)+, D0
31AC   4840                      Swap      D0
31AE   A63C                      _CmpStringCaseMarks
31B0   670E                      BEQ.B     L508
31B2   5389                      SubQ      #$1, A1
31B4   5388                      SubQ      #$1, A0
31B6   C149                      Exg.L     A0, A1
31B8   7001                      MoveQ.L   #$1, D0
31BA   4EBA 32A6                 Jsr       P_mCMRenameCN
31BE   6698                      BNE.B     L501
31C0   2278 034E      L508:      Move.L    (FCBSPtr), A1
31C4   322A 00A4                 Move      $A4(A2), D1
31C8   41F1 1026                 Lea.L     $26(A1,D1.W), A0
31CC   6100 0164                 Bsr       P_tA0F0_mvBMChk
31D0   322A 00A6                 Move      $A6(A2), D1
31D4   41F1 1026                 Lea.L     $26(A1,D1.W), A0
31D8   6100 0158                 Bsr       P_tA0F0_mvBMChk
31DC   7002                      MoveQ.L   #$2, D0
31DE   91C8                      SubA.L    A0, A0
31E0   4EBA 3056                 Jsr       P_mCMGetCN
31E4   6600 FF72                 BNE       L501
31E8   2278 034E                 Move.L    (FCBSPtr), A1
31EC   322A 00A6                 Move      $A6(A2), D1
31F0   2031 100C                 Move.L    $C(A1,D1.W), D0
31F4   7246                      MoveQ.L   #$46, D1
31F6   6100 FA58                 Bsr       P_mDivUp
31FA   2400                      Move.L    D0, D2
31FC   780F                      MoveQ.L   #$F, D4
31FE   7600                      MoveQ.L   #$0, D3
3200   7A00                      MoveQ.L   #$0, D5
3202   7C00                      MoveQ.L   #$0, D6
3204   7E00                      MoveQ.L   #$0, D7
3206   5382           L509:      SubQ      #$1, D2
3208   6D00 FF4E                 BLT       L501
320C   302A 00A6                 Move      $A6(A2), D0
3210   7201                      MoveQ.L   #$1, D1
3212   2D02                      Move.L    D2, -(A6)
3214   4EBA 3712                 Jsr       P_mBTGetRecord
3218   241E                      Move.L    (A6)+, D2
321A   4A40                      Tst       D0
321C   6654                      BNE.B     L514
321E   0C11 0001                 Cmp.B     #$1, (A1)
3222   661E                      BNE.B     L511
3224   5286                      AddQ      #$1, D6
3226   0CA8 0000 0002            Cmp.L     #$2, $2(A0)
       0002
322E   6606                      BNE.B     L510
3230   4847                      Swap      D7
3232   5247                      AddQ      #$1, D7
3234   4847                      Swap      D7
3236   B8A9 0006      L510:      Cmp.L     $6(A1), D4
323A   64CA                      BCC.B     L509
323C   2829 0006                 Move.L    $6(A1), D4
3240   60C4                      Bra.B     L509
3242   0C11 0002      L511:      Cmp.B     #$2, (A1)
3246   66BE                      BNE.B     L509
3248   5285                      AddQ      #$1, D5
324A   0CA8 0000 0002            Cmp.L     #$2, $2(A0)
       0002
3252   6602                      BNE.B     L512
3254   5247                      AddQ      #$1, D7
3256   B8A9 0014      L512:      Cmp.L     $14(A1), D4
325A   6404                      BCC.B     L513
325C   2829 0014                 Move.L    $14(A1), D4
3260   41E9 004A      L513:      Lea.L     $4A(A1), A0
3264   6100 00CC                 Bsr       P_tA0F0_mvBMChk
3268   41E9 0056                 Lea.L     $56(A1), A0
326C   6100 00C4                 Bsr       P_tA0F0_mvBMChk
3270   6094                      Bra.B     L509
3272   0C40 0020      L514:      Cmp       #$20, D0
3276   6600 FEE0                 BNE       L501
327A   B8AA 0026                 Cmp.L     $26(A2), D4
327E   650E                      BCS.B     L515
3280   5284                      AddQ      #$1, D4
3282   2544 0026                 Move.L    D4, $26(A2)
3286   08EA 0000 0013            BSet.B    #$0, $13(A2)
328C   76FF                      MoveQ.L   #$-1, D3
328E   BAAA 0072      L515:      Cmp.L     $72(A2), D5
3292   670C                      BEQ.B     L516
3294   2545 0072                 Move.L    D5, $72(A2)
3298   08EA 0001 0013            BSet.B    #$1, $13(A2)
329E   76FF                      MoveQ.L   #$-1, D3
32A0   BCAA 0076      L516:      Cmp.L     $76(A2), D6
32A4   670C                      BEQ.B     L517
32A6   2546 0076                 Move.L    D6, $76(A2)
32AA   08EA 0001 0013            BSet.B    #$1, $13(A2)
32B0   76FF                      MoveQ.L   #$-1, D3
32B2   BE6A 0014      L517:      Cmp       $14(A2), D7
32B6   670C                      BEQ.B     L518
32B8   3547 0014                 Move      D7, $14(A2)
32BC   08EA 0001 0013            BSet.B    #$1, $13(A2)
32C2   76FF                      MoveQ.L   #$-1, D3
32C4   4847           L518:      Swap      D7
32C6   BE6A 0070                 Cmp       $70(A2), D7
32CA   670C                      BEQ.B     L519
32CC   3547 0070                 Move      D7, $70(A2)
32D0   08EA 0001 0013            BSet.B    #$1, $13(A2)
32D6   76FF                      MoveQ.L   #$-1, D3
32D8   2278 034E      L519:      Move.L    (FCBSPtr), A1
32DC   322A 00A4                 Move      $A4(A2), D1
32E0   2031 100C                 Move.L    $C(A1,D1.W), D0
32E4   720C                      MoveQ.L   #$C, D1
32E6   6100 F968                 Bsr       P_mDivUp
32EA   2A00                      Move.L    D0, D5
32EC   302A 00A4                 Move      $A4(A2), D0
32F0   514E                      SubQ      #$8, A6
32F2   204E                      Move.L    A6, A0
32F4   30BC 0700                 Move      #$700, (A0)
32F8   42A8 0002                 Clr.L     $2(A0)
32FC   4268 0006                 Clr       $6(A0)
3300   7400                      MoveQ.L   #$0, D2
3302   4EBA 3A46                 Jsr       P_mBTSearch
3306   504E                      AddQ      #$8, A6
3308   7200                      MoveQ.L   #$0, D1
330A   5385           L520:      SubQ      #$1, D5
330C   6D00 FE4A                 BLT       L501
3310   302A 00A4                 Move      $A4(A2), D0
3314   4EBA 3612                 Jsr       P_mBTGetRecord
3318   6608                      BNE.B     L521
331A   2049                      Move.L    A1, A0
331C   6114                      Bsr.B     P_tA0F0_mvBMChk
331E   7201                      MoveQ.L   #$1, D1
3320   60E8                      Bra.B     L520
3322   0C40 0020      L521:      Cmp       #$20, D0
3326   6600 FE30                 BNE       L501
332A   4EBA 26A6                 Jsr       P_mUpdateFree
332E   6000 FCD8                 Bra       L484

                      P_tA0F0_mvBMChk:
3332   2D1F                      Move.L    (A7)+, -(A6)
3334   6100 0740                 Bsr       P87
3338   660E                      BNE.B     L522
333A   4EBA 263C                 Jsr       P_mBlkChk
333E   6708                      BEQ.B     L522
3340   76FF                      MoveQ.L   #$-1, D3
3342   08EA 0002 0013            BSet.B    #$2, $13(A2)
3348   2F1E           L522:      Move.L    (A6)+, -(A7)
334A   4E75                      Rts

                      P72:
334C   48E7 C040                 MoveM.L   D0-D1/A1, -(A7)
3350   2278 034E                 Move.L    (FCBSPtr), A1
3354   322A 00A4                 Move      $A4(A2), D1
3358   6704                      BEQ.B     L523
335A   42B1 1000                 Clr.L     $0(A1,D1.W)
335E   322A 00A6      L523:      Move      $A6(A2), D1
3362   6704                      BEQ.B     L524
3364   42B1 1000                 Clr.L     $0(A1,D1.W)
3368   4CDF 0203      L524:      MoveM.L   (A7)+, D0-D1/A1
336C   4E75                      Rts

                      P73:
336E   2F00                      Move.L    D0, -(A7)
3370   6100 103E                 Bsr       P112
3374   660E           L525:      BNE.B     L526
3376   42B1 1000                 Clr.L     $0(A1,D1.W)
337A   42B1 1004                 Clr.L     $4(A1,D1.W)
337E   6100 1038                 Bsr       P113
3382   60F0                      Bra.B     L525
3384   204A           L526:      Move.L    A2, A0
3386   43F8 0356                 Lea.L     (VCBQHdr_Flags), A1
338A   4EBA E664                 Jsr       P_tDequeue
338E   B5F8 0352                 CmpA.L    (DefVCBPtr), A2
3392   6608                      BNE.B     L527
3394   42B8 0352                 Clr.L     (DefVCBPtr)
3398   4278 0384                 Clr       (DefVRefNum)
339C   A01F           L527:      _DisposePtr
339E   201F                      Move.L    (A7)+, D0
33A0   4E75                      Rts

                      P74:
33A2   2F09                      Move.L    A1, -(A7)
33A4   2278 0378                 Move.L    (SysBMCPtr), A1
33A8   4EBA 46B2                 Jsr       P_mTrashVBlks
33AC   2278 037C                 Move.L    (SysVolCPtr), A1
33B0   4EBA 46AA                 Jsr       P_mTrashVBlks
33B4   2278 0380                 Move.L    (SysCtlCPtr), A1
33B8   4EBA 46A2                 Jsr       P_mTrashVBlks
33BC   225F                      Move.L    (A7)+, A1
33BE   4E75                      Rts

                      P75:
33C0   6100 0C30                 Bsr       P100
33C4   6010                      Bra.B     L529
33C6   4AB1 1000      L528:      Tst.L     $0(A1,D1.W)
33CA   660A                      BNE.B     L529
33CC   70FF                      MoveQ.L   #$-1, D0
33CE   2380 1000                 Move.L    D0, $0(A1,D1.W)
33D2   7000                      MoveQ.L   #$0, D0
33D4   6008                      Bra.B     L530
33D6   6100 0C22      L529:      Bsr       P101
33DA   65EA                      BCS.B     L528
33DC   70D6                      MoveQ.L   #$-2A, D0
33DE   4E75           L530:      Rts

                      P76:
33E0   2D1F                      Move.L    (A7)+, -(A6)
33E2   48E6 1080                 MoveM.L   D3/A0, -(A6)
33E6   2078 034E                 Move.L    (FCBSPtr), A0
33EA   41F0 0000                 Lea.L     $0(A0,D0.W), A0
33EE   4268 0004                 Clr       $4(A0)
33F2   4268 0006                 Clr       $6(A0)
33F6   42A8 0010                 Clr.L     $10(A0)
33FA   2081                      Move.L    D1, (A0)
33FC   214A 0014                 Move.L    A2, $14(A0)
3400   2142 001E                 Move.L    D2, $1E(A0)
3404   204B                      Move.L    A3, A0
3406   4EBA 3882                 Jsr       P_mBTOpen
340A   4CDE 0108                 MoveM.L   (A6)+, D3/A0
340E   2F1E                      Move.L    (A6)+, -(A7)
3410   4A40                      Tst       D0
3412   4E75                      Rts

                      P_mFindDrive:
3414   2F08                      Move.L    A0, -(A7)
3416   3002                      Move      D2, D0
3418   41F8 0308                 Lea.L     (DrvQHdr_Flags), A0
341C   7206                      MoveQ.L   #$6, D1
341E   6100 F866                 Bsr       P61
3422   6612                      BNE.B     L532
3424   2648                      Move.L    A0, A3
3426   3228 0008                 Move      $8(A0), D1
342A   3028 000A                 Move      $A(A0), D0
342E   6702                      BEQ.B     L531
3430   70C6                      MoveQ.L   #$-3A, D0
3432   205F           L531:      Move.L    (A7)+, A0
3434   4E75                      Rts
3436   70C8           L532:      MoveQ.L   #$-38, D0
3438   60F8                      Bra.B     L531

                      P_tOffLine:
343A   50F8 034B                 ST.B      (NoEject)
343E   6000 00A4                 Bra       L538

                      P78:
3442   2D1F                      Move.L    (A7)+, -(A6)
3444   48E6 6040                 MoveM.L   D1-D2/A1, -(A6)
3448   4238 0346                 Clr.B     (FlushOnly)
344C   6052                      Bra.B     L535

                      P79:
344E   2D1F                      Move.L    (A7)+, -(A6)
3450   48E6 6040                 MoveM.L   D1-D2/A1, -(A6)
3454   6100 1A70                 Bsr       P_mTFSVCBTst
3458   6646                      BNE.B     L535
345A   4A38 0346                 Tst.B     (FlushOnly)
345E   6610                      BNE.B     L533
3460   6100 0614                 Bsr       P87
3464   660A                      BNE.B     L533
3466   08EA 0008 0012            BSet.B    #$8, $12(A2)
346C   6100 F8BA                 Bsr       P67
3470   4EBA F8BC      L533:      Jsr       P_mFlushMDB
3474   2278 034E                 Move.L    (FCBSPtr), A1
3478   322A 00A6                 Move      $A6(A2), D1
347C   6100 1CEA                 Bsr       P137
3480   6654                      BNE.B     L537
3482   4A38 0346                 Tst.B     (FlushOnly)
3486   6604                      BNE.B     L534
3488   426A 00A6                 Clr       $A6(A2)
348C   322A 00A4      L534:      Move      $A4(A2), D1
3490   6100 1CD6                 Bsr       P137
3494   6640                      BNE.B     L537
3496   4A38 0346                 Tst.B     (FlushOnly)
349A   6604                      BNE.B     L535
349C   426A 00A6                 Clr       $A6(A2)
34A0   7200           L535:      MoveQ.L   #$0, D1
34A2   50F8 0377                 ST.B      (SysCRefCnt)
34A6   2278 0378                 Move.L    (SysBMCPtr), A1
34AA   302A 004E                 Move      $4E(A2), D0
34AE   4EBA 4216                 Jsr       P_mFlushCache
34B2   2278 0380                 Move.L    (SysCtlCPtr), A1
34B6   302A 004E                 Move      $4E(A2), D0
34BA   4EBA 420A                 Jsr       P_mFlushCache
34BE   2278 037C                 Move.L    (SysVolCPtr), A1
34C2   302A 004E                 Move      $4E(A2), D0
34C6   4EBA 41FE                 Jsr       P_mFlushCache
34CA   4A38 0346                 Tst.B     (FlushOnly)
34CE   6604                      BNE.B     L536
34D0   6100 FED0                 Bsr       P74
34D4   7000           L536:      MoveQ.L   #$0, D0
34D6   4CDE 0206      L537:      MoveM.L   (A6)+, D1-D2/A1
34DA   2F1E                      Move.L    (A6)+, -(A7)
34DC   4A40                      Tst       D0
34DE   4E75                      Rts

                      P_tEject:
34E0   4238 034B                 Clr.B     (NoEject)
34E4   6100 F3C0      L538:      Bsr       P55
34E8   6100 0158                 Bsr       P_DTRMV3
34EC   6608                      BNE.B     L539
34EE   6100 0148                 Bsr       P_CKExtFS
34F2   6614                      BNE.B     L541
34F4   6016                      Bra.B     L542
34F6   3428 0016      L539:      Move      $16(A0), D2
34FA   6100 FF18      L540:      Bsr       P_mFindDrive
34FE   6608                      BNE.B     L541
3500   4A38 034B                 Tst.B     (NoEject)
3504   6700 0092                 BEQ       L548
3508   6000 F454      L541:      Bra       L423
350C   43EA 0048      L542:      Lea.L     $48(A2), A1
3510   3411                      Move      (A1), D2
3512   6614                      BNE.B     L543
3514   3429 0002                 Move      $2(A1), D2
3518   6AEE                      BPL.B     L541
351A   4A38 034B                 Tst.B     (NoEject)
351E   66E8                      BNE.B     L541
3520   4442                      Neg       D2
3522   4469 0002                 Neg       $2(A1)
3526   60D2                      Bra.B     L540
3528   6100 FEEA      L543:      Bsr       P_mFindDrive
352C   66DA                      BNE.B     L541
352E   4A38 034B                 Tst.B     (NoEject)
3532   661A                      BNE.B     L544
3534   0C2B 0008 FFFD            Cmp.B     #$8, $-3(A3)
353A   6D12                      BLT.B     L544
353C   50F8 034B                 ST.B      (NoEject)
3540   0C2B 0040 FFFD            Cmp.B     #$40, $-3(A3)
3546   6D06                      BLT.B     L544
3548   11FC 0001 034B            Move.B    #$1, (NoEject)
354E   50F8 0346      L544:      ST.B      (FlushOnly)
3552   616A                      Bsr.B     P80
3554   6100 1970                 Bsr       P_mTFSVCBTst
3558   660A                      BNE.B     L545
355A   4238 0346                 Clr.B     (FlushOnly)
355E   6100 FEEE                 Bsr       P79
3562   600C                      Bra.B     L546
3564   6100 099A      L545:      Bsr       P99
3568   6100 088C                 Bsr       P96
356C   6100 FE34                 Bsr       P74
3570   4259           L546:      Clr       (A1)+
3572   4A38 034B                 Tst.B     (NoEject)
3576   6702                      BEQ.B     L547
3578   4442                      Neg       D2
357A   32C2           L547:      Move      D2, (A1)+
357C   4A38 034B                 Tst.B     (NoEject)
3580   6716                      BEQ.B     L548
3582   204A                      Move.L    A2, A0
3584   43F8 0356                 Lea.L     (VCBQHdr_Flags), A1
3588   4EBA E466                 Jsr       P_tDequeue
358C   4EBA E43C                 Jsr       P_tEnqueue
3590   4A38 034B                 Tst.B     (NoEject)
3594   6B00 FF72                 BMI       L541
3598   41F8 03A4      L548:      Lea.L     (Params), A0
359C   43E8 0016                 Lea.L     $16(A0), A1
35A0   32C2                      Move      D2, (A1)+
35A2   32C1                      Move      D1, (A1)+
35A4   32BC 0007                 Move      #$7, (A1)
35A8   43FA F3B4                 Lea.L     L423, A1
35AC   2149 000C                 Move.L    A1, $C(A0)
35B0   A404                      _ControlAsync
35B2   4E75                      Rts

                      P_tUnmountVol:
35B4   6100 F2F0                 Bsr       P55
35B8   4238 0346                 Clr.B     (FlushOnly)
35BC   6046                      Bra.B     L553

                      P80:
35BE   2D1F                      Move.L    (A7)+, -(A6)
35C0   48E6 7FFC                 MoveM.L   D1-D7/A0-A5, -(A6)
35C4   6100 0A2C                 Bsr       P100
35C8   4AB1 1000      L549:      Tst.L     $0(A1,D1.W)
35CC   671C                      BEQ.B     L551
35CE   B5F1 1014                 CmpA.L    $14(A1,D1.W), A2
35D2   6616                      BNE.B     L551
35D4   6100 18F0                 Bsr       P_mTFSVCBTst
35D8   660A                      BNE.B     L550
35DA   0CB1 0000 0010            Cmp.L     #$10, $0(A1,D1.W)
       1000
35E2   6506                      BCS.B     L551
35E4   6100 1B82      L550:      Bsr       P137
35E8   6608                      BNE.B     L552
35EA   6100 0A0E      L551:      Bsr       P101
35EE   65D8                      BCS.B     L549
35F0   7000                      MoveQ.L   #$0, D0
35F2   4CDE 3FFE      L552:      MoveM.L   (A6)+, D1-D7/A0-A5
35F6   2F1E                      Move.L    (A6)+, -(A7)
35F8   4A40                      Tst       D0
35FA   4E75                      Rts

                      P_tFlushVol:
35FC   6100 F2AC                 Bsr       P56
3600   50F8 0346                 ST.B      (FlushOnly)
3604   613C           L553:      Bsr.B     P_DTRMV3
3606   662C                      BNE.B     L557
3608   612E                      Bsr.B     P_CKExtFS
360A   6628                      BNE.B     L557
360C   61B0                      Bsr.B     P80
360E   6624                      BNE.B     L557
3610   6100 18B4                 Bsr       P_mTFSVCBTst
3614   6706                      BEQ.B     L554
3616   6100 08E8                 Bsr       P99
361A   6018                      Bra.B     L557
361C   4A6A 0048      L554:      Tst       $48(A2)
3620   6706                      BEQ.B     L555
3622   6100 FE2A                 Bsr       P79
3626   660C                      BNE.B     L557
3628   4A38 0346      L555:      Tst.B     (FlushOnly)
362C   6604                      BNE.B     L556
362E   6100 FD3E                 Bsr       P73
3632   7000           L556:      MoveQ.L   #$0, D0
3634   6000 F328      L557:      Bra       L423

                      P_CKExtFS:
3638   302A 004C                 Move      $4C(A2), D0
363C   6702                      BEQ.B     L558
363E   70C6                      MoveQ.L   #$-3A, D0
3640   4E75           L558:      Rts

                      P_DTRMV3:
3642   2428 0012                 Move.L    $12(A0), D2
3646   2842                      Move.L    D2, A4
3648   6706                      BEQ.B     P_DTRMV1
364A   4A14                      Tst.B     (A4)
364C   6600 0136                 BNE       L581

                      P_DTRMV1:
3650   2F38 0778                 Move.L    ($778), -(A7)
3654   4E75                      Rts

                      P_tA0DE_mvDTRMV1:
3656   7600                      MoveQ.L   #$0, D3
3658   97CB                      SubA.L    A3, A3
365A   3028 0016                 Move      $16(A0), D0
365E   671E                      BEQ.B     L563
3660   6B06                      BMI.B     L559
3662   6100 F65C                 Bsr       P63
3666   6010                      Bra.B     L561
3668   0C40 F000      L559:      Cmp       #$-1000, D0
366C   6F06                      BLE.B     L560
366E   6100 F636                 Bsr       P_mGetVCBRFN
3672   6004                      Bra.B     L561
3674   6100 F67E      L560:      Bsr       P64
3678   6712           L561:      BEQ.B     L564
367A   70DD           L562:      MoveQ.L   #$-23, D0
367C   4E75                      Rts
367E   2038 0352      L563:      Move.L    (DefVCBPtr), D0
3682   67F6                      BEQ.B     L562
3684   2440                      Move.L    D0, A2
3686   2678 0372                 Move.L    (WDCBsPtr), A3
368A   548B                      AddQ      #$2, A3
368C   7000           L564:      MoveQ.L   #$0, D0
368E   21CA 03EE                 Move.L    A2, (ReqstVol)
3692   0838 0006 0376            BTst.B    #$6, (HFSFlags)
3698   6608                      BNE.B     L565
369A   0838 0005 0376            BTst.B    #$5, (HFSFlags)
36A0   6716                      BEQ.B     L568
36A2   2F0C           L565:      Move.L    A4, -(A7)
36A4   2878 0386                 Move.L    (PMSPPtr), A4
36A8   548C                      AddQ      #$2, A4
36AA   7017                      MoveQ.L   #$17, D0
36AC   425C           L566:      Clr       (A4)+
36AE   51C8 FFFC                 DBF       D0, L566
36B2   285F                      Move.L    (A7)+, A4
36B4   7000           L567:      MoveQ.L   #$0, D0
36B6   4E75                      Rts
36B8   0828 0009 0006 L568:      BTst.B    #$9, $6(A0)
36BE   6706                      BEQ.B     L569
36C0   4AA8 0030                 Tst.L     $30(A0)
36C4   66EE                      BNE.B     L567
36C6   48E7 2848      L569:      MoveM.L   D2/D4/A1/A4, -(A7)
36CA   2878 0386                 Move.L    (PMSPPtr), A4
36CE   382C FFFE                 Move      $-2(A4), D4
36D2   6E58                      BGT.B     L574
36D4   7802                      MoveQ.L   #$2, D4
36D6   342A 004E                 Move      $4E(A2), D2
36DA   200B                      Move.L    A3, D0
36DC   6706                      BEQ.B     L570
36DE   202B 0004                 Move.L    $4(A3), D0
36E2   6002                      Bra.B     L571
36E4   7002           L570:      MoveQ.L   #$2, D0
36E6   616E           L571:      Bsr.B     P84
36E8   6100 17DC                 Bsr       P_mTFSVCBTst
36EC   662A                      BNE.B     L573
36EE   3038 0210                 Move      (BootDrive), D0
36F2   6C18                      BGE.B     L572
36F4   0C40 F000                 Cmp       #$-1000, D0
36F8   6E12                      BGT.B     L572
36FA   6100 F5F8                 Bsr       P64
36FE   660C                      BNE.B     L572
3700   B46A 004E                 Cmp       $4E(A2), D2
3704   6606                      BNE.B     L572
3706   202B 0004                 Move.L    $4(A3), D0
370A   614A                      Bsr.B     P84
370C   2478 03EE      L572:      Move.L    (ReqstVol), A2
3710   202A 007A                 Move.L    $7A(A2), D0
3714   6702                      BEQ.B     L573
3716   613E                      Bsr.B     P84
3718   4274 4000      L573:      Clr       $0(A4,D4.W)
371C   7802                      MoveQ.L   #$2, D4
371E   3944 FFFE                 Move      D4, $-2(A4)
3722   202C FFFA                 Move.L    $-6(A4), D0
3726   6704                      BEQ.B     L574
3728   2240                      Move.L    D0, A1
372A   4E91                      Jsr       (A1)
372C   3034 4000      L574:      Move      $0(A4,D4.W), D0
3730   6100 F574                 Bsr       P_mGetVCBRFN
3734   661A                      BNE.B     L575
3736   2678 0372                 Move.L    (WDCBsPtr), A3
373A   D6FC 0012                 AddA      #$12, A3
373E   268A                      Move.L    A2, (A3)
3740   2774 4002 0004            Move.L    $2(A4,D4.W), $4(A3)
3746   42AB 0008                 Clr.L     $8(A3)
374A   42AB 000C                 Clr.L     $C(A3)
374E   7000                      MoveQ.L   #$0, D0
3750   4CDF 1214      L575:      MoveM.L   (A7)+, D2/D4/A1/A4
3754   4E75                      Rts

                      P84:
3756   2F04                      Move.L    D4, -(A7)
3758   7802                      MoveQ.L   #$2, D4
375A   B897           L576:      Cmp.L     (A7), D4
375C   6414                      BCC.B     L579
375E   B474 4000                 Cmp       $0(A4,D4.W), D2
3762   6606                      BNE.B     L577
3764   B0B4 4002                 Cmp.L     $2(A4,D4.W), D0
3768   6706                      BEQ.B     L578
376A   5C44           L577:      AddQ      #$6, D4
376C   B854                      Cmp       (A4), D4
376E   65EA                      BCS.B     L576
3770   7000           L578:      MoveQ.L   #$0, D0
3772   281F           L579:      Move.L    (A7)+, D4
3774   4A80                      Tst.L     D0
3776   670A                      BEQ.B     L580
3778   3982 4000                 Move      D2, $0(A4,D4.W)
377C   2980 4002                 Move.L    D0, $2(A4,D4.W)
3780   5C44                      AddQ      #$6, D4
3782   4E75           L580:      Rts
3784   2428 0012      L581:      Move.L    $12(A0), D2

                      P85:
3788   48E7 0EC0                 MoveM.L   D4-D6/A0-A1, -(A7)
378C   4A82                      Tst.L     D2
378E   673C                      BEQ.B     L586
3790   2842                      Move.L    D2, A4
3792   7400                      MoveQ.L   #$0, D2
3794   2642                      Move.L    D2, A3
3796   141C                      Move.B    (A4)+, D2
3798   6732                      BEQ.B     L586
379A   7600                      MoveQ.L   #$0, D3
379C   1834 3000      L582:      Move.B    $0(A4,D3.W), D4
37A0   0C04 003A                 Cmp.B     #$3A, D4
37A4   6708                      BEQ.B     L583
37A6   5243                      AddQ      #$1, D3
37A8   B443                      Cmp       D3, D2
37AA   66F0                      BNE.B     L582
37AC   6012                      Bra.B     L584
37AE   9483           L583:      Sub.L     D3, D2
37B0   5342                      SubQ      #$1, D2
37B2   224C                      Move.L    A4, A1
37B4   D9C3                      AddA.L    D3, A4
37B6   D9FC 0000 0001            AddA.L    #$1, A4
37BC   4A43                      Tst       D3
37BE   6E10                      BGT.B     L587
37C0   6100 FE8E      L584:      Bsr       P_DTRMV1
37C4   4CDF 0370      L585:      MoveM.L   (A7)+, D4-D6/A0-A1
37C8   4A40                      Tst       D0
37CA   4E75                      Rts
37CC   70DB           L586:      MoveQ.L   #$-25, D0
37CE   60F4                      Bra.B     L585
37D0   2038 0358      L587:      Move.L    (VCBQHdr.Head), D0
37D4   671C           L588:      BEQ.B     L590
37D6   2440                      Move.L    D0, A2
37D8   41EA 002C                 Lea.L     $2C(A2), A0
37DC   7000                      MoveQ.L   #$0, D0
37DE   1018                      Move.B    (A0)+, D0
37E0   4840                      Swap      D0
37E2   3003                      Move      D3, D0
37E4   A03C                      _CmpString
37E6   6606                      BNE.B     L589
37E8   21CA 03EE                 Move.L    A2, (ReqstVol)
37EC   60D6                      Bra.B     L585
37EE   2012           L589:      Move.L    (A2), D0
37F0   66E2                      BNE.B     L588
37F2   70DD           L590:      MoveQ.L   #$-23, D0
37F4   60CE                      Bra.B     L585

                      P_hfsC:
37F6   6100 F0B2                 Bsr       P56
37FA   2028 001C                 Move.L    $1C(A0), D0
37FE   6B08                      BMI.B     L591
3800   2278 0386                 Move.L    (PMSPPtr), A1
3804   2340 FFFA                 Move.L    D0, $-6(A1)
3808   3028 001A      L591:      Move      $1A(A0), D0
380C   08B8 0006 0376            BClr.B    #$6, (HFSFlags)
3812   0800 0000                 BTst.B    #$0, D0
3816   6606                      BNE.B     L592
3818   08F8 0006 0376            BSet.B    #$6, (HFSFlags)
381E   7000           L592:      MoveQ.L   #$0, D0
3820   6000 F13C                 Bra       L423

                      P_tGetVolInfo:
3824   6100 F084                 Bsr       P56
3828   3428 001C                 Move      $1C(A0), D2
382C   6E12                      BGT.B     L595
382E   6706                      BEQ.B     L593
3830   6100 FE10                 Bsr       P_DTRMV3
3834   6004                      Bra.B     L594
3836   6100 FE18      L593:      Bsr       P_DTRMV1
383A   6600 018E      L594:      BNE       L614
383E   6018                      Bra.B     L597
3840   7600           L595:      MoveQ.L   #$0, D3
3842   4268 0016                 Clr       $16(A0)
3846   2238 0358                 Move.L    (VCBQHdr.Head), D1
384A   6700 025E      L596:      BEQ       L622
384E   5342                      SubQ      #$1, D2
3850   2441                      Move.L    D1, A2
3852   6704                      BEQ.B     L597
3854   2212                      Move.L    (A2), D1
3856   60F2                      Bra.B     L596
3858   7020           L597:      MoveQ.L   #$20, D0
385A   31B2 000A 001E L598:      Move      $A(A2,D0.W), $1E(A0,D0.W)
3860   5540                      SubQ      #$2, D0
3862   6AF6                      BPL.B     L598
3864   08E8 0006 0027            BSet.B    #$6, $27(A0)
386A   6100 0786                 Bsr       P100
386E   B5F1 1014      L599:      CmpA.L    $14(A1,D1.W), A2
3872   6614                      BNE.B     L600
3874   6100 1650                 Bsr       P_mTFSVCBTst
3878   661A                      BNE.B     L601
387A   2031 1000                 Move.L    $0(A1,D1.W), D0
387E   0C80 0000 0010            Cmp.L     #$10, D0
3884   6400 000E                 BCC       L601
3888   6100 0770      L600:      Bsr       P101
388C   65E0                      BCS.B     L599
388E   08A8 0006 0027            BClr.B    #$6, $27(A0)
3894   08A8 0005 0027 L601:      BClr.B    #$5, $27(A0)
389A   B5F8 0352                 CmpA.L    (DefVCBPtr), A2
389E   6606                      BNE.B     L602
38A0   08E8 0005 0027            BSet.B    #$5, $27(A0)
38A6   97CB           L602:      SubA.L    A3, A3
38A8   4A68 001C                 Tst       $1C(A0)
38AC   6E58                      BGT.B     L606
38AE   4A43                      Tst       D3
38B0   6654                      BNE.B     L606
38B2   3228 0016                 Move      $16(A0), D1
38B6   6E4E                      BGT.B     L606
38B8   6D04                      BLT.B     L603
38BA   7202                      MoveQ.L   #$2, D1
38BC   600A                      Bra.B     L604
38BE   0C41 F000      L603:      Cmp       #$-1000, D1
38C2   6E42                      BGT.B     L606
38C4   0441 8001                 Sub       #$-7FFF, D1
38C8   2678 0372      L604:      Move.L    (WDCBsPtr), A3
38CC   D6C1                      AddA      D1, A3
38CE   6100 11EA                 Bsr       P122
38D2   6632                      BNE.B     L606
38D4   48E6 00C0                 MoveM.L   A0-A1, -(A6)
38D8   2278 0372                 Move.L    (WDCBsPtr), A1
38DC   2031 1004                 Move.L    $4(A1,D1.W), D0
38E0   0C80 0000 0002            Cmp.L     #$2, D0
38E6   671A                      BEQ.B     L605
38E8   2431 1008                 Move.L    $8(A1,D1.W), D2
38EC   91C8                      SubA.L    A0, A0
38EE   4EBA 2948                 Jsr       P_mCMGetCN
38F2   660E                      BNE.B     L605
38F4   3029 0004                 Move      $4(A1), D0
38F8   4CDE 0300                 MoveM.L   (A6)+, A0-A1
38FC   3140 0028                 Move      D0, $28(A0)
3900   6004                      Bra.B     L606
3902   4CDE 0300      L605:      MoveM.L   (A6)+, A0-A1
3906   4A43           L606:      Tst       D3
3908   6606                      BNE.B     L607
390A   4A68 0016                 Tst       $16(A0)
390E   6D06                      BLT.B     L608
3910   316A 004E 0016 L607:      Move      $4E(A2), $16(A0)
3916   6100 0196      L608:      Bsr       P88
391A   6100 15AA                 Bsr       P_mTFSVCBTst
391E   6610                      BNE.B     L609
3920   302A 00A0                 Move      $A0(A2), D0
3924   9168 002E                 Sub       D0, $2E(A0)
3928   302A 00A2                 Move      $A2(A2), D0
392C   9168 002E                 Sub       D0, $2E(A0)
3930   0828 0009 0006 L609:      BTst.B    #$9, $6(A0)
3936   661A                      BNE.B     L611
3938   303C 7C00                 Move      #$7C00, D0
393C   B068 002E                 Cmp       $2E(A0), D0
3940   620E                      BHI.B     L610
3942   3140 002E                 Move      D0, $2E(A0)
3946   B068 003E                 Cmp       $3E(A0), D0
394A   6204                      BHI.B     L610
394C   3140 003E                 Move      D0, $3E(A0)
3950   6066           L610:      Bra.B     L612
3952   316A 004E 0016 L611:      Move      $4E(A2), $16(A0)
3958   316A 0008 0040            Move      $8(A2), $40(A0)
395E   316A 0048 0042            Move      $48(A2), $42(A0)
3964   316A 004A 0044            Move      $4A(A2), $44(A0)
396A   316A 004C 0046            Move      $4C(A2), $46(A0)
3970   42A8 0052                 Clr.L     $52(A0)
3974   316A 0014 0054            Move      $14(A2), $54(A0)
397A   42A8 0056                 Clr.L     $56(A0)
397E   317C 0001 0058            Move      #$1, $58(A0)
3984   6100 1540                 Bsr       P_mTFSVCBTst
3988   663E                      BNE.B     L613
398A   216A 005E 0048            Move.L    $5E(A2), $48(A0)
3990   316A 0062 004C            Move      $62(A2), $4C(A0)
3996   216A 0064 004E            Move.L    $64(A2), $4E(A0)
399C   216A 0072 0052            Move.L    $72(A2), $52(A0)
39A2   216A 0076 0056            Move.L    $76(A2), $56(A0)
39A8   2F08                      Move.L    A0, -(A7)
39AA   43E8 005A                 Lea.L     $5A(A0), A1
39AE   41EA 007A                 Lea.L     $7A(A2), A0
39B2   7020                      MoveQ.L   #$20, D0
39B4   A02E                      _BlockMove
39B6   205F                      Move.L    (A7)+, A0
39B8   21CA 03EE      L612:      Move.L    A2, (ReqstVol)
39BC   6100 1508                 Bsr       P_mTFSVCBTst
39C0   6606                      BNE.B     L613
39C2   6100 FC74                 Bsr       P_CKExtFS
39C6   6602                      BNE.B     L614
39C8   7000           L613:      MoveQ.L   #$0, D0
39CA   6000 EF92      L614:      Bra       L423

                      P_mSetVolInfo_hfs:
39CE   6100 EEDA                 Bsr       P56
39D2   6100 FC7C                 Bsr       P_DTRMV1
39D6   6666                      BNE.B     L617
39D8   6100 009C                 Bsr       P87
39DC   6660                      BNE.B     L617
39DE   6100 10DA                 Bsr       P122
39E2   665A                      BNE.B     L617
39E4   2568 001E 000A            Move.L    $1E(A0), $A(A2)
39EA   2568 0022 000E            Move.L    $22(A0), $E(A2)
39F0   3028 0026                 Move      $26(A0), D0
39F4   0240 8000                 And       #$-8000, D0
39F8   322A 0012                 Move      $12(A2), D1
39FC   0241 7FFF                 And       #$7FFF, D1
3A00   8240                      Or        D0, D1
3A02   3541 0012                 Move      D1, $12(A2)
3A06   6100 14BE                 Bsr       P_mTFSVCBTst
3A0A   6622                      BNE.B     L615
3A0C   2568 0034 0020            Move.L    $34(A0), $20(A2)
3A12   2568 0048 005E            Move.L    $48(A0), $5E(A2)
3A18   3568 004C 0062            Move      $4C(A0), $62(A2)
3A1E   2F08                      Move.L    A0, -(A7)
3A20   41E8 005A                 Lea.L     $5A(A0), A0
3A24   43EA 007A                 Lea.L     $7A(A2), A1
3A28   7020                      MoveQ.L   #$20, D0
3A2A   A02E                      _BlockMove
3A2C   205F                      Move.L    (A7)+, A0
3A2E   2028 0012      L615:      Move.L    $12(A0), D0
3A32   6704                      BEQ.B     L616
3A34   2240                      Move.L    D0, A1
3A36   610A                      Bsr.B     P86
3A38   6100 F2E4      L616:      Bsr       P_mMarkVCB
3A3C   7000                      MoveQ.L   #$0, D0
3A3E   6000 EF1E      L617:      Bra       L423

                      P86:
3A42   48E7 0060                 MoveM.L   A1-A2, -(A7)
3A46   45EA 002C                 Lea.L     $2C(A2), A2
3A4A   7001                      MoveQ.L   #$1, D0
3A4C   B011           L618:      Cmp.B     (A1), D0
3A4E   6E18                      BGT.B     L619
3A50   0C31 003A 0000            Cmp.B     #$3A, $0(A1,D0.W)
3A56   6710                      BEQ.B     L619
3A58   0C00 001B                 Cmp.B     #$1B, D0
3A5C   6E0A                      BGT.B     L619
3A5E   15B1 0000 0000            Move.B    $0(A1,D0.W), $0(A2,D0.W)
3A64   5240                      AddQ      #$1, D0
3A66   60E4                      Bra.B     L618
3A68   5340           L619:      SubQ      #$1, D0
3A6A   1480                      Move.B    D0, (A2)
3A6C   4CDF 0600                 MoveM.L   (A7)+, A1-A2
3A70   6100 F2AC                 Bsr       P_mMarkVCB
3A74   4E75                      Rts

                      P87:
3A76   70D2                      MoveQ.L   #$-2E, D0
3A78   4A6A 0012                 Tst       $12(A2)
3A7C   6B0A                      BMI.B     L620
3A7E   70D4                      MoveQ.L   #$-2C, D0
3A80   4A2A 0013                 Tst.B     $13(A2)
3A84   6B02                      BMI.B     L620
3A86   7000                      MoveQ.L   #$0, D0
3A88   4E75           L620:      Rts

                      P_tGetVol:
3A8A   0801 0009                 BTst.B    #$9, D1
3A8E   6600 00BE                 BNE       P_mGetDir_hfs4
3A92   6100 EE16                 Bsr       P56
3A96   2038 0352                 Move.L    (DefVCBPtr), D0
3A9A   670E                      BEQ.B     L622
3A9C   2440                      Move.L    D0, A2
3A9E   3178 0384 0016            Move      (DefVRefNum), $16(A0)
3AA4   6108                      Bsr.B     P88
3AA6   6000 EEB6      L621:      Bra       L423
3AAA   70DD           L622:      MoveQ.L   #$-23, D0
3AAC   60F8                      Bra.B     L621

                      P88:
3AAE   48E7 0060                 MoveM.L   A1-A2, -(A7)
3AB2   45EA 002C                 Lea.L     $2C(A2), A2
3AB6   2028 0012                 Move.L    $12(A0), D0
3ABA   6716                      BEQ.B     L624
3ABC   C0B8 031A                 And.L     (Lo3Bytes), D0
3AC0   B0B8 010C                 Cmp.L     (BufPtr), D0
3AC4   6E0C                      BGT.B     L624
3AC6   2240                      Move.L    D0, A1
3AC8   7000                      MoveQ.L   #$0, D0
3ACA   1012                      Move.B    (A2), D0
3ACC   12DA           L623:      Move.B    (A2)+, (A1)+
3ACE   51C8 FFFC                 DBF       D0, L623
3AD2   4CDF 0600      L624:      MoveM.L   (A7)+, A1-A2
3AD6   7000                      MoveQ.L   #$0, D0
3AD8   4E75                      Rts

                      P_tSetVol:
3ADA   0801 0009                 BTst.B    #$9, D1
3ADE   663A                      BNE.B     P_mSetDir_hfs3
3AE0   6100 EDC8                 Bsr       P56
3AE4   6100 FB5C                 Bsr       P_DTRMV3
3AE8   662C                      BNE.B     L628
3AEA   302A 004E                 Move      $4E(A2), D0
3AEE   4A43                      Tst       D3
3AF0   660C                      BNE.B     L625
3AF2   4A68 0016                 Tst       $16(A0)
3AF6   6E06                      BGT.B     L625
3AF8   3028 0016                 Move      $16(A0), D0
3AFC   6704                      BEQ.B     L626
3AFE   31C0 0384      L625:      Move      D0, (DefVRefNum)
3B02   7C02           L626:      MoveQ.L   #$2, D6
3B04   2E0B                      Move.L    A3, D7
3B06   6708                      BEQ.B     L627
3B08   2C2B 0004                 Move.L    $4(A3), D6
3B0C   2E2B 0008                 Move.L    $8(A3), D7
3B10   6100 009C      L627:      Bsr       P89
3B14   7000                      MoveQ.L   #$0, D0
3B16   6000 EE46      L628:      Bra       L423

                      P_mSetDir_hfs3:
3B1A   6100 ED8E                 Bsr       P56
3B1E   6100 0E70                 Bsr       P_FndFilName
3B22   670E                      BEQ.B     L629
3B24   0C40 FFDB                 Cmp       #$-25, D0
3B28   6620                      BNE.B     L631
3B2A   4A02                      Tst.B     D2
3B2C   661C                      BNE.B     L631
3B2E   7C02                      MoveQ.L   #$2, D6
3B30   600C                      Bra.B     L630
3B32   7088           L629:      MoveQ.L   #$-78, D0
3B34   0C15 0001                 Cmp.B     #$1, (A5)
3B38   6610                      BNE.B     L631
3B3A   2C2D 0006                 Move.L    $6(A5), D6
3B3E   31EA 004E 0384 L630:      Move      $4E(A2), (DefVRefNum)
3B44   7E00                      MoveQ.L   #$0, D7
3B46   6166                      Bsr.B     P89
3B48   7000                      MoveQ.L   #$0, D0
3B4A   6000 EE12      L631:      Bra       L423

                      P_mGetDir_hfs4:
3B4E   6100 ED5A                 Bsr       P56
3B52   6100 084C                 Bsr       P110
3B56   70DD                      MoveQ.L   #$-23, D0
3B58   4AB1 1000                 Tst.L     $0(A1,D1.W)
3B5C   6710                      BEQ.B     L632
3B5E   6100 01C0                 Bsr       P94
3B62   6100 FF4A                 Bsr       P88
3B66   3178 0384 0016            Move      (DefVRefNum), $16(A0)
3B6C   7000                      MoveQ.L   #$0, D0
3B6E   6000 EDEE      L632:      Bra       L423

                      P_mOpenWD_hfs:
3B72   6100 ED36                 Bsr       P56
3B76   6100 0E18                 Bsr       P_FndFilName
3B7A   670C                      BEQ.B     L633
3B7C   0C40 FFDB                 Cmp       #$-25, D0
3B80   6628                      BNE.B     L635
3B82   4A02                      Tst.B     D2
3B84   6624                      BNE.B     L635
3B86   601A                      Bra.B     L634
3B88   7088           L633:      MoveQ.L   #$-78, D0
3B8A   0C15 0001                 Cmp.B     #$1, (A5)
3B8E   661A                      BNE.B     L635
3B90   2C2D 0006                 Move.L    $6(A5), D6
3B94   0C86 0000 0002            Cmp.L     #$2, D6
3B9A   6706                      BEQ.B     L634
3B9C   7E00                      MoveQ.L   #$0, D7
3B9E   6132                      Bsr.B     P91
3BA0   6008                      Bra.B     L635
3BA2   316A 004E 0016 L634:      Move      $4E(A2), $16(A0)
3BA8   7000                      MoveQ.L   #$0, D0
3BAA   6000 EDB2      L635:      Bra       L423

                      P89:
3BAE   21CA 0352                 Move.L    A2, (DefVCBPtr)
3BB2   7202                      MoveQ.L   #$2, D1

                      P90:
3BB4   2278 0372                 Move.L    (WDCBsPtr), A1
3BB8   238A 1000                 Move.L    A2, $0(A1,D1.W)
3BBC   2386 1004                 Move.L    D6, $4(A1,D1.W)
3BC0   2387 1008                 Move.L    D7, $8(A1,D1.W)
3BC4   2028 001C                 Move.L    $1C(A0), D0
3BC8   2380 100C                 Move.L    D0, $C(A1,D1.W)
3BCC   0641 8001                 Add       #$-7FFF, D1
3BD0   4E75                      Rts

                      P91:
3BD2   2628 001C                 Move.L    $1C(A0), D3
3BD6   7400                      MoveQ.L   #$0, D2
3BD8   6100 07C6                 Bsr       P110
3BDC   6100 07CA                 Bsr       P111
3BE0   6100 07C6      L636:      Bsr       P111
3BE4   6426                      BCC.B     L638
3BE6   4AB1 1000                 Tst.L     $0(A1,D1.W)
3BEA   6608                      BNE.B     L637
3BEC   4A42                      Tst       D2
3BEE   66F0                      BNE.B     L636
3BF0   3401                      Move      D1, D2
3BF2   60EC                      Bra.B     L636
3BF4   B5F1 1000      L637:      CmpA.L    $0(A1,D1.W), A2
3BF8   66E6                      BNE.B     L636
3BFA   BCB1 1004                 Cmp.L     $4(A1,D1.W), D6
3BFE   66E0                      BNE.B     L636
3C00   B6B1 100C                 Cmp.L     $C(A1,D1.W), D3
3C04   66DA                      BNE.B     L636
3C06   0641 8001                 Add       #$-7FFF, D1
3C0A   6006                      Bra.B     L639
3C0C   3202           L638:      Move      D2, D1
3C0E   670A                      BEQ.B     L640
3C10   61A2                      Bsr.B     P90
3C12   3141 0016      L639:      Move      D1, $16(A0)
3C16   7000                      MoveQ.L   #$0, D0
3C18   4E75                      Rts
3C1A   7087           L640:      MoveQ.L   #$-79, D0
3C1C   4E75                      Rts

                      P_mCloseWD_hfs:
3C1E   6100 EC8A                 Bsr       P56
3C22   7200                      MoveQ.L   #$0, D1
3C24   3228 0016                 Move      $16(A0), D1
3C28   6100 0112                 Bsr       P95
3C2C   6708                      BEQ.B     L641
3C2E   0C41 F000                 Cmp       #$-1000, D1
3C32   621E                      BHI.B     L643
3C34   601E                      Bra.B     L644
3C36   0441 8001      L641:      Sub       #$-7FFF, D1
3C3A   2471 1000                 Move.L    $0(A1,D1.W), A2
3C3E   4A6A 004C                 Tst       $4C(A2)
3C42   670A                      BEQ.B     L642
3C44   21CA 03EE                 Move.L    A2, (ReqstVol)
3C48   D289                      Add.L     A1, D1
3C4A   70C6                      MoveQ.L   #$-3A, D0
3C4C   6006                      Bra.B     L644
3C4E   42B1 1000      L642:      Clr.L     $0(A1,D1.W)
3C52   7000           L643:      MoveQ.L   #$0, D0
3C54   6000 ED08      L644:      Bra       L423

                      P_mGetWDInfo_hfs:
3C58   6100 EC50                 Bsr       P56
3C5C   6116                      Bsr.B     P92
3C5E   6610                      BNE.B     L645
3C60   48C1                      Ext.L     D1
3C62   D289                      Add.L     A1, D1
3C64   21CA 03EE                 Move.L    A2, (ReqstVol)
3C68   6100 F9CE                 Bsr       P_CKExtFS
3C6C   6602                      BNE.B     L645
3C6E   7000                      MoveQ.L   #$0, D0
3C70   6000 ECEC      L645:      Bra       L423

                      P92:
3C74   4A68 001A                 Tst       $1A(A0)
3C78   6E38                      BGT.B     L647
3C7A   3228 0016                 Move      $16(A0), D1
3C7E   6100 00BC                 Bsr       P95
3C82   6720                      BEQ.B     L646
3C84   6100 F9CA                 Bsr       P_DTRMV1
3C88   6676                      BNE.B     L654
3C8A   42A8 001C                 Clr.L     $1C(A0)
3C8E   7002                      MoveQ.L   #$2, D0
3C90   2140 0030                 Move.L    D0, $30(A0)
3C94   316A 004E 0020            Move      $4E(A2), $20(A0)
3C9A   316A 004E 0016            Move      $4E(A2), $16(A0)
3CA0   7200                      MoveQ.L   #$0, D1
3CA2   6058                      Bra.B     L653
3CA4   70DD           L646:      MoveQ.L   #$-23, D0
3CA6   0441 8001                 Sub       #$-7FFF, D1
3CAA   4AB1 1000                 Tst.L     $0(A1,D1.W)
3CAE   6750                      BEQ.B     L654
3CB0   6048                      Bra.B     L652
3CB2   70DD           L647:      MoveQ.L   #$-23, D0
3CB4   7400                      MoveQ.L   #$0, D2
3CB6   4A68 0016                 Tst       $16(A0)
3CBA   6708                      BEQ.B     L648
3CBC   6100 F984                 Bsr       P_DTRMV3
3CC0   663E                      BNE.B     L654
3CC2   240A                      Move.L    A2, D2
3CC4   3828 001A      L648:      Move      $1A(A0), D4
3CC8   2628 001C                 Move.L    $1C(A0), D3
3CCC   70DD                      MoveQ.L   #$-23, D0
3CCE   6100 06D0                 Bsr       P110
3CD2   6100 06D4                 Bsr       P111
3CD6   6100 06D0      L649:      Bsr       P111
3CDA   6424                      BCC.B     L654
3CDC   4AB1 1000                 Tst.L     $0(A1,D1.W)
3CE0   67F4                      BEQ.B     L649
3CE2   4A83                      Tst.L     D3
3CE4   6706                      BEQ.B     L650
3CE6   B6B1 100C                 Cmp.L     $C(A1,D1.W), D3
3CEA   66EA                      BNE.B     L649
3CEC   4A82           L650:      Tst.L     D2
3CEE   6706                      BEQ.B     L651
3CF0   B4B1 1000                 Cmp.L     $0(A1,D1.W), D2
3CF4   66E0                      BNE.B     L649
3CF6   5344           L651:      SubQ      #$1, D4
3CF8   6EDC                      BGT.B     L649
3CFA   611E           L652:      Bsr.B     P93
3CFC   6100 FDB0      L653:      Bsr       P88
3D00   4A40           L654:      Tst       D0
3D02   4E75                      Rts

                      P_hfsF:
3D04   48E7 1F7E                 MoveM.L   D3-D7/A1-A6, -(A7)
3D08   2C78 036A                 Move.L    (HFSVars_HFSStkTop), A6
3D0C   6100 FF66                 Bsr       P92
3D10   4CDF 7EF8                 MoveM.L   (A7)+, D3-D7/A1-A6
3D14   3140 0010                 Move      D0, $10(A0)
3D18   4E75                      Rts

                      P93:
3D1A   2171 100C 001C            Move.L    $C(A1,D1.W), $1C(A0)

                      P94:
3D20   2471 1000                 Move.L    $0(A1,D1.W), A2
3D24   316A 004E 0020            Move      $4E(A2), $20(A0)
3D2A   2171 1004 0030            Move.L    $4(A1,D1.W), $30(A0)
3D30   3001                      Move      D1, D0
3D32   0640 8001                 Add       #$-7FFF, D0
3D36   3140 0016                 Move      D0, $16(A0)
3D3A   4E75                      Rts

                      P95:
3D3C   2F01                      Move.L    D1, -(A7)
3D3E   70CD                      MoveQ.L   #$-33, D0
3D40   0441 8001                 Sub       #$-7FFF, D1
3D44   2278 0372                 Move.L    (WDCBsPtr), A1
3D48   B251                      Cmp       (A1), D1
3D4A   640E                      BCC.B     L655
3D4C   5541                      SubQ      #$2, D1
3D4E   82FC 0010                 DivU      #$10, D1
3D52   4841                      Swap      D1
3D54   4A41                      Tst       D1
3D56   6602                      BNE.B     L655
3D58   7000                      MoveQ.L   #$0, D0
3D5A   221F           L655:      Move.L    (A7)+, D1
3D5C   4A40                      Tst       D0
3D5E   4E75                      Rts

                      P_hfsD:
3D60   48E7 1F7E                 MoveM.L   D3-D7/A1-A6, -(A7)
3D64   2C78 036A                 Move.L    (HFSVars_HFSStkTop), A6
3D68   6100 F8E6                 Bsr       P_DTRMV1
3D6C   6612                      BNE.B     L657
3D6E   2C28 0030                 Move.L    $30(A0), D6
3D72   7E00                      MoveQ.L   #$0, D7
3D74   6100 FE5C                 Bsr       P91
3D78   6606                      BNE.B     L657
3D7A   3141 0016                 Move      D1, $16(A0)
3D7E   7000           L656:      MoveQ.L   #$0, D0
3D80   4CDF 7EF8      L657:      MoveM.L   (A7)+, D3-D7/A1-A6
3D84   3140 0010                 Move      D0, $10(A0)
3D88   4E75                      Rts

                      P_hfsE:
3D8A   48E7 1F7E                 MoveM.L   D3-D7/A1-A6, -(A7)
3D8E   2C78 036A                 Move.L    (HFSVars_HFSStkTop), A6
3D92   6100 F8BC                 Bsr       P_DTRMV1
3D96   66E8                      BNE.B     L657
3D98   31EA 004E 0384            Move      $4E(A2), (DefVRefNum)
3D9E   2C28 0030                 Move.L    $30(A0), D6
3DA2   7E00                      MoveQ.L   #$0, D7
3DA4   6100 FE08                 Bsr       P89
3DA8   60D4                      Bra.B     L656
3DAA   705E           L658:      MoveQ.L   #$5E, D0
3DAC   204A                      Move.L    A2, A0
3DAE   A020                      _SetPtrSize
3DB0   7403                      MoveQ.L   #$3, D2
3DB2   C4EA 001A                 MulU      $1A(A2), D2
3DB6   5282                      AddQ      #$1, D2
3DB8   E28A                      LsR.L     #$1, D2
3DBA   3542 0058                 Move      D2, $58(A2)
3DBE   7E40                      MoveQ.L   #$40, D7
3DC0   2002                      Move.L    D2, D0
3DC2   A51E                      _NewPtrSys
3DC4   6600 F39C                 BNE       L503
3DC8   2548 0050                 Move.L    A0, $50(A2)
3DCC   7602                      MoveQ.L   #$2, D3
3DCE   30F5 7000      L659:      Move      $0(A5,D7.W), (A0)+
3DD2   5447                      AddQ      #$2, D7
3DD4   5542                      SubQ      #$2, D2
3DD6   6F12                      BLE.B     L660
3DD8   0C47 0200                 Cmp       #$200, D7
3DDC   65F0                      BCS.B     L659
3DDE   5243                      AddQ      #$1, D3
3DE0   6100 1348                 Bsr       P135
3DE4   660A                      BNE.B     L662
3DE6   7E00                      MoveQ.L   #$0, D7
3DE8   60E4                      Bra.B     L659
3DEA   611E           L660:      Bsr.B     P97
3DEC   6738                      BEQ.B     L666
3DEE   70C4           L661:      MoveQ.L   #$-3C, D0
3DF0   6104           L662:      Bsr.B     P96
3DF2   6000 F36E                 Bra       L503

                      P96:
3DF6   48E7 8080                 MoveM.L   D0/A0, -(A7)
3DFA   206A 0050                 Move.L    $50(A2), A0
3DFE   A01F                      _DisposePtr
3E00   42AA 0050                 Clr.L     $50(A2)
3E04   4CDF 0101                 MoveM.L   (A7)+, D0/A0
3E08   4E75                      Rts

                      P97:
3E0A   7602                      MoveQ.L   #$2, D3
3E0C   7200                      MoveQ.L   #$0, D1
3E0E   6100 185E      L663:      Bsr       P147
3E12   6602                      BNE.B     L664
3E14   5241                      AddQ      #$1, D1
3E16   B66A 001A      L664:      Cmp       $1A(A2), D3
3E1A   6204                      BHI.B     L665
3E1C   5243                      AddQ      #$1, D3
3E1E   60EE                      Bra.B     L663
3E20   B26A 002A      L665:      Cmp       $2A(A2), D1
3E24   4E75                      Rts
3E26   7200           L666:      MoveQ.L   #$0, D1
3E28   7400                      MoveQ.L   #$0, D2
3E2A   7E00                      MoveQ.L   #$0, D7
3E2C   6100 12CE                 Bsr       P132
3E30   66BE                      BNE.B     L662
3E32   4A15           L667:      Tst.B     (A5)
3E34   660C                      BNE.B     L668
3E36   204D                      Move.L    A5, A0
3E38   C346                      Exg.L     D1, D6
3E3A   7202                      MoveQ.L   #$2, D1
3E3C   4EBA 3BCC                 Jsr       P_mRelBlock
3E40   C346                      Exg.L     D1, D6
3E42   7000           L668:      MoveQ.L   #$0, D0
3E44   4A35 0000      L669:      Tst.B     $0(A5,D0.W)
3E48   6722                      BEQ.B     L671
3E4A   5241                      AddQ      #$1, D1
3E4C   B4B5 0012                 Cmp.L     $12(A5,D0.W), D2
3E50   6204                      BHI.B     L670
3E52   2435 0012                 Move.L    $12(A5,D0.W), D2
3E56   47F5 0016      L670:      Lea.L     $16(A5,D0.W), A3
3E5A   614E                      Bsr.B     P98
3E5C   6690                      BNE.B     L661
3E5E   47F5 0020                 Lea.L     $20(A5,D0.W), A3
3E62   6146                      Bsr.B     P98
3E64   6688                      BNE.B     L661
3E66   6100 0522                 Bsr       P109
3E6A   65D8                      BCS.B     L669
3E6C   6100 129E      L671:      Bsr       P133
3E70   67C0                      BEQ.B     L667
3E72   0C40 FFDF                 Cmp       #$-21, D0
3E76   6600 FF78                 BNE       L662
3E7A   B4AA 0026                 Cmp.L     $26(A2), D2
3E7E   6508                      BCS.B     L672
3E80   5282                      AddQ      #$1, D2
3E82   2542 0026                 Move.L    D2, $26(A2)
3E86   5207                      AddQ      #$1, D7
3E88   B26A 0014      L672:      Cmp       $14(A2), D1
3E8C   6706                      BEQ.B     L673
3E8E   3541 0014                 Move      D1, $14(A2)
3E92   5407                      AddQ      #$2, D7
3E94   4A07           L673:      Tst.B     D7
3E96   670A                      BEQ.B     L674
3E98   6100 FBDC                 Bsr       P87
3E9C   6604                      BNE.B     L674
3E9E   6100 EE7E                 Bsr       P_mMarkVCB
3EA2   8F2A 0013      L674:      Or.B      D7, $13(A2)
3EA6   6000 F160                 Bra       L484

                      P98:
3EAA   48E7 FE00                 MoveM.L   D0-D6, -(A7)
3EAE   322A 001A                 Move      $1A(A2), D1
3EB2   7C00                      MoveQ.L   #$0, D6
3EB4   242A 001C                 Move.L    $1C(A2), D2
3EB8   3613                      Move      (A3), D3
3EBA   6714                      BEQ.B     L676
3EBC   6100 17B0      L675:      Bsr       P147
3EC0   5341                      SubQ      #$1, D1
3EC2   6536                      BCS.B     L680
3EC4   3605                      Move      D5, D3
3EC6   6708                      BEQ.B     L676
3EC8   DC82                      Add.L     D2, D6
3ECA   0C43 0001                 Cmp       #$1, D3
3ECE   66EC                      BNE.B     L675
3ED0   361B           L676:      Move      (A3)+, D3
3ED2   281B                      Move.L    (A3)+, D4
3ED4   2A1B                      Move.L    (A3)+, D5
3ED6   BC85                      Cmp.L     D5, D6
3ED8   671E                      BEQ.B     L679
3EDA   2706                      Move.L    D6, -(A3)
3EDC   6602                      BNE.B     L677
3EDE   4243                      Clr       D3
3EE0   B886           L677:      Cmp.L     D6, D4
3EE2   6302                      BLS.B     L678
3EE4   2806                      Move.L    D6, D4
3EE6   2704           L678:      Move.L    D4, -(A3)
3EE8   3703                      Move      D3, -(A3)
3EEA   6100 FB8A                 Bsr       P87
3EEE   660A                      BNE.B     L680
3EF0   4EBA 3B10                 Jsr       P_mMarkA5Block
3EF4   08C7 0002                 BSet.B    #$2, D7
3EF8   7200           L679:      MoveQ.L   #$0, D1
3EFA   4CDF 007F      L680:      MoveM.L   (A7)+, D0-D6
3EFE   4E75                      Rts

                      P99:
3F00   2D1F                      Move.L    (A7)+, -(A6)
3F02   48E6 7FFC                 MoveM.L   D1-D7/A0-A5, -(A6)
3F06   4A6A 0048                 Tst       $48(A2)
3F0A   676A                      BEQ.B     L685
3F0C   4A2A 0006                 Tst.B     $6(A2)
3F10   6A5E                      BPL.B     L684
3F12   6100 FEF6                 Bsr       P97
3F16   6658                      BNE.B     L684
3F18   7602                      MoveQ.L   #$2, D3
3F1A   6100 1214                 Bsr       P136
3F1E   6670                      BNE.B     L688
3F20   4EBA 3AE0                 Jsr       P_mMarkA5Block
3F24   701F                      MoveQ.L   #$1F, D0
3F26   224D                      Move.L    A5, A1
3F28   41EA 0008                 Lea.L     $8(A2), A0
3F2C   2578 020C 000E            Move.L    (Time), $E(A2)
3F32   32D8           L681:      Move      (A0)+, (A1)+
3F34   51C8 FFFC                 DBF       D0, L681
3F38   206A 0050                 Move.L    $50(A2), A0
3F3C   342A 0058                 Move      $58(A2), D2
3F40   7E40                      MoveQ.L   #$40, D7
3F42   3B98 7000      L682:      Move      (A0)+, $0(A5,D7.W)
3F46   5447                      AddQ      #$2, D7
3F48   5542                      SubQ      #$2, D2
3F4A   6F16                      BLE.B     L683
3F4C   0C47 0200                 Cmp       #$200, D7
3F50   65F0                      BCS.B     L682
3F52   5243                      AddQ      #$1, D3
3F54   6100 11DA                 Bsr       P136
3F58   6636                      BNE.B     L688
3F5A   4EBA 3AA6                 Jsr       P_mMarkA5Block
3F5E   7E00                      MoveQ.L   #$0, D7
3F60   60E0                      Bra.B     L682
3F62   0C47 0200      L683:      Cmp       #$200, D7
3F66   6408                      BCC.B     L684
3F68   4275 7000                 Clr       $0(A5,D7.W)
3F6C   5447                      AddQ      #$2, D7
3F6E   60F2                      Bra.B     L683
3F70   6100 F4DC      L684:      Bsr       P79
3F74   661A                      BNE.B     L688
3F76   422A 0006      L685:      Clr.B     $6(A2)
3F7A   4A38 0346                 Tst.B     (FlushOnly)
3F7E   660E                      BNE.B     L687
3F80   4A6A 0048                 Tst       $48(A2)
3F84   6704                      BEQ.B     L686
3F86   6100 FE6E                 Bsr       P96
3F8A   6100 F3E2      L686:      Bsr       P73
3F8E   7000           L687:      MoveQ.L   #$0, D0
3F90   4CDE 3FFE      L688:      MoveM.L   (A6)+, D1-D7/A0-A5
3F94   2F1E                      Move.L    (A6)+, -(A7)
3F96   4A40                      Tst       D0
3F98   4E75                      Rts

                      E_140:
3F9A   6100 E90E                 Bsr       P56
3F9E   3428 001C                 Move      $1C(A0), D2
3FA2   6E10                      BGT.B     L691
3FA4   6706                      BEQ.B     L689
3FA6   6100 F69A                 Bsr       P_DTRMV3
3FAA   6004                      Bra.B     L690
3FAC   6100 F6A2      L689:      Bsr       P_DTRMV1
3FB0   663C           L690:      BNE.B     L697
3FB2   6012                      Bra.B     L693
3FB4   2238 0358      L691:      Move.L    (VCBQHdr.Head), D1
3FB8   6700 FAF0      L692:      BEQ       L622
3FBC   5342                      SubQ      #$1, D2
3FBE   2441                      Move.L    D1, A2
3FC0   6704                      BEQ.B     L693
3FC2   2212                      Move.L    (A2), D1
3FC4   60F2                      Bra.B     L692
3FC6   08EA 0006 0013 L693:      BSet.B    #$6, $13(A2)
3FCC   6124                      Bsr.B     P100
3FCE   B5F1 1014      L694:      CmpA.L    $14(A1,D1.W), A2
3FD2   670A                      BEQ.B     L695
3FD4   6124                      Bsr.B     P101
3FD6   65F6                      BCS.B     L694
3FD8   08AA 0006 0013            BClr.B    #$6, $13(A2)
3FDE   7020           L695:      MoveQ.L   #$20, D0
3FE0   31B2 000A 001E L696:      Move      $A(A2,D0.W), $1E(A0,D0.W)
3FE6   5540                      SubQ      #$2, D0
3FE8   6AF6                      BPL.B     L696
3FEA   6100 FAC2                 Bsr       P88
3FEE   6000 E96E      L697:      Bra       L423

                      P100:
3FF2   2278 034E                 Move.L    (FCBSPtr), A1
3FF6   7202                      MoveQ.L   #$2, D1
3FF8   4E75                      Rts

                      P101:
3FFA   0641 005E                 Add       #$5E, D1
3FFE   B251                      Cmp       (A1), D1
4000   4E75                      Rts

                      P102:
4002   61EE                      Bsr.B     P100
4004   B4B1 1000      L698:      Cmp.L     $0(A1,D1.W), D2
4008   6606                      BNE.B     P103
400A   B5F1 1014                 CmpA.L    $14(A1,D1.W), A2
400E   6708                      BEQ.B     L699

                      P103:
4010   61E8                      Bsr.B     P101
4012   65F0                      BCS.B     L698
4014   44FC 0000                 Move      #$0, CCR
4018   4E75           L699:      Rts

                      P_tOpenRF:
401A   6100 E88E                 Bsr       P56
401E   4238 0347                 Clr.B     (RegRsrc)
4022   600E                      Bra.B     L701
                      P_mFileOpen:
4024   2F38 0784                 Move.L    ($784), -(A7)
4028   4E75                      Rts

                      P_tA0E1_mvFileOpen:
402A   6100 E87E                 Bsr       P56
402E   50F8 0347                 ST.B      (RegRsrc)
4032   61BE           L701:      Bsr.B     P100
4034   4AB1 1000      L702:      Tst.L     $0(A1,D1.W)
4038   670E                      BEQ.B     L705
403A   61BE                      Bsr.B     P101
403C   65F6                      BCS.B     L702
403E   70D6                      MoveQ.L   #$-2A, D0
4040   4268 0018      L703:      Clr       $18(A0)
4044   6000 E918      L704:      Bra       L423
4048   3141 0018      L705:      Move      D1, $18(A0)
404C   D289                      Add.L     A1, D1
404E   6100 0940                 Bsr       P_FndFilName
4052   66EC                      BNE.B     L703
4054   2F08                      Move.L    A0, -(A7)
4056   2041                      Move.L    D1, A0
4058   702E                      MoveQ.L   #$2E, D0
405A   4258           L706:      Clr       (A0)+
405C   51C8 FFFC                 DBF       D0, L706
4060   205F                      Move.L    (A7)+, A0
4062   6100 0E62                 Bsr       P_mTFSVCBTst
4066   6600 022C                 BNE       L738
406A   70D5                      MoveQ.L   #$-2B, D0
406C   0C15 0002                 Cmp.B     #$2, (A5)
4070   66CE                      BNE.B     L703
4072   2641                      Move.L    D1, A3
4074   2747 0036                 Move.L    D7, $36(A3)
4078   202D 0004                 Move.L    $4(A5), D0
407C   2740 0032                 Move.L    D0, $32(A3)
4080   2746 003A                 Move.L    D6, $3A(A3)
4084   7000                      MoveQ.L   #$0, D0
4086   302D 0048                 Move      $48(A5), D0
408A   670C                      BEQ.B     L707
408C   C0EA 001E                 MulU      $1E(A2), D0
4090   08EB 0006 0004            BSet.B    #$6, $4(A3)
4096   600A                      Bra.B     L708
4098   202A 0020      L707:      Move.L    $20(A2), D0
409C   08AB 0006 0004            BClr.B    #$6, $4(A3)
40A2   2740 001E      L708:      Move.L    D0, $1E(A3)
40A6   48E7 00C0                 MoveM.L   A0-A1, -(A7)
40AA   700C                      MoveQ.L   #$C, D0
40AC   41ED 004A                 Lea.L     $4A(A5), A0
40B0   4A38 0347                 Tst.B     (RegRsrc)
40B4   6604                      BNE.B     L709
40B6   41ED 0056                 Lea.L     $56(A5), A0
40BA   43EB 0026      L709:      Lea.L     $26(A3), A1
40BE   A02E                      _BlockMove
40C0   7000                      MoveQ.L   #$0, D0
40C2   3002                      Move      D2, D0
40C4   204C                      Move.L    A4, A0
40C6   43EB 003E                 Lea.L     $3E(A3), A1
40CA   12C0                      Move.B    D0, (A1)+
40CC   A02E                      _BlockMove
40CE   4CDF 0300                 MoveM.L   (A7)+, A0-A1
40D2   4247                      Clr       D7
40D4   362D 0002                 Move      $2(A5), D3
40D8   0243 0100                 And       #$100, D3
40DC   6704                      BEQ.B     L710
40DE   08C3 000D                 BSet.B    #$D, D3
40E2   4BED 0014      L710:      Lea.L     $14(A5), A5
40E6   241D                      Move.L    (A5)+, D2
40E8   381D                      Move      (A5)+, D4
40EA   2A1D                      Move.L    (A5)+, D5
40EC   2C1D                      Move.L    (A5)+, D6
40EE   4A38 0347                 Tst.B     (RegRsrc)
40F2   660A                      BNE.B     L711
40F4   08C3 0009                 BSet.B    #$9, D3
40F8   381D                      Move      (A5)+, D4
40FA   2A1D                      Move.L    (A5)+, D5
40FC   2C1D                      Move.L    (A5)+, D6
40FE   616C           L711:      Bsr.B     P_PermssnChk
4100   670C                      BEQ.B     L713
4102   722E                      MoveQ.L   #$2E, D1
4104   425B           L712:      Clr       (A3)+
4106   51C9 FFFC                 DBF       D1, L712
410A   6000 FF38                 Bra       L704
410E   26C2           L713:      Move.L    D2, (A3)+
4110   36C3                      Move      D3, (A3)+
4112   36C4                      Move      D4, (A3)+
4114   26C5                      Move.L    D5, (A3)+
4116   26C6                      Move.L    D6, (A3)+
4118   429B                      Clr.L     (A3)+
411A   26CA                      Move.L    A2, (A3)+
411C   2868 001C                 Move.L    $1C(A0), A4
4120   200C                      Move.L    A4, D0
4122   670C                      BEQ.B     L714
4124   429C                      Clr.L     (A4)+
4126   429C                      Clr.L     (A4)+
4128   4254                      Clr       (A4)
412A   08D4 0005                 BSet.B    #$5, (A4)
412E   544C                      AddQ      #$2, A4
4130   26CC           L714:      Move.L    A4, (A3)+
4132   36C7                      Move      D7, (A3)+
4134   588B                      AddQ      #$4, A3
4136   429B                      Clr.L     (A3)+
4138   08EA 0007 0005            BSet.B    #$7, $5(A2)
413E   3828 0018                 Move      $18(A0), D4
4142   6100 FEBE                 Bsr       P102
4146   B841           L715:      Cmp       D1, D4
4148   670C                      BEQ.B     L716
414A   1A31 1004                 Move.B    $4(A1,D1.W), D5
414E   1C05                      Move.B    D5, D6
4150   B706                      Eor.B     D3, D6
4152   E40E                      LsR.B     #$2, D6
4154   6408                      BCC.B     L717
4156   6100 FEB8      L716:      Bsr       P103
415A   67EA                      BEQ.B     L715
415C   6008                      Bra.B     L718
415E   4EBA 13D0      L717:      Jsr       P_AdjEof
4162   1385 1004                 Move.B    D5, $4(A1,D1.W)
4166   7000           L718:      MoveQ.L   #$0, D0
4168   6000 E7F4                 Bra       L423

                      P_PermssnChk:
416C   2F38 0788                 Move.L    ($788), -(A7)
4170   4E75                      Rts

                      P_tA0E2_mvPermssnChk:
4172   0C28 0001 001B            Cmp.B     #$1, $1B(A0)
4178   6722                      BEQ.B     L721
417A   08C3 0008                 BSet.B    #$8, D3
417E   670E                      BEQ.B     L719
4180   4A28 001B                 Tst.B     $1B(A0)
4184   6716                      BEQ.B     L721
4186   4268 0018                 Clr       $18(A0)
418A   70CA                      MoveQ.L   #$-36, D0
418C   6014                      Bra.B     L722
418E   0828 0002 001B L719:      BTst.B    #$2, $1B(A0)
4194   6704                      BEQ.B     L720
4196   08C3 000C                 BSet.B    #$C, D3
419A   6008           L720:      Bra.B     L723
419C   0883 0008      L721:      BClr.B    #$8, D3
41A0   7000                      MoveQ.L   #$0, D0
41A2   4E75           L722:      Rts
41A4   6100 FE5C      L723:      Bsr       P102
41A8   6628           L724:      BNE.B     L727
41AA   3031 1004                 Move      $4(A1,D1.W), D0
41AE   B740                      Eor       D3, D0
41B0   0240 0300                 And       #$300, D0
41B4   660E                      BNE.B     L725
41B6   0803 000C                 BTst.B    #$C, D3
41BA   670E                      BEQ.B     L726
41BC   0831 0004 1004            BTst.B    #$4, $4(A1,D1.W)
41C2   6706                      BEQ.B     L726
41C4   6100 FE4A      L725:      Bsr       P103
41C8   60DE                      Bra.B     L724
41CA   3141 0018      L726:      Move      D1, $18(A0)
41CE   70CF                      MoveQ.L   #$-31, D0
41D0   6002                      Bra.B     L728
41D2   7000           L727:      MoveQ.L   #$0, D0
41D4   4E75           L728:      Rts

                      P_mCreateDir_hfs:
41D6   6100 E6D2                 Bsr       P56
41DA   08F8 0001 0376            BSet.B    #$1, (HFSFlags)
41E0   600A                      Bra.B     L729

                      P_tCreate:
41E2   6100 E6C6                 Bsr       P56
41E6   08B8 0001 0376            BClr.B    #$1, (HFSFlags)
41EC   6100 07A2      L729:      Bsr       P_FndFilName
41F0   6604                      BNE.B     L730
41F2   70D0                      MoveQ.L   #$-30, D0
41F4   605E                      Bra.B     L735
41F6   0C40 FFD5      L730:      Cmp       #$-2B, D0
41FA   6658                      BNE.B     L735
41FC   6100 0CC8                 Bsr       P_mTFSVCBTst
4200   670E                      BEQ.B     L731
4202   0838 0001 0376            BTst.B    #$1, (HFSFlags)
4208   6700 00D4                 BEQ       L742
420C   7085                      MoveQ.L   #$-7B, D0
420E   6044                      Bra.B     L735
4210   1228 001A      L731:      Move.B    $1A(A0), D1
4214   4841                      Swap      D1
4216   123C 0002                 Move.B    #$2, D1
421A   0838 0001 0376            BTst.B    #$1, (HFSFlags)
4220   6704                      BEQ.B     L732
4222   123C 0001                 Move.B    #$1, D1
4226   2D08           L732:      Move.L    A0, -(A6)
4228   612E                      Bsr.B     P105
422A   3D02                      Move      D2, -(A6)
422C   2006                      Move.L    D6, D0
422E   4EBA 1E14                 Jsr       P_mCMCreateCN
4232   341E                      Move      (A6)+, D2
4234   6152                      Bsr.B     P106
4236   205E                      Move.L    (A6)+, A0
4238   4A40                      Tst       D0
423A   670A                      BEQ.B     L733
423C   0C40 0030                 Cmp       #$30, D0
4240   6612                      BNE.B     L735
4242   7088                      MoveQ.L   #$-78, D0
4244   600E                      Bra.B     L735
4246   0838 0001 0376 L733:      BTst.B    #$1, (HFSFlags)
424C   6704                      BEQ.B     L734
424E   2141 0030                 Move.L    D1, $30(A0)
4252   7000           L734:      MoveQ.L   #$0, D0
4254   6000 E708      L735:      Bra       L423

                      P105:
4258   48E7 8040                 MoveM.L   D0/A1, -(A7)
425C   91C8                      SubA.L    A0, A0
425E   4A42                      Tst       D2
4260   6720                      BEQ.B     L736
4262   3042                      Move      D2, A0
4264   5242                      AddQ      #$1, D2
4266   0882 0000                 BClr.B    #$0, D2
426A   9CC2                      SubA      D2, A6
426C   3F02                      Move      D2, -(A7)
426E   3408                      Move      A0, D2
4270   204C                      Move.L    A4, A0
4272   224E                      Move.L    A6, A1
4274   7000                      MoveQ.L   #$0, D0
4276   3002                      Move      D2, D0
4278   A02E                      _BlockMove
427A   3D02                      Move      D2, -(A6)
427C   341F                      Move      (A7)+, D2
427E   204E                      Move.L    A6, A0
4280   5288                      AddQ      #$1, A0
4282   4CDF 0201      L736:      MoveM.L   (A7)+, D0/A1
4286   4E75                      Rts

                      P106:
4288   4A42                      Tst       D2
428A   6706                      BEQ.B     L737
428C   3F1E                      Move      (A6)+, -(A7)
428E   DCC2                      AddA      D2, A6
4290   341F                      Move      (A7)+, D2
4292   4E75           L737:      Rts
4294   2641           L738:      Move.L    D1, A3
4296   3E38 0340                 Move      (CkdDB), D7
429A   3615                      Move      (A5), D3
429C   0243 01FF                 And       #$1FF, D3
42A0   0803 0008                 BTst.B    #$8, D3
42A4   6704                      BEQ.B     L739
42A6   08C3 000D                 BSet.B    #$D, D3
42AA   276A 0020 001E L739:      Move.L    $20(A2), $1E(A3)
42B0   4BED 0012                 Lea.L     $12(A5), A5
42B4   241D                      Move.L    (A5)+, D2
42B6   381D                      Move      (A5)+, D4
42B8   2A1D                      Move.L    (A5)+, D5
42BA   2C1D                      Move.L    (A5)+, D6
42BC   4A38 0347                 Tst.B     (RegRsrc)
42C0   660A                      BNE.B     L740
42C2   08C3 0009                 BSet.B    #$9, D3
42C6   381D                      Move      (A5)+, D4
42C8   2A1D                      Move.L    (A5)+, D5
42CA   2C1D                      Move.L    (A5)+, D6
42CC   6100 FE9E      L740:      Bsr       P_PermssnChk
42D0   6608                      BNE.B     L741
42D2   6000 FE3A                 Bra       L713

                      E_146:
42D6   4268 0018                 Clr       $18(A0)
42DA   6000 E682      L741:      Bra       L423
42DE   4A42           L742:      Tst       D2
42E0   670E                      BEQ.B     L744
42E2   3002                      Move      D2, D0
42E4   5340           L743:      SubQ      #$1, D0
42E6   6D0E                      BLT.B     L746
42E8   0C34 003A 0000            Cmp.B     #$3A, $0(A4,D0.W)
42EE   66F4                      BNE.B     L743
42F0   70DB           L744:      MoveQ.L   #$-25, D0
42F2   6000 E66A      L745:      Bra       L423
42F6   6100 F77E      L746:      Bsr       P87
42FA   66F6                      BNE.B     L745
42FC   6150                      Bsr.B     P108
42FE   66F2                      BNE.B     L745
4300   3005                      Move      D5, D0
4302   224D                      Move.L    A5, A1
4304   4259           L747:      Clr       (A1)+
4306   5540                      SubQ      #$2, D0
4308   62FA                      BHI.B     L747
430A   08D5 0007                 BSet.B    #$7, (A5)
430E   1B68 001A 0001            Move.B    $1A(A0), $1(A5)
4314   2B6A 0026 0012            Move.L    $26(A2), $12(A5)
431A   52AA 0026                 AddQ      #$1, $26(A2)
431E   4BED 002A                 Lea.L     $2A(A5), A5
4322   2AB8 020C                 Move.L    (Time), (A5)
4326   2ADD                      Move.L    (A5)+, (A5)+
4328   1AC2                      Move.B    D2, (A5)+
432A   6706                      BEQ.B     L749
432C   1ADC           L748:      Move.B    (A4)+, (A5)+
432E   5302                      SubQ      #$1, D2
4330   62FA                      BHI.B     L748
4332   6100 E9EA      L749:      Bsr       P_mMarkVCB
4336   526A 0014                 AddQ      #$1, $14(A2)
433A   6104                      Bsr.B     P107
433C   7000                      MoveQ.L   #$0, D0
433E   60B2                      Bra.B     L745

                      P107:
4340   302A 004E                 Move      $4E(A2), D0
4344   2278 0380                 Move.L    (SysCtlCPtr), A1
4348   7200                      MoveQ.L   #$0, D1
434A   4EFA 337A                 Jmp       P_mFlushCache

                      P108:
434E   265F                      Move.L    (A7)+, A3
4350   7A34                      MoveQ.L   #$34, D5
4352   DA42                      Add       D2, D5
4354   0885 0000                 BClr.B    #$0, D5
4358   6100 0DA2                 Bsr       P132
435C   6004                      Bra.B     L751
435E   6100 0DAC      L750:      Bsr       P133
4362   6624           L751:      BNE.B     L754
4364   7000                      MoveQ.L   #$0, D0
4366   4A35 0000      L752:      Tst.B     $0(A5,D0.W)
436A   6704                      BEQ.B     L753
436C   611C                      Bsr.B     P109
436E   65F6                      BCS.B     L752
4370   3800           L753:      Move      D0, D4
4372   D845                      Add       D5, D4
4374   0C44 0200                 Cmp       #$200, D4
4378   64E4                      BCC.B     L750
437A   4EBA 3686                 Jsr       P_mMarkA5Block
437E   4BF5 0000                 Lea.L     $0(A5,D0.W), A5
4382   42AA 005A                 Clr.L     $5A(A2)
4386   7000                      MoveQ.L   #$0, D0
4388   4ED3           L754:      Jmp       (A3)

                      P109:
438A   7C00                      MoveQ.L   #$0, D6
438C   1C35 0032                 Move.B    $32(A5,D0.W), D6
4390   D046                      Add       D6, D0
4392   0640 0034                 Add       #$34, D0
4396   0880 0000                 BClr.B    #$0, D0
439A   0C40 01CC                 Cmp       #$1CC, D0
439E   4E75                      Rts

                      P110:
43A0   2278 0372                 Move.L    (WDCBsPtr), A1
43A4   7202                      MoveQ.L   #$2, D1
43A6   4E75                      Rts

                      P111:
43A8   0641 0010                 Add       #$10, D1
43AC   B251                      Cmp       (A1), D1
43AE   4E75                      Rts

                      P112:
43B0   61EE                      Bsr.B     P110
43B2   B5F1 1000      L755:      CmpA.L    $0(A1,D1.W), A2
43B6   6708                      BEQ.B     L756

                      P113:
43B8   61EE                      Bsr.B     P111
43BA   65F6                      BCS.B     L755
43BC   44FC 0000                 Move      #$0, CCR
43C0   4E75           L756:      Rts

                      P114:
43C2   48E7 2040                 MoveM.L   D2/A1, -(A7)
43C6   242D 0006                 Move.L    $6(A5), D2
43CA   61E4                      Bsr.B     P112
43CC   660A           L757:      BNE.B     L758
43CE   B4B1 1004                 Cmp.L     $4(A1,D1.W), D2
43D2   670C                      BEQ.B     L760
43D4   61E2                      Bsr.B     P113
43D6   60F4                      Bra.B     L757
43D8   7000           L758:      MoveQ.L   #$0, D0
43DA   4CDF 0204      L759:      MoveM.L   (A7)+, D2/A1
43DE   4E75                      Rts
43E0   3141 0018      L760:      Move      D1, $18(A0)
43E4   70D1                      MoveQ.L   #$-2F, D0
43E6   60F2                      Bra.B     L759

                      P115:
43E8   2F09                      Move.L    A1, -(A7)
43EA   242D 0014                 Move.L    $14(A5), D2
43EE   6100 0AD6                 Bsr       P_mTFSVCBTst
43F2   6704                      BEQ.B     L761
43F4   242D 0012                 Move.L    $12(A5), D2
43F8   6100 FC08      L761:      Bsr       P102
43FC   6706                      BEQ.B     L763
43FE   7000                      MoveQ.L   #$0, D0
4400   225F           L762:      Move.L    (A7)+, A1
4402   4E75                      Rts
4404   3141 0018      L763:      Move      D1, $18(A0)
4408   70D1                      MoveQ.L   #$-2F, D0
440A   60F4                      Bra.B     L762

                      P_tDelete:
440C   6100 E49C                 Bsr       P56
4410   6100 0568                 Bsr       P119
4414   6100 0AB0                 Bsr       P_mTFSVCBTst
4418   6600 0312                 BNE       L792
441C   70D3                      MoveQ.L   #$-2D, D0
441E   082D 0000 0002            BTst.B    #$0, $2(A5)
4424   6658                      BNE.B     L768
4426   08B8 0001 0376            BClr.B    #$1, (HFSFlags)
442C   0C15 0001                 Cmp.B     #$1, (A5)
4430   660A                      BNE.B     L764
4432   08F8 0001 0376            BSet.B    #$1, (HFSFlags)
4438   6188                      Bsr.B     P114
443A   600E                      Bra.B     L765
443C   0C15 0002      L764:      Cmp.B     #$2, (A5)
4440   660A                      BNE.B     L766
4442   2D02                      Move.L    D2, -(A6)
4444   61A2                      Bsr.B     P115
4446   241E                      Move.L    (A6)+, D2
4448   4A40                      Tst       D0
444A   6632           L765:      BNE.B     L768
444C   6100 FE0A      L766:      Bsr       P105
4450   2D02                      Move.L    D2, -(A6)
4452   2407                      Move.L    D7, D2
4454   0C15 0002                 Cmp.B     #$2, (A5)
4458   6610                      BNE.B     L767
445A   202D 0014                 Move.L    $14(A5), D0
445E   4EBA 362A                 Jsr       P_mTrashFBlocks
4462   2006                      Move.L    D6, D0
4464   4EBA 1642                 Jsr       P_mDeallocFile
4468   6614                      BNE.B     L768
446A   2006           L767:      Move.L    D6, D0
446C   4EBA 1D1C                 Jsr       P_mCMDeleteCN
4470   241E                      Move.L    (A6)+, D2
4472   6100 FE14                 Bsr       P106
4476   0C40 0032                 Cmp       #$32, D0
447A   6602                      BNE.B     L768
447C   70D1                      MoveQ.L   #$-2F, D0
447E   6000 E4DE      L768:      Bra       L423

                      P_tRename:
4482   6100 E426                 Bsr       P56
4486   2428 001C                 Move.L    $1C(A0), D2
448A   6100 F2FC                 Bsr       P85
448E   6600 015C                 BNE       L780
4492   4A42                      Tst       D2
4494   6700 0162                 BEQ       L781
4498   224A                      Move.L    A2, A1
449A   3E03                      Move      D3, D7
449C   48F8 1004 03D6            MoveM.L   D2/A4, (FSTemp8)
44A2   6100 F19E                 Bsr       P_DTRMV3
44A6   660A                      BNE.B     L770
44A8   B5C9                      CmpA.L    A1, A2
44AA   6712                      BEQ.B     L772
44AC   4A47                      Tst       D7
44AE   670E                      BEQ.B     L772
44B0   70DB           L769:      MoveQ.L   #$-25, D0
44B2   0C40 0021      L770:      Cmp       #$21, D0
44B6   6602                      BNE.B     L771
44B8   70D0                      MoveQ.L   #$-30, D0
44BA   6000 E4A2      L771:      Bra       L423
44BE   6100 F5B6      L772:      Bsr       P87
44C2   66EE                      BNE.B     L770
44C4   6100 0A00                 Bsr       P_mTFSVCBTst
44C8   6600 02D8                 BNE       L796
44CC   6100 04C2                 Bsr       P_FndFilName
44D0   66E0                      BNE.B     L770
44D2   70D3                      MoveQ.L   #$-2D, D0
44D4   082D 0000 0002            BTst.B    #$0, $2(A5)
44DA   66D6                      BNE.B     L770
44DC   2806                      Move.L    D6, D4
44DE   2A07                      Move.L    D7, D5
44E0   48E6 2C08                 MoveM.L   D2/D4-D5/A4, -(A6)
44E4   2D28 0012                 Move.L    $12(A0), -(A6)
44E8   2428 001C                 Move.L    $1C(A0), D2
44EC   2142 0012                 Move.L    D2, $12(A0)
44F0   6100 049E                 Bsr       P_FndFilName
44F4   48F8 1004 03D6            MoveM.L   D2/A4, (FSTemp8)
44FA   215E 0012                 Move.L    (A6)+, $12(A0)
44FE   4CDE 1034                 MoveM.L   (A6)+, D2/D4-D5/A4
4502   4A40                      Tst       D0
4504   6626                      BNE.B     L774
4506   2F08                      Move.L    A0, -(A7)
4508   48E6 2008                 MoveM.L   D2/A4, -(A6)
450C   3002                      Move      D2, D0
450E   204C                      Move.L    A4, A0
4510   4840                      Swap      D0
4512   4CF8 1004 03D6            MoveM.L   (FSTemp8), D2/A4
4518   3002                      Move      D2, D0
451A   224C                      Move.L    A4, A1
451C   A03C                      _CmpString
451E   4CDE 1004                 MoveM.L   (A6)+, D2/A4
4522   205F                      Move.L    (A7)+, A0
4524   6604                      BNE.B     L773
4526   BC84                      Cmp.L     D4, D6
4528   670E                      BEQ.B     L775
452A   70D0           L773:      MoveQ.L   #$-30, D0
452C   0C40 FFD5      L774:      Cmp       #$-2B, D0
4530   6680                      BNE.B     L770
4532   BC84                      Cmp.L     D4, D6
4534   6600 FF7A                 BNE       L769
4538   6100 FD1E      L775:      Bsr       P105
453C   2F02                      Move.L    D2, -(A7)
453E   2248                      Move.L    A0, A1
4540   4CF8 1004 03D6            MoveM.L   (FSTemp8), D2/A4
4546   6100 FD10                 Bsr       P105
454A   2D1F                      Move.L    (A7)+, -(A6)
454C   2D02                      Move.L    D2, -(A6)
454E   C149                      Exg.L     A0, A1
4550   2004                      Move.L    D4, D0
4552   2405                      Move.L    D5, D2
4554   4EBA 1F0C                 Jsr       P_mCMRenameCN
4558   2E02                      Move.L    D2, D7
455A   4A40                      Tst       D0
455C   661E                      BNE.B     L777
455E   0C84 0000 0001            Cmp.L     #$1, D4
4564   670E                      BEQ.B     L776
4566   0C84 0000 0002            Cmp.L     #$2, D4
456C   660E                      BNE.B     L777
456E   4AAE 0004                 Tst.L     $4(A6)
4572   6E08                      BGT.B     L777
4574   6100 F4CC      L776:      Bsr       P86
4578   7000                      MoveQ.L   #$0, D0
457A   7C01                      MoveQ.L   #$1, D6
457C   241E           L777:      Move.L    (A6)+, D2
457E   2F1E                      Move.L    (A6)+, -(A7)
4580   6100 FD06                 Bsr       P106
4584   241F                      Move.L    (A7)+, D2
4586   6100 FD00                 Bsr       P106
458A   4A40                      Tst       D0
458C   6600 FF24                 BNE       L770
4590   0C86 0000 0001            Cmp.L     #$1, D6
4596   6700 FF1A                 BEQ       L770
459A   4CF8 1004 03D6            MoveM.L   (FSTemp8), D2/A4
45A0   6100 FCB6                 Bsr       P105
45A4   2D02                      Move.L    D2, -(A6)
45A6   2006                      Move.L    D6, D0
45A8   2407                      Move.L    D7, D2
45AA   4EBA 1C8C                 Jsr       P_mCMGetCN
45AE   241E                      Move.L    (A6)+, D2
45B0   6100 FCD6                 Bsr       P106
45B4   4A40                      Tst       D0
45B6   6600 FEFA                 BNE       L770
45BA   1602                      Move.B    D2, D3
45BC   2A49                      Move.L    A1, A5
45BE   204C                      Move.L    A4, A0
45C0   242D 0014                 Move.L    $14(A5), D2
45C4   6100 FA3C                 Bsr       P102
45C8   6600 FEE8                 BNE       L770
45CC   2387 1036      L778:      Move.L    D7, $36(A1,D1.W)
45D0   43F1 103E                 Lea.L     $3E(A1,D1.W), A1
45D4   12C3                      Move.B    D3, (A1)+
45D6   7000                      MoveQ.L   #$0, D0
45D8   1003                      Move.B    D3, D0
45DA   A02E                      _BlockMove
45DC   2278 034E                 Move.L    (FCBSPtr), A1
45E0   6100 FA2E                 Bsr       P103
45E4   67E6                      BEQ.B     L778
45E6   7000                      MoveQ.L   #$0, D0
45E8   6000 FEC8      L779:      Bra       L770
45EC   0C40 FFDD      L780:      Cmp       #$-23, D0
45F0   66F6                      BNE.B     L779
45F2   4A42                      Tst       D2
45F4   6600 FEBA                 BNE       L769
45F8   4A43           L781:      Tst       D3
45FA   67EC                      BEQ.B     L779
45FC   6100 F044                 Bsr       P_DTRMV3
4600   66E6                      BNE.B     L779
4602   6100 F472                 Bsr       P87
4606   66E0                      BNE.B     L779
4608   4A6A 0048                 Tst       $48(A2)
460C   67DA                      BEQ.B     L779
460E   2268 001C                 Move.L    $1C(A0), A1
4612   6100 F42E                 Bsr       P86
4616   6100 08AE                 Bsr       P_mTFSVCBTst
461A   6600 FE96                 BNE       L770
461E   7400                      MoveQ.L   #$0, D2
4620   7002                      MoveQ.L   #$2, D0
4622   2042                      Move.L    D2, A0
4624   43EA 002C                 Lea.L     $2C(A2), A1
4628   4EBA 1E38                 Jsr       P_mCMRenameCN
462C   6000 FE84                 Bra       L770

                      P_hfsCatMove:
4630   6100 E278                 Bsr       P56
4634   2D28 0012                 Move.L    $12(A0), -(A6)
4638   2168 001C 0012            Move.L    $1C(A0), $12(A0)
463E   6100 F002                 Bsr       P_DTRMV3
4642   215E 0012                 Move.L    (A6)+, $12(A0)
4646   224A                      Move.L    A2, A1
4648   3E03                      Move      D3, D7
464A   6100 EFF6                 Bsr       P_DTRMV3
464E   660A                      BNE.B     L783
4650   B5C9                      CmpA.L    A1, A2
4652   670A                      BEQ.B     L784
4654   4A47                      Tst       D7
4656   6706                      BEQ.B     L784
4658   70DB           L782:      MoveQ.L   #$-25, D0
465A   6000 E302      L783:      Bra       L423
465E   6100 F416      L784:      Bsr       P87
4662   66F6                      BNE.B     L783
4664   6100 0454                 Bsr       P122
4668   66F0                      BNE.B     L783
466A   70CE                      MoveQ.L   #$-32, D0
466C   6100 0858                 Bsr       P_mTFSVCBTst
4670   66E8                      BNE.B     L783
4672   6100 031C                 Bsr       P_FndFilName
4676   66E2                      BNE.B     L783
4678   7600                      MoveQ.L   #$0, D3
467A   0C15 0002                 Cmp.B     #$2, (A5)
467E   6604                      BNE.B     L785
4680   262D 0014                 Move.L    $14(A5), D3
4684   2806           L785:      Move.L    D6, D4
4686   2A07                      Move.L    D7, D5
4688   48F8 1004 03D6            MoveM.L   D2/A4, (FSTemp8)
468E   2D28 0012                 Move.L    $12(A0), -(A6)
4692   2D28 0030                 Move.L    $30(A0), -(A6)
4696   2168 001C 0012            Move.L    $1C(A0), $12(A0)
469C   2168 0024 0030            Move.L    $24(A0), $30(A0)
46A2   48E6 1C00                 MoveM.L   D3-D5, -(A6)
46A6   6100 02E8                 Bsr       P_FndFilName
46AA   4CDE 0038                 MoveM.L   (A6)+, D3-D5
46AE   215E 0030                 Move.L    (A6)+, $30(A0)
46B2   215E 0012                 Move.L    (A6)+, $12(A0)
46B6   4A40                      Tst       D0
46B8   670C                      BEQ.B     L786
46BA   0C40 FFDB                 Cmp       #$-25, D0
46BE   669A                      BNE.B     L783
46C0   4A42                      Tst       D2
46C2   6694                      BNE.B     L782
46C4   600C                      Bra.B     L787
46C6   0C15 0001      L786:      Cmp.B     #$1, (A5)
46CA   668C                      BNE.B     L782
46CC   2C2D 0006                 Move.L    $6(A5), D6
46D0   7E00                      MoveQ.L   #$0, D7
46D2   4CF8 1004 03D6 L787:      MoveM.L   (FSTemp8), D2/A4
46D8   BC84                      Cmp.L     D4, D6
46DA   674A                      BEQ.B     L791
46DC   6100 FB7A                 Bsr       P105
46E0   2D02                      Move.L    D2, -(A6)
46E2   2D03                      Move.L    D3, -(A6)
46E4   2004                      Move.L    D4, D0
46E6   2405                      Move.L    D5, D2
46E8   2206                      Move.L    D6, D1
46EA   2607                      Move.L    D7, D3
46EC   93C9                      SubA.L    A1, A1
46EE   4EBA 1BCC                 Jsr       P_mCMMoveCN
46F2   2E02                      Move.L    D2, D7
46F4   261E                      Move.L    (A6)+, D3
46F6   241E                      Move.L    (A6)+, D2
46F8   6100 FB8E                 Bsr       P106
46FC   4A40                      Tst       D0
46FE   670C                      BEQ.B     L789
4700   0C40 0031                 Cmp       #$31, D0
4704   6602                      BNE.B     L788
4706   70D0                      MoveQ.L   #$-30, D0
4708   6000 FF50      L788:      Bra       L783
470C   2403           L789:      Move.L    D3, D2
470E   6716                      BEQ.B     L791
4710   6100 F8F0                 Bsr       P102
4714   6600 0010                 BNE       L791
4718   2387 1036      L790:      Move.L    D7, $36(A1,D1.W)
471C   2386 103A                 Move.L    D6, $3A(A1,D1.W)
4720   6100 F8EE                 Bsr       P103
4724   67F2                      BEQ.B     L790
4726   7000           L791:      MoveQ.L   #$0, D0
4728   6000 FF30                 Bra       L783
472C   70D3           L792:      MoveQ.L   #$-2D, D0
472E   0815 0000                 BTst.B    #$0, (A5)
4732   662E                      BNE.B     L793
4734   6100 FCB2                 Bsr       P115
4738   6628                      BNE.B     L793
473A   536A 0014                 SubQ      #$1, $14(A2)
473E   6100 E5DE                 Bsr       P_mMarkVCB
4742   362D 0016                 Move      $16(A5), D3
4746   6100 106E                 Bsr       P150
474A   362D 0020                 Move      $20(A5), D3
474E   6100 1066                 Bsr       P150
4752   202D 0012                 Move.L    $12(A5), D0
4756   611E                      Bsr.B     P117
4758   4EBA 3330                 Jsr       P_mTrashFBlocks
475C   6100 FBE2                 Bsr       P107
4760   7000                      MoveQ.L   #$0, D0
4762   6000 E1FA      L793:      Bra       L423

                      P116:
4766   7000                      MoveQ.L   #$0, D0
4768   102D 0032                 Move.B    $32(A5), D0
476C   0640 0034                 Add       #$34, D0
4770   0880 0000                 BClr.B    #$0, D0
4774   4E75                      Rts

                      P117:
4776   48E7 80C4                 MoveM.L   D0/A0-A1/A5, -(A7)
477A   2049                      Move.L    A1, A0
477C   4EBA 3276                 Jsr       P_mMarkBlock
4780   42AA 005A                 Clr.L     $5A(A2)
4784   204D                      Move.L    A5, A0
4786   61DE                      Bsr.B     P116
4788   DBC0                      AddA.L    D0, A5
478A   D2FC 0200                 AddA      #$200, A1
478E   BBC9           L794:      CmpA.L    A1, A5
4790   6404                      BCC.B     L795
4792   30DD                      Move      (A5)+, (A0)+
4794   60F8                      Bra.B     L794
4796   4258           L795:      Clr       (A0)+
4798   B1C9                      CmpA.L    A1, A0
479A   65FA                      BCS.B     L795
479C   4CDF 2301                 MoveM.L   (A7)+, D0/A0-A1/A5
47A0   4E75                      Rts
47A2   2F08           L796:      Move.L    A0, -(A7)
47A4   3002                      Move      D2, D0
47A6   204C                      Move.L    A4, A0
47A8   4CF8 1004 03D6            MoveM.L   (FSTemp8), D2/A4
47AE   4840                      Swap      D0
47B0   3002                      Move      D2, D0
47B2   224C                      Move.L    A4, A1
47B4   A03C                      _CmpString
47B6   205F                      Move.L    (A7)+, A0
47B8   670E                      BEQ.B     L798
47BA   6100 020E                 Bsr       P121
47BE   6602                      BNE.B     L797
47C0   70D0                      MoveQ.L   #$-30, D0
47C2   0C40 FFD5      L797:      Cmp       #$-2B, D0
47C6   664E                      BNE.B     L802
47C8   6100 01C6      L798:      Bsr       P_FndFilName
47CC   6648                      BNE.B     L802
47CE   70D3                      MoveQ.L   #$-2D, D0
47D0   0815 0000                 BTst.B    #$0, (A5)
47D4   6640                      BNE.B     L802
47D6   284E                      Move.L    A6, A4
47D8   264D                      Move.L    A5, A3
47DA   618A                      Bsr.B     P116
47DC   3D33 00FE      L799:      Move      $-2(A3,D0.W), -(A6)
47E0   5540                      SubQ      #$2, D0
47E2   6EF8                      BGT.B     L799
47E4   6190                      Bsr.B     P117
47E6   2438 03D6                 Move.L    (FSTemp8), D2
47EA   6100 FB62                 Bsr       P108
47EE   662A                      BNE.B     L803
47F0   264D                      Move.L    A5, A3
47F2   7018                      MoveQ.L   #$18, D0
47F4   3ADE           L800:      Move      (A6)+, (A5)+
47F6   51C8 FFFC                 DBF       D0, L800
47FA   2C4C                      Move.L    A4, A6
47FC   4CF8 1004 03D6            MoveM.L   (FSTemp8), D2/A4
4802   1AC2                      Move.B    D2, (A5)+
4804   1ADC           L801:      Move.B    (A4)+, (A5)+
4806   5342                      SubQ      #$1, D2
4808   6EFA                      BGT.B     L801
480A   612C                      Bsr.B     P118
480C   6100 E512                 Bsr       P_mMarkVCBTime
4810   6100 FB2E                 Bsr       P107
4814   7000                      MoveQ.L   #$0, D0
4816   6000 E146      L802:      Bra       L423
481A   142E 0032      L803:      Move.B    $32(A6), D2
481E   6100 FB2E                 Bsr       P108
4822   6706                      BEQ.B     L804
4824   2C4C                      Move.L    A4, A6
4826   70C5                      MoveQ.L   #$-3B, D0
4828   60EC                      Bra.B     L802
482A   264D           L804:      Move.L    A5, A3
482C   3ADE           L805:      Move      (A6)+, (A5)+
482E   B9CE                      CmpA.L    A6, A4
4830   66FA                      BNE.B     L805
4832   6104                      Bsr.B     P118
4834   70DF                      MoveQ.L   #$-21, D0
4836   60DE                      Bra.B     L802

                      P118:
4838   242B 0012                 Move.L    $12(A3), D2
483C   3038 0340                 Move      (CkdDB), D0
4840   6100 F7C0                 Bsr       P102
4844   660A                      BNE.B     L807
4846   3380 101C      L806:      Move      D0, $1C(A1,D1.W)
484A   6100 F7C4                 Bsr       P103
484E   67F6                      BEQ.B     L806
4850   4E75           L807:      Rts

                      P_tSetFilType:
4852   6100 E056                 Bsr       P56
4856   1228 001A                 Move.B    $1A(A0), D1
485A   1168 001C 001A            Move.B    $1C(A0), $1A(A0)
4860   6100 012E                 Bsr       P_FndFilName
4864   1141 001A                 Move.B    D1, $1A(A0)
4868   4A40                      Tst       D0
486A   6608                      BNE.B     L808
486C   6100 0658                 Bsr       P_mTFSVCBTst
4870   6714                      BEQ.B     L809
4872   70D0                      MoveQ.L   #$-30, D0
4874   0C40 FFD5      L808:      Cmp       #$-2B, D0
4878   6658                      BNE.B     L814
487A   6100 00FE                 Bsr       P119
487E   6100 0646                 Bsr       P_mTFSVCBTst
4882   6600 04E2                 BNE       L867
4886   70CE           L809:      MoveQ.L   #$-32, D0
4888   6048                      Bra.B     L814

                      P_tSetFilLock:
488A   6100 E01E                 Bsr       P56
488E   50F8 0348                 ST.B      (FLckUnlck)
4892   6008                      Bra.B     L810

                      P_tRstFilLock:
4894   6100 E014                 Bsr       P56
4898   4238 0348                 Clr.B     (FLckUnlck)
489C   6100 00DC      L810:      Bsr       P119
48A0   6100 0624                 Bsr       P_mTFSVCBTst
48A4   6600 04C8                 BNE       L868
48A8   70D5                      MoveQ.L   #$-2B, D0
48AA   0C15 0002                 Cmp.B     #$2, (A5)
48AE   6622                      BNE.B     L814
48B0   4A38 0348                 Tst.B     (FLckUnlck)
48B4   670A                      BEQ.B     L811
48B6   08ED 0000 0002            BSet.B    #$0, $2(A5)
48BC   6612                      BNE.B     L813
48BE   6008                      Bra.B     L812
48C0   08AD 0000 0002 L811:      BClr.B    #$0, $2(A5)
48C6   6708                      BEQ.B     L813
48C8   2407           L812:      Move.L    D7, D2
48CA   4EBA 1CA0                 Jsr       P_mCMUpdateCN
48CE   6002                      Bra.B     L814
48D0   7000           L813:      MoveQ.L   #$0, D0
48D2   6000 E08A      L814:      Bra       L423

                      P_tSetFileInfo:
48D6   6100 DFD2                 Bsr       P56
48DA   6100 009E                 Bsr       P119
48DE   6100 05E6                 Bsr       P_mTFSVCBTst
48E2   6600 04AE                 BNE       L872
48E6   70D5                      MoveQ.L   #$-2B, D0
48E8   0C15 0002                 Cmp.B     #$2, (A5)
48EC   66E4                      BNE.B     L814
48EE   4CE8 001E 0020            MoveM.L   $20(A0), D1-D4
48F4   48ED 001E 0004            MoveM.L   D1-D4, $4(A5)
48FA   4CE8 0006 0048            MoveM.L   $48(A0), D1-D2
4900   48ED 0006 002C            MoveM.L   D1-D2, $2C(A5)
4906   60C0                      Bra.B     L812

                      P_mFileFileTFSetCatInfo_hfs:
4908   6100 DFA0                 Bsr       P56
490C   616C                      Bsr.B     P119
490E   6100 05B6                 Bsr       P_mTFSVCBTst
4912   6600 047E                 BNE       L872
4916   0C15 0002                 Cmp.B     #$2, (A5)
491A   662C                      BNE.B     L815
491C   4CE8 000F 0020            MoveM.L   $20(A0), D0-D3
4922   48ED 000F 0004            MoveM.L   D0-D3, $4(A5)
4928   4CE8 000F 0054            MoveM.L   $54(A0), D0-D3
492E   48ED 000F 0038            MoveM.L   D0-D3, $38(A5)
4934   4CE8 0003 0048            MoveM.L   $48(A0), D0-D1
493A   48ED 0003 002C            MoveM.L   D0-D1, $2C(A5)
4940   2B68 0050 0034            Move.L    $50(A0), $34(A5)
4946   602C                      Bra.B     L816
4948   70DB           L815:      MoveQ.L   #$-25, D0
494A   0C15 0001                 Cmp.B     #$1, (A5)
494E   6626                      BNE.B     L817
4950   4CE8 001E 0020            MoveM.L   $20(A0), D1-D4
4956   48ED 001E 0016            MoveM.L   D1-D4, $16(A5)
495C   4CE8 000F 0054            MoveM.L   $54(A0), D0-D3
4962   48ED 000F 0026            MoveM.L   D0-D3, $26(A5)
4968   4CE8 0007 0048            MoveM.L   $48(A0), D0-D2
496E   48ED 0007 000A            MoveM.L   D0-D2, $A(A5)
4974   7000           L816:      MoveQ.L   #$0, D0
4976   6000 FF50      L817:      Bra       L812

                      P119:
497A   2D1F                      Move.L    (A7)+, -(A6)
497C   6112                      Bsr.B     P_FndFilName
497E   660A                      BNE.B     L818
4980   6100 F0F4                 Bsr       P87
4984   6604                      BNE.B     L818
4986   2F1E                      Move.L    (A6)+, -(A7)
4988   4E75                      Rts
498A   584E           L818:      AddQ      #$4, A6
498C   6000 DFD0                 Bra       L423

                      P_FndFilName:
4990   2F38 078C                 Move.L    ($78C), -(A7)
4994   4E75                      Rts

                      P_tA0E3_mvFndFilName:
4996   6100 ECAA                 Bsr       P_DTRMV3
499A   6702                      BEQ.B     L820
499C   4E75           L819:      Rts
499E   7C02           L820:      MoveQ.L   #$2, D6
49A0   2E0B                      Move.L    A3, D7
49A2   6708                      BEQ.B     L821
49A4   2C2B 0004                 Move.L    $4(A3), D6
49A8   2E2B 0008                 Move.L    $8(A3), D7
49AC   200C           L821:      Move.L    A4, D0
49AE   6708                      BEQ.B     L822
49B0   90A8 0012                 Sub.L     $12(A0), D0
49B4   5580                      SubQ      #$2, D0
49B6   6E12                      BGT.B     P121
49B8   0828 0009 0006 L822:      BTst.B    #$9, $6(A0)
49BE   670A                      BEQ.B     P121
49C0   2028 0030                 Move.L    $30(A0), D0
49C4   6704                      BEQ.B     P121
49C6   2C00                      Move.L    D0, D6
49C8   7E00                      MoveQ.L   #$0, D7

                      P121:
49CA   6100 00EE                 Bsr       P122
49CE   66CC                      BNE.B     L819
49D0   6100 04F4                 Bsr       P_mTFSVCBTst
49D4   6600 03D6                 BNE       L873
49D8   2D1F                      Move.L    (A7)+, -(A6)
49DA   48E6 40C0                 MoveM.L   D1/A0-A1, -(A6)
49DE   2202                      Move.L    D2, D1
49E0   2802                      Move.L    D2, D4
49E2   7088           L823:      MoveQ.L   #$-78, D0
49E4   7200                      MoveQ.L   #$0, D1
49E6   7600           L824:      MoveQ.L   #$0, D3
49E8   B244                      Cmp       D4, D1
49EA   6C2C                      BGE.B     L827
49EC   0C34 003A 1000            Cmp.B     #$3A, $0(A4,D1.W)
49F2   6710                      BEQ.B     L826
49F4   0C41 001F                 Cmp       #$1F, D1
49F8   6D06                      BLT.B     L825
49FA   70DB                      MoveQ.L   #$-25, D0
49FC   6000 00B2                 Bra       L833
4A00   5241           L825:      AddQ      #$1, D1
4A02   60E2                      Bra.B     L824
4A04   08F8 0005 0376 L826:      BSet.B    #$5, (HFSFlags)
4A0A   4A41                      Tst       D1
4A0C   57C3                      SEQ.B     D3
4A0E   4843                      Swap      D3
4A10   3604                      Move      D4, D3
4A12   9641                      Sub       D1, D3
4A14   5343                      SubQ      #$1, D3
4A16   6E02                      BGT.B     L828
4A18   70D5           L827:      MoveQ.L   #$-2B, D0
4A1A   4843           L828:      Swap      D3
4A1C   48E6 0300                 MoveM.L   D6-D7, -(A6)
4A20   48E7 8040                 MoveM.L   D0/A1, -(A7)
4A24   2041                      Move.L    D1, A0
4A26   5241                      AddQ      #$1, D1
4A28   E249                      LsR       #$1, D1
4A2A   E349                      LsL       #$1, D1
4A2C   9DC1                      SubA.L    D1, A6
4A2E   2F01                      Move.L    D1, -(A7)
4A30   2208                      Move.L    A0, D1
4A32   204C                      Move.L    A4, A0
4A34   224E                      Move.L    A6, A1
4A36   2001                      Move.L    D1, D0
4A38   A02E                      _BlockMove
4A3A   3D01                      Move      D1, -(A6)
4A3C   221F                      Move.L    (A7)+, D1
4A3E   204E                      Move.L    A6, A0
4A40   5288                      AddQ      #$1, A0
4A42   4CDF 0201                 MoveM.L   (A7)+, D0/A1
4A46   CD40                      Exg.L     D6, D0
4A48   2407                      Move.L    D7, D2
4A4A   4EBA 17EC                 Jsr       P_mCMGetCN
4A4E   3F1E                      Move      (A6)+, -(A7)
4A50   DDC1                      AddA.L    D1, A6
4A52   7200                      MoveQ.L   #$0, D1
4A54   321F                      Move      (A7)+, D1
4A56   4A40                      Tst       D0
4A58   6648                      BNE.B     L831
4A5A   4A03                      Tst.B     D3
4A5C   6720                      BEQ.B     L829
4A5E   7088                      MoveQ.L   #$-78, D0
4A60   0CA8 0000 0001            Cmp.L     #$1, $2(A0)
       0002
4A68   6738                      BEQ.B     L831
4A6A   2028 0002                 Move.L    $2(A0), D0
4A6E   7400                      MoveQ.L   #$0, D2
4A70   91C8                      SubA.L    A0, A0
4A72   4EBA 17C4                 Jsr       P_mCMGetCN
4A76   662A                      BNE.B     L831
4A78   2028 0002                 Move.L    $2(A0), D0
4A7C   7400                      MoveQ.L   #$0, D2
4A7E   0C46 FFD5      L829:      Cmp       #$-2B, D6
4A82   6714                      BEQ.B     L830
4A84   4CDE 00C0                 MoveM.L   (A6)+, D6-D7
4A88   2C29 0006                 Move.L    $6(A1), D6
4A8C   2E02                      Move.L    D2, D7
4A8E   5241                      AddQ      #$1, D1
4A90   D9C1                      AddA.L    D1, A4
4A92   9841                      Sub       D1, D4
4A94   6000 FF4C                 Bra       L823
4A98   7000           L830:      MoveQ.L   #$0, D0
4A9A   2A49                      Move.L    A1, A5
4A9C   2D42 0004                 Move.L    D2, $4(A6)
4AA0   6008                      Bra.B     L832
4AA2   0C40 0030      L831:      Cmp       #$30, D0
4AA6   6602                      BNE.B     L832
4AA8   2006                      Move.L    D6, D0
4AAA   4CDE 00C0      L832:      MoveM.L   (A6)+, D6-D7
4AAE   2401                      Move.L    D1, D2
4AB0   4CDE 0302      L833:      MoveM.L   (A6)+, D1/A0-A1
4AB4   2F1E                      Move.L    (A6)+, -(A7)
4AB6   4A40                      Tst       D0
4AB8   4E75                      Rts

                      P122:
4ABA   6100 EB7C                 Bsr       P_CKExtFS
4ABE   6608                      BNE.B     L834
4AC0   4A6A 0048                 Tst       $48(A2)
4AC4   6602                      BNE.B     L834
4AC6   70CB                      MoveQ.L   #$-35, D0
4AC8   21CA 03EE      L834:      Move.L    A2, (ReqstVol)
4ACC   4A40                      Tst       D0
4ACE   4E75                      Rts

                      P_mGetCatInfo_hfs:
4AD0   6100 DDD8                 Bsr       P56
4AD4   08F8 0000 0376            BSet.B    #$0, (HFSFlags)
4ADA   4A68 001C                 Tst       $1C(A0)
4ADE   6B3C                      BMI.B     L837
4AE0   600A                      Bra.B     L835

                      P_tGetFileInfo:
4AE2   6100 DDC6                 Bsr       P56
4AE6   08B8 0000 0376            BClr.B    #$0, (HFSFlags)
4AEC   3228 001C      L835:      Move      $1C(A0), D1
4AF0   6E2C                      BGT.B     L838
4AF2   6100 FE9C                 Bsr       P_FndFilName
4AF6   6710                      BEQ.B     L836
4AF8   0C40 FFDB                 Cmp       #$-25, D0
4AFC   6600 0138                 BNE       L851
4B00   4A02                      Tst.B     D2
4B02   6600 0132                 BNE       L851
4B06   6064                      Bra.B     L841
4B08   6100 03BC      L836:      Bsr       P_mTFSVCBTst
4B0C   6600 036E                 BNE       L891
4B10   2206                      Move.L    D6, D1
4B12   7000                      MoveQ.L   #$0, D0
4B14   3540 005A                 Move      D0, $5A(A2)
4B18   6000 014E                 Bra       L855
4B1C   7200           L837:      MoveQ.L   #$0, D1
4B1E   08F8 0005 0376 L838:      BSet.B    #$5, (HFSFlags)
4B24   6100 EB2A                 Bsr       P_DTRMV1
4B28   6600 010C                 BNE       L851
4B2C   618C                      Bsr.B     P122
4B2E   6600 0106                 BNE       L851
4B32   7C02                      MoveQ.L   #$2, D6
4B34   2E0B                      Move.L    A3, D7
4B36   6708                      BEQ.B     L839
4B38   2C2B 0004                 Move.L    $4(A3), D6
4B3C   2E2B 0008                 Move.L    $8(A3), D7
4B40   0828 0009 0006 L839:      BTst.B    #$9, $6(A0)
4B46   670C                      BEQ.B     L840
4B48   4AA8 0030                 Tst.L     $30(A0)
4B4C   6706                      BEQ.B     L840
4B4E   2C28 0030                 Move.L    $30(A0), D6
4B52   7E00                      MoveQ.L   #$0, D7
4B54   6100 0370      L840:      Bsr       P_mTFSVCBTst
4B58   6764                      BEQ.B     L844
4B5A   7088                      MoveQ.L   #$-78, D0
4B5C   0C86 0000 0002            Cmp.L     #$2, D6
4B62   6600 00D2                 BNE       L851
4B66   4A41                      Tst       D1
4B68   6E00 02A6                 BGT       L883
4B6C   43E8 001E      L841:      Lea.L     $1E(A0), A1
4B70   7026                      MoveQ.L   #$26, D0
4B72   4259           L842:      Clr       (A1)+
4B74   51C8 FFFC                 DBF       D0, L842
4B78   08E8 0004 001E            BSet.B    #$4, $1E(A0)
4B7E   217C 0000 0002            Move.L    #$2, $30(A0)
       0030
4B86   217C 0000 0001            Move.L    #$1, $64(A0)
       0064
4B8E   316A 0014 0034            Move      $14(A2), $34(A0)
4B94   216A 000A 0048            Move.L    $A(A2), $48(A0)
4B9A   216A 000E 004C            Move.L    $E(A2), $4C(A0)
4BA0   2028 0012                 Move.L    $12(A0), D0
4BA4   6712                      BEQ.B     L843
4BA6   4A68 001C                 Tst       $1C(A0)
4BAA   670C                      BEQ.B     L843
4BAC   2240                      Move.L    D0, A1
4BAE   41EA 002C                 Lea.L     $2C(A2), A0
4BB2   7001                      MoveQ.L   #$1, D0
4BB4   D010                      Add.B     (A0), D0
4BB6   A02E                      _BlockMove
4BB8   7000           L843:      MoveQ.L   #$0, D0
4BBA   6000 007A                 Bra       L851
4BBE   7001           L844:      MoveQ.L   #$1, D0
4BC0   BC80                      Cmp.L     D0, D6
4BC2   6770                      BEQ.B     L850
4BC4   4A41                      Tst       D1
4BC6   6614                      BNE.B     L845
4BC8   48E6 00C0                 MoveM.L   A0-A1, -(A6)
4BCC   2006                      Move.L    D6, D0
4BCE   2407                      Move.L    D7, D2
4BD0   91C8                      SubA.L    A0, A0
4BD2   4EBA 1664                 Jsr       P_mCMGetCN
4BD6   6652                      BNE.B     L849
4BD8   2E02                      Move.L    D2, D7
4BDA   606E                      Bra.B     L853
4BDC   0838 0000 0376 L845:      BTst.B    #$0, (HFSFlags)
4BE2   6656                      BNE.B     L852
4BE4   3A01                      Move      D1, D5
4BE6   322A 00B0                 Move      $B0(A2), D1
4BEA   BCAA 00AC                 Cmp.L     $AC(A2), D6
4BEE   6612                      BNE.B     L846
4BF0   BA6A 005A                 Cmp       $5A(A2), D5
4BF4   650C                      BCS.B     L846
4BF6   302A 005A                 Move      $5A(A2), D0
4BFA   3545 005A                 Move      D5, $5A(A2)
4BFE   9A40                      Sub       D0, D5
4C00   6008                      Bra.B     L847
4C02   7201           L846:      MoveQ.L   #$1, D1
4C04   3545 005A                 Move      D5, $5A(A2)
4C08   5345                      SubQ      #$1, D5
4C0A   48E6 00C0      L847:      MoveM.L   A0-A1, -(A6)
4C0E   2006           L848:      Move.L    D6, D0
4C10   2407                      Move.L    D7, D2
4C12   91C8                      SubA.L    A0, A0
4C14   4EBA 1642                 Jsr       P_mCMGetOff
4C18   6610                      BNE.B     L849
4C1A   2E02                      Move.L    D2, D7
4C1C   5241                      AddQ      #$1, D1
4C1E   0C11 0002                 Cmp.B     #$2, (A1)
4C22   66EA                      BNE.B     L848
4C24   51CD FFE8                 DBF       D5, L848
4C28   6020                      Bra.B     L853
4C2A   4CDE 0300      L849:      MoveM.L   (A6)+, A0-A1
4C2E   0C40 0030                 Cmp       #$30, D0
4C32   6602                      BNE.B     L851
4C34   70D5           L850:      MoveQ.L   #$-2B, D0
4C36   6000 DD26      L851:      Bra       L423
4C3A   48E6 00C0      L852:      MoveM.L   A0-A1, -(A6)
4C3E   2006                      Move.L    D6, D0
4C40   2407                      Move.L    D7, D2
4C42   91C8                      SubA.L    A0, A0
4C44   4EBA 1612                 Jsr       P_mCMGetOff
4C48   66E0                      BNE.B     L849
4C4A   47E8 0006      L853:      Lea.L     $6(A0), A3
4C4E   2228 0002                 Move.L    $2(A0), D1
4C52   2A49                      Move.L    A1, A5
4C54   4CDE 0300                 MoveM.L   (A6)+, A0-A1
4C58   2028 0012                 Move.L    $12(A0), D0
4C5C   670A                      BEQ.B     L855
4C5E   2840                      Move.L    D0, A4
4C60   1013                      Move.B    (A3), D0
4C62   18DB           L854:      Move.B    (A3)+, (A4)+
4C64   5300                      SubQ      #$1, D0
4C66   64FA                      BCC.B     L854
4C68   0838 0000 0376 L855:      BTst.B    #$0, (HFSFlags)
4C6E   6670                      BNE.B     L864
4C70   0C15 0002                 Cmp.B     #$2, (A5)
4C74   66BE                      BNE.B     L850
4C76   49E8 001E                 Lea.L     $1E(A0), A4
4C7A   7018                      MoveQ.L   #$18, D0
4C7C   47ED 0002                 Lea.L     $2(A5), A3
4C80   38DB           L856:      Move      (A3)+, (A4)+
4C82   51C8 FFFC                 DBF       D0, L856
4C86   08A8 0004 001E            BClr.B    #$4, $1E(A0)
4C8C   0228 0073 001E L857:      And.B     #$73, $1E(A0)
4C92   4268 0018                 Clr       $18(A0)
4C96   242D 0014                 Move.L    $14(A5), D2
4C9A   6100 022A                 Bsr       P_mTFSVCBTst
4C9E   6704                      BEQ.B     L858
4CA0   242D 0012                 Move.L    $12(A5), D2
4CA4   6100 F35C      L858:      Bsr       P102
4CA8   6630                      BNE.B     L863
4CAA   0831 0001 1004 L859:      BTst.B    #$1, $4(A1,D1.W)
4CB0   6708                      BEQ.B     L860
4CB2   08E8 0002 001E            BSet.B    #$2, $1E(A0)
4CB8   6006                      Bra.B     L861
4CBA   08E8 0003 001E L860:      BSet.B    #$3, $1E(A0)
4CC0   08E8 0007 001E L861:      BSet.B    #$7, $1E(A0)
4CC6   6604                      BNE.B     L862
4CC8   3141 0018                 Move      D1, $18(A0)
4CCC   47E8 0034      L862:      Lea.L     $34(A0), A3
4CD0   6100 0654                 Bsr       P138
4CD4   6100 F33A                 Bsr       P103
4CD8   67D0                      BEQ.B     L859
4CDA   7000           L863:      MoveQ.L   #$0, D0
4CDC   6000 FF58                 Bra       L851
4CE0   49E8 001E      L864:      Lea.L     $1E(A0), A4
4CE4   0C15 0002                 Cmp.B     #$2, (A5)
4CE8   6628                      BNE.B     L866
4CEA   7022                      MoveQ.L   #$22, D0
4CEC   47ED 0002                 Lea.L     $2(A5), A3
4CF0   38DB           L865:      Move      (A3)+, (A4)+
4CF2   51C8 FFFC                 DBF       D0, L865
4CF6   7000                      MoveQ.L   #$0, D0
4CF8   302D 0048                 Move      $48(A5), D0
4CFC   C0EA 001E                 MulU      $1E(A2), D0
4D00   2140 0068                 Move.L    D0, $68(A0)
4D04   2141 0064                 Move.L    D1, $64(A0)
4D08   08A8 0004 001E            BClr.B    #$4, $1E(A0)
4D0E   6000 FF7C                 Bra       L857
4D12   0C15 0001      L866:      Cmp.B     #$1, (A5)
4D16   6600 FF1C                 BNE       L850
4D1A   316D 0002 001E            Move      $2(A5), $1E(A0)
4D20   316D 0004 0034            Move      $4(A5), $34(A0)
4D26   216D 0006 0030            Move.L    $6(A5), $30(A0)
4D2C   2141 0064                 Move.L    D1, $64(A0)
4D30   4CED 0007 000A            MoveM.L   $A(A5), D0-D2
4D36   48E8 0007 0048            MoveM.L   D0-D2, $48(A0)
4D3C   4CED 000F 0016            MoveM.L   $16(A5), D0-D3
4D42   48E8 000F 0020            MoveM.L   D0-D3, $20(A0)
4D48   4CED 000F 0026            MoveM.L   $26(A5), D0-D3
4D4E   48E8 000F 0054            MoveM.L   D0-D3, $54(A0)
4D54   08A8 0007 001E            BClr.B    #$7, $1E(A0)
4D5A   08E8 0004 001E            BSet.B    #$4, $1E(A0)
4D60   7000                      MoveQ.L   #$0, D0
4D62   6000 FED2                 Bra       L851
4D66   1B68 001C 0001 L867:      Move.B    $1C(A0), $1(A5)
4D6C   6014                      Bra.B     L870
4D6E   4A38 0348      L868:      Tst.B     (FLckUnlck)
4D72   6708                      BEQ.B     L869
4D74   08D5 0000                 BSet.B    #$0, (A5)
4D78   6612                      BNE.B     L871
4D7A   6006                      Bra.B     L870
4D7C   0895 0000      L869:      BClr.B    #$0, (A5)
4D80   670A                      BEQ.B     L871
4D82   2049           L870:      Move.L    A1, A0
4D84   4EBA 2C6E                 Jsr       P_mMarkBlock
4D88   6100 F5B6                 Bsr       P107
4D8C   7000           L871:      MoveQ.L   #$0, D0
4D8E   6000 DBCE                 Bra       L423
4D92   4CE8 001E 0020 L872:      MoveM.L   $20(A0), D1-D4
4D98   48ED 001E 0002            MoveM.L   D1-D4, $2(A5)
4D9E   4CE8 0006 0048            MoveM.L   $48(A0), D1-D2
4DA4   48ED 0006 002A            MoveM.L   D1-D2, $2A(A5)
4DAA   60D6                      Bra.B     L870
4DAC   265F           L873:      Move.L    (A7)+, A3
4DAE   4A02                      Tst.B     D2
4DB0   6604                      BNE.B     L874
4DB2   70DB                      MoveQ.L   #$-25, D0
4DB4   6058                      Bra.B     L882
4DB6   3E2A 0014      L874:      Move      $14(A2), D7
4DBA   670C                      BEQ.B     L876
4DBC   6100 033E                 Bsr       P132
4DC0   670A           L875:      BEQ.B     L877
4DC2   0C40 FFDF                 Cmp       #$-21, D0
4DC6   6646                      BNE.B     L882
4DC8   70D5           L876:      MoveQ.L   #$-2B, D0
4DCA   6042                      Bra.B     L882
4DCC   7000           L877:      MoveQ.L   #$0, D0
4DCE   224C                      Move.L    A4, A1
4DD0   3800           L878:      Move      D0, D4
4DD2   4A35 4000                 Tst.B     $0(A5,D4.W)
4DD6   672A                      BEQ.B     L880
4DD8   1C35 4001                 Move.B    $1(A5,D4.W), D6
4DDC   BC28 001A                 Cmp.B     $1A(A0), D6
4DE0   6614                      BNE.B     L879
4DE2   2F08                      Move.L    A0, -(A7)
4DE4   41F5 4032                 Lea.L     $32(A5,D4.W), A0
4DE8   7000                      MoveQ.L   #$0, D0
4DEA   1018                      Move.B    (A0)+, D0
4DEC   4840                      Swap      D0
4DEE   3002                      Move      D2, D0
4DF0   A03C                      _CmpString
4DF2   205F                      Move.L    (A7)+, A0
4DF4   6712                      BEQ.B     L881
4DF6   5347           L879:      SubQ      #$1, D7
4DF8   67CE                      BEQ.B     L876
4DFA   3004                      Move      D4, D0
4DFC   6100 F58C                 Bsr       P109
4E00   65CE                      BCS.B     L878
4E02   6100 0308      L880:      Bsr       P133
4E06   60B8                      Bra.B     L875
4E08   224D           L881:      Move.L    A5, A1
4E0A   4BF5 4000                 Lea.L     $0(A5,D4.W), A5
4E0E   4ED3           L882:      Jmp       (A3)
4E10   B26A 0014      L883:      Cmp       $14(A2), D1
4E14   6248                      BHI.B     L888
4E16   3A2A 0018                 Move      $18(A2), D5
4E1A   362A 0016                 Move      $16(A2), D3
4E1E   DA43                      Add       D3, D5
4E20   3E2A 005A                 Move      $5A(A2), D7
4E24   670A                      BEQ.B     L884
4E26   B247                      Cmp       D7, D1
4E28   6506                      BCS.B     L884
4E2A   362A 005C                 Move      $5C(A2), D3
4E2E   6002                      Bra.B     L885
4E30   7E01           L884:      MoveQ.L   #$1, D7
4E32   B645           L885:      Cmp       D5, D3
4E34   6428                      BCC.B     L888
4E36   3543 005C                 Move      D3, $5C(A2)
4E3A   3547 005A                 Move      D7, $5A(A2)
4E3E   6100 02DC                 Bsr       P134
4E42   661A                      BNE.B     L888
4E44   7000                      MoveQ.L   #$0, D0
4E46   7C00           L886:      MoveQ.L   #$0, D6
4E48   4A35 0000                 Tst.B     $0(A5,D0.W)
4E4C   670C                      BEQ.B     L887
4E4E   B247                      Cmp       D7, D1
4E50   6712                      BEQ.B     L889
4E52   5247                      AddQ      #$1, D7
4E54   6100 F534                 Bsr       P109
4E58   65EC                      BCS.B     L886
4E5A   5243           L887:      AddQ      #$1, D3
4E5C   60D4                      Bra.B     L885
4E5E   70D5           L888:      MoveQ.L   #$-2B, D0
4E60   6000 DAFC                 Bra       L423
4E64   4BF5 0000      L889:      Lea.L     $0(A5,D0.W), A5
4E68   47ED 0032                 Lea.L     $32(A5), A3
4E6C   2028 0012                 Move.L    $12(A0), D0
4E70   670A                      BEQ.B     L891
4E72   2840                      Move.L    D0, A4
4E74   1013                      Move.B    (A3), D0
4E76   18DB           L890:      Move.B    (A3)+, (A4)+
4E78   5300                      SubQ      #$1, D0
4E7A   64FA                      BCC.B     L890
4E7C   49E8 001E      L891:      Lea.L     $1E(A0), A4
4E80   7018                      MoveQ.L   #$18, D0
4E82   47D5                      Lea.L     (A5), A3
4E84   38DB           L892:      Move      (A3)+, (A4)+
4E86   51C8 FFFC                 DBF       D0, L892
4E8A   08A8 0004 001E            BClr.B    #$4, $1E(A0)
4E90   0838 0000 0376            BTst.B    #$0, (HFSFlags)
4E96   671C                      BEQ.B     L894
4E98   217C 0000 0002            Move.L    #$2, $64(A0)
       0064
4EA0   42A8 0050                 Clr.L     $50(A0)
4EA4   2F08                      Move.L    A0, -(A7)
4EA6   41E8 0054                 Lea.L     $54(A0), A0
4EAA   7003                      MoveQ.L   #$3, D0
4EAC   4298           L893:      Clr.L     (A0)+
4EAE   51C8 FFFC                 DBF       D0, L893
4EB2   205F                      Move.L    (A7)+, A0
4EB4   6000 FDD6      L894:      Bra       L857

                      P123:
4EB8   3028 0006                 Move      $6(A0), D0
4EBC   0800 0009                 BTst.B    #$9, D0
4EC0   4E75                      Rts

                      P124:
4EC2   2471 1014                 Move.L    $14(A1,D1.W), A2

                      P_mTFSVCBTst:
4EC6   0C6A 4244 0008            Cmp       #$4244, $8(A2)
4ECC   4E75                      Rts

                      P126:
4ECE   42A8 0028                 Clr.L     $28(A0)
4ED2   70CE                      MoveQ.L   #$-32, D0
4ED4   2E28 0024                 Move.L    $24(A0), D7
4ED8   6B34                      BMI.B     L900
4EDA   2428 002E                 Move.L    $2E(A0), D2
4EDE   2A31 1010                 Move.L    $10(A1,D1.W), D5
4EE2   2831 1008                 Move.L    $8(A1,D1.W), D4
4EE6   1028 002D                 Move.B    $2D(A0), D0
4EEA   E410                      RXR.B     #$2, D0
4EEC   6408                      BCC.B     L896
4EEE   6B02                      BMI.B     L895
4EF0   2A04                      Move.L    D4, D5
4EF2   DA82           L895:      Add.L     D2, D5
4EF4   6004                      Bra.B     L897
4EF6   6A02           L896:      BPL.B     L897
4EF8   2A02                      Move.L    D2, D5
4EFA   6A04           L897:      BPL.B     L898
4EFC   70D8                      MoveQ.L   #$-28, D0
4EFE   600E                      Bra.B     L900
4F00   2405           L898:      Move.L    D5, D2
4F02   9484                      Sub.L     D4, D2
4F04   6F02                      BLE.B     L899
4F06   2A04                      Move.L    D4, D5
4F08   2385 1010      L899:      Move.L    D5, $10(A1,D1.W)
4F0C   7000                      MoveQ.L   #$0, D0
4F0E   4E75           L900:      Rts

                      P_tGetFPos:
4F10   4228 002D                 Clr.B     $2D(A0)

                      P_tSetFPos:
4F14   42A8 0024                 Clr.L     $24(A0)
                      L_mFileRead:
4F18   6100 D990                 Bsr       P56
4F1C   6100 0434                 Bsr       P_RFNCall
4F20   6600 0086                 BNE       L910
4F24   61A8                      Bsr.B     P126
4F26   6678                      BNE.B     L909
4F28   4482                      Neg.L     D2
4F2A   6B72                      BMI.B     L908
4F2C   BE82                      Cmp.L     D2, D7
4F2E   6F02                      BLE.B     L902
4F30   2E02                      Move.L    D2, D7
4F32   4A87           L902:      Tst.L     D7
4F34   6758                      BEQ.B     L906
4F36   3428 002C                 Move      $2C(A0), D2
4F3A   E04A                      LsR       #$8, D2
4F3C   656E                      BCS.B     L911
4F3E   0828 0006 002D            BTst.B    #$6, $2D(A0)
4F44   6714                      BEQ.B     L903
4F46   48E6 4040                 MoveM.L   D1/A1, -(A6)
4F4A   3001                      Move      D1, D0
4F4C   7200                      MoveQ.L   #$0, D1
4F4E   226A 0054                 Move.L    $54(A2), A1
4F52   4EBA 2772                 Jsr       P_mFlushCache
4F56   4CDE 0202                 MoveM.L   (A6)+, D1/A1
4F5A   3405           L903:      Move      D5, D2
4F5C   0242 01FF                 And       #$1FF, D2
4F60   6714                      BEQ.B     L905
4F62   6100 008A      L904:      Bsr       P128
4F66   6628                      BNE.B     L907
4F68   0828 0006 002D            BTst.B    #$6, $2D(A0)
4F6E   56C0                      SNE.B     D0
4F70   6100 0142                 Bsr       P131
4F74   661A                      BNE.B     L907
4F76   2807           L905:      Move.L    D7, D4
4F78   6714                      BEQ.B     L906
4F7A   0244 FE00                 And       #$-200, D4
4F7E   4A84                      Tst.L     D4
4F80   67E0                      BEQ.B     L904
4F82   4EBA 2BA6                 Jsr       P_mCacheRDIP
4F86   6608                      BNE.B     L907
4F88   6100 0120                 Bsr       P130
4F8C   60E8                      Bra.B     L905
4F8E   7000           L906:      MoveQ.L   #$0, D0
4F90   4A40           L907:      Tst       D0
4F92   660C                      BNE.B     L909
4F94   2428 0028                 Move.L    $28(A0), D2
4F98   B4A8 0024                 Cmp.L     $24(A0), D2
4F9C   6702                      BEQ.B     L909
4F9E   70D9           L908:      MoveQ.L   #$-27, D0
4FA0   2385 1010      L909:      Move.L    D5, $10(A1,D1.W)
4FA4   2145 002E                 Move.L    D5, $2E(A0)
4FA8   6000 D9B4      L910:      Bra       L423
4FAC   6140           L911:      Bsr.B     P128
4FAE   66E0                      BNE.B     L907
4FB0   2405                      Move.L    D5, D2
4FB2   0242 01FF                 And       #$1FF, D2
4FB6   2668 0020                 Move.L    $20(A0), A3
4FBA   2828 0028                 Move.L    $28(A0), D4
4FBE   1035 2000      L912:      Move.B    $0(A5,D2.W), D0
4FC2   1780 4800                 Move.B    D0, $0(A3,D4.L)
4FC6   52A8 0028                 AddQ      #$1, $28(A0)
4FCA   5284                      AddQ      #$1, D4
4FCC   5242                      AddQ      #$1, D2
4FCE   5285                      AddQ      #$1, D5
4FD0   B028 002C                 Cmp.B     $2C(A0), D0
4FD4   6604                      BNE.B     L913
4FD6   7000                      MoveQ.L   #$0, D0
4FD8   60C6                      Bra.B     L909
4FDA   5387           L913:      SubQ      #$1, D7
4FDC   67B0                      BEQ.B     L906
4FDE   B446                      Cmp       D6, D2
4FE0   65DC                      BCS.B     L912
4FE2   60C8                      Bra.B     L911

                      P127:
4FE4   6120                      Bsr.B     P129
4FE6   BA83                      Cmp.L     D3, D5
4FE8   6510                      BCS.B     L914
4FEA   7204                      MoveQ.L   #$4, D1
4FEC   600C                      Bra.B     L914

                      P128:
4FEE   6116                      Bsr.B     P129
4FF0   0828 0006 002D            BTst.B    #$6, $2D(A0)
4FF6   6702                      BEQ.B     L914
4FF8   7201                      MoveQ.L   #$1, D1
4FFA   226A 0054      L914:      Move.L    $54(A2), A1
4FFE   2405                      Move.L    D5, D2
5000   E08A                      LsR.L     #$8, D2
5002   E28A                      LsR.L     #$1, D2
5004   4E75                      Rts

                      P129:
5006   48E6 60C0                 MoveM.L   D1-D2/A0-A1, -(A6)
500A   225F                      Move.L    (A7)+, A1
500C   2D1F                      Move.L    (A7)+, -(A6)
500E   3001                      Move      D1, D0
5010   7200                      MoveQ.L   #$0, D1
5012   7C02                      MoveQ.L   #$2, D6
5014   E18E                      LsL.L     #$8, D6
5016   4E91                      Jsr       (A1)
5018   5001                      AddQ      #$8, D1
501A   4EBA 2794                 Jsr       P_mGetBlock
501E   2A48                      Move.L    A0, A5
5020   2F1E                      Move.L    (A6)+, -(A7)
5022   4CDE 0306                 MoveM.L   (A6)+, D1-D2/A0-A1
5026   4A40                      Tst       D0
5028   4E75                      Rts
                      P_mFileWrite:
502A   6100 D87E                 Bsr       P56
502E   6100 036C                 Bsr       P_TstMod
5032   6672                      BNE.B     L925
5034   6100 FE98                 Bsr       P126
5038   6626                      BNE.B     L917
503A   4A82                      Tst.L     D2
503C   6B02                      BMI.B     L916
503E   DA82                      Add.L     D2, D5
5040   263C 0000 01FF L916:      Move.L    #$1FF, D3
5046   D684                      Add.L     D4, D3
5048   0243 FE00                 And       #$-200, D3
504C   2805                      Move.L    D5, D4
504E   D887                      Add.L     D7, D4
5050   B8B1 1008                 Cmp.L     $8(A1,D1.W), D4
5054   6314                      BLS.B     L919
5056   98B1 100C                 Sub.L     $C(A1,D1.W), D4
505A   6306                      BLS.B     L918
505C   6100 0560                 Bsr       P145
5060   663E           L917:      BNE.B     L924
5062   2805           L918:      Move.L    D5, D4
5064   D887                      Add.L     D7, D4
5066   2384 1008                 Move.L    D4, $8(A1,D1.W)
506A   3005           L919:      Move      D5, D0
506C   0240 01FF                 And       #$1FF, D0
5070   670E                      BEQ.B     L921
5072   6100 FF70      L920:      Bsr       P127
5076   6620                      BNE.B     L923
5078   7001                      MoveQ.L   #$1, D0
507A   6138                      Bsr.B     P131
507C   4EBA 2984                 Jsr       P_mMarkA5Block
5080   2807           L921:      Move.L    D7, D4
5082   6712                      BEQ.B     L922
5084   0244 FE00                 And       #$-200, D4
5088   4A84                      Tst.L     D4
508A   67E6                      BEQ.B     L920
508C   4EBA 2AC8                 Jsr       P_mCacheWRIP
5090   6606                      BNE.B     L923
5092   6116                      Bsr.B     P130
5094   60EA                      Bra.B     L921
5096   7000           L922:      MoveQ.L   #$0, D0
5098   6100 0496      L923:      Bsr       P_AdjEof
509C   2385 1010                 Move.L    D5, $10(A1,D1.W)
50A0   2171 1010 002E L924:      Move.L    $10(A1,D1.W), $2E(A0)
50A6   6000 D8B6      L925:      Bra       L423

                      P130:
50AA   9E86                      Sub.L     D6, D7
50AC   DDA8 0028                 Add.L     D6, $28(A0)
50B0   DA86                      Add.L     D6, D5
50B2   4E75                      Rts

                      P131:
50B4   2405                      Move.L    D5, D2
50B6   0242 01FF                 And       #$1FF, D2
50BA   9C42                      Sub       D2, D6
50BC   BE86                      Cmp.L     D6, D7
50BE   6402                      BCC.B     L926
50C0   2C07                      Move.L    D7, D6
50C2   2668 0020      L926:      Move.L    $20(A0), A3
50C6   D7E8 0028                 AddA.L    $28(A0), A3
50CA   61DE                      Bsr.B     P130
50CC   48E7 40E0                 MoveM.L   D1/A0-A2, -(A7)
50D0   204B                      Move.L    A3, A0
50D2   224D                      Move.L    A5, A1
50D4   D2C2                      AddA      D2, A1
50D6   4A00                      Tst.B     D0
50D8   6E04                      BGT.B     L927
50DA   6B12                      BMI.B     L930
50DC   C149                      Exg.L     A0, A1
50DE   2006           L927:      Move.L    D6, D0
50E0   2478 04B8                 Move.L    ($4B8), A2
50E4   4E92                      Jsr       (A2)
50E6   7000           L928:      MoveQ.L   #$0, D0
50E8   4CDF 0702      L929:      MoveM.L   (A7)+, D1/A0-A2
50EC   4E75                      Rts
50EE   70DC           L930:      MoveQ.L   #$-24, D0
50F0   5346                      SubQ      #$1, D6
50F2   B308           L931:      CmpM.B    (A0)+, (A1)+
50F4   56CE FFFC                 DBNE      D6, L931
50F8   66EE                      BNE.B     L929
50FA   60EA                      Bra.B     L928

                      P132:
50FC   302A 0018                 Move      $18(A2), D0
5100   362A 0016                 Move      $16(A2), D3
5104   D043                      Add       D3, D0
5106   31C0 0344                 Move      D0, (MaxDB)
510A   6010                      Bra.B     P134

                      P133:
510C   3638 0340                 Move      (CkdDB), D3
5110   5243                      AddQ      #$1, D3
5112   B678 0344                 Cmp       (MaxDB), D3
5116   6504                      BCS.B     P134
5118   70DF                      MoveQ.L   #$-21, D0
511A   4E75                      Rts

                      P134:
511C   31C3 0340                 Move      D3, (CkdDB)
5120   6100 FEE4                 Bsr       P129
5124   2278 0380                 Move.L    (SysCtlCPtr), A1
5128   6010                      Bra.B     L933

                      P135:
512A   6100 FEDA                 Bsr       P129
512E   6006                      Bra.B     L932

                      P136:
5130   6100 FED4                 Bsr       P129
5134   7204                      MoveQ.L   #$4, D1
5136   2278 037C      L932:      Move.L    (SysVolCPtr), A1
513A   7400           L933:      MoveQ.L   #$0, D2
513C   3403                      Move      D3, D2
513E   302A 004E                 Move      $4E(A2), D0
5142   4E75                      Rts

                      P_tFlushFile:
5144   6100 D764                 Bsr       P56
5148   50F8 0346                 ST.B      (FlushOnly)
514C   6008                      Bra.B     L935
                      P_mFileClose:
514E   6100 D75A                 Bsr       P56
5152   4238 0346                 Clr.B     (FlushOnly)
5156   6100 01FA      L935:      Bsr       P_RFNCall
515A   6706                      BEQ.B     L936
515C   0C40 FFCB                 Cmp       #$-35, D0
5160   6602                      BNE.B     L937
5162   6104           L936:      Bsr.B     P137
5164   6000 D7F8      L937:      Bra       L423

                      P137:
5168   2D1F                      Move.L    (A7)+, -(A6)
516A   48E6 70FC                 MoveM.L   D1-D3/A0-A5, -(A6)
516E   6100 FD56                 Bsr       P_mTFSVCBTst
5172   6600 0178                 BNE       L952
5176   4AB1 1022                 Tst.L     $22(A1,D1.W)
517A   6716                      BEQ.B     L940
517C   3001                      Move      D1, D0
517E   4A38 0346                 Tst.B     (FlushOnly)
5182   6606                      BNE.B     L938
5184   4EBA 1556                 Jsr       P_mBTClose
5188   6004                      Bra.B     L939
518A   4EBA 1736      L938:      Jsr       P_mBTFlush
518E   6600 0152      L939:      BNE       L951
5192   7000           L940:      MoveQ.L   #$0, D0
5194   4A6A 0048                 Tst       $48(A2)
5198   6700 0136                 BEQ       L949
519C   0CB1 0000 0010            Cmp.L     #$10, $0(A1,D1.W)
       1000
51A4   6500 012A                 BCS       L949
51A8   08B1 0007 1004            BClr.B    #$7, $4(A1,D1.W)
51AE   6700 00F8                 BEQ       L945
51B2   4A38 0346                 Tst.B     (FlushOnly)
51B6   6634                      BNE.B     L942
51B8   6100 01E2                 Bsr       P_TstMod
51BC   662E                      BNE.B     L942
51BE   2631 100C                 Move.L    $C(A1,D1.W), D3
51C2   0831 0006 1004            BTst.B    #$6, $4(A1,D1.W)
51C8   671A                      BEQ.B     L941
51CA   48E7 C000                 MoveM.L   D0-D1, -(A7)
51CE   2003                      Move.L    D3, D0
51D0   2231 101E                 Move.L    $1E(A1,D1.W), D1
51D4   6100 DA8E                 Bsr       P_mRoundAlloc
51D8   222A 001C                 Move.L    $1C(A2), D1
51DC   C0C1                      MulU      D1, D0
51DE   2600                      Move.L    D0, D3
51E0   4CDF 0003                 MoveM.L   (A7)+, D0-D1
51E4   4EBA 0BB2      L941:      Jsr       P_mTruncateFile
51E8   6600 00C0                 BNE       L946
51EC   2D09           L942:      Move.L    A1, -(A6)
51EE   2031 103A                 Move.L    $3A(A1,D1.W), D0
51F2   41F1 103E                 Lea.L     $3E(A1,D1.W), A0
51F6   7400                      MoveQ.L   #$0, D2
51F8   4EBA 103E                 Jsr       P_mCMGetCN
51FC   2A49                      Move.L    A1, A5
51FE   225E                      Move.L    (A6)+, A1
5200   6600 00A8                 BNE       L946
5204   48E7 00C0                 MoveM.L   A0-A1, -(A7)
5208   41F1 1026                 Lea.L     $26(A1,D1.W), A0
520C   47ED 004A                 Lea.L     $4A(A5), A3
5210   0831 0009 1004            BTst.B    #$9, $4(A1,D1.W)
5216   6704                      BEQ.B     L943
5218   47ED 0056                 Lea.L     $56(A5), A3
521C   224B           L943:      Move.L    A3, A1
521E   700C                      MoveQ.L   #$C, D0
5220   A02E                      _BlockMove
5222   4CDF 0300                 MoveM.L   (A7)+, A0-A1
5226   47ED 0018                 Lea.L     $18(A5), A3
522A   6100 00FA                 Bsr       P138
522E   2B78 020C 0030            Move.L    (Time), $30(A5)
5234   4EBA 1336                 Jsr       P_mCMUpdateCN
5238   6670                      BNE.B     L946
523A   0831 0009 1004            BTst.B    #$9, $4(A1,D1.W)
5240   6766                      BEQ.B     L945
5242   0CB1 0000 0080            Cmp.L     #$80, $8(A1,D1.W)
       1008
524A   655C                      BCS.B     L945
524C   48E6 4040                 MoveM.L   D1/A1, -(A6)
5250   2648                      Move.L    A0, A3
5252   226A 0054                 Move.L    $54(A2), A1
5256   3001                      Move      D1, D0
5258   7200                      MoveQ.L   #$0, D1
525A   7400                      MoveQ.L   #$0, D2
525C   4EBA 2552                 Jsr       P_mGetBlock
5260   6642                      BNE.B     L944
5262   2F08                      Move.L    A0, -(A7)
5264   43E8 0030                 Lea.L     $30(A0), A1
5268   41EB 0006                 Lea.L     $6(A3), A0
526C   7020                      MoveQ.L   #$20, D0
526E   A02E                      _BlockMove
5270   7020                      MoveQ.L   #$20, D0
5272   D3C0                      AddA.L    D0, A1
5274   41ED 0002                 Lea.L     $2(A5), A0
5278   7012                      MoveQ.L   #$12, D0
527A   A02E                      _BlockMove
527C   7012                      MoveQ.L   #$12, D0
527E   D3C0                      AddA.L    D0, A1
5280   41ED 0038                 Lea.L     $38(A5), A0
5284   7010                      MoveQ.L   #$10, D0
5286   A02E                      _BlockMove
5288   7010                      MoveQ.L   #$10, D0
528A   D3C0                      AddA.L    D0, A1
528C   22ED 002C                 Move.L    $2C(A5), (A1)+
5290   22ED 001A                 Move.L    $1A(A5), (A1)+
5294   22ED 0024                 Move.L    $24(A5), (A1)+
5298   205F                      Move.L    (A7)+, A0
529A   226A 0054                 Move.L    $54(A2), A1
529E   7204                      MoveQ.L   #$4, D1
52A0   4EBA 2768                 Jsr       P_mRelBlock
52A4   4CDE 0202      L944:      MoveM.L   (A6)+, D1/A1
52A8   7000           L945:      MoveQ.L   #$0, D0
52AA   48E6 C040      L946:      MoveM.L   D0-D1/A1, -(A6)
52AE   3001                      Move      D1, D0
52B0   7200                      MoveQ.L   #$0, D1
52B2   4A38 0346                 Tst.B     (FlushOnly)
52B6   6602                      BNE.B     L947
52B8   7201                      MoveQ.L   #$1, D1
52BA   226A 0054      L947:      Move.L    $54(A2), A1
52BE   4EBA 2406                 Jsr       P_mFlushCache
52C2   6100 FC02                 Bsr       P_mTFSVCBTst
52C6   6704                      BEQ.B     L948
52C8   6100 F076                 Bsr       P107
52CC   4CDE 0203      L948:      MoveM.L   (A6)+, D0-D1/A1
52D0   4A38 0346      L949:      Tst.B     (FlushOnly)
52D4   660C                      BNE.B     L951
52D6   47F1 1000                 Lea.L     $0(A1,D1.W), A3
52DA   742E                      MoveQ.L   #$2E, D2
52DC   425B           L950:      Clr       (A3)+
52DE   51CA FFFC                 DBF       D2, L950
52E2   4CDE 3F0E      L951:      MoveM.L   (A6)+, D1-D3/A0-A5
52E6   2F1E                      Move.L    (A6)+, -(A7)
52E8   4A40                      Tst       D0
52EA   4E75                      Rts
52EC   08B1 0007 1004 L952:      BClr.B    #$7, $4(A1,D1.W)
52F2   67B4                      BEQ.B     L945
52F4   3631 101C                 Move      $1C(A1,D1.W), D3
52F8   6100 FE22                 Bsr       P134
52FC   66AC                      BNE.B     L946
52FE   7000                      MoveQ.L   #$0, D0
5300   2631 1000                 Move.L    $0(A1,D1.W), D3
5304   B6B5 0012      L953:      Cmp.L     $12(A5,D0.W), D3
5308   670A                      BEQ.B     L954
530A   6100 F07E                 Bsr       P109
530E   65F4                      BCS.B     L953
5310   70D5                      MoveQ.L   #$-2B, D0
5312   6096                      Bra.B     L946
5314   47F5 0016      L954:      Lea.L     $16(A5,D0.W), A3
5318   610C                      Bsr.B     P138
531A   2BB8 020C 002E            Move.L    (Time), $2E(A5,D0.W)
5320   4EBA 26E0                 Jsr       P_mMarkA5Block
5324   6082                      Bra.B     L945

                      P138:
5326   2F0C                      Move.L    A4, -(A7)
5328   49F1 1004                 Lea.L     $4(A1,D1.W), A4
532C   361C                      Move      (A4)+, D3
532E   EF4B                      LsL       #$7, D3
5330   6404                      BCC.B     L955
5332   D6FC 000A                 AddA      #$A, A3
5336   36DC           L955:      Move      (A4)+, (A3)+
5338   26DC                      Move.L    (A4)+, (A3)+
533A   26DC                      Move.L    (A4)+, (A3)+
533C   285F                      Move.L    (A7)+, A4
533E   4E75                      Rts

                      P_tGetEOF:
5340   6100 D568                 Bsr       P56
5344   610C                      Bsr.B     P_RFNCall
5346   6606                      BNE.B     L956
5348   2171 1008 001C            Move.L    $8(A1,D1.W), $1C(A0)
534E   6000 D60E      L956:      Bra       L423

                      P_RFNCall:
5352   2F38 0790                 Move.L    ($790), -(A7)
5356   4E75                      Rts

                      P_tA0E4_mvRFNCall:
5358   2278 034E                 Move.L    (FCBSPtr), A1
535C   7200                      MoveQ.L   #$0, D1
535E   3228 0018                 Move      $18(A0), D1
5362   6116                      Bsr.B     P140
5364   6610                      BNE.B     L957
5366   2431 1000                 Move.L    $0(A1,D1.W), D2
536A   2471 1014                 Move.L    $14(A1,D1.W), A2
536E   21CA 03EE                 Move.L    A2, (ReqstVol)
5372   6100 F746                 Bsr       P122
5376   4A40           L957:      Tst       D0
5378   4E75                      Rts

                      P140:
537A   70CD                      MoveQ.L   #$-33, D0
537C   7400                      MoveQ.L   #$0, D2
537E   3401                      Move      D1, D2
5380   84FC 005E                 DivU      #$5E, D2
5384   4842                      Swap      D2
5386   5542                      SubQ      #$2, D2
5388   660E                      BNE.B     L958
538A   B251                      Cmp       (A1), D1
538C   640A                      BCC.B     L958
538E   70DA                      MoveQ.L   #$-26, D0
5390   4AB1 1000                 Tst.L     $0(A1,D1.W)
5394   6702                      BEQ.B     L958
5396   7000                      MoveQ.L   #$0, D0
5398   4A40           L958:      Tst       D0
539A   4E75                      Rts

                      P_TstMod:
539C   61B4                      Bsr.B     P_RFNCall
539E   660E                      BNE.B     L959
53A0   70C3                      MoveQ.L   #$-3D, D0
53A2   0831 0000 1004            BTst.B    #$0, $4(A1,D1.W)
53A8   6704                      BEQ.B     L959
53AA   6100 E6CA                 Bsr       P87
53AE   4A40           L959:      Tst       D0
53B0   4E75                      Rts

                      P_mGetFCBInfo_hfs:
53B2   6100 D4F6                 Bsr       P56
53B6   614E                      Bsr.B     P142
53B8   6648                      BNE.B     L961
53BA   3141 0018                 Move      D1, $18(A0)
53BE   47F1 1000                 Lea.L     $0(A1,D1.W), A3
53C2   2F08                      Move.L    A0, -(A7)
53C4   43E8 0020                 Lea.L     $20(A0), A1
53C8   204B                      Move.L    A3, A0
53CA   7014                      MoveQ.L   #$14, D0
53CC   A02E                      _BlockMove
53CE   205F                      Move.L    (A7)+, A0
53D0   316A 004E 0034            Move      $4E(A2), $34(A0)
53D6   216B 001E 0036            Move.L    $1E(A3), $36(A0)
53DC   216B 003A 003A            Move.L    $3A(A3), $3A(A0)
53E2   2028 0012                 Move.L    $12(A0), D0
53E6   6710                      BEQ.B     L960
53E8   2240                      Move.L    D0, A1
53EA   2F08                      Move.L    A0, -(A7)
53EC   41EB 003E                 Lea.L     $3E(A3), A0
53F0   7001                      MoveQ.L   #$1, D0
53F2   D010                      Add.B     (A0), D0
53F4   A02E                      _BlockMove
53F6   205F                      Move.L    (A7)+, A0
53F8   21CA 03EE      L960:      Move.L    A2, (ReqstVol)
53FC   220B                      Move.L    A3, D1
53FE   6100 E238                 Bsr       P_CKExtFS
5402   6000 D55A      L961:      Bra       L423

                      P142:
5406   2278 034E                 Move.L    (FCBSPtr), A1
540A   3228 0018                 Move      $18(A0), D1
540E   3028 001C                 Move      $1C(A0), D0
5412   674A                      BEQ.B     L967
5414   7400                      MoveQ.L   #$0, D2
5416   3428 0016                 Move      $16(A0), D2
541A   670E                      BEQ.B     L962
541C   3002                      Move      D2, D0
541E   6100 E230                 Bsr       P_DTRMV1
5422   663E                      BNE.B     L968
5424   240A                      Move.L    A2, D2
5426   3028 001C                 Move      $1C(A0), D0
542A   6100 EBC6      L962:      Bsr       P100
542E   2631 1000      L963:      Move.L    $0(A1,D1.W), D3
5432   6720                      BEQ.B     L966
5434   2471 1014                 Move.L    $14(A1,D1.W), A2
5438   6100 FA8C                 Bsr       P_mTFSVCBTst
543C   6608                      BNE.B     L964
543E   0C83 0000 0010            Cmp.L     #$10, D3
5444   650E                      BCS.B     L966
5446   4A82           L964:      Tst.L     D2
5448   6706                      BEQ.B     L965
544A   B4B1 1014                 Cmp.L     $14(A1,D1.W), D2
544E   6604                      BNE.B     L966
5450   5340           L965:      SubQ      #$1, D0
5452   670A                      BEQ.B     L967
5454   6100 EBA4      L966:      Bsr       P101
5458   65D4                      BCS.B     L963
545A   70DA                      MoveQ.L   #$-26, D0
545C   6004                      Bra.B     L968
545E   6100 FF1A      L967:      Bsr       P140
5462   4A40           L968:      Tst       D0
5464   4E75                      Rts

                      P_hfsUn_LockRange:
5466   6100 D442                 Bsr       P56
546A   6100 FEE6                 Bsr       P_RFNCall
546E   6602                      BNE.B     L969
5470   7000                      MoveQ.L   #$0, D0
5472   6000 D4EA      L969:      Bra       L423

                      P143:
5476   6100 FA4E                 Bsr       P_mTFSVCBTst
547A   660C                      BNE.B     L970
547C   6100 FA3A                 Bsr       P123
5480   6700 013C                 BEQ       P145
5484   6000 0148                 Bra       L987
5488   7000           L970:      MoveQ.L   #$0, D0
548A   6000 0210                 Bra       L997

                      P_tAllocate:
548E   6100 D41A                 Bsr       P56
5492   6100 FF08                 Bsr       P_TstMod
5496   6624                      BNE.B     L972
5498   7C00                      MoveQ.L   #$0, D6
549A   2828 0024                 Move.L    $24(A0), D4
549E   670A                      BEQ.B     L971
54A0   4A6A 002A                 Tst       $2A(A2)
54A4   6704                      BEQ.B     L971
54A6   61CE                      Bsr.B     P143
54A8   6612                      BNE.B     L972
54AA   2146 0028      L971:      Move.L    D6, $28(A0)
54AE   6100 0080                 Bsr       P_AdjEof
54B2   70DE                      MoveQ.L   #$-22, D0
54B4   BCA8 0024                 Cmp.L     $24(A0), D6
54B8   6502                      BCS.B     L972
54BA   7000                      MoveQ.L   #$0, D0
54BC   6000 D4A0      L972:      Bra       L423

                      P_tSetEOF:
54C0   6100 D3E8                 Bsr       P56
54C4   6100 FED6                 Bsr       P_TstMod
54C8   662E                      BNE.B     L976
54CA   2E28 001C                 Move.L    $1C(A0), D7
54CE   2807                      Move.L    D7, D4
54D0   98B1 100C                 Sub.L     $C(A1,D1.W), D4
54D4   6252                      BHI.B     L979
54D6   6524                      BCS.B     L977
54D8   6100 F9DE      L973:      Bsr       P123
54DC   6706                      BEQ.B     L974
54DE   BEB1 1008                 Cmp.L     $8(A1,D1.W), D7
54E2   640E                      BCC.B     L975
54E4   2387 1008      L974:      Move.L    D7, $8(A1,D1.W)
54E8   BEB1 1010                 Cmp.L     $10(A1,D1.W), D7
54EC   6404                      BCC.B     L975
54EE   2387 1010                 Move.L    D7, $10(A1,D1.W)
54F2   6100 003C      L975:      Bsr       P_AdjEof
54F6   7000                      MoveQ.L   #$0, D0
54F8   6000 D464      L976:      Bra       L423
54FC   6100 F9C4      L977:      Bsr       P124
5500   6600 007C                 BNE       L983
5504   2807                      Move.L    D7, D4
5506   2604                      Move.L    D4, D3
5508   50F8 0346                 ST.B      (FlushOnly)
550C   4EBA 088A                 Jsr       P_mTruncateFile
5510   66E6                      BNE.B     L976
5512   48E6 E000      L978:      MoveM.L   D0-D2, -(A6)
5516   3001                      Move      D1, D0
5518   2231 100C                 Move.L    $C(A1,D1.W), D1
551C   74FF                      MoveQ.L   #$-1, D2
551E   4EBA 2574                 Jsr       P_mTrashBlocks
5522   4CDE 0007                 MoveM.L   (A6)+, D0-D2
5526   60B0                      Bra.B     L973
5528   4EBA 0094      L979:      Jsr       P145
552C   66CA                      BNE.B     L976
552E   60A8                      Bra.B     L973

                      P_AdjEof:
5530   2F38 0794                 Move.L    ($794), -(A7)
5534   4E75                      Rts

                      P_tA0E5_mvAdjEof:
5536   48E7 FEFC                 MoveM.L   D0-D6/A0-A5, -(A7)
553A   D2C1                      AddA      D1, A1
553C   2419                      Move.L    (A1)+, D2
553E   08D1 0007                 BSet.B    #$7, (A1)
5542   3011                      Move      (A1), D0
5544   4CD9 0478                 MoveM.L   (A1)+, D3-D6/A2
5548   3C00                      Move      D0, D6
554A   43E9 000E                 Lea.L     $E(A1), A1
554E   4CD9 3800                 MoveM.L   (A1)+, A3-A5
5552   6100 EAAE                 Bsr       P102
5556   6620                      BNE.B     L982
5558   41F1 1004      L980:      Lea.L     $4(A1,D1.W), A0
555C   3018                      Move      (A0)+, D0
555E   BD40                      Eor       D6, D0
5560   EF48                      LsL       #$7, D0
5562   650E                      BCS.B     L981
5564   30C3                      Move      D3, (A0)+
5566   20C4                      Move.L    D4, (A0)+
5568   20C5                      Move.L    D5, (A0)+
556A   41E8 0022                 Lea.L     $22(A0), A0
556E   48E0 001C                 MoveM.L   A3-A5, -(A0)
5572   6100 EA9C      L981:      Bsr       P103
5576   67E0                      BEQ.B     L980
5578   4CDF 3F7F      L982:      MoveM.L   (A7)+, D0-D6/A0-A5
557C   4E75                      Rts
557E   7C00           L983:      MoveQ.L   #$0, D6
5580   3631 1006                 Move      $6(A1,D1.W), D3
5584   242A 001C                 Move.L    $1C(A2), D2
5588   2807                      Move.L    D7, D4
558A   6608                      BNE.B     L985
558C   4271 1006                 Clr       $6(A1,D1.W)
5590   601E                      Bra.B     L986
5592   3605           L984:      Move      D5, D3
5594   DC82           L985:      Add.L     D2, D6
5596   6100 00D6                 Bsr       P147
559A   9882                      Sub.L     D2, D4
559C   62F4                      BHI.B     L984
559E   BCB1 100C                 Cmp.L     $C(A1,D1.W), D6
55A2   6400 FF34                 BCC       L973
55A6   3F05                      Move      D5, -(A7)
55A8   7A01                      MoveQ.L   #$1, D5
55AA   6100 01D2                 Bsr       P149
55AE   361F                      Move      (A7)+, D3
55B0   6100 0204      L986:      Bsr       P150
55B4   2386 100C                 Move.L    D6, $C(A1,D1.W)
55B8   2806                      Move.L    D6, D4
55BA   6000 FF56                 Bra       L978

                      P145:
55BE   6100 F902                 Bsr       P124
55C2   6600 00D6                 BNE       L996
55C6   2D1F                      Move.L    (A7)+, -(A6)
55C8   2D03                      Move.L    D3, -(A6)
55CA   7600                      MoveQ.L   #$0, D3
55CC   6006                      Bra.B     L988
55CE   2D1F           L987:      Move.L    (A7)+, -(A6)
55D0   2D03                      Move.L    D3, -(A6)
55D2   50C3                      ST.B      D3
55D4   4EBA 05A6      L988:      Jsr       P_mExtendFile
55D8   261E                      Move.L    (A6)+, D3
55DA   2F1E                      Move.L    (A6)+, -(A7)
55DC   4A40                      Tst       D0
55DE   4E75                      Rts

                      P_mLg2Phys:
55E0   2F38 06FC                 Move.L    ($6FC), -(A7)
55E4   4E75                      Rts

                      P_tA0BF_mvLg2Phys:
55E6   6100 F8DA                 Bsr       P124
55EA   6604                      BNE.B     L989
55EC   4EFA 072E                 Jmp       P_mMapFBlock
55F0   48E7 6D00      L989:      MoveM.L   D1-D2/D4-D5/D7, -(A7)
55F4   2E2A 001C                 Move.L    $1C(A2), D7
55F8   3631 1006                 Move      $6(A1,D1.W), D3
55FC   D885                      Add.L     D5, D4
55FE   5384                      SubQ      #$1, D4
5600   7209                      MoveQ.L   #$9, D1
5602   7C00                      MoveQ.L   #$0, D6
5604   E2AC                      LsR.L     D1, D4
5606   E2AF                      LsR.L     D1, D7
5608   2405                      Move.L    D5, D2
560A   E2AA                      LsR.L     D1, D2
560C   6008                      Bra.B     L991
560E   615E           L990:      Bsr.B     P147
5610   3605                      Move      D5, D3
5612   9847                      Sub       D7, D4
5614   9447                      Sub       D7, D2
5616   B447           L991:      Cmp       D7, D2
5618   64F4                      BCC.B     L990
561A   3003                      Move      D3, D0
561C   5540                      SubQ      #$2, D0
561E   C0C7                      MulU      D7, D0
5620   D042                      Add       D2, D0
5622   D06A 0024                 Add       $24(A2), D0
5626   2F00                      Move.L    D0, -(A7)
5628   3007           L992:      Move      D7, D0
562A   9042                      Sub       D2, D0
562C   DC40                      Add       D0, D6
562E   9840                      Sub       D0, D4
5630   6B0A                      BMI.B     L993
5632   613A                      Bsr.B     P147
5634   7400                      MoveQ.L   #$0, D2
5636   5243                      AddQ      #$1, D3
5638   BA43                      Cmp       D3, D5
563A   67EC                      BEQ.B     L992
563C   261F           L993:      Move.L    (A7)+, D3
563E   3003                      Move      D3, D0
5640   D046                      Add       D6, D0
5642   382A 0024                 Move      $24(A2), D4
5646   CEEA 001A                 MulU      $1A(A2), D7
564A   DE44                      Add       D4, D7
564C   B047                      Cmp       D7, D0
564E   6214                      BHI.B     L995
5650   B644                      Cmp       D4, D3
5652   6510                      BCS.B     L995
5654   E3A6                      AsL.L     D1, D6
5656   4CDF 00B6                 MoveM.L   (A7)+, D1-D2/D4-D5/D7
565A   BC84                      Cmp.L     D4, D6
565C   6302                      BLS.B     L994
565E   2C04                      Move.L    D4, D6
5660   7000           L994:      MoveQ.L   #$0, D0
5662   4E75                      Rts
5664   4CDF 00B6      L995:      MoveM.L   (A7)+, D1-D2/D4-D5/D7
5668   303C 0010                 Move      #$10, D0
566C   4E75                      Rts

                      P147:
566E   48E7 8020                 MoveM.L   D0/A2, -(A7)
5672   246A 0050                 Move.L    $50(A2), A2
5676   3003                      Move      D3, D0
5678   5540                      SubQ      #$2, D0
567A   C0FC 000C                 MulU      #$C, D0
567E   E898                      ROR.L     #$4, D0
5680   E340                      AsL       #$1, D0
5682   2A32 0000                 Move.L    $0(A2,D0.W), D5
5686   4240                      Clr       D0
5688   E998                      ROL.L     #$4, D0
568A   0640 000C                 Add       #$C, D0
568E   E1BD                      ROL.L     D0, D5
5690   0245 0FFF                 And       #$FFF, D5
5694   4CDF 0401                 MoveM.L   (A7)+, D0/A2
5698   4E75                      Rts
569A   2004           L996:      Move.L    D4, D0
569C   48E7 7DF0      L997:      MoveM.L   D1-D5/D7/A0-A3, -(A7)
56A0   2E2A 001C                 Move.L    $1C(A2), D7
56A4   2C07                      Move.L    D7, D6
56A6   CCEA 002A                 MulU      $2A(A2), D6
56AA   B886                      Cmp.L     D6, D4
56AC   6302                      BLS.B     L998
56AE   2806                      Move.L    D6, D4
56B0   B880           L998:      Cmp.L     D0, D4
56B2   6408                      BCC.B     L1000
56B4   70DE                      MoveQ.L   #$-22, D0
56B6   4CDF 0FBE      L999:      MoveM.L   (A7)+, D1-D5/D7/A0-A3
56BA   4E75                      Rts
56BC   2431 100C      L1000:     Move.L    $C(A1,D1.W), D2
56C0   7C00                      MoveQ.L   #$0, D6
56C2   3631 1006                 Move      $6(A1,D1.W), D3
56C6   6612                      BNE.B     L1002
56C8   6152                      Bsr.B     P148
56CA   3385 1006                 Move      D5, $6(A1,D1.W)
56CE   3605                      Move      D5, D3
56D0   7A01                      MoveQ.L   #$1, D5
56D2   6100 00AA                 Bsr       P149
56D6   6028                      Bra.B     L1005
56D8   3605           L1001:     Move      D5, D3
56DA   6192           L1002:     Bsr.B     P147
56DC   0C45 0001                 Cmp       #$1, D5
56E0   66F6                      BNE.B     L1001
56E2   B66A 001A      L1003:     Cmp       $1A(A2), D3
56E6   6230                      BHI.B     L1006
56E8   5243                      AddQ      #$1, D3
56EA   6182                      Bsr.B     P147
56EC   5343                      SubQ      #$1, D3
56EE   4A45                      Tst       D5
56F0   6626                      BNE.B     L1006
56F2   3A03                      Move      D3, D5
56F4   5245                      AddQ      #$1, D5
56F6   6100 0086      L1004:     Bsr       P149
56FA   3605                      Move      D5, D3
56FC   7A01                      MoveQ.L   #$1, D5
56FE   617E                      Bsr.B     P149
5700   DC87           L1005:     Add.L     D7, D6
5702   D487                      Add.L     D7, D2
5704   536A 002A                 SubQ      #$1, $2A(A2)
5708   B886                      Cmp.L     D6, D4
570A   62D6                      BHI.B     L1003
570C   2382 100C                 Move.L    D2, $C(A1,D1.W)
5710   6100 D60C                 Bsr       P_mMarkVCB
5714   7000                      MoveQ.L   #$0, D0
5716   609E                      Bra.B     L999
5718   6102           L1006:     Bsr.B     P148
571A   60DA                      Bra.B     L1004

                      P148:
571C   48E7 FA50                 MoveM.L   D0-D4/D6/A1/A3, -(A7)
5720   9886                      Sub.L     D6, D4
5722   B8AA 0020                 Cmp.L     $20(A2), D4
5726   6404                      BCC.B     L1007
5728   282A 0020                 Move.L    $20(A2), D4
572C   226A 0050      L1007:     Move.L    $50(A2), A1
5730   366A 001A                 Move      $1A(A2), A3
5734   524B                      AddQ      #$1, A3
5736   7A00                      MoveQ.L   #$0, D5
5738   7002                      MoveQ.L   #$2, D0
573A   7402                      MoveQ.L   #$2, D2
573C   7600                      MoveQ.L   #$0, D3
573E   7C00                      MoveQ.L   #$0, D6
5740   4267                      Clr       -(A7)
5742   1219           L1008:     Move.B    (A1)+, D1
5744   E149                      LsL       #$8, D1
5746   0845 0000                 BChg.B    #$0, D5
574A   6606                      BNE.B     L1009
574C   1211                      Move.B    (A1), D1
574E   E849                      LsR       #$4, D1
5750   6006                      Bra.B     L1010
5752   1219           L1009:     Move.B    (A1)+, D1
5754   0241 0FFF                 And       #$FFF, D1
5758   6612           L1010:     BNE.B     L1012
575A   D687                      Add.L     D7, D3
575C   B686                      Cmp.L     D6, D3
575E   6308                      BLS.B     L1011
5760   2C03                      Move.L    D3, D6
5762   3E82                      Move      D2, (A7)
5764   B684                      Cmp.L     D4, D3
5766   640E                      BCC.B     L1014
5768   5240           L1011:     AddQ      #$1, D0
576A   6006                      Bra.B     L1013
576C   5240           L1012:     AddQ      #$1, D0
576E   3400                      Move      D0, D2
5770   7600                      MoveQ.L   #$0, D3
5772   B04B           L1013:     Cmp       A3, D0
5774   63CC                      BLS.B     L1008
5776   3A1F           L1014:     Move      (A7)+, D5
5778   4CDF 0A5F                 MoveM.L   (A7)+, D0-D4/D6/A1/A3
577C   4E75                      Rts

                      P149:
577E   48E7 8220                 MoveM.L   D0/D6/A2, -(A7)
5782   246A 0050                 Move.L    $50(A2), A2
5786   3003                      Move      D3, D0
5788   5540                      SubQ      #$2, D0
578A   C0FC 000C                 MulU      #$C, D0
578E   E898                      ROR.L     #$4, D0
5790   E340                      AsL       #$1, D0
5792   2C32 0000                 Move.L    $0(A2,D0.W), D6
5796   4840                      Swap      D0
5798   E048                      LsR       #$8, D0
579A   E848                      LsR       #$4, D0
579C   0640 000C                 Add       #$C, D0
57A0   E1BE                      ROL.L     D0, D6
57A2   0246 F000                 And       #$-1000, D6
57A6   8C45                      Or        D5, D6
57A8   E0BE                      ROR.L     D0, D6
57AA   4840                      Swap      D0
57AC   2586 0000                 Move.L    D6, $0(A2,D0.W)
57B0   4CDF 0441                 MoveM.L   (A7)+, D0/D6/A2
57B4   4E75                      Rts

                      P150:
57B6   4A43                      Tst       D3
57B8   671A                      BEQ.B     L1016
57BA   6100 FEB2      L1015:     Bsr       P147
57BE   3F05                      Move      D5, -(A7)
57C0   4245                      Clr       D5
57C2   61BA                      Bsr.B     P149
57C4   526A 002A                 AddQ      #$1, $2A(A2)
57C8   361F                      Move      (A7)+, D3
57CA   0C43 0001                 Cmp       #$1, D3
57CE   66EA                      BNE.B     L1015
57D0   6100 D54C                 Bsr       P_mMarkVCB
57D4   4E75           L1016:     Rts

                      P_mBlkAlloc:
57D6   2F38 077C                 Move.L    ($77C), -(A7)
57DA   4E75                      Rts

                      P_tA0DF_mvBlkAlloc:
57DC   2D1F                      Move.L    (A7)+, -(A6)
57DE   48E6 4FC0                 MoveM.L   D1/D4-D7/A0-A1, -(A6)
57E2   4A6A 002A                 Tst       $2A(A2)
57E6   6700 0144                 BEQ       L1033
57EA   0243 0001                 And       #$1, D3
57EE   4A42                      Tst       D2
57F0   6608                      BNE.B     L1017
57F2   342A 0018                 Move      $18(A2), D2
57F6   08C3 0007                 BSet.B    #$7, D3
57FA   4843           L1017:     Swap      D3
57FC   3602                      Move      D2, D3
57FE   4843                      Swap      D3
5800   0883 000F                 BClr.B    #$F, D3
5804   6100 01FE      L1018:     Bsr       P_ReadBM
5808   4A41                      Tst       D1
580A   6B00 0116                 BMI       L1032
580E   326A 001A                 Move      $1A(A2), A1
5812   B449           L1019:     Cmp       A1, D2
5814   6514                      BCS.B     L1020
5816   E3B8                      ROL.L     D1, D0
5818   2180 6000                 Move.L    D0, $0(A0,D6.W)
581C   4242                      Clr       D2
581E   6100 01E4                 Bsr       P_ReadBM
5822   08C3 000F                 BSet.B    #$F, D3
5826   6600 0104                 BNE       L1033
582A   4A41           L1020:     Tst       D1
582C   6B00 00F4                 BMI       L1032
5830   4A80                      Tst.L     D0
5832   6A06                      BPL.B     L1021
5834   6100 020C                 Bsr       P157
5838   60D8                      Bra.B     L1019
583A   92C2           L1021:     SubA      D2, A1
583C   0803 0000                 BTst.B    #$0, D3
5840   6700 0078                 BEQ       L1027
5844   2D04                      Move.L    D4, -(A6)
5846   48E6 C000                 MoveM.L   D0-D1, -(A6)
584A   2004                      Move.L    D4, D0
584C   322A 001E                 Move      $1E(A2), D1
5850   4EBA D3FE                 Jsr       P_mDivUp
5854   2800                      Move.L    D0, D4
5856   4CDE 0003                 MoveM.L   (A6)+, D0-D1
585A   4247                      Clr       D7
585C   B847           L1022:     Cmp       D7, D4
585E   6348                      BLS.B     L1026
5860   BE49                      Cmp       A1, D7
5862   6712                      BEQ.B     L1023
5864   4A80                      Tst.L     D0
5866   6B0E                      BMI.B     L1023
5868   5247                      AddQ      #$1, D7
586A   6100 01C8                 Bsr       P156
586E   4A41                      Tst       D1
5870   6B00 00B0                 BMI       L1032
5874   60E6                      Bra.B     L1022
5876   281E           L1023:     Move.L    (A6)+, D4
5878   D447                      Add       D7, D2
587A   BE49                      Cmp       A1, D7
587C   650C                      BCS.B     L1024
587E   0803 000F                 BTst.B    #$F, D3
5882   661A                      BNE.B     L1025
5884   08C3 000F                 BSet.B    #$F, D3
5888   4242                      Clr       D2
588A   0803 000F      L1024:     BTst.B    #$F, D3
588E   6700 FF74                 BEQ       L1018
5892   4843                      Swap      D3
5894   B642                      Cmp       D2, D3
5896   6306                      BLS.B     L1025
5898   4843                      Swap      D3
589A   6000 FF68                 Bra       L1018
589E   E3B8           L1025:     ROL.L     D1, D0
58A0   2180 6000                 Move.L    D0, $0(A0,D6.W)
58A4   6000 0086                 Bra       L1033
58A8   281E           L1026:     Move.L    (A6)+, D4
58AA   E3B8                      ROL.L     D1, D0
58AC   2180 6000                 Move.L    D0, $0(A0,D6.W)
58B0   6100 0152                 Bsr       P_ReadBM
58B4   4A41                      Tst       D1
58B6   6B00 006A                 BMI       L1032
58BA   48E6 C000      L1027:     MoveM.L   D0-D1, -(A6)
58BE   2004                      Move.L    D4, D0
58C0   222B 001E                 Move.L    $1E(A3), D1
58C4   4EBA D39E                 Jsr       P_mRoundAlloc
58C8   2800                      Move.L    D0, D4
58CA   4CDE 0003                 MoveM.L   (A6)+, D0-D1
58CE   4287                      Clr.L     D7
58D0   4A44           L1028:     Tst       D4
58D2   672C                      BEQ.B     L1029
58D4   BE49                      Cmp       A1, D7
58D6   6428                      BCC.B     L1029
58D8   4A80                      Tst.L     D0
58DA   6B24                      BMI.B     L1029
58DC   4A6A 002A                 Tst       $2A(A2)
58E0   671E                      BEQ.B     L1029
58E2   536A 002A                 SubQ      #$1, $2A(A2)
58E6   4EBA D436                 Jsr       P_mMarkVCB
58EA   08C0 001F                 BSet.B    #$1F, D0
58EE   5247                      AddQ      #$1, D7
58F0   5344                      SubQ      #$1, D4
58F2   4EBA 2100                 Jsr       P_mMarkBlock
58F6   6100 013C                 Bsr       P156
58FA   4A41                      Tst       D1
58FC   6CD2                      BGE.B     L1028
58FE   6022                      Bra.B     L1032
5900   0803 0007      L1029:     BTst.B    #$7, D3
5904   670E                      BEQ.B     L1031
5906   3802                      Move      D2, D4
5908   B86A 001A                 Cmp       $1A(A2), D4
590C   6502                      BCS.B     L1030
590E   4244                      Clr       D4
5910   3544 0018      L1030:     Move      D4, $18(A2)
5914   E3B8           L1031:     ROL.L     D1, D0
5916   2180 6000                 Move.L    D0, $0(A0,D6.W)
591A   4EBA 20D8                 Jsr       P_mMarkBlock
591E   2607                      Move.L    D7, D3
5920   7000                      MoveQ.L   #$0, D0
5922   4CDE 03F2      L1032:     MoveM.L   (A6)+, D1/D4-D7/A0-A1
5926   2F1E                      Move.L    (A6)+, -(A7)
5928   4A40                      Tst       D0
592A   4E75                      Rts
592C   7600           L1033:     MoveQ.L   #$0, D3
592E   70DE                      MoveQ.L   #$-22, D0
5930   60F0                      Bra.B     L1032

                      P_mBlkDealloc:
5932   2F38 0780                 Move.L    ($780), -(A7)
5936   4E75                      Rts

                      P_tA0E0_mvBlkDealloc:
5938   2D1F                      Move.L    (A7)+, -(A6)
593A   48E6 7E80                 MoveM.L   D1-D6/A0, -(A6)
593E   7000                      MoveQ.L   #$0, D0
5940   4A43                      Tst       D3
5942   672A                      BEQ.B     L1036
5944   6100 00BE                 Bsr       P_ReadBM
5948   4A41           L1034:     Tst       D1
594A   6B22                      BMI.B     L1036
594C   0880 001F                 BClr.B    #$1F, D0
5950   4EBA 20A2                 Jsr       P_mMarkBlock
5954   526A 002A                 AddQ      #$1, $2A(A2)
5958   4EBA D3C4                 Jsr       P_mMarkVCB
595C   5343                      SubQ      #$1, D3
595E   6706                      BEQ.B     L1035
5960   6100 00D2                 Bsr       P156
5964   60E2                      Bra.B     L1034
5966   E3B8           L1035:     ROL.L     D1, D0
5968   2180 6000                 Move.L    D0, $0(A0,D6.W)
596C   7000                      MoveQ.L   #$0, D0
596E   4CDE 017E      L1036:     MoveM.L   (A6)+, D1-D6/A0
5972   2F1E                      Move.L    (A6)+, -(A7)
5974   4A40                      Tst       D0
5976   4E75                      Rts

                      P_mBlkChk:
5978   2D1F                      Move.L    (A7)+, -(A6)
597A   48E6 7F40                 MoveM.L   D1-D7/A1, -(A6)
597E   2248                      Move.L    A0, A1
5980   7600                      MoveQ.L   #$0, D3
5982   7E00                      MoveQ.L   #$0, D7
5984   3431 7000      L1037:     Move      $0(A1,D7.W), D2
5988   7800                      MoveQ.L   #$0, D4
598A   3831 7002                 Move      $2(A1,D7.W), D4
598E   6736                      BEQ.B     L1042
5990   6172                      Bsr.B     P_ReadBM
5992   601C                      Bra.B     L1040
5994   08C0 001F      L1038:     BSet.B    #$1F, D0
5998   6606                      BNE.B     L1039
599A   76FF                      MoveQ.L   #$-1, D3
599C   4EBA 2056                 Jsr       P_mMarkBlock
59A0   5242           L1039:     AddQ      #$1, D2
59A2   E398                      ROL.L     #$1, D0
59A4   5341                      SubQ      #$1, D1
59A6   6E08                      BGT.B     L1040
59A8   4A44                      Tst       D4
59AA   670E                      BEQ.B     L1041
59AC   6100 00AE                 Bsr       P158
59B0   4A41           L1040:     Tst       D1
59B2   6B14                      BMI.B     L1043
59B4   51CC FFDE                 DBF       D4, L1038
59B8   E3B8                      ROL.L     D1, D0
59BA   2180 6000      L1041:     Move.L    D0, $0(A0,D6.W)
59BE   5847                      AddQ      #$4, D7
59C0   0C47 000C                 Cmp       #$C, D7
59C4   65BE                      BCS.B     L1037
59C6   2003           L1042:     Move.L    D3, D0
59C8   4CDE 02FE      L1043:     MoveM.L   (A6)+, D1-D7/A1
59CC   2F1E                      Move.L    (A6)+, -(A7)
59CE   4A80                      Tst.L     D0
59D0   4E75                      Rts

                      P_mUpdateFree:
59D2   2D1F                      Move.L    (A7)+, -(A6)
59D4   48E6 FEC0                 MoveM.L   D0-D6/A0-A1, -(A6)
59D8   7800                      MoveQ.L   #$0, D4
59DA   7400                      MoveQ.L   #$0, D2
59DC   6100 0026                 Bsr       P_ReadBM
59E0   342A 001A                 Move      $1A(A2), D2
59E4   4A41           L1044:     Tst       D1
59E6   6B14                      BMI.B     L1047
59E8   4A80                      Tst.L     D0
59EA   6B02                      BMI.B     L1045
59EC   5244                      AddQ      #$1, D4
59EE   5342           L1045:     SubQ      #$1, D2
59F0   6706                      BEQ.B     L1046
59F2   6100 0040                 Bsr       P156
59F6   60EC                      Bra.B     L1044
59F8   3544 002A      L1046:     Move      D4, $2A(A2)
59FC   4CDE 037F      L1047:     MoveM.L   (A6)+, D0-D6/A0-A1
5A00   2F1E                      Move.L    (A6)+, -(A7)
5A02   4E75                      Rts

                      P_ReadBM:
5A04   2D1F                      Move.L    (A7)+, -(A6)
5A06   3A02                      Move      D2, D5
5A08   E04D                      LsR       #$8, D5
5A0A   E84D                      LsR       #$4, D5
5A0C   3C02                      Move      D2, D6
5A0E   0246 0FE0                 And       #$FE0, D6
5A12   E64E                      LsR       #$3, D6
5A14   3202                      Move      D2, D1
5A16   0241 001F                 And       #$1F, D1
5A1A   6100 0066                 Bsr       P159
5A1E   6704                      BEQ.B     L1048
5A20   72FF                      MoveQ.L   #$-1, D1
5A22   600C                      Bra.B     L1049
5A24   2030 6000      L1048:     Move.L    $0(A0,D6.W), D0
5A28   E3B8                      ROL.L     D1, D0
5A2A   4441                      Neg       D1
5A2C   0641 0020                 Add       #$20, D1
5A30   2F1E           L1049:     Move.L    (A6)+, -(A7)
5A32   4E75                      Rts

                      P156:
5A34   2D1F                      Move.L    (A7)+, -(A6)
5A36   E398                      ROL.L     #$1, D0
5A38   5341                      SubQ      #$1, D1
5A3A   6602                      BNE.B     L1050
5A3C   611E                      Bsr.B     P158
5A3E   2F1E           L1050:     Move.L    (A6)+, -(A7)
5A40   4E75                      Rts

                      P157:
5A42   2D1F                      Move.L    (A7)+, -(A6)
5A44   5242                      AddQ      #$1, D2
5A46   61EC                      Bsr.B     P156
5A48   B0B8 0A06      L1051:     Cmp.L     (MinusOne), D0
5A4C   66F0                      BNE.B     L1050
5A4E   D441                      Add       D1, D2
5A50   B449                      Cmp       A1, D2
5A52   6404                      BCC.B     L1052
5A54   6106                      Bsr.B     P158
5A56   60F0                      Bra.B     L1051
5A58   9441           L1052:     Sub       D1, D2
5A5A   60E2                      Bra.B     L1050

                      P158:
5A5C   2D1F                      Move.L    (A7)+, -(A6)
5A5E   2180 6000                 Move.L    D0, $0(A0,D6.W)
5A62   5846                      AddQ      #$4, D6
5A64   0C46 0200                 Cmp       #$200, D6
5A68   650E                      BCS.B     L1054
5A6A   5245                      AddQ      #$1, D5
5A6C   6100 0014                 Bsr       P159
5A70   6704                      BEQ.B     L1053
5A72   72FF                      MoveQ.L   #$-1, D1
5A74   6008                      Bra.B     L1055
5A76   4246           L1053:     Clr       D6
5A78   2030 6000      L1054:     Move.L    $0(A0,D6.W), D0
5A7C   7220                      MoveQ.L   #$20, D1
5A7E   2F1E           L1055:     Move.L    (A6)+, -(A7)
5A80   4E75                      Rts

                      P159:
5A82   2D1F                      Move.L    (A7)+, -(A6)
5A84   48E6 6060                 MoveM.L   D1-D2/A1-A2, -(A6)
5A88   302A 004E                 Move      $4E(A2), D0
5A8C   7400                      MoveQ.L   #$0, D2
5A8E   342A 0016                 Move      $16(A2), D2
5A92   D445                      Add       D5, D2
5A94   226A 0050                 Move.L    $50(A2), A1
5A98   7208                      MoveQ.L   #$8, D1
5A9A   4EBA 1D14                 Jsr       P_mGetBlock
5A9E   4CDE 0606                 MoveM.L   (A6)+, D1-D2/A1-A2
5AA2   2F1E                      Move.L    (A6)+, -(A7)
5AA4   4A40                      Tst       D0
5AA6   4E75                      Rts

                      P_mDeallocFile:
5AA8   2F38 0764                 Move.L    ($764), -(A7)
5AAC   4E75                      Rts

                      P_tA0D9_mvDeallocFile:
5AAE   2D1F                      Move.L    (A7)+, -(A6)
5AB0   48E6 7FD8                 MoveM.L   D1-D7/A0-A1/A3-A4, -(A6)
5AB4   6100 0410                 Bsr       P163
5AB8   2648                      Move.L    A0, A3
5ABA   2E00                      Move.L    D0, D7
5ABC   4206                      Clr.B     D6
5ABE   4244           L1056:     Clr       D4
5AC0   204B                      Move.L    A3, A0
5AC2   2007                      Move.L    D7, D0
5AC4   4282                      Clr.L     D2
5AC6   4EBA 0770                 Jsr       P_mCMGetCN
5ACA   6600 00A2                 BNE       L1066
5ACE   0C11 0002                 Cmp.B     #$2, (A1)
5AD2   6706                      BEQ.B     L1057
5AD4   7030                      MoveQ.L   #$30, D0
5AD6   6600 0096                 BNE       L1066
5ADA   2A29 0014      L1057:     Move.L    $14(A1), D5
5ADE   41EC 0002                 Lea.L     $2(A4), A0
5AE2   4268 0006                 Clr       $6(A0)
5AE6   4A06                      Tst.B     D6
5AE8   6606                      BNE.B     L1058
5AEA   43E9 004A                 Lea.L     $4A(A1), A1
5AEE   602E                      Bra.B     L1060
5AF0   43E9 0056      L1058:     Lea.L     $56(A1), A1
5AF4   6028                      Bra.B     L1060
5AF6   41EC 0002      L1059:     Lea.L     $2(A4), A0
5AFA   10BC 0007                 Move.B    #$7, (A0)
5AFE   1146 0001                 Move.B    D6, $1(A0)
5B02   2145 0002                 Move.L    D5, $2(A0)
5B06   3144 0006                 Move      D4, $6(A0)
5B0A   302A 00A4                 Move      $A4(A2), D0
5B0E   4282                      Clr.L     D2
5B10   4EBA 1238                 Jsr       P_mBTSearch
5B14   6708                      BEQ.B     L1060
5B16   0C40 0020                 Cmp       #$20, D0
5B1A   6746                      BEQ.B     L1065
5B1C   6050                      Bra.B     L1066
5B1E   41EC 000A      L1060:     Lea.L     $A(A4), A0
5B22   7002                      MoveQ.L   #$2, D0
5B24   20D9           L1061:     Move.L    (A1)+, (A0)+
5B26   51C8 FFFC                 DBF       D0, L1061
5B2A   43EC 000A                 Lea.L     $A(A4), A1
5B2E   4241                      Clr       D1
5B30   3431 1000      L1062:     Move      $0(A1,D1.W), D2
5B34   3631 1002                 Move      $2(A1,D1.W), D3
5B38   6710                      BEQ.B     L1063
5B3A   4EBA FDF6                 Jsr       P_mBlkDealloc
5B3E   662E                      BNE.B     L1066
5B40   D843                      Add       D3, D4
5B42   5841                      AddQ      #$4, D1
5B44   0C41 0008                 Cmp       #$8, D1
5B48   6FE6                      BLE.B     L1062
5B4A   41EC 0002      L1063:     Lea.L     $2(A4), A0
5B4E   4A68 0006                 Tst       $6(A0)
5B52   670A                      BEQ.B     L1064
5B54   302A 00A4                 Move      $A4(A2), D0
5B58   4EBA 0BC2                 Jsr       P_mBTDelete
5B5C   6610                      BNE.B     L1066
5B5E   4A43           L1064:     Tst       D3
5B60   6694                      BNE.B     L1059
5B62   4606           L1065:     Not.B     D6
5B64   6600 FF58                 BNE       L1056
5B68   4240                      Clr       D0
5B6A   6100 0364                 Bsr       P164
5B6E   DCFC 0016      L1066:     AddA      #$16, A6
5B72   4CDE 1BFE                 MoveM.L   (A6)+, D1-D7/A0-A1/A3-A4
5B76   2F1E                      Move.L    (A6)+, -(A7)
5B78   4A40                      Tst       D0
5B7A   4E75                      Rts

                      P_mExtendFile:
5B7C   2F38 0768                 Move.L    ($768), -(A7)
5B80   4E75                      Rts

                      P_tA0DA_mvExtendFile:
5B82   2D1F                      Move.L    (A7)+, -(A6)
5B84   48E6 7DF8                 MoveM.L   D1-D5/D7/A0-A4, -(A6)
5B88   6100 033C                 Bsr       P163
5B8C   08D4 0006                 BSet.B    #$6, (A4)
5B90   4A03                      Tst.B     D3
5B92   6704                      BEQ.B     L1067
5B94   08D4 0007                 BSet.B    #$7, (A4)
5B98   47F1 1000      L1067:     Lea.L     $0(A1,D1.W), A3
5B9C   2D2B 000C                 Move.L    $C(A3), -(A6)
5BA0   202A 001C                 Move.L    $1C(A2), D0
5BA4   D880                      Add.L     D0, D4
5BA6   5384                      SubQ      #$1, D4
5BA8   88C0                      DivU      D0, D4
5BAA   C8C0                      MulU      D0, D4
5BAC   202B 000C                 Move.L    $C(A3), D0
5BB0   D084                      Add.L     D4, D0
5BB2   5380                      SubQ      #$1, D0
5BB4   6100 034E                 Bsr       P_XFSearch
5BB8   660E                      BNE.B     L1068
5BBA   D9AB 000C                 Add.L     D4, $C(A3)
5BBE   08EB 0007 0004            BSet.B    #$7, $4(A3)
5BC4   6000 00FC                 Bra       L1079
5BC8   0C40 0010      L1068:     Cmp       #$10, D0
5BCC   6600 00FA                 BNE       L1080
5BD0   2E02                      Move.L    D2, D7
5BD2   3C03                      Move      D3, D6
5BD4   3006                      Move      D6, D0
5BD6   C0EA 001E                 MulU      $1E(A2), D0
5BDA   90AB 000C                 Sub.L     $C(A3), D0
5BDE   670C                      BEQ.B     L1069
5BE0   D1AB 000C                 Add.L     D0, $C(A3)
5BE4   08EB 0007 0004            BSet.B    #$7, $4(A3)
5BEA   9880                      Sub.L     D0, D4
5BEC   3A31 1000      L1069:     Move      $0(A1,D1.W), D5
5BF0   DA71 1002                 Add       $2(A1,D1.W), D5
5BF4   3405           L1070:     Move      D5, D2
5BF6   0814 0006                 BTst.B    #$6, (A4)
5BFA   56C3                      SNE.B     D3
5BFC   4EBA FBD8                 Jsr       P_mBlkAlloc
5C00   671A                      BEQ.B     L1071
5C02   0C40 FFDE                 Cmp       #$-22, D0
5C06   6600 00C0                 BNE       L1080
5C0A   0894 0006                 BClr.B    #$6, (A4)
5C0E   6700 00B8                 BEQ       L1080
5C12   0814 0007                 BTst.B    #$7, (A4)
5C16   6600 00B0                 BNE       L1080
5C1A   60D8                      Bra.B     L1070
5C1C   BA42           L1071:     Cmp       D2, D5
5C1E   6606                      BNE.B     L1072
5C20   D771 1002                 Add       D3, $2(A1,D1.W)
5C24   6016                      Bra.B     L1074
5C26   4A71 1002      L1072:     Tst       $2(A1,D1.W)
5C2A   6708                      BEQ.B     L1073
5C2C   5841                      AddQ      #$4, D1
5C2E   0C41 0008                 Cmp       #$8, D1
5C32   6E16                      BGT.B     L1075
5C34   3382 1000      L1073:     Move      D2, $0(A1,D1.W)
5C38   3383 1002                 Move      D3, $2(A1,D1.W)
5C3C   2407           L1074:     Move.L    D7, D2
5C3E   6100 03C6                 Bsr       P167
5C42   6600 0084                 BNE       L1080
5C46   2E02                      Move.L    D2, D7
5C48   605E                      Bra.B     L1078
5C4A   2A13           L1075:     Move.L    (A3), D5
5C4C   0C85 0000 0003            Cmp.L     #$3, D5
5C52   6604                      BNE.B     L1076
5C54   7011                      MoveQ.L   #$11, D0
5C56   6070                      Bra.B     L1080
5C58   41EC 0002      L1076:     Lea.L     $2(A4), A0
5C5C   43EC 000A                 Lea.L     $A(A4), A1
5C60   10BC 0007                 Move.B    #$7, (A0)
5C64   4228 0001                 Clr.B     $1(A0)
5C68   082B 0001 0004            BTst.B    #$1, $4(A3)
5C6E   56E8 0001                 SNE.B     $1(A0)
5C72   2145 0002                 Move.L    D5, $2(A0)
5C76   3146 0006                 Move      D6, $6(A0)
5C7A   303C 0005                 Move      #$5, D0
5C7E   4259           L1077:     Clr       (A1)+
5C80   51C8 FFFC                 DBF       D0, L1077
5C84   43EC 000A                 Lea.L     $A(A4), A1
5C88   4241                      Clr       D1
5C8A   3382 1000                 Move      D2, $0(A1,D1.W)
5C8E   3383 1002                 Move      D3, $2(A1,D1.W)
5C92   2D01                      Move.L    D1, -(A6)
5C94   323C 000C                 Move      #$C, D1
5C98   302A 00A4                 Move      $A4(A2), D0
5C9C   4EBA 0D4C                 Jsr       P_mBTInsert
5CA0   221E                      Move.L    (A6)+, D1
5CA2   4A40                      Tst       D0
5CA4   6622                      BNE.B     L1080
5CA6   2E02                      Move.L    D2, D7
5CA8   DC43           L1078:     Add       D3, D6
5CAA   C6EA 001E                 MulU      $1E(A2), D3
5CAE   D7AB 000C                 Add.L     D3, $C(A3)
5CB2   08EB 0007 0004            BSet.B    #$7, $4(A3)
5CB8   9883                      Sub.L     D3, D4
5CBA   6E00 FF30                 BGT       L1069
5CBE   D9AB 000C                 Add.L     D4, $C(A3)
5CC2   4240           L1079:     Clr       D0
5CC4   6100 020A                 Bsr       P164
5CC8   2C2B 000C      L1080:     Move.L    $C(A3), D6
5CCC   221E                      Move.L    (A6)+, D1
5CCE   9C81                      Sub.L     D1, D6
5CD0   DCFC 0016                 AddA      #$16, A6
5CD4   4CDE 1FBE                 MoveM.L   (A6)+, D1-D5/D7/A0-A4
5CD8   2F1E                      Move.L    (A6)+, -(A7)
5CDA   4A40                      Tst       D0
5CDC   4E75                      Rts

                      P_mFXMKeyCmp:
5CDE   48E7 00C0                 MoveM.L   A0-A1, -(A7)
5CE2   2028 0002                 Move.L    $2(A0), D0
5CE6   B0A9 0002                 Cmp.L     $2(A1), D0
5CEA   6224                      BHI.B     L1082
5CEC   651C                      BCS.B     L1081
5CEE   1028 0001                 Move.B    $1(A0), D0
5CF2   B029 0001                 Cmp.B     $1(A1), D0
5CF6   6218                      BHI.B     L1082
5CF8   6510                      BCS.B     L1081
5CFA   3028 0006                 Move      $6(A0), D0
5CFE   B069 0006                 Cmp       $6(A1), D0
5D02   620C                      BHI.B     L1082
5D04   6504                      BCS.B     L1081
5D06   4240                      Clr       D0
5D08   600A                      Bra.B     L1083
5D0A   303C FFFF      L1081:     Move      #$-1, D0
5D0E   6004                      Bra.B     L1083
5D10   303C 0001      L1082:     Move      #$1, D0
5D14   4CDF 0300      L1083:     MoveM.L   (A7)+, A0-A1
5D18   4A40                      Tst       D0
5D1A   4E75                      Rts
                      P_mMapFBlock:
5D1C   2D1F                      Move.L    (A7)+, -(A6)
5D1E   48E6 6DD8                 MoveM.L   D1-D2/D4-D5/D7/A0-A1/A3-A4, -(A6)
5D22   6100 01A2                 Bsr       P163
5D26   47F1 1000                 Lea.L     $0(A1,D1.W), A3
5D2A   2005                      Move.L    D5, D0
5D2C   6100 01D6                 Bsr       P_XFSearch
5D30   6658                      BNE.B     L1087
5D32   43F1 1000                 Lea.L     $0(A1,D1.W), A1
5D36   3203                      Move      D3, D1
5D38   9269 0002                 Sub       $2(A1), D1
5D3C   3403                      Move      D3, D2
5D3E   C4EA 001E                 MulU      $1E(A2), D2
5D42   202B 000C                 Move.L    $C(A3), D0
5D46   B480                      Cmp.L     D0, D2
5D48   6F02                      BLE.B     L1085
5D4A   2400                      Move.L    D0, D2
5D4C   84EA 001E      L1085:     DivU      $1E(A2), D2
5D50   2C2A 001C                 Move.L    $1C(A2), D6
5D54   8CFC 0200                 DivU      #$200, D6
5D58   7E00                      MoveQ.L   #$0, D7
5D5A   3E2A 0024                 Move      $24(A2), D7
5D5E   2605                      Move.L    D5, D3
5D60   86EA 001E                 DivU      $1E(A2), D3
5D64   4843                      Swap      D3
5D66   7000                      MoveQ.L   #$0, D0
5D68   3003                      Move      D3, D0
5D6A   E088                      LsR.L     #$8, D0
5D6C   E288                      LsR.L     #$1, D0
5D6E   4843                      Swap      D3
5D70   9641                      Sub       D1, D3
5D72   D651                      Add       (A1), D3
5D74   C6C6                      MulU      D6, D3
5D76   D640                      Add       D0, D3
5D78   D687                      Add.L     D7, D3
5D7A   3C02                      Move      D2, D6
5D7C   CCEA 001E                 MulU      $1E(A2), D6
5D80   9C85                      Sub.L     D5, D6
5D82   BC84                      Cmp.L     D4, D6
5D84   6502                      BCS.B     L1086
5D86   2C04                      Move.L    D4, D6
5D88   7000           L1086:     MoveQ.L   #$0, D0
5D8A   DCFC 0016      L1087:     AddA      #$16, A6
5D8E   4CDE 1BB6                 MoveM.L   (A6)+, D1-D2/D4-D5/D7/A0-A1/A3-A4
5D92   2F1E                      Move.L    (A6)+, -(A7)
5D94   4A40                      Tst       D0
5D96   4E75                      Rts

                      P_mTruncateFile:
5D98   2F38 076C                 Move.L    ($76C), -(A7)
5D9C   4E75                      Rts

                      P_tA0DB_mvTruncateFile:
5D9E   2D1F                      Move.L    (A7)+, -(A6)
5DA0   48E6 7FF8                 MoveM.L   D1-D7/A0-A4, -(A6)
5DA4   6100 0120                 Bsr       P163
5DA8   47F1 1000                 Lea.L     $0(A1,D1.W), A3
5DAC   082B 0001 0004            BTst.B    #$1, $4(A3)
5DB2   56C6                      SNE.B     D6
5DB4   2A03                      Move.L    D3, D5
5DB6   202A 001C                 Move.L    $1C(A2), D0
5DBA   DA80                      Add.L     D0, D5
5DBC   5385                      SubQ      #$1, D5
5DBE   8AC0                      DivU      D0, D5
5DC0   CAC0                      MulU      D0, D5
5DC2   2005                      Move.L    D5, D0
5DC4   5380                      SubQ      #$1, D0
5DC6   6C18                      BGE.B     L1088
5DC8   2745 000C                 Move.L    D5, $C(A3)
5DCC   08EB 0007 0004            BSet.B    #$7, $4(A3)
5DD2   91C8                      SubA.L    A0, A0
5DD4   7E00                      MoveQ.L   #$0, D7
5DD6   43EB 0026                 Lea.L     $26(A3), A1
5DDA   4244                      Clr       D4
5DDC   6000 0096                 Bra       L1094
5DE0   6100 0122      L1088:     Bsr       P_XFSearch
5DE4   6600 00D2                 BNE       L1101
5DE8   2E02                      Move.L    D2, D7
5DEA   3803                      Move      D3, D4
5DEC   2745 000C                 Move.L    D5, $C(A3)
5DF0   08EB 0007 0004            BSet.B    #$7, $4(A3)
5DF6   4A38 0346                 Tst.B     (FlushOnly)
5DFA   6708                      BEQ.B     L1089
5DFC   3631 1002                 Move      $2(A1,D1.W), D3
5E00   6000 008A                 Bra       L1096
5E04   2005           L1089:     Move.L    D5, D0
5E06   5380                      SubQ      #$1, D0
5E08   80EA 001E                 DivU      $1E(A2), D0
5E0C   9640                      Sub       D0, D3
5E0E   5343                      SubQ      #$1, D3
5E10   6712                      BEQ.B     L1090
5E12   3431 1000                 Move      $0(A1,D1.W), D2
5E16   D471 1002                 Add       $2(A1,D1.W), D2
5E1A   9443                      Sub       D3, D2
5E1C   4EBA FB14                 Jsr       P_mBlkDealloc
5E20   6600 0096                 BNE       L1101
5E24   3003           L1090:     Move      D3, D0
5E26   3631 1002                 Move      $2(A1,D1.W), D3
5E2A   9171 1002                 Sub       D0, $2(A1,D1.W)
5E2E   665C                      BNE.B     L1096
5E30   4271 1000                 Clr       $0(A1,D1.W)
5E34   6056                      Bra.B     L1096
5E36   41EC 0002      L1091:     Lea.L     $2(A4), A0
5E3A   10BC 0007                 Move.B    #$7, (A0)
5E3E   1146 0001                 Move.B    D6, $1(A0)
5E42   2153 0002                 Move.L    (A3), $2(A0)
5E46   3144 0006                 Move      D4, $6(A0)
5E4A   302A 00A4                 Move      $A4(A2), D0
5E4E   4282                      Clr.L     D2
5E50   4EBA 0EF8                 Jsr       P_mBTSearch
5E54   6708                      BEQ.B     L1092
5E56   0C40 0020                 Cmp       #$20, D0
5E5A   6758                      BEQ.B     L1100
5E5C   605A                      Bra.B     L1101
5E5E   2E02           L1092:     Move.L    D2, D7
5E60   41EC 000A                 Lea.L     $A(A4), A0
5E64   7002                      MoveQ.L   #$2, D0
5E66   20D9           L1093:     Move.L    (A1)+, (A0)+
5E68   51C8 FFFC                 DBF       D0, L1093
5E6C   41EC 0002                 Lea.L     $2(A4), A0
5E70   43EC 000A                 Lea.L     $A(A4), A1
5E74   4241           L1094:     Clr       D1
5E76   3431 1000      L1095:     Move      $0(A1,D1.W), D2
5E7A   3631 1002                 Move      $2(A1,D1.W), D3
5E7E   6714                      BEQ.B     L1097
5E80   4EBA FAB0                 Jsr       P_mBlkDealloc
5E84   6632                      BNE.B     L1101
5E86   42B1 1000                 Clr.L     $0(A1,D1.W)
5E8A   D843                      Add       D3, D4
5E8C   5841           L1096:     AddQ      #$4, D1
5E8E   0C41 0008                 Cmp       #$8, D1
5E92   6FE2                      BLE.B     L1095
5E94   4A69 0002      L1097:     Tst       $2(A1)
5E98   6708                      BEQ.B     L1098
5E9A   2407                      Move.L    D7, D2
5E9C   6100 0168                 Bsr       P167
5EA0   600E                      Bra.B     L1099
5EA2   2008           L1098:     Move.L    A0, D0
5EA4   670A                      BEQ.B     L1099
5EA6   302A 00A4                 Move      $A4(A2), D0
5EAA   4EBA 0870                 Jsr       P_mBTDelete
5EAE   6608                      BNE.B     L1101
5EB0   4A43           L1099:     Tst       D3
5EB2   6682                      BNE.B     L1091
5EB4   4240           L1100:     Clr       D0
5EB6   6118                      Bsr.B     P164
5EB8   DCFC 0016      L1101:     AddA      #$16, A6
5EBC   4CDE 1FFE                 MoveM.L   (A6)+, D1-D7/A0-A4
5EC0   2F1E                      Move.L    (A6)+, -(A7)
5EC2   4A40                      Tst       D0
5EC4   4E75                      Rts

                      P163:
5EC6   9CFC 0016                 SubA      #$16, A6
5ECA   284E                      Move.L    A6, A4
5ECC   4214                      Clr.B     (A4)
5ECE   4E75                      Rts

                      P164:
5ED0   2D1F                      Move.L    (A7)+, -(A6)
5ED2   48E6 4040                 MoveM.L   D1/A1, -(A6)
5ED6   322A 00A4                 Move      $A4(A2), D1
5EDA   3001                      Move      D1, D0
5EDC   4EBA 09E4                 Jsr       P_mBTFlush
5EE0   6618                      BNE.B     L1103
5EE2   2278 034E                 Move.L    (FCBSPtr), A1
5EE6   0831 0007 1004            BTst.B    #$7, $4(A1,D1.W)
5EEC   670A                      BEQ.B     L1102
5EEE   4EBA CE2E                 Jsr       P_mMarkVCB
5EF2   4EBA CE3A                 Jsr       P_mFlushMDB
5EF6   6602                      BNE.B     L1103
5EF8   4240           L1102:     Clr       D0
5EFA   4CDE 0202      L1103:     MoveM.L   (A6)+, D1/A1
5EFE   2F1E                      Move.L    (A6)+, -(A7)
5F00   4A40                      Tst       D0
5F02   4E75                      Rts

                      P_XFSearch:
5F04   2D1F                      Move.L    (A7)+, -(A6)
5F06   48E6 0E00                 MoveM.L   D4-D6, -(A6)
5F0A   2800                      Move.L    D0, D4
5F0C   88EA 001E                 DivU      $1E(A2), D4
5F10   2A13                      Move.L    (A3), D5
5F12   91C8                      SubA.L    A0, A0
5F14   7400                      MoveQ.L   #$0, D2
5F16   43EB 0026                 Lea.L     $26(A3), A1
5F1A   3004                      Move      D4, D0
5F1C   4243                      Clr       D3
5F1E   6100 00BA                 Bsr       P166
5F22   6700 00AA                 BEQ       L1109
5F26   0C41 0008                 Cmp       #$8, D1
5F2A   6D00 00A4                 BLT       L1110
5F2E   4A71 1002                 Tst       $2(A1,D1.W)
5F32   6700 009C                 BEQ       L1110
5F36   0C85 0000 0003            Cmp.L     #$3, D5
5F3C   6700 0092                 BEQ       L1110
5F40   41EC 0002                 Lea.L     $2(A4), A0
5F44   10BC 0007                 Move.B    #$7, (A0)
5F48   082B 0001 0004            BTst.B    #$1, $4(A3)
5F4E   56C6                      SNE.B     D6
5F50   1146 0001                 Move.B    D6, $1(A0)
5F54   2145 0002                 Move.L    D5, $2(A0)
5F58   3144 0006                 Move      D4, $6(A0)
5F5C   302A 00A4                 Move      $A4(A2), D0
5F60   4282                      Clr.L     D2
5F62   4EBA 0DE6                 Jsr       P_mBTSearch
5F66   6736                      BEQ.B     L1106
5F68   0C40 0020                 Cmp       #$20, D0
5F6C   6662                      BNE.B     L1110
5F6E   302A 00A4                 Move      $A4(A2), D0
5F72   72FF                      MoveQ.L   #$-1, D1
5F74   4EBA 09B2                 Jsr       P_mBTGetRecord
5F78   6708                      BEQ.B     L1104
5F7A   0C40 0020                 Cmp       #$20, D0
5F7E   670E                      BEQ.B     L1105
5F80   604E                      Bra.B     L1110
5F82   BAA8 0002      L1104:     Cmp.L     $2(A0), D5
5F86   6606                      BNE.B     L1105
5F88   BC28 0001                 Cmp.B     $1(A0), D6
5F8C   6710                      BEQ.B     L1106
5F8E   91C8           L1105:     SubA.L    A0, A0
5F90   7400                      MoveQ.L   #$0, D2
5F92   43EB 0026                 Lea.L     $26(A3), A1
5F96   323C 0008                 Move      #$8, D1
5F9A   7010                      MoveQ.L   #$10, D0
5F9C   6032                      Bra.B     L1110
5F9E   2F09           L1106:     Move.L    A1, -(A7)
5FA0   43EC 0002                 Lea.L     $2(A4), A1
5FA4   7001                      MoveQ.L   #$1, D0
5FA6   22D8           L1107:     Move.L    (A0)+, (A1)+
5FA8   51C8 FFFC                 DBF       D0, L1107
5FAC   205F                      Move.L    (A7)+, A0
5FAE   43EC 000A                 Lea.L     $A(A4), A1
5FB2   7002                      MoveQ.L   #$2, D0
5FB4   22D8           L1108:     Move.L    (A0)+, (A1)+
5FB6   51C8 FFFC                 DBF       D0, L1108
5FBA   41EC 0002                 Lea.L     $2(A4), A0
5FBE   43EC 000A                 Lea.L     $A(A4), A1
5FC2   3628 0006                 Move      $6(A0), D3
5FC6   3004                      Move      D4, D0
5FC8   6100 0010                 Bsr       P166
5FCC   6602                      BNE.B     L1110
5FCE   4240           L1109:     Clr       D0
5FD0   4CDE 0070      L1110:     MoveM.L   (A6)+, D4-D6
5FD4   2F1E                      Move.L    (A6)+, -(A7)
5FD6   4A40                      Tst       D0
5FD8   4E75                      Rts

                      P166:
5FDA   2F02                      Move.L    D2, -(A7)
5FDC   3400                      Move      D0, D2
5FDE   4241                      Clr       D1
5FE0   3031 1002      L1111:     Move      $2(A1,D1.W), D0
5FE4   670E                      BEQ.B     L1112
5FE6   D640                      Add       D0, D3
5FE8   B642                      Cmp       D2, D3
5FEA   6212                      BHI.B     L1114
5FEC   5841                      AddQ      #$4, D1
5FEE   0C41 0008                 Cmp       #$8, D1
5FF2   6FEC                      BLE.B     L1111
5FF4   5941           L1112:     SubQ      #$4, D1
5FF6   6C02                      BGE.B     L1113
5FF8   4241                      Clr       D1
5FFA   7010           L1113:     MoveQ.L   #$10, D0
5FFC   6002                      Bra.B     L1115
5FFE   4240           L1114:     Clr       D0
6000   241F           L1115:     Move.L    (A7)+, D2
6002   4A40                      Tst       D0
6004   4E75                      Rts

                      P167:
6006   2D1F                      Move.L    (A7)+, -(A6)
6008   48E6 40C0                 MoveM.L   D1/A0-A1, -(A6)
600C   2008                      Move.L    A0, D0
600E   6608                      BNE.B     L1116
6010   08EB 0007 0004            BSet.B    #$7, $4(A3)
6016   6020                      Bra.B     L1118
6018   302A 00A4      L1116:     Move      $A4(A2), D0
601C   4EBA 0D2C                 Jsr       P_mBTSearch
6020   6618                      BNE.B     L1119
6022   41EC 000A                 Lea.L     $A(A4), A0
6026   7002                      MoveQ.L   #$2, D0
6028   22D8           L1117:     Move.L    (A0)+, (A1)+
602A   51C8 FFFC                 DBF       D0, L1117
602E   302A 00A4                 Move      $A4(A2), D0
6032   4EBA 0DA2                 Jsr       P_mBTUpdate
6036   6602                      BNE.B     L1119
6038   4240           L1118:     Clr       D0
603A   4CDE 0302      L1119:     MoveM.L   (A6)+, D1/A0-A1
603E   2F1E                      Move.L    (A6)+, -(A7)
6040   4A40                      Tst       D0
6042   4E75                      Rts

                      P_mCMCreateCN:
6044   2D1F                      Move.L    (A7)+, -(A6)
6046   48E6 1FF8                 MoveM.L   D3-D7/A0-A4, -(A6)
604A   6100 0554                 Bsr       P_CMSetUp
604E   42AA 00AC                 Clr.L     $AC(A2)
6052   2A01                      Move.L    D1, D5
6054   2600                      Move.L    D0, D3
6056   2648                      Move.L    A0, A3
6058   91C8                      SubA.L    A0, A0
605A   7400                      MoveQ.L   #$0, D2
605C   4EBA 063A                 Jsr       P_mLocCRec
6060   6600 011A                 BNE       L1126
6064   2003                      Move.L    D3, D0
6066   204B                      Move.L    A3, A0
6068   43D4                      Lea.L     (A4), A1
606A   4EBA 056C                 Jsr       P_mBuildKey
606E   43EC 0026                 Lea.L     $26(A4), A1
6072   2049                      Move.L    A1, A0
6074   303C 0032                 Move      #$32, D0
6078   4258           L1120:     Clr       (A0)+
607A   51C8 FFFC                 DBF       D0, L1120
607E   1285                      Move.B    D5, (A1)
6080   2438 020C                 Move.L    (Time), D2
6084   0C05 0001                 Cmp.B     #$1, D5
6088   6618                      BNE.B     L1121
608A   2C2A 0026                 Move.L    $26(A2), D6
608E   2346 0006                 Move.L    D6, $6(A1)
6092   52AA 0026                 AddQ      #$1, $26(A2)
6096   2342 000A                 Move.L    D2, $A(A1)
609A   2342 000E                 Move.L    D2, $E(A1)
609E   7246                      MoveQ.L   #$46, D1
60A0   601C                      Bra.B     L1122
60A2   2342 002C      L1121:     Move.L    D2, $2C(A1)
60A6   2342 0030                 Move.L    D2, $30(A1)
60AA   236A 0026 0014            Move.L    $26(A2), $14(A1)
60B0   52AA 0026                 AddQ      #$1, $26(A2)
60B4   4845                      Swap      D5
60B6   1345 0003                 Move.B    D5, $3(A1)
60BA   4845                      Swap      D5
60BC   7266                      MoveQ.L   #$66, D1
60BE   302A 00A6      L1122:     Move      $A6(A2), D0
60C2   41D4                      Lea.L     (A4), A0
60C4   4EBA 0924                 Jsr       P_mBTInsert
60C8   670E                      BEQ.B     L1123
60CA   0C40 0021                 Cmp       #$21, D0
60CE   6600 00AC                 BNE       L1126
60D2   7031                      MoveQ.L   #$31, D0
60D4   6000 00A6                 Bra       L1126
60D8   2E02           L1123:     Move.L    D2, D7
60DA   0C05 0001                 Cmp.B     #$1, D5
60DE   6664                      BNE.B     L1125
60E0   2006                      Move.L    D6, D0
60E2   91C8                      SubA.L    A0, A0
60E4   43D4                      Lea.L     (A4), A1
60E6   4EBA 04F0                 Jsr       P_mBuildKey
60EA   43EC 0026                 Lea.L     $26(A4), A1
60EE   303C 0016                 Move      #$16, D0
60F2   4259           L1124:     Clr       (A1)+
60F4   51C8 FFFC                 DBF       D0, L1124
60F8   43EC 0026                 Lea.L     $26(A4), A1
60FC   12BC 0003                 Move.B    #$3, (A1)
6100   2343 000A                 Move.L    D3, $A(A1)
6104   204B                      Move.L    A3, A0
6106   43E9 000E                 Lea.L     $E(A1), A1
610A   4EBA 05B6                 Jsr       P_mUpdCName
610E   302A 00A6                 Move      $A6(A2), D0
6112   323C 002E                 Move      #$2E, D1
6116   41D4                      Lea.L     (A4), A0
6118   43EC 0026                 Lea.L     $26(A4), A1
611C   4EBA 08CC                 Jsr       P_mBTInsert
6120   6722                      BEQ.B     L1125
6122   2D00                      Move.L    D0, -(A6)
6124   2003                      Move.L    D3, D0
6126   204B                      Move.L    A3, A0
6128   43D4                      Lea.L     (A4), A1
612A   4EBA 04AC                 Jsr       P_mBuildKey
612E   2049                      Move.L    A1, A0
6130   302A 00A6                 Move      $A6(A2), D0
6134   4EBA 05E6                 Jsr       P_mBTDelete
6138   201E                      Move.L    (A6)+, D0
613A   0C40 0021                 Cmp       #$21, D0
613E   663C                      BNE.B     L1126
6140   7031                      MoveQ.L   #$31, D0
6142   6038                      Bra.B     L1126
6144   2003           L1125:     Move.L    D3, D0
6146   91C8                      SubA.L    A0, A0
6148   7400                      MoveQ.L   #$0, D2
614A   4EBA 052C                 Jsr       P_mLocCNode
614E   662C                      BNE.B     L1126
6150   5269 0004                 AddQ      #$1, $4(A1)
6154   2378 020C 000E            Move.L    (Time), $E(A1)
615A   302A 00A6                 Move      $A6(A2), D0
615E   4EBA 0C76                 Jsr       P_mBTUpdate
6162   6618                      BNE.B     L1126
6164   1005                      Move.B    D5, D0
6166   2203                      Move.L    D3, D1
6168   7401                      MoveQ.L   #$1, D2
616A   6100 0442                 Bsr       P176
616E   4240                      Clr       D0
6170   2206                      Move.L    D6, D1
6172   2407                      Move.L    D7, D2
6174   4EBA CBAA                 Jsr       P_mMarkVCBTime
6178   4EBA 048C                 Jsr       P_mCMFlush
617C   DCFC 008C      L1126:     AddA      #$8C, A6
6180   4CDE 1FF8                 MoveM.L   (A6)+, D3-D7/A0-A4
6184   2F1E                      Move.L    (A6)+, -(A7)
6186   4A40                      Tst       D0
6188   4E75                      Rts

                      P_mCMDeleteCN:
618A   2D1F                      Move.L    (A7)+, -(A6)
618C   48E6 7ED8                 MoveM.L   D1-D6/A0-A1/A3-A4, -(A6)
6190   6100 040E                 Bsr       P_CMSetUp
6194   42AA 00AC                 Clr.L     $AC(A2)
6198   2600                      Move.L    D0, D3
619A   2648                      Move.L    A0, A3
619C   7400                      MoveQ.L   #$0, D2
619E   4EBA 04D8                 Jsr       P_mLocCNode
61A2   6600 0086                 BNE       L1130
61A6   1811                      Move.B    (A1), D4
61A8   2C28 0002                 Move.L    $2(A0), D6
61AC   0C04 0001                 Cmp.B     #$1, D4
61B0   661C                      BNE.B     L1128
61B2   2A29 0006                 Move.L    $6(A1), D5
61B6   0C85 0000 0002            Cmp.L     #$2, D5
61BC   6606                      BNE.B     L1127
61BE   7033                      MoveQ.L   #$33, D0
61C0   6000 0068                 Bra       L1130
61C4   4A69 0004      L1127:     Tst       $4(A1)
61C8   6704                      BEQ.B     L1128
61CA   7032                      MoveQ.L   #$32, D0
61CC   605C                      Bra.B     L1130
61CE   41D4           L1128:     Lea.L     (A4), A0
61D0   302A 00A6                 Move      $A6(A2), D0
61D4   4EBA 0546                 Jsr       P_mBTDelete
61D8   6650                      BNE.B     L1130
61DA   0C04 0001                 Cmp.B     #$1, D4
61DE   6616                      BNE.B     L1129
61E0   91C8                      SubA.L    A0, A0
61E2   2005                      Move.L    D5, D0
61E4   43D4                      Lea.L     (A4), A1
61E6   4EBA 03F0                 Jsr       P_mBuildKey
61EA   41D4                      Lea.L     (A4), A0
61EC   302A 00A6                 Move      $A6(A2), D0
61F0   4EBA 052A                 Jsr       P_mBTDelete
61F4   6634                      BNE.B     L1130
61F6   2006           L1129:     Move.L    D6, D0
61F8   91C8                      SubA.L    A0, A0
61FA   7400                      MoveQ.L   #$0, D2
61FC   4EBA 047A                 Jsr       P_mLocCNode
6200   6628                      BNE.B     L1130
6202   5369 0004                 SubQ      #$1, $4(A1)
6206   2378 020C 000E            Move.L    (Time), $E(A1)
620C   302A 00A6                 Move      $A6(A2), D0
6210   4EBA 0BC4                 Jsr       P_mBTUpdate
6214   6614                      BNE.B     L1130
6216   1004                      Move.B    D4, D0
6218   2206                      Move.L    D6, D1
621A   74FF                      MoveQ.L   #$-1, D2
621C   6100 0390                 Bsr       P176
6220   4240                      Clr       D0
6222   4EBA CAFC                 Jsr       P_mMarkVCBTime
6226   4EBA 03DE                 Jsr       P_mCMFlush
622A   DCFC 008C      L1130:     AddA      #$8C, A6
622E   4CDE 1B7E                 MoveM.L   (A6)+, D1-D6/A0-A1/A3-A4
6232   2F1E                      Move.L    (A6)+, -(A7)
6234   4A40                      Tst       D0
6236   4E75                      Rts

                      P_mCMGetCN:
6238   2D1F                      Move.L    (A7)+, -(A6)
623A   48E6 5018                 MoveM.L   D1/D3/A3-A4, -(A6)
623E   6100 0360                 Bsr       P_CMSetUp
6242   42AA 00AC                 Clr.L     $AC(A2)
6246   4EBA 0430                 Jsr       P_mLocCNode
624A   DCFC 008C                 AddA      #$8C, A6
624E   4CDE 180A                 MoveM.L   (A6)+, D1/D3/A3-A4
6252   2F1E                      Move.L    (A6)+, -(A7)
6254   4A40                      Tst       D0
6256   4E75                      Rts

                      P_mCMGetOff:
6258   2D1F                      Move.L    (A7)+, -(A6)
625A   48E6 5808                 MoveM.L   D1/D3-D4/A4, -(A6)
625E   6100 0340                 Bsr       P_CMSetUp
6262   2600                      Move.L    D0, D3
6264   3801                      Move      D1, D4
6266   222A 00AC                 Move.L    $AC(A2), D1
626A   6704                      BEQ.B     L1131
626C   B283                      Cmp.L     D3, D1
626E   6716                      BEQ.B     L1132
6270   42AA 00AC      L1131:     Clr.L     $AC(A2)
6274   2003                      Move.L    D3, D0
6276   91C8                      SubA.L    A0, A0
6278   4EBA 041E                 Jsr       P_mLocCRec
627C   6630                      BNE.B     L1136
627E   2543 00AC                 Move.L    D3, $AC(A2)
6282   426A 00B0                 Clr       $B0(A2)
6286   302A 00A6      L1132:     Move      $A6(A2), D0
628A   3204                      Move      D4, D1
628C   926A 00B0                 Sub       $B0(A2), D1
6290   4EBA 0696                 Jsr       P_mBTGetRecord
6294   670E                      BEQ.B     L1135
6296   0C40 0020                 Cmp       #$20, D0
629A   6602                      BNE.B     L1134
629C   7030           L1133:     MoveQ.L   #$30, D0
629E   42AA 00AC      L1134:     Clr.L     $AC(A2)
62A2   600A                      Bra.B     L1136
62A4   B6A8 0002      L1135:     Cmp.L     $2(A0), D3
62A8   66F2                      BNE.B     L1133
62AA   3544 00B0                 Move      D4, $B0(A2)
62AE   DCFC 008C      L1136:     AddA      #$8C, A6
62B2   4CDE 101A                 MoveM.L   (A6)+, D1/D3-D4/A4
62B6   2F1E                      Move.L    (A6)+, -(A7)
62B8   4A40                      Tst       D0
62BA   4E75                      Rts

                      P_mCMMoveCN:
62BC   2D1F                      Move.L    (A7)+, -(A6)
62BE   48E6 5FD8                 MoveM.L   D1/D3-D7/A0-A1/A3-A4, -(A6)
62C2   6100 02DC                 Bsr       P_CMSetUp
62C6   42AA 00AC                 Clr.L     $AC(A2)
62CA   2A01                      Move.L    D1, D5
62CC   2C09                      Move.L    A1, D6
62CE   2600                      Move.L    D0, D3
62D0   2648                      Move.L    A0, A3
62D2   7400                      MoveQ.L   #$0, D2
62D4   4EBA 03A2                 Jsr       P_mLocCNode
62D8   6600 017A                 BNE       L1147
62DC   7800                      MoveQ.L   #$0, D4
62DE   0C11 0001                 Cmp.B     #$1, (A1)
62E2   6604                      BNE.B     L1137
62E4   2829 0006                 Move.L    $6(A1), D4
62E8   2005           L1137:     Move.L    D5, D0
62EA   2046                      Move.L    D6, A0
62EC   7400                      MoveQ.L   #$0, D2
62EE   4EBA 0388                 Jsr       P_mLocCNode
62F2   6600 0160                 BNE       L1147
62F6   0C11 0001                 Cmp.B     #$1, (A1)
62FA   6708                      BEQ.B     L1138
62FC   303C FF86                 Move      #$-7A, D0
6300   6000 0152                 Bra       L1147
6304   2E29 0006      L1138:     Move.L    $6(A1), D7
6308   4A84                      Tst.L     D4
630A   6732                      BEQ.B     L1141
630C   0C84 0000 0002            Cmp.L     #$2, D4
6312   6722                      BEQ.B     L1140
6314   BE84                      Cmp.L     D4, D7
6316   671E                      BEQ.B     L1140
6318   2028 0002      L1139:     Move.L    $2(A0), D0
631C   B084                      Cmp.L     D4, D0
631E   6716                      BEQ.B     L1140
6320   0C80 0000 0002            Cmp.L     #$2, D0
6326   6F16                      BLE.B     L1141
6328   91C8                      SubA.L    A0, A0
632A   7400                      MoveQ.L   #$0, D2
632C   4EBA 034A                 Jsr       P_mLocCNode
6330   6600 0122                 BNE       L1147
6334   60E2                      Bra.B     L1139
6336   303C FF86      L1140:     Move      #$-7A, D0
633A   6000 0118                 Bra       L1147
633E   2003           L1141:     Move.L    D3, D0
6340   204B                      Move.L    A3, A0
6342   7400                      MoveQ.L   #$0, D2
6344   4EBA 0332                 Jsr       P_mLocCNode
6348   6600 010A                 BNE       L1147
634C   BEA8 0002                 Cmp.L     $2(A0), D7
6350   6606                      BNE.B     L1142
6352   2E02                      Move.L    D2, D7
6354   6000 00F2                 Bra       L1146
6358   2F09           L1142:     Move.L    A1, -(A7)
635A   43D4                      Lea.L     (A4), A1
635C   7001                      MoveQ.L   #$1, D0
635E   D010                      Add.B     (A0), D0
6360   A02E                      _BlockMove
6362   205F                      Move.L    (A7)+, A0
6364   43EC 0026                 Lea.L     $26(A4), A1
6368   3001                      Move      D1, D0
636A   48C0                      Ext.L     D0
636C   A02E                      _BlockMove
636E   41D4                      Lea.L     (A4), A0
6370   2828 0002                 Move.L    $2(A0), D4
6374   2147 0002                 Move.L    D7, $2(A0)
6378   43EC 0026                 Lea.L     $26(A4), A1
637C   7266                      MoveQ.L   #$66, D1
637E   0C11 0002                 Cmp.B     #$2, (A1)
6382   6708                      BEQ.B     L1143
6384   7246                      MoveQ.L   #$46, D1
6386   2378 020C 000E            Move.L    (Time), $E(A1)
638C   302A 00A6      L1143:     Move      $A6(A2), D0
6390   4EBA 0658                 Jsr       P_mBTInsert
6394   670E                      BEQ.B     L1144
6396   0C40 0021                 Cmp       #$21, D0
639A   6600 00B8                 BNE       L1147
639E   7031                      MoveQ.L   #$31, D0
63A0   6600 00B2                 BNE       L1147
63A4   2E02           L1144:     Move.L    D2, D7
63A6   2028 0002                 Move.L    $2(A0), D0
63AA   CB40                      Exg.L     D5, D0
63AC   2046                      Move.L    D6, A0
63AE   7400                      MoveQ.L   #$0, D2
63B0   4EBA 02C6                 Jsr       P_mLocCNode
63B4   6600 009E                 BNE       L1147
63B8   5269 0004                 AddQ      #$1, $4(A1)
63BC   2378 020C 000E            Move.L    (Time), $E(A1)
63C2   302A 00A6                 Move      $A6(A2), D0
63C6   4EBA 0A0E                 Jsr       P_mBTUpdate
63CA   6600 0088                 BNE       L1147
63CE   43EC 0026                 Lea.L     $26(A4), A1
63D2   1011                      Move.B    (A1), D0
63D4   2205                      Move.L    D5, D1
63D6   7401                      MoveQ.L   #$1, D2
63D8   6100 01E4                 Bsr       P177
63DC   2003                      Move.L    D3, D0
63DE   204B                      Move.L    A3, A0
63E0   7400                      MoveQ.L   #$0, D2
63E2   4EBA 0294                 Jsr       P_mLocCNode
63E6   666C                      BNE.B     L1147
63E8   41D4                      Lea.L     (A4), A0
63EA   302A 00A6                 Move      $A6(A2), D0
63EE   4EBA 032C                 Jsr       P_mBTDelete
63F2   6660                      BNE.B     L1147
63F4   43EC 0026                 Lea.L     $26(A4), A1
63F8   0C11 0001                 Cmp.B     #$1, (A1)
63FC   661C                      BNE.B     L1145
63FE   2029 0006                 Move.L    $6(A1), D0
6402   91C8                      SubA.L    A0, A0
6404   7400                      MoveQ.L   #$0, D2
6406   4EBA 0290                 Jsr       P_mLocCRec
640A   6648                      BNE.B     L1147
640C   2345 000A                 Move.L    D5, $A(A1)
6410   302A 00A6                 Move      $A6(A2), D0
6414   4EBA 09C0                 Jsr       P_mBTUpdate
6418   663A                      BNE.B     L1147
641A   2004           L1145:     Move.L    D4, D0
641C   91C8                      SubA.L    A0, A0
641E   7400                      MoveQ.L   #$0, D2
6420   4EBA 0256                 Jsr       P_mLocCNode
6424   662E                      BNE.B     L1147
6426   5369 0004                 SubQ      #$1, $4(A1)
642A   2378 020C 000E            Move.L    (Time), $E(A1)
6430   302A 00A6                 Move      $A6(A2), D0
6434   4EBA 09A0                 Jsr       P_mBTUpdate
6438   661A                      BNE.B     L1147
643A   43EC 0026                 Lea.L     $26(A4), A1
643E   1011                      Move.B    (A1), D0
6440   2204                      Move.L    D4, D1
6442   74FF                      MoveQ.L   #$-1, D2
6444   6100 0178                 Bsr       P177
6448   4240           L1146:     Clr       D0
644A   2407                      Move.L    D7, D2
644C   4EBA C8D2                 Jsr       P_mMarkVCBTime
6450   4EBA 01B4                 Jsr       P_mCMFlush
6454   DCFC 008C      L1147:     AddA      #$8C, A6
6458   4CDE 1BFA                 MoveM.L   (A6)+, D1/D3-D7/A0-A1/A3-A4
645C   2F1E                      Move.L    (A6)+, -(A7)
645E   4A40                      Tst       D0
6460   4E75                      Rts

                      P_mCMRenameCN:
6462   2D1F                      Move.L    (A7)+, -(A6)
6464   48E6 5FD8                 MoveM.L   D1/D3-D7/A0-A1/A3-A4, -(A6)
6468   6100 0136                 Bsr       P_CMSetUp
646C   42AA 00AC                 Clr.L     $AC(A2)
6470   2600                      Move.L    D0, D3
6472   2648                      Move.L    A0, A3
6474   2A09                      Move.L    A1, D5
6476   4EBA 0200                 Jsr       P_mLocCNode
647A   6600 00E2                 BNE       L1154
647E   2802                      Move.L    D2, D4
6480   3C01                      Move      D1, D6
6482   2049                      Move.L    A1, A0
6484   43EC 0026                 Lea.L     $26(A4), A1
6488   3006                      Move      D6, D0
648A   48C0                      Ext.L     D0
648C   A02E                      _BlockMove
648E   43D4                      Lea.L     (A4), A1
6490   2029 0002                 Move.L    $2(A1), D0
6494   2045                      Move.L    D5, A0
6496   4EBA 0140                 Jsr       P_mBuildKey
649A   2049                      Move.L    A1, A0
649C   43EC 0026                 Lea.L     $26(A4), A1
64A0   3206                      Move      D6, D1
64A2   302A 00A6                 Move      $A6(A2), D0
64A6   4EBA 0542                 Jsr       P_mBTInsert
64AA   675E                      BEQ.B     L1151
64AC   0C40 0021                 Cmp       #$21, D0
64B0   6600 00AC                 BNE       L1154
64B4   43D4                      Lea.L     (A4), A1
64B6   2029 0002                 Move.L    $2(A1), D0
64BA   2045                      Move.L    D5, A0
64BC   7400                      MoveQ.L   #$0, D2
64BE   4EBA 01B8                 Jsr       P_mLocCNode
64C2   6600 009A                 BNE       L1154
64C6   2E02                      Move.L    D2, D7
64C8   2C08                      Move.L    A0, D6
64CA   41EC 0026                 Lea.L     $26(A4), A0
64CE   1010                      Move.B    (A0), D0
64D0   B011                      Cmp.B     (A1), D0
64D2   661C                      BNE.B     L1149
64D4   0C00 0001                 Cmp.B     #$1, D0
64D8   660C                      BNE.B     L1148
64DA   2229 0006                 Move.L    $6(A1), D1
64DE   B2A8 0006                 Cmp.L     $6(A0), D1
64E2   6710                      BEQ.B     L1150
64E4   600A                      Bra.B     L1149
64E6   2229 0014      L1148:     Move.L    $14(A1), D1
64EA   B2A8 0014                 Cmp.L     $14(A0), D1
64EE   6704                      BEQ.B     L1150
64F0   7031           L1149:     MoveQ.L   #$31, D0
64F2   606A                      Bra.B     L1154
64F4   2246           L1150:     Move.L    D6, A1
64F6   43E9 0006                 Lea.L     $6(A1), A1
64FA   2045                      Move.L    D5, A0
64FC   4EBA 01C4                 Jsr       P_mUpdCName
6500   302A 00A6                 Move      $A6(A2), D0
6504   4EBA 08D0                 Jsr       P_mBTUpdate
6508   601E                      Bra.B     L1152
650A   2E02           L1151:     Move.L    D2, D7
650C   2003                      Move.L    D3, D0
650E   204B                      Move.L    A3, A0
6510   2404                      Move.L    D4, D2
6512   4EBA 0164                 Jsr       P_mLocCNode
6516   6600 0046                 BNE       L1154
651A   41D4                      Lea.L     (A4), A0
651C   302A 00A6                 Move      $A6(A2), D0
6520   7400                      MoveQ.L   #$0, D2
6522   4EBA 01F8                 Jsr       P_mBTDelete
6526   6636                      BNE.B     L1154
6528   43EC 0026      L1152:     Lea.L     $26(A4), A1
652C   0C11 0001                 Cmp.B     #$1, (A1)
6530   6620                      BNE.B     L1153
6532   2029 0006                 Move.L    $6(A1), D0
6536   91C8                      SubA.L    A0, A0
6538   4282                      Clr.L     D2
653A   4EBA 015C                 Jsr       P_mLocCRec
653E   661E                      BNE.B     L1154
6540   2045                      Move.L    D5, A0
6542   43E9 000E                 Lea.L     $E(A1), A1
6546   4EBA 017A                 Jsr       P_mUpdCName
654A   302A 00A6                 Move      $A6(A2), D0
654E   4EBA 0886                 Jsr       P_mBTUpdate
6552   4240           L1153:     Clr       D0
6554   2407                      Move.L    D7, D2
6556   4EBA C7C8                 Jsr       P_mMarkVCBTime
655A   4EBA 00AA                 Jsr       P_mCMFlush
655E   DCFC 008C      L1154:     AddA      #$8C, A6
6562   4CDE 1BFA                 MoveM.L   (A6)+, D1/D3-D7/A0-A1/A3-A4
6566   2F1E                      Move.L    (A6)+, -(A7)
6568   4A40                      Tst       D0
656A   4E75                      Rts

                      P_mCMUpdateCN:
656C   2D1F                      Move.L    (A7)+, -(A6)
656E   48E6 60C0                 MoveM.L   D1-D2/A0-A1, -(A6)
6572   6100 002C                 Bsr       P_CMSetUp
6576   302A 00A6                 Move      $A6(A2), D0
657A   4EBA 085A                 Jsr       P_mBTUpdate
657E   670A                      BEQ.B     L1155
6580   0C40 0020                 Cmp       #$20, D0
6584   660C                      BNE.B     L1156
6586   7030                      MoveQ.L   #$30, D0
6588   6008                      Bra.B     L1156
658A   4EBA C794      L1155:     Jsr       P_mMarkVCBTime
658E   4EBA 0076                 Jsr       P_mCMFlush
6592   DCFC 008C      L1156:     AddA      #$8C, A6
6596   4CDE 0306                 MoveM.L   (A6)+, D1-D2/A0-A1
659A   2F1E                      Move.L    (A6)+, -(A7)
659C   4A40                      Tst       D0
659E   4E75                      Rts

                      P_CMSetUp:
65A0   2F38 0770                 Move.L    ($770), -(A7)
65A4   4E75                      Rts

                      P_tA0DC_mvCMSetUp:
65A6   9CFC 008C                 SubA      #$8C, A6
65AA   284E                      Move.L    A6, A4
65AC   4E75                      Rts

                      P176:
65AE   0C00 0001                 Cmp.B     #$1, D0
65B2   6606                      BNE.B     L1157
65B4   D5AA 0076                 Add.L     D2, $76(A2)
65B8   6004                      Bra.B     P177
65BA   D5AA 0072      L1157:     Add.L     D2, $72(A2)

                      P177:
65BE   0C81 0000 0002            Cmp.L     #$2, D1
65C4   6610                      BNE.B     L1159
65C6   0C00 0001                 Cmp.B     #$1, D0
65CA   6606                      BNE.B     L1158
65CC   D56A 0070                 Add       D2, $70(A2)
65D0   6004                      Bra.B     L1159
65D2   D56A 0014      L1158:     Add       D2, $14(A2)
65D6   4E75           L1159:     Rts

                      P_mBuildKey:
65D8   48E7 80C0                 MoveM.L   D0/A0-A1, -(A7)
65DC   12BC 0006                 Move.B    #$6, (A1)
65E0   4229 0001                 Clr.B     $1(A1)
65E4   2340 0002                 Move.L    D0, $2(A1)
65E8   4229 0006                 Clr.B     $6(A1)
65EC   2008                      Move.L    A0, D0
65EE   6710                      BEQ.B     L1160
65F0   2F09                      Move.L    A1, -(A7)
65F2   43E9 0006                 Lea.L     $6(A1), A1
65F6   6100 00CA                 Bsr       P_mUpdCName
65FA   1011                      Move.B    (A1), D0
65FC   225F                      Move.L    (A7)+, A1
65FE   D111                      Add.B     D0, (A1)
6600   4CDF 0301      L1160:     MoveM.L   (A7)+, D0/A0-A1
6604   4E75                      Rts

                      P_mCMFlush:
6606   2D1F                      Move.L    (A7)+, -(A6)
6608   48E6 4040                 MoveM.L   D1/A1, -(A6)
660C   322A 00A6                 Move      $A6(A2), D1
6610   3001                      Move      D1, D0
6612   4EBA 02AE                 Jsr       P_mBTFlush
6616   6618                      BNE.B     L1162
6618   2278 034E                 Move.L    (FCBSPtr), A1
661C   0831 0007 1004            BTst.B    #$7, $4(A1,D1.W)
6622   670A                      BEQ.B     L1161
6624   4EBA C6F8                 Jsr       P_mMarkVCB
6628   4EBA C704                 Jsr       P_mFlushMDB
662C   6602                      BNE.B     L1162
662E   4240           L1161:     Clr       D0
6630   4CDE 0202      L1162:     MoveM.L   (A6)+, D1/A1
6634   2F1E                      Move.L    (A6)+, -(A7)
6636   4A40                      Tst       D0
6638   4E75                      Rts

                      P_mCMKeyCmp:
663A   48E7 60F0                 MoveM.L   D1-D2/A0-A3, -(A7)
663E   2448                      Move.L    A0, A2
6640   2649                      Move.L    A1, A3
6642   202A 0002                 Move.L    $2(A2), D0
6646   B0AB 0002                 Cmp.L     $2(A3), D0
664A   6222                      BHI.B     L1165
664C   6500 0018                 BCS       L1163
6650   41EA 0006                 Lea.L     $6(A2), A0
6654   43EB 0006                 Lea.L     $6(A3), A1
6658   7000                      MoveQ.L   #$0, D0
665A   1018                      Move.B    (A0)+, D0
665C   4840                      Swap      D0
665E   1019                      Move.B    (A1)+, D0
6660   A050                      _CompareString
6662   6706                      BEQ.B     L1164
6664   6E08                      BGT.B     L1165
6666   70FF           L1163:     MoveQ.L   #$-1, D0
6668   6006                      Bra.B     L1166
666A   7000           L1164:     MoveQ.L   #$0, D0
666C   6002                      Bra.B     L1166
666E   7001           L1165:     MoveQ.L   #$1, D0
6670   4CDF 0F06      L1166:     MoveM.L   (A7)+, D1-D2/A0-A3
6674   4A40                      Tst       D0
6676   4E75                      Rts

                      P_mLocCNode:
6678   2D1F                      Move.L    (A7)+, -(A6)
667A   4EBA 001C                 Jsr       P_mLocCRec
667E   6612                      BNE.B     L1167
6680   0C11 0003                 Cmp.B     #$3, (A1)
6684   660C                      BNE.B     L1167
6686   41E9 000E                 Lea.L     $E(A1), A0
668A   2029 000A                 Move.L    $A(A1), D0
668E   4EBA 0008                 Jsr       P_mLocCRec
6692   2F1E           L1167:     Move.L    (A6)+, -(A7)
6694   4A40                      Tst       D0
6696   4E75                      Rts

                      P_mLocCRec:
6698   2D1F                      Move.L    (A7)+, -(A6)
669A   43D4                      Lea.L     (A4), A1
669C   4EBA FF3A                 Jsr       P_mBuildKey
66A0   2008                      Move.L    A0, D0
66A2   6602                      BNE.B     L1168
66A4   4282                      Clr.L     D2
66A6   41D4           L1168:     Lea.L     (A4), A0
66A8   302A 00A6                 Move      $A6(A2), D0
66AC   4EBA 069C                 Jsr       P_mBTSearch
66B0   670A                      BEQ.B     L1169
66B2   0C40 0020                 Cmp       #$20, D0
66B6   6604                      BNE.B     L1169
66B8   7030                      MoveQ.L   #$30, D0
66BA   4E71                      Nop
66BC   2F1E           L1169:     Move.L    (A6)+, -(A7)
66BE   4A40                      Tst       D0
66C0   4E75                      Rts

                      P_mUpdCName:
66C2   48E7 C0C0                 MoveM.L   D0-D1/A0-A1, -(A7)
66C6   7000                      MoveQ.L   #$0, D0
66C8   1018                      Move.B    (A0)+, D0
66CA   721F                      MoveQ.L   #$1F, D1
66CC   B041                      Cmp       D1, D0
66CE   6F02                      BLE.B     L1170
66D0   3001                      Move      D1, D0
66D2   12C0           L1170:     Move.B    D0, (A1)+
66D4   A02E                      _BlockMove
66D6   4CDF 0303                 MoveM.L   (A7)+, D0-D1/A0-A1
66DA   4E75                      Rts

                      P_mBTClose:
66DC   2F38 0730                 Move.L    ($730), -(A7)
66E0   4E75                      Rts

                      P_tA0CC_mvBTClose:
66E2   2D1F                      Move.L    (A7)+, -(A6)
66E4   48E6 78F8                 MoveM.L   D1-D4/A0-A4, -(A6)
66E8   3600                      Move      D0, D3
66EA   3003                      Move      D3, D0
66EC   4EBA 0E40                 Jsr       P_mLocBTCB
66F0   4EBA 01D0                 Jsr       P_mBTFlush
66F4   661C                      BNE.B     L1171
66F6   3003                      Move      D3, D0
66F8   7201                      MoveQ.L   #$1, D1
66FA   226C 0008                 Move.L    $8(A4), A1
66FE   4EBA 0FC6                 Jsr       P_mFlushCache
6702   660E                      BNE.B     L1171
6704   204C                      Move.L    A4, A0
6706   A01F                      _DisposePtr
6708   2878 034E                 Move.L    (FCBSPtr), A4
670C   42B4 3022                 Clr.L     $22(A4,D3.W)
6710   4240                      Clr       D0
6712   4CDE 1F1E      L1171:     MoveM.L   (A6)+, D1-D4/A0-A4
6716   2F1E                      Move.L    (A6)+, -(A7)
6718   4A40                      Tst       D0
671A   4E75                      Rts

                      P_mBTDelete:
671C   2F38 0734                 Move.L    ($734), -(A7)
6720   4E75                      Rts

                      P_tA0CD_mvBTDelete:
6722   2D1F                      Move.L    (A7)+, -(A6)
6724   48E6 7CF8                 MoveM.L   D1-D5/A0-A4, -(A6)
6728   6100 06E6                 Bsr       P194
672C   42AC 0012                 Clr.L     $12(A4)
6730   95CA                      SubA.L    A2, A2
6732   97CB                      SubA.L    A3, A3
6734   4EBA 0AAE                 Jsr       P_mTreeSearch
6738   2649                      Move.L    A1, A3
673A   6600 016C                 BNE       L1186
673E   3A01                      Move      D1, D5
6740   224B           L1172:     Move.L    A3, A1
6742   3205                      Move      D5, D1
6744   4EBA 0C24                 Jsr       P_mDeleteRec
6748   204B                      Move.L    A3, A0
674A   4EBA 12A8                 Jsr       P_mMarkBlock
674E   4A45                      Tst       D5
6750   6600 0006                 BNE       L1173
6754   08D4 0006                 BSet.B    #$6, (A4)
6758   0C2B 00FF 0008 L1173:     Cmp.B     #$-1, $8(A3)
675E   6604                      BNE.B     L1174
6760   53AC 001E                 SubQ      #$1, $1E(A4)
6764   4A6B 000A      L1174:     Tst       $A(A3)
6768   6E00 007A                 BGT       L1179
676C   204B                      Move.L    A3, A0
676E   4EBA 0C4A                 Jsr       P_mGetLTSib
6772   6600 0134                 BNE       L1186
6776   4A81                      Tst.L     D1
6778   670A                      BEQ.B     L1175
677A   2293                      Move.L    (A3), (A1)
677C   7204                      MoveQ.L   #$4, D1
677E   2049                      Move.L    A1, A0
6780   4EBA 0E4E                 Jsr       P_mRelNode
6784   204B           L1175:     Move.L    A3, A0
6786   4EBA 0C3C                 Jsr       P_mGetRTSib
678A   6600 011C                 BNE       L1186
678E   4A81                      Tst.L     D1
6790   670E                      BEQ.B     L1176
6792   236B 0004 0004            Move.L    $4(A3), $4(A1)
6798   7204                      MoveQ.L   #$4, D1
679A   2049                      Move.L    A1, A0
679C   4EBA 0E32                 Jsr       P_mRelNode
67A0   0C2B 00FF 0008 L1176:     Cmp.B     #$-1, $8(A3)
67A6   6614                      BNE.B     L1178
67A8   4AAB 0004                 Tst.L     $4(A3)
67AC   6604                      BNE.B     L1177
67AE   2953 0022                 Move.L    (A3), $22(A4)
67B2   4A93           L1177:     Tst.L     (A3)
67B4   6606                      BNE.B     L1178
67B6   296B 0004 0026            Move.L    $4(A3), $26(A4)
67BC   204B           L1178:     Move.L    A3, A0
67BE   4EBA 0B8E                 Jsr       P_mClrNode
67C2   7204                      MoveQ.L   #$4, D1
67C4   4EBA 0E0A                 Jsr       P_mRelNode
67C8   97CB                      SubA.L    A3, A3
67CA   302C 0010                 Move      $10(A4), D0
67CE   4EBA 0D9A                 Jsr       P_mLocTPR
67D2   2210                      Move.L    (A0), D1
67D4   302C 0002                 Move      $2(A4), D0
67D8   4EBA 07DA                 Jsr       P_mFreeNode
67DC   08D4 0004                 BSet.B    #$4, (A4)
67E0   0894 0006                 BClr.B    #$6, (A4)
67E4   536C 0010      L1179:     SubQ      #$1, $10(A4)
67E8   6700 0070                 BEQ       L1183
67EC   0814 0006                 BTst.B    #$6, (A4)
67F0   6608                      BNE.B     L1180
67F2   0814 0004                 BTst.B    #$4, (A4)
67F6   6700 00AA                 BEQ       L1185
67FA   302C 0010      L1180:     Move      $10(A4), D0
67FE   4EBA 0D6A                 Jsr       P_mLocTPR
6802   3A28 0004                 Move      $4(A0), D5
6806   2410                      Move.L    (A0), D2
6808   7200                      MoveQ.L   #$0, D1
680A   4EBA 0BF6                 Jsr       P_mGetNode
680E   2448                      Move.L    A0, A2
6810   0814 0006                 BTst.B    #$6, (A4)
6814   6726                      BEQ.B     L1181
6816   3005                      Move      D5, D0
6818   224A                      Move.L    A2, A1
681A   4EBA 0C52                 Jsr       P_mGetRecA
681E   2F08                      Move.L    A0, -(A7)
6820   224B                      Move.L    A3, A1
6822   4240                      Clr       D0
6824   4EBA 0C48                 Jsr       P_mGetRecA
6828   225F                      Move.L    (A7)+, A1
682A   4EBA 0E3C                 Jsr       P_mUpdIKey
682E   204A                      Move.L    A2, A0
6830   4EBA 11C2                 Jsr       P_mMarkBlock
6834   4A45                      Tst       D5
6836   6704                      BEQ.B     L1181
6838   0894 0006                 BClr.B    #$6, (A4)
683C   7200           L1181:     MoveQ.L   #$0, D1
683E   204B                      Move.L    A3, A0
6840   4EBA 0D8E                 Jsr       P_mRelNode
6844   264A                      Move.L    A2, A3
6846   3602                      Move      D2, D3
6848   0894 0004                 BClr.B    #$4, (A4)
684C   6704                      BEQ.B     L1182
684E   6000 FEF0                 Bra       L1172
6852   0814 0006      L1182:     BTst.B    #$6, (A4)
6856   668C                      BNE.B     L1179
6858   6048                      Bra.B     L1185
685A   200B           L1183:     Move.L    A3, D0
685C   660A                      BNE.B     L1184
685E   426C 0018                 Clr       $18(A4)
6862   42AC 001A                 Clr.L     $1A(A4)
6866   603A                      Bra.B     L1185
6868   0C6B 0001 000A L1184:     Cmp       #$1, $A(A3)
686E   6E00 0032                 BGT       L1185
6872   4A2B 0008                 Tst.B     $8(A3)
6876   6600 002A                 BNE       L1185
687A   536C 0018                 SubQ      #$1, $18(A4)
687E   7200                      MoveQ.L   #$0, D1
6880   224B                      Move.L    A3, A1
6882   4EBA 0CB4                 Jsr       P_mLocRec
6886   2951 001A                 Move.L    (A1), $1A(A4)
688A   204B                      Move.L    A3, A0
688C   4EBA 0AC0                 Jsr       P_mClrNode
6890   7204                      MoveQ.L   #$4, D1
6892   4EBA 0D3C                 Jsr       P_mRelNode
6896   97CB                      SubA.L    A3, A3
6898   2203                      Move.L    D3, D1
689A   302C 0002                 Move      $2(A4), D0
689E   4EBA 0714                 Jsr       P_mFreeNode
68A2   08D4 0007      L1185:     BSet.B    #$7, (A4)
68A6   4240                      Clr       D0
68A8   3D00           L1186:     Move      D0, -(A6)
68AA   204B                      Move.L    A3, A0
68AC   7200                      MoveQ.L   #$0, D1
68AE   4EBA 0D20                 Jsr       P_mRelNode
68B2   301E                      Move      (A6)+, D0
68B4   6100 054C                 Bsr       P193
68B8   4CDE 1F3E                 MoveM.L   (A6)+, D1-D5/A0-A4
68BC   2F1E                      Move.L    (A6)+, -(A7)
68BE   4A40                      Tst       D0
68C0   4E75                      Rts

                      P_mBTFlush:
68C2   2F38 0738                 Move.L    ($738), -(A7)
68C6   4E75                      Rts

                      P_tA0CE_mvBTFlush:
68C8   2D1F                      Move.L    (A7)+, -(A6)
68CA   48E6 78F8                 MoveM.L   D1-D4/A0-A4, -(A6)
68CE   3600                      Move      D0, D3
68D0   2278 034E                 Move.L    (FCBSPtr), A1
68D4   2471 3014                 Move.L    $14(A1,D3.W), A2
68D8   4A6A 0048                 Tst       $48(A2)
68DC   6740                      BEQ.B     L1189
68DE   4EBA 0C4E                 Jsr       P_mLocBTCB
68E2   0894 0007                 BClr.B    #$7, (A4)
68E6   6728                      BEQ.B     L1188
68E8   7200                      MoveQ.L   #$0, D1
68EA   7400                      MoveQ.L   #$0, D2
68EC   4EBA 0B14                 Jsr       P_mGetNode
68F0   662C                      BNE.B     L1189
68F2   2648                      Move.L    A0, A3
68F4   303C 001D                 Move      #$1D, D0
68F8   41EC 0018                 Lea.L     $18(A4), A0
68FC   43EB 000E                 Lea.L     $E(A3), A1
6900   12D8           L1187:     Move.B    (A0)+, (A1)+
6902   51C8 FFFC                 DBF       D0, L1187
6906   7204                      MoveQ.L   #$4, D1
6908   204B                      Move.L    A3, A0
690A   4EBA 0CC4                 Jsr       P_mRelNode
690E   660E                      BNE.B     L1189
6910   3003           L1188:     Move      D3, D0
6912   7200                      MoveQ.L   #$0, D1
6914   226C 0008                 Move.L    $8(A4), A1
6918   4EBA 0DAC                 Jsr       P_mFlushCache
691C   4E71                      Nop
691E   4CDE 1F1E      L1189:     MoveM.L   (A6)+, D1-D4/A0-A4
6922   2F1E                      Move.L    (A6)+, -(A7)
6924   4A40                      Tst       D0
6926   4E75                      Rts

                      P_mBTGetRecord:
6928   2F38 073C                 Move.L    ($73C), -(A7)
692C   4E75                      Rts

                      P_tA0CF_mvBTGetRecord:
692E   2D1F                      Move.L    (A7)+, -(A6)
6930   48E6 1C38                 MoveM.L   D3-D5/A2-A4, -(A6)
6934   6100 04DA                 Bsr       P194
6938   3A01                      Move      D1, D5
693A   97CB                      SubA.L    A3, A3
693C   382C 0016                 Move      $16(A4), D4
6940   262C 0012                 Move.L    $12(A4), D3
6944   6604                      BNE.B     L1190
6946   7020                      MoveQ.L   #$20, D0
6948   605A                      Bra.B     L1198
694A   D845           L1190:     Add       D5, D4
694C   6100 0072      L1191:     Bsr       P187
6950   6652                      BNE.B     L1198
6952   4A44           L1192:     Tst       D4
6954   6D18                      BLT.B     L1194
6956   322B 000A                 Move      $A(A3), D1
695A   B841                      Cmp       D1, D4
695C   6D34                      BLT.B     L1197
695E   2013                      Move.L    (A3), D0
6960   6706                      BEQ.B     L1193
6962   2600                      Move.L    D0, D3
6964   9841                      Sub       D1, D4
6966   60E4                      Bra.B     L1191
6968   3801           L1193:     Move      D1, D4
696A   5344                      SubQ      #$1, D4
696C   6016                      Bra.B     L1196
696E   202B 0004      L1194:     Move.L    $4(A3), D0
6972   670E                      BEQ.B     L1195
6974   2600                      Move.L    D0, D3
6976   6100 0048                 Bsr       P187
697A   6628                      BNE.B     L1198
697C   D86B 000A                 Add       $A(A3), D4
6980   60D0                      Bra.B     L1192
6982   7800           L1195:     MoveQ.L   #$0, D4
6984   2943 0012      L1196:     Move.L    D3, $12(A4)
6988   3944 0016                 Move      D4, $16(A4)
698C   7020                      MoveQ.L   #$20, D0
698E   6000 0014                 Bra       L1198
6992   3204           L1197:     Move      D4, D1
6994   224B                      Move.L    A3, A1
6996   4EBA 0BA0                 Jsr       P_mLocRec
699A   2943 0012                 Move.L    D3, $12(A4)
699E   3944 0016                 Move      D4, $16(A4)
69A2   4240                      Clr       D0
69A4   48E6 C0C0      L1198:     MoveM.L   D0-D1/A0-A1, -(A6)
69A8   6100 002E                 Bsr       P188
69AC   4CDE 0303                 MoveM.L   (A6)+, D0-D1/A0-A1
69B0   2403                      Move.L    D3, D2
69B2   6100 044E                 Bsr       P193
69B6   4CDE 1C38                 MoveM.L   (A6)+, D3-D5/A2-A4
69BA   2F1E                      Move.L    (A6)+, -(A7)
69BC   4A40                      Tst       D0
69BE   4E75                      Rts

                      P187:
69C0   2D1F                      Move.L    (A7)+, -(A6)
69C2   6100 0014                 Bsr       P188
69C6   7200                      MoveQ.L   #$0, D1
69C8   2403                      Move.L    D3, D2
69CA   4EBA 0A36                 Jsr       P_mGetNode
69CE   6602                      BNE.B     L1199
69D0   2648                      Move.L    A0, A3
69D2   2F1E           L1199:     Move.L    (A6)+, -(A7)
69D4   4A40                      Tst       D0
69D6   4E75                      Rts

                      P188:
69D8   2D1F                      Move.L    (A7)+, -(A6)
69DA   7200                      MoveQ.L   #$0, D1
69DC   204B                      Move.L    A3, A0
69DE   4EBA 0BF0                 Jsr       P_mRelNode
69E2   97CB                      SubA.L    A3, A3
69E4   2F1E                      Move.L    (A6)+, -(A7)
69E6   4A40                      Tst       D0
69E8   4E75                      Rts

                      P_mBTInsert:
69EA   2F38 0740                 Move.L    ($740), -(A7)
69EE   4E75                      Rts

                      P_tA0D0_mvBTInsert:
69F0   2D1F                      Move.L    (A7)+, -(A6)
69F2   48E6 5FF8                 MoveM.L   D1/D3-D7/A0-A4, -(A6)
69F6   4EBA 0B36                 Jsr       P_mLocBTCB
69FA   2E09                      Move.L    A1, D7
69FC   3C01                      Move      D1, D6
69FE   2A08                      Move.L    A0, D5
6A00   7601                      MoveQ.L   #$1, D3
6A02   D66C 0018                 Add       $18(A4), D3
6A06   B6AC 0032                 Cmp.L     $32(A4), D3
6A0A   6F0E                      BLE.B     L1201
6A0C   4EBA 04C0      L1200:     Jsr       P_mExtBTFile
6A10   6600 026E                 BNE       L1217
6A14   B6AC 0032                 Cmp.L     $32(A4), D3
6A18   6EF2                      BGT.B     L1200
6A1A   302C 0002      L1201:     Move      $2(A4), D0
6A1E   6100 03F0                 Bsr       P194
6A22   48E6 0300                 MoveM.L   D6-D7, -(A6)
6A26   7800                      MoveQ.L   #$0, D4
6A28   95CA                      SubA.L    A2, A2
6A2A   97CB                      SubA.L    A3, A3
6A2C   42AC 0012                 Clr.L     $12(A4)
6A30   226C 000C                 Move.L    $C(A4), A1
6A34   43E9 0030                 Lea.L     $30(A1), A1
6A38   2045                      Move.L    D5, A0
6A3A   7000                      MoveQ.L   #$0, D0
6A3C   1010                      Move.B    (A0), D0
6A3E   5480                      AddQ      #$2, D0
6A40   E288                      LsR.L     #$1, D0
6A42   E388                      LsL.L     #$1, D0
6A44   DC40                      Add       D0, D6
6A46   A02E                      _BlockMove
6A48   5246                      AddQ      #$1, D6
6A4A   E24E                      LsR       #$1, D6
6A4C   E34E                      LsL       #$1, D6
6A4E   2E09                      Move.L    A1, D7
6A50   4EBA 0792                 Jsr       P_mTreeSearch
6A54   2649                      Move.L    A1, A3
6A56   6606                      BNE.B     L1202
6A58   7021                      MoveQ.L   #$21, D0
6A5A   6000 01FE                 Bra       L1216
6A5E   0C40 0020      L1202:     Cmp       #$20, D0
6A62   6600 01F6                 BNE       L1216
6A66   2602                      Move.L    D2, D3
6A68   3A01                      Move      D1, D5
6A6A   4A6C 0010                 Tst       $10(A4)
6A6E   6E00 0038                 BGT       L1203
6A72   302C 0002                 Move      $2(A4), D0
6A76   4EBA 03C0                 Jsr       P_mAllocNode
6A7A   6600 01DE                 BNE       L1216
6A7E   2601                      Move.L    D1, D3
6A80   4EBA 0A08                 Jsr       P_mInitNode
6A84   2648                      Move.L    A0, A3
6A86   177C 00FF 0008            Move.B    #$-1, $8(A3)
6A8C   7001                      MoveQ.L   #$1, D0
6A8E   1740 0009                 Move.B    D0, $9(A3)
6A92   3940 0018                 Move      D0, $18(A4)
6A96   2943 001A                 Move.L    D3, $1A(A4)
6A9A   2943 0022                 Move.L    D3, $22(A4)
6A9E   2943 0026                 Move.L    D3, $26(A4)
6AA2   397C 0001 0010            Move      #$1, $10(A4)
6AA8   2047           L1203:     Move.L    D7, A0
6AAA   3006                      Move      D6, D0
6AAC   224B                      Move.L    A3, A1
6AAE   3205                      Move      D5, D1
6AB0   4EBA 0A0A                 Jsr       P_mInsertRec
6AB4   660A                      BNE.B     L1204
6AB6   4A45                      Tst       D5
6AB8   6648                      BNE.B     L1208
6ABA   08D4 0006                 BSet.B    #$6, (A4)
6ABE   6042                      Bra.B     L1208
6AC0   204B           L1204:     Move.L    A3, A0
6AC2   4EBA 08F6                 Jsr       P_mGetLTSib
6AC6   6600 0192                 BNE       L1216
6ACA   4A81                      Tst.L     D1
6ACC   6712                      BEQ.B     L1205
6ACE   2401                      Move.L    D1, D2
6AD0   2449                      Move.L    A1, A2
6AD2   2047                      Move.L    D7, A0
6AD4   3006                      Move      D6, D0
6AD6   3205                      Move      D5, D1
6AD8   4EBA 0592                 Jsr       P_mRotateLT
6ADC   6602                      BNE.B     L1205
6ADE   6016                      Bra.B     L1207
6AE0   2047           L1205:     Move.L    D7, A0
6AE2   3006                      Move      D6, D0
6AE4   3205                      Move      D5, D1
6AE6   4EBA 0674                 Jsr       P_mSplitLT
6AEA   6706                      BEQ.B     L1206
6AEC   7023                      MoveQ.L   #$23, D0
6AEE   6000 016A                 Bra       L1216
6AF2   08D4 0005      L1206:     BSet.B    #$5, (A4)
6AF6   08D4 0006      L1207:     BSet.B    #$6, (A4)
6AFA   3A01                      Move      D1, D5
6AFC   204A                      Move.L    A2, A0
6AFE   4EBA 0EF4                 Jsr       P_mMarkBlock
6B02   204B           L1208:     Move.L    A3, A0
6B04   4EBA 0EEE                 Jsr       P_mMarkBlock
6B08   0C29 00FF 0008            Cmp.B     #$-1, $8(A1)
6B0E   661C                      BNE.B     L1210
6B10   4CD6 0101                 MoveM.L   (A6), D0/A0
6B14   4EBA 0B30                 Jsr       P_mUpdDRec
6B18   52AC 001E                 AddQ      #$1, $1E(A4)
6B1C   3945 0016                 Move      D5, $16(A4)
6B20   2003                      Move.L    D3, D0
6B22   B3CB                      CmpA.L    A3, A1
6B24   6702                      BEQ.B     L1209
6B26   2002                      Move.L    D2, D0
6B28   2940 0012      L1209:     Move.L    D0, $12(A4)
6B2C   0814 0006      L1210:     BTst.B    #$6, (A4)
6B30   6608                      BNE.B     L1211
6B32   0814 0005                 BTst.B    #$5, (A4)
6B36   6700 011C                 BEQ       L1215
6B3A   536C 0010      L1211:     SubQ      #$1, $10(A4)
6B3E   6700 0094                 BEQ       L1214
6B42   302C 0010                 Move      $10(A4), D0
6B46   4EBA 0A22                 Jsr       P_mLocTPR
6B4A   3A28 0004                 Move      $4(A0), D5
6B4E   2610                      Move.L    (A0), D3
6B50   2D02                      Move.L    D2, -(A6)
6B52   7200                      MoveQ.L   #$0, D1
6B54   2403                      Move.L    D3, D2
6B56   4EBA 08AA                 Jsr       P_mGetNode
6B5A   6600 00FE                 BNE       L1216
6B5E   2808                      Move.L    A0, D4
6B60   241E                      Move.L    (A6)+, D2
6B62   0814 0006                 BTst.B    #$6, (A4)
6B66   6726                      BEQ.B     L1212
6B68   3005                      Move      D5, D0
6B6A   2244                      Move.L    D4, A1
6B6C   4EBA 0900                 Jsr       P_mGetRecA
6B70   2F08                      Move.L    A0, -(A7)
6B72   224B                      Move.L    A3, A1
6B74   4240                      Clr       D0
6B76   4EBA 08F6                 Jsr       P_mGetRecA
6B7A   225F                      Move.L    (A7)+, A1
6B7C   4EBA 0AEA                 Jsr       P_mUpdIKey
6B80   2044                      Move.L    D4, A0
6B82   4EBA 0E70                 Jsr       P_mMarkBlock
6B86   4A45                      Tst       D5
6B88   6704                      BEQ.B     L1212
6B8A   0894 0006                 BClr.B    #$6, (A4)
6B8E   7200           L1212:     MoveQ.L   #$0, D1
6B90   204B                      Move.L    A3, A0
6B92   4EBA 0A3C                 Jsr       P_mRelNode
6B96   2644                      Move.L    D4, A3
6B98   7800                      MoveQ.L   #$0, D4
6B9A   0814 0005                 BTst.B    #$5, (A4)
6B9E   6708                      BEQ.B     L1213
6BA0   224A                      Move.L    A2, A1
6BA2   2002                      Move.L    D2, D0
6BA4   4EBA 06FA                 Jsr       P_mBuildIRec
6BA8   7200           L1213:     MoveQ.L   #$0, D1
6BAA   204A                      Move.L    A2, A0
6BAC   4EBA 0A22                 Jsr       P_mRelNode
6BB0   95CA                      SubA.L    A2, A2
6BB2   0814 0005                 BTst.B    #$5, (A4)
6BB6   6700 FF74                 BEQ       L1210
6BBA   206C 000C                 Move.L    $C(A4), A0
6BBE   41E8 0030                 Lea.L     $30(A0), A0
6BC2   2E08                      Move.L    A0, D7
6BC4   4EBA 0830                 Jsr       P_mGetMaxKey
6BC8   5840                      AddQ      #$4, D0
6BCA   3C00                      Move      D0, D6
6BCC   0894 0005                 BClr.B    #$5, (A4)
6BD0   6000 FED6                 Bra       L1203
6BD4   0814 0005      L1214:     BTst.B    #$5, (A4)
6BD8   6700 007A                 BEQ       L1215
6BDC   302C 0002                 Move      $2(A4), D0
6BE0   4EBA 0256                 Jsr       P_mAllocNode
6BE4   6600 0074                 BNE       L1216
6BE8   2601                      Move.L    D1, D3
6BEA   2203                      Move.L    D3, D1
6BEC   4EBA 089C                 Jsr       P_mInitNode
6BF0   2808                      Move.L    A0, D4
6BF2   4228 0008                 Clr.B     $8(A0)
6BF6   7001                      MoveQ.L   #$1, D0
6BF8   D06C 0018                 Add       $18(A4), D0
6BFC   1140 0009                 Move.B    D0, $9(A0)
6C00   224A                      Move.L    A2, A1
6C02   2002                      Move.L    D2, D0
6C04   4EBA 069A                 Jsr       P_mBuildIRec
6C08   4EBA 07EC                 Jsr       P_mGetMaxKey
6C0C   5840                      AddQ      #$4, D0
6C0E   206C 000C                 Move.L    $C(A4), A0
6C12   41E8 0030                 Lea.L     $30(A0), A0
6C16   2244                      Move.L    D4, A1
6C18   4241                      Clr       D1
6C1A   4EBA 08A0                 Jsr       P_mInsertRec
6C1E   303C 0001                 Move      #$1, D0
6C22   4EBA 0946                 Jsr       P_mLocTPR
6C26   2010                      Move.L    (A0), D0
6C28   224B                      Move.L    A3, A1
6C2A   4EBA 0674                 Jsr       P_mBuildIRec
6C2E   4EBA 07C6                 Jsr       P_mGetMaxKey
6C32   5840                      AddQ      #$4, D0
6C34   206C 000C                 Move.L    $C(A4), A0
6C38   41E8 0030                 Lea.L     $30(A0), A0
6C3C   2244                      Move.L    D4, A1
6C3E   323C 0001                 Move      #$1, D1
6C42   4EBA 0878                 Jsr       P_mInsertRec
6C46   2044                      Move.L    D4, A0
6C48   4EBA 0DAA                 Jsr       P_mMarkBlock
6C4C   526C 0018                 AddQ      #$1, $18(A4)
6C50   2943 001A                 Move.L    D3, $1A(A4)
6C54   08D4 0007      L1215:     BSet.B    #$7, (A4)
6C58   4240                      Clr       D0
6C5A   3D00           L1216:     Move      D0, -(A6)
6C5C   204A                      Move.L    A2, A0
6C5E   7200                      MoveQ.L   #$0, D1
6C60   4EBA 096E                 Jsr       P_mRelNode
6C64   204B                      Move.L    A3, A0
6C66   4EBA 0968                 Jsr       P_mRelNode
6C6A   2044                      Move.L    D4, A0
6C6C   4EBA 0962                 Jsr       P_mRelNode
6C70   301E                      Move      (A6)+, D0
6C72   242C 0012                 Move.L    $12(A4), D2
6C76   42AC 0012                 Clr.L     $12(A4)
6C7A   6100 0186                 Bsr       P193
6C7E   508E                      AddQ      #$8, A6
6C80   4CDE 1FFA      L1217:     MoveM.L   (A6)+, D1/D3-D7/A0-A4
6C84   2F1E                      Move.L    (A6)+, -(A7)
6C86   4A40                      Tst       D0
6C88   4E75                      Rts

                      P_mBTOpen:
6C8A   2F38 0744                 Move.L    ($744), -(A7)
6C8E   4E75                      Rts

                      P_tA0D1_mvBTOpen:
6C90   2D1F                      Move.L    (A7)+, -(A6)
6C92   48E6 7CF8                 MoveM.L   D1-D5/A0-A4, -(A6)
6C96   3600                      Move      D0, D3
6C98   2808                      Move.L    A0, D4
6C9A   2A09                      Move.L    A1, D5
6C9C   7036                      MoveQ.L   #$36, D0
6C9E   A71E                      _NewPtrSysClear
6CA0   6600 009E                 BNE       L1223
6CA4   2848                      Move.L    A0, A4
6CA6   2678 034E                 Move.L    (FCBSPtr), A3
6CAA   278C 3022                 Move.L    A4, $22(A3,D3.W)
6CAE   3943 0002                 Move      D3, $2(A4)
6CB2   2944 0004                 Move.L    D4, $4(A4)
6CB6   2945 0008                 Move.L    D5, $8(A4)
6CBA   3003                      Move      D3, D0
6CBC   2245                      Move.L    D5, A1
6CBE   7200                      MoveQ.L   #$0, D1
6CC0   7400                      MoveQ.L   #$0, D2
6CC2   4EBA 0AEC                 Jsr       P_mGetBlock
6CC6   6678                      BNE.B     L1223
6CC8   2448                      Move.L    A0, A2
6CCA   41EA 000E                 Lea.L     $E(A2), A0
6CCE   3028 0012                 Move      $12(A0), D0
6CD2   6742                      BEQ.B     L1218
6CD4   3200                      Move      D0, D1
6CD6   0241 01FF                 And       #$1FF, D1
6CDA   663A                      BNE.B     L1218
6CDC   2433 300C                 Move.L    $C(A3,D3.W), D2
6CE0   84C0                      DivU      D0, D2
6CE2   4842                      Swap      D2
6CE4   4242                      Clr       D2
6CE6   4842                      Swap      D2
6CE8   B4A8 0016                 Cmp.L     $16(A0), D2
6CEC   6628                      BNE.B     L1218
6CEE   B4A8 001A                 Cmp.L     $1A(A0), D2
6CF2   6500 0022                 BCS       L1218
6CF6   5382                      SubQ      #$1, D2
6CF8   0C10 0008                 Cmp.B     #$8, (A0)
6CFC   6218                      BHI.B     L1218
6CFE   B4A8 0002                 Cmp.L     $2(A0), D2
6D02   6500 0012                 BCS       L1218
6D06   B4A8 000A                 Cmp.L     $A(A0), D2
6D0A   6500 000A                 BCS       L1218
6D0E   B4A8 000E                 Cmp.L     $E(A0), D2
6D12   6400 0006                 BCC       L1219
6D16   7025           L1218:     MoveQ.L   #$25, D0
6D18   6014                      Bra.B     L1221
6D1A   303C 001D      L1219:     Move      #$1D, D0
6D1E   41EA 000E                 Lea.L     $E(A2), A0
6D22   43EC 0018                 Lea.L     $18(A4), A1
6D26   12D8           L1220:     Move.B    (A0)+, (A1)+
6D28   51C8 FFFC                 DBF       D0, L1220
6D2C   4240                      Clr       D0
6D2E   3D00           L1221:     Move      D0, -(A6)
6D30   2245                      Move.L    D5, A1
6D32   7200                      MoveQ.L   #$0, D1
6D34   204A                      Move.L    A2, A0
6D36   4EBA 0CD2                 Jsr       P_mRelBlock
6D3A   6702                      BEQ.B     L1222
6D3C   3C80                      Move      D0, (A6)
6D3E   301E           L1222:     Move      (A6)+, D0
6D40   4CDE 1F3E      L1223:     MoveM.L   (A6)+, D1-D5/A0-A4
6D44   2F1E                      Move.L    (A6)+, -(A7)
6D46   4A40                      Tst       D0
6D48   4E75                      Rts

                      P_mBTSearch:
6D4A   2F38 0748                 Move.L    ($748), -(A7)
6D4E   4E75                      Rts

                      P_tA0D2_mvBTSearch:
6D50   2D1F                      Move.L    (A7)+, -(A6)
6D52   48E6 1F38                 MoveM.L   D3-D7/A2-A4, -(A6)
6D56   6100 00B8                 Bsr       P194
6D5A   2648                      Move.L    A0, A3
6D5C   95CA                      SubA.L    A2, A2
6D5E   4A82                      Tst.L     D2
6D60   672C                      BEQ.B     L1225
6D62   7200                      MoveQ.L   #$0, D1
6D64   4EBA 069C                 Jsr       P_mGetNode
6D68   664C                      BNE.B     L1227
6D6A   2448                      Move.L    A0, A2
6D6C   0C28 00FF 0008            Cmp.B     #$-1, $8(A0)
6D72   6610                      BNE.B     L1224
6D74   4A68 000A                 Tst       $A(A0)
6D78   6F0A                      BLE.B     L1224
6D7A   204B                      Move.L    A3, A0
6D7C   224A                      Move.L    A2, A1
6D7E   4EBA 086A                 Jsr       P_mSearchNode
6D82   671A                      BEQ.B     L1226
6D84   204A           L1224:     Move.L    A2, A0
6D86   7200                      MoveQ.L   #$0, D1
6D88   4EBA 0846                 Jsr       P_mRelNode
6D8C   6628                      BNE.B     L1227
6D8E   204B           L1225:     Move.L    A3, A0
6D90   4EBA 0452                 Jsr       P_mTreeSearch
6D94   2449                      Move.L    A1, A2
6D96   6706                      BEQ.B     L1226
6D98   0C40 0020                 Cmp       #$20, D0
6D9C   662A                      BNE.B     L1228
6D9E   3A01           L1226:     Move      D1, D5
6DA0   3D00                      Move      D0, -(A6)
6DA2   2942 0012                 Move.L    D2, $12(A4)
6DA6   3945 0016                 Move      D5, $16(A4)
6DAA   4A56                      Tst       (A6)
6DAC   6608                      BNE.B     L1227
6DAE   3005                      Move      D5, D0
6DB0   224A                      Move.L    A2, A1
6DB2   4EBA 0784                 Jsr       P_mLocRec
6DB6   48E6 60C0      L1227:     MoveM.L   D1-D2/A0-A1, -(A6)
6DBA   204A                      Move.L    A2, A0
6DBC   7200                      MoveQ.L   #$0, D1
6DBE   4EBA 0810                 Jsr       P_mRelNode
6DC2   4CDE 0306                 MoveM.L   (A6)+, D1-D2/A0-A1
6DC6   301E                      Move      (A6)+, D0
6DC8   6100 0038      L1228:     Bsr       P193
6DCC   4CDE 1CF8                 MoveM.L   (A6)+, D3-D7/A2-A4
6DD0   2F1E                      Move.L    (A6)+, -(A7)
6DD2   4A40                      Tst       D0
6DD4   4E75                      Rts

                      P_mBTUpdate:
6DD6   2F38 074C                 Move.L    ($74C), -(A7)
6DDA   4E75                      Rts

                      P_tA0D3_mvBTUpdate:
6DDC   2D1F                      Move.L    (A7)+, -(A6)
6DDE   48E6 40C8                 MoveM.L   D1/A0-A1/A4, -(A6)
6DE2   4EBA 074A                 Jsr       P_mLocBTCB
6DE6   7202                      MoveQ.L   #$2, D1
6DE8   4EBA 0618                 Jsr       P_mGetNode
6DEC   660A                      BNE.B     L1229
6DEE   7204                      MoveQ.L   #$4, D1
6DF0   4EBA 07DE                 Jsr       P_mRelNode
6DF4   6602                      BNE.B     L1229
6DF6   4240                      Clr       D0
6DF8   4CDE 1302      L1229:     MoveM.L   (A6)+, D1/A0-A1/A4
6DFC   2F1E                      Move.L    (A6)+, -(A7)
6DFE   4A40                      Tst       D0
6E00   4E75                      Rts

                      P193:
6E02   2F00                      Move.L    D0, -(A7)
6E04   6128                      Bsr.B     P195
6E06   DDC0                      AddA.L    D0, A6
6E08   42AC 000C                 Clr.L     $C(A4)
6E0C   201F                      Move.L    (A7)+, D0
6E0E   4E75                      Rts

                      P194:
6E10   2F00                      Move.L    D0, -(A7)
6E12   4EBA 071A                 Jsr       P_mLocBTCB
6E16   6116                      Bsr.B     P195
6E18   9DC0                      SubA.L    D0, A6
6E1A   294E 000C                 Move.L    A6, $C(A4)
6E1E   0894 0005                 BClr.B    #$5, (A4)
6E22   0894 0004                 BClr.B    #$4, (A4)
6E26   0894 0006                 BClr.B    #$6, (A4)
6E2A   201F                      Move.L    (A7)+, D0
6E2C   4E75                      Rts

                      P195:
6E2E   4EBA 05C6                 Jsr       P_mGetMaxKey
6E32   0640 0030                 Add       #$30, D0
6E36   4E75                      Rts

                      P_mAllocNode:
6E38   2F38 0758                 Move.L    ($758), -(A7)
6E3C   4E75                      Rts

                      P_tA0D6_mvAllocNode:
6E3E   2D1F                      Move.L    (A7)+, -(A6)
6E40   48E6 3830                 MoveM.L   D2-D4/A2-A3, -(A6)
6E44   7800                      MoveQ.L   #$0, D4
6E46   95CA                      SubA.L    A2, A2
6E48   6100 01BC      L1230:     Bsr       P199
6E4C   670A                      BEQ.B     L1231
6E4E   0C40 0020                 Cmp       #$20, D0
6E52   6670                      BNE.B     L1237
6E54   7022                      MoveQ.L   #$22, D0
6E56   606C                      Bra.B     L1237
6E58   3401           L1231:     Move      D1, D2
6E5A   E44A                      LsR       #$2, D2
6E5C   5342                      SubQ      #$1, D2
6E5E   2049                      Move.L    A1, A0
6E60   2018           L1232:     Move.L    (A0)+, D0
6E62   0C80 FFFF FFFF            Cmp.L     #$FFFFFFFF, D0
6E68   660C                      BNE.B     L1233
6E6A   51CA FFF4                 DBF       D2, L1232
6E6E   48C1                      Ext.L     D1
6E70   E789                      LsL.L     #$3, D1
6E72   D881                      Add.L     D1, D4
6E74   60D2                      Bra.B     L1230
6E76   343C 001F      L1233:     Move      #$1F, D2
6E7A   0500           L1234:     BTst.L    D2, D0
6E7C   6704                      BEQ.B     L1235
6E7E   51CA FFFA                 DBF       D2, L1234
6E82   05C0           L1235:     BSet.L    D2, D0
6E84   2600                      Move.L    D0, D3
6E86   41E8 FFFC                 Lea.L     $-4(A0), A0
6E8A   2648                      Move.L    A0, A3
6E8C   91C9                      SubA.L    A1, A0
6E8E   2208                      Move.L    A0, D1
6E90   E789                      LsL.L     #$3, D1
6E92   0681 0000 001F            Add.L     #$1F, D1
6E98   48C2                      Ext.L     D2
6E9A   9282                      Sub.L     D2, D1
6E9C   D284                      Add.L     D4, D1
6E9E   202C 002E                 Move.L    $2E(A4), D0
6EA2   B081                      Cmp.L     D1, D0
6EA4   6E08                      BGT.B     L1236
6EA6   6100 01AA                 Bsr       P200
6EAA   7022                      MoveQ.L   #$22, D0
6EAC   6016                      Bra.B     L1237
6EAE   2683           L1236:     Move.L    D3, (A3)
6EB0   204A                      Move.L    A2, A0
6EB2   4EBA 0B40                 Jsr       P_mMarkBlock
6EB6   53AC 0032                 SubQ      #$1, $32(A4)
6EBA   08D4 0007                 BSet.B    #$7, (A4)
6EBE   4240                      Clr       D0
6EC0   6100 0190                 Bsr       P200
6EC4   4CDE 0C1C      L1237:     MoveM.L   (A6)+, D2-D4/A2-A3
6EC8   2F1E                      Move.L    (A6)+, -(A7)
6ECA   4A40                      Tst       D0
6ECC   4E75                      Rts

                      P_mExtBTFile:
6ECE   2F38 0760                 Move.L    ($760), -(A7)
6ED2   4E75                      Rts

                      P_tA0D8_mvExtBTFile:
6ED4   2D1F                      Move.L    (A7)+, -(A6)
6ED6   48E6 3E20                 MoveM.L   D2-D6/A2, -(A6)
6EDA   322C 0002                 Move      $2(A4), D1
6EDE   2278 034E                 Move.L    (FCBSPtr), A1
6EE2   2471 1014                 Move.L    $14(A1,D1.W), A2
6EE6   7600                      MoveQ.L   #$0, D3
6EE8   2831 101E                 Move.L    $1E(A1,D1.W), D4
6EEC   4EBA EC8E                 Jsr       P_mExtendFile
6EF0   670E                      BEQ.B     L1238
6EF2   0C40 FFDE                 Cmp       #$-22, D0
6EF6   6600 00B2                 BNE       L1244
6EFA   4A86                      Tst.L     D6
6EFC   6700 00AC                 BEQ       L1244
6F00   262C 002E      L1238:     Move.L    $2E(A4), D3
6F04   2803                      Move.L    D3, D4
6F06   2A31 100C                 Move.L    $C(A1,D1.W), D5
6F0A   8AEC 002A                 DivU      $2A(A4), D5
6F0E   4845                      Swap      D5
6F10   4245                      Clr       D5
6F12   4845                      Swap      D5
6F14   2945 002E                 Move.L    D5, $2E(A4)
6F18   5385                      SubQ      #$1, D5
6F1A   2C05                      Move.L    D5, D6
6F1C   95CA                      SubA.L    A2, A2
6F1E   6100 00E6      L1239:     Bsr       P199
6F22   6600 0086                 BNE       L1244
6F26   48C1                      Ext.L     D1
6F28   E789                      LsL.L     #$3, D1
6F2A   9681                      Sub.L     D1, D3
6F2C   9A81                      Sub.L     D1, D5
6F2E   6C06                      BGE.B     L1240
6F30   5384                      SubQ      #$1, D4
6F32   6000 0066                 Bra       L1243
6F36   4A92           L1240:     Tst.L     (A2)
6F38   66E4                      BNE.B     L1239
6F3A   2484                      Move.L    D4, (A2)
6F3C   4A83                      Tst.L     D3
6F3E   6C16                      BGE.B     L1241
6F40   D681                      Add.L     D1, D3
6F42   86FC 0008                 DivU      #$8, D3
6F46   3003                      Move      D3, D0
6F48   4243                      Clr       D3
6F4A   4843                      Swap      D3
6F4C   7207                      MoveQ.L   #$7, D1
6F4E   9283                      Sub.L     D3, D1
6F50   03F1 0000                 BSet.L    D1, $0(A1,D0.W)
6F54   76FF                      MoveQ.L   #$-1, D3
6F56   204A           L1241:     Move.L    A2, A0
6F58   4EBA 0A9A                 Jsr       P_mMarkBlock
6F5C   6100 00F4                 Bsr       P200
6F60   6648                      BNE.B     L1244
6F62   2204                      Move.L    D4, D1
6F64   4EBA 0524                 Jsr       P_mInitNode
6F68   2448                      Move.L    A0, A2
6F6A   157C 0002 0008            Move.B    #$2, $8(A2)
6F70   357C 0001 000A            Move      #$1, $A(A2)
6F76   322C 002A                 Move      $2A(A4), D1
6F7A   70EE                      MoveQ.L   #$-12, D0
6F7C   D041                      Add       D1, D0
6F7E   E448                      LsR       #$2, D0
6F80   E548                      LsL       #$2, D0
6F82   0640 000E                 Add       #$E, D0
6F86   3580 10FC                 Move      D0, $-4(A2,D1.W)
6F8A   4A83                      Tst.L     D3
6F8C   6D06                      BLT.B     L1242
6F8E   157C 0080 000E            Move.B    #$-80, $E(A2)
6F94   204A           L1242:     Move.L    A2, A0
6F96   4EBA 0A5C                 Jsr       P_mMarkBlock
6F9A   9C84           L1243:     Sub.L     D4, D6
6F9C   DDAC 0032                 Add.L     D6, $32(A4)
6FA0   08D4 0007                 BSet.B    #$7, (A4)
6FA4   4200                      Clr.B     D0
6FA6   6100 00AA                 Bsr       P200
6FAA   4CDE 047C      L1244:     MoveM.L   (A6)+, D2-D6/A2
6FAE   2F1E                      Move.L    (A6)+, -(A7)
6FB0   4A40                      Tst       D0
6FB2   4E75                      Rts

                      P_mFreeNode:
6FB4   2F38 075C                 Move.L    ($75C), -(A7)
6FB8   4E75                      Rts

                      P_tA0D7_mvFreeNode:
6FBA   2D1F                      Move.L    (A7)+, -(A6)
6FBC   48E6 3020                 MoveM.L   D2-D3/A2, -(A6)
6FC0   2601                      Move.L    D1, D3
6FC2   95CA                      SubA.L    A2, A2
6FC4   6100 0040      L1245:     Bsr       P199
6FC8   6632                      BNE.B     L1246
6FCA   48C1                      Ext.L     D1
6FCC   E789                      LsL.L     #$3, D1
6FCE   9681                      Sub.L     D1, D3
6FD0   6CF2                      BGE.B     L1245
6FD2   D681                      Add.L     D1, D3
6FD4   86FC 0008                 DivU      #$8, D3
6FD8   4280                      Clr.L     D0
6FDA   3003                      Move      D3, D0
6FDC   4243                      Clr       D3
6FDE   4843                      Swap      D3
6FE0   7207                      MoveQ.L   #$7, D1
6FE2   9283                      Sub.L     D3, D1
6FE4   03B1 0000                 BClr.L    D1, $0(A1,D0.W)
6FE8   204A                      Move.L    A2, A0
6FEA   4EBA 0A08                 Jsr       P_mMarkBlock
6FEE   52AC 0032                 AddQ      #$1, $32(A4)
6FF2   08D4 0007                 BSet.B    #$7, (A4)
6FF6   4200                      Clr.B     D0
6FF8   6100 0058                 Bsr       P200
6FFC   4CDE 040C      L1246:     MoveM.L   (A6)+, D2-D3/A2
7000   2F1E                      Move.L    (A6)+, -(A7)
7002   4A40                      Tst       D0
7004   4E75                      Rts

                      P199:
7006   2D1F                      Move.L    (A7)+, -(A6)
7008   7400                      MoveQ.L   #$0, D2
700A   200A                      Move.L    A2, D0
700C   6710                      BEQ.B     L1247
700E   2412                      Move.L    (A2), D2
7010   6100 0040                 Bsr       P200
7014   6636                      BNE.B     L1249
7016   4A82                      Tst.L     D2
7018   6604                      BNE.B     L1247
701A   7020                      MoveQ.L   #$20, D0
701C   602E                      Bra.B     L1249
701E   7200           L1247:     MoveQ.L   #$0, D1
7020   4EBA 03E0                 Jsr       P_mGetNode
7024   6626                      BNE.B     L1249
7026   2448                      Move.L    A0, A2
7028   7000                      MoveQ.L   #$0, D0
702A   0C2A 0001 0008            Cmp.B     #$1, $8(A2)
7030   6602                      BNE.B     L1248
7032   7002                      MoveQ.L   #$2, D0
7034   224A           L1248:     Move.L    A2, A1
7036   4EBA 0436                 Jsr       P_mGetRecA
703A   2208                      Move.L    A0, D1
703C   302A 000A                 Move      $A(A2), D0
7040   4EBA 042C                 Jsr       P_mGetRecA
7044   2241                      Move.L    D1, A1
7046   91C9                      SubA.L    A1, A0
7048   3208                      Move      A0, D1
704A   4240                      Clr       D0
704C   2F1E           L1249:     Move.L    (A6)+, -(A7)
704E   4A40                      Tst       D0
7050   4E75                      Rts

                      P200:
7052   2D1F                      Move.L    (A7)+, -(A6)
7054   48E6 40C0                 MoveM.L   D1/A0-A1, -(A6)
7058   7200                      MoveQ.L   #$0, D1
705A   204A                      Move.L    A2, A0
705C   4EBA 0572                 Jsr       P_mRelNode
7060   95CA                      SubA.L    A2, A2
7062   4CDE 0302                 MoveM.L   (A6)+, D1/A0-A1
7066   2F1E                      Move.L    (A6)+, -(A7)
7068   4A40                      Tst       D0
706A   4E75                      Rts

                      P_mRotateLT:
706C   48E7 3F3C                 MoveM.L   D2-D7/A2-A5, -(A7)
7070   2A48                      Move.L    A0, A5
7072   3A00                      Move      D0, D5
7074   224A                      Move.L    A2, A1
7076   4EBA 03C4                 Jsr       P_mGetNodeSiz
707A   3400                      Move      D0, D2
707C   224B                      Move.L    A3, A1
707E   4EBA 03BC                 Jsr       P_mGetNodeSiz
7082   D042                      Add       D2, D0
7084   D045                      Add       D5, D0
7086   5440                      AddQ      #$2, D0
7088   E248                      LsR       #$1, D0
708A   3C00                      Move      D0, D6
708C   362A 000A                 Move      $A(A2), D3
7090   3801                      Move      D1, D4
7092   D843                      Add       D3, D4
7094   7EFF                      MoveQ.L   #$-1, D7
7096   B843           L1250:     Cmp       D3, D4
7098   6604                      BNE.B     L1251
709A   D445                      Add       D5, D2
709C   6012                      Bra.B     L1253
709E   3003           L1251:     Move      D3, D0
70A0   906A 000A                 Sub       $A(A2), D0
70A4   B644                      Cmp       D4, D3
70A6   6F02                      BLE.B     L1252
70A8   5340                      SubQ      #$1, D0
70AA   4EBA 03C2      L1252:     Jsr       P_mGetRecA
70AE   D440                      Add       D0, D2
70B0   5442           L1253:     AddQ      #$2, D2
70B2   322C 002A                 Move      $2A(A4), D1
70B6   0441 0010                 Sub       #$10, D1
70BA   B441                      Cmp       D1, D2
70BC   6F0C                      BLE.B     L1254
70BE   4847                      Swap      D7
70C0   4A47                      Tst       D7
70C2   6C3C                      BGE.B     L1258
70C4   70FF                      MoveQ.L   #$-1, D0
70C6   6000 008C                 Bra       L1265
70CA   3006           L1254:     Move      D6, D0
70CC   E348                      LsL       #$1, D0
70CE   9042                      Sub       D2, D0
70D0   B041                      Cmp       D1, D0
70D2   6E02                      BGT.B     L1255
70D4   3E03                      Move      D3, D7
70D6   B446           L1255:     Cmp       D6, D2
70D8   6D0E                      BLT.B     L1257
70DA   6702                      BEQ.B     L1256
70DC   4847                      Swap      D7
70DE   4A47           L1256:     Tst       D7
70E0   6C1E                      BGE.B     L1258
70E2   4847                      Swap      D7
70E4   4A47                      Tst       D7
70E6   6C18                      BGE.B     L1258
70E8   4847           L1257:     Swap      D7
70EA   3E3C FFFF                 Move      #$-1, D7
70EE   5243                      AddQ      #$1, D3
70F0   322A 000A                 Move      $A(A2), D1
70F4   D26B 000A                 Add       $A(A3), D1
70F8   B641                      Cmp       D1, D3
70FA   6F9A                      BLE.B     L1250
70FC   70FF                      MoveQ.L   #$-1, D0
70FE   6054                      Bra.B     L1265
7100   362A 000A      L1258:     Move      $A(A2), D3
7104   B843           L1259:     Cmp       D3, D4
7106   6616                      BNE.B     L1260
7108   224A                      Move.L    A2, A1
710A   204D                      Move.L    A5, A0
710C   3005                      Move      D5, D0
710E   3229 000A                 Move      $A(A1), D1
7112   4EBA 03A8                 Jsr       P_mInsertRec
7116   6632                      BNE.B     L1263
7118   2A49                      Move.L    A1, A5
711A   3A01                      Move      D1, D5
711C   600A                      Bra.B     L1261
711E   204A           L1260:     Move.L    A2, A0
7120   224B                      Move.L    A3, A1
7122   6100 0148                 Bsr       P204
7126   6622                      BNE.B     L1263
7128   B647           L1261:     Cmp       D7, D3
712A   6704                      BEQ.B     L1262
712C   5243                      AddQ      #$1, D3
712E   60D4                      Bra.B     L1259
7130   B847           L1262:     Cmp       D7, D4
7132   6F1A                      BLE.B     L1264
7134   224B                      Move.L    A3, A1
7136   204D                      Move.L    A5, A0
7138   3005                      Move      D5, D0
713A   3204                      Move      D4, D1
713C   9247                      Sub       D7, D1
713E   5341                      SubQ      #$1, D1
7140   4EBA 037A                 Jsr       P_mInsertRec
7144   6604                      BNE.B     L1263
7146   4240                      Clr       D0
7148   600A                      Bra.B     L1265
714A   7040           L1263:     MoveQ.L   #$40, D0
714C   A9C9                      _SysError
714E   4240           L1264:     Clr       D0
7150   224D                      Move.L    A5, A1
7152   3205                      Move      D5, D1
7154   4CDF 3CFC      L1265:     MoveM.L   (A7)+, D2-D7/A2-A5
7158   4A40                      Tst       D0
715A   4E75                      Rts

                      P_mSplitLT:
715C   2D1F                      Move.L    (A7)+, -(A6)
715E   48E6 1F10                 MoveM.L   D3-D7/A3, -(A6)
7162   2E08                      Move.L    A0, D7
7164   3C00                      Move      D0, D6
7166   3A01                      Move      D1, D5
7168   302C 0010                 Move      $10(A4), D0
716C   4EBA 03FC                 Jsr       P_mLocTPR
7170   2810                      Move.L    (A0), D4
7172   302C 0002                 Move      $2(A4), D0
7176   4EBA FCC0                 Jsr       P_mAllocNode
717A   665E                      BNE.B     L1269
717C   2601                      Move.L    D1, D3
717E   200A                      Move.L    A2, D0
7180   670C                      BEQ.B     L1266
7182   2483                      Move.L    D3, (A2)
7184   7204                      MoveQ.L   #$4, D1
7186   204A                      Move.L    A2, A0
7188   4EBA 0446                 Jsr       P_mRelNode
718C   664C                      BNE.B     L1269
718E   2203           L1266:     Move.L    D3, D1
7190   4EBA 02F8                 Jsr       P_mInitNode
7194   2448                      Move.L    A0, A2
7196   156B 0008 0008            Move.B    $8(A3), $8(A2)
719C   256B 0004 0004            Move.L    $4(A3), $4(A2)
71A2   2484                      Move.L    D4, (A2)
71A4   2743 0004                 Move.L    D3, $4(A3)
71A8   7001                      MoveQ.L   #$1, D0
71AA   D06C 0018                 Add       $18(A4), D0
71AE   906C 0010                 Sub       $10(A4), D0
71B2   1540 0009                 Move.B    D0, $9(A2)
71B6   0C2A 00FF 0008            Cmp.B     #$-1, $8(A2)
71BC   660A                      BNE.B     L1267
71BE   4AAA 0004                 Tst.L     $4(A2)
71C2   6604                      BNE.B     L1267
71C4   2943 0022                 Move.L    D3, $22(A4)
71C8   2047           L1267:     Move.L    D7, A0
71CA   3006                      Move      D6, D0
71CC   3205                      Move      D5, D1
71CE   4EBA FE9C                 Jsr       P_mRotateLT
71D2   6702                      BEQ.B     L1268
71D4   6004                      Bra.B     L1269
71D6   4240           L1268:     Clr       D0
71D8   2403                      Move.L    D3, D2
71DA   4CDE 08F8      L1269:     MoveM.L   (A6)+, D3-D7/A3
71DE   2F1E                      Move.L    (A6)+, -(A7)
71E0   4A40                      Tst       D0
71E2   4E75                      Rts

                      P_mTreeSearch:
71E4   2D1F                      Move.L    (A7)+, -(A6)
71E6   48E6 1F30                 MoveM.L   D3-D7/A2-A3, -(A6)
71EA   2E08                      Move.L    A0, D7
71EC   4A6C 0018                 Tst       $18(A4)
71F0   6E10                      BGT.B     L1270
71F2   7020                      MoveQ.L   #$20, D0
71F4   93C9                      SubA.L    A1, A1
71F6   4281                      Clr.L     D1
71F8   4282                      Clr.L     D2
71FA   426C 0010                 Clr       $10(A4)
71FE   6000 0062                 Bra       L1274
7202   7C01           L1270:     MoveQ.L   #$1, D6
7204   262C 001A                 Move.L    $1A(A4), D3
7208   7200           L1271:     MoveQ.L   #$0, D1
720A   2403                      Move.L    D3, D2
720C   4EBA 01F4                 Jsr       P_mGetNode
7210   6600 0050                 BNE       L1274
7214   2248                      Move.L    A0, A1
7216   2047                      Move.L    D7, A0
7218   4EBA 03D0                 Jsr       P_mSearchNode
721C   3A00                      Move      D0, D5
721E   3801                      Move      D1, D4
7220   3006                      Move      D6, D0
7222   4EBA 0346                 Jsr       P_mLocTPR
7226   2648                      Move.L    A0, A3
7228   2683                      Move.L    D3, (A3)
722A   3404                      Move      D4, D2
722C   4A45                      Tst       D5
722E   6706                      BEQ.B     L1272
7230   5342                      SubQ      #$1, D2
7232   6C02                      BGE.B     L1272
7234   3404                      Move      D4, D2
7236   3742 0004      L1272:     Move      D2, $4(A3)
723A   BC6C 0018                 Cmp       $18(A4), D6
723E   6718                      BEQ.B     L1273
7240   3202                      Move      D2, D1
7242   2F09                      Move.L    A1, -(A7)
7244   4EBA 02F2                 Jsr       P_mLocRec
7248   2611                      Move.L    (A1), D3
724A   225F                      Move.L    (A7)+, A1
724C   7200                      MoveQ.L   #$0, D1
724E   2049                      Move.L    A1, A0
7250   4EBA 037E                 Jsr       P_mRelNode
7254   5246                      AddQ      #$1, D6
7256   60B0                      Bra.B     L1271
7258   3946 0010      L1273:     Move      D6, $10(A4)
725C   3204                      Move      D4, D1
725E   3005                      Move      D5, D0
7260   2403                      Move.L    D3, D2
7262   4CDE 0CF8      L1274:     MoveM.L   (A6)+, D3-D7/A2-A3
7266   2F1E                      Move.L    (A6)+, -(A7)
7268   4A40                      Tst       D0
726A   4E75                      Rts

                      P204:
726C   48E7 0030                 MoveM.L   A2-A3, -(A7)
7270   2448                      Move.L    A0, A2
7272   2649                      Move.L    A1, A3
7274   7000                      MoveQ.L   #$0, D0
7276   4EBA 01F6                 Jsr       P_mGetRecA
727A   41E9 000E                 Lea.L     $E(A1), A0
727E   224A                      Move.L    A2, A1
7280   3229 000A                 Move      $A(A1), D1
7284   4EBA 0236                 Jsr       P_mInsertRec
7288   224B                      Move.L    A3, A1
728A   6704                      BEQ.B     L1275
728C   70FF                      MoveQ.L   #$-1, D0
728E   6008                      Bra.B     L1276
7290   4241           L1275:     Clr       D1
7292   4EBA 00D6                 Jsr       P_mDeleteRec
7296   4240                      Clr       D0
7298   4A40           L1276:     Tst       D0
729A   4CDF 0C00                 MoveM.L   (A7)+, A2-A3
729E   4E75                      Rts

                      P_mBuildIRec:
72A0   2F02                      Move.L    D2, -(A7)
72A2   2400                      Move.L    D0, D2
72A4   4240                      Clr       D0
72A6   6100 01C6                 Bsr       P_mGetRecA
72AA   226C 000C                 Move.L    $C(A4), A1
72AE   43E9 0030                 Lea.L     $30(A1), A1
72B2   4EBA 03B4                 Jsr       P_mUpdIKey
72B6   6100 013E                 Bsr       P_mGetMaxKey
72BA   2382 0000                 Move.L    D2, $0(A1,D0.W)
72BE   241F                      Move.L    (A7)+, D2
72C0   4E75                      Rts

                      P_mChkNode:
72C2   48E7 60E0                 MoveM.L   D1-D2/A0-A2, -(A7)
72C6   322C 0002                 Move      $2(A4), D1
72CA   2478 034E                 Move.L    (FCBSPtr), A2
72CE   2032 100C                 Move.L    $C(A2,D1.W), D0
72D2   80EC 002A                 DivU      $2A(A4), D0
72D6   7200                      MoveQ.L   #$0, D1
72D8   3200                      Move      D0, D1
72DA   B291                      Cmp.L     (A1), D1
72DC   6362                      BLS.B     L1278
72DE   B2A9 0004                 Cmp.L     $4(A1), D1
72E2   6300 005C                 BLS       L1278
72E6   1029 0008                 Move.B    $8(A1), D0
72EA   5200                      AddQ      #$1, D0
72EC   0C00 0003                 Cmp.B     #$3, D0
72F0   624E                      BHI.B     L1278
72F2   1029 0009                 Move.B    $9(A1), D0
72F6   B02C 0019                 Cmp.B     $19(A4), D0
72FA   6244                      BHI.B     L1278
72FC   7200                      MoveQ.L   #$0, D1
72FE   322C 002A                 Move      $2A(A4), D1
7302   70F2                      MoveQ.L   #$-E, D0
7304   D081                      Add.L     D1, D0
7306   80FC 0006                 DivU      #$6, D0
730A   B069 000A                 Cmp       $A(A1), D0
730E   6500 0030                 BCS       L1278
7312   3229 000A                 Move      $A(A1), D1
7316   3001                      Move      D1, D0
7318   6100 013A                 Bsr       P_mGetOffset
731C   7402                      MoveQ.L   #$2, D2
731E   D488                      Add.L     A0, D2
7320   9489                      Sub.L     A1, D2
7322   3018           L1277:     Move      (A0)+, D0
7324   0800 0000                 BTst.B    #$0, D0
7328   6616                      BNE.B     L1278
732A   0C40 000E                 Cmp       #$E, D0
732E   6500 0010                 BCS       L1278
7332   B042                      Cmp       D2, D0
7334   6400 000A                 BCC       L1278
7338   3400                      Move      D0, D2
733A   51C9 FFE6                 DBF       D1, L1277
733E   6004                      Bra.B     L1279
7340   7024           L1278:     MoveQ.L   #$24, D0
7342   6002                      Bra.B     L1280
7344   4240           L1279:     Clr       D0
7346   4CDF 0706      L1280:     MoveM.L   (A7)+, D1-D2/A0-A2
734A   4A40                      Tst       D0
734C   4E75                      Rts

                      P_mClrNode:
734E   48E7 C080                 MoveM.L   D0-D1/A0, -(A7)
7352   7203                      MoveQ.L   #$3, D1
7354   D26C 002A                 Add       $2A(A4), D1
7358   E449                      LsR       #$2, D1
735A   5341                      SubQ      #$1, D1
735C   7000                      MoveQ.L   #$0, D0
735E   20C0           L1281:     Move.L    D0, (A0)+
7360   51C9 FFFC                 DBF       D1, L1281
7364   4CDF 0103                 MoveM.L   (A7)+, D0-D1/A0
7368   4E75                      Rts

                      P_mDeleteRec:
736A   48E7 3E3C                 MoveM.L   D2-D6/A2-A5, -(A7)
736E   3A01                      Move      D1, D5
7370   3001                      Move      D1, D0
7372   4EBA 00E0                 Jsr       P_mGetOffset
7376   2C08                      Move.L    A0, D6
7378   3800                      Move      D0, D4
737A   47E8 FFFE                 Lea.L     $-2(A0), A3
737E   3613                      Move      (A3), D3
7380   3029 000A                 Move      $A(A1), D0
7384   4EBA 00CE                 Jsr       P_mGetOffset
7388   2448                      Move.L    A0, A2
738A   3400                      Move      D0, D2
738C   2A49                      Move.L    A1, A5
738E   41F5 3000                 Lea.L     $0(A5,D3.W), A0
7392   43F5 4000                 Lea.L     $0(A5,D4.W), A1
7396   3002                      Move      D2, D0
7398   9043                      Sub       D3, D0
739A   4EBA 0204                 Jsr       P_mMovRecLT
739E   536D 000A                 SubQ      #$1, $A(A5)
73A2   204B                      Move.L    A3, A0
73A4   2246                      Move.L    D6, A1
73A6   302D 000A                 Move      $A(A5), D0
73AA   9045                      Sub       D5, D0
73AC   3204                      Move      D4, D1
73AE   9243                      Sub       D3, D1
73B0   4EBA 01D8                 Jsr       P_mMovOffRT
73B4   4CDF 3C7C                 MoveM.L   (A7)+, D2-D6/A2-A5
73B8   4E75                      Rts

                      P_mGetLTSib:
73BA   2D1F                      Move.L    (A7)+, -(A6)
73BC   48E6 3000                 MoveM.L   D2-D3, -(A6)
73C0   4203                      Clr.B     D3
73C2   6008                      Bra.B     L1282

                      P_mGetRTSib:
73C4   2D1F                      Move.L    (A7)+, -(A6)
73C6   48E6 3000                 MoveM.L   D2-D3, -(A6)
73CA   7601                      MoveQ.L   #$1, D3
73CC   4A03           L1282:     Tst.B     D3
73CE   6606                      BNE.B     L1283
73D0   2428 0004                 Move.L    $4(A0), D2
73D4   6002                      Bra.B     L1284
73D6   2410           L1283:     Move.L    (A0), D2
73D8   6604           L1284:     BNE.B     L1285
73DA   4281                      Clr.L     D1
73DC   600C                      Bra.B     L1286
73DE   7200           L1285:     MoveQ.L   #$0, D1
73E0   6100 0020                 Bsr       P_mGetNode
73E4   6606                      BNE.B     L1287
73E6   2202                      Move.L    D2, D1
73E8   2248                      Move.L    A0, A1
73EA   4240           L1286:     Clr       D0
73EC   4CDE 000C      L1287:     MoveM.L   (A6)+, D2-D3
73F0   2F1E                      Move.L    (A6)+, -(A7)
73F2   4A40                      Tst       D0
73F4   4E75                      Rts

                      P_mGetMaxKey:
73F6   7001                      MoveQ.L   #$1, D0
73F8   D06C 002C                 Add       $2C(A4), D0
73FC   E248                      LsR       #$1, D0
73FE   E348                      LsL       #$1, D0
7400   4E75                      Rts

                      P_mGetNode:
7402   2F38 0750                 Move.L    ($750), -(A7)
7406   4E75                      Rts

                      P_tA0D4_mvGetNode:
7408   2D1F                      Move.L    (A7)+, -(A6)
740A   48E6 4040                 MoveM.L   D1/A1, -(A6)
740E   302C 0002                 Move      $2(A4), D0
7412   226C 0008                 Move.L    $8(A4), A1
7416   4EBA 0398                 Jsr       P_mGetBlock
741A   6616                      BNE.B     L1288
741C   2248                      Move.L    A0, A1
741E   6100 FEA2                 Bsr       P_mChkNode
7422   670E                      BEQ.B     L1288
7424   3D00                      Move      D0, -(A6)
7426   7202                      MoveQ.L   #$2, D1
7428   226C 0008                 Move.L    $8(A4), A1
742C   4EBA 05DC                 Jsr       P_mRelBlock
7430   301E                      Move      (A6)+, D0
7432   4CDE 0202      L1288:     MoveM.L   (A6)+, D1/A1
7436   2F1E                      Move.L    (A6)+, -(A7)
7438   4A40                      Tst       D0
743A   4E75                      Rts

                      P_mGetNodeSiz:
743C   2F01                      Move.L    D1, -(A7)
743E   3229 000A                 Move      $A(A1), D1
7442   3001                      Move      D1, D0
7444   4EBA 000E                 Jsr       P_mGetOffset
7448   0440 000E                 Sub       #$E, D0
744C   E349                      LsL       #$1, D1
744E   D041                      Add       D1, D0
7450   221F                      Move.L    (A7)+, D1
7452   4E75                      Rts

                      P_mGetOffset:
7454   6100 0006                 Bsr       P215
7458   3010                      Move      (A0), D0
745A   4E75                      Rts

                      P215:
745C   91C8                      SubA.L    A0, A0
745E   306C 002A                 Move      $2A(A4), A0
7462   D1C9                      AddA.L    A1, A0
7464   E348                      LsL       #$1, D0
7466   4440                      Neg       D0
7468   41F0 00FE                 Lea.L     $-2(A0,D0.W), A0
746C   4E75                      Rts

                      P_mGetRecA:
746E   48E7 6000                 MoveM.L   D1-D2, -(A7)
7472   3200                      Move      D0, D1
7474   61DE                      Bsr.B     P_mGetOffset
7476   3400                      Move      D0, D2
7478   3001                      Move      D1, D0
747A   5240                      AddQ      #$1, D0
747C   61D6                      Bsr.B     P_mGetOffset
747E   9042                      Sub       D2, D0
7480   41F1 2000                 Lea.L     $0(A1,D2.W), A0
7484   4CDF 0006                 MoveM.L   (A7)+, D1-D2
7488   4E75                      Rts

                      P_mInitNode:
748A   2D1F                      Move.L    (A7)+, -(A6)
748C   48E6 6040                 MoveM.L   D1-D2/A1, -(A6)
7490   2401                      Move.L    D1, D2
7492   302C 0002                 Move      $2(A4), D0
7496   7204                      MoveQ.L   #$4, D1
7498   226C 0008                 Move.L    $8(A4), A1
749C   4EBA 0312                 Jsr       P_mGetBlock
74A0   6610                      BNE.B     L1289
74A2   6100 FEAA                 Bsr       P_mClrNode
74A6   342C 002A                 Move      $2A(A4), D2
74AA   31BC 000E 20FE            Move      #$E, $-2(A0,D2.W)
74B0   4240                      Clr       D0
74B2   4CDE 0206      L1289:     MoveM.L   (A6)+, D1-D2/A1
74B6   2F1E                      Move.L    (A6)+, -(A7)
74B8   4A40                      Tst       D0
74BA   4E75                      Rts

                      P_mInsertRec:
74BC   48E7 7F7C                 MoveM.L   D1-D7/A1-A5, -(A7)
74C0   3E00                      Move      D0, D7
74C2   3C01                      Move      D1, D6
74C4   2A08                      Move.L    A0, D5
74C6   3001                      Move      D1, D0
74C8   4EBA FF8A                 Jsr       P_mGetOffset
74CC   3800                      Move      D0, D4
74CE   3029 000A                 Move      $A(A1), D0
74D2   4EBA FF80                 Jsr       P_mGetOffset
74D6   2648                      Move.L    A0, A3
74D8   3600                      Move      D0, D3
74DA   220B                      Move.L    A3, D1
74DC   4280                      Clr.L     D0
74DE   3003                      Move      D3, D0
74E0   D089                      Add.L     A1, D0
74E2   9280                      Sub.L     D0, D1
74E4   7002                      MoveQ.L   #$2, D0
74E6   D047                      Add       D7, D0
74E8   B240                      Cmp       D0, D1
74EA   6C04                      BGE.B     L1290
74EC   70FF                      MoveQ.L   #$-1, D0
74EE   6036                      Bra.B     L1291
74F0   2A49           L1290:     Move.L    A1, A5
74F2   41F5 4000                 Lea.L     $0(A5,D4.W), A0
74F6   43F0 7000                 Lea.L     $0(A0,D7.W), A1
74FA   3003                      Move      D3, D0
74FC   9044                      Sub       D4, D0
74FE   4EBA 00B6                 Jsr       P_mMovRecRT
7502   204B                      Move.L    A3, A0
7504   43E8 FFFE                 Lea.L     $-2(A0), A1
7508   302D 000A                 Move      $A(A5), D0
750C   9046                      Sub       D6, D0
750E   3207                      Move      D7, D1
7510   4EBA 0068                 Jsr       P_mMovOffLT
7514   2045                      Move.L    D5, A0
7516   43F5 4000                 Lea.L     $0(A5,D4.W), A1
751A   3007                      Move      D7, D0
751C   4EBA 0082                 Jsr       P_mMovRecLT
7520   526D 000A                 AddQ      #$1, $A(A5)
7524   4240                      Clr       D0
7526   4CDF 3EFE      L1291:     MoveM.L   (A7)+, D1-D7/A1-A5
752A   4A40                      Tst       D0
752C   4E75                      Rts

                      P_mLocBTCB:
752E   2878 034E                 Move.L    (FCBSPtr), A4
7532   2874 0022                 Move.L    $22(A4,D0.W), A4
7536   4E75                      Rts

                      P_mLocRec:
7538   48E7 B000                 MoveM.L   D0/D2-D3, -(A7)
753C   3601                      Move      D1, D3
753E   3003                      Move      D3, D0
7540   4EBA FF2C                 Jsr       P_mGetRecA
7544   2408                      Move.L    A0, D2
7546   3003                      Move      D3, D0
7548   5240                      AddQ      #$1, D0
754A   4EBA FF22                 Jsr       P_mGetRecA
754E   2208                      Move.L    A0, D1
7550   2042                      Move.L    D2, A0
7552   7000                      MoveQ.L   #$0, D0
7554   1010                      Move.B    (A0), D0
7556   5480                      AddQ      #$2, D0
7558   E288                      LsR.L     #$1, D0
755A   E388                      LsL.L     #$1, D0
755C   9282                      Sub.L     D2, D1
755E   9280                      Sub.L     D0, D1
7560   2248                      Move.L    A0, A1
7562   D3C0                      AddA.L    D0, A1
7564   4CDF 000D                 MoveM.L   (A7)+, D0/D2-D3
7568   4E75                      Rts

                      P_mLocTPR:
756A   5340                      SubQ      #$1, D0
756C   C0FC 0006                 MulU      #$6, D0
7570   206C 000C                 Move.L    $C(A4), A0
7574   41F0 0800                 Lea.L     $0(A0,D0.L), A0
7578   4E75                      Rts

                      P_mMovOffLT:
757A   48E7 E0C0                 MoveM.L   D0-D2/A0-A1, -(A7)
757E   3418           L1292:     Move      (A0)+, D2
7580   D441                      Add       D1, D2
7582   32C2                      Move      D2, (A1)+
7584   51C8 FFF8                 DBF       D0, L1292
7588   6010                      Bra.B     L1294

                      P_mMovOffRT:
758A   48E7 E0C0                 MoveM.L   D0-D2/A0-A1, -(A7)
758E   B348                      CmpM      (A0)+, (A1)+
7590   3420           L1293:     Move      -(A0), D2
7592   D441                      Add       D1, D2
7594   3302                      Move      D2, -(A1)
7596   51C8 FFF8                 DBF       D0, L1293
759A   4CDF 0307      L1294:     MoveM.L   (A7)+, D0-D2/A0-A1
759E   4E75                      Rts

                      P_mMovRecLT:
75A0   48E7 C0C0                 MoveM.L   D0-D1/A0-A1, -(A7)
75A4   4A40                      Tst       D0
75A6   6F08                      BLE.B     L1296
75A8   5340                      SubQ      #$1, D0
75AA   12D8           L1295:     Move.B    (A0)+, (A1)+
75AC   51C8 FFFC                 DBF       D0, L1295
75B0   4CDF 0303      L1296:     MoveM.L   (A7)+, D0-D1/A0-A1
75B4   4E75                      Rts

                      P_mMovRecRT:
75B6   48E7 C0C0                 MoveM.L   D0-D1/A0-A1, -(A7)
75BA   4A40                      Tst       D0
75BC   6F0C                      BLE.B     L1298
75BE   D0C0                      AddA      D0, A0
75C0   D2C0                      AddA      D0, A1
75C2   5340                      SubQ      #$1, D0
75C4   1320           L1297:     Move.B    -(A0), -(A1)
75C6   51C8 FFFC                 DBF       D0, L1297
75CA   4CDF 0303      L1298:     MoveM.L   (A7)+, D0-D1/A0-A1
75CE   4E75                      Rts

                      P_mRelNode:
75D0   2F38 0754                 Move.L    ($754), -(A7)
75D4   4E75                      Rts

                      P_tA0D5_mvRelNode:
75D6   2D1F                      Move.L    (A7)+, -(A6)
75D8   2D09                      Move.L    A1, -(A6)
75DA   2008                      Move.L    A0, D0
75DC   6704                      BEQ.B     L1299
75DE   4EBA 042A                 Jsr       P_mRelBlock
75E2   225E           L1299:     Move.L    (A6)+, A1
75E4   2F1E                      Move.L    (A6)+, -(A7)
75E6   4A40                      Tst       D0
75E8   4E75                      Rts

                      P_mSearchNode:
75EA   48E7 3C70                 MoveM.L   D2-D5/A1-A3, -(A7)
75EE   2648                      Move.L    A0, A3
75F0   2449                      Move.L    A1, A2
75F2   2A2C 0004                 Move.L    $4(A4), D5
75F6   4242                      Clr       D2
75F8   362A 000A                 Move      $A(A2), D3
75FC   5343                      SubQ      #$1, D3
75FE   B443                      Cmp       D3, D2
7600   6E36                      BGT.B     L1303
7602   3802           L1300:     Move      D2, D4
7604   D843                      Add       D3, D4
7606   E24C                      LsR       #$1, D4
7608   3004                      Move      D4, D0
760A   224A                      Move.L    A2, A1
760C   4EBA FE60                 Jsr       P_mGetRecA
7610   2248                      Move.L    A0, A1
7612   204B                      Move.L    A3, A0
7614   2F0C                      Move.L    A4, -(A7)
7616   2845                      Move.L    D5, A4
7618   4E94                      Jsr       (A4)
761A   285F                      Move.L    (A7)+, A4
761C   4A40                      Tst       D0
761E   670C                      BEQ.B     L1301
7620   6E0E                      BGT.B     L1302
7622   3604                      Move      D4, D3
7624   5343                      SubQ      #$1, D3
7626   B443                      Cmp       D3, D2
7628   6FD8                      BLE.B     L1300
762A   600C                      Bra.B     L1303
762C   4240           L1301:     Clr       D0
762E   600C                      Bra.B     L1304
7630   3404           L1302:     Move      D4, D2
7632   5242                      AddQ      #$1, D2
7634   B443                      Cmp       D3, D2
7636   6FCA                      BLE.B     L1300
7638   3802           L1303:     Move      D2, D4
763A   7020                      MoveQ.L   #$20, D0
763C   3204           L1304:     Move      D4, D1
763E   4CDF 0E3C                 MoveM.L   (A7)+, D2-D5/A1-A3
7642   4A40                      Tst       D0
7644   4E75                      Rts

                      P_mUpdDRec:
7646   48E7 C0E0                 MoveM.L   D0-D1/A0-A2, -(A7)
764A   2448                      Move.L    A0, A2
764C   4EBA FEEA                 Jsr       P_mLocRec
7650   220A                      Move.L    A2, D1
7652   670A                      BEQ.B     L1306
7654   2041                      Move.L    D1, A0
7656   48C0                      Ext.L     D0
7658   A02E                      _BlockMove
765A   6006                      Bra.B     L1307
765C   4219           L1305:     Clr.B     (A1)+
765E   51C8 FFFC      L1306:     DBF       D0, L1305
7662   4CDF 0703      L1307:     MoveM.L   (A7)+, D0-D1/A0-A2
7666   4E75                      Rts

                      P_mUpdIKey:
7668   48E7 C0E0                 MoveM.L   D0-D1/A0-A2, -(A7)
766C   2448                      Move.L    A0, A2
766E   322C 002C                 Move      $2C(A4), D1
7672   12C1                      Move.B    D1, (A1)+
7674   204A                      Move.L    A2, A0
7676   1018                      Move.B    (A0)+, D0
7678   4880                      Ext       D0
767A   9240                      Sub       D0, D1
767C   6C06                      BGE.B     L1309
767E   D041                      Add       D1, D0
7680   6002                      Bra.B     L1309
7682   12D8           L1308:     Move.B    (A0)+, (A1)+
7684   51C8 FFFC      L1309:     DBF       D0, L1308
7688   4A41                      Tst       D1
768A   6F08                      BLE.B     L1312
768C   6002                      Bra.B     L1311
768E   4219           L1310:     Clr.B     (A1)+
7690   51C9 FFFC      L1311:     DBF       D1, L1310
7694   4CDF 0703      L1312:     MoveM.L   (A7)+, D0-D1/A0-A2
7698   4E75                      Rts

                      P_mCache:
769A   2031 1018                 Move.L    $18(A1,D1.W), D0
769E   6706                      BEQ.B     L1313
76A0   2840                      Move.L    D0, A4
76A2   98FC 001C                 SubA      #$1C, A4
76A6   4E75           L1313:     Rts

                      P231:
76A8   61F0                      Bsr.B     P_mCache
76AA   6718                      BEQ.B     L1314
76AC   082C 0005 001A            BTst.B    #$5, $1A(A4)
76B2   6610                      BNE.B     L1314
76B4   08AC 0007 001A            BClr.B    #$7, $1A(A4)
76BA   6708                      BEQ.B     L1314
76BC   2D1F                      Move.L    (A7)+, -(A6)
76BE   4EBA 04F8                 Jsr       P_mWriteOwnBuf
76C2   2F1E                      Move.L    (A6)+, -(A7)
76C4   4E75           L1314:     Rts

                      P_mFlushCache:
76C6   2F38 0700                 Move.L    ($700), -(A7)
76CA   4E75                      Rts

                      P_tA0C0_mvFlushCache:
76CC   2D1F                      Move.L    (A7)+, -(A6)
76CE   48E6 7EF8                 MoveM.L   D1-D6/A0-A4, -(A6)
76D2   B3F8 0380                 CmpA.L    (SysCtlCPtr), A1
76D6   663A                      BNE.B     L1318
76D8   4A38 0377                 Tst.B     (SysCRefCnt)
76DC   6634                      BNE.B     L1318
76DE   7A00                      MoveQ.L   #$0, D5
76E0   2649                      Move.L    A1, A3
76E2   284B                      Move.L    A3, A4
76E4   2854           L1315:     Move.L    (A4), A4
76E6   B9CB                      CmpA.L    A3, A4
76E8   671C                      BEQ.B     L1317
76EA   082C 0005 001A            BTst.B    #$5, $1A(A4)
76F0   6610                      BNE.B     L1316
76F2   082C 0006 001A            BTst.B    #$6, $1A(A4)
76F8   66EA                      BNE.B     L1315
76FA   082C 0007 001A            BTst.B    #$7, $1A(A4)
7700   66E2                      BNE.B     L1315
7702   5245           L1316:     AddQ      #$1, D5
7704   60DE                      Bra.B     L1315
7706   3C2B 0008      L1317:     Move      $8(A3), D6
770A   E44E                      LsR       #$2, D6
770C   BA46                      Cmp       D6, D5
770E   6200 0094                 BHI       L1327
7712   1A01           L1318:     Move.B    D1, D5
7714   2649                      Move.L    A1, A3
7716   3200                      Move      D0, D1
7718   6F16                      BLE.B     L1319
771A   2278 034E                 Move.L    (FCBSPtr), A1
771E   2471 1014                 Move.L    $14(A1,D1.W), A2
7722   6184                      Bsr.B     P231
7724   2631 1000                 Move.L    $0(A1,D1.W), D3
7728   0831 0001 1004            BTst.B    #$1, $4(A1,D1.W)
772E   56C6                      SNE.B     D6
7730   7800           L1319:     MoveQ.L   #$0, D4
7732   7400           L1320:     MoveQ.L   #$0, D2
7734   284B                      Move.L    A3, A4
7736   2854           L1321:     Move.L    (A4), A4
7738   B9CB                      CmpA.L    A3, A4
773A   660C                      BNE.B     L1322
773C   4A82                      Tst.L     D2
773E   6764                      BEQ.B     L1327
7740   2849                      Move.L    A1, A4
7742   282C 0012                 Move.L    $12(A4), D4
7746   6036                      Bra.B     L1325
7748   082C 0005 001A L1322:     BTst.B    #$5, $1A(A4)
774E   66E6                      BNE.B     L1321
7750   B5EC 0008                 CmpA.L    $8(A4), A2
7754   66E0                      BNE.B     L1321
7756   4A41                      Tst       D1
7758   6D0C                      BLT.B     L1323
775A   B6AC 000C                 Cmp.L     $C(A4), D3
775E   66D6                      BNE.B     L1321
7760   BC2C 001B                 Cmp.B     $1B(A4), D6
7764   66D0                      BNE.B     L1321
7766   4A82           L1323:     Tst.L     D2
7768   6706                      BEQ.B     L1324
776A   B4AC 0012                 Cmp.L     $12(A4), D2
776E   6DC6                      BLT.B     L1321
7770   B8AC 0012      L1324:     Cmp.L     $12(A4), D4
7774   6CC0                      BGE.B     L1321
7776   242C 0012                 Move.L    $12(A4), D2
777A   224C                      Move.L    A4, A1
777C   60B8                      Bra.B     L1321
777E   082C 0007 001A L1325:     BTst.B    #$7, $1A(A4)
7784   670A                      BEQ.B     L1326
7786   4EBA 0438                 Jsr       P_mWriteBlock
778A   08AC 0007 001A            BClr.B    #$7, $1A(A4)
7790   0805 0000      L1326:     BTst.B    #$0, D5
7794   679C                      BEQ.B     L1320
7796   082C 0006 001A            BTst.B    #$6, $1A(A4)
779C   6694                      BNE.B     L1320
779E   6100 0248                 Bsr       P235
77A2   608E                      Bra.B     L1320
77A4   4240           L1327:     Clr       D0
77A6   4CDE 1F7E                 MoveM.L   (A6)+, D1-D6/A0-A4
77AA   2F1E                      Move.L    (A6)+, -(A7)
77AC   4A40                      Tst       D0
77AE   4E75                      Rts

                      P_mGetBlock:
77B0   2F38 0704                 Move.L    ($704), -(A7)
77B4   4E75                      Rts

                      P_tA0C1_mvGetBlock:
77B6   2D1F                      Move.L    (A7)+, -(A6)
77B8   48E6 7F7C                 MoveM.L   D1-D7/A1-A5, -(A6)
77BC   1601                      Move.B    D1, D3
77BE   2649                      Move.L    A1, A3
77C0   3200                      Move      D0, D1
77C2   6D00 00A0                 BLT       L1331
77C6   2278 034E                 Move.L    (FCBSPtr), A1
77CA   2471 1014                 Move.L    $14(A1,D1.W), A2
77CE   2E31 1000                 Move.L    $0(A1,D1.W), D7
77D2   0831 0001 1004            BTst.B    #$1, $4(A1,D1.W)
77D8   56C4                      SNE.B     D4
77DA   284B                      Move.L    A3, A4
77DC   2854           L1328:     Move.L    (A4), A4
77DE   B9CB                      CmpA.L    A3, A4
77E0   6724                      BEQ.B     L1329
77E2   082C 0005 001A            BTst.B    #$5, $1A(A4)
77E8   66F2                      BNE.B     L1328
77EA   B5EC 0008                 CmpA.L    $8(A4), A2
77EE   66EC                      BNE.B     L1328
77F0   BEAC 000C                 Cmp.L     $C(A4), D7
77F4   66E6                      BNE.B     L1328
77F6   B82C 001B                 Cmp.B     $1B(A4), D4
77FA   66E0                      BNE.B     L1328
77FC   B4AC 0016                 Cmp.L     $16(A4), D2
7800   6700 0160                 BEQ       L1344
7804   60D6                      Bra.B     L1328
7806   6100 FE92      L1329:     Bsr       P_mCache
780A   6710                      BEQ.B     L1330
780C   082C 0005 001A            BTst.B    #$5, $1A(A4)
7812   6608                      BNE.B     L1330
7814   B4AC 0016                 Cmp.L     $16(A4), D2
7818   6700 0170                 BEQ       L1347
781C   48E6 1800      L1330:     MoveM.L   D3-D4, -(A6)
7820   7800                      MoveQ.L   #$0, D4
7822   382B 000A                 Move      $A(A3), D4
7826   2A02                      Move.L    D2, D5
7828   E18D                      LsL.L     #$8, D5
782A   DA85                      Add.L     D5, D5
782C   4EBA DDB2                 Jsr       P_mLg2Phys
7830   2C02                      Move.L    D2, D6
7832   2403                      Move.L    D3, D2
7834   4CDE 0018                 MoveM.L   (A6)+, D3-D4
7838   4A40                      Tst       D0
783A   6600 0154                 BNE       L1348
783E   2031 1018                 Move.L    $18(A1,D1.W), D0
7842   6728                      BEQ.B     L1332
7844   6100 FE62                 Bsr       P231
7848   2942 0012                 Move.L    D2, $12(A4)
784C   2946 0016                 Move.L    D6, $16(A4)
7850   422C 001A                 Clr.B     $1A(A4)
7854   4EBA 0358                 Jsr       P_ReadOwnBuf
7858   6700 0130                 BEQ       L1347
785C   6100 018A                 Bsr       P235
7860   6000 012E                 Bra       L1348
7864   7200           L1331:     MoveQ.L   #$0, D1
7866   7E00                      MoveQ.L   #$0, D7
7868   7CFF                      MoveQ.L   #$-1, D6
786A   7800                      MoveQ.L   #$0, D4
786C   91C8           L1332:     SubA.L    A0, A0
786E   93C9                      SubA.L    A1, A1
7870   9BCD                      SubA.L    A5, A5
7872   284B                      Move.L    A3, A4
7874   2854           L1333:     Move.L    (A4), A4
7876   B9CB                      CmpA.L    A3, A4
7878   6736                      BEQ.B     L1337
787A   082C 0005 001A            BTst.B    #$5, $1A(A4)
7880   6704                      BEQ.B     L1334
7882   204C                      Move.L    A4, A0
7884   60EE                      Bra.B     L1333
7886   4A41           L1334:     Tst       D1
7888   660E                      BNE.B     L1335
788A   B5EC 0008                 CmpA.L    $8(A4), A2
788E   6608                      BNE.B     L1335
7890   B4AC 0012                 Cmp.L     $12(A4), D2
7894   6700 00CC                 BEQ       L1344
7898   082C 0006 001A L1335:     BTst.B    #$6, $1A(A4)
789E   66D4                      BNE.B     L1333
78A0   082C 0007 001A            BTst.B    #$7, $1A(A4)
78A6   6704                      BEQ.B     L1336
78A8   2A4C                      Move.L    A4, A5
78AA   60C8                      Bra.B     L1333
78AC   224C           L1336:     Move.L    A4, A1
78AE   60C4                      Bra.B     L1333
78B0   0803 0001      L1337:     BTst.B    #$1, D3
78B4   6706                      BEQ.B     L1338
78B6   7003                      MoveQ.L   #$3, D0
78B8   6000 00D6                 Bra       L1348
78BC   2848           L1338:     Move.L    A0, A4
78BE   200C                      Move.L    A4, D0
78C0   6646                      BNE.B     L1341
78C2   2849                      Move.L    A1, A4
78C4   200C                      Move.L    A4, D0
78C6   6640                      BNE.B     L1341
78C8   284D                      Move.L    A5, A4
78CA   200C                      Move.L    A4, D0
78CC   6606                      BNE.B     L1339
78CE   7001                      MoveQ.L   #$1, D0
78D0   6000 00BE                 Bra       L1348
78D4   48E6 E060      L1339:     MoveM.L   D0-D2/A1-A2, -(A6)
78D8   1438 0377                 Move.B    (SysCRefCnt), D2
78DC   50F8 0377                 ST.B      (SysCRefCnt)
78E0   7200                      MoveQ.L   #$0, D1
78E2   224B                      Move.L    A3, A1
78E4   246C 0008                 Move.L    $8(A4), A2
78E8   302C 0010                 Move      $10(A4), D0
78EC   6E04                      BGT.B     L1340
78EE   302A 004E                 Move      $4E(A2), D0
78F2   4EBA FDD2      L1340:     Jsr       P_mFlushCache
78F6   11C2 0377                 Move.B    D2, (SysCRefCnt)
78FA   4CDE 0607                 MoveM.L   (A6)+, D0-D2/A1-A2
78FE   B7F8 0380                 CmpA.L    (SysCtlCPtr), A3
7902   6604                      BNE.B     L1341
7904   50F8 0377                 ST.B      (SysCRefCnt)
7908   08EC 0006 001A L1341:     BSet.B    #$6, $1A(A4)
790E   08AC 0005 001A            BClr.B    #$5, $1A(A4)
7914   08AC 0007 001A            BClr.B    #$7, $1A(A4)
791A   294A 0008                 Move.L    A2, $8(A4)
791E   2942 0012                 Move.L    D2, $12(A4)
7922   3941 0010                 Move      D1, $10(A4)
7926   2947 000C                 Move.L    D7, $C(A4)
792A   1944 001B                 Move.B    D4, $1B(A4)
792E   2946 0016                 Move.L    D6, $16(A4)
7932   0803 0002                 BTst.B    #$2, D3
7936   663C                      BNE.B     L1346
7938   42B8 0304      L1342:     Clr.L     (BufTgDate)
793C   4EBA 0270                 Jsr       P_ReadOwnBuf
7940   6616                      BNE.B     L1343
7942   4EBA D582                 Jsr       P_mTFSVCBTst
7946   662C                      BNE.B     L1346
7948   2038 0304                 Move.L    (BufTgDate), D0
794C   B0AA 0064                 Cmp.L     $64(A2), D0
7950   6322                      BLS.B     L1346
7952   2540 0064                 Move.L    D0, $64(A2)
7956   601C                      Bra.B     L1346
7958   422C 001A      L1343:     Clr.B     $1A(A4)
795C   6100 008A                 Bsr       P235
7960   602E                      Bra.B     L1348
7962   08EC 0006 001A L1344:     BSet.B    #$6, $1A(A4)
7968   6704                      BEQ.B     L1345
796A   7002                      MoveQ.L   #$2, D0
796C   6022                      Bra.B     L1348
796E   0803 0000      L1345:     BTst.B    #$0, D3
7972   66C4                      BNE.B     L1342
7974   4EBA 020E      L1346:     Jsr       P244
7978   204B                      Move.L    A3, A0
797A   4EBA 021E                 Jsr       P245
797E   0803 0003                 BTst.B    #$3, D3
7982   6706                      BEQ.B     L1347
7984   08AC 0006 001A            BClr.B    #$6, $1A(A4)
798A   41EC 001C      L1347:     Lea.L     $1C(A4), A0
798E   7000                      MoveQ.L   #$0, D0
7990   4CDE 3EFE      L1348:     MoveM.L   (A6)+, D1-D7/A1-A5
7994   2F1E                      Move.L    (A6)+, -(A7)
7996   4A40                      Tst       D0
7998   4E75                      Rts

                      P_mInitCache:
799A   2D1F                      Move.L    (A7)+, -(A6)
799C   48E6 7088                 MoveM.L   D1-D3/A0/A4, -(A6)
79A0   3400                      Move      D0, D2
79A2   3601                      Move      D1, D3
79A4   0641 001C                 Add       #$1C, D1
79A8   7000                      MoveQ.L   #$0, D0
79AA   3002                      Move      D2, D0
79AC   C0C1                      MulU      D1, D0
79AE   0680 0000 000C            Add.L     #$C, D0
79B4   A71E                      _NewPtrSysClear
79B6   6626                      BNE.B     L1350
79B8   2248                      Move.L    A0, A1
79BA   2289                      Move.L    A1, (A1)
79BC   2349 0004                 Move.L    A1, $4(A1)
79C0   3342 0008                 Move      D2, $8(A1)
79C4   3343 000A                 Move      D3, $A(A1)
79C8   49E9 000C                 Lea.L     $C(A1), A4
79CC   5342                      SubQ      #$1, D2
79CE   2049           L1349:     Move.L    A1, A0
79D0   4EBA 01C8                 Jsr       P245
79D4   6112                      Bsr.B     P235
79D6   D9C1                      AddA.L    D1, A4
79D8   51CA FFF4                 DBF       D2, L1349
79DC   4240                      Clr       D0
79DE   4CDE 110E      L1350:     MoveM.L   (A6)+, D1-D3/A0/A4
79E2   2F1E                      Move.L    (A6)+, -(A7)
79E4   4A40                      Tst       D0
79E6   4E75                      Rts

                      P235:
79E8   08EC 0005 001A            BSet.B    #$5, $1A(A4)
79EE   42AC 0012                 Clr.L     $12(A4)
79F2   4E75                      Rts

                      P_mMarkBlock:
79F4   2F38 0708                 Move.L    ($708), -(A7)
79F8   4E75                      Rts

                      P_tA0C2_mvMarkBlock:
79FA   08E8 0007 FFFE            BSet.B    #$7, $-2(A0)
7A00   4E75                      Rts

                      P_mMarkA5Block:
7A02   C14D                      Exg.L     A0, A5
7A04   61EE                      Bsr.B     P_mMarkBlock
7A06   C14D                      Exg.L     A0, A5
7A08   4E75                      Rts

                      P_mRelBlock:
7A0A   2F38 070C                 Move.L    ($70C), -(A7)
7A0E   4E75                      Rts

                      P_tA0C3_mvRelBlock:
7A10   2D1F                      Move.L    (A7)+, -(A6)
7A12   48E6 40D8                 MoveM.L   D1/A0-A1/A3-A4, -(A6)
7A16   49E8 FFE4                 Lea.L     $-1C(A0), A4
7A1A   08AC 0006 001A            BClr.B    #$6, $1A(A4)
7A20   0801 0001                 BTst.B    #$1, D1
7A24   670A                      BEQ.B     L1351
7A26   61C0                      Bsr.B     P235
7A28   08AC 0007 001A            BClr.B    #$7, $1A(A4)
7A2E   6020                      Bra.B     L1353
7A30   0801 0002      L1351:     BTst.B    #$2, D1
7A34   6706                      BEQ.B     L1352
7A36   08EC 0007 001A            BSet.B    #$7, $1A(A4)
7A3C   0801 0000      L1352:     BTst.B    #$0, D1
7A40   670E                      BEQ.B     L1353
7A42   2649                      Move.L    A1, A3
7A44   4EBA 017A                 Jsr       P_mWriteBlock
7A48   08AC 0007 001A            BClr.B    #$7, $1A(A4)
7A4E   6002                      Bra.B     L1354
7A50   4240           L1353:     Clr       D0
7A52   4CDE 1B02      L1354:     MoveM.L   (A6)+, D1/A0-A1/A3-A4
7A56   2F1E                      Move.L    (A6)+, -(A7)
7A58   4A40                      Tst       D0
7A5A   4E75                      Rts

                      P_mTrashVBlks:
7A5C   2F38 0714                 Move.L    ($714), -(A7)
7A60   4E75                      Rts

                      P_tA0C5_mvTrashVBlks:
7A62   48E7 0018                 MoveM.L   A3-A4, -(A7)
7A66   2649                      Move.L    A1, A3
7A68   284B                      Move.L    A3, A4
7A6A   2854           L1355:     Move.L    (A4), A4
7A6C   B9CB                      CmpA.L    A3, A4
7A6E   6714                      BEQ.B     L1356
7A70   082C 0005 001A            BTst.B    #$5, $1A(A4)
7A76   66F2                      BNE.B     L1355
7A78   B5EC 0008                 CmpA.L    $8(A4), A2
7A7C   66EC                      BNE.B     L1355
7A7E   6100 FF68                 Bsr       P235
7A82   60E6                      Bra.B     L1355
7A84   4CDF 1800      L1356:     MoveM.L   (A7)+, A3-A4
7A88   4E75                      Rts

                      P_mTrashFBlocks:
7A8A   48E7 FEF8                 MoveM.L   D0-D6/A0-A4, -(A7)
7A8E   2600                      Move.L    D0, D3
7A90   7200                      MoveQ.L   #$0, D1
7A92   604E                      Bra.B     L_TrashBlocks

                      P_mTrashBlocks:
7A94   48E7 FEF8                 MoveM.L   D0-D6/A0-A4, -(A7)
7A98   7609                      MoveQ.L   #$9, D3
7A9A   2801                      Move.L    D1, D4
7A9C   E6AC                      LsR.L     D3, D4
7A9E   7AFF                      MoveQ.L   #$-1, D5
7AA0   BA82                      Cmp.L     D2, D5
7AA2   6706                      BEQ.B     L1357
7AA4   2A02                      Move.L    D2, D5
7AA6   DA81                      Add.L     D1, D5
7AA8   5385                      SubQ      #$1, D5
7AAA   E6AD           L1357:     LsR.L     D3, D5
7AAC   3200                      Move      D0, D1
7AAE   6F74                      BLE.B     L1361
7AB0   2278 034E                 Move.L    (FCBSPtr), A1
7AB4   2471 1014                 Move.L    $14(A1,D1.W), A2
7AB8   2631 1000                 Move.L    $0(A1,D1.W), D3
7ABC   0831 0001 1004            BTst.B    #$1, $4(A1,D1.W)
7AC2   56C6                      SNE.B     D6
7AC4   6100 FBD4                 Bsr       P_mCache
7AC8   6718                      BEQ.B     L_TrashBlocks
7ACA   082C 0005 001A            BTst.B    #$5, $1A(A4)
7AD0   6610                      BNE.B     L_TrashBlocks
7AD2   202C 0016                 Move.L    $16(A4), D0
7AD6   B084                      Cmp.L     D4, D0
7AD8   6D08                      BLT.B     L_TrashBlocks
7ADA   B085                      Cmp.L     D5, D0
7ADC   6E04                      BGT.B     L_TrashBlocks
7ADE   6100 FF08                 Bsr       P235
                      L_TrashBlocks:
7AE2   2F38 0710                 Move.L    ($710), -(A7)
7AE6   4E75                      Rts

                      P_tA0C4_mvTrashBlocks:
7AE8   266A 0054                 Move.L    $54(A2), A3
7AEC   284B                      Move.L    A3, A4
7AEE   2854           L1359:     Move.L    (A4), A4
7AF0   B9CB                      CmpA.L    A3, A4
7AF2   6730                      BEQ.B     L1361
7AF4   082C 0005 001A            BTst.B    #$5, $1A(A4)
7AFA   66F2                      BNE.B     L1359
7AFC   B5EC 0008                 CmpA.L    $8(A4), A2
7B00   66EC                      BNE.B     L1359
7B02   B6AC 000C                 Cmp.L     $C(A4), D3
7B06   66E6                      BNE.B     L1359
7B08   4A41                      Tst       D1
7B0A   6712                      BEQ.B     L1360
7B0C   BC2C 001B                 Cmp.B     $1B(A4), D6
7B10   66DC                      BNE.B     L1359
7B12   202C 0016                 Move.L    $16(A4), D0
7B16   B084                      Cmp.L     D4, D0
7B18   6DD4                      BLT.B     L1359
7B1A   B085                      Cmp.L     D5, D0
7B1C   6ED0                      BGT.B     L1359
7B1E   6100 FEC8      L1360:     Bsr       P235
7B22   60CA                      Bra.B     L1359
7B24   4CDF 1F7F      L1361:     MoveM.L   (A7)+, D0-D6/A0-A4
7B28   4E75                      Rts

                      P_mCacheRDIP:
7B2A   2F38 071C                 Move.L    ($71C), -(A7)
7B2E   4E75                      Rts

                      P_tA0C7_mvCacheRDIP:
7B30   2D1F                      Move.L    (A7)+, -(A6)
7B32   2D03                      Move.L    D3, -(A6)
7B34   48E6 4040                 MoveM.L   D1/A1, -(A6)
7B38   3001                      Move      D1, D0
7B3A   7200                      MoveQ.L   #$0, D1
7B3C   226A 0054                 Move.L    $54(A2), A1
7B40   6100 FB84                 Bsr       P_mFlushCache
7B44   4CDE 0202                 MoveM.L   (A6)+, D1/A1
7B48   660A                      BNE.B     L1362
7B4A   4EBA DA94                 Jsr       P_mLg2Phys
7B4E   6604                      BNE.B     L1362
7B50   4EBA 013A                 Jsr       P_mRdBlocks
7B54   6026           L1362:     Bra.B     L1363

                      P_mCacheWRIP:
7B56   2F38 0718                 Move.L    ($718), -(A7)
7B5A   4E75                      Rts

                      P_tA0C6_mvCacheWRIP:
7B5C   2D1F                      Move.L    (A7)+, -(A6)
7B5E   2D03                      Move.L    D3, -(A6)
7B60   4EBA DA7E                 Jsr       P_mLg2Phys
7B64   6616                      BNE.B     L1363
7B66   48E6 6000                 MoveM.L   D1-D2, -(A6)
7B6A   3001                      Move      D1, D0
7B6C   2205                      Move.L    D5, D1
7B6E   2406                      Move.L    D6, D2
7B70   6100 FF22                 Bsr       P_mTrashBlocks
7B74   4CDE 0006                 MoveM.L   (A6)+, D1-D2
7B78   4EBA 0160                 Jsr       P_mWrBlocks
7B7C   261E           L1363:     Move.L    (A6)+, D3
7B7E   2F1E                      Move.L    (A6)+, -(A7)
7B80   4A40                      Tst       D0
7B82   4E75                      Rts

                      P244:
7B84   48E7 00C0                 MoveM.L   A0-A1, -(A7)
7B88   206C 0004                 Move.L    $4(A4), A0
7B8C   2254                      Move.L    (A4), A1
7B8E   2089                      Move.L    A1, (A0)
7B90   2348 0004                 Move.L    A0, $4(A1)
7B94   4CDF 0300                 MoveM.L   (A7)+, A0-A1
7B98   4E75                      Rts

                      P245:
7B9A   2F09                      Move.L    A1, -(A7)
7B9C   2250                      Move.L    (A0), A1
7B9E   2889                      Move.L    A1, (A4)
7BA0   234C 0004                 Move.L    A4, $4(A1)
7BA4   208C                      Move.L    A4, (A0)
7BA6   2948 0004                 Move.L    A0, $4(A4)
7BAA   225F                      Move.L    (A7)+, A1
7BAC   4E75                      Rts

                      P_ReadOwnBuf:
7BAE   2D1F                      Move.L    (A7)+, -(A6)
7BB0   48E6 7FFC                 MoveM.L   D1-D7/A0-A5, -(A6)
7BB4   7200                      MoveQ.L   #$0, D1
7BB6   602A                      Bra.B     L1365

                      P_mWriteOwnBuf:
7BB8   2D1F                      Move.L    (A7)+, -(A6)
7BBA   48E6 7FFC                 MoveM.L   D1-D7/A0-A5, -(A6)
7BBE   6014                      Bra.B     L1364

                      P_mWriteBlock:
7BC0   2D1F                      Move.L    (A7)+, -(A6)
7BC2   48E6 7FFC                 MoveM.L   D1-D7/A0-A5, -(A6)
7BC6   246C 0008                 Move.L    $8(A4), A2
7BCA   202C 0012                 Move.L    $12(A4), D0
7BCE   322C 0010                 Move      $10(A4), D1
7BD2   4E71                      Nop
7BD4   2278 034E      L1364:     Move.L    (FCBSPtr), A1
7BD8   202C 0016                 Move.L    $16(A4), D0
7BDC   6100 010E                 Bsr       P_SetUpTags
7BE0   7201                      MoveQ.L   #$1, D1
7BE2   41F8 03A4      L1365:     Lea.L     (Params), A0
7BE6   316A 0048 0016            Move      $48(A2), $16(A0)
7BEC   316A 004A 0018            Move      $4A(A2), $18(A0)
7BF2   43EC 001C                 Lea.L     $1C(A4), A1
7BF6   2149 0020                 Move.L    A1, $20(A0)
7BFA   317C 0001 002C            Move      #$1, $2C(A0)
7C00   217C 0000 0200            Move.L    #$200, $24(A0)
       0024
7C08   202C 0012                 Move.L    $12(A4), D0
7C0C   E188                      LsL.L     #$8, D0
7C0E   D080                      Add.L     D0, D0
7C10   2140 002E                 Move.L    D0, $2E(A0)
7C14   2F38 0720      L_BasicIO: Move.L    ($720), -(A7)
7C18   4E75                      Rts

                      P_tA0C8_mvBasicIO:
7C1A   21CE 036E                 Move.L    A6, (HFSStkPtr)
7C1E   4A38 0342                 Tst.B     (NxtDB)
7C22   660C                      BNE.B     L1368
7C24   4A01                      Tst.B     D1
7C26   6604                      BNE.B     L1367
7C28   A002                      _Read
7C2A   603E                      Bra.B     L1374
7C2C   A003           L1367:     _Write
7C2E   603A                      Bra.B     L1374
7C30   43FA 0028      L1368:     Lea.L     E_199, A1
7C34   2149 000C                 Move.L    A1, $C(A0)
7C38   08B8 0007 0376            BClr.B    #$7, (HFSFlags)
7C3E   4A01                      Tst.B     D1
7C40   6604                      BNE.B     L1369
7C42   A402                      _ReadAsync
7C44   6002                      Bra.B     L1370
7C46   A403           L1369:     _WriteAsync
7C48   6706           L1370:     BEQ.B     L1371
7C4A   4A68 0010                 Tst       $10(A0)
7C4E   6F12                      BLE.B     L1373
7C50   08F8 0007 0376 L1371:     BSet.B    #$7, (HFSFlags)
7C56   660A                      BNE.B     L1373
7C58   4E75           L1372:     Rts

                      E_199:
7C5A   08F8 0007 0376            BSet.B    #$7, (HFSFlags)
7C60   67F6                      BEQ.B     L1372
7C62   48E7 0F0E      L1373:     MoveM.L   D4-D7/A4-A6, -(A7)
7C66   487A 001E                 Pea.L     E_200
7C6A   2C78 036E      L1374:     Move.L    (HFSStkPtr), A6
7C6E   4CDE 3FFE                 MoveM.L   (A6)+, D1-D7/A0-A5
7C72   2F1E                      Move.L    (A6)+, -(A7)
7C74   4A40                      Tst       D0
7C76   670C                      BEQ.B     L1375
7C78   0C40 FFBF                 Cmp       #$-41, D0
7C7C   6706                      BEQ.B     L1375
7C7E   31C0 03DE                 Move      D0, (FSTemp4)
7C82   70DC                      MoveQ.L   #$-24, D0
7C84   4E75           L1375:     Rts

                      E_200:
7C86   4CDF 70F0                 MoveM.L   (A7)+, D4-D7/A4-A6
7C8A   4E75                      Rts

                      P_mRdBlocks:
7C8C   2F38 0724                 Move.L    ($724), -(A7)
7C90   4E75                      Rts

                      P_tA0C9_mvRdBlocks:
7C92   7000                      MoveQ.L   #$0, D0
7C94   2D1F           L1376:     Move.L    (A7)+, -(A6)
7C96   48E6 7FFC                 MoveM.L   D1-D7/A0-A5, -(A6)
7C9A   2A68 0020                 Move.L    $20(A0), A5
7C9E   DBE8 0028                 AddA.L    $28(A0), A5
7CA2   3200                      Move      D0, D1
7CA4   7040                      MoveQ.L   #$40, D0
7CA6   C028 002D                 And.B     $2D(A0), D0
7CAA   41F8 03A4                 Lea.L     (Params), A0
7CAE   316A 004A 0018            Move      $4A(A2), $18(A0)
7CB4   316A 0048 0016            Move      $48(A2), $16(A0)
7CBA   214D 0020                 Move.L    A5, $20(A0)
7CBE   2146 0024                 Move.L    D6, $24(A0)
7CC2   317C 0001 002C            Move      #$1, $2C(A0)
7CC8   8128 002D                 Or.B      D0, $2D(A0)
7CCC   2003                      Move.L    D3, D0
7CCE   E188                      LsL.L     #$8, D0
7CD0   D080                      Add.L     D0, D0
7CD2   2140 002E                 Move.L    D0, $2E(A0)
7CD6   6000 FF3C                 Bra       L_BasicIO

                      P_mWrBlocks:
7CDA   2F38 0728                 Move.L    ($728), -(A7)
7CDE   4E75                      Rts

                      P_tA0CA_mvWrBlocks:
7CE0   2005                      Move.L    D5, D0
7CE2   E088                      LsR.L     #$8, D0
7CE4   E288                      LsR.L     #$1, D0
7CE6   6104                      Bsr.B     P_SetUpTags
7CE8   7001                      MoveQ.L   #$1, D0
7CEA   60A8                      Bra.B     L1376

                      P_SetUpTags:
7CEC   2F38 072C                 Move.L    ($72C), -(A7)
7CF0   4E75                      Rts

                      P_tA0CB_mvSetUpTags:
7CF2   4A41                      Tst       D1
7CF4   672E                      BEQ.B     L1378
7CF6   21F1 1000 02FC            Move.L    $0(A1,D1.W), (BufTgFNum)
7CFC   21C0 0300                 Move.L    D0, (BufTgFFlg)
7D00   11F1 1004 0300            Move.B    $4(A1,D1.W), (BufTgFFlg)
7D06   21F1 1032 038A            Move.L    $32(A1,D1.W), (BufTgHD20)
7D0C   21F1 103A 038E            Move.L    $3A(A1,D1.W), (BufTgHD20.1)
7D12   4EBA D1B2      L1377:     Jsr       P_mTFSVCBTst
7D16   6620                      BNE.B     L1379
7D18   21EA 0064 0304            Move.L    $64(A2), (BufTgDate)
7D1E   52AA 0064                 AddQ      #$1, $64(A2)
7D22   4E75                      Rts
7D24   21C0 0300      L1378:     Move.L    D0, (BufTgFFlg)
7D28   7001                      MoveQ.L   #$1, D0
7D2A   21C0 02FC                 Move.L    D0, (BufTgFNum)
7D2E   42B8 038A                 Clr.L     (BufTgHD20)
7D32   42B8 038E                 Clr.L     (BufTgHD20.1)
7D36   60DA                      Bra.B     L1377
7D38   21F8 020C 0304 L1379:     Move.L    (Time), (BufTgDate)
7D3E   4E75                      Rts

                      P_CheckSCSI:
7D40   4A38 0B22                 Tst.B     (HWCfgFlags)    ; bits 6 and 7 are set if SCSI is present @sc
7D44   6A1A                      BPL.B     L1382
7D46   48E7 FFFE                 MoveM.L   D0-D7/A0-A6, -(A7)
7D4A   4E71                      Nop
7D4C   4E71                      Nop
7D4E   7A06                      MoveQ.L   #$6, D5
7D50   0B38 0B2E      L1380:     BTst.L    D5, (SCSIDrvrs)
7D54   6602                      BNE.B     L1381
7D56   610A                      Bsr.B     P253
7D58   5345           L1381:     SubQ      #$1, D5
7D5A   6CF4                      BGE.B     L1380
7D5C   4CDF 7FFF                 MoveM.L   (A7)+, D0-D7/A0-A6
7D60   4E75           L1382:     Rts

                      P253:
7D62   9FFC 0000 0100            SubA.L    #$100, A7
7D68   244F                      Move.L    A7, A2
7D6A   7600                      MoveQ.L   #$0, D3
7D6C   7401                      MoveQ.L   #$1, D2
7D6E   383C 0100                 Move      #$100, D4
7D72   6158                      Bsr.B     P254
7D74   6650                      BNE.B     L1385
7D76   0C57 4552                 Cmp       #$4552, (A7)
7D7A   664A                      BNE.B     L1385
7D7C   382F 0002                 Move      $2(A7), D4
7D80   302F 0010                 Move      $10(A7), D0
7D84   41EF 0012                 Lea.L     $12(A7), A0
7D88   2E2F 000C                 Move.L    $C(A7), D7
7D8C   0C68 0001 0006 L1383:     Cmp       #$1, $6(A0)
7D92   6708                      BEQ.B     L1384
7D94   5088                      AddQ      #$8, A0
7D96   5340                      SubQ      #$1, D0
7D98   66F2                      BNE.B     L1383
7D9A   602A                      Bra.B     L1385
7D9C   0BF8 0B2E      L1384:     BSet.L    D5, (SCSIDrvrs)
7DA0   2610                      Move.L    (A0), D3
7DA2   3428 0004                 Move      $4(A0), D2
7DA6   2004                      Move.L    D4, D0
7DA8   C0C2                      MulU      D2, D0
7DAA   A51E                      _NewPtrSys
7DAC   2648                      Move.L    A0, A3
7DAE   2448                      Move.L    A0, A2
7DB0   611A                      Bsr.B     P254
7DB2   6612                      BNE.B     L1385
7DB4   7601                      MoveQ.L   #$1, D3
7DB6   7401                      MoveQ.L   #$1, D2
7DB8   383C 0100                 Move      #$100, D4
7DBC   244F                      Move.L    A7, A2
7DBE   610C                      Bsr.B     P254
7DC0   6604                      BNE.B     L1385
7DC2   204A                      Move.L    A2, A0
7DC4   4E93                      Jsr       (A3)
7DC6   DEFC 0100      L1385:     AddA      #$100, A7
7DCA   4E75                      Rts

                      P254:
7DCC   41F8 09FA                 Lea.L     (scratch8), A0
7DD0   10FC 0008                 Move.B    #$8, (A0)+
7DD4   4843                      Swap      D3
7DD6   0203 001F                 And.B     #$1F, D3
7DDA   10C3                      Move.B    D3, (A0)+
7DDC   4843                      Swap      D3
7DDE   30C3                      Move      D3, (A0)+
7DE0   10C2                      Move.B    D2, (A0)+
7DE2   4218                      Clr.B     (A0)+
7DE4   C8C2                      MulU      D2, D4
7DE6   9EFC 0014                 SubA      #$14, A7
7DEA   2C0F                      Move.L    A7, D6
7DEC   554F                      SubQ      #$2, A7
7DEE   3F3C 0001                 Move      #$1, -(A7)
7DF2   A815                      _SCSIDispatch
7DF4   4A57                      Tst       (A7)
7DF6   6656                      BNE.B     L1386
7DF8   3F05                      Move      D5, -(A7)
7DFA   3F3C 0002                 Move      #$2, -(A7)
7DFE   A815                      _SCSIDispatch
7E00   4A57                      Tst       (A7)
7E02   664A                      BNE.B     L1386
7E04   4878 09FA                 Pea.L     (scratch8)
7E08   3F3C 0006                 Move      #$6, -(A7)
7E0C   3F3C 0003                 Move      #$3, -(A7)
7E10   A815                      _SCSIDispatch
7E12   4A57                      Tst       (A7)
7E14   6638                      BNE.B     L1386
7E16   2046                      Move.L    D6, A0
7E18   30FC 0001                 Move      #$1, (A0)+
7E1C   20CA                      Move.L    A2, (A0)+
7E1E   20C4                      Move.L    D4, (A0)+
7E20   30FC 0007                 Move      #$7, (A0)+
7E24   2F06                      Move.L    D6, -(A7)
7E26   3F3C 0005                 Move      #$5, -(A7)
7E2A   A815                      _SCSIDispatch
7E2C   4878 09FA                 Pea.L     (scratch8)
7E30   4878 09FC                 Pea.L     (scratch8.2)
7E34   2F3C 0000 003C            Move.L    #$3C, -(A7)
7E3A   3F3C 0004                 Move      #$4, -(A7)
7E3E   A815                      _SCSIDispatch
7E40   4A57                      Tst       (A7)
7E42   660A                      BNE.B     L1386
7E44   548F                      AddQ      #$2, A7
7E46   DEFC 0014                 AddA      #$14, A7
7E4A   7000                      MoveQ.L   #$0, D0
7E4C   4E75                      Rts
7E4E   548F           L1386:     AddQ      #$2, A7
7E50   DEFC 0014                 AddA      #$14, A7
7E54   70FF                      MoveQ.L   #$-1, D0
7E56   4E75                      Rts

                      DT22:
7E58   8080 8080 8080            DC.B      '      '
7E5E   8080 8080 8080            DC.B      '      '
7E64   80FF 0001 3C76            DC.B      '    <v'
7E6A   95F3 9317 8A7F            DC.B      '      '
7E70   CAEC 8002 007F            DC.B      '      '
7E76   8BFF 0000 CAF0            DC.B      '      '
7E7C   FF00 015A 567D            DC.B      '   ZV}'
7E82   B054 F783 1EC9            DC.B      ' T    '
7E88   6180 CD1E 8AA2            DC.B      'a     '
7E8E   052C 5C64 9196            DC.B      ' ,\d  '
7E94   7FFA 1449 12B8            DC.B      '   I  '
7E9A   AF59 2085 3705            DC.B      ' Y  7 '
7EA0   8181 8181 8181            DC.B      '      '
7EA6   FF00 0028 0A7B            DC.B      '   ( {'
7EAC   34FF 0000 F260            DC.B      '4    `'
7EB2   8A48 CD04 F41F            DC.B      ' H    '
7EB8   A17F FC26 F4B7            DC.B      '   &  '
7EBE   8080 8020 237F            DC.B      '    # '
7EC4   F092 7FF0 7FB4            DC.B      '      '
7ECA   997F EA99 7F2B            DC.B      '     +'
7ED0   847F A97F 6FE9            DC.B      '    o '
7ED6   5387 2C7C 8080            DC.B      'S ,|  '
7EDC   FF00 0082 C688            DC.B      '      '
7EE2   8E83 3AC0 4543            DC.B      '  : EC'
7EE8   9880 8784 7FF8            DC.B      '      '
7EEE   8D84 8B87 8580            DC.B      '      '
7EF4   8CA9 8287 00EA            DC.B      '      '
7EFA   9AFF 0001 57B2            DC.B      '    W '
7F00   9A00 AAA1 7FFC            DC.B      '      '
7F06   89FF 0000 8884            DC.B      '      '
7F0C   7F91 E3F5 84B2            DC.B      '      '
7F12   7FF7 8488 9390            DC.B      '      '
7F18   96A3 867F F17F            DC.B      '      '
7F1E   B97F 92C3 8400            DC.B      '      '
7F24   8785 8600 DCA0            DC.B      '      '
7F2A   8994 7FD6 7FE7            DC.B      '      '
7F30   9B82 00F4 7F2A            DC.B      '     *'
7F36   7FD2 9380 04E3            DC.B      '      '
7F3C   C98B 8C86 80C6            DC.B      '      '
7F42   8286 8291 8887            DC.B      '      '
7F48   838A 8003 28D5            DC.B      '    ( '
7F4E   8282 827F EF00            DC.B      '      '
7F54   BF7F F9A1 8989            DC.B      '      '
7F5A   CE9F 9B7F 5905            DC.B      '    Y '
7F60   E3C9 8282 8282            DC.B      '      '
7F66   809D C482 8282            DC.B      '      '
7F6C   8204 F57B C5BF            DC.B      '   {  '
7F72   8282 8282 0486            DC.B      '      '
7F78   7F4F 00F9 BB82            DC.B      ' O    '
7F7E   8282 829B 9AB7            DC.B      '      '
7F84   840A 52C8 75ED            DC.B      '  R u '
7F8A   B382 8282 8280            DC.B      '      '
7F90   F192 8497 ABA7            DC.B      '      '
7F96   86AE 8799 CE88            DC.B      '      '
7F9C   9F82 8282 F5B0            DC.B      '      '
7FA2   63F4 1FD8 00BF            DC.B      'c     '
7FA8   6183 25F0 7AAF            DC.B      'a % z '
7FAE   0564 7FBD 0083            DC.B      ' d    '
7FB4   8BDE 9E84 8005            DC.B      '      '
7FBA   13AC B16E 267C            DC.B      '   n&|'
7FC0   7680 1570 056E            DC.B      'v  p n'
7FC6   D37A AD05 A77F            DC.B      ' z    '
7FCC   E517 D17E 7079            DC.B      '   ~py'
7FD2   A98C 016C 7ECE            DC.B      '   l~ '
7FD8   ACA2 92D5 B697            DC.B      '      '
7FDE   D185 CAE3 00E1            DC.B      '      '
7FE4   8794 9587 8E8C            DC.B      '      '
7FEA   E700 88A0 DDBB            DC.B      '      '
7FF0   98CE AB9D 9195            DC.B      '      '
7FF6   E500 94A0 8F82            DC.B      '      '
7FFC   8200 817B 4000            DC.B      '   {@ '
8002   8683 0488 0419            DC.B      '      '
8008   7EFC 012C 7BF2            DC.B      '~  ,{ '
800E   88D0 D1C5 958E            DC.B      '      '
8014   01BF 8A7E 5E02            DC.B      '   ~^ '
801A   3B7F E482 8282            DC.B      ';     '
8020   8282 82CE 0138            DC.B      '     8'
8026   7EE2 00F5 CC00            DC.B      '~     '
802C   817D 6002 24FF            DC.B      ' }` $ '
8032   0000 1F38 FF00            DC.B      '   8  '
8038   0119 2409 EC7F            DC.B      '  $   '
803E   967F BB03 587D            DC.B      '    X}'
8044   8300 A192 8E8F            DC.B      '      '
804A   8D9F 878C 9496            DC.B      '      '
8050   8CA1 8782 82A1            DC.B      '      '
8056   8282 97D9 007F            DC.B      '      '
805C   7E86 8201 BC7D            DC.B      '~    }'
8062   F3FF 0000 19F0            DC.B      '      '
8068   7FED FF00 0110            DC.B      '      '
806E   007F FE7F D28B            DC.B      '      '
8074   7FCB 897F E9D7            DC.B      '      '
807A   1E51 EDAD 7D7F            DC.B      ' Q  } '
8080   00EF 9C02 387E            DC.B      '    8~'
8086   149D E79B C301            DC.B      '      '
808C   A07C 887F FA82            DC.B      ' |    '
8092   8201 FCAD A692            DC.B      '      '
8098   84A3 AB7F F07E            DC.B      '     ~'
809E   927C 2DD8 9577            DC.B      ' |-  w'
80A4   3401 C9F4 9FF1            DC.B      '4     '
80AA   0161 0499 7BBB            DC.B      ' a  { '
80B0   95CE A5B2 A202            DC.B      '      '
80B6   CD9F D901 D47E            DC.B      '     ~'
80BC   6A8A 99A3 7F44            DC.B      'j    D'
80C2   00E1 7F88 00E5            DC.B      '      '
80C8   7F23 7FF4 7FB6            DC.B      ' #    '
80CE   7992 121D E0E9            DC.B      'y     '
80D4   BEBB A78D 8D84            DC.B      '      '
80DA   8484 84AB A8BF            DC.B      '      '
80E0   6EC3 1043 806C            DC.B      'n  C l'
80E6   F208 4013 DCBC            DC.B      '  @   '
80EC   FF00 0011 DC7F            DC.B      '      '
80F2   B37E C1FF 0001            DC.B      ' ~    '
80F8   608E 8693 8FEF            DC.B      '`     '
80FE   A29D 96BD 9702            DC.B      '      '
8104   5093 8701 4091            DC.B      'P   @ '
810A   8B94 F6B2 7FB7            DC.B      '      '
8110   B674 CE00 B28F            DC.B      ' t    '
8116   848D 0C32 91C0            DC.B      '   2  '
811C   8181 8181 8181            DC.B      '      '
8122   8173 884E 83C5            DC.B      ' s N  '
8128   BE7F FD00 C19C            DC.B      '      '
812E   2094 860F 8E0B            DC.B      '      '
8134   26BD 9A9A A6B8            DC.B      '&     '
813A   80FF 0000 21F4            DC.B      '    ! '
8140   00C9 9CB8 8A87            DC.B      '      '
8146   9309 D704 DF01            DC.B      '      '
814C   157E 0702 3403            DC.B      ' ~  4 '
8152   307E FA76 6F7C            DC.B      '0~ vo|'
8158   2213 4B7F 5900            DC.B      '" K Y '
815E   C070 9E02 47A8            DC.B      ' p  G '
8164   77C9 053A 0D18            DC.B      'w  :  '
816A   FF00 00FF 38B6            DC.B      '    8 '
8170   83B5 94CD 8E90            DC.B      '      '
8176   7FFB A391 967F            DC.B      '      '
817C   FA8F 9F7F E5BD            DC.B      '      '
8182   857F D17E 8400            DC.B      '   ~  '
8188   CB06 23FF 0000            DC.B      '  #   '
818E   26EC BCC4 8F7A            DC.B      '&    z'
8194   10A5 0BE3 FF00            DC.B      '      '
819A   0102 747A 8E8D            DC.B      '  tz  '
81A0   9085 8489 FF00            DC.B      '      '
81A6   0024 CAAF FF00            DC.B      ' $    '
81AC   00FC C201 AEFF            DC.B      '      '
81B2   0000 488A 857F            DC.B      '  H   '
81B8   DF03 6101 1867            DC.B      '  a  g'
81BE   637F D8FF 0001            DC.B      'c     '
81C4   011C 0094 857F            DC.B      '      '
81CA   117F A798 FF00            DC.B      '      '
81D0   0025 58FF 0000            DC.B      ' %X   '
81D6   F72C EC03 0A85            DC.B      ' ,    '
81DC   FF00 0001 F8FF            DC.B      '      '
81E2   0000 F878 8080            DC.B      '   x  '
81E8   02FF 3BAE 878D            DC.B      '  ;   '
81EE   8080 8080 80FF            DC.B      '      '
81F4   0000 2852 FF00            DC.B      '  (R  '
81FA   00FF B0AD D200            DC.B      '      '
8200   EF7F 09CE 8080            DC.B      '      '
8206   8080 80FF 0000            DC.B      '      '
820C   0C7A E980 8080            DC.B      ' z    '
8212   8080 8080 8080            DC.B      '      '
8218   8080 8080 8080            DC.B      '      '
821E   8080 8080 8080            DC.B      '      '
8224   8080 8080 8080            DC.B      '      '
822A   8080 8080 8080            DC.B      '      '
8230   8080 8080 8080            DC.B      '      '
8236   8080 8080 8080            DC.B      '      '
823C   8080 8080 8080            DC.B      '      '
8242   8080 8080 8080            DC.B      '      '
8248   8080 8080 8080            DC.B      '      '
824E   8080 8080 8080            DC.B      '      '
8254   8080 8080 8080            DC.B      '      '
825A   8080 8080 8080            DC.B      '      '
8260   244D 1073 F501            DC.B      '$M s  '
8266   228B EC7F BDFD            DC.B      '"     '
826C   7FEA F5BC A789            DC.B      '      '
8272   74F8 A000 D3B3            DC.B      't     '
8278   E101 50E0 C603            DC.B      '  P   '
827E   1600 E77C 3400            DC.B      '   |4 '
8284   BE7F 8D75 EDEA            DC.B      '   u  '
828A   010E 0404 8068            DC.B      '     h'
8290   5810 C300 AE73            DC.B      'X    s'
8296   7900 A404 1204            DC.B      'y     '
829C   E100 EF80 8080            DC.B      '      '
82A2   8080 8080 8080            DC.B      '      '
82A8   8080 8080 8080            DC.B      '      '
82AE   8080 80FF 0000            DC.B      '      '
82B4   F67A 1F2D 0284            DC.B      ' z -  '
82BA   7E1E 058F 1262            DC.B      '~    b'
82C0   012D BA00 0000            DC.B      ' -    '

                      P_tInitCursor:
82C6   2055                      Move.L    (A5), A0
82C8   4868 FF94                 Pea.L     $-6C(A0)
82CC   4EBA 0008                 Jsr       P_tSetCursor
82D0   2078 0814                 Move.L    (JInitCrsr), A0
82D4   4ED0                      Jmp       (A0)

                      P_tSetCursor:
82D6   206F 0004                 Move.L    $4(A7), A0
82DA   2F28 0040                 Move.L    $40(A0), -(A7)
82DE   3F3C 0010                 Move      #$10, -(A7)
82E2   4850                      Pea.L     (A0)
82E4   4868 0020                 Pea.L     $20(A0)
82E8   2078 0818                 Move.L    (JSetCrsr), A0
82EC   4E90                      Jsr       (A0)
82EE   2E9F                      Move.L    (A7)+, (A7)
82F0   4E75                      Rts

                      P_tHideCursor:
82F2   2F38 0800                 Move.L    (GrafBegin_JHideCursor), -(A7)
82F6   4E75                      Rts

                      P_tShowCursor:
82F8   2F38 0804                 Move.L    (JShowCursor), -(A7)
82FC   4E75                      Rts

                      P_tShieldCursor:
82FE   48E7 F0C0                 MoveM.L   D0-D3/A0-A1, -(A7)
8302   206F 0020                 Move.L    $20(A7), A0
8306   4C98 000F                 MoveM     (A0)+, D0-D3
830A   43EF 001C                 Lea.L     $1C(A7), A1
830E   9051                      Sub       (A1), D0
8310   9459                      Sub       (A1)+, D2
8312   9251                      Sub       (A1), D1
8314   9651                      Sub       (A1), D3
8316   3F01                      Move      D1, -(A7)
8318   3F00                      Move      D0, -(A7)
831A   3F03                      Move      D3, -(A7)
831C   3F02                      Move      D2, -(A7)
831E   2078 0808                 Move.L    (JShieldCursor), A0
8322   4E90                      Jsr       (A0)
8324   4CDF 030F                 MoveM.L   (A7)+, D0-D3/A0-A1
8328   2E9F                      Move.L    (A7)+, (A7)
832A   2E9F                      Move.L    (A7)+, (A7)
832C   4E75                      Rts

                      P_tObscureCursor:
832E   2078 081C                 Move.L    (JCrsrObscure), A0
8332   4ED0                      Jmp       (A0)

                      P_tBitNot:
8334   205F                      Move.L    (A7)+, A0
8336   4697                      Not.L     (A7)
8338   2E9F                      Move.L    (A7)+, (A7)
833A   4ED0                      Jmp       (A0)

                      P_tBitAnd:
833C   205F                      Move.L    (A7)+, A0
833E   201F                      Move.L    (A7)+, D0
8340   C09F                      And.L     (A7)+, D0
8342   6024                      Bra.B     L1388

                      P_tBitXOr:
8344   205F                      Move.L    (A7)+, A0
8346   201F                      Move.L    (A7)+, D0
8348   221F                      Move.L    (A7)+, D1
834A   B380                      Eor.L     D1, D0
834C   601A                      Bra.B     L1388

                      P_tBitOr:
834E   205F                      Move.L    (A7)+, A0
8350   201F                      Move.L    (A7)+, D0
8352   809F                      Or.L      (A7)+, D0
8354   6012                      Bra.B     L1388

                      P_tBitShift:
8356   205F                      Move.L    (A7)+, A0
8358   321F                      Move      (A7)+, D1
835A   6A08                      BPL.B     L1387
835C   4441                      Neg       D1
835E   201F                      Move.L    (A7)+, D0
8360   E2A8                      LsR.L     D1, D0
8362   6004                      Bra.B     L1388
8364   201F           L1387:     Move.L    (A7)+, D0
8366   E3A8                      LsL.L     D1, D0
8368   2E80           L1388:     Move.L    D0, (A7)
836A   4ED0                      Jmp       (A0)

                      P_tBitTst:
836C   6120                      Bsr.B     P255
836E   225F                      Move.L    (A7)+, A1
8370   0131 1800                 BTst.L    D0, $0(A1,D1.L)
8374   56D7                      SNE.B     (A7)
8376   4417                      Neg.B     (A7)
8378   4ED0                      Jmp       (A0)

                      P_tBitSet:
837A   6112                      Bsr.B     P255
837C   225F                      Move.L    (A7)+, A1
837E   01F1 1800                 BSet.L    D0, $0(A1,D1.L)
8382   4ED0                      Jmp       (A0)

                      P_tBitClr:
8384   6108                      Bsr.B     P255
8386   225F                      Move.L    (A7)+, A1
8388   01B1 1800                 BClr.L    D0, $0(A1,D1.L)
838C   4ED0                      Jmp       (A0)

                      P255:
838E   225F                      Move.L    (A7)+, A1
8390   205F                      Move.L    (A7)+, A0
8392   221F                      Move.L    (A7)+, D1
8394   3001                      Move      D1, D0
8396   E681                      AsR.L     #$3, D1
8398   4640                      Not       D0
839A   4ED1                      Jmp       (A1)

                      P_tRandom:
839C   2055                      Move.L    (A5), A0
839E   303C 41A7                 Move      #$41A7, D0
83A2   3400                      Move      D0, D2
83A4   C0E8 FF84                 MulU      $-7C(A0), D0
83A8   2200                      Move.L    D0, D1
83AA   4241                      Clr       D1
83AC   4841                      Swap      D1
83AE   C4E8 FF82                 MulU      $-7E(A0), D2
83B2   D481                      Add.L     D1, D2
83B4   2202                      Move.L    D2, D1
83B6   D281                      Add.L     D1, D1
83B8   4241                      Clr       D1
83BA   4841                      Swap      D1
83BC   0280 0000 FFFF            And.L     #$FFFF, D0
83C2   0480 7FFF FFFF            Sub.L     #$7FFFFFFF, D0
83C8   0282 0000 7FFF            And.L     #$7FFF, D2
83CE   4842                      Swap      D2
83D0   D481                      Add.L     D1, D2
83D2   D082                      Add.L     D2, D0
83D4   6A06                      BPL.B     L1389
83D6   0680 7FFF FFFF            Add.L     #$7FFFFFFF, D0
83DC   2140 FF82      L1389:     Move.L    D0, $-7E(A0)
83E0   0C40 8000                 Cmp       #$-8000, D0
83E4   6602                      BNE.B     L1390
83E6   4240                      Clr       D0
83E8   3F40 0004      L1390:     Move      D0, $4(A7)
83EC   4E75                      Rts

                      P_tForeColor:
83EE   7050                      MoveQ.L   #$50, D0
83F0   6002                      Bra.B     L_mPortLong

                      P_tBackColor:
83F2   7054                      MoveQ.L   #$54, D0
                      L_mPortLong:
83F4   225F                      Move.L    (A7)+, A1
83F6   2055                      Move.L    (A5), A0
83F8   2050                      Move.L    (A0), A0
83FA   219F 0000                 Move.L    (A7)+, $0(A0,D0.W)
83FE   4ED1                      Jmp       (A1)

                      P_tColorBit:
8400   7058                      MoveQ.L   #$58, D0
                      L_mPortWord:
8402   225F                      Move.L    (A7)+, A1
8404   2055                      Move.L    (A5), A0
8406   2050                      Move.L    (A0), A0
8408   319F 0000                 Move      (A7)+, $0(A0,D0.W)
840C   4ED1                      Jmp       (A1)

                      P_tGetMaskTable:
840E   41FA 0028                 Lea.L     DT_mMaskTab, A0
8412   4E75                      Rts

                      P_mLeftMask:
8414   0240 000F                 And       #$F, D0
8418   D040                      Add       D0, D0
841A   303B 003C                 Move      DT24(D0.W), D0
841E   4E75                      Rts

                      P_mRightMask:
8420   0240 000F                 And       #$F, D0
8424   D040                      Add       D0, D0
8426   303B 0010                 Move      DT_mMaskTab(D0.W), D0
842A   4E75                      Rts

                      P_mBitMask:
842C   0240 000F                 And       #$F, D0
8430   D040                      Add       D0, D0
8432   303B 0044                 Move      DT25(D0.W), D0
8436   4E75                      Rts

                      DT_mMaskTab:
8438   0000 8000 C000            DC.B      '      '
843E   E000 F000 F800            DC.B      '      '
8444   FC00 FE00 FF00            DC.B      '      '
844A   FF80 FFC0 FFE0            DC.B      '      '
8450   FFF0 FFF8 FFFC            DC.B      '      '
8456   FFFE                      DC.B      '  '

                      DT24:
8458   FFFF 7FFF 3FFF            DC.B      '    ? '
845E   1FFF 0FFF 07FF            DC.B      '      '
8464   03FF 01FF 00FF            DC.B      '      '
846A   007F 003F 001F            DC.B      '   ?  '
8470   000F 0007 0003            DC.B      '      '
8476   0001                      DC.B      '  '

                      DT25:
8478   8000 4000 2000            DC.B      '  @   '
847E   1000 0800 0400            DC.B      '      '
8484   0200 0100 0080            DC.B      '      '
848A   0040 0020 0010            DC.B      ' @    '
8490   0008 0004 0002            DC.B      '      '
8496   0001                      DC.B      '  '

                      P_mPatExpand:
8498   4E56 FFF0                 Link      A6, #$-10
849C   2F0C                      Move.L    A4, -(A7)
849E   2855                      Move.L    (A5), A4
84A0   7007                      MoveQ.L   #$7, D0
84A2   C06C FF58                 And       $-A8(A4), D0
84A6   6716                      BEQ.B     L1393
84A8   2D50 FFF0                 Move.L    (A0), $-10(A6)
84AC   2D58 FFF8                 Move.L    (A0)+, $-8(A6)
84B0   2D50 FFF4                 Move.L    (A0), $-C(A6)
84B4   2D50 FFFC                 Move.L    (A0), $-4(A6)
84B8   41EE FFF0                 Lea.L     $-10(A6), A0
84BC   D0C0                      AddA      D0, A0
84BE   D46C FF5A      L1393:     Add       $-A6(A4), D2
84C2   7207                      MoveQ.L   #$7, D1
84C4   C441                      And       D1, D2
84C6   2854                      Move.L    (A4), A4
84C8   302C 005A                 Move      $5A(A4), D0
84CC   0C40 0002                 Cmp       #$2, D0
84D0   6720                      BEQ.B     L1395
84D2   0C40 FFFE                 Cmp       #$-2, D0
84D6   6740                      BEQ.B     L1397
84D8   1018           L1394:     Move.B    (A0)+, D0
84DA   BF00                      Eor.B     D7, D0
84DC   E538                      ROL.B     D2, D0
84DE   12C0                      Move.B    D0, (A1)+
84E0   12C0                      Move.B    D0, (A1)+
84E2   32E9 FFFE                 Move      $-2(A1), (A1)+
84E6   2369 FFFC 001C            Move.L    $-4(A1), $1C(A1)
84EC   51C9 FFEA                 DBF       D1, L1394
84F0   6048                      Bra.B     L1399
84F2   4240           L1395:     Clr       D0
84F4   1018           L1396:     Move.B    (A0)+, D0
84F6   BF00                      Eor.B     D7, D0
84F8   E538                      ROL.B     D2, D0
84FA   1F00                      Move.B    D0, -(A7)
84FC   E808                      LsR.B     #$4, D0
84FE   12FB 0040                 Move.B    DT26(D0.W), (A1)+
8502   700F                      MoveQ.L   #$F, D0
8504   C01F                      And.B     (A7)+, D0
8506   12FB 0038                 Move.B    DT26(D0.W), (A1)+
850A   32E9 FFFE                 Move      $-2(A1), (A1)+
850E   22E9 FFFC                 Move.L    $-4(A1), (A1)+
8512   51C9 FFE0                 DBF       D1, L1396
8516   6022                      Bra.B     L1399
8518   4240           L1397:     Clr       D0
851A   1018           L1398:     Move.B    (A0)+, D0
851C   BF00                      Eor.B     D7, D0
851E   E538                      ROL.B     D2, D0
8520   1F00                      Move.B    D0, -(A7)
8522   E808                      LsR.B     #$4, D0
8524   12FB 002A                 Move.B    DT27(D0.W), (A1)+
8528   700F                      MoveQ.L   #$F, D0
852A   C01F                      And.B     (A7)+, D0
852C   12FB 0022                 Move.B    DT27(D0.W), (A1)+
8530   32E9 FFFE                 Move      $-2(A1), (A1)+
8534   4299                      Clr.L     (A1)+
8536   51C9 FFE2                 DBF       D1, L1398
853A   285F           L1399:     Move.L    (A7)+, A4
853C   4E5E                      Unlk      A6
853E   4E75                      Rts

                      DT26:
8540   0003 0C0F 3033            DC.B      '    03'
8546   3C3F C0C3 CCCF            DC.B      '<?    '
854C   F0F3 FCFF                 DC.B      '    '

                      DT27:
8550   0001 0405 1011            DC.B      '      '
8556   1415 4041 4445            DC.B      '  @ADE'
855C   5051 5455                 DC.B      'PQTU'

                      P_mColorMap:
8560   48E7 F080                 MoveM.L   D0-D3/A0, -(A7)
8564   2055                      Move.L    (A5), A0
8566   2050                      Move.L    (A0), A0
8568   2008                      Move.L    A0, D0
856A   6762                      BEQ.B     L1407
856C   0800 0000                 BTst.B    #$0, D0
8570   665C                      BNE.B     L1407
8572   3428 0058                 Move      $58(A0), D2
8576   6B56                      BMI.B     L1407
8578   362F 001C                 Move      $1C(A7), D3
857C   7003                      MoveQ.L   #$3, D0
857E   C043                      And       D3, D0
8580   671E                      BEQ.B     L1402
8582   0C40 0002                 Cmp       #$2, D0
8586   6746                      BEQ.B     L1407
8588   6E0E                      BGT.B     L1401
858A   2228 0050                 Move.L    $50(A0), D1
858E   0501           L1400:     BTst.L    D2, D1
8590   663C                      BNE.B     L1407
8592   0A43 0002                 Eor       #$2, D3
8596   6032                      Bra.B     L1406
8598   2228 0054      L1401:     Move.L    $54(A0), D1
859C   4681                      Not.L     D1
859E   60EE                      Bra.B     L1400
85A0   2028 0050      L1402:     Move.L    $50(A0), D0
85A4   2228 0054                 Move.L    $54(A0), D1
85A8   0500                      BTst.L    D2, D0
85AA   6712                      BEQ.B     L1404
85AC   0501                      BTst.L    D2, D1
85AE   671E                      BEQ.B     L1407
85B0   7608                      MoveQ.L   #$8, D3
85B2   2055           L1403:     Move.L    (A5), A0
85B4   41E8 FFF0                 Lea.L     $-10(A0), A0
85B8   2F48 0018                 Move.L    A0, $18(A7)
85BC   600C                      Bra.B     L1406
85BE   0501           L1404:     BTst.L    D2, D1
85C0   6604                      BNE.B     L1405
85C2   760C                      MoveQ.L   #$C, D3
85C4   60EC                      Bra.B     L1403
85C6   0A43 0004      L1405:     Eor       #$4, D3
85CA   3F43 001C      L1406:     Move      D3, $1C(A7)
85CE   4CDF 010F      L1407:     MoveM.L   (A7)+, D0-D3/A0
85D2   4E75                      Rts

                      P_tGetPixel:
85D4   4EBA FD1C                 Jsr       P_tHideCursor
85D8   241F                      Move.L    (A7)+, D2
85DA   2255                      Move.L    (A5), A1
85DC   2251                      Move.L    (A1), A1
85DE   301F                      Move      (A7)+, D0
85E0   9069 0008                 Sub       $8(A1), D0
85E4   321F                      Move      (A7)+, D1
85E6   9269 000A                 Sub       $A(A1), D1
85EA   C0E9 0006                 MulU      $6(A1), D0
85EE   2269 0002                 Move.L    $2(A1), A1
85F2   D3C0                      AddA.L    D0, A1
85F4   3001                      Move      D1, D0
85F6   4640                      Not       D0
85F8   E649                      LsR       #$3, D1
85FA   0131 1000                 BTst.L    D0, $0(A1,D1.W)
85FE   56D7                      SNE.B     (A7)
8600   4417                      Neg.B     (A7)
8602   2F02                      Move.L    D2, -(A7)
8604   4EFA FCF2                 Jmp       P_tShowCursor

                      P_tStuffHex:
8608   206F 0004                 Move.L    $4(A7), A0
860C   226F 0008                 Move.L    $8(A7), A1
8610   2F57 0008                 Move.L    (A7), $8(A7)
8614   504F                      AddQ      #$8, A7
8616   1418                      Move.B    (A0)+, D2
8618   0242 00FE                 And       #$FE, D2
861C   6710                      BEQ.B     L1409
861E   6110           L1408:     Bsr.B     P260
8620   1200                      Move.B    D0, D1
8622   610C                      Bsr.B     P260
8624   E909                      LsL.B     #$4, D1
8626   D200                      Add.B     D0, D1
8628   12C1                      Move.B    D1, (A1)+
862A   5542                      SubQ      #$2, D2
862C   66F0                      BNE.B     L1408
862E   4E75           L1409:     Rts

                      P260:
8630   1018                      Move.B    (A0)+, D0
8632   0C00 0039                 Cmp.B     #$39, D0
8636   6F04                      BLE.B     L1410
8638   0600 0009                 Add.B     #$9, D0
863C   0200 000F      L1410:     And.B     #$F, D0
8640   4E75                      Rts

                      P_mXorSlab:
8642   2208                      Move.L    A0, D1
8644   41FA FDF2                 Lea.L     DT_mMaskTab, A0
8648   700F                      MoveQ.L   #$F, D0
864A   3A03                      Move      D3, D5
864C   CA40                      And       D0, D5
864E   DA45                      Add       D5, D5
8650   3A30 5000                 Move      $0(A0,D5.W), D5
8654   4645                      Not       D5
8656   3C04                      Move      D4, D6
8658   CC40                      And       D0, D6
865A   DC46                      Add       D6, D6
865C   3C30 6000                 Move      $0(A0,D6.W), D6
8660   2041                      Move.L    D1, A0
8662   E843                      AsR       #$4, D3
8664   D0C3                      AddA      D3, A0
8666   D0C3                      AddA      D3, A0
8668   E844                      AsR       #$4, D4
866A   9843                      Sub       D3, D4
866C   6E06                      BGT.B     L1411
866E   CC45                      And       D5, D6
8670   BD50                      Eor       D6, (A0)
8672   4E75                      Rts
8674   BB58           L1411:     Eor       D5, (A0)+
8676   6002                      Bra.B     L1413
8678   4698           L1412:     Not.L     (A0)+
867A   5544           L1413:     SubQ      #$2, D4
867C   6EFA                      BGT.B     L1412
867E   6D02                      BLT.B     L1414
8680   4658                      Not       (A0)+
8682   BD50           L1414:     Eor       D6, (A0)
8684   4E75                      Rts

                      P_mDrawSlab:
8686   B26B 0002                 Cmp       $2(A3), D1
868A   6C04                      BGE.B     L1415
868C   322B 0002                 Move      $2(A3), D1
8690   B46B 0006      L1415:     Cmp       $6(A3), D2
8694   6F04                      BLE.B     L1416
8696   342B 0006                 Move      $6(A3), D2
869A   B242           L1416:     Cmp       D2, D1
869C   6C24                      BGE.B     L1417
869E   760F                      MoveQ.L   #$F, D3
86A0   3001                      Move      D1, D0
86A2   C243                      And       D3, D1
86A4   D241                      Add       D1, D1
86A6   3230 1020                 Move      $20(A0,D1.W), D1
86AA   C642                      And       D2, D3
86AC   D643                      Add       D3, D3
86AE   3630 3000                 Move      $0(A0,D3.W), D3
86B2   E842                      AsR       #$4, D2
86B4   E840                      AsR       #$4, D0
86B6   9440                      Sub       D0, D2
86B8   D040                      Add       D0, D0
86BA   D2C0                      AddA      D0, A1
86BC   D4C0                      AddA      D0, A2
86BE   4A42                      Tst       D2
86C0   4ED4                      Jmp       (A4)
86C2   4E75           L1417:     Rts
86C4   C243           L1418:     And       D3, D1
86C6   3006           L1419:     Move      D6, D0
86C8   C25A                      And       (A2)+, D1
86CA   C041                      And       D1, D0
86CC   4641                      Not       D1
86CE   C251                      And       (A1), D1
86D0   8240                      Or        D0, D1
86D2   32C1                      Move      D1, (A1)+
86D4   72FF                      MoveQ.L   #$-1, D1
86D6   5342                      SubQ      #$1, D2

                      E_226:
86D8   6EEC                      BGT.B     L1419
86DA   67E8                      BEQ.B     L1418
86DC   4E75                      Rts
86DE   C243           L1420:     And       D3, D1
86E0   C246           L1421:     And       D6, D1
86E2   C25A                      And       (A2)+, D1
86E4   8359                      Or        D1, (A1)+
86E6   72FF                      MoveQ.L   #$-1, D1
86E8   5342                      SubQ      #$1, D2

                      E_227:
86EA   6EF4                      BGT.B     L1421
86EC   67F0                      BEQ.B     L1420
86EE   4E75                      Rts
86F0   C243           L1422:     And       D3, D1
86F2   C246           L1423:     And       D6, D1
86F4   C25A                      And       (A2)+, D1
86F6   B359                      Eor       D1, (A1)+
86F8   72FF                      MoveQ.L   #$-1, D1
86FA   5342                      SubQ      #$1, D2

                      E_228:
86FC   6EF4                      BGT.B     L1423
86FE   67F0                      BEQ.B     L1422
8700   4E75                      Rts
8702   C243           L1424:     And       D3, D1
8704   C246           L1425:     And       D6, D1
8706   C25A                      And       (A2)+, D1
8708   4641                      Not       D1
870A   C359                      And       D1, (A1)+
870C   72FF                      MoveQ.L   #$-1, D1
870E   5342                      SubQ      #$1, D2

                      E_229:
8710   6EF2                      BGT.B     L1425
8712   67EE                      BEQ.B     L1424
8714   4E75                      Rts

                      P_mSlabMode:
8716   0242 0003                 And       #$3, D2
871A   49FA 000A                 Lea.L     DT28, A4
871E   1434 2000                 Move.B    $0(A4,D2.W), D2
8722   98C2                      SubA      D2, A4
8724   4E75                      Rts

                      DT28:
8726   4E3C 2A16                 DC.B      'N<* '

                      E_230:
872A   670E                      BEQ.B     L1427
872C   8359                      Or        D1, (A1)+
872E   5542                      SubQ      #$2, D2
8730   6D0A                      BLT.B     L1428
8732   72FF                      MoveQ.L   #$-1, D1
8734   32C1           L1426:     Move      D1, (A1)+
8736   51CA FFFC                 DBF       D2, L1426
873A   C641           L1427:     And       D1, D3
873C   8759           L1428:     Or        D3, (A1)+
873E   4E75                      Rts

                      E_231:
8740   670E                      BEQ.B     L1430
8742   B359                      Eor       D1, (A1)+
8744   5542                      SubQ      #$2, D2
8746   6D0A                      BLT.B     L1431
8748   4659           L1429:     Not       (A1)+
874A   51CA FFFC                 DBF       D2, L1429
874E   6002                      Bra.B     L1431
8750   C641           L1430:     And       D1, D3
8752   B759           L1431:     Eor       D3, (A1)+
8754   4E75                      Rts

                      E_232:
8756   6710                      BEQ.B     L1433
8758   4641                      Not       D1
875A   C359                      And       D1, (A1)+
875C   5542                      SubQ      #$2, D2
875E   6D0A                      BLT.B     L1434
8760   4259           L1432:     Clr       (A1)+
8762   51CA FFFC                 DBF       D2, L1432
8766   6002                      Bra.B     L1434
8768   C641           L1433:     And       D1, D3
876A   4643           L1434:     Not       D3
876C   C759                      And       D3, (A1)+
876E   4E75                      Rts

                      P_mFastSlabMode:
8770   0242 0003                 And       #$3, D2
8774   49FA 000A                 Lea.L     DT29, A4
8778   1434 2000                 Move.B    $0(A4,D2.W), D2
877C   98C2                      SubA      D2, A4
877E   4E75                      Rts

                      DT29:
8780   5640 2A00                 DC.B      'V@* '

                      P265:
8784   7000                      MoveQ.L   #$0, D0
8786   225F                      Move.L    (A7)+, A1
8788   301F                      Move      (A7)+, D0
878A   A122                      _NewHandle
878C   6604                      BNE.B     L1435
878E   2E88                      Move.L    A0, (A7)
8790   4ED1                      Jmp       (A1)
8792   7019           L1435:     MoveQ.L   #$19, D0
8794   A9C9                      _SysError
8796   A9FF                      _Debugger

                      P_mSetHSize:
8798   7000                      MoveQ.L   #$0, D0
879A   225F                      Move.L    (A7)+, A1
879C   301F                      Move      (A7)+, D0
879E   205F                      Move.L    (A7)+, A0
87A0   A024                      _SetHandleSize
87A2   66EE                      BNE.B     L1435
87A4   4ED1                      Jmp       (A1)

                      P_tInitGraf:
87A6   4E56 0000                 Link      A6, #$0
87AA   2F0C                      Move.L    A4, -(A7)
87AC   286E 0008                 Move.L    $8(A6), A4
87B0   2A8C                      Move.L    A4, (A5)
87B2   4238 08F3                 Clr.B     (QDExist)
87B6   41EC FF36                 Lea.L     $-CA(A4), A0
87BA   43EC 0004                 Lea.L     $4(A4), A1
87BE   4258           L1436:     Clr       (A0)+
87C0   B1C9                      CmpA.L    A1, A0
87C2   66FA                      BNE.B     L1436
87C4   49EC FF70                 Lea.L     $-90(A4), A4
87C8   200C                      Move.L    A4, D0
87CA   38FC 000A                 Move      #$A, (A4)+
87CE   28FC 8001 8001            Move.L    #$80018001, (A4)+
87D4   28FC 7FFF 7FFF            Move.L    #$7FFF7FFF, (A4)+
87DA   220C                      Move.L    A4, D1
87DC   28C0                      Move.L    D0, (A4)+
87DE   28C1                      Move.L    D1, (A4)+
87E0   7001                      MoveQ.L   #$1, D0
87E2   28C0                      Move.L    D0, (A4)+
87E4   2F0C                      Move.L    A4, -(A7)
87E6   A833                      _ScrnBitMap
87E8   D8FC 000E                 AddA      #$E, A4
87EC   701A                      MoveQ.L   #$1A, D0
87EE   41FA 0010                 Lea.L     DT30, A0
87F2   28D8           L1437:     Move.L    (A0)+, (A4)+
87F4   51C8 FFFC                 DBF       D0, L1437
87F8   285F                      Move.L    (A7)+, A4
87FA   4E5E                      Unlk      A6
87FC   2E9F                      Move.L    (A7)+, (A7)
87FE   4E75                      Rts

                      DT30:
8800   0000 4000 6000            DC.B      '  @ ` '
8806   7000 7800 7C00            DC.B      'p x | '
880C   7E00 7F00 7F80            DC.B      '~     '
8812   7C00 6C00 4600            DC.B      '| l F '
8818   0600 0300 0300            DC.B      '      '
881E   0000 C000 E000            DC.B      '      '
8824   F000 F800 FC00            DC.B      '      '
882A   FE00 FF00 FF80            DC.B      '      '
8830   FFC0 FFE0 FE00            DC.B      '      '
8836   EF00 CF00 8780            DC.B      '      '
883C   0780 0380 0001            DC.B      '      '
8842   0001 77DD 77DD            DC.B      '  w w '
8848   77DD 77DD 8822            DC.B      'w w  "'
884E   8822 8822 8822            DC.B      ' " " "'
8854   AA55 AA55 AA55            DC.B      ' U U U'
885A   AA55 FFFF FFFF            DC.B      ' U    '
8860   FFFF FFFF 0000            DC.B      '      '
8866   0000 0000 0000            DC.B      '      '

                      P_tOpenPort:
886C   42A7                      Clr.L     -(A7)
886E   4EBA 34DE                 Jsr       P_tNewRgn
8872   42A7                      Clr.L     -(A7)
8874   4EBA 34D8                 Jsr       P_tNewRgn
8878   206F 000C                 Move.L    $C(A7), A0
887C   215F 001C                 Move.L    (A7)+, $1C(A0)
8880   215F 0018                 Move.L    (A7)+, $18(A0)

                      P_tInitPort:
8884   2055                      Move.L    (A5), A0
8886   226F 0004                 Move.L    $4(A7), A1
888A   2089                      Move.L    A1, (A0)
888C   4259                      Clr       (A1)+
888E   41E8 FF86                 Lea.L     $-7A(A0), A0
8892   22D8                      Move.L    (A0)+, (A1)+
8894   32D8                      Move      (A0)+, (A1)+
8896   22D0                      Move.L    (A0), (A1)+
8898   22E8 0004                 Move.L    $4(A0), (A1)+
889C   22D0                      Move.L    (A0), (A1)+
889E   22E8 0004                 Move.L    $4(A0), (A1)+
88A2   2F19                      Move.L    (A1)+, -(A7)
88A4   2F08                      Move.L    A0, -(A7)
88A6   4EBA 360C                 Jsr       P_tRectRgn
88AA   226F 0004                 Move.L    $4(A7), A1
88AE   2055                      Move.L    (A5), A0
88B0   2F28 FF7E                 Move.L    $-82(A0), -(A7)
88B4   2F29 001C                 Move.L    $1C(A1), -(A7)
88B8   4EBA 3544                 Jsr       P_tCopyRgn
88BC   226F 0004                 Move.L    $4(A7), A1
88C0   43E9 0020                 Lea.L     $20(A1), A1
88C4   4299                      Clr.L     (A1)+
88C6   4299                      Clr.L     (A1)+
88C8   70FF                      MoveQ.L   #$-1, D0
88CA   22C0                      Move.L    D0, (A1)+
88CC   22C0                      Move.L    D0, (A1)+
88CE   4299                      Clr.L     (A1)+
88D0   22FC 0001 0001            Move.L    #$10001, (A1)+
88D6   32FC 0008                 Move      #$8, (A1)+
88DA   22C0                      Move.L    D0, (A1)+
88DC   22C0                      Move.L    D0, (A1)+
88DE   4259                      Clr       (A1)+
88E0   4299                      Clr.L     (A1)+
88E2   32FC 0001                 Move      #$1, (A1)+
88E6   4259                      Clr       (A1)+
88E8   4299                      Clr.L     (A1)+
88EA   22FC 0000 0021            Move.L    #$21, (A1)+
88F0   22FC 0000 001E            Move.L    #$1E, (A1)+
88F6   4299                      Clr.L     (A1)+
88F8   4299                      Clr.L     (A1)+
88FA   4299                      Clr.L     (A1)+
88FC   4299                      Clr.L     (A1)+
88FE   4299                      Clr.L     (A1)+
8900   2E9F                      Move.L    (A7)+, (A7)
8902   4E75                      Rts

                      P_tClosePort:
8904   206F 0004                 Move.L    $4(A7), A0
8908   2068 001C                 Move.L    $1C(A0), A0
890C   A023                      _DisposeHandle
890E   206F 0004                 Move.L    $4(A7), A0
8912   2068 0018                 Move.L    $18(A0), A0
8916   A023                      _DisposeHandle
8918   2E9F                      Move.L    (A7)+, (A7)
891A   4E75                      Rts

                      P_tSetStdProcs:
891C   205F                      Move.L    (A7)+, A0
891E   225F                      Move.L    (A7)+, A1
8920   22F8 0E08                 Move.L    ($E08), (A1)+
8924   22F8 0E40                 Move.L    ($E40), (A1)+
8928   22F8 0E80                 Move.L    ($E80), (A1)+
892C   22F8 0EBC                 Move.L    ($EBC), (A1)+
8930   22F8 0ED8                 Move.L    ($ED8), (A1)+
8934   22F8 0EF4                 Move.L    ($EF4), (A1)+
8938   22F8 0F14                 Move.L    ($F14), (A1)+
893C   22F8 0F44                 Move.L    ($F44), (A1)+
8940   22F8 0FAC                 Move.L    ($FAC), (A1)+
8944   22F8 0FC4                 Move.L    ($FC4), (A1)+
8948   22F8 0FB4                 Move.L    ($FB4), (A1)+
894C   22F8 0FB8                 Move.L    ($FB8), (A1)+
8950   22F8 0FC0                 Move.L    ($FC0), (A1)+
8954   4ED0                      Jmp       (A0)

                      P_tLocalToGlobal:
8956   48E7 E0C0                 MoveM.L   D0-D2/A0-A1, -(A7)
895A   7401                      MoveQ.L   #$1, D2
895C   6006                      Bra.B     L1438

                      P_tGlobalToLocal:
895E   48E7 E0C0                 MoveM.L   D0-D2/A0-A1, -(A7)
8962   4282                      Clr.L     D2
8964   2055           L1438:     Move.L    (A5), A0
8966   2050                      Move.L    (A0), A0
8968   226F 0018                 Move.L    $18(A7), A1
896C   3028 0008                 Move      $8(A0), D0
8970   3228 000A                 Move      $A(A0), D1
8974   6106                      Bsr.B     P267
8976   4CDF 0307                 MoveM.L   (A7)+, D0-D2/A0-A1
897A   6030                      Bra.B     L1441

                      P267:
897C   4A42                      Tst       D2
897E   6704                      BEQ.B     L1439
8980   4440                      Neg       D0
8982   4441                      Neg       D1
8984   D159           L1439:     Add       D0, (A1)+
8986   D359                      Add       D1, (A1)+
8988   4E75                      Rts

                      P_tAddPt:
898A   48E7 E040                 MoveM.L   D0-D2/A1, -(A7)
898E   4282                      Clr.L     D2
8990   6006                      Bra.B     L1440

                      P_tSubPt:
8992   48E7 E040                 MoveM.L   D0-D2/A1, -(A7)
8996   7401                      MoveQ.L   #$1, D2
8998   226F 0014      L1440:     Move.L    $14(A7), A1
899C   302F 0018                 Move      $18(A7), D0
89A0   322F 001A                 Move      $1A(A7), D1
89A4   61D6                      Bsr.B     P267
89A6   4CDF 0207                 MoveM.L   (A7)+, D0-D2/A1
89AA   2E9F                      Move.L    (A7)+, (A7)
89AC   2E9F           L1441:     Move.L    (A7)+, (A7)
89AE   4E75                      Rts

                      P_tSetPort:
89B0   2055                      Move.L    (A5), A0
89B2   20AF 0004                 Move.L    $4(A7), (A0)
89B6   60F4                      Bra.B     L1441

                      P_tGetPort:
89B8   2055                      Move.L    (A5), A0
89BA   226F 0004                 Move.L    $4(A7), A1
89BE   2290                      Move.L    (A0), (A1)
89C0   60EA                      Bra.B     L1441

                      P_tGrafDevice:
89C2   7000                      MoveQ.L   #$0, D0
89C4   4EFA FA3C                 Jmp       L_mPortWord

                      P_tSetPortBits:
89C8   2055                      Move.L    (A5), A0
89CA   2050                      Move.L    (A0), A0
89CC   41E8 0002                 Lea.L     $2(A0), A0
89D0   226F 0004                 Move.L    $4(A7), A1
89D4   20D9                      Move.L    (A1)+, (A0)+
89D6   30D9                      Move      (A1)+, (A0)+
89D8   20D9           L1442:     Move.L    (A1)+, (A0)+
89DA   20D9                      Move.L    (A1)+, (A0)+
89DC   2E9F                      Move.L    (A7)+, (A7)
89DE   4E75                      Rts

                      P_tBackPat:
89E0   2055                      Move.L    (A5), A0
89E2   2050                      Move.L    (A0), A0
89E4   41E8 0020                 Lea.L     $20(A0), A0
89E8   226F 0004                 Move.L    $4(A7), A1
89EC   60EA                      Bra.B     L1442

                      P_tPortSize:
89EE   2055                      Move.L    (A5), A0
89F0   2050                      Move.L    (A0), A0
89F2   3028 0012                 Move      $12(A0), D0
89F6   D06F 0006                 Add       $6(A7), D0
89FA   3140 0016                 Move      D0, $16(A0)
89FE   3028 0010                 Move      $10(A0), D0
8A02   D06F 0004                 Add       $4(A7), D0
8A06   3140 0014                 Move      D0, $14(A0)
8A0A   2E9F                      Move.L    (A7)+, (A7)
8A0C   4E75                      Rts

                      P_tMovePortTo:
8A0E   2055                      Move.L    (A5), A0
8A10   2050                      Move.L    (A0), A0
8A12   3028 0012                 Move      $12(A0), D0
8A16   9068 000A                 Sub       $A(A0), D0
8A1A   906F 0006                 Sub       $6(A7), D0
8A1E   3228 0010                 Move      $10(A0), D1
8A22   9268 0008                 Sub       $8(A0), D1
8A26   926F 0004                 Sub       $4(A7), D1
8A2A   2E9F                      Move.L    (A7)+, (A7)

                      P268:
8A2C   41E8 0008                 Lea.L     $8(A0), A0

                      P269:
8A30   D358                      Add       D1, (A0)+
8A32   D158                      Add       D0, (A0)+
8A34   D358                      Add       D1, (A0)+
8A36   D158                      Add       D0, (A0)+
8A38   4E75                      Rts

                      P_tSetOrigin:
8A3A   2055                      Move.L    (A5), A0
8A3C   2050                      Move.L    (A0), A0
8A3E   202F 0004                 Move.L    $4(A7), D0
8A42   B0A8 0010                 Cmp.L     $10(A0), D0
8A46   6722                      BEQ.B     L1443
8A48   302F 0006                 Move      $6(A7), D0
8A4C   9068 0012                 Sub       $12(A0), D0
8A50   322F 0004                 Move      $4(A7), D1
8A54   9268 0010                 Sub       $10(A0), D1
8A58   2F28 0018                 Move.L    $18(A0), -(A7)
8A5C   3F00                      Move      D0, -(A7)
8A5E   3F01                      Move      D1, -(A7)
8A60   61CA                      Bsr.B     P268
8A62   41D0                      Lea.L     (A0), A0
8A64   61CA                      Bsr.B     P269
8A66   4EBA 345A                 Jsr       P_tOffsetRgn
8A6A   2E9F           L1443:     Move.L    (A7)+, (A7)
8A6C   4E75                      Rts

                      P_tClipRect:
8A6E   2055                      Move.L    (A5), A0
8A70   2050                      Move.L    (A0), A0
8A72   2F28 001C                 Move.L    $1C(A0), -(A7)
8A76   2F2F 0008                 Move.L    $8(A7), -(A7)
8A7A   4EBA 3438                 Jsr       P_tRectRgn
8A7E   60EA                      Bra.B     L1443

                      P_tSetClip:
8A80   205F                      Move.L    (A7)+, A0
8A82   2255                      Move.L    (A5), A1
8A84   2251                      Move.L    (A1), A1
8A86   2F29 001C                 Move.L    $1C(A1), -(A7)
8A8A   600E                      Bra.B     L1444

                      P_tGetClip:
8A8C   205F                      Move.L    (A7)+, A0
8A8E   201F                      Move.L    (A7)+, D0
8A90   2255                      Move.L    (A5), A1
8A92   2251                      Move.L    (A1), A1
8A94   2F29 001C                 Move.L    $1C(A1), -(A7)
8A98   2F00                      Move.L    D0, -(A7)
8A9A   2F08           L1444:     Move.L    A0, -(A7)
8A9C   4EFA 3360                 Jmp       P_tCopyRgn

                      P_tSetPt:
8AA0   205F                      Move.L    (A7)+, A0
8AA2   201F                      Move.L    (A7)+, D0
8AA4   225F                      Move.L    (A7)+, A1
8AA6   2280                      Move.L    D0, (A1)
8AA8   4ED0                      Jmp       (A0)

                      P_tEqualPt:
8AAA   205F                      Move.L    (A7)+, A0
8AAC   201F                      Move.L    (A7)+, D0
8AAE   B09F                      Cmp.L     (A7)+, D0
8AB0   57D7                      SEQ.B     (A7)
8AB2   4417                      Neg.B     (A7)
8AB4   4ED0                      Jmp       (A0)

                      P_tStdText:
8AB6   4E56 FFFC                 Link      A6, #$-4
8ABA   48E7 0718                 MoveM.L   D5-D7/A3-A4, -(A7)
8ABE   3C2E 0014      L1445:     Move      $14(A6), D6
8AC2   6F00 0170                 BLE       L1461
8AC6   0C46 00FF                 Cmp       #$FF, D6
8ACA   6F04                      BLE.B     L1446
8ACC   3C3C 00FF                 Move      #$FF, D6
8AD0   4EBA 5976      L1446:     Jsr       P_mCheckPic
8AD4   6F00 0138                 BLE       L1460
8AD8   286B 005C                 Move.L    $5C(A3), A4
8ADC   2854                      Move.L    (A4), A4
8ADE   3E2B 0044                 Move      $44(A3), D7
8AE2   BE6C 0018                 Cmp       $18(A4), D7
8AE6   6716                      BEQ.B     L1447
8AE8   7003                      MoveQ.L   #$3, D0
8AEA   4EBA 57B8                 Jsr       P_mDPutPicByte
8AEE   3F07                      Move      D7, -(A7)
8AF0   4EBA 57CA                 Jsr       P_mPutPicWord
8AF4   286B 005C                 Move.L    $5C(A3), A4
8AF8   2854                      Move.L    (A4), A4
8AFA   3947 0018                 Move      D7, $18(A4)
8AFE   1E2B 0046      L1447:     Move.B    $46(A3), D7
8B02   BE2C 001A                 Cmp.B     $1A(A4), D7
8B06   6716                      BEQ.B     L1448
8B08   7004                      MoveQ.L   #$4, D0
8B0A   4EBA 5798                 Jsr       P_mDPutPicByte
8B0E   1007                      Move.B    D7, D0
8B10   4EBA 5792                 Jsr       P_mDPutPicByte
8B14   286B 005C                 Move.L    $5C(A3), A4
8B18   2854                      Move.L    (A4), A4
8B1A   1947 001A                 Move.B    D7, $1A(A4)
8B1E   3E2B 0048      L1448:     Move      $48(A3), D7
8B22   BE6C 001C                 Cmp       $1C(A4), D7
8B26   6716                      BEQ.B     L1449
8B28   7005                      MoveQ.L   #$5, D0
8B2A   4EBA 5778                 Jsr       P_mDPutPicByte
8B2E   3F07                      Move      D7, -(A7)
8B30   4EBA 578A                 Jsr       P_mPutPicWord
8B34   286B 005C                 Move.L    $5C(A3), A4
8B38   2854                      Move.L    (A4), A4
8B3A   3947 001C                 Move      D7, $1C(A4)
8B3E   3E2B 004A      L1449:     Move      $4A(A3), D7
8B42   BE6C 001E                 Cmp       $1E(A4), D7
8B46   6714                      BEQ.B     L1450
8B48   700D                      MoveQ.L   #$D, D0
8B4A   6178                      Bsr.B     P270
8B4C   3F07                      Move      D7, -(A7)
8B4E   4EBA 576C                 Jsr       P_mPutPicWord
8B52   286B 005C                 Move.L    $5C(A3), A4
8B56   2854                      Move.L    (A4), A4
8B58   3947 001E                 Move      D7, $1E(A4)
8B5C   2E2B 004C      L1450:     Move.L    $4C(A3), D7
8B60   BEAC 0020                 Cmp.L     $20(A4), D7
8B64   6712                      BEQ.B     L1451
8B66   7006                      MoveQ.L   #$6, D0
8B68   615A                      Bsr.B     P270
8B6A   2F07                      Move.L    D7, -(A7)
8B6C   615A                      Bsr.B     P271
8B6E   286B 005C                 Move.L    $5C(A3), A4
8B72   2854                      Move.L    (A4), A4
8B74   2947 0020                 Move.L    D7, $20(A4)
8B78   2E2E 000C      L1451:     Move.L    $C(A6), D7
8B7C   2A2E 0008                 Move.L    $8(A6), D5
8B80   BEAC 0024                 Cmp.L     $24(A4), D7
8B84   6606                      BNE.B     L1452
8B86   BAAC 0028                 Cmp.L     $28(A4), D5
8B8A   671A                      BEQ.B     L1453
8B8C   7010           L1452:     MoveQ.L   #$10, D0
8B8E   6134                      Bsr.B     P270
8B90   2F07                      Move.L    D7, -(A7)
8B92   6134                      Bsr.B     P271
8B94   2F05                      Move.L    D5, -(A7)
8B96   6130                      Bsr.B     P271
8B98   286B 005C                 Move.L    $5C(A3), A4
8B9C   2854                      Move.L    (A4), A4
8B9E   2947 0024                 Move.L    D7, $24(A4)
8BA2   2945 0028                 Move.L    D5, $28(A4)
8BA6   2A2B 0030      L1453:     Move.L    $30(A3), D5
8BAA   9AAC 002C                 Sub.L     $2C(A4), D5
8BAE   2005                      Move.L    D5, D0
8BB0   0280 FF00 FF00            And.L     #$FF00FF00, D0
8BB6   6714                      BEQ.B     L1454
8BB8   7028                      MoveQ.L   #$28, D0
8BBA   6108                      Bsr.B     P270
8BBC   2F2B 0030                 Move.L    $30(A3), -(A7)
8BC0   6106                      Bsr.B     P271
8BC2   6030                      Bra.B     L1459

                      P270:
8BC4   4EFA 56DE                 Jmp       P_mDPutPicByte

                      P271:
8BC8   4EFA 5704                 Jmp       P_mPutPicLong
8BCC   2005           L1454:     Move.L    D5, D0
8BCE   0280 00FF 0000            And.L     #$FF0000, D0
8BD4   6606                      BNE.B     L1455
8BD6   7029                      MoveQ.L   #$29, D0
8BD8   61EA                      Bsr.B     P270
8BDA   6014                      Bra.B     L1458
8BDC   4A05           L1455:     Tst.B     D5
8BDE   6606                      BNE.B     L1456
8BE0   702A                      MoveQ.L   #$2A, D0
8BE2   61E0                      Bsr.B     P270
8BE4   6008                      Bra.B     L1457
8BE6   702B           L1456:     MoveQ.L   #$2B, D0
8BE8   61DA                      Bsr.B     P270
8BEA   1005                      Move.B    D5, D0
8BEC   61D6                      Bsr.B     P270
8BEE   4845           L1457:     Swap      D5
8BF0   1005           L1458:     Move.B    D5, D0
8BF2   61D0                      Bsr.B     P270
8BF4   1006           L1459:     Move.B    D6, D0
8BF6   61CC                      Bsr.B     P270
8BF8   2F2E 0010                 Move.L    $10(A6), -(A7)
8BFC   3F06                      Move      D6, -(A7)
8BFE   4EBA 568E                 Jsr       P_mPutPicData
8C02   286B 005C                 Move.L    $5C(A3), A4
8C06   2854                      Move.L    (A4), A4
8C08   296B 0030 002C            Move.L    $30(A3), $2C(A4)
8C0E   3F06           L1460:     Move      D6, -(A7)
8C10   2F2E 0010                 Move.L    $10(A6), -(A7)
8C14   2F2E 000C                 Move.L    $C(A6), -(A7)
8C18   2F2E 0008                 Move.L    $8(A6), -(A7)
8C1C   4EBA 0308                 Jsr       P_mDrText
8C20   9D6E 0014                 Sub       D6, $14(A6)
8C24   6F0E                      BLE.B     L1461
8C26   206E 0010                 Move.L    $10(A6), A0
8C2A   D0C6                      AddA      D6, A0
8C2C   2D48 0010                 Move.L    A0, $10(A6)
8C30   6000 FE8C                 Bra       L1445
8C34   4CDF 18E0      L1461:     MoveM.L   (A7)+, D5-D7/A3-A4
8C38   4E5E                      Unlk      A6
8C3A   205F                      Move.L    (A7)+, A0
8C3C   DEFC 000E                 AddA      #$E, A7
8C40   4ED0                      Jmp       (A0)

                      P_mCallText:
8C42   205F                      Move.L    (A7)+, A0
8C44   2F3C 0001 0001            Move.L    #$10001, -(A7)
8C4A   2F17                      Move.L    (A7), -(A7)
8C4C   2F08                      Move.L    A0, -(A7)
8C4E   2055                      Move.L    (A5), A0
8C50   2050                      Move.L    (A0), A0
8C52   2028 0068                 Move.L    $68(A0), D0
8C56   2078 0E08                 Move.L    ($E08), A0
8C5A   6704                      BEQ.B     L1462
8C5C   2040                      Move.L    D0, A0
8C5E   2050                      Move.L    (A0), A0
8C60   4ED0           L1462:     Jmp       (A0)

                      P_tTextFace:
8C62   2055                      Move.L    (A5), A0
8C64   2050                      Move.L    (A0), A0
8C66   116F 0005 0046            Move.B    $5(A7), $46(A0)
8C6C   6020                      Bra.B     L1463

                      P_tDrawChar:
8C6E   3F3C 0001                 Move      #$1, -(A7)
8C72   486F 0007                 Pea.L     $7(A7)
8C76   4EBA FFCA                 Jsr       P_mCallText
8C7A   6012                      Bra.B     L1463

                      P_tCharWidth:
8C7C   4267                      Clr       -(A7)
8C7E   2F0F                      Move.L    A7, -(A7)
8C80   2F3C 0001 0007            Move.L    #$10007, -(A7)
8C86   4EBA 0060                 Jsr       P_tTextWidth
8C8A   3F5F 0006                 Move      (A7)+, $6(A7)
8C8E   205F           L1463:     Move.L    (A7)+, A0
8C90   544F                      AddQ      #$2, A7
8C92   4ED0                      Jmp       (A0)

                      P_tTextFont:
8C94   7044                      MoveQ.L   #$44, D0
8C96   6006                      Bra.B     L1464

                      P_tTextMode:
8C98   7048                      MoveQ.L   #$48, D0
8C9A   6002                      Bra.B     L1464

                      P_tTextSize:
8C9C   704A                      MoveQ.L   #$4A, D0
8C9E   4EFA F762      L1464:     Jmp       L_mPortWord

                      P_tSpaceExtra:
8CA2   2055                      Move.L    (A5), A0
8CA4   2050                      Move.L    (A0), A0
8CA6   216F 0004 004C            Move.L    $4(A7), $4C(A0)
8CAC   6026                      Bra.B     L1465

                      P_tDrawString:
8CAE   206F 0004                 Move.L    $4(A7), A0
8CB2   4240                      Clr       D0
8CB4   1018                      Move.B    (A0)+, D0
8CB6   3F00                      Move      D0, -(A7)
8CB8   2F08                      Move.L    A0, -(A7)
8CBA   4EBA FF86                 Jsr       P_mCallText
8CBE   6014                      Bra.B     L1465

                      P_tDrawText:
8CC0   206F 0008                 Move.L    $8(A7), A0
8CC4   D0EF 0006                 AddA      $6(A7), A0
8CC8   3F2F 0004                 Move      $4(A7), -(A7)
8CCC   2F08                      Move.L    A0, -(A7)
8CCE   4EBA FF72                 Jsr       P_mCallText
8CD2   2E9F                      Move.L    (A7)+, (A7)
8CD4   2E9F           L1465:     Move.L    (A7)+, (A7)
8CD6   4E75                      Rts

                      P_tStringWidth:
8CD8   225F                      Move.L    (A7)+, A1
8CDA   205F                      Move.L    (A7)+, A0
8CDC   4240                      Clr       D0
8CDE   1018                      Move.B    (A0)+, D0
8CE0   2F08                      Move.L    A0, -(A7)
8CE2   4267                      Clr       -(A7)
8CE4   3F00                      Move      D0, -(A7)
8CE6   2F09                      Move.L    A1, -(A7)

                      P_tTextWidth:
8CE8   4E56 FFF0                 Link      A6, #$-10
8CEC   426E 0010                 Clr       $10(A6)
8CF0   4267                      Clr       -(A7)
8CF2   3F2E 0008                 Move      $8(A6), -(A7)
8CF6   6F50                      BLE.B     L1468
8CF8   206E 000C                 Move.L    $C(A6), A0
8CFC   D0EE 000A                 AddA      $A(A6), A0
8D00   2F08                      Move.L    A0, -(A7)
8D02   203C 0001 0001            Move.L    #$10001, D0
8D08   2D40 FFF4                 Move.L    D0, $-C(A6)
8D0C   2D40 FFF0                 Move.L    D0, $-10(A6)
8D10   486E FFF4                 Pea.L     $-C(A6)
8D14   486E FFF0                 Pea.L     $-10(A6)
8D18   486E FFF8                 Pea.L     $-8(A6)
8D1C   2055                      Move.L    (A5), A0
8D1E   2050                      Move.L    (A0), A0
8D20   2028 0068                 Move.L    $68(A0), D0
8D24   2078 0FB4                 Move.L    ($FB4), A0
8D28   6706                      BEQ.B     L1466
8D2A   2040                      Move.L    D0, A0
8D2C   2068 0028                 Move.L    $28(A0), A0
8D30   4E90           L1466:     Jsr       (A0)
8D32   321F                      Move      (A7)+, D1
8D34   302E FFF6                 Move      $-A(A6), D0
8D38   342E FFF2                 Move      $-E(A6), D2
8D3C   B042                      Cmp       D2, D0
8D3E   6704                      BEQ.B     L1467
8D40   C2C0                      MulU      D0, D1
8D42   82C2                      DivU      D2, D1
8D44   3D41 0010      L1467:     Move      D1, $10(A6)
8D48   4E5E           L1468:     Unlk      A6
8D4A   205F                      Move.L    (A7)+, A0
8D4C   504F                      AddQ      #$8, A7
8D4E   4ED0                      Jmp       (A0)

                      P_tStdTxMeas:
8D50   4E56 FFF0                 Link      A6, #$-10
8D54   2F0C                      Move.L    A4, -(A7)
8D56   2855                      Move.L    (A5), A4
8D58   2054                      Move.L    (A4), A0
8D5A   43EE FFF0                 Lea.L     $-10(A6), A1
8D5E   32E8 0044                 Move      $44(A0), (A1)+
8D62   32E8 004A                 Move      $4A(A0), (A1)+
8D66   12E8 0046                 Move.B    $46(A0), (A1)+
8D6A   50D9                      ST.B      (A1)+
8D6C   32D0                      Move      (A0), (A1)+
8D6E   206E 0010                 Move.L    $10(A6), A0
8D72   22D0                      Move.L    (A0), (A1)+
8D74   206E 000C                 Move.L    $C(A6), A0
8D78   22D0                      Move.L    (A0), (A1)+
8D7A   42A7                      Clr.L     -(A7)
8D7C   486E FFF0                 Pea.L     $-10(A6)
8D80   2078 08E0                 Move.L    (JSwapFont), A0
8D84   4E90                      Jsr       (A0)
8D86   225F                      Move.L    (A7)+, A1
8D88   2949 FF50                 Move.L    A1, $-B0(A4)
8D8C   206E 0008                 Move.L    $8(A6), A0
8D90   4290                      Clr.L     (A0)
8D92   42A8 0004                 Clr.L     $4(A0)
8D96   1169 000D 0001            Move.B    $D(A1), $1(A0)
8D9C   1169 000E 0003            Move.B    $E(A1), $3(A0)
8DA2   1169 000F 0005            Move.B    $F(A1), $5(A0)
8DA8   1029 0010                 Move.B    $10(A1), D0
8DAC   4880                      Ext       D0
8DAE   3140 0006                 Move      D0, $6(A0)
8DB2   206E 0010                 Move.L    $10(A6), A0
8DB6   20A9 0012                 Move.L    $12(A1), (A0)
8DBA   206E 000C                 Move.L    $C(A6), A0
8DBE   20A9 0016                 Move.L    $16(A1), (A0)
8DC2   206E 0014                 Move.L    $14(A6), A0
8DC6   2278 0B10                 Move.L    (WidthPtr), A1
8DCA   4281                      Clr.L     D1
8DCC   342E 0018                 Move      $18(A6), D2
8DD0   600A                      Bra.B     L1470
8DD2   4240           L1469:     Clr       D0
8DD4   1018                      Move.B    (A0)+, D0
8DD6   E548                      LsL       #$2, D0
8DD8   D2B1 0000                 Add.L     $0(A1,D0.W), D1
8DDC   51CA FFF4      L1470:     DBF       D2, L1469
8DE0   2941 FF54                 Move.L    D1, $-AC(A4)
8DE4   4841                      Swap      D1
8DE6   3D41 001A                 Move      D1, $1A(A6)
8DEA   285F                      Move.L    (A7)+, A4
8DEC   4E5E                      Unlk      A6
8DEE   205F                      Move.L    (A7)+, A0
8DF0   DEFC 0012                 AddA      #$12, A7
8DF4   4ED0                      Jmp       (A0)

                      P_tMeasureText:
8DF6   4E56 FFF0                 Link      A6, #$-10
8DFA   48E7 1820                 MoveM.L   D3-D4/A2, -(A7)
8DFE   2055                      Move.L    (A5), A0
8E00   2050                      Move.L    (A0), A0
8E02   43EE FFF0                 Lea.L     $-10(A6), A1
8E06   32E8 0044                 Move      $44(A0), (A1)+
8E0A   32E8 004A                 Move      $4A(A0), (A1)+
8E0E   12E8 0046                 Move.B    $46(A0), (A1)+
8E12   50D9                      ST.B      (A1)+
8E14   32D0                      Move      (A0), (A1)+
8E16   22FC 0001 0001            Move.L    #$10001, (A1)+
8E1C   22FC 0001 0001            Move.L    #$10001, (A1)+
8E22   42A7                      Clr.L     -(A7)
8E24   486E FFF0                 Pea.L     $-10(A6)
8E28   2078 08E0                 Move.L    (JSwapFont), A0
8E2C   4E90                      Jsr       (A0)
8E2E   205F                      Move.L    (A7)+, A0
8E30   3628 0014                 Move      $14(A0), D3
8E34   3828 0018                 Move      $18(A0), D4
8E38   206E 000C                 Move.L    $C(A6), A0
8E3C   2278 0B10                 Move.L    (WidthPtr), A1
8E40   246E 0008                 Move.L    $8(A6), A2
8E44   4281                      Clr.L     D1
8E46   342E 0010                 Move      $10(A6), D2
8E4A   4841           L1471:     Swap      D1
8E4C   34C1                      Move      D1, (A2)+
8E4E   4841                      Swap      D1
8E50   4240                      Clr       D0
8E52   1018                      Move.B    (A0)+, D0
8E54   E548                      LsL       #$2, D0
8E56   D2B1 0000                 Add.L     $0(A1,D0.W), D1
8E5A   51CA FFEE                 DBF       D2, L1471
8E5E   B843                      Cmp       D3, D4
8E60   6714                      BEQ.B     L1473
8E62   246E 0008                 Move.L    $8(A6), A2
8E66   342E 0010                 Move      $10(A6), D2
8E6A   3012           L1472:     Move      (A2), D0
8E6C   C0C3                      MulU      D3, D0
8E6E   80C4                      DivU      D4, D0
8E70   34C0                      Move      D0, (A2)+
8E72   51CA FFF6                 DBF       D2, L1472
8E76   4CDF 0418      L1473:     MoveM.L   (A7)+, D3-D4/A2
8E7A   4E5E                      Unlk      A6
8E7C   205F                      Move.L    (A7)+, A0
8E7E   DEFC 000A                 AddA      #$A, A7
8E82   4ED0                      Jmp       (A0)

                      P_tGetFontInfo:
8E84   4E56 FFF8                 Link      A6, #$-8
8E88   2D7C 0001 0001            Move.L    #$10001, $-4(A6)
       FFFC
8E90   2D7C 0001 0001            Move.L    #$10001, $-8(A6)
       FFF8
8E98   42A7                      Clr.L     -(A7)
8E9A   42A7                      Clr.L     -(A7)
8E9C   486E FFFC                 Pea.L     $-4(A6)
8EA0   486E FFF8                 Pea.L     $-8(A6)
8EA4   2F2E 0008                 Move.L    $8(A6), -(A7)
8EA8   2055                      Move.L    (A5), A0
8EAA   2050                      Move.L    (A0), A0
8EAC   2028 0068                 Move.L    $68(A0), D0
8EB0   2078 0FB4                 Move.L    ($FB4), A0
8EB4   6706                      BEQ.B     L1474
8EB6   2040                      Move.L    D0, A0
8EB8   2068 0028                 Move.L    $28(A0), A0
8EBC   4E90           L1474:     Jsr       (A0)
8EBE   4A5F                      Tst       (A7)+
8EC0   2055                      Move.L    (A5), A0
8EC2   2068 FF50                 Move.L    $-B0(A0), A0
8EC6   226E 0008                 Move.L    $8(A6), A1
8ECA   1028 000C                 Move.B    $C(A0), D0
8ECE   4880                      Ext       D0
8ED0   D169 0004                 Add       D0, $4(A1)
8ED4   4240                      Clr       D0
8ED6   1028 000B                 Move.B    $B(A0), D0
8EDA   6706                      BEQ.B     L1475
8EDC   5251                      AddQ      #$1, (A1)
8EDE   D169 0002                 Add       D0, $2(A1)
8EE2   202E FFFC      L1475:     Move.L    $-4(A6), D0
8EE6   B0AE FFF8                 Cmp.L     $-8(A6), D0
8EEA   671C                      BEQ.B     L1476
8EEC   6120                      Bsr.B     P273
8EEE   611E                      Bsr.B     P273
8EF0   3011                      Move      (A1), D0
8EF2   C0EE FFFE                 MulU      $-2(A6), D0
8EF6   322E FFFA                 Move      $-6(A6), D1
8EFA   E249                      LsR       #$1, D1
8EFC   48C1                      Ext.L     D1
8EFE   D081                      Add.L     D1, D0
8F00   80EE FFFA                 DivU      $-6(A6), D0
8F04   32C0                      Move      D0, (A1)+
8F06   6106                      Bsr.B     P273
8F08   4E5E           L1476:     Unlk      A6
8F0A   2E9F                      Move.L    (A7)+, (A7)
8F0C   4E75                      Rts

                      P273:
8F0E   3011                      Move      (A1), D0
8F10   C0EE FFFC                 MulU      $-4(A6), D0
8F14   322E FFF8                 Move      $-8(A6), D1
8F18   E249                      LsR       #$1, D1
8F1A   48C1                      Ext.L     D1
8F1C   D081                      Add.L     D1, D0
8F1E   80EE FFF8                 DivU      $-8(A6), D0
8F22   32C0                      Move      D0, (A1)+
8F24   4E75                      Rts

                      P_mDrText:
8F26   4E56 FF3C                 Link      A6, #$-C4
8F2A   48E7 FF78                 MoveM.L   D0-D7/A1-A4, -(A7)
8F2E   2D4F FFFC                 Move.L    A7, $-4(A6)
8F32   2D4D FF44                 Move.L    A5, $-BC(A6)
8F36   2855                      Move.L    (A5), A4
8F38   2654                      Move.L    (A4), A3
8F3A   2D6E 000C FF40            Move.L    $C(A6), $-C0(A6)
8F40   2D6E 0008 FF3C            Move.L    $8(A6), $-C4(A6)
8F46   4267                      Clr       -(A7)
8F48   3F2E 0014                 Move      $14(A6), -(A7)
8F4C   6F00 0708                 BLE       L1529
8F50   2F2E 0010                 Move.L    $10(A6), -(A7)
8F54   486E 000C                 Pea.L     $C(A6)
8F58   486E 0008                 Pea.L     $8(A6)
8F5C   486E FF5C                 Pea.L     $-A4(A6)
8F60   2078 0FB4                 Move.L    ($FB4), A0
8F64   4E90                      Jsr       (A0)
8F66   321F                      Move      (A7)+, D1
8F68   286C FF50                 Move.L    $-B0(A4), A4
8F6C   246C 0002                 Move.L    $2(A4), A2
8F70   2452                      Move.L    (A2), A2
8F72   3D6A 000E FF4E            Move      $E(A2), $-B2(A6)
8F78   082A 0000 0001            BTst.B    #$0, $1(A2)
8F7E   56EE FF4C                 SNE.B     $-B4(A6)
8F82   242B 0030                 Move.L    $30(A3), D2
8F86   2D42 FF96                 Move.L    D2, $-6A(A6)
8F8A   3D42 FFF6                 Move      D2, $-A(A6)
8F8E   D441                      Add       D1, D2
8F90   7007                      MoveQ.L   #$7, D0
8F92   C06B 0048                 And       $48(A3), D0
8F96   670A                      BEQ.B     L1477
8F98   0C40 0003                 Cmp       #$3, D0
8F9C   6E04                      BGT.B     L1477
8F9E   0642 0020                 Add       #$20, D2
8FA2   3D42 FFFA      L1477:     Move      D2, $-6(A6)
8FA6   4842                      Swap      D2
8FA8   946A 0012                 Sub       $12(A2), D2
8FAC   3D42 FFF4                 Move      D2, $-C(A6)
8FB0   D46A 000E                 Add       $E(A2), D2
8FB4   3D42 FFF8                 Move      D2, $-8(A6)
8FB8   2D6E FFF4 FFEC            Move.L    $-C(A6), $-14(A6)
8FBE   2D6E FFF8 FFF0            Move.L    $-8(A6), $-10(A6)
8FC4   202E 000C                 Move.L    $C(A6), D0
8FC8   B0AE 0008                 Cmp.L     $8(A6), D0
8FCC   56EE FF8C                 SNE.B     $-74(A6)
8FD0   674A                      BEQ.B     L1478
8FD2   C2C0                      MulU      D0, D1
8FD4   82EE 000A                 DivU      $A(A6), D1
8FD8   202E FF96                 Move.L    $-6A(A6), D0
8FDC   2D40 FF7C                 Move.L    D0, $-84(A6)
8FE0   D06E 000E                 Add       $E(A6), D0
8FE4   3D40 FF82                 Move      D0, $-7E(A6)
8FE8   4840                      Swap      D0
8FEA   D06E 000C                 Add       $C(A6), D0
8FEE   3D40 FF80                 Move      D0, $-80(A6)
8FF2   202E FF96                 Move.L    $-6A(A6), D0
8FF6   2D40 FF84                 Move.L    D0, $-7C(A6)
8FFA   D06E 000A                 Add       $A(A6), D0
8FFE   3D40 FF8A                 Move      D0, $-76(A6)
9002   4840                      Swap      D0
9004   D06E 0008                 Add       $8(A6), D0
9008   3D40 FF88                 Move      D0, $-78(A6)
900C   486E FFEC                 Pea.L     $-14(A6)
9010   486E FF84                 Pea.L     $-7C(A6)
9014   486E FF7C                 Pea.L     $-84(A6)
9018   4EBA 55B2                 Jsr       P_tMapRect
901C   D36B 0032      L1478:     Add       D1, $32(A3)
9020   4A6B 0042                 Tst       $42(A3)
9024   6D00 0630                 BLT       L1529
9028   486E FFEC                 Pea.L     $-14(A6)
902C   486B 0008                 Pea.L     $8(A3)
9030   206B 001C                 Move.L    $1C(A3), A0
9034   2050                      Move.L    (A0), A0
9036   4868 0002                 Pea.L     $2(A0)
903A   206B 0018                 Move.L    $18(A3), A0
903E   2050                      Move.L    (A0), A0
9040   4868 0002                 Pea.L     $2(A0)
9044   3F3C 0004                 Move      #$4, -(A7)
9048   486E FFE4                 Pea.L     $-1C(A6)
904C   4EBA 10C2                 Jsr       P_mRSect
9050   6700 0604                 BEQ       L1529
9054   41EA 001A                 Lea.L     $1A(A2), A0
9058   2D48 FF9E                 Move.L    A0, $-62(A6)
905C   322A 0018                 Move      $18(A2), D1
9060   D241                      Add       D1, D1
9062   3D41 FF9C                 Move      D1, $-64(A6)
9066   3D6A 000E FFCC            Move      $E(A2), $-34(A6)
906C   4A6C 0006                 Tst       $6(A4)
9070   6600 00B0                 BNE       L1483
9074   0C6B 0001 0048            Cmp       #$1, $48(A3)
907A   6600 00A6                 BNE       L1483
907E   4A6C 000A                 Tst       $A(A4)
9082   6600 009E                 BNE       L1483
9086   4A2E FF8C                 Tst.B     $-74(A6)
908A   6600 0096                 BNE       L1483
908E   322B 0058                 Move      $58(A3), D1
9092   6B10                      BMI.B     L1479
9094   202B 0054                 Move.L    $54(A3), D0
9098   4680                      Not.L     D0
909A   C0AB 0050                 And.L     $50(A3), D0
909E   0300                      BTst.L    D1, D0
90A0   6700 0080                 BEQ       L1483
90A4   206B 001C      L1479:     Move.L    $1C(A3), A0
90A8   2050                      Move.L    (A0), A0
90AA   700A                      MoveQ.L   #$A, D0
90AC   B050                      Cmp       (A0), D0
90AE   6672                      BNE.B     L1483
90B0   226B 0018                 Move.L    $18(A3), A1
90B4   2051                      Move.L    (A1), A0
90B6   B050                      Cmp       (A0), D0
90B8   6710                      BEQ.B     L1480
90BA   2F09                      Move.L    A1, -(A7)
90BC   486E FFE4                 Pea.L     $-1C(A6)
90C0   4EBA 30F8                 Jsr       P_mTrimRect
90C4   6D00 0590                 BLT       L1529
90C8   6E58                      BGT.B     L1483
90CA   50EE FF9A      L1480:     ST.B      $-66(A6)
90CE   302E FFE4                 Move      $-1C(A6), D0
90D2   322E FFE8                 Move      $-18(A6), D1
90D6   906E FFF4                 Sub       $-C(A6), D0
90DA   6606                      BNE.B     L1481
90DC   B26E FFF8                 Cmp       $-8(A6), D1
90E0   6710                      BEQ.B     L1482
90E2   422E FF4C      L1481:     Clr.B     $-B4(A6)
90E6   1D40 FF4E                 Move.B    D0, $-B2(A6)
90EA   926E FFE4                 Sub       $-1C(A6), D1
90EE   1D41 FF4F                 Move.B    D1, $-B1(A6)
90F2   302E FFF4      L1482:     Move      $-C(A6), D0
90F6   906B 0008                 Sub       $8(A3), D0
90FA   C1EB 0006                 MulW      $6(A3), D0
90FE   D0AB 0002                 Add.L     $2(A3), D0
9102   2D40 FFDC                 Move.L    D0, $-24(A6)
9106   3D6B 0006 FFD8            Move      $6(A3), $-28(A6)
910C   3D6B 000A FFD6            Move      $A(A3), $-2A(A6)
9112   486E FFE4                 Pea.L     $-1C(A6)
9116   2F2B 0008                 Move.L    $8(A3), -(A7)
911A   4EBA F1E2                 Jsr       P_tShieldCursor
911E   6000 00B0                 Bra       L1487
9122   422E FF9A      L1483:     Clr.B     $-66(A6)
9126   302E FFF6                 Move      $-A(A6), D0
912A   906B 000A                 Sub       $A(A3), D0
912E   0240 FFF0                 And       #$-10, D0
9132   0440 0020                 Sub       #$20, D0
9136   D06B 000A                 Add       $A(A3), D0
913A   3D40 FFD6                 Move      D0, $-2A(A6)
913E   322E FFFA                 Move      $-6(A6), D1
9142   9240                      Sub       D0, D1
9144   EA49                      LsR       #$5, D1
9146   5441                      AddQ      #$2, D1
9148   362E FFCC                 Move      $-34(A6), D3
914C   C6C1                      MulU      D1, D3
914E   3D43 FFDA                 Move      D3, $-26(A6)
9152   E549                      LsL       #$2, D1
9154   3D41 FFD8                 Move      D1, $-28(A6)
9158   2403                      Move.L    D3, D2
915A   4A2C 000B                 Tst.B     $B(A4)
915E   6700 0008                 BEQ       L1484
9162   D482                      Add.L     D2, D2
9164   48C1                      Ext.L     D1
9166   D481                      Add.L     D1, D2
9168   E58A           L1484:     LsL.L     #$2, D2
916A   0682 0000 0400            Add.L     #$400, D2
9170   200F                      Move.L    A7, D0
9172   90B8 0114                 Sub.L     (HeapEnd), D0
9176   B480                      Cmp.L     D0, D2
9178   6F42                      BLE.B     L1485
917A   276E FF96 0030            Move.L    $-6A(A6), $30(A3)
9180   3E2E 0014                 Move      $14(A6), D7
9184   E24F                      LsR       #$1, D7
9186   6700 04CE                 BEQ       L1529
918A   3F07                      Move      D7, -(A7)
918C   2F2E 0010                 Move.L    $10(A6), -(A7)
9190   2F2E FF40                 Move.L    $-C0(A6), -(A7)
9194   2F2E FF3C                 Move.L    $-C4(A6), -(A7)
9198   4EBA FD8C                 Jsr       P_mDrText
919C   302E 0014                 Move      $14(A6), D0
91A0   9047                      Sub       D7, D0
91A2   3F00                      Move      D0, -(A7)
91A4   206E 0010                 Move.L    $10(A6), A0
91A8   D0C7                      AddA      D7, A0
91AA   2F08                      Move.L    A0, -(A7)
91AC   2F2E FF40                 Move.L    $-C0(A6), -(A7)
91B0   2F2E FF3C                 Move.L    $-C4(A6), -(A7)
91B4   4EBA FD70                 Jsr       P_mDrText
91B8   6000 049C                 Bra       L1529
91BC   5343           L1485:     SubQ      #$1, D3
91BE   42A7                      Clr.L     -(A7)
91C0   2D4F FFE0                 Move.L    A7, $-20(A6)
91C4   42A7           L1486:     Clr.L     -(A7)
91C6   51CB FFFC                 DBF       D3, L1486
91CA   2D4F FFDC                 Move.L    A7, $-24(A6)
91CE   42A7                      Clr.L     -(A7)
91D0   41EA 001A      L1487:     Lea.L     $1A(A2), A0
91D4   302A 000E                 Move      $E(A2), D0
91D8   C0EE FF9C                 MulU      $-64(A6), D0
91DC   D1C0                      AddA.L    D0, A0
91DE   2D48 FF50                 Move.L    A0, $-B0(A6)
91E2   4280                      Clr.L     D0
91E4   302A 0010                 Move      $10(A2), D0
91E8   D080                      Add.L     D0, D0
91EA   43F2 0810                 Lea.L     $10(A2,D0.L), A1
91EE   2D49 FF54                 Move.L    A1, $-AC(A6)
91F2   302A 0004                 Move      $4(A2), D0
91F6   322A 0002                 Move      $2(A2), D1
91FA   3D41 FF48                 Move      D1, $-B8(A6)
91FE   9041                      Sub       D1, D0
9200   3D40 FF4A                 Move      D0, $-B6(A6)
9204   5640                      AddQ      #$3, D0
9206   D040                      Add       D0, D0
9208   082A 0001 0001            BTst.B    #$1, $1(A2)
920E   6702                      BEQ.B     L1488
9210   D040                      Add       D0, D0
9212   41F1 0000      L1488:     Lea.L     $0(A1,D0.W), A0
9216   2D48 FF58                 Move.L    A0, $-A8(A6)
921A   2078 0B10                 Move.L    (WidthPtr), A0
921E   2D68 0080 FF68            Move.L    $80(A0), $-98(A6)
9224   322E FFD6                 Move      $-2A(A6), D1
9228   302E FF98                 Move      $-68(A6), D0
922C   D06A 0008                 Add       $8(A2), D0
9230   9041                      Sub       D1, D0
9232   3D40 FF64                 Move      D0, $-9C(A6)
9236   3D7C 8000 FF66            Move      #$-8000, $-9A(A6)
923C   936E FFE6                 Sub       D1, $-1A(A6)
9240   936E FFEA                 Sub       D1, $-16(A6)
9244   226E 0010                 Move.L    $10(A6), A1
9248   6010                      Bra.B     L1491
924A   222E FF68      L1489:     Move.L    $-98(A6), D1
924E   D3AE FF64                 Add.L     D1, $-9C(A6)
9252   536E 0014      L1490:     SubQ      #$1, $14(A6)
9256   6F00 0196                 BLE       L1505
925A   4240           L1491:     Clr       D0
925C   1019                      Move.B    (A1)+, D0
925E   0C00 0020                 Cmp.B     #$20, D0
9262   67E6                      BEQ.B     L1489
9264   2078 0B10                 Move.L    (WidthPtr), A0
9268   3800                      Move      D0, D4
926A   E54C                      LsL       #$2, D4
926C   2830 4000                 Move.L    $0(A0,D4.W), D4
9270   906E FF48                 Sub       $-B8(A6), D0
9274   B06E FF4A                 Cmp       $-B6(A6), D0
9278   6314                      BLS.B     L1493
927A   302E FF4A      L1492:     Move      $-B6(A6), D0
927E   5240                      AddQ      #$1, D0
9280   D040                      Add       D0, D0
9282   206E FF54                 Move.L    $-AC(A6), A0
9286   3630 0000                 Move      $0(A0,D0.W), D3
928A   6A0E                      BPL.B     L1494
928C   60CC                      Bra.B     L1491
928E   D040           L1493:     Add       D0, D0
9290   206E FF54                 Move.L    $-AC(A6), A0
9294   3630 0000                 Move      $0(A0,D0.W), D3
9298   6BE0                      BMI.B     L1492
929A   E04B           L1494:     LsR       #$8, D3
929C   D66E FF64                 Add       $-9C(A6), D3
92A0   D9AE FF64                 Add.L     D4, $-9C(A6)
92A4   206E FF50                 Move.L    $-B0(A6), A0
92A8   3230 0000                 Move      $0(A0,D0.W), D1
92AC   3430 0002                 Move      $2(A0,D0.W), D2
92B0   9441                      Sub       D1, D2
92B2   6F9E                      BLE.B     L1490
92B4   D443                      Add       D3, D2
92B6   4A2E FF4C                 Tst.B     $-B4(A6)
92BA   670A                      BEQ.B     L1495
92BC   206E FF58                 Move.L    $-A8(A6), A0
92C0   3D70 0000 FF4E            Move      $0(A0,D0.W), $-B2(A6)
92C6   4A2E FF9A      L1495:     Tst.B     $-66(A6)
92CA   6732                      BEQ.B     L1498
92CC   B66E FFE6                 Cmp       $-1A(A6), D3
92D0   6C1A                      BGE.B     L1496
92D2   B46E FFE6                 Cmp       $-1A(A6), D2
92D6   6F00 FF7A                 BLE       L1490
92DA   302E FFE6                 Move      $-1A(A6), D0
92DE   9043                      Sub       D3, D0
92E0   D240                      Add       D0, D1
92E2   D640                      Add       D0, D3
92E4   B46E FFEA                 Cmp       $-16(A6), D2
92E8   6F14                      BLE.B     L1498
92EA   600E                      Bra.B     L1497
92EC   B46E FFEA      L1496:     Cmp       $-16(A6), D2
92F0   6F0C                      BLE.B     L1498
92F2   B66E FFEA                 Cmp       $-16(A6), D3
92F6   6C00 00F6                 BGE       L1505
92FA   342E FFEA      L1497:     Move      $-16(A6), D2
92FE   3A03           L1498:     Move      D3, D5
9300   9A41                      Sub       D1, D5
9302   700F                      MoveQ.L   #$F, D0
9304   CA40                      And       D0, D5
9306   286E FF9E                 Move.L    $-62(A6), A4
930A   D245                      Add       D5, D1
930C   E841                      AsR       #$4, D1
930E   D241                      Add       D1, D1
9310   5541                      SubQ      #$2, D1
9312   D8C1                      AddA      D1, A4
9314   2A6E FFDC                 Move.L    $-24(A6), A5
9318   3203                      Move      D3, D1
931A   E841                      AsR       #$4, D1
931C   DAC1                      AddA      D1, A5
931E   DAC1                      AddA      D1, A5
9320   41FA F116                 Lea.L     DT_mMaskTab, A0
9324   C640                      And       D0, D3
9326   D643                      Add       D3, D3
9328   3630 3000                 Move      $0(A0,D3.W), D3
932C   4643                      Not       D3
932E   3C02                      Move      D2, D6
9330   C440                      And       D0, D2
9332   D442                      Add       D2, D2
9334   3830 2000                 Move      $0(A0,D2.W), D4
9338   346E FF9C                 Move      $-64(A6), A2
933C   366E FFD8                 Move      $-28(A6), A3
9340   3E3C 00FF                 Move      #$FF, D7
9344   DE2E FF4F                 Add.B     $-B1(A6), D7
9348   6B00 FF08                 BMI       L1490
934C   4240                      Clr       D0
934E   102E FF4E                 Move.B    $-B2(A6), D0
9352   340A                      Move      A2, D2
9354   C4C0                      MulU      D0, D2
9356   D9C2                      AddA.L    D2, A4
9358   340B                      Move      A3, D2
935A   C4C0                      MulU      D0, D2
935C   DBC2                      AddA.L    D2, A5
935E   E846                      AsR       #$4, D6
9360   9C41                      Sub       D1, D6
9362   6770                      BEQ.B     L1503
9364   5346                      SubQ      #$1, D6
9366   6744                      BEQ.B     L1501
9368   5247                      AddQ      #$1, D7
936A   6024                      Bra.B     L1500
936C   2014           L1499:     Move.L    (A4), D0
936E   544C                      AddQ      #$2, A4
9370   EAA8                      LsR.L     D5, D0
9372   C041                      And       D1, D0
9374   815D                      Or        D0, (A5)+
9376   72FF                      MoveQ.L   #$-1, D1
9378   51CA FFF2                 DBF       D2, L1499
937C   2014                      Move.L    (A4), D0
937E   EAA8                      LsR.L     D5, D0
9380   C044                      And       D4, D0
9382   8155                      Or        D0, (A5)
9384   286E FF92                 Move.L    $-6E(A6), A4
9388   D8CA                      AddA      A2, A4
938A   2A6E FF8E                 Move.L    $-72(A6), A5
938E   DACB                      AddA      A3, A5
9390   2D4C FF92      L1500:     Move.L    A4, $-6E(A6)
9394   2D4D FF8E                 Move.L    A5, $-72(A6)
9398   3203                      Move      D3, D1
939A   3406                      Move      D6, D2
939C   51CF FFCE                 DBF       D7, L1499
93A0   536E 0014                 SubQ      #$1, $14(A6)
93A4   6E00 FEB4                 BGT       L1491
93A8   6000 0044                 Bra       L1505
93AC   554B           L1501:     SubQ      #$2, A3
93AE   2014           L1502:     Move.L    (A4), D0
93B0   EAA8                      LsR.L     D5, D0
93B2   C043                      And       D3, D0
93B4   815D                      Or        D0, (A5)+
93B6   202C 0002                 Move.L    $2(A4), D0
93BA   EAA8                      LsR.L     D5, D0
93BC   C044                      And       D4, D0
93BE   8155                      Or        D0, (A5)
93C0   D8CA                      AddA      A2, A4
93C2   DACB                      AddA      A3, A5
93C4   51CF FFE8                 DBF       D7, L1502
93C8   536E 0014                 SubQ      #$1, $14(A6)
93CC   6E00 FE8C                 BGT       L1491
93D0   6000 001C                 Bra       L1505
93D4   C644           L1503:     And       D4, D3
93D6   2014           L1504:     Move.L    (A4), D0
93D8   EAA8                      LsR.L     D5, D0
93DA   C043                      And       D3, D0
93DC   8155                      Or        D0, (A5)
93DE   D8CA                      AddA      A2, A4
93E0   DACB                      AddA      A3, A5
93E2   51CF FFF2                 DBF       D7, L1504
93E6   536E 0014                 SubQ      #$1, $14(A6)
93EA   6E00 FE6E                 BGT       L1491
93EE   2A6E FF44      L1505:     Move.L    $-BC(A6), A5
93F2   4A2E FF9A                 Tst.B     $-66(A6)
93F6   6708                      BEQ.B     L1506
93F8   4EBA EEFE                 Jsr       P_tShowCursor
93FC   6000 0258                 Bra       L1529
9400   2055           L1506:     Move.L    (A5), A0
9402   2650                      Move.L    (A0), A3
9404   2868 FF50                 Move.L    $-B0(A0), A4
9408   246C 0002                 Move.L    $2(A4), A2
940C   2452                      Move.L    (A2), A2
940E   3E2E FF64                 Move      $-9C(A6), D7
9412   9E6A 0008                 Sub       $8(A2), D7
9416   4242                      Clr       D2
9418   142C 0006                 Move.B    $6(A4), D2
941C   6014                      Bra.B     L1509
941E   206E FFDC      L1507:     Move.L    $-24(A6), A0
9422   322E FFDA                 Move      $-26(A6), D1
9426   9040                      Sub       D0, D0
9428   2010           L1508:     Move.L    (A0), D0
942A   E290                      RXR.L     #$1, D0
942C   8198                      Or.L      D0, (A0)+
942E   51C9 FFF8                 DBF       D1, L1508
9432   51CA FFEA      L1509:     DBF       D2, L1507
9436   4242                      Clr       D2
9438   142C 0007                 Move.B    $7(A4), D2
943C   673C                      BEQ.B     L1513
943E   226E FFE0                 Move.L    $-20(A6), A1
9442   362E FFD8                 Move      $-28(A6), D3
9446   92C3                      SubA      D3, A1
9448   E24B                      LsR       #$1, D3
944A   5343                      SubQ      #$1, D3
944C   3C2E FFCC                 Move      $-34(A6), D6
9450   4244                      Clr       D4
9452   6022                      Bra.B     L1512
9454   D842           L1510:     Add       D2, D4
9456   3004                      Move      D4, D0
9458   E848                      LsR       #$4, D0
945A   7A0F                      MoveQ.L   #$F, D5
945C   CA40                      And       D0, D5
945E   E848                      LsR       #$4, D0
9460   2049                      Move.L    A1, A0
9462   5948                      SubQ      #$4, A0
9464   90C0                      SubA      D0, A0
9466   90C0                      SubA      D0, A0
9468   3203                      Move      D3, D1
946A   2010           L1511:     Move.L    (A0), D0
946C   5548                      SubQ      #$2, A0
946E   EAA8                      LsR.L     D5, D0
9470   3300                      Move      D0, -(A1)
9472   51C9 FFF6                 DBF       D1, L1511
9476   51CE FFDC      L1512:     DBF       D6, L1510
947A   4A2C 000A      L1513:     Tst.B     $A(A4)
947E   6700 0080                 BEQ       L1519
9482   206E FFDC                 Move.L    $-24(A6), A0
9486   322E FFD8                 Move      $-28(A6), D1
948A   302A 0012                 Move      $12(A2), D0
948E   342A 0014                 Move      $14(A2), D2
9492   C0C1                      MulU      D1, D0
9494   D1C0                      AddA.L    D0, A0
9496   2248                      Move.L    A0, A1
9498   2448                      Move.L    A0, A2
949A   D2C1                      AddA      D1, A1
949C   0C42 0002                 Cmp       #$2, D2
94A0   6D5E                      BLT.B     L1519
94A2   6704                      BEQ.B     L1514
94A4   D4C1                      AddA      D1, A2
94A6   D4C1                      AddA      D1, A2
94A8   9EC1           L1514:     SubA      D1, A7
94AA   2F0B                      Move.L    A3, -(A7)
94AC   47EF 0004                 Lea.L     $4(A7), A3
94B0   E449                      LsR       #$2, D1
94B2   5341                      SubQ      #$1, D1
94B4   3401                      Move      D1, D2
94B6   9040                      Sub       D0, D0
94B8   2018           L1515:     Move.L    (A0)+, D0
94BA   8099                      Or.L      (A1)+, D0
94BC   809A                      Or.L      (A2)+, D0
94BE   2680                      Move.L    D0, (A3)
94C0   E290                      RXR.L     #$1, D0
94C2   819B                      Or.L      D0, (A3)+
94C4   51C9 FFF2                 DBF       D1, L1515
94C8   2049                      Move.L    A1, A0
94CA   9040                      Sub       D0, D0
94CC   2023           L1516:     Move.L    -(A3), D0
94CE   E390                      RXL.L     #$1, D0
94D0   8093                      Or.L      (A3), D0
94D2   4680                      Not.L     D0
94D4   81A1                      Or.L      D0, -(A1)
94D6   51CA FFF4                 DBF       D2, L1516
94DA   265F                      Move.L    (A7)+, A3
94DC   302E FFD8                 Move      $-28(A6), D0
94E0   E748                      LsL       #$3, D0
94E2   9047                      Sub       D7, D0
94E4   5340                      SubQ      #$1, D0
94E6   E848                      LsR       #$4, D0
94E8   6002                      Bra.B     L1518
94EA   4260           L1517:     Clr       -(A0)
94EC   51C8 FFFC      L1518:     DBF       D0, L1517
94F0   DE6E FFD6                 Add       $-2A(A6), D7
94F4   3007                      Move      D7, D0
94F6   906B 000A                 Sub       $A(A3), D0
94FA   4EBA EF24                 Jsr       P_mRightMask
94FE   C160                      And       D0, -(A0)
9500   3D7C 000A FFA6 L1519:     Move      #$A, $-5A(A6)
9506   2D6B 0008 FFA8            Move.L    $8(A3), $-58(A6)
950C   2D6B 000C FFAC            Move.L    $C(A3), $-54(A6)
9512   41EE FFA6                 Lea.L     $-5A(A6), A0
9516   2D48 FFA2                 Move.L    A0, $-5E(A6)
951A   41EE FFBE                 Lea.L     $-42(A6), A0
951E   20EE FFDC                 Move.L    $-24(A6), (A0)+
9522   30EE FFD8                 Move      $-28(A6), (A0)+
9526   30EE FFF4                 Move      $-C(A6), (A0)+
952A   30EE FFD6                 Move      $-2A(A6), (A0)+
952E   20EE FFF8                 Move.L    $-8(A6), (A0)+
9532   45EB 0002                 Lea.L     $2(A3), A2
9536   41EE FFB0                 Lea.L     $-50(A6), A0
953A   20DA                      Move.L    (A2)+, (A0)+
953C   30DA                      Move      (A2)+, (A0)+
953E   20DA                      Move.L    (A2)+, (A0)+
9540   20DA                      Move.L    (A2)+, (A0)+
9542   4243                      Clr       D3
9544   162C 000B                 Move.B    $B(A4), D3
9548   6700 00DA                 BEQ       L1527
954C   302E FFD8                 Move      $-28(A6), D0
9550   5340                      SubQ      #$1, D0
9552   42A7                      Clr.L     -(A7)
9554   2D4F FFCE                 Move.L    A7, $-32(A6)
9558   42A7           L1520:     Clr.L     -(A7)
955A   51C8 FFFC                 DBF       D0, L1520
955E   302E FFDA                 Move      $-26(A6), D0
9562   5340                      SubQ      #$1, D0
9564   206E FFE0                 Move.L    $-20(A6), A0
9568   2F20           L1521:     Move.L    -(A0), -(A7)
956A   51C8 FFFC                 DBF       D0, L1521
956E   2D4F FFD2                 Move.L    A7, $-2E(A6)
9572   42A7                      Clr.L     -(A7)
9574   0243 0003                 And       #$3, D3
9578   3403                      Move      D3, D2
957A   206E FFD2      L1522:     Move.L    $-2E(A6), A0
957E   322E FFDA                 Move      $-26(A6), D1
9582   9040                      Sub       D0, D0
9584   2010           L1523:     Move.L    (A0), D0
9586   E290                      RXR.L     #$1, D0
9588   8198                      Or.L      D0, (A0)+
958A   51C9 FFF8                 DBF       D1, L1523
958E   51CA FFEA                 DBF       D2, L1522
9592   246E FFD2                 Move.L    $-2E(A6), A2
9596   226E FFCE      L1524:     Move.L    $-32(A6), A1
959A   2049                      Move.L    A1, A0
959C   90EE FFC2                 SubA      $-3E(A6), A0
95A0   2020           L1525:     Move.L    -(A0), D0
95A2   81A1                      Or.L      D0, -(A1)
95A4   B1CA                      CmpA.L    A2, A0
95A6   6EF8                      BGT.B     L1525
95A8   51CB FFEC                 DBF       D3, L1524
95AC   2D4A FFBE                 Move.L    A2, $-42(A6)
95B0   586E FFC8                 AddQ      #$4, $-38(A6)
95B4   2D6E FFF4 FF74            Move.L    $-C(A6), $-8C(A6)
95BA   2D6E FFF8 FF78            Move.L    $-8(A6), $-88(A6)
95C0   586E FF78                 AddQ      #$4, $-88(A6)
95C4   2D6E FF74 FF6C            Move.L    $-8C(A6), $-94(A6)
95CA   2D6E FF78 FF70            Move.L    $-88(A6), $-90(A6)
95D0   41EE FF6C                 Lea.L     $-94(A6), A0
95D4   5358                      SubQ      #$1, (A0)+
95D6   5358                      SubQ      #$1, (A0)+
95D8   5358                      SubQ      #$1, (A0)+
95DA   5358                      SubQ      #$1, (A0)+
95DC   4A2E FF8C                 Tst.B     $-74(A6)
95E0   6710                      BEQ.B     L1526
95E2   486E FF6C                 Pea.L     $-94(A6)
95E6   486E FF84                 Pea.L     $-7C(A6)
95EA   486E FF7C                 Pea.L     $-84(A6)
95EE   4EBA 4FDC                 Jsr       P_tMapRect
95F2   486E FFBE      L1526:     Pea.L     $-42(A6)
95F6   486E FFB0                 Pea.L     $-50(A6)
95FA   486E FF74                 Pea.L     $-8C(A6)
95FE   486E FF6C                 Pea.L     $-94(A6)
9602   7007                      MoveQ.L   #$7, D0
9604   C06B 0048                 And       $48(A3), D0
9608   3F00                      Move      D0, -(A7)
960A   2F2B 001C                 Move.L    $1C(A3), -(A7)
960E   2F2B 0018                 Move.L    $18(A3), -(A7)
9612   486E FFA2                 Pea.L     $-5E(A6)
9616   4EBA 3A4A                 Jsr       P_mStretchBits
961A   2D6E FFDC FFBE            Move.L    $-24(A6), $-42(A6)
9620   596E FFC8                 SubQ      #$4, $-38(A6)
9624   486E FFBE      L1527:     Pea.L     $-42(A6)
9628   486E FFB0                 Pea.L     $-50(A6)
962C   486E FFF4                 Pea.L     $-C(A6)
9630   486E FFEC                 Pea.L     $-14(A6)
9634   3F2B 0048                 Move      $48(A3), -(A7)
9638   4A2C 000B                 Tst.B     $B(A4)
963C   6704                      BEQ.B     L1528
963E   3EBC 0002                 Move      #$2, (A7)
9642   0257 0007      L1528:     And       #$7, (A7)
9646   2F2B 001C                 Move.L    $1C(A3), -(A7)
964A   2F2B 0018                 Move.L    $18(A3), -(A7)
964E   486E FFA2                 Pea.L     $-5E(A6)
9652   4EBA 3A0E                 Jsr       P_mStretchBits
9656   2E6E FFFC      L1529:     Move.L    $-4(A6), A7
965A   4CDF 1EFF                 MoveM.L   (A7)+, D0-D7/A1-A4
965E   4E5E                      Unlk      A6
9660   205F                      Move.L    (A7)+, A0
9662   DEFC 000E                 AddA      #$E, A7
9666   4ED0                      Jmp       (A0)

                      P_tStdLine:
9668   4E56 0000                 Link      A6, #$0
966C   48E7 0718                 MoveM.L   D5-D7/A3-A4, -(A7)
9670   4EBA 4DD6                 Jsr       P_mCheckPic
9674   6F72                      BLE.B     L1535
9676   4227                      Clr.B     -(A7)
9678   4EBA 4CD0                 Jsr       P_mPutPicVerb
967C   7E20                      MoveQ.L   #$20, D7
967E   286B 005C                 Move.L    $5C(A3), A4
9682   2854                      Move.L    (A4), A4
9684   202B 0030                 Move.L    $30(A3), D0
9688   B0AC 0030                 Cmp.L     $30(A4), D0
968C   6602                      BNE.B     L1530
968E   5247                      AddQ      #$1, D7
9690   3C2E 000A      L1530:     Move      $A(A6), D6
9694   9C40                      Sub       D0, D6
9696   3006                      Move      D6, D0
9698   4880                      Ext       D0
969A   B046                      Cmp       D6, D0
969C   6612                      BNE.B     L1531
969E   3A2E 0008                 Move      $8(A6), D5
96A2   9A6B 0030                 Sub       $30(A3), D5
96A6   3005                      Move      D5, D0
96A8   4880                      Ext       D0
96AA   B045                      Cmp       D5, D0
96AC   6602                      BNE.B     L1531
96AE   5447                      AddQ      #$2, D7
96B0   1F07           L1531:     Move.B    D7, -(A7)
96B2   4EBA 4BF6                 Jsr       P_mPutPicByte
96B6   E25F                      ROR       #$1, D7
96B8   6508                      BCS.B     L1532
96BA   2F2B 0030                 Move.L    $30(A3), -(A7)
96BE   4EBA 4C0E                 Jsr       P_mPutPicLong
96C2   E25F           L1532:     ROR       #$1, D7
96C4   650A                      BCS.B     L1533
96C6   2F2E 0008                 Move.L    $8(A6), -(A7)
96CA   4EBA 4C02                 Jsr       P_mPutPicLong
96CE   600C                      Bra.B     L1534
96D0   1F06           L1533:     Move.B    D6, -(A7)
96D2   4EBA 4BD6                 Jsr       P_mPutPicByte
96D6   1F05                      Move.B    D5, -(A7)
96D8   4EBA 4BD0                 Jsr       P_mPutPicByte
96DC   286B 005C      L1534:     Move.L    $5C(A3), A4
96E0   2854                      Move.L    (A4), A4
96E2   296E 0008 0030            Move.L    $8(A6), $30(A4)
96E8   2F2E 0008      L1535:     Move.L    $8(A6), -(A7)
96EC   4EBA 005A                 Jsr       P_mDoLine
96F0   4CDF 18E0                 MoveM.L   (A7)+, D5-D7/A3-A4
96F4   4E5E                      Unlk      A6
96F6   2E9F                      Move.L    (A7)+, (A7)
96F8   4E75                      Rts

                      P_tLineTo:
96FA   2055                      Move.L    (A5), A0
96FC   2050                      Move.L    (A0), A0
96FE   2028 0068                 Move.L    $68(A0), D0
9702   2078 0E40                 Move.L    ($E40), A0
9706   6706                      BEQ.B     L1536
9708   2040                      Move.L    D0, A0
970A   2068 0004                 Move.L    $4(A0), A0
970E   4ED0           L1536:     Jmp       (A0)

                      P_tLine:
9710   2055                      Move.L    (A5), A0
9712   2050                      Move.L    (A0), A0
9714   3028 0032                 Move      $32(A0), D0
9718   D16F 0006                 Add       D0, $6(A7)
971C   3028 0030                 Move      $30(A0), D0
9720   D16F 0004                 Add       D0, $4(A7)
9724   4EFA FFD4                 Jmp       P_tLineTo

                      P_tMoveTo:
9728   205F                      Move.L    (A7)+, A0
972A   2255                      Move.L    (A5), A1
972C   2251                      Move.L    (A1), A1
972E   235F 0030                 Move.L    (A7)+, $30(A1)
9732   4ED0                      Jmp       (A0)

                      P_tMove:
9734   205F                      Move.L    (A7)+, A0
9736   301F                      Move      (A7)+, D0
9738   321F                      Move      (A7)+, D1
973A   2255                      Move.L    (A5), A1
973C   2251                      Move.L    (A1), A1
973E   D169 0030                 Add       D0, $30(A1)
9742   D369 0032                 Add       D1, $32(A1)
9746   4ED0                      Jmp       (A0)

                      P_mDoLine:
9748   48E7 0318                 MoveM.L   D6-D7/A3-A4, -(A7)
974C   2855                      Move.L    (A5), A4
974E   2654                      Move.L    (A4), A3
9750   2E2F 0014                 Move.L    $14(A7), D7
9754   2C2B 0030                 Move.L    $30(A3), D6
9758   4AAB 0064                 Tst.L     $64(A3)
975C   6734                      BEQ.B     L1539
975E   226C FF5E                 Move.L    $-A2(A4), A1
9762   2051                      Move.L    (A1), A0
9764   3010                      Move      (A0), D0
9766   0C40 000A                 Cmp       #$A, D0
976A   6606                      BNE.B     L1537
976C   2186 0000                 Move.L    D6, $0(A0,D0.W)
9770   5840                      AddQ      #$4, D0
9772   2187 0000      L1537:     Move.L    D7, $0(A0,D0.W)
9776   5840                      AddQ      #$4, D0
9778   3080                      Move      D0, (A0)
977A   B06C FF5C                 Cmp       $-A4(A4), D0
977E   6D10                      BLT.B     L1538
9780   066C 0100 FF5C            Add       #$100, $-A4(A4)
9786   2F09                      Move.L    A1, -(A7)
9788   3F2C FF5C                 Move      $-A4(A4), -(A7)
978C   4EBA F00A                 Jsr       P_mSetHSize
9790   601A           L1538:     Bra.B     L1540
9792   4AAB 0060      L1539:     Tst.L     $60(A3)
9796   6714                      BEQ.B     L1540
9798   2F06                      Move.L    D6, -(A7)
979A   2F07                      Move.L    D7, -(A7)
979C   2F2C FF6C                 Move.L    $-94(A4), -(A7)
97A0   486C FF6A                 Pea.L     $-96(A4)
97A4   486C FF68                 Pea.L     $-98(A4)
97A8   4EBA 05EA                 Jsr       P_mPutLine
97AC   2F06           L1540:     Move.L    D6, -(A7)
97AE   2F07                      Move.L    D7, -(A7)
97B0   4EBA 009A                 Jsr       P_mDrawLine
97B4   2747 0030                 Move.L    D7, $30(A3)
97B8   4CDF 18C0                 MoveM.L   (A7)+, D6-D7/A3-A4
97BC   2E9F                      Move.L    (A7)+, (A7)
97BE   4E75                      Rts

                      P_tHidePen:
97C0   70FF                      MoveQ.L   #$-1, D0
97C2   6002                      Bra.B     L1541

                      P_tShowPen:
97C4   7001                      MoveQ.L   #$1, D0
97C6   2055           L1541:     Move.L    (A5), A0
97C8   2050                      Move.L    (A0), A0
97CA   D168 0042                 Add       D0, $42(A0)
97CE   4E75                      Rts

                      P_tGetPenState:
97D0   7001                      MoveQ.L   #$1, D0
97D2   6002                      Bra.B     L1542

                      P_tSetPenState:
97D4   4240                      Clr       D0
97D6   2055           L1542:     Move.L    (A5), A0
97D8   2050                      Move.L    (A0), A0
97DA   41E8 0030                 Lea.L     $30(A0), A0
97DE   226F 0004                 Move.L    $4(A7), A1
97E2   4A40                      Tst       D0
97E4   6602                      BNE.B     L1543
97E6   C149                      Exg.L     A0, A1
97E8   22D8           L1543:     Move.L    (A0)+, (A1)+
97EA   22D8                      Move.L    (A0)+, (A1)+
97EC   32D8                      Move      (A0)+, (A1)+
97EE   22D8                      Move.L    (A0)+, (A1)+
97F0   22D8                      Move.L    (A0)+, (A1)+
97F2   2E9F                      Move.L    (A7)+, (A7)
97F4   4E75                      Rts

                      P_tGetPen:
97F6   2055                      Move.L    (A5), A0
97F8   2050                      Move.L    (A0), A0
97FA   226F 0004                 Move.L    $4(A7), A1
97FE   22A8 0030                 Move.L    $30(A0), (A1)
9802   2E9F                      Move.L    (A7)+, (A7)
9804   4E75                      Rts

                      P_tPenSize:
9806   2055                      Move.L    (A5), A0
9808   2050                      Move.L    (A0), A0
980A   216F 0004 0034            Move.L    $4(A7), $34(A0)
9810   2E9F                      Move.L    (A7)+, (A7)
9812   4E75                      Rts

                      P_tPenMode:
9814   7038                      MoveQ.L   #$38, D0
9816   4EFA EBEA                 Jmp       L_mPortWord

                      P_tPenPat:
981A   2055                      Move.L    (A5), A0
981C   2050                      Move.L    (A0), A0
981E   41E8 003A                 Lea.L     $3A(A0), A0
9822   226F 0004                 Move.L    $4(A7), A1
9826   20D9                      Move.L    (A1)+, (A0)+
9828   20D9                      Move.L    (A1)+, (A0)+
982A   2E9F                      Move.L    (A7)+, (A7)
982C   4E75                      Rts

                      P_tPenNormal:
982E   2055                      Move.L    (A5), A0
9830   2050                      Move.L    (A0), A0
9832   217C 0001 0001            Move.L    #$10001, $34(A0)
       0034
983A   317C 0008 0038            Move      #$8, $38(A0)
9840   70FF                      MoveQ.L   #$-1, D0
9842   2140 003A                 Move.L    D0, $3A(A0)
9846   2140 003E                 Move.L    D0, $3E(A0)
984A   4E75                      Rts

                      P_mDrawLine:
984C   4E56 FF30                 Link      A6, #$-D0
9850   48E7 FF7C                 MoveM.L   D0-D7/A1-A5, -(A7)
9854   2D4F FF64                 Move.L    A7, $-9C(A6)
9858   2D4D FF3C                 Move.L    A5, $-C4(A6)
985C   2055                      Move.L    (A5), A0
985E   2D68 FF7E FF30            Move.L    $-82(A0), $-D0(A6)
9864   2650                      Move.L    (A0), A3
9866   4A6B 0042                 Tst       $42(A3)
986A   6D00 03A4                 BLT       L1568
986E   2D4B FF38                 Move.L    A3, $-C8(A6)
9872   70F8                      MoveQ.L   #$-8, D0
9874   C06B 0038                 And       $38(A3), D0
9878   0C40 0008                 Cmp       #$8, D0
987C   6600 0392                 BNE       L1568
9880   3F2B 0038                 Move      $38(A3), -(A7)
9884   486B 003A                 Pea.L     $3A(A3)
9888   4A6B 0058                 Tst       $58(A3)
988C   6B04                      BMI.B     L1544
988E   4EBA ECD0                 Jsr       P_mColorMap
9892   2D5F FF50      L1544:     Move.L    (A7)+, $-B0(A6)
9896   3D5F FF36                 Move      (A7)+, $-CA(A6)
989A   2A4B                      Move.L    A3, A5
989C   246D 001C                 Move.L    $1C(A5), A2
98A0   2452                      Move.L    (A2), A2
98A2   266D 0018                 Move.L    $18(A5), A3
98A6   2653                      Move.L    (A3), A3
98A8   4CAE 001E 0008            MoveM     $8(A6), D1-D4
98AE   B243                      Cmp       D3, D1
98B0   6F02                      BLE.B     L1545
98B2   C343                      Exg.L     D1, D3
98B4   B444           L1545:     Cmp       D4, D2
98B6   6F02                      BLE.B     L1546
98B8   C544                      Exg.L     D2, D4
98BA   D86D 0036      L1546:     Add       $36(A5), D4
98BE   D66D 0034                 Add       $34(A5), D3
98C2   48AE 001E FFB8            MoveM     D1-D4, $-48(A6)
98C8   486E FFB8                 Pea.L     $-48(A6)
98CC   486D 0008                 Pea.L     $8(A5)
98D0   486A 0002                 Pea.L     $2(A2)
98D4   486B 0002                 Pea.L     $2(A3)
98D8   3F3C 0004                 Move      #$4, -(A7)
98DC   486E FFB0                 Pea.L     $-50(A6)
98E0   4EBA 082E                 Jsr       P_mRSect
98E4   6700 032A                 BEQ       L1568
98E8   486E FFB0                 Pea.L     $-50(A6)
98EC   2F2D 0008                 Move.L    $8(A5), -(A7)
98F0   2A6E FF3C                 Move.L    $-C4(A6), A5
98F4   4EBA EA08                 Jsr       P_tShieldCursor
98F8   2A6E FF38                 Move.L    $-C8(A6), A5
98FC   422E FF34                 Clr.B     $-CC(A6)
9900   0C52 000A                 Cmp       #$A, (A2)
9904   6650                      BNE.B     L1549
9906   0C53 000A                 Cmp       #$A, (A3)
990A   6712                      BEQ.B     L1547
990C   2F2D 0018                 Move.L    $18(A5), -(A7)
9910   486E FFB0                 Pea.L     $-50(A6)
9914   4EBA 28A4                 Jsr       P_mTrimRect
9918   6D00 02EE                 BLT       L1567
991C   6E38                      BGT.B     L1549
991E   206E FF50      L1547:     Move.L    $-B0(A6), A0
9922   2018                      Move.L    (A0)+, D0
9924   B098                      Cmp.L     (A0)+, D0
9926   662E                      BNE.B     L1549
9928   4680                      Not.L     D0
992A   670A                      BEQ.B     L1548
992C   4680                      Not.L     D0
992E   6626                      BNE.B     L1549
9930   0A6E 0004 FF36            Eor       #$4, $-CA(A6)
9936   50EE FF34      L1548:     ST.B      $-CC(A6)
993A   7007                      MoveQ.L   #$7, D0
993C   C06E FF36                 And       $-CA(A6), D0
9940   103B 000C                 Move.B    DT31(D0.W), D0
9944   6B00 02C2                 BMI       L1567
9948   3D40 FF36                 Move      D0, $-CA(A6)
994C   6008                      Bra.B     L1549

                      DT31:
994E   0000 0102 02FF            DC.B      '      '
9954   FFFF                      DC.B      '  '
9956   4CAE 001E 0008 L1549:     MoveM     $8(A6), D1-D4
995C   B842                      Cmp       D2, D4
995E   6706                      BEQ.B     L1550
9960   B641                      Cmp       D1, D3
9962   6E44                      BGT.B     L1553
9964   6D3E                      BLT.B     L1552
9966   4A2E FF34      L1550:     Tst.B     $-CC(A6)
996A   670C                      BEQ.B     L1551
996C   0CAD 0001 0001            Cmp.L     #$10001, $34(A5)
       0034
9974   6700 0304                 BEQ       L1571
9978   486D 0002      L1551:     Pea.L     $2(A5)
997C   2F17                      Move.L    (A7), -(A7)
997E   486E FFB0                 Pea.L     $-50(A6)
9982   2F17                      Move.L    (A7), -(A7)
9984   3F2D 0038                 Move      $38(A5), -(A7)
9988   486D 003A                 Pea.L     $3A(A5)
998C   2F2D 001C                 Move.L    $1C(A5), -(A7)
9990   2F2D 0018                 Move.L    $18(A5), -(A7)
9994   2F2E FF30                 Move.L    $-D0(A6), -(A7)
9998   2A6E FF3C                 Move.L    $-C4(A6), A5
999C   4EBA 0D94                 Jsr       P_mRgnBlt
99A0   6000 0266                 Bra       L1567
99A4   C343           L1552:     Exg.L     D1, D3
99A6   C544                      Exg.L     D2, D4
99A8   3003           L1553:     Move      D3, D0
99AA   D06D 0034                 Add       $34(A5), D0
99AE   B06A 0002                 Cmp       $2(A2), D0
99B2   6F00 0254                 BLE       L1567
99B6   B26A 0006                 Cmp       $6(A2), D1
99BA   6C00 024C                 BGE       L1567
99BE   3D42 FF4C                 Move      D2, $-B4(A6)
99C2   3D7C 8000 FF4E            Move      #$-8000, $-B2(A6)
99C8   2D6E FF4C FF48            Move.L    $-B4(A6), $-B8(A6)
99CE   302D 0036                 Move      $36(A5), D0
99D2   6F00 0234                 BLE       L1567
99D6   D16E FF48                 Add       D0, $-B8(A6)
99DA   3C2D 0034                 Move      $34(A5), D6
99DE   6F00 0228                 BLE       L1567
99E2   42A7                      Clr.L     -(A7)
99E4   3F04                      Move      D4, -(A7)
99E6   9557                      Sub       D2, (A7)
99E8   3F03                      Move      D3, -(A7)
99EA   9357                      Sub       D1, (A7)
99EC   A869                      _FixRatio
99EE   2E1F                      Move.L    (A7)+, D7
99F0   2D47 FF44                 Move.L    D7, $-BC(A6)
99F4   42A7                      Clr.L     -(A7)
99F6   4267                      Clr       -(A7)
99F8   3F06                      Move      D6, -(A7)
99FA   2F07                      Move.L    D7, -(A7)
99FC   A868                      _FixMul
99FE   2C1F                      Move.L    (A7)+, D6
9A00   2007                      Move.L    D7, D0
9A02   E280                      AsR.L     #$1, D0
9A04   D1AE FF4C                 Add.L     D0, $-B4(A6)
9A08   D1AE FF48                 Add.L     D0, $-B8(A6)
9A0C   4A87                      Tst.L     D7
9A0E   6B18                      BMI.B     L1555
9A10   9DAE FF4C                 Sub.L     D6, $-B4(A6)
9A14   0C87 0001 0000            Cmp.L     #$10000, D7
9A1A   6C06                      BGE.B     L1554
9A1C   DFAE FF4C                 Add.L     D7, $-B4(A6)
9A20   601C                      Bra.B     L1557
9A22   536E FF48      L1554:     SubQ      #$1, $-B8(A6)
9A26   6016                      Bra.B     L1557
9A28   9DAE FF48      L1555:     Sub.L     D6, $-B8(A6)
9A2C   0C87 FFFF 0000            Cmp.L     #$FFFF0000, D7
9A32   6D06                      BLT.B     L1556
9A34   DFAE FF48                 Add.L     D7, $-B8(A6)
9A38   6004                      Bra.B     L1557
9A3A   526E FF4C      L1556:     AddQ      #$1, $-B4(A6)
9A3E   4CAE 001E FFB0 L1557:     MoveM     $-50(A6), D1-D4
9A44   B26E FFB8                 Cmp       $-48(A6), D1
9A48   671E                      BEQ.B     L1558
9A4A   3001                      Move      D1, D0
9A4C   906E FFB8                 Sub       $-48(A6), D0
9A50   2A07                      Move.L    D7, D5
9A52   4845                      Swap      D5
9A54   CBC0                      MulW      D0, D5
9A56   4845                      Swap      D5
9A58   4245                      Clr       D5
9A5A   2C07                      Move.L    D7, D6
9A5C   CCC0                      MulU      D0, D6
9A5E   DA86                      Add.L     D6, D5
9A60   DBAE FF4C                 Add.L     D5, $-B4(A6)
9A64   DBAE FF48                 Add.L     D5, $-B8(A6)
9A68   342E FFB2      L1558:     Move      $-4E(A6), D2
9A6C   946D 000A                 Sub       $A(A5), D2
9A70   0242 FFF0                 And       #$-10, D2
9A74   D46D 000A                 Add       $A(A5), D2
9A78   3D42 FF5C                 Move      D2, $-A4(A6)
9A7C   4A2E FF34                 Tst.B     $-CC(A6)
9A80   6600 0082                 BNE       L1562
9A84   302E FFB6                 Move      $-4A(A6), D0
9A88   9042                      Sub       D2, D0
9A8A   EA48                      LsR       #$5, D0
9A8C   3D40 FF5A                 Move      D0, $-A6(A6)
9A90   42A7           L1559:     Clr.L     -(A7)
9A92   51C8 FFFC                 DBF       D0, L1559
9A96   2D4F FF5E                 Move.L    A7, $-A2(A6)
9A9A   4245                      Clr       D5
9A9C   3D7C 8001 FFA6            Move      #$-7FFF, $-5A(A6)
9AA2   3D7C 7FFF FFA8            Move      #$7FFF, $-58(A6)
9AA8   0C52 000A                 Cmp       #$A, (A2)
9AAC   670A                      BEQ.B     L1560
9AAE   5445                      AddQ      #$2, D5
9AB0   204A                      Move.L    A2, A0
9AB2   43EE FF98                 Lea.L     $-68(A6), A1
9AB6   611E                      Bsr.B     P277
9AB8   3D7C 8001 FF8E L1560:     Move      #$-7FFF, $-72(A6)
9ABE   3D7C 7FFF FF90            Move      #$7FFF, $-70(A6)
9AC4   0C53 000A                 Cmp       #$A, (A3)
9AC8   671C                      BEQ.B     L1561
9ACA   5845                      AddQ      #$4, D5
9ACC   204B                      Move.L    A3, A0
9ACE   43EE FF80                 Lea.L     $-80(A6), A1
9AD2   487A 0012                 Pea.L     L1561

                      P277:
9AD6   302E FFB2                 Move      $-4E(A6), D0
9ADA   322E FFB6                 Move      $-4A(A6), D1
9ADE   342E FF5C                 Move      $-A4(A6), D2
9AE2   4EFA 27E2                 Jmp       P_mInitRgn
9AE6   3D45 FF62      L1561:     Move      D5, $-9E(A6)
9AEA   6618                      BNE.B     L1562
9AEC   206E FF5E                 Move.L    $-A2(A6), A0
9AF0   362E FFB2                 Move      $-4E(A6), D3
9AF4   966E FF5C                 Sub       $-A4(A6), D3
9AF8   382E FFB6                 Move      $-4A(A6), D4
9AFC   986E FF5C                 Sub       $-A4(A6), D4
9B00   4EBA EB40                 Jsr       P_mXorSlab
9B04   322E FFB0      L1562:     Move      $-50(A6), D1
9B08   926D 0008                 Sub       $8(A5), D1
9B0C   C2ED 0006                 MulU      $6(A5), D1
9B10   D2AD 0002                 Add.L     $2(A5), D1
9B14   946D 000A                 Sub       $A(A5), D2
9B18   E64A                      LsR       #$3, D2
9B1A   48C2                      Ext.L     D2
9B1C   D282                      Add.L     D2, D1
9B1E   2D41 FF40                 Move.L    D1, $-C0(A6)
9B22   322E FF5C                 Move      $-A4(A6), D1
9B26   936E FF4C                 Sub       D1, $-B4(A6)
9B2A   936E FF48                 Sub       D1, $-B8(A6)
9B2E   936E FFB2                 Sub       D1, $-4E(A6)
9B32   936E FFB6                 Sub       D1, $-4A(A6)
9B36   4A2E FF34                 Tst.B     $-CC(A6)
9B3A   6746                      BEQ.B     L1564
9B3C   342E FF36                 Move      $-CA(A6), D2
9B40   4EBA EC2E                 Jsr       P_mFastSlabMode
9B44   41FA E8F2                 Lea.L     DT_mMaskTab, A0
9B48   47EE FFB0                 Lea.L     $-50(A6), A3
9B4C   2E2E FF44                 Move.L    $-BC(A6), D7
9B50   3C2D 0006                 Move      $6(A5), D6
9B54   2A6E FF40                 Move.L    $-C0(A6), A5
9B58   3A2E FFB4                 Move      $-4C(A6), D5
9B5C   9A6E FFB0                 Sub       $-50(A6), D5
9B60   5345                      SubQ      #$1, D5
9B62   322E FF4C      L1563:     Move      $-B4(A6), D1
9B66   342E FF48                 Move      $-B8(A6), D2
9B6A   224D                      Move.L    A5, A1
9B6C   4EBA EB18                 Jsr       P_mDrawSlab
9B70   DAC6                      AddA      D6, A5
9B72   DFAE FF4C                 Add.L     D7, $-B4(A6)
9B76   DFAE FF48                 Add.L     D7, $-B8(A6)
9B7A   51CD FFE6                 DBF       D5, L1563
9B7E   6000 0088                 Bra       L1567
9B82   342E FF36      L1564:     Move      $-CA(A6), D2
9B86   4EBA EB8E                 Jsr       P_mSlabMode
9B8A   4287                      Clr.L     D7
9B8C   342E FF36                 Move      $-CA(A6), D2
9B90   0882 0002                 BClr.B    #$2, D2
9B94   6702                      BEQ.B     L1565
9B96   4687                      Not.L     D7
9B98   342D 000A      L1565:     Move      $A(A5), D2
9B9C   206E FF50                 Move.L    $-B0(A6), A0
9BA0   43EE FFC0                 Lea.L     $-40(A6), A1
9BA4   2A6E FF3C                 Move.L    $-C4(A6), A5
9BA8   4EBA E8EE                 Jsr       P_mPatExpand
9BAC   2A6E FF38                 Move.L    $-C8(A6), A5
9BB0   7E0F                      MoveQ.L   #$F, D7
9BB2   CE6E FFB0                 And       $-50(A6), D7
9BB6   E54F                      LsL       #$2, D7
9BB8   47EE FFB0                 Lea.L     $-50(A6), A3
9BBC   3A2D 0006                 Move      $6(A5), D5
9BC0   2A6E FF40                 Move.L    $-C0(A6), A5
9BC4   282E FF44                 Move.L    $-BC(A6), D4
9BC8   3D6E FFB0 FF58            Move      $-50(A6), $-A8(A6)
9BCE   6150           L1566:     Bsr.B     P278
9BD0   2C36 70C0                 Move.L    $-40(A6,D7.W), D6
9BD4   322E FF4C                 Move      $-B4(A6), D1
9BD8   342E FF48                 Move      $-B8(A6), D2
9BDC   41FA E85A                 Lea.L     DT_mMaskTab, A0
9BE0   224D                      Move.L    A5, A1
9BE2   246E FF5E                 Move.L    $-A2(A6), A2
9BE6   4EBA EA9E                 Jsr       P_mDrawSlab
9BEA   5847                      AddQ      #$4, D7
9BEC   0247 003F                 And       #$3F, D7
9BF0   DAC5                      AddA      D5, A5
9BF2   D9AE FF4C                 Add.L     D4, $-B4(A6)
9BF6   D9AE FF48                 Add.L     D4, $-B8(A6)
9BFA   526E FF58                 AddQ      #$1, $-A8(A6)
9BFE   302E FF58                 Move      $-A8(A6), D0
9C02   B06E FFB4                 Cmp       $-4C(A6), D0
9C06   6DC6                      BLT.B     L1566
9C08   2A6E FF3C      L1567:     Move.L    $-C4(A6), A5
9C0C   4EBA E6EA                 Jsr       P_tShowCursor
9C10   2E6E FF64      L1568:     Move.L    $-9C(A6), A7
9C14   4CDF 3EFF                 MoveM.L   (A7)+, D0-D7/A1-A5
9C18   4E5E                      Unlk      A6
9C1A   205F                      Move.L    (A7)+, A0
9C1C   504F                      AddQ      #$8, A7
9C1E   4ED0                      Jmp       (A0)

                      P278:
9C20   302E FF58                 Move      $-A8(A6), D0
9C24   322E FF62                 Move      $-9E(A6), D1
9C28   323B 1006                 Move      DT32(D1.W), D1
9C2C   4EFB 1002                 Jmp       DT32(D1.W)

                      DT32:
9C30   0016 0008 0018            DC.B      '      '
9C36   001E                      DC.B      '  '

                      E_284:
9C38   43EE FF98                 Lea.L     $-68(A6), A1
9C3C   4EBA 26C0      L1569:     Jsr       P_mSeekRgn
9C40   2D69 0008 FF5E            Move.L    $8(A1), $-A2(A6)

                      E_285:
9C46   4E75                      Rts

                      E_286:
9C48   43EE FF80                 Lea.L     $-80(A6), A1
9C4C   60EE                      Bra.B     L1569

                      E_287:
9C4E   43EE FF98                 Lea.L     $-68(A6), A1
9C52   4EBA 26AA                 Jsr       P_mSeekRgn
9C56   43EE FF80                 Lea.L     $-80(A6), A1
9C5A   4EBA 26A2                 Jsr       P_mSeekRgn
9C5E   206E FFA0                 Move.L    $-60(A6), A0
9C62   226E FF88                 Move.L    $-78(A6), A1
9C66   246E FF5E                 Move.L    $-A2(A6), A2
9C6A   322E FF5A                 Move      $-A6(A6), D1
9C6E   2018           L1570:     Move.L    (A0)+, D0
9C70   C099                      And.L     (A1)+, D0
9C72   24C0                      Move.L    D0, (A2)+
9C74   51C9 FFF8                 DBF       D1, L1570
9C78   4E75                      Rts
9C7A   B641           L1571:     Cmp       D1, D3
9C7C   6600 00A6                 BNE       L1586
9C80   6100 00E2                 Bsr       P279
9C84   3C30 0020                 Move      $20(A0,D0.W), D6
9C88   342E FFB6                 Move      $-4A(A6), D2
9C8C   946D 000A                 Sub       $A(A5), D2
9C90   3002                      Move      D2, D0
9C92   0240 000F                 And       #$F, D0
9C96   D040                      Add       D0, D0
9C98   3630 0000                 Move      $0(A0,D0.W), D3
9C9C   E84A                      LsR       #$4, D2
9C9E   0C6E 0001 FF36            Cmp       #$1, $-CA(A6)
9CA4   6D56                      BLT.B     L1581
9CA6   672C                      BEQ.B     L1576
9CA8   4646                      Not       D6
9CAA   4643                      Not       D3
9CAC   9441                      Sub       D1, D2
9CAE   671C                      BEQ.B     L1575
9CB0   CD5C                      And       D6, (A4)+
9CB2   4286                      Clr.L     D6
9CB4   5342                      SubQ      #$1, D2
9CB6   6714                      BEQ.B     L1575
9CB8   E24A                      LsR       #$1, D2
9CBA   6408                      BCC.B     L1573
9CBC   38C6                      Move      D6, (A4)+
9CBE   5342                      SubQ      #$1, D2
9CC0   6006                      Bra.B     L1574
9CC2   28C6           L1572:     Move.L    D6, (A4)+
9CC4   28C6           L1573:     Move.L    D6, (A4)+
9CC6   5542                      SubQ      #$2, D2
9CC8   6EF8           L1574:     BGT.B     L1572
9CCA   67F8                      BEQ.B     L1573
9CCC   8C43           L1575:     Or        D3, D6
9CCE   CD54                      And       D6, (A4)
9CD0   6000 FF36                 Bra       L1567
9CD4   9441           L1576:     Sub       D1, D2
9CD6   671C                      BEQ.B     L1580
9CD8   BD5C                      Eor       D6, (A4)+
9CDA   7CFF                      MoveQ.L   #$-1, D6
9CDC   5342                      SubQ      #$1, D2
9CDE   6714                      BEQ.B     L1580
9CE0   E24A                      LsR       #$1, D2
9CE2   6408                      BCC.B     L1578
9CE4   BD5C                      Eor       D6, (A4)+
9CE6   5342                      SubQ      #$1, D2
9CE8   6006                      Bra.B     L1579
9CEA   469C           L1577:     Not.L     (A4)+
9CEC   469C           L1578:     Not.L     (A4)+
9CEE   5542                      SubQ      #$2, D2
9CF0   6EF8           L1579:     BGT.B     L1577
9CF2   67F8                      BEQ.B     L1578
9CF4   CC43           L1580:     And       D3, D6
9CF6   BD54                      Eor       D6, (A4)
9CF8   6000 FF0E                 Bra       L1567
9CFC   9441           L1581:     Sub       D1, D2
9CFE   671C                      BEQ.B     L1585
9D00   8D5C                      Or        D6, (A4)+
9D02   7CFF                      MoveQ.L   #$-1, D6
9D04   5342                      SubQ      #$1, D2
9D06   6714                      BEQ.B     L1585
9D08   E24A                      LsR       #$1, D2
9D0A   6408                      BCC.B     L1583
9D0C   38C6                      Move      D6, (A4)+
9D0E   5342                      SubQ      #$1, D2
9D10   6006                      Bra.B     L1584
9D12   28C6           L1582:     Move.L    D6, (A4)+
9D14   28C6           L1583:     Move.L    D6, (A4)+
9D16   5542                      SubQ      #$2, D2
9D18   6EF8           L1584:     BGT.B     L1582
9D1A   67F8                      BEQ.B     L1583
9D1C   CC43           L1585:     And       D3, D6
9D1E   8D54                      Or        D6, (A4)
9D20   6000 FEE6                 Bra       L1567
9D24   613E           L1586:     Bsr.B     P279
9D26   3030 0040                 Move      $40(A0,D0.W), D0
9D2A   322E FFB4                 Move      $-4C(A6), D1
9D2E   926E FFB0                 Sub       $-50(A6), D1
9D32   5341                      SubQ      #$1, D1
9D34   0C6E 0001 FF36            Cmp       #$1, $-CA(A6)
9D3A   6D1C                      BLT.B     L1589
9D3C   670E                      BEQ.B     L1588
9D3E   4640                      Not       D0
9D40   C154           L1587:     And       D0, (A4)
9D42   D8C7                      AddA      D7, A4
9D44   51C9 FFFA                 DBF       D1, L1587
9D48   6000 FEBE                 Bra       L1567
9D4C   B154           L1588:     Eor       D0, (A4)
9D4E   D8C7                      AddA      D7, A4
9D50   51C9 FFFA                 DBF       D1, L1588
9D54   6000 FEB2                 Bra       L1567
9D58   8154           L1589:     Or        D0, (A4)
9D5A   D8C7                      AddA      D7, A4
9D5C   51C9 FFFA                 DBF       D1, L1589
9D60   6000 FEA6                 Bra       L1567

                      P279:
9D64   286D 0002                 Move.L    $2(A5), A4
9D68   302E FFB0                 Move      $-50(A6), D0
9D6C   906D 0008                 Sub       $8(A5), D0
9D70   3E2D 0006                 Move      $6(A5), D7
9D74   C0C7                      MulU      D7, D0
9D76   D9C0                      AddA.L    D0, A4
9D78   302E FFB2                 Move      $-4E(A6), D0
9D7C   906D 000A                 Sub       $A(A5), D0
9D80   3200                      Move      D0, D1
9D82   E849                      LsR       #$4, D1
9D84   D8C1                      AddA      D1, A4
9D86   D8C1                      AddA      D1, A4
9D88   41FA E6AE                 Lea.L     DT_mMaskTab, A0
9D8C   0240 000F                 And       #$F, D0
9D90   D040                      Add       D0, D0
9D92   4E75                      Rts

                      P_mPutLine:
9D94   48E7 1F38                 MoveM.L   D3-D7/A2-A4, -(A7)
9D98   342F 0036                 Move      $36(A7), D2
9D9C   382F 0032                 Move      $32(A7), D4
9DA0   B842                      Cmp       D2, D4
9DA2   6700 00CE                 BEQ       L1601
9DA6   3002                      Move      D2, D0
9DA8   9044                      Sub       D4, D0
9DAA   6A02                      BPL.B     L1590
9DAC   4440                      Neg       D0
9DAE   322F 0034      L1590:     Move      $34(A7), D1
9DB2   926F 0030                 Sub       $30(A7), D1
9DB6   6A02                      BPL.B     L1591
9DB8   4441                      Neg       D1
9DBA   B041           L1591:     Cmp       D1, D0
9DBC   6F02                      BLE.B     L1592
9DBE   3001                      Move      D1, D0
9DC0   5240           L1592:     AddQ      #$1, D0
9DC2   E748                      LsL       #$3, D0
9DC4   266F 002C                 Move.L    $2C(A7), A3
9DC8   286F 0028                 Move.L    $28(A7), A4
9DCC   D054                      Add       (A4), D0
9DCE   206F 0024                 Move.L    $24(A7), A0
9DD2   B050                      Cmp       (A0), D0
9DD4   6F12                      BLE.B     L1593
9DD6   0640 0200                 Add       #$200, D0
9DDA   3080                      Move      D0, (A0)
9DDC   2F0B                      Move.L    A3, -(A7)
9DDE   3F00                      Move      D0, -(A7)
9DE0   4EBA E9B6                 Jsr       P_mSetHSize
9DE4   342F 0036                 Move      $36(A7), D2
9DE8   2653           L1593:     Move.L    (A3), A3
9DEA   D6D4                      AddA      (A4), A3
9DEC   322F 0034                 Move      $34(A7), D1
9DF0   362F 0030                 Move      $30(A7), D3
9DF4   B641                      Cmp       D1, D3
9DF6   660A                      BNE.B     L1594
9DF8   36C1                      Move      D1, (A3)+
9DFA   36C2                      Move      D2, (A3)+
9DFC   36C3                      Move      D3, (A3)+
9DFE   36C4                      Move      D4, (A3)+
9E00   6068                      Bra.B     L1600
9E02   6E04           L1594:     BGT.B     L1595
9E04   C343                      Exg.L     D1, D3
9E06   C544                      Exg.L     D2, D4
9E08   3C01           L1595:     Move      D1, D6
9E0A   42A7                      Clr.L     -(A7)
9E0C   3F04                      Move      D4, -(A7)
9E0E   9557                      Sub       D2, (A7)
9E10   3F03                      Move      D3, -(A7)
9E12   9357                      Sub       D1, (A7)
9E14   A869                      _FixRatio
9E16   2E1F                      Move.L    (A7)+, D7
9E18   3202                      Move      D2, D1
9E1A   4841                      Swap      D1
9E1C   323C 8000                 Move      #$-8000, D1
9E20   2007                      Move.L    D7, D0
9E22   E280                      AsR.L     #$1, D0
9E24   D280                      Add.L     D0, D1
9E26   203C 0001 0000            Move.L    #$10000, D0
9E2C   4A87                      Tst.L     D7
9E2E   6B08                      BMI.B     L1596
9E30   BE80                      Cmp.L     D0, D7
9E32   6C0E                      BGE.B     L1597
9E34   D287                      Add.L     D7, D1
9E36   600A                      Bra.B     L1597
9E38   0C87 FFFF 0000 L1596:     Cmp.L     #$FFFF0000, D7
9E3E   6C02                      BGE.B     L1597
9E40   D280                      Add.L     D0, D1
9E42   3A02           L1597:     Move      D2, D5
9E44   4841           L1598:     Swap      D1
9E46   BA41                      Cmp       D1, D5
9E48   670A                      BEQ.B     L1599
9E4A   36C6                      Move      D6, (A3)+
9E4C   36C5                      Move      D5, (A3)+
9E4E   3A01                      Move      D1, D5
9E50   36C6                      Move      D6, (A3)+
9E52   36C5                      Move      D5, (A3)+
9E54   4841           L1599:     Swap      D1
9E56   5246                      AddQ      #$1, D6
9E58   D287                      Add.L     D7, D1
9E5A   B646                      Cmp       D6, D3
9E5C   66E6                      BNE.B     L1598
9E5E   BA44                      Cmp       D4, D5
9E60   6708                      BEQ.B     L1600
9E62   36C6                      Move      D6, (A3)+
9E64   36C5                      Move      D5, (A3)+
9E66   36C6                      Move      D6, (A3)+
9E68   36C4                      Move      D4, (A3)+
9E6A   206F 002C      L1600:     Move.L    $2C(A7), A0
9E6E   97D0                      SubA.L    (A0), A3
9E70   388B                      Move      A3, (A4)
9E72   4CDF 1CF8      L1601:     MoveM.L   (A7)+, D3-D7/A2-A4
9E76   205F                      Move.L    (A7)+, A0
9E78   DEFC 0014                 AddA      #$14, A7
9E7C   4ED0                      Jmp       (A0)

                      P_tStdRect:
9E7E   4E56 0000                 Link      A6, #$0
9E82   48E7 0118                 MoveM.L   D7/A3-A4, -(A7)
9E86   1E2E 000C                 Move.B    $C(A6), D7
9E8A   4EBA 45BC                 Jsr       P_mCheckPic
9E8E   6F14                      BLE.B     L1602
9E90   1F07                      Move.B    D7, -(A7)
9E92   4EBA 44B6                 Jsr       P_mPutPicVerb
9E96   7030                      MoveQ.L   #$30, D0
9E98   D047                      Add       D7, D0
9E9A   1F00                      Move.B    D0, -(A7)
9E9C   2F2E 0008                 Move.L    $8(A6), -(A7)
9EA0   4EBA 4448                 Jsr       P_mPutPicRect
9EA4   2F2E 0008      L1602:     Move.L    $8(A6), -(A7)
9EA8   4A07                      Tst.B     D7
9EAA   6620                      BNE.B     L1604
9EAC   4AAB 0060                 Tst.L     $60(A3)
9EB0   6714                      BEQ.B     L1603
9EB2   2F2E 0008                 Move.L    $8(A6), -(A7)
9EB6   2F2C FF6C                 Move.L    $-94(A4), -(A7)
9EBA   486C FF6A                 Pea.L     $-96(A4)
9EBE   486C FF68                 Pea.L     $-98(A4)
9EC2   4EBA 0364                 Jsr       P_mPutRect
9EC6   4EBA 00CC      L1603:     Jsr       P_mFrRect
9ECA   6008                      Bra.B     L1605
9ECC   4EBA 0012      L1604:     Jsr       P_mPushVerb
9ED0   4EBA 0086                 Jsr       P_mDrawRect
9ED4   4CDF 1880      L1605:     MoveM.L   (A7)+, D7/A3-A4
9ED8   4E5E                      Unlk      A6
9EDA   205F                      Move.L    (A7)+, A0
9EDC   5C4F                      AddQ      #$6, A7
9EDE   4ED0                      Jmp       (A0)

                      P_mPushVerb:
9EE0   205F                      Move.L    (A7)+, A0
9EE2   3F3C 0008                 Move      #$8, -(A7)
9EE6   0C07 0001                 Cmp.B     #$1, D7
9EEA   6F1C                      BLE.B     L1608
9EEC   0C07 0003                 Cmp.B     #$3, D7
9EF0   6D08                      BLT.B     L1606
9EF2   670C                      BEQ.B     L1607
9EF4   486B 0028                 Pea.L     $28(A3)
9EF8   6016                      Bra.B     L1609
9EFA   486B 0020      L1606:     Pea.L     $20(A3)
9EFE   6010                      Bra.B     L1609
9F00   5457           L1607:     AddQ      #$2, (A7)
9F02   486C FFF0                 Pea.L     $-10(A4)
9F06   6008                      Bra.B     L1609
9F08   3EAB 0038      L1608:     Move      $38(A3), (A7)
9F0C   486B 003A                 Pea.L     $3A(A3)
9F10   4ED0           L1609:     Jmp       (A0)

                      P_tFillRect:
9F12   205F                      Move.L    (A7)+, A0
9F14   225F                      Move.L    (A7)+, A1
9F16   2F08                      Move.L    A0, -(A7)
9F18   2055                      Move.L    (A5), A0
9F1A   2050                      Move.L    (A0), A0
9F1C   41E8 0028                 Lea.L     $28(A0), A0
9F20   20D9                      Move.L    (A1)+, (A0)+
9F22   20D9                      Move.L    (A1)+, (A0)+
9F24   7004                      MoveQ.L   #$4, D0
9F26   6010                      Bra.B     P_mCallRect

                      P_tFrameRect:
9F28   7000                      MoveQ.L   #$0, D0
9F2A   600C                      Bra.B     P_mCallRect

                      P_tPaintRect:
9F2C   7001                      MoveQ.L   #$1, D0
9F2E   6008                      Bra.B     P_mCallRect

                      P_tEraseRect:
9F30   7002                      MoveQ.L   #$2, D0
9F32   6004                      Bra.B     P_mCallRect

                      P_tInvertRect:
9F34   7003                      MoveQ.L   #$3, D0
9F36   4E71                      Nop
                      P_mCallRect:
9F38   205F                      Move.L    (A7)+, A0
9F3A   225F                      Move.L    (A7)+, A1
9F3C   1F00                      Move.B    D0, -(A7)
9F3E   2F09                      Move.L    A1, -(A7)
9F40   2F08                      Move.L    A0, -(A7)
9F42   2055                      Move.L    (A5), A0
9F44   2050                      Move.L    (A0), A0
9F46   2028 0068                 Move.L    $68(A0), D0
9F4A   2078 0E80                 Move.L    ($E80), A0
9F4E   6706                      BEQ.B     L1611
9F50   2040                      Move.L    D0, A0
9F52   2068 0008                 Move.L    $8(A0), A0
9F56   4ED0           L1611:     Jmp       (A0)

                      P_mDrawRect:
9F58   4E56 0000                 Link      A6, #$0
9F5C   2055                      Move.L    (A5), A0
9F5E   2250                      Move.L    (A0), A1
9F60   4A69 0042                 Tst       $42(A1)
9F64   6D24                      BLT.B     L1612
9F66   4869 0002                 Pea.L     $2(A1)
9F6A   2F17                      Move.L    (A7), -(A7)
9F6C   2F2E 000E                 Move.L    $E(A6), -(A7)
9F70   2F17                      Move.L    (A7), -(A7)
9F72   3F2E 000C                 Move      $C(A6), -(A7)
9F76   2F2E 0008                 Move.L    $8(A6), -(A7)
9F7A   2F29 001C                 Move.L    $1C(A1), -(A7)
9F7E   2F29 0018                 Move.L    $18(A1), -(A7)
9F82   2F28 FF7E                 Move.L    $-82(A0), -(A7)
9F86   4EBA 07AA                 Jsr       P_mRgnBlt
9F8A   4E5E           L1612:     Unlk      A6
9F8C   205F                      Move.L    (A7)+, A0
9F8E   DEFC 000A                 AddA      #$A, A7
9F92   4ED0                      Jmp       (A0)

                      P_mFrRect:
9F94   4E56 FFE4                 Link      A6, #$-1C
9F98   2055                      Move.L    (A5), A0
9F9A   2050                      Move.L    (A0), A0
9F9C   4A68 0042                 Tst       $42(A0)
9FA0   6D00 00DA                 BLT       L1615
9FA4   226E 0008                 Move.L    $8(A6), A1
9FA8   2D59 FFE4                 Move.L    (A1)+, $-1C(A6)
9FAC   2D59 FFE8                 Move.L    (A1)+, $-18(A6)
9FB0   43EE FFE4                 Lea.L     $-1C(A6), A1
9FB4   3428 0036                 Move      $36(A0), D2
9FB8   3029 0002                 Move      $2(A1), D0
9FBC   3D40 FFFE                 Move      D0, $-2(A6)
9FC0   D042                      Add       D2, D0
9FC2   3D40 FFFC                 Move      D0, $-4(A6)
9FC6   3229 0006                 Move      $6(A1), D1
9FCA   3D41 FFF6                 Move      D1, $-A(A6)
9FCE   9242                      Sub       D2, D1
9FD0   3D41 FFFA                 Move      D1, $-6(A6)
9FD4   B041                      Cmp       D1, D0
9FD6   6C76                      BGE.B     L1613
9FD8   3428 0034                 Move      $34(A0), D2
9FDC   3011                      Move      (A1), D0
9FDE   3D40 FFF4                 Move      D0, $-C(A6)
9FE2   D042                      Add       D2, D0
9FE4   3D40 FFF2                 Move      D0, $-E(A6)
9FE8   3229 0004                 Move      $4(A1), D1
9FEC   3D41 FFEC                 Move      D1, $-14(A6)
9FF0   9242                      Sub       D2, D1
9FF2   3D41 FFF0                 Move      D1, $-10(A6)
9FF6   B041                      Cmp       D1, D0
9FF8   6C54                      BGE.B     L1613
9FFA   3D6E FFFE FFE6            Move      $-2(A6), $-1A(A6)
A000   3D6E FFFA FFEA            Move      $-6(A6), $-16(A6)
A006   3D6E FFF4 FFE4            Move      $-C(A6), $-1C(A6)
A00C   3D6E FFF2 FFE8            Move      $-E(A6), $-18(A6)
A012   613C                      Bsr.B     P284
A014   3D6E FFFA FFE6            Move      $-6(A6), $-1A(A6)
A01A   3D6E FFF6 FFEA            Move      $-A(A6), $-16(A6)
A020   3D6E FFF0 FFE8            Move      $-10(A6), $-18(A6)
A026   6128                      Bsr.B     P284
A028   3D6E FFFC FFE6            Move      $-4(A6), $-1A(A6)
A02E   3D6E FFF0 FFE4            Move      $-10(A6), $-1C(A6)
A034   3D6E FFEC FFE8            Move      $-14(A6), $-18(A6)
A03A   6114                      Bsr.B     P284
A03C   3D6E FFFE FFE6            Move      $-2(A6), $-1A(A6)
A042   3D6E FFFC FFEA            Move      $-4(A6), $-16(A6)
A048   3D6E FFF2 FFE4            Move      $-E(A6), $-1C(A6)
A04E   602A           L1613:     Bra.B     L1614

                      P284:
A050   2055                      Move.L    (A5), A0
A052   2250                      Move.L    (A0), A1
A054   4869 0002                 Pea.L     $2(A1)
A058   2F17                      Move.L    (A7), -(A7)
A05A   486E FFE4                 Pea.L     $-1C(A6)
A05E   2F17                      Move.L    (A7), -(A7)
A060   3F29 0038                 Move      $38(A1), -(A7)
A064   4869 003A                 Pea.L     $3A(A1)
A068   2F29 001C                 Move.L    $1C(A1), -(A7)
A06C   2F29 0018                 Move.L    $18(A1), -(A7)
A070   2F28 FF7E                 Move.L    $-82(A0), -(A7)
A074   4EBA 06BC                 Jsr       P_mRgnBlt
A078   4E75                      Rts
A07A   61D4           L1614:     Bsr.B     P284
A07C   4E5E           L1615:     Unlk      A6
A07E   2E9F                      Move.L    (A7)+, (A7)
A080   4E75                      Rts

                      P_tSetRect:
A082   205F                      Move.L    (A7)+, A0
A084   221F                      Move.L    (A7)+, D1
A086   201F                      Move.L    (A7)+, D0
A088   225F                      Move.L    (A7)+, A1
A08A   22C0                      Move.L    D0, (A1)+
A08C   22C1                      Move.L    D1, (A1)+
A08E   4ED0                      Jmp       (A0)

                      P_tEqualRect:
A090   201F                      Move.L    (A7)+, D0
A092   225F                      Move.L    (A7)+, A1
A094   205F                      Move.L    (A7)+, A0
A096   B388                      CmpM.L    (A0)+, (A1)+
A098   660A                      BNE.B     L1616
A09A   B388                      CmpM.L    (A0)+, (A1)+
A09C   6606                      BNE.B     L1616
A09E   1EBC 0001                 Move.B    #$1, (A7)
A0A2   6002                      Bra.B     L1617
A0A4   4217           L1616:     Clr.B     (A7)
A0A6   2F00           L1617:     Move.L    D0, -(A7)
A0A8   4E75                      Rts

                      P_tEmptyRect:
A0AA   225F                      Move.L    (A7)+, A1
A0AC   205F                      Move.L    (A7)+, A0
A0AE   3018                      Move      (A0)+, D0
A0B0   3218                      Move      (A0)+, D1
A0B2   B058                      Cmp       (A0)+, D0
A0B4   6C08                      BGE.B     L1618
A0B6   B258                      Cmp       (A0)+, D1
A0B8   6C04                      BGE.B     L1618
A0BA   4217                      Clr.B     (A7)
A0BC   6004                      Bra.B     L1619
A0BE   1EBC 0001      L1618:     Move.B    #$1, (A7)
A0C2   4ED1           L1619:     Jmp       (A1)

                      P_tOffsetRect:
A0C4   205F                      Move.L    (A7)+, A0
A0C6   321F                      Move      (A7)+, D1
A0C8   301F                      Move      (A7)+, D0
A0CA   225F                      Move.L    (A7)+, A1
A0CC   D359                      Add       D1, (A1)+
A0CE   D159                      Add       D0, (A1)+
A0D0   D359                      Add       D1, (A1)+
A0D2   D159                      Add       D0, (A1)+
A0D4   4ED0                      Jmp       (A0)

                      P_tInsetRect:
A0D6   205F                      Move.L    (A7)+, A0
A0D8   321F                      Move      (A7)+, D1
A0DA   301F                      Move      (A7)+, D0
A0DC   225F                      Move.L    (A7)+, A1
A0DE   D359                      Add       D1, (A1)+
A0E0   D159                      Add       D0, (A1)+
A0E2   9359                      Sub       D1, (A1)+
A0E4   9159                      Sub       D0, (A1)+
A0E6   4ED0                      Jmp       (A0)

                      P_tSectRect:
A0E8   4E56 0000                 Link      A6, #$0
A0EC   2F2E 0010                 Move.L    $10(A6), -(A7)
A0F0   2F2E 000C                 Move.L    $C(A6), -(A7)
A0F4   3F3C 0002                 Move      #$2, -(A7)
A0F8   2F2E 0008                 Move.L    $8(A6), -(A7)
A0FC   6112                      Bsr.B     P_mRSect
A0FE   56EE 0014                 SNE.B     $14(A6)
A102   442E 0014                 Neg.B     $14(A6)
A106   4E5E                      Unlk      A6
A108   205F                      Move.L    (A7)+, A0
A10A   DEFC 000C                 AddA      #$C, A7
A10E   4ED0                      Jmp       (A0)

                      P_mRSect:
A110   4E56 0000                 Link      A6, #$0
A114   48E7 7840                 MoveM.L   D1-D4/A1, -(A7)
A118   43EE 000C                 Lea.L     $C(A6), A1
A11C   3019                      Move      (A1)+, D0
A11E   6F3A                      BLE.B     L1625
A120   2059                      Move.L    (A1)+, A0
A122   4C98 001E                 MoveM     (A0)+, D1-D4
A126   5340                      SubQ      #$1, D0
A128   6022                      Bra.B     L1624
A12A   2059           L1620:     Move.L    (A1)+, A0
A12C   B258                      Cmp       (A0)+, D1
A12E   6C04                      BGE.B     L1621
A130   3228 FFFE                 Move      $-2(A0), D1
A134   B458           L1621:     Cmp       (A0)+, D2
A136   6C04                      BGE.B     L1622
A138   3428 FFFE                 Move      $-2(A0), D2
A13C   B658           L1622:     Cmp       (A0)+, D3
A13E   6F04                      BLE.B     L1623
A140   3628 FFFE                 Move      $-2(A0), D3
A144   B858           L1623:     Cmp       (A0)+, D4
A146   6F04                      BLE.B     L1624
A148   3828 FFFE                 Move      $-2(A0), D4
A14C   B641           L1624:     Cmp       D1, D3
A14E   6F0A                      BLE.B     L1625
A150   B842                      Cmp       D2, D4
A152   6F06                      BLE.B     L1625
A154   51C8 FFD4                 DBF       D0, L1620
A158   6008                      Bra.B     L1626
A15A   4241           L1625:     Clr       D1
A15C   4242                      Clr       D2
A15E   4243                      Clr       D3
A160   4244                      Clr       D4
A162   206E 0008      L1626:     Move.L    $8(A6), A0
A166   30C1                      Move      D1, (A0)+
A168   30C2                      Move      D2, (A0)+
A16A   30C3                      Move      D3, (A0)+
A16C   30C4                      Move      D4, (A0)+
A16E   302E 000C                 Move      $C(A6), D0
A172   E548                      LsL       #$2, D0
A174   5C40                      AddQ      #$6, D0
A176   B641                      Cmp       D1, D3
A178   4CDF 021E                 MoveM.L   (A7)+, D1-D4/A1
A17C   4E5E                      Unlk      A6
A17E   205F                      Move.L    (A7)+, A0
A180   DEC0                      AddA      D0, A7
A182   4ED0                      Jmp       (A0)

                      P_tUnionRect:
A184   206F 000C                 Move.L    $C(A7), A0
A188   226F 0008                 Move.L    $8(A7), A1
A18C   3018                      Move      (A0)+, D0
A18E   B059                      Cmp       (A1)+, D0
A190   6F04                      BLE.B     L1627
A192   3029 FFFE                 Move      $-2(A1), D0
A196   4840           L1627:     Swap      D0
A198   3018                      Move      (A0)+, D0
A19A   B059                      Cmp       (A1)+, D0
A19C   6F04                      BLE.B     L1628
A19E   3029 FFFE                 Move      $-2(A1), D0
A1A2   3218           L1628:     Move      (A0)+, D1
A1A4   B259                      Cmp       (A1)+, D1
A1A6   6C04                      BGE.B     L1629
A1A8   3229 FFFE                 Move      $-2(A1), D1
A1AC   4841           L1629:     Swap      D1
A1AE   3218                      Move      (A0)+, D1
A1B0   B259                      Cmp       (A1)+, D1
A1B2   6C04                      BGE.B     L1630
A1B4   3229 FFFE                 Move      $-2(A1), D1
A1B8   206F 0004      L1630:     Move.L    $4(A7), A0
A1BC   20C0                      Move.L    D0, (A0)+
A1BE   20C1                      Move.L    D1, (A0)+
A1C0   602E                      Bra.B     L1633

                      P_tPt2Rect:
A1C2   206F 0004                 Move.L    $4(A7), A0
A1C6   302F 000E                 Move      $E(A7), D0
A1CA   322F 000A                 Move      $A(A7), D1
A1CE   B240                      Cmp       D0, D1
A1D0   6C02                      BGE.B     L1631
A1D2   C141                      Exg.L     D0, D1
A1D4   3140 0002      L1631:     Move      D0, $2(A0)
A1D8   3141 0006                 Move      D1, $6(A0)
A1DC   302F 000C                 Move      $C(A7), D0
A1E0   322F 0008                 Move      $8(A7), D1
A1E4   B240                      Cmp       D0, D1
A1E6   6C02                      BGE.B     L1632
A1E8   C141                      Exg.L     D0, D1
A1EA   3080           L1632:     Move      D0, (A0)
A1EC   3141 0004                 Move      D1, $4(A0)
A1F0   205F           L1633:     Move.L    (A7)+, A0
A1F2   DEFC 000C                 AddA      #$C, A7
A1F6   4ED0                      Jmp       (A0)

                      P_tPtInRect:
A1F8   4E56 0000                 Link      A6, #$0
A1FC   206E 0008                 Move.L    $8(A6), A0
A200   302E 000E                 Move      $E(A6), D0
A204   322E 000C                 Move      $C(A6), D1
A208   422E 0010                 Clr.B     $10(A6)
A20C   B258                      Cmp       (A0)+, D1
A20E   6D10                      BLT.B     L1634
A210   B058                      Cmp       (A0)+, D0
A212   6D0C                      BLT.B     L1634
A214   B258                      Cmp       (A0)+, D1
A216   6C08                      BGE.B     L1634
A218   B058                      Cmp       (A0)+, D0
A21A   6C04                      BGE.B     L1634
A21C   522E 0010                 AddQ      #$1, $10(A6)
A220   4E5E           L1634:     Unlk      A6
A222   205F                      Move.L    (A7)+, A0
A224   504F                      AddQ      #$8, A7
A226   4ED0                      Jmp       (A0)

                      P_mPutRect:
A228   4E56 0000                 Link      A6, #$0
A22C   206E 000C                 Move.L    $C(A6), A0
A230   226E 0008                 Move.L    $8(A6), A1
A234   7010                      MoveQ.L   #$10, D0
A236   D050                      Add       (A0), D0
A238   B051                      Cmp       (A1), D0
A23A   6F1A                      BLE.B     L1635
A23C   0651 0400                 Add       #$400, (A1)
A240   48E7 1020                 MoveM.L   D3/A2, -(A7)
A244   2F2E 0010                 Move.L    $10(A6), -(A7)
A248   3F11                      Move      (A1), -(A7)
A24A   4EBA E54C                 Jsr       P_mSetHSize
A24E   4CDF 0408                 MoveM.L   (A7)+, D3/A2
A252   206E 000C                 Move.L    $C(A6), A0
A256   226E 0010      L1635:     Move.L    $10(A6), A1
A25A   2251                      Move.L    (A1), A1
A25C   D2D0                      AddA      (A0), A1
A25E   0650 0010                 Add       #$10, (A0)
A262   206E 0014                 Move.L    $14(A6), A0
A266   22D0                      Move.L    (A0), (A1)+
A268   32D0                      Move      (A0), (A1)+
A26A   32E8 0006                 Move      $6(A0), (A1)+
A26E   32E8 0004                 Move      $4(A0), (A1)+
A272   32E8 0002                 Move      $2(A0), (A1)+
A276   22E8 0004                 Move.L    $4(A0), (A1)+
A27A   4E5E                      Unlk      A6
A27C   205F                      Move.L    (A7)+, A0
A27E   DEFC 0010                 AddA      #$10, A7
A282   4ED0                      Jmp       (A0)

                      P_mBitBlt:
A284   4E56 FFAE                 Link      A6, #$-52
A288   48E7 1F3C                 MoveM.L   D3-D7/A2-A5, -(A7)
A28C   2D4D FFAE                 Move.L    A5, $-52(A6)
A290   246E 0012                 Move.L    $12(A6), A2
A294   266E 000E                 Move.L    $E(A6), A3
A298   286E 001A                 Move.L    $1A(A6), A4
A29C   2A6E 0016                 Move.L    $16(A6), A5
A2A0   302B 0004                 Move      $4(A3), D0
A2A4   9053                      Sub       (A3), D0
A2A6   6F00 019A                 BLE       L1648
A2AA   3D40 FFB4                 Move      D0, $-4C(A6)
A2AE   7602                      MoveQ.L   #$2, D3
A2B0   3012                      Move      (A2), D0
A2B2   906C 0006                 Sub       $6(A4), D0
A2B6   3D40 FFBE                 Move      D0, $-42(A6)
A2BA   3013                      Move      (A3), D0
A2BC   906D 0006                 Sub       $6(A5), D0
A2C0   3D40 FFBC                 Move      D0, $-44(A6)
A2C4   3D6C 0004 FFBA            Move      $4(A4), $-46(A6)
A2CA   3D6D 0004 FFB8            Move      $4(A5), $-48(A6)
A2D0   4247                      Clr       D7
A2D2   302E 000C                 Move      $C(A6), D0
A2D6   0800 0002                 BTst.B    #$2, D0
A2DA   6702                      BEQ.B     L1636
A2DC   4647                      Not       D7
A2DE   0800 0003      L1636:     BTst.B    #$3, D0
A2E2   6724                      BEQ.B     L1637
A2E4   342D 0008                 Move      $8(A5), D2
A2E8   206E 0008                 Move.L    $8(A6), A0
A2EC   43EE FFC0                 Lea.L     $-40(A6), A1
A2F0   2A6E FFAE                 Move.L    $-52(A6), A5
A2F4   4EBA E1A2                 Jsr       P_mPatExpand
A2F8   2A6E 0016                 Move.L    $16(A6), A5
A2FC   7E0F                      MoveQ.L   #$F, D7
A2FE   CE53                      And       (A3), D7
A300   E54F                      LsL       #$2, D7
A302   2C36 70C0                 Move.L    $-40(A6,D7.W), D6
A306   606C                      Bra.B     L1640
A308   2014           L1637:     Move.L    (A4), D0
A30A   B095                      Cmp.L     (A5), D0
A30C   663A                      BNE.B     L1639
A30E   302E FFBE                 Move      $-42(A6), D0
A312   B06E FFBC                 Cmp       $-44(A6), D0
A316   6E30                      BGT.B     L1639
A318   6D18                      BLT.B     L1638
A31A   302A 0002                 Move      $2(A2), D0
A31E   906C 0008                 Sub       $8(A4), D0
A322   322B 0002                 Move      $2(A3), D1
A326   926D 0008                 Sub       $8(A5), D1
A32A   B041                      Cmp       D1, D0
A32C   6C1A                      BGE.B     L1639
A32E   4443                      Neg       D3
A330   6016                      Bra.B     L1639
A332   302E FFB4      L1638:     Move      $-4C(A6), D0
A336   5340                      SubQ      #$1, D0
A338   D16E FFBE                 Add       D0, $-42(A6)
A33C   D16E FFBC                 Add       D0, $-44(A6)
A340   446E FFBA                 Neg       $-46(A6)
A344   446E FFB8                 Neg       $-48(A6)
A348   3C2B 0002      L1639:     Move      $2(A3), D6
A34C   9C6D 0008                 Sub       $8(A5), D6
A350   322A 0002                 Move      $2(A2), D1
A354   926C 0008                 Sub       $8(A4), D1
A358   9C41                      Sub       D1, D6
A35A   0246 000F                 And       #$F, D6
A35E   302E FFBE                 Move      $-42(A6), D0
A362   C0EC 0004                 MulU      $4(A4), D0
A366   2854                      Move.L    (A4), A4
A368   D9C0                      AddA.L    D0, A4
A36A   D246                      Add       D6, D1
A36C   E641                      AsR       #$3, D1
A36E   0241 FFFE                 And       #$-2, D1
A372   D8C1                      AddA      D1, A4
A374   322B 0002      L1640:     Move      $2(A3), D1
A378   926D 0008                 Sub       $8(A5), D1
A37C   302E FFBC                 Move      $-44(A6), D0
A380   C0ED 0004                 MulU      $4(A5), D0
A384   2A55                      Move.L    (A5), A5
A386   DBC0                      AddA.L    D0, A5
A388   3001                      Move      D1, D0
A38A   E841                      AsR       #$4, D1
A38C   D241                      Add       D1, D1
A38E   DAC1                      AddA      D1, A5
A390   3200                      Move      D0, D1
A392   4EBA E080                 Jsr       P_mLeftMask
A396   3800                      Move      D0, D4
A398   0241 000F                 And       #$F, D1
A39C   302B 0006                 Move      $6(A3), D0
A3A0   906B 0002                 Sub       $2(A3), D0
A3A4   6F00 009C                 BLE       L1648
A3A8   D041                      Add       D1, D0
A3AA   3200                      Move      D0, D1
A3AC   4EBA E072                 Jsr       P_mRightMask
A3B0   3A00                      Move      D0, D5
A3B2   E841                      AsR       #$4, D1
A3B4   3D41 FFB2                 Move      D1, $-4E(A6)
A3B8   3401                      Move      D1, D2
A3BA   D241                      Add       D1, D1
A3BC   3001                      Move      D1, D0
A3BE   5440                      AddQ      #$2, D0
A3C0   3043                      Move      D3, A0
A3C2   4A43                      Tst       D3
A3C4   6A08                      BPL.B     L1641
A3C6   4440                      Neg       D0
A3C8   DAC1                      AddA      D1, A5
A3CA   D8C1                      AddA      D1, A4
A3CC   C945                      Exg.L     D4, D5
A3CE   3D6E FFBA FFB6 L1641:     Move      $-46(A6), $-4A(A6)
A3D4   916E FFB6                 Sub       D0, $-4A(A6)
A3D8   366E FFB8                 Move      $-48(A6), A3
A3DC   96C0                      SubA      D0, A3
A3DE   302E 000C                 Move      $C(A6), D0
A3E2   6618                      BNE.B     L1642
A3E4   4A46                      Tst       D6
A3E6   6614                      BNE.B     L1642
A3E8   4A6E FFB2                 Tst       $-4E(A6)
A3EC   6F0E                      BLE.B     L1642
A3EE   43FA 00B4                 Lea.L     E_304, A1
A3F2   4A43                      Tst       D3
A3F4   6A22                      BPL.B     L1644
A3F6   43FA 0078                 Lea.L     E_303, A1
A3FA   601C                      Bra.B     L1644
A3FC   0240 000B      L1642:     And       #$B, D0
A400   3200                      Move      D0, D1
A402   0240 0003                 And       #$3, D0
A406   D240                      Add       D0, D1
A408   4A42                      Tst       D2
A40A   6604                      BNE.B     L1643
A40C   0641 0010                 Add       #$10, D1
A410   43FA 003E      L1643:     Lea.L     DT33, A1
A414   D2F1 1000                 AddA      $0(A1,D1.W), A1
A418   362E FFB4      L1644:     Move      $-4C(A6), D3
A41C   5343                      SubQ      #$1, D3
A41E   3204           L1645:     Move      D4, D1
A420   342E FFB2                 Move      $-4E(A6), D2
A424   4ED1                      Jmp       (A1)
A426   D8EE FFB6      L1646:     AddA      $-4A(A6), A4
A42A   DACB                      AddA      A3, A5
A42C   51CB FFF0                 DBF       D3, L1645
A430   6010                      Bra.B     L1648
A432   5847           L1647:     AddQ      #$4, D7
A434   0247 003F                 And       #$3F, D7
A438   2C36 70C0                 Move.L    $-40(A6,D7.W), D6
A43C   DACB                      AddA      A3, A5
A43E   51CB FFDE                 DBF       D3, L1645
A442   4CDF 3CF8      L1648:     MoveM.L   (A7)+, D3-D7/A2-A5
A446   4E5E                      Unlk      A6
A448   205F                      Move.L    (A7)+, A0
A44A   DEFC 0016                 AddA      #$16, A7
A44E   4ED0                      Jmp       (A0)

                      DT33:
A450   0078 00F8 0116            DC.B      ' x    '
A456   0134 0176 0216            DC.B      ' 4 v  '
A45C   0228 02AC 0076            DC.B      ' (   v'
A462   00F6 0114 0132            DC.B      '     2'
A468   0152 0214 0244            DC.B      ' R   D'
A46E   02AA                      DC.B      '  '

                      E_303:
A470   3014                      Move      (A4), D0
A472   D8C8                      AddA      A0, A4
A474   C041                      And       D1, D0
A476   4641                      Not       D1
A478   C255                      And       (A5), D1
A47A   8041                      Or        D1, D0
A47C   3A80                      Move      D0, (A5)
A47E   DAC8                      AddA      A0, A5
A480   72FF                      MoveQ.L   #$-1, D1
A482   5342                      SubQ      #$1, D2
A484   6740                      BEQ.B     E_306
A486   98C8                      SubA      A0, A4
A488   9AC8                      SubA      A0, A5
A48A   E24A                      LsR       #$1, D2
A48C   6408                      BCC.B     L1650
A48E   3B24                      Move      -(A4), -(A5)
A490   5342                      SubQ      #$1, D2
A492   6006                      Bra.B     L1651
A494   2B24           L1649:     Move.L    -(A4), -(A5)
A496   2B24           L1650:     Move.L    -(A4), -(A5)
A498   5542                      SubQ      #$2, D2
A49A   6EF8           L1651:     BGT.B     L1649
A49C   67F8                      BEQ.B     L1650
A49E   D8C8                      AddA      A0, A4
A4A0   DAC8                      AddA      A0, A5
A4A2   6022                      Bra.B     E_306

                      E_304:
A4A4   43FA 000A                 Lea.L     E_305, A1
A4A8   45FA 0040                 Lea.L     E_308, A2
A4AC   6000 0120                 Bra       L1655

                      E_305:
A4B0   301C                      Move      (A4)+, D0
A4B2   C041                      And       D1, D0
A4B4   4641                      Not       D1
A4B6   C255                      And       (A5), D1
A4B8   8041                      Or        D1, D0
A4BA   3AC0                      Move      D0, (A5)+
A4BC   72FF                      MoveQ.L   #$-1, D1
A4BE   5342                      SubQ      #$1, D2
A4C0   6704                      BEQ.B     E_306
A4C2   4E92                      Jsr       (A2)
A4C4   74FF                      MoveQ.L   #$-1, D2

                      E_306:
A4C6   C245                      And       D5, D1

                      E_307:
A4C8   202C FFFE                 Move.L    $-2(A4), D0
A4CC   D8C8                      AddA      A0, A4
A4CE   ECA8                      LsR.L     D6, D0
A4D0   BF40                      Eor       D7, D0
A4D2   C041                      And       D1, D0
A4D4   4641                      Not       D1
A4D6   C255                      And       (A5), D1
A4D8   8041                      Or        D1, D0
A4DA   3A80                      Move      D0, (A5)
A4DC   DAC8                      AddA      A0, A5
A4DE   72FF                      MoveQ.L   #$-1, D1
A4E0   5342                      SubQ      #$1, D2
A4E2   6EE4                      BGT.B     E_307
A4E4   67E0                      BEQ.B     E_306
A4E6   6000 FF3E                 Bra       L1646

                      E_308:
A4EA   0882 0000                 BClr.B    #$0, D2
A4EE   6702                      BEQ.B     L1652
A4F0   3ADC                      Move      (A4)+, (A5)+
A4F2   0442 0020      L1652:     Sub       #$20, D2
A4F6   6F04                      BLE.B     L1653
A4F8   6108                      Bsr.B     P288
A4FA   60F6                      Bra.B     L1652
A4FC   4442           L1653:     Neg       D2
A4FE   4EFB 2002                 Jmp       P288(D2.W)

                      P288:
A502   2ADC                      Move.L    (A4)+, (A5)+
A504   2ADC                      Move.L    (A4)+, (A5)+
A506   2ADC                      Move.L    (A4)+, (A5)+
A508   2ADC                      Move.L    (A4)+, (A5)+
A50A   2ADC                      Move.L    (A4)+, (A5)+
A50C   2ADC                      Move.L    (A4)+, (A5)+
A50E   2ADC                      Move.L    (A4)+, (A5)+
A510   2ADC                      Move.L    (A4)+, (A5)+
A512   2ADC                      Move.L    (A4)+, (A5)+
A514   2ADC                      Move.L    (A4)+, (A5)+
A516   2ADC                      Move.L    (A4)+, (A5)+
A518   2ADC                      Move.L    (A4)+, (A5)+
A51A   2ADC                      Move.L    (A4)+, (A5)+
A51C   2ADC                      Move.L    (A4)+, (A5)+
A51E   2ADC                      Move.L    (A4)+, (A5)+
A520   2ADC                      Move.L    (A4)+, (A5)+
A522   4E75                      Rts

                      E_309:
A524   2ADC                      Move.L    (A4)+, (A5)+
A526   2ADC                      Move.L    (A4)+, (A5)+
A528   2ADC                      Move.L    (A4)+, (A5)+
A52A   2ADC                      Move.L    (A4)+, (A5)+
A52C   2ADC                      Move.L    (A4)+, (A5)+
A52E   2ADC                      Move.L    (A4)+, (A5)+
A530   2ADC                      Move.L    (A4)+, (A5)+
A532   2ADC                      Move.L    (A4)+, (A5)+
A534   2ADC                      Move.L    (A4)+, (A5)+
A536   2ADC                      Move.L    (A4)+, (A5)+
A538   2ADC                      Move.L    (A4)+, (A5)+
A53A   2ADC                      Move.L    (A4)+, (A5)+
A53C   2ADC                      Move.L    (A4)+, (A5)+
A53E   2ADC                      Move.L    (A4)+, (A5)+
A540   2ADC                      Move.L    (A4)+, (A5)+
A542   3ADC                      Move      (A4)+, (A5)+
A544   4E75                      Rts

                      E_310:
A546   C245                      And       D5, D1

                      E_311:
A548   202C FFFE                 Move.L    $-2(A4), D0
A54C   D8C8                      AddA      A0, A4
A54E   ECA8                      LsR.L     D6, D0
A550   BF40                      Eor       D7, D0
A552   C041                      And       D1, D0
A554   8155                      Or        D0, (A5)
A556   DAC8                      AddA      A0, A5
A558   72FF                      MoveQ.L   #$-1, D1
A55A   5342                      SubQ      #$1, D2
A55C   6EEA                      BGT.B     E_311
A55E   67E6                      BEQ.B     E_310
A560   6000 FEC4                 Bra       L1646

                      E_312:
A564   C245                      And       D5, D1

                      E_313:
A566   202C FFFE                 Move.L    $-2(A4), D0
A56A   D8C8                      AddA      A0, A4
A56C   ECA8                      LsR.L     D6, D0
A56E   BF40                      Eor       D7, D0
A570   C041                      And       D1, D0
A572   B155                      Eor       D0, (A5)
A574   DAC8                      AddA      A0, A5
A576   72FF                      MoveQ.L   #$-1, D1
A578   5342                      SubQ      #$1, D2
A57A   6EEA                      BGT.B     E_313
A57C   67E6                      BEQ.B     E_312
A57E   6000 FEA6                 Bra       L1646

                      E_314:
A582   C245                      And       D5, D1

                      E_315:
A584   202C FFFE                 Move.L    $-2(A4), D0
A588   D8C8                      AddA      A0, A4
A58A   ECA8                      LsR.L     D6, D0
A58C   BF40                      Eor       D7, D0
A58E   C041                      And       D1, D0
A590   4640                      Not       D0
A592   C155                      And       D0, (A5)
A594   DAC8                      AddA      A0, A5
A596   72FF                      MoveQ.L   #$-1, D1
A598   5342                      SubQ      #$1, D2
A59A   6EE8                      BGT.B     E_315
A59C   67E4                      BEQ.B     E_314
A59E   6000 FE86                 Bra       L1646

                      E_316:
A5A2   C245                      And       D5, D1
A5A4   3A01                      Move      D1, D5
A5A6   4645                      Not       D5
A5A8   CC41           L1654:     And       D1, D6
A5AA   3015                      Move      (A5), D0
A5AC   C045                      And       D5, D0
A5AE   8046                      Or        D6, D0
A5B0   3AC0                      Move      D0, (A5)+
A5B2   DACB                      AddA      A3, A5
A5B4   5847                      AddQ      #$4, D7
A5B6   0247 003F                 And       #$3F, D7
A5BA   3C36 70C0                 Move      $-40(A6,D7.W), D6
A5BE   51CB FFE8                 DBF       D3, L1654
A5C2   6000 FE7E                 Bra       L1648

                      E_317:
A5C6   43FA 001E                 Lea.L     E_318, A1
A5CA   45FA 003C                 Lea.L     E_319, A2
A5CE   0C42 0020      L1655:     Cmp       #$20, D2
A5D2   6E10                      BGT.B     L1657
A5D4   D4FC 0039                 AddA      #$39, A2
A5D8   0802 0000                 BTst.B    #$0, D2
A5DC   6604                      BNE.B     L1656
A5DE   D4FC 0021                 AddA      #$21, A2
A5E2   94C2           L1656:     SubA      D2, A2
A5E4   4ED1           L1657:     Jmp       (A1)

                      E_318:
A5E6   3006                      Move      D6, D0
A5E8   C041                      And       D1, D0
A5EA   4641                      Not       D1
A5EC   C255                      And       (A5), D1
A5EE   8041                      Or        D1, D0
A5F0   3AC0                      Move      D0, (A5)+
A5F2   5342                      SubQ      #$1, D2
A5F4   6702                      BEQ.B     L1658
A5F6   4E92                      Jsr       (A2)
A5F8   3205           L1658:     Move      D5, D1
A5FA   CC41                      And       D1, D6
A5FC   4641                      Not       D1
A5FE   C255                      And       (A5), D1
A600   8C41                      Or        D1, D6
A602   3AC6                      Move      D6, (A5)+
A604   6000 FE2C                 Bra       L1647

                      E_319:
A608   0882 0000                 BClr.B    #$0, D2
A60C   6702                      BEQ.B     L1659
A60E   3AC6                      Move      D6, (A5)+
A610   0442 0020      L1659:     Sub       #$20, D2
A614   6F04                      BLE.B     L1660
A616   6108                      Bsr.B     P289
A618   60F6                      Bra.B     L1659
A61A   4442           L1660:     Neg       D2
A61C   4EFB 2002                 Jmp       P289(D2.W)

                      P289:
A620   2AC6                      Move.L    D6, (A5)+
A622   2AC6                      Move.L    D6, (A5)+
A624   2AC6                      Move.L    D6, (A5)+
A626   2AC6                      Move.L    D6, (A5)+
A628   2AC6                      Move.L    D6, (A5)+
A62A   2AC6                      Move.L    D6, (A5)+
A62C   2AC6                      Move.L    D6, (A5)+
A62E   2AC6                      Move.L    D6, (A5)+
A630   2AC6                      Move.L    D6, (A5)+
A632   2AC6                      Move.L    D6, (A5)+
A634   2AC6                      Move.L    D6, (A5)+
A636   2AC6                      Move.L    D6, (A5)+
A638   2AC6                      Move.L    D6, (A5)+
A63A   2AC6                      Move.L    D6, (A5)+
A63C   2AC6                      Move.L    D6, (A5)+
A63E   2AC6                      Move.L    D6, (A5)+
A640   4E75                      Rts

                      E_320:
A642   2AC6                      Move.L    D6, (A5)+
A644   2AC6                      Move.L    D6, (A5)+
A646   2AC6                      Move.L    D6, (A5)+
A648   2AC6                      Move.L    D6, (A5)+
A64A   2AC6                      Move.L    D6, (A5)+
A64C   2AC6                      Move.L    D6, (A5)+
A64E   2AC6                      Move.L    D6, (A5)+
A650   2AC6                      Move.L    D6, (A5)+
A652   2AC6                      Move.L    D6, (A5)+
A654   2AC6                      Move.L    D6, (A5)+
A656   2AC6                      Move.L    D6, (A5)+
A658   2AC6                      Move.L    D6, (A5)+
A65A   2AC6                      Move.L    D6, (A5)+
A65C   2AC6                      Move.L    D6, (A5)+
A65E   2AC6                      Move.L    D6, (A5)+
A660   3AC6                      Move      D6, (A5)+
A662   4E75                      Rts

                      E_321:
A664   C245                      And       D5, D1

                      E_322:
A666   3006                      Move      D6, D0
A668   C041                      And       D1, D0
A66A   815D                      Or        D0, (A5)+
A66C   72FF                      MoveQ.L   #$-1, D1
A66E   5342                      SubQ      #$1, D2
A670   6EF4                      BGT.B     E_322
A672   67F0                      BEQ.B     E_321
A674   6000 FDBC                 Bra       L1647

                      E_323:
A678   43FA 000A                 Lea.L     E_324, A1
A67C   45FA 0020                 Lea.L     E_326, A2
A680   6000 FF4C                 Bra       L1655

                      E_324:
A684   3006                      Move      D6, D0
A686   C041                      And       D1, D0
A688   B15D                      Eor       D0, (A5)+
A68A   72FF                      MoveQ.L   #$-1, D1
A68C   5342                      SubQ      #$1, D2
A68E   6704                      BEQ.B     E_325
A690   4E92                      Jsr       (A2)
A692   74FF                      MoveQ.L   #$-1, D2

                      E_325:
A694   C245                      And       D5, D1
A696   CC41                      And       D1, D6
A698   BD5D                      Eor       D6, (A5)+
A69A   6000 FD96                 Bra       L1647

                      E_326:
A69E   0882 0000                 BClr.B    #$0, D2
A6A2   6702                      BEQ.B     L1661
A6A4   BD5D                      Eor       D6, (A5)+
A6A6   0442 0020      L1661:     Sub       #$20, D2
A6AA   6F04                      BLE.B     L1662
A6AC   6108                      Bsr.B     P290
A6AE   60F6                      Bra.B     L1661
A6B0   4442           L1662:     Neg       D2
A6B2   4EFB 2002                 Jmp       P290(D2.W)

                      P290:
A6B6   BD9D                      Eor.L     D6, (A5)+
A6B8   BD9D                      Eor.L     D6, (A5)+
A6BA   BD9D                      Eor.L     D6, (A5)+
A6BC   BD9D                      Eor.L     D6, (A5)+
A6BE   BD9D                      Eor.L     D6, (A5)+
A6C0   BD9D                      Eor.L     D6, (A5)+
A6C2   BD9D                      Eor.L     D6, (A5)+
A6C4   BD9D                      Eor.L     D6, (A5)+
A6C6   BD9D                      Eor.L     D6, (A5)+
A6C8   BD9D                      Eor.L     D6, (A5)+
A6CA   BD9D                      Eor.L     D6, (A5)+
A6CC   BD9D                      Eor.L     D6, (A5)+
A6CE   BD9D                      Eor.L     D6, (A5)+
A6D0   BD9D                      Eor.L     D6, (A5)+
A6D2   BD9D                      Eor.L     D6, (A5)+
A6D4   BD9D                      Eor.L     D6, (A5)+
A6D6   4E75                      Rts

                      E_327:
A6D8   BD9D                      Eor.L     D6, (A5)+
A6DA   BD9D                      Eor.L     D6, (A5)+
A6DC   BD9D                      Eor.L     D6, (A5)+
A6DE   BD9D                      Eor.L     D6, (A5)+
A6E0   BD9D                      Eor.L     D6, (A5)+
A6E2   BD9D                      Eor.L     D6, (A5)+
A6E4   BD9D                      Eor.L     D6, (A5)+
A6E6   BD9D                      Eor.L     D6, (A5)+
A6E8   BD9D                      Eor.L     D6, (A5)+
A6EA   BD9D                      Eor.L     D6, (A5)+
A6EC   BD9D                      Eor.L     D6, (A5)+
A6EE   BD9D                      Eor.L     D6, (A5)+
A6F0   BD9D                      Eor.L     D6, (A5)+
A6F2   BD9D                      Eor.L     D6, (A5)+
A6F4   BD9D                      Eor.L     D6, (A5)+
A6F6   BD5D                      Eor       D6, (A5)+
A6F8   4E75                      Rts

                      E_328:
A6FA   C245                      And       D5, D1

                      E_329:
A6FC   3006                      Move      D6, D0
A6FE   C041                      And       D1, D0
A700   4640                      Not       D0
A702   C15D                      And       D0, (A5)+
A704   72FF                      MoveQ.L   #$-1, D1
A706   5342                      SubQ      #$1, D2
A708   6EF2                      BGT.B     E_329
A70A   67EE                      BEQ.B     E_328
A70C   6000 FD24                 Bra       L1647
A710   2863 2920 4170            DC.B      '(c) Ap'
A716   706C 6520 436F            DC.B      'ple Co'
A71C   6D70 7574 6572            DC.B      'mputer'
A722   2049 6E63 2E2C            DC.B      ' Inc.,'
A728   2031 3938 332D            DC.B      ' 1983-'
A72E   3139 3835                 DC.B      '1985'

                      P_mRgnBlt:
A732   4E56 FF34                 Link      A6, #$-CC
A736   48E7 FF3C                 MoveM.L   D0-D7/A2-A5, -(A7)
A73A   2D4F FF6C                 Move.L    A7, $-94(A6)
A73E   2D4D FF48                 Move.L    A5, $-B8(A6)
A742   3F2E 0018                 Move      $18(A6), -(A7)
A746   2F2E 0014                 Move.L    $14(A6), -(A7)
A74A   4EBA DE14                 Jsr       P_mColorMap
A74E   2D5F 0014                 Move.L    (A7)+, $14(A6)
A752   3D5F 0018                 Move      (A7)+, $18(A6)
A756   226E 0010                 Move.L    $10(A6), A1
A75A   2251                      Move.L    (A1), A1
A75C   246E 000C                 Move.L    $C(A6), A2
A760   2452                      Move.L    (A2), A2
A762   266E 0008                 Move.L    $8(A6), A3
A766   2653                      Move.L    (A3), A3
A768   2F2E 001A                 Move.L    $1A(A6), -(A7)
A76C   286E 0022                 Move.L    $22(A6), A4
A770   486C 0006                 Pea.L     $6(A4)
A774   4869 0002                 Pea.L     $2(A1)
A778   486A 0002                 Pea.L     $2(A2)
A77C   486B 0002                 Pea.L     $2(A3)
A780   3F3C 0005                 Move      #$5, -(A7)
A784   486E FFB8                 Pea.L     $-48(A6)
A788   4EBA F986                 Jsr       P_mRSect
A78C   6700 02E6                 BEQ       L1681
A790   486E FFB8                 Pea.L     $-48(A6)
A794   2F2C 0006                 Move.L    $6(A4), -(A7)
A798   4EBA DB64                 Jsr       P_tShieldCursor
A79C   0C51 000A                 Cmp       #$A, (A1)
A7A0   6660                      BNE.B     L1664
A7A2   0C53 000A                 Cmp       #$A, (A3)
A7A6   665A                      BNE.B     L1664
A7A8   0C52 000A                 Cmp       #$A, (A2)
A7AC   6712                      BEQ.B     L1663
A7AE   2F2E 000C                 Move.L    $C(A6), -(A7)
A7B2   486E FFB8                 Pea.L     $-48(A6)
A7B6   4EBA 1A02                 Jsr       P_mTrimRect
A7BA   6D00 02B0                 BLT       L1680
A7BE   6E42                      BGT.B     L1664
A7C0   246E 001E      L1663:     Move.L    $1E(A6), A2
A7C4   41EE FF38                 Lea.L     $-C8(A6), A0
A7C8   266E 001A                 Move.L    $1A(A6), A3
A7CC   302E FFB8                 Move      $-48(A6), D0
A7D0   9053                      Sub       (A3), D0
A7D2   D052                      Add       (A2), D0
A7D4   3080                      Move      D0, (A0)
A7D6   302E FFBA                 Move      $-46(A6), D0
A7DA   906B 0002                 Sub       $2(A3), D0
A7DE   D06A 0002                 Add       $2(A2), D0
A7E2   3140 0002                 Move      D0, $2(A0)
A7E6   2F2E 0026                 Move.L    $26(A6), -(A7)
A7EA   2F0C                      Move.L    A4, -(A7)
A7EC   2F08                      Move.L    A0, -(A7)
A7EE   486E FFB8                 Pea.L     $-48(A6)
A7F2   3F2E 0018                 Move      $18(A6), -(A7)
A7F6   2F2E 0014                 Move.L    $14(A6), -(A7)
A7FA   4EBA FA88                 Jsr       P_mBitBlt
A7FE   6000 026C                 Bra       L1680
A802   322E FFBA      L1664:     Move      $-46(A6), D1
A806   926C 0008                 Sub       $8(A4), D1
A80A   0241 FFF0                 And       #$-10, D1
A80E   D26C 0008                 Add       $8(A4), D1
A812   3D41 FF64                 Move      D1, $-9C(A6)
A816   302E FFBE                 Move      $-42(A6), D0
A81A   9041                      Sub       D1, D0
A81C   EA48                      LsR       #$5, D0
A81E   3D40 FF62                 Move      D0, $-9E(A6)
A822   42A7           L1665:     Clr.L     -(A7)
A824   51C8 FFFC                 DBF       D0, L1665
A828   2D4F FF66                 Move.L    A7, $-9A(A6)
A82C   303C 7FFF                 Move      #$7FFF, D0
A830   3D40 FFB0                 Move      D0, $-50(A6)
A834   3D40 FF98                 Move      D0, $-68(A6)
A838   3D40 FF80                 Move      D0, $-80(A6)
A83C   4440                      Neg       D0
A83E   3D40 FFAE                 Move      D0, $-52(A6)
A842   3D40 FF96                 Move      D0, $-6A(A6)
A846   3D40 FF7E                 Move      D0, $-82(A6)
A84A   4245                      Clr       D5
A84C   206E 0010                 Move.L    $10(A6), A0
A850   2050                      Move.L    (A0), A0
A852   0C50 000A                 Cmp       #$A, (A0)
A856   6708                      BEQ.B     L1666
A858   5445                      AddQ      #$2, D5
A85A   43EE FFA0                 Lea.L     $-60(A6), A1
A85E   612A                      Bsr.B     P292
A860   206E 000C      L1666:     Move.L    $C(A6), A0
A864   2050                      Move.L    (A0), A0
A866   0C50 000A                 Cmp       #$A, (A0)
A86A   6708                      BEQ.B     L1667
A86C   5845                      AddQ      #$4, D5
A86E   43EE FF88                 Lea.L     $-78(A6), A1
A872   6116                      Bsr.B     P292
A874   206E 0008      L1667:     Move.L    $8(A6), A0
A878   2050                      Move.L    (A0), A0
A87A   0C50 000A                 Cmp       #$A, (A0)
A87E   671A                      BEQ.B     L1668
A880   5045                      AddQ      #$8, D5
A882   43EE FF70                 Lea.L     $-90(A6), A1
A886   487A 0012                 Pea.L     L1668

                      P292:
A88A   302E FFBA                 Move      $-46(A6), D0
A88E   322E FFBE                 Move      $-42(A6), D1
A892   342E FF64                 Move      $-9C(A6), D2
A896   4EFA 1A2E                 Jmp       P_mInitRgn
A89A   2E2E FF66      L1668:     Move.L    $-9A(A6), D7
A89E   3D45 FF6A                 Move      D5, $-96(A6)
A8A2   0C45 0002                 Cmp       #$2, D5
A8A6   6606                      BNE.B     L1669
A8A8   2D47 FFA8                 Move.L    D7, $-58(A6)
A8AC   6016                      Bra.B     L1671
A8AE   0C45 0004      L1669:     Cmp       #$4, D5
A8B2   6606                      BNE.B     L1670
A8B4   2D47 FF90                 Move.L    D7, $-70(A6)
A8B8   600A                      Bra.B     L1671
A8BA   0C45 0008      L1670:     Cmp       #$8, D5
A8BE   6604                      BNE.B     L1671
A8C0   2D47 FF78                 Move.L    D7, $-88(A6)
A8C4   3D6E FFB8 FF46 L1671:     Move      $-48(A6), $-BA(A6)
A8CA   3D6E FFBC FF44            Move      $-44(A6), $-BC(A6)
A8D0   2D7C 0004 0001            Move.L    #$40001, $-C0(A6)
       FF40
A8D8   302C 0004                 Move      $4(A4), D0
A8DC   48C0                      Ext.L     D0
A8DE   2D40 FF52                 Move.L    D0, $-AE(A6)
A8E2   2D47 FF34                 Move.L    D7, $-CC(A6)
A8E6   4287                      Clr.L     D7
A8E8   342E 0018                 Move      $18(A6), D2
A8EC   6B00 017E                 BMI       L1680
A8F0   0882 0002                 BClr.B    #$2, D2
A8F4   6702                      BEQ.B     L1672
A8F6   4687                      Not.L     D7
A8F8   0242 000F      L1672:     And       #$F, D2
A8FC   7003                      MoveQ.L   #$3, D0
A8FE   C042                      And       D2, D0
A900   D440                      Add       D0, D2
A902   41FA 0270                 Lea.L     DT35, A0
A906   D0F0 2000                 AddA      $0(A0,D2.W), A0
A90A   2D48 FF4C                 Move.L    A0, $-B4(A6)
A90E   0802 0003                 BTst.B    #$3, D2
A912   6720                      BEQ.B     L1673
A914   342C 0008                 Move      $8(A4), D2
A918   206E 0014                 Move.L    $14(A6), A0
A91C   43EE FFC0                 Lea.L     $-40(A6), A1
A920   4EBA DB76                 Jsr       P_mPatExpand
A924   7E0F                      MoveQ.L   #$F, D7
A926   CE6E FFB8                 And       $-48(A6), D7
A92A   E54F                      LsL       #$2, D7
A92C   2C36 70C0                 Move.L    $-40(A6,D7.W), D6
A930   6000 00B0                 Bra       L1676
A934   226E 001A      L1673:     Move.L    $1A(A6), A1
A938   246E 001E                 Move.L    $1E(A6), A2
A93C   266E 0026                 Move.L    $26(A6), A3
A940   302B 0004                 Move      $4(A3), D0
A944   48C0                      Ext.L     D0
A946   2D40 FF56                 Move.L    D0, $-AA(A6)
A94A   2013                      Move.L    (A3), D0
A94C   B094                      Cmp.L     (A4), D0
A94E   664C                      BNE.B     L1675
A950   3011                      Move      (A1), D0
A952   906C 0006                 Sub       $6(A4), D0
A956   3212                      Move      (A2), D1
A958   926B 0006                 Sub       $6(A3), D1
A95C   9041                      Sub       D1, D0
A95E   6D3C                      BLT.B     L1675
A960   6E1A                      BGT.B     L1674
A962   3029 0002                 Move      $2(A1), D0
A966   906C 0008                 Sub       $8(A4), D0
A96A   322A 0002                 Move      $2(A2), D1
A96E   926B 0008                 Sub       $8(A3), D1
A972   9041                      Sub       D1, D0
A974   6F26                      BLE.B     L1675
A976   446E FF40                 Neg       $-C0(A6)
A97A   6020                      Bra.B     L1675
A97C   446E FF42      L1674:     Neg       $-BE(A6)
A980   44AE FF56                 Neg.L     $-AA(A6)
A984   44AE FF52                 Neg.L     $-AE(A6)
A988   3D6E FFBC FF46            Move      $-44(A6), $-BA(A6)
A98E   536E FF46                 SubQ      #$1, $-BA(A6)
A992   3D6E FFB8 FF44            Move      $-48(A6), $-BC(A6)
A998   536E FF44                 SubQ      #$1, $-BC(A6)
A99C   3C29 0002      L1675:     Move      $2(A1), D6
A9A0   9C6C 0008                 Sub       $8(A4), D6
A9A4   322A 0002                 Move      $2(A2), D1
A9A8   926B 0008                 Sub       $8(A3), D1
A9AC   9C41                      Sub       D1, D6
A9AE   0246 000F                 And       #$F, D6
A9B2   302E FF46                 Move      $-BA(A6), D0
A9B6   9051                      Sub       (A1), D0
A9B8   D052                      Add       (A2), D0
A9BA   906B 0006                 Sub       $6(A3), D0
A9BE   C0EB 0004                 MulU      $4(A3), D0
A9C2   2053                      Move.L    (A3), A0
A9C4   D1C0                      AddA.L    D0, A0
A9C6   302E FFBA                 Move      $-46(A6), D0
A9CA   9069 0002                 Sub       $2(A1), D0
A9CE   D06A 0002                 Add       $2(A2), D0
A9D2   906B 0008                 Sub       $8(A3), D0
A9D6   D046                      Add       D6, D0
A9D8   E848                      LsR       #$4, D0
A9DA   D040                      Add       D0, D0
A9DC   D0C0                      AddA      D0, A0
A9DE   2D48 FF5E                 Move.L    A0, $-A2(A6)
A9E2   302E FF46      L1676:     Move      $-BA(A6), D0
A9E6   906C 0006                 Sub       $6(A4), D0
A9EA   C0EC 0004                 MulU      $4(A4), D0
A9EE   2054                      Move.L    (A4), A0
A9F0   D1C0                      AddA.L    D0, A0
A9F2   302E FFBA                 Move      $-46(A6), D0
A9F6   906C 0008                 Sub       $8(A4), D0
A9FA   E848                      LsR       #$4, D0
A9FC   D040                      Add       D0, D0
A9FE   D0C0                      AddA      D0, A0
AA00   2D48 FF5A                 Move.L    A0, $-A6(A6)
AA04   4A6E FF40                 Tst       $-C0(A6)
AA08   6A14                      BPL.B     L1677
AA0A   302E FF62                 Move      $-9E(A6), D0
AA0E   E540                      AsL       #$2, D0
AA10   48C0                      Ext.L     D0
AA12   D1AE FF5A                 Add.L     D0, $-A6(A6)
AA16   D1AE FF5E                 Add.L     D0, $-A2(A6)
AA1A   D1AE FF34                 Add.L     D0, $-CC(A6)
AA1E   3D6E FF46 FF50 L1677:     Move      $-BA(A6), $-B0(A6)
AA24   4EBA 0060      L1678:     Jsr       P293
AA28   266E FF5E                 Move.L    $-A2(A6), A3
AA2C   2A6E FF5A                 Move.L    $-A6(A6), A5
AA30   286E FF34                 Move.L    $-CC(A6), A4
AA34   342E FF62                 Move      $-9E(A6), D2
AA38   246E FF4C                 Move.L    $-B4(A6), A2
AA3C   4ED2                      Jmp       (A2)

                      E_330:
AA3E   202E FF56                 Move.L    $-AA(A6), D0
AA42   D1AE FF5E                 Add.L     D0, $-A2(A6)
AA46   600A                      Bra.B     L1679

                      E_331:
AA48   5847                      AddQ      #$4, D7
AA4A   0247 003F                 And       #$3F, D7
AA4E   2C36 70C0                 Move.L    $-40(A6,D7.W), D6
AA52   202E FF52      L1679:     Move.L    $-AE(A6), D0
AA56   D1AE FF5A                 Add.L     D0, $-A6(A6)
AA5A   302E FF50                 Move      $-B0(A6), D0
AA5E   D06E FF42                 Add       $-BE(A6), D0
AA62   3D40 FF50                 Move      D0, $-B0(A6)
AA66   B06E FF44                 Cmp       $-BC(A6), D0
AA6A   66B8                      BNE.B     L1678
AA6C   2A6E FF48      L1680:     Move.L    $-B8(A6), A5
AA70   4EBA D886                 Jsr       P_tShowCursor
AA74   2E6E FF6C      L1681:     Move.L    $-94(A6), A7
AA78   4CDF 3CFF                 MoveM.L   (A7)+, D0-D7/A2-A5
AA7C   4E5E                      Unlk      A6
AA7E   205F                      Move.L    (A7)+, A0
AA80   DEFC 0022                 AddA      #$22, A7
AA84   4ED0                      Jmp       (A0)

                      P293:
AA86   302E FF50                 Move      $-B0(A6), D0
AA8A   322E FF6A                 Move      $-96(A6), D1
AA8E   323B 1006                 Move      DT34(D1.W), D1
AA92   4EFB 1002                 Jmp       DT34(D1.W)

                      DT34:
AA96   009A 0010 0016            DC.B      '      '
AA9C   002A 001C 004A            DC.B      ' *   J'
AAA2   006A 009C                 DC.B      ' j  '

                      E_332:
AAA6   43EE FFA0                 Lea.L     $-60(A6), A1
AAAA   600A                      Bra.B     L1682

                      E_333:
AAAC   43EE FF88                 Lea.L     $-78(A6), A1
AAB0   6004                      Bra.B     L1682

                      E_334:
AAB2   43EE FF70                 Lea.L     $-90(A6), A1
AAB6   236E FF66 0008 L1682:     Move.L    $-9A(A6), $8(A1)
AABC   4EFA 1840                 Jmp       P_mSeekRgn

                      E_335:
AAC0   43EE FFA0                 Lea.L     $-60(A6), A1
AAC4   4EBA 1838                 Jsr       P_mSeekRgn
AAC8   3F01                      Move      D1, -(A7)
AACA   43EE FF88                 Lea.L     $-78(A6), A1
AACE   4EBA 182E                 Jsr       P_mSeekRgn
AAD2   825F                      Or        (A7)+, D1
AAD4   675A                      BEQ.B     E_338
AAD6   206E FFA8                 Move.L    $-58(A6), A0
AADA   226E FF90                 Move.L    $-70(A6), A1
AADE   603E                      Bra.B     L1683

                      E_336:
AAE0   43EE FFA0                 Lea.L     $-60(A6), A1
AAE4   4EBA 1818                 Jsr       P_mSeekRgn
AAE8   3F01                      Move      D1, -(A7)
AAEA   43EE FF70                 Lea.L     $-90(A6), A1
AAEE   4EBA 180E                 Jsr       P_mSeekRgn
AAF2   825F                      Or        (A7)+, D1
AAF4   673A                      BEQ.B     E_338
AAF6   206E FFA8                 Move.L    $-58(A6), A0
AAFA   226E FF78                 Move.L    $-88(A6), A1
AAFE   601E                      Bra.B     L1683

                      E_337:
AB00   43EE FF88                 Lea.L     $-78(A6), A1
AB04   4EBA 17F8                 Jsr       P_mSeekRgn
AB08   3F01                      Move      D1, -(A7)
AB0A   43EE FF70                 Lea.L     $-90(A6), A1
AB0E   4EBA 17EE                 Jsr       P_mSeekRgn
AB12   825F                      Or        (A7)+, D1
AB14   671A                      BEQ.B     E_338
AB16   206E FF90                 Move.L    $-70(A6), A0
AB1A   226E FF78                 Move.L    $-88(A6), A1
AB1E   246E FF66      L1683:     Move.L    $-9A(A6), A2
AB22   322E FF62                 Move      $-9E(A6), D1
AB26   2018           L1684:     Move.L    (A0)+, D0
AB28   C099                      And.L     (A1)+, D0
AB2A   24C0                      Move.L    D0, (A2)+
AB2C   51C9 FFF8                 DBF       D1, L1684

                      E_338:
AB30   4E75                      Rts

                      E_339:
AB32   43EE FFA0                 Lea.L     $-60(A6), A1
AB36   4EBA 17C6                 Jsr       P_mSeekRgn
AB3A   3F01                      Move      D1, -(A7)
AB3C   43EE FF88                 Lea.L     $-78(A6), A1
AB40   4EBA 17BC                 Jsr       P_mSeekRgn
AB44   8357                      Or        D1, (A7)
AB46   43EE FF70                 Lea.L     $-90(A6), A1
AB4A   4EBA 17B2                 Jsr       P_mSeekRgn
AB4E   825F                      Or        (A7)+, D1
AB50   6720                      BEQ.B     L1686
AB52   206E FFA8                 Move.L    $-58(A6), A0
AB56   226E FF90                 Move.L    $-70(A6), A1
AB5A   246E FF78                 Move.L    $-88(A6), A2
AB5E   266E FF66                 Move.L    $-9A(A6), A3
AB62   322E FF62                 Move      $-9E(A6), D1
AB66   2018           L1685:     Move.L    (A0)+, D0
AB68   C099                      And.L     (A1)+, D0
AB6A   C09A                      And.L     (A2)+, D0
AB6C   26C0                      Move.L    D0, (A3)+
AB6E   51C9 FFF6                 DBF       D1, L1685
AB72   4E75           L1686:     Rts

                      DT35:
AB74   0010 0040 0068            DC.B      '   @ h'
AB7A   0090 00BA 00D0            DC.B      '      '
AB80   00DE 00EC                 DC.B      '    '
AB84   202B FFFE      E_1108:    Move.L    $-2(A3), D0
AB88   ECA8                      LsR.L     D6, D0
AB8A   4840                      Swap      D0
AB8C   2213                      Move.L    (A3), D1
AB8E   D6EE FF40                 AddA      $-C0(A6), A3
AB92   ECA9                      LsR.L     D6, D1
AB94   3001                      Move      D1, D0
AB96   BF80                      Eor.L     D7, D0
AB98   2214                      Move.L    (A4), D1
AB9A   D8EE FF40                 AddA      $-C0(A6), A4
AB9E   C081                      And.L     D1, D0
ABA0   4681                      Not.L     D1
ABA2   C295                      And.L     (A5), D1
ABA4   8081                      Or.L      D1, D0
ABA6   2A80                      Move.L    D0, (A5)
ABA8   DAEE FF40                 AddA      $-C0(A6), A5
ABAC   51CA FFD6                 DBF       D2, E_1108
ABB0   6000 FE8C                 Bra       E_330
ABB4   202B FFFE      E_1109:    Move.L    $-2(A3), D0
ABB8   ECA8                      LsR.L     D6, D0
ABBA   4840                      Swap      D0
ABBC   2213                      Move.L    (A3), D1
ABBE   D6EE FF40                 AddA      $-C0(A6), A3
ABC2   ECA9                      LsR.L     D6, D1
ABC4   3001                      Move      D1, D0
ABC6   BF80                      Eor.L     D7, D0
ABC8   C094                      And.L     (A4), D0
ABCA   D8EE FF40                 AddA      $-C0(A6), A4
ABCE   8195                      Or.L      D0, (A5)
ABD0   DAEE FF40                 AddA      $-C0(A6), A5
ABD4   51CA FFDE                 DBF       D2, E_1109
ABD8   6000 FE64                 Bra       E_330
ABDC   202B FFFE      E_1110:    Move.L    $-2(A3), D0
ABE0   ECA8                      LsR.L     D6, D0
ABE2   4840                      Swap      D0
ABE4   2213                      Move.L    (A3), D1
ABE6   D6EE FF40                 AddA      $-C0(A6), A3
ABEA   ECA9                      LsR.L     D6, D1
ABEC   3001                      Move      D1, D0
ABEE   BF80                      Eor.L     D7, D0
ABF0   C094                      And.L     (A4), D0
ABF2   D8EE FF40                 AddA      $-C0(A6), A4
ABF6   B195                      Eor.L     D0, (A5)
ABF8   DAEE FF40                 AddA      $-C0(A6), A5
ABFC   51CA FFDE                 DBF       D2, E_1110
AC00   6000 FE3C                 Bra       E_330
AC04   202B FFFE      E_1111:    Move.L    $-2(A3), D0
AC08   ECA8                      LsR.L     D6, D0
AC0A   4840                      Swap      D0
AC0C   2213                      Move.L    (A3), D1
AC0E   D6EE FF40                 AddA      $-C0(A6), A3
AC12   ECA9                      LsR.L     D6, D1
AC14   3001                      Move      D1, D0
AC16   BF80                      Eor.L     D7, D0
AC18   C094                      And.L     (A4), D0
AC1A   D8EE FF40                 AddA      $-C0(A6), A4
AC1E   4680                      Not.L     D0
AC20   C195                      And.L     D0, (A5)
AC22   DAEE FF40                 AddA      $-C0(A6), A5
AC26   51CA FFDC                 DBF       D2, E_1111
AC2A   6000 FE12                 Bra       E_330
AC2E   2006           E_1112:    Move.L    D6, D0
AC30   221C                      Move.L    (A4)+, D1
AC32   C081                      And.L     D1, D0
AC34   4681                      Not.L     D1
AC36   C295                      And.L     (A5), D1
AC38   8081                      Or.L      D1, D0
AC3A   2AC0                      Move.L    D0, (A5)+
AC3C   51CA FFF0                 DBF       D2, E_1112
AC40   6000 FE06                 Bra       E_331
AC44   2006           E_1113:    Move.L    D6, D0
AC46   C09C                      And.L     (A4)+, D0
AC48   819D                      Or.L      D0, (A5)+
AC4A   51CA FFF8                 DBF       D2, E_1113
AC4E   6000 FDF8                 Bra       E_331
AC52   2006           E_1114:    Move.L    D6, D0
AC54   C09C                      And.L     (A4)+, D0
AC56   B19D                      Eor.L     D0, (A5)+
AC58   51CA FFF8                 DBF       D2, E_1114
AC5C   6000 FDEA                 Bra       E_331
AC60   2006           E_1115:    Move.L    D6, D0
AC62   C09C                      And.L     (A4)+, D0
AC64   4680                      Not.L     D0
AC66   C19D                      And.L     D0, (A5)+
AC68   51CA FFF6                 DBF       D2, E_1115
AC6C   6000 FDDA                 Bra       E_331

                      P_tStdRRect:
AC70   4E56 0000                 Link      A6, #$0
AC74   48E7 0118                 MoveM.L   D7/A3-A4, -(A7)
AC78   1E2E 0010                 Move.B    $10(A6), D7
AC7C   4EBA 37CA                 Jsr       P_mCheckPic
AC80   6F34                      BLE.B     L1688
AC82   1F07                      Move.B    D7, -(A7)
AC84   4EBA 36C4                 Jsr       P_mPutPicVerb
AC88   206B 005C                 Move.L    $5C(A3), A0
AC8C   2050                      Move.L    (A0), A0
AC8E   202E 0008                 Move.L    $8(A6), D0
AC92   B0A8 0052                 Cmp.L     $52(A0), D0
AC96   6710                      BEQ.B     L1687
AC98   2140 0052                 Move.L    D0, $52(A0)
AC9C   2F00                      Move.L    D0, -(A7)
AC9E   700B                      MoveQ.L   #$B, D0
ACA0   4EBA 3602                 Jsr       P_mDPutPicByte
ACA4   4EBA 3628                 Jsr       P_mPutPicLong
ACA8   7040           L1687:     MoveQ.L   #$40, D0
ACAA   D047                      Add       D7, D0
ACAC   1F00                      Move.B    D0, -(A7)
ACAE   2F2E 000C                 Move.L    $C(A6), -(A7)
ACB2   4EBA 3636                 Jsr       P_mPutPicRect
ACB6   2F2E 000C      L1688:     Move.L    $C(A6), -(A7)
ACBA   4227                      Clr.B     -(A7)
ACBC   4A07                      Tst.B     D7
ACBE   6622                      BNE.B     L1690
ACC0   4AAB 0060                 Tst.L     $60(A3)
ACC4   6718                      BEQ.B     L1689
ACC6   2F2E 000C                 Move.L    $C(A6), -(A7)
ACCA   2F2E 0008                 Move.L    $8(A6), -(A7)
ACCE   2F2C FF6C                 Move.L    $-94(A4), -(A7)
ACD2   486C FF6A                 Pea.L     $-96(A4)
ACD6   486C FF68                 Pea.L     $-98(A4)
ACDA   4EBA 013E                 Jsr       P_mPutOval
ACDE   1EBC 0001      L1689:     Move.B    #$1, (A7)
ACE2   2F2E 0008      L1690:     Move.L    $8(A6), -(A7)
ACE6   4EBA F1F8                 Jsr       P_mPushVerb
ACEA   4267                      Clr       -(A7)
ACEC   3F3C 0168                 Move      #$168, -(A7)
ACF0   4EBA 032E                 Jsr       P_mDrawArc
ACF4   4CDF 1880                 MoveM.L   (A7)+, D7/A3-A4
ACF8   4E5E                      Unlk      A6
ACFA   205F                      Move.L    (A7)+, A0
ACFC   DEFC 000A                 AddA      #$A, A7
AD00   4ED0                      Jmp       (A0)

                      P_tFrameRoundRect:
AD02   7000                      MoveQ.L   #$0, D0
AD04   6022                      Bra.B     P_mCallRRect

                      P_tPaintRoundRect:
AD06   7001                      MoveQ.L   #$1, D0
AD08   601E                      Bra.B     P_mCallRRect

                      P_tEraseRoundRect:
AD0A   7002                      MoveQ.L   #$2, D0
AD0C   601A                      Bra.B     P_mCallRRect

                      P_tInvertRoundRect:
AD0E   7003                      MoveQ.L   #$3, D0
AD10   6016                      Bra.B     P_mCallRRect

                      P_tFillRoundRect:
AD12   205F                      Move.L    (A7)+, A0
AD14   225F                      Move.L    (A7)+, A1
AD16   2F08                      Move.L    A0, -(A7)
AD18   2055                      Move.L    (A5), A0
AD1A   2050                      Move.L    (A0), A0
AD1C   41E8 0028                 Lea.L     $28(A0), A0
AD20   20D9                      Move.L    (A1)+, (A0)+
AD22   20D9                      Move.L    (A1)+, (A0)+
AD24   7004                      MoveQ.L   #$4, D0
AD26   4E71                      Nop
                      P_mCallRRect:
AD28   205F                      Move.L    (A7)+, A0
AD2A   221F                      Move.L    (A7)+, D1
AD2C   225F                      Move.L    (A7)+, A1
AD2E   1F00                      Move.B    D0, -(A7)
AD30   2F09                      Move.L    A1, -(A7)
AD32   2F01                      Move.L    D1, -(A7)
AD34   2F08                      Move.L    A0, -(A7)
AD36   2055                      Move.L    (A5), A0
AD38   2050                      Move.L    (A0), A0
AD3A   2028 0068                 Move.L    $68(A0), D0
AD3E   2078 0EBC                 Move.L    ($EBC), A0
AD42   6706                      BEQ.B     L1692
AD44   2040                      Move.L    D0, A0
AD46   2068 000C                 Move.L    $C(A0), A0
AD4A   4ED0           L1692:     Jmp       (A0)

                      P_tStdOval:
AD4C   4E56 FFFC                 Link      A6, #$-4
AD50   48E7 0118                 MoveM.L   D7/A3-A4, -(A7)
AD54   1E2E 000C                 Move.B    $C(A6), D7
AD58   4EBA 36EE                 Jsr       P_mCheckPic
AD5C   6F14                      BLE.B     L1693
AD5E   1F07                      Move.B    D7, -(A7)
AD60   4EBA 35E8                 Jsr       P_mPutPicVerb
AD64   7050                      MoveQ.L   #$50, D0
AD66   D047                      Add       D7, D0
AD68   1F00                      Move.B    D0, -(A7)
AD6A   2F2E 0008                 Move.L    $8(A6), -(A7)
AD6E   4EBA 357A                 Jsr       P_mPutPicRect
AD72   206E 0008      L1693:     Move.L    $8(A6), A0
AD76   3028 0006                 Move      $6(A0), D0
AD7A   9068 0002                 Sub       $2(A0), D0
AD7E   3D40 FFFE                 Move      D0, $-2(A6)
AD82   3028 0004                 Move      $4(A0), D0
AD86   9050                      Sub       (A0), D0
AD88   3D40 FFFC                 Move      D0, $-4(A6)
AD8C   2F08                      Move.L    A0, -(A7)
AD8E   4A07                      Tst.B     D7
AD90   6622                      BNE.B     L1695
AD92   4AAB 0060                 Tst.L     $60(A3)
AD96   6716                      BEQ.B     L1694
AD98   2F08                      Move.L    A0, -(A7)
AD9A   2F2E FFFC                 Move.L    $-4(A6), -(A7)
AD9E   2F2C FF6C                 Move.L    $-94(A4), -(A7)
ADA2   486C FF6A                 Pea.L     $-96(A4)
ADA6   486C FF68                 Pea.L     $-98(A4)
ADAA   4EBA 006E                 Jsr       P_mPutOval
ADAE   1F3C 0001      L1694:     Move.B    #$1, -(A7)
ADB2   6002                      Bra.B     L1696
ADB4   4227           L1695:     Clr.B     -(A7)
ADB6   2F2E FFFC      L1696:     Move.L    $-4(A6), -(A7)
ADBA   4EBA F124                 Jsr       P_mPushVerb
ADBE   4267                      Clr       -(A7)
ADC0   3F3C 0168                 Move      #$168, -(A7)
ADC4   4EBA 025A                 Jsr       P_mDrawArc
ADC8   4CDF 1880                 MoveM.L   (A7)+, D7/A3-A4
ADCC   4E5E                      Unlk      A6
ADCE   205F                      Move.L    (A7)+, A0
ADD0   5C4F                      AddQ      #$6, A7
ADD2   4ED0                      Jmp       (A0)

                      P_tFrameOval:
ADD4   7000                      MoveQ.L   #$0, D0
ADD6   6022                      Bra.B     P_mCallOval

                      P_tPaintOval:
ADD8   7001                      MoveQ.L   #$1, D0
ADDA   601E                      Bra.B     P_mCallOval

                      P_tEraseOval:
ADDC   7002                      MoveQ.L   #$2, D0
ADDE   601A                      Bra.B     P_mCallOval

                      P_tInvertOval:
ADE0   7003                      MoveQ.L   #$3, D0
ADE2   6016                      Bra.B     P_mCallOval

                      P_tFillOval:
ADE4   205F                      Move.L    (A7)+, A0
ADE6   225F                      Move.L    (A7)+, A1
ADE8   2F08                      Move.L    A0, -(A7)
ADEA   2055                      Move.L    (A5), A0
ADEC   2050                      Move.L    (A0), A0
ADEE   41E8 0028                 Lea.L     $28(A0), A0
ADF2   20D9                      Move.L    (A1)+, (A0)+
ADF4   20D9                      Move.L    (A1)+, (A0)+
ADF6   7004                      MoveQ.L   #$4, D0
ADF8   4E71                      Nop
                      P_mCallOval:
ADFA   205F                      Move.L    (A7)+, A0
ADFC   225F                      Move.L    (A7)+, A1
ADFE   1F00                      Move.B    D0, -(A7)
AE00   2F09                      Move.L    A1, -(A7)
AE02   2F08                      Move.L    A0, -(A7)
AE04   2055                      Move.L    (A5), A0
AE06   2050                      Move.L    (A0), A0
AE08   2028 0068                 Move.L    $68(A0), D0
AE0C   2078 0ED8                 Move.L    ($ED8), A0
AE10   6706                      BEQ.B     L1698
AE12   2040                      Move.L    D0, A0
AE14   2068 0010                 Move.L    $10(A0), A0
AE18   4ED0           L1698:     Jmp       (A0)

                      P_mPutOval:
AE1A   4E56 FFCA                 Link      A6, #$-36
AE1E   48E7 FF7C                 MoveM.L   D0-D7/A1-A5, -(A7)
AE22   206E 0018                 Move.L    $18(A6), A0
AE26   43EE FFD2                 Lea.L     $-2E(A6), A1
AE2A   342E 0016                 Move      $16(A6), D2
AE2E   322E 0014                 Move      $14(A6), D1
AE32   4EBA 0878                 Jsr       P_mInitOval
AE36   3D6E FFF4 FFCC            Move      $-C(A6), $-34(A6)
AE3C   3D6E FFF8 FFCA            Move      $-8(A6), $-36(A6)
AE42   302E 0014                 Move      $14(A6), D0
AE46   E240                      AsR       #$1, D0
AE48   D06E FFD2                 Add       $-2E(A6), D0
AE4C   3D40 FFD0                 Move      D0, $-30(A6)
AE50   206E 0018                 Move.L    $18(A6), A0
AE54   D068 0004                 Add       $4(A0), D0
AE58   9050                      Sub       (A0), D0
AE5A   906E 0014                 Sub       $14(A6), D0
AE5E   3D40 FFCE                 Move      D0, $-32(A6)
AE62   266E 0010                 Move.L    $10(A6), A3
AE66   2653                      Move.L    (A3), A3
AE68   244B                      Move.L    A3, A2
AE6A   206E 000C                 Move.L    $C(A6), A0
AE6E   D6D0                      AddA      (A0), A3
AE70   224A                      Move.L    A2, A1
AE72   206E 0008                 Move.L    $8(A6), A0
AE76   D2D0                      AddA      (A0), A1
AE78   3C2E FFD2                 Move      $-2E(A6), D6
AE7C   3A2E FFCC                 Move      $-34(A6), D5
AE80   4EBA 008E                 Jsr       P295
AE84   3A2E FFCA                 Move      $-36(A6), D5
AE88   4EBA 0086                 Jsr       P295
AE8C   BC6E FFD0      L1699:     Cmp       $-30(A6), D6
AE90   6D06                      BLT.B     L1700
AE92   BC6E FFCE                 Cmp       $-32(A6), D6
AE96   6D4A                      BLT.B     L1702
AE98   48E7 0270      L1700:     MoveM.L   D6/A1-A3, -(A7)
AE9C   47EE FFD2                 Lea.L     $-2E(A6), A3
AEA0   3006                      Move      D6, D0
AEA2   4EBA 08AA                 Jsr       P_mBumpOval
AEA6   4CDF 0E40                 MoveM.L   (A7)+, D6/A1-A3
AEAA   3A2E FFF4                 Move      $-C(A6), D5
AEAE   BA6E FFCC                 Cmp       $-34(A6), D5
AEB2   6712                      BEQ.B     L1701
AEB4   4EBA 005A                 Jsr       P295
AEB8   3A2E FFCC                 Move      $-34(A6), D5
AEBC   4EBA 0052                 Jsr       P295
AEC0   3D6E FFF4 FFCC            Move      $-C(A6), $-34(A6)
AEC6   3A2E FFF8      L1701:     Move      $-8(A6), D5
AECA   BA6E FFCA                 Cmp       $-36(A6), D5
AECE   6712                      BEQ.B     L1702
AED0   4EBA 003E                 Jsr       P295
AED4   3A2E FFCA                 Move      $-36(A6), D5
AED8   4EBA 0036                 Jsr       P295
AEDC   3D6E FFF8 FFCA            Move      $-8(A6), $-36(A6)
AEE2   5246           L1702:     AddQ      #$1, D6
AEE4   BC6E FFD4                 Cmp       $-2C(A6), D6
AEE8   6DA2                      BLT.B     L1699
AEEA   3A2E FFCC                 Move      $-34(A6), D5
AEEE   4EBA 0020                 Jsr       P295
AEF2   3A2E FFCA                 Move      $-36(A6), D5
AEF6   4EBA 0018                 Jsr       P295
AEFA   97CA                      SubA.L    A2, A3
AEFC   206E 000C                 Move.L    $C(A6), A0
AF00   308B                      Move      A3, (A0)
AF02   4CDF 3EFF                 MoveM.L   (A7)+, D0-D7/A1-A5
AF06   4E5E                      Unlk      A6
AF08   205F                      Move.L    (A7)+, A0
AF0A   DEFC 0014                 AddA      #$14, A7
AF0E   4ED0                      Jmp       (A0)

                      P295:
AF10   B7C9                      CmpA.L    A1, A3
AF12   6D2A                      BLT.B     L1703
AF14   97CA                      SubA.L    A2, A3
AF16   93CA                      SubA.L    A2, A1
AF18   D2FC 0400                 AddA      #$400, A1
AF1C   48E7 FFF0                 MoveM.L   D0-D7/A0-A3, -(A7)
AF20   206E 0008                 Move.L    $8(A6), A0
AF24   3089                      Move      A1, (A0)
AF26   2F2E 0010                 Move.L    $10(A6), -(A7)
AF2A   3F09                      Move      A1, -(A7)
AF2C   4EBA D86A                 Jsr       P_mSetHSize
AF30   4CDF 0FFF                 MoveM.L   (A7)+, D0-D7/A0-A3
AF34   246E 0010                 Move.L    $10(A6), A2
AF38   2452                      Move.L    (A2), A2
AF3A   D7CA                      AddA.L    A2, A3
AF3C   D3CA                      AddA.L    A2, A1
AF3E   B7CA           L1703:     CmpA.L    A2, A3
AF40   6710                      BEQ.B     L1704
AF42   BA6B FFFE                 Cmp       $-2(A3), D5
AF46   660A                      BNE.B     L1704
AF48   BC6B FFFC                 Cmp       $-4(A3), D6
AF4C   6604                      BNE.B     L1704
AF4E   594B                      SubQ      #$4, A3
AF50   4E75                      Rts
AF52   36C6           L1704:     Move      D6, (A3)+
AF54   36C5                      Move      D5, (A3)+
AF56   4E75                      Rts

                      P_tStdArc:
AF58   4E56 FFFC                 Link      A6, #$-4
AF5C   48E7 0918                 MoveM.L   D4/D7/A3-A4, -(A7)
AF60   1E2E 0010                 Move.B    $10(A6), D7
AF64   4EBA 34E2                 Jsr       P_mCheckPic
AF68   6F24                      BLE.B     L1705
AF6A   1F07                      Move.B    D7, -(A7)
AF6C   4EBA 33DC                 Jsr       P_mPutPicVerb
AF70   7060                      MoveQ.L   #$60, D0
AF72   D047                      Add       D7, D0
AF74   1F00                      Move.B    D0, -(A7)
AF76   2F2E 000C                 Move.L    $C(A6), -(A7)
AF7A   4EBA 336E                 Jsr       P_mPutPicRect
AF7E   3F2E 000A                 Move      $A(A6), -(A7)
AF82   4EBA 3338                 Jsr       P_mPutPicWord
AF86   3F2E 0008                 Move      $8(A6), -(A7)
AF8A   4EBA 3330                 Jsr       P_mPutPicWord
AF8E   206E 000C      L1705:     Move.L    $C(A6), A0
AF92   3028 0006                 Move      $6(A0), D0
AF96   9068 0002                 Sub       $2(A0), D0
AF9A   3D40 FFFE                 Move      D0, $-2(A6)
AF9E   3028 0004                 Move      $4(A0), D0
AFA2   9050                      Sub       (A0), D0
AFA4   3D40 FFFC                 Move      D0, $-4(A6)
AFA8   2F08                      Move.L    A0, -(A7)
AFAA   4227                      Clr.B     -(A7)
AFAC   4A07                      Tst.B     D7
AFAE   6604                      BNE.B     L1706
AFB0   1EBC 0001                 Move.B    #$1, (A7)
AFB4   2F2E FFFC      L1706:     Move.L    $-4(A6), -(A7)
AFB8   4EBA EF26                 Jsr       P_mPushVerb
AFBC   3F2E 000A                 Move      $A(A6), -(A7)
AFC0   3F2E 0008                 Move      $8(A6), -(A7)
AFC4   4EBA 005A                 Jsr       P_mDrawArc
AFC8   4CDF 1890                 MoveM.L   (A7)+, D4/D7/A3-A4
AFCC   4E5E                      Unlk      A6
AFCE   205F                      Move.L    (A7)+, A0
AFD0   DEFC 000A                 AddA      #$A, A7
AFD4   4ED0                      Jmp       (A0)

                      P_tFrameArc:
AFD6   7000                      MoveQ.L   #$0, D0
AFD8   6022                      Bra.B     P_mCallArc

                      P_tPaintArc:
AFDA   7001                      MoveQ.L   #$1, D0
AFDC   601E                      Bra.B     P_mCallArc

                      P_tEraseArc:
AFDE   7002                      MoveQ.L   #$2, D0
AFE0   601A                      Bra.B     P_mCallArc

                      P_tInvertArc:
AFE2   7003                      MoveQ.L   #$3, D0
AFE4   6016                      Bra.B     P_mCallArc

                      P_tFillArc:
AFE6   205F                      Move.L    (A7)+, A0
AFE8   225F                      Move.L    (A7)+, A1
AFEA   2F08                      Move.L    A0, -(A7)
AFEC   2055                      Move.L    (A5), A0
AFEE   2050                      Move.L    (A0), A0
AFF0   41E8 0028                 Lea.L     $28(A0), A0
AFF4   20D9                      Move.L    (A1)+, (A0)+
AFF6   20D9                      Move.L    (A1)+, (A0)+
AFF8   7004                      MoveQ.L   #$4, D0
AFFA   4E71                      Nop
                      P_mCallArc:
AFFC   205F                      Move.L    (A7)+, A0
AFFE   221F                      Move.L    (A7)+, D1
B000   225F                      Move.L    (A7)+, A1
B002   1F00                      Move.B    D0, -(A7)
B004   2F09                      Move.L    A1, -(A7)
B006   2F01                      Move.L    D1, -(A7)
B008   2F08                      Move.L    A0, -(A7)
B00A   2055                      Move.L    (A5), A0
B00C   2050                      Move.L    (A0), A0
B00E   2028 0068                 Move.L    $68(A0), D0
B012   2078 0EF4                 Move.L    ($EF4), A0
B016   6706                      BEQ.B     L1708
B018   2040                      Move.L    D0, A0
B01A   2068 0014                 Move.L    $14(A0), A0
B01E   4ED0           L1708:     Jmp       (A0)

                      P_mDrawArc:
B020   4E56 FEBE                 Link      A6, #$-142
B024   48E7 FF7C                 MoveM.L   D0-D7/A1-A5, -(A7)
B028   2D4F FF6C                 Move.L    A7, $-94(A6)
B02C   2D4D FF56                 Move.L    A5, $-AA(A6)
B030   2055                      Move.L    (A5), A0
B032   2650                      Move.L    (A0), A3
B034   4A6B 0042                 Tst       $42(A3)
B038   6D00 0608                 BLT       L1753
B03C   2D4B FF52                 Move.L    A3, $-AE(A6)
B040   70F8                      MoveQ.L   #$-8, D0
B042   C06E 0010                 And       $10(A6), D0
B046   0C40 0008                 Cmp       #$8, D0
B04A   6600 05F6                 BNE       L1753
B04E   4A6B 0058                 Tst       $58(A3)
B052   6B14                      BMI.B     L1709
B054   3F2E 0010                 Move      $10(A6), -(A7)
B058   2F2E 000C                 Move.L    $C(A6), -(A7)
B05C   4EBA D502                 Jsr       P_mColorMap
B060   2D5F 000C                 Move.L    (A7)+, $C(A6)
B064   3D5F 0010                 Move      (A7)+, $10(A6)
B068   2A4B           L1709:     Move.L    A3, A5
B06A   246D 001C                 Move.L    $1C(A5), A2
B06E   2452                      Move.L    (A2), A2
B070   266D 0018                 Move.L    $18(A5), A3
B074   2653                      Move.L    (A3), A3
B076   2F2E 0018                 Move.L    $18(A6), -(A7)
B07A   486D 0008                 Pea.L     $8(A5)
B07E   486A 0002                 Pea.L     $2(A2)
B082   486B 0002                 Pea.L     $2(A3)
B086   3F3C 0004                 Move      #$4, -(A7)
B08A   486E FFB8                 Pea.L     $-48(A6)
B08E   4EBA F080                 Jsr       P_mRSect
B092   6700 05AE                 BEQ       L1753
B096   422E FF50                 Clr.B     $-B0(A6)
B09A   0C52 000A                 Cmp       #$A, (A2)
B09E   6650                      BNE.B     L1712
B0A0   0C53 000A                 Cmp       #$A, (A3)
B0A4   6712                      BEQ.B     L1710
B0A6   2F2D 0018                 Move.L    $18(A5), -(A7)
B0AA   486E FFB8                 Pea.L     $-48(A6)
B0AE   4EBA 110A                 Jsr       P_mTrimRect
B0B2   6D00 058E                 BLT       L1753
B0B6   6E38                      BGT.B     L1712
B0B8   206E 000C      L1710:     Move.L    $C(A6), A0
B0BC   2018                      Move.L    (A0)+, D0
B0BE   B098                      Cmp.L     (A0)+, D0
B0C0   662E                      BNE.B     L1712
B0C2   4680                      Not.L     D0
B0C4   670A                      BEQ.B     L1711
B0C6   4680                      Not.L     D0
B0C8   6626                      BNE.B     L1712
B0CA   0A6E 0004 0010            Eor       #$4, $10(A6)
B0D0   50EE FF50      L1711:     ST.B      $-B0(A6)
B0D4   7007                      MoveQ.L   #$7, D0
B0D6   C06E 0010                 And       $10(A6), D0
B0DA   103B 000C                 Move.B    DT36(D0.W), D0
B0DE   6B00 0562                 BMI       L1753
B0E2   3D40 0010                 Move      D0, $10(A6)
B0E6   6008                      Bra.B     L1712

                      DT36:
B0E8   0000 0102 02FF            DC.B      '      '
B0EE   FFFF                      DC.B      '  '
B0F0   422E FEE6      L1712:     Clr.B     $-11A(A6)
B0F4   302E 0008                 Move      $8(A6), D0
B0F8   6700 0548                 BEQ       L1753
B0FC   6A0A                      BPL.B     L1713
B0FE   D16E 000A                 Add       D0, $A(A6)
B102   4440                      Neg       D0
B104   3D40 0008                 Move      D0, $8(A6)
B108   0C40 0168      L1713:     Cmp       #$168, D0
B10C   5DEE FEE7                 SLT.B     $-119(A6)
B110   6C00 013E                 BGE       L1721
B114   302E 000A                 Move      $A(A6), D0
B118   48C0                      Ext.L     D0
B11A   81FC 0168                 DivS      #$168, D0
B11E   4840                      Swap      D0
B120   4A40                      Tst       D0
B122   6A04                      BPL.B     L1714
B124   0640 0168                 Add       #$168, D0
B128   3D40 000A      L1714:     Move      D0, $A(A6)
B12C   D06E 0008                 Add       $8(A6), D0
B130   0C40 0168                 Cmp       #$168, D0
B134   6D04                      BLT.B     L1715
B136   0440 0168                 Sub       #$168, D0
B13A   3D40 FEE4      L1715:     Move      D0, $-11C(A6)
B13E   206E 0018                 Move.L    $18(A6), A0
B142   3010                      Move      (A0), D0
B144   D068 0004                 Add       $4(A0), D0
B148   E240                      AsR       #$1, D0
B14A   3D40 FEE2                 Move      D0, $-11E(A6)
B14E   3028 0002                 Move      $2(A0), D0
B152   D068 0006                 Add       $6(A0), D0
B156   E240                      AsR       #$1, D0
B158   3D40 FEE0                 Move      D0, $-120(A6)
B15C   3028 0006                 Move      $6(A0), D0
B160   9068 0002                 Sub       $2(A0), D0
B164   3D40 FEDE                 Move      D0, $-122(A6)
B168   3028 0004                 Move      $4(A0), D0
B16C   9050                      Sub       (A0), D0
B16E   3D40 FEDC                 Move      D0, $-124(A6)
B172   42A7                      Clr.L     -(A7)
B174   3F2E FEDE                 Move      $-122(A6), -(A7)
B178   3F2E FEDC                 Move      $-124(A6), -(A7)
B17C   A869                      _FixRatio
B17E   2E1F                      Move.L    (A7)+, D7
B180   42A7                      Clr.L     -(A7)
B182   3F2E 000A                 Move      $A(A6), -(A7)
B186   4EBA 0646                 Jsr       P_tSlopeFromAngle
B18A   201F                      Move.L    (A7)+, D0
B18C   42A7                      Clr.L     -(A7)
B18E   2F00                      Move.L    D0, -(A7)
B190   2F07                      Move.L    D7, -(A7)
B192   A868                      _FixMul
B194   2D5F FED8                 Move.L    (A7)+, $-128(A6)
B198   42A7                      Clr.L     -(A7)
B19A   3F2E FEE4                 Move      $-11C(A6), -(A7)
B19E   4EBA 062E                 Jsr       P_tSlopeFromAngle
B1A2   201F                      Move.L    (A7)+, D0
B1A4   42A7                      Clr.L     -(A7)
B1A6   2F00                      Move.L    D0, -(A7)
B1A8   2F07                      Move.L    D7, -(A7)
B1AA   A868                      _FixMul
B1AC   2D5F FED4                 Move.L    (A7)+, $-12C(A6)
B1B0   3C2E FEE0                 Move      $-120(A6), D6
B1B4   4846                      Swap      D6
B1B6   4246                      Clr       D6
B1B8   3E2E FEDC                 Move      $-124(A6), D7
B1BC   E24F                      LsR       #$1, D7
B1BE   302E FEDA                 Move      $-126(A6), D0
B1C2   C0C7                      MulU      D7, D0
B1C4   2D40 FED0                 Move.L    D0, $-130(A6)
B1C8   302E FED8                 Move      $-128(A6), D0
B1CC   C1C7                      MulW      D7, D0
B1CE   D16E FED0                 Add       D0, $-130(A6)
B1D2   2006                      Move.L    D6, D0
B1D4   90AE FED0                 Sub.L     $-130(A6), D0
B1D8   2D40 FED0                 Move.L    D0, $-130(A6)
B1DC   302E FED6                 Move      $-12A(A6), D0
B1E0   C0C7                      MulU      D7, D0
B1E2   2D40 FECC                 Move.L    D0, $-134(A6)
B1E6   302E FED4                 Move      $-12C(A6), D0
B1EA   C1C7                      MulW      D7, D0
B1EC   D16E FECC                 Add       D0, $-134(A6)
B1F0   9CAE FECC                 Sub.L     $-134(A6), D6
B1F4   2D46 FECC                 Move.L    D6, $-134(A6)
B1F8   302E 000A                 Move      $A(A6), D0
B1FC   0C40 00B4                 Cmp       #$B4, D0
B200   6C06                      BGE.B     L1716
B202   0440 005A                 Sub       #$5A, D0
B206   6006                      Bra.B     L1717
B208   0440 010E      L1716:     Sub       #$10E, D0
B20C   4440                      Neg       D0
B20E   3D40 FECA      L1717:     Move      D0, $-136(A6)
B212   302E FEE4                 Move      $-11C(A6), D0
B216   0C40 00B4                 Cmp       #$B4, D0
B21A   6C06                      BGE.B     L1718
B21C   0440 005A                 Sub       #$5A, D0
B220   6006                      Bra.B     L1719
B222   0440 010E      L1718:     Sub       #$10E, D0
B226   4440                      Neg       D0
B228   3D40 FEC8      L1719:     Move      D0, $-138(A6)
B22C   302E 0008                 Move      $8(A6), D0
B230   0C40 00B4                 Cmp       #$B4, D0
B234   6E1A                      BGT.B     L1721
B236   6D0C                      BLT.B     L1720
B238   0C6E 005A 000A            Cmp       #$5A, $A(A6)
B23E   57EE FEE6                 SEQ.B     $-11A(A6)
B242   600C                      Bra.B     L1721
B244   302E FECA      L1720:     Move      $-136(A6), D0
B248   806E FEC8                 Or        $-138(A6), D0
B24C   5AEE FEE6                 SPL.B     $-11A(A6)
B250   206E 0018      L1721:     Move.L    $18(A6), A0
B254   43EE FEEC                 Lea.L     $-114(A6), A1
B258   322E 0012                 Move      $12(A6), D1
B25C   342E 0014                 Move      $14(A6), D2
B260   4EBA 044A                 Jsr       P_mInitOval
B264   302E 0012                 Move      $12(A6), D0
B268   E240                      AsR       #$1, D0
B26A   D06E FEEC                 Add       $-114(A6), D0
B26E   3D40 FEEA                 Move      D0, $-116(A6)
B272   206E 0018                 Move.L    $18(A6), A0
B276   D068 0004                 Add       $4(A0), D0
B27A   9050                      Sub       (A0), D0
B27C   906E 0012                 Sub       $12(A6), D0
B280   3D40 FEE8                 Move      D0, $-118(A6)
B284   3D7C 7FFF FF1A            Move      #$7FFF, $-E6(A6)
B28A   4A2E 0016                 Tst.B     $16(A6)
B28E   6742                      BEQ.B     L1722
B290   206E 0018                 Move.L    $18(A6), A0
B294   4C90 000F                 MoveM     (A0), D0-D3
B298   282D 0034                 Move.L    $34(A5), D4
B29C   D244                      Add       D4, D1
B29E   9644                      Sub       D4, D3
B2A0   B243                      Cmp       D3, D1
B2A2   6C2E                      BGE.B     L1722
B2A4   4844                      Swap      D4
B2A6   D044                      Add       D4, D0
B2A8   9444                      Sub       D4, D2
B2AA   B042                      Cmp       D2, D0
B2AC   6C24                      BGE.B     L1722
B2AE   48AE 000F FF48            MoveM     D0-D3, $-B8(A6)
B2B4   41EE FF48                 Lea.L     $-B8(A6), A0
B2B8   43EE FF1A                 Lea.L     $-E6(A6), A1
B2BC   322E 0012                 Move      $12(A6), D1
B2C0   9244                      Sub       D4, D1
B2C2   9244                      Sub       D4, D1
B2C4   342E 0014                 Move      $14(A6), D2
B2C8   4844                      Swap      D4
B2CA   9444                      Sub       D4, D2
B2CC   9444                      Sub       D4, D2
B2CE   4EBA 03DC                 Jsr       P_mInitOval
B2D2   486E FFB8      L1722:     Pea.L     $-48(A6)
B2D6   2F2D 0008                 Move.L    $8(A5), -(A7)
B2DA   2A6E FF56                 Move.L    $-AA(A6), A5
B2DE   4EBA D01E                 Jsr       P_tShieldCursor
B2E2   2A6E FF52                 Move.L    $-AE(A6), A5
B2E6   342E FFBA                 Move      $-46(A6), D2
B2EA   946D 000A                 Sub       $A(A5), D2
B2EE   0242 FFF0                 And       #$-10, D2
B2F2   D46D 000A                 Add       $A(A5), D2
B2F6   3D42 FF64                 Move      D2, $-9C(A6)
B2FA   4A2E FF50                 Tst.B     $-B0(A6)
B2FE   6600 0082                 BNE       L1726
B302   302E FFBE                 Move      $-42(A6), D0
B306   9042                      Sub       D2, D0
B308   EA48                      LsR       #$5, D0
B30A   3D40 FF62                 Move      D0, $-9E(A6)
B30E   42A7           L1723:     Clr.L     -(A7)
B310   51C8 FFFC                 DBF       D0, L1723
B314   2D4F FF66                 Move.L    A7, $-9A(A6)
B318   4245                      Clr       D5
B31A   3D7C 8001 FFAE            Move      #$-7FFF, $-52(A6)
B320   3D7C 7FFF FFB0            Move      #$7FFF, $-50(A6)
B326   0C52 000A                 Cmp       #$A, (A2)
B32A   670A                      BEQ.B     L1724
B32C   5445                      AddQ      #$2, D5
B32E   204A                      Move.L    A2, A0
B330   43EE FFA0                 Lea.L     $-60(A6), A1
B334   611E                      Bsr.B     P297
B336   3D7C 8001 FF96 L1724:     Move      #$-7FFF, $-6A(A6)
B33C   3D7C 7FFF FF98            Move      #$7FFF, $-68(A6)
B342   0C53 000A                 Cmp       #$A, (A3)
B346   671C                      BEQ.B     L1725
B348   5845                      AddQ      #$4, D5
B34A   204B                      Move.L    A3, A0
B34C   43EE FF88                 Lea.L     $-78(A6), A1
B350   487A 0012                 Pea.L     L1725

                      P297:
B354   302E FFBA                 Move      $-46(A6), D0
B358   322E FFBE                 Move      $-42(A6), D1
B35C   342E FF64                 Move      $-9C(A6), D2
B360   4EFA 0F64                 Jmp       P_mInitRgn
B364   3D45 FF6A      L1725:     Move      D5, $-96(A6)
B368   6618                      BNE.B     L1726
B36A   206E FF66                 Move.L    $-9A(A6), A0
B36E   362E FFBA                 Move      $-46(A6), D3
B372   966E FF64                 Sub       $-9C(A6), D3
B376   382E FFBE                 Move      $-42(A6), D4
B37A   986E FF64                 Sub       $-9C(A6), D4
B37E   4EBA D2C2                 Jsr       P_mXorSlab
B382   322E FFB8      L1726:     Move      $-48(A6), D1
B386   926D 0008                 Sub       $8(A5), D1
B38A   C2ED 0006                 MulU      $6(A5), D1
B38E   D2AD 0002                 Add.L     $2(A5), D1
B392   946D 000A                 Sub       $A(A5), D2
B396   E64A                      LsR       #$3, D2
B398   48C2                      Ext.L     D2
B39A   D282                      Add.L     D2, D1
B39C   2D41 FF5A                 Move.L    D1, $-A6(A6)
B3A0   322E FF64                 Move      $-9C(A6), D1
B3A4   936E FFBA                 Sub       D1, $-46(A6)
B3A8   936E FFBE                 Sub       D1, $-42(A6)
B3AC   936E FF0E                 Sub       D1, $-F2(A6)
B3B0   936E FF12                 Sub       D1, $-EE(A6)
B3B4   936E FF3C                 Sub       D1, $-C4(A6)
B3B8   936E FF40                 Sub       D1, $-C0(A6)
B3BC   936E FED0                 Sub       D1, $-130(A6)
B3C0   936E FECC                 Sub       D1, $-134(A6)
B3C4   342E 0010                 Move      $10(A6), D2
B3C8   4A2E FF50                 Tst.B     $-B0(A6)
B3CC   6710                      BEQ.B     L1727
B3CE   4EBA D3A0                 Jsr       P_mFastSlabMode
B3D2   2D4C FF5E                 Move.L    A4, $-A2(A6)
B3D6   426E FEBE                 Clr       $-142(A6)
B3DA   6000 003C                 Bra       L1729
B3DE   4EBA D336      L1727:     Jsr       P_mSlabMode
B3E2   2D4C FF5E                 Move.L    A4, $-A2(A6)
B3E6   4287                      Clr.L     D7
B3E8   342E 0010                 Move      $10(A6), D2
B3EC   0882 0002                 BClr.B    #$2, D2
B3F0   6702                      BEQ.B     L1728
B3F2   4687                      Not.L     D7
B3F4   342D 000A      L1728:     Move      $A(A5), D2
B3F8   206E 000C                 Move.L    $C(A6), A0
B3FC   43EE FFC0                 Lea.L     $-40(A6), A1
B400   2A6E FF56                 Move.L    $-AA(A6), A5
B404   4EBA D092                 Jsr       P_mPatExpand
B408   2A6E FF52                 Move.L    $-AE(A6), A5
B40C   700F                      MoveQ.L   #$F, D0
B40E   C06E FFB8                 And       $-48(A6), D0
B412   E548                      LsL       #$2, D0
B414   3D40 FEBE                 Move      D0, $-142(A6)
B418   3E2E FEEC      L1729:     Move      $-114(A6), D7
B41C   BE6E FEEA      L1730:     Cmp       $-116(A6), D7
B420   6D06                      BLT.B     L1731
B422   BE6E FEE8                 Cmp       $-118(A6), D7
B426   6D18                      BLT.B     L1732
B428   3F07           L1731:     Move      D7, -(A7)
B42A   3007                      Move      D7, D0
B42C   47EE FEEC                 Lea.L     $-114(A6), A3
B430   4EBA 031C                 Jsr       P_mBumpOval
B434   3017                      Move      (A7), D0
B436   47EE FF1A                 Lea.L     $-E6(A6), A3
B43A   4EBA 0312                 Jsr       P_mBumpOval
B43E   3E1F                      Move      (A7)+, D7
B440   BE6E FEE2      L1732:     Cmp       $-11E(A6), D7
B444   6660                      BNE.B     L1735
B446   4A2E FEE7                 Tst.B     $-119(A6)
B44A   675A                      BEQ.B     L1735
B44C   446E FECA                 Neg       $-136(A6)
B450   446E FEC8                 Neg       $-138(A6)
B454   422E FEE6                 Clr.B     $-11A(A6)
B458   302E 0008                 Move      $8(A6), D0
B45C   0C40 00B4                 Cmp       #$B4, D0
B460   6E1A                      BGT.B     L1734
B462   6D0C                      BLT.B     L1733
B464   0C6E 010E 000A            Cmp       #$10E, $A(A6)
B46A   6610                      BNE.B     L1734
B46C   6000 01CC                 Bra       L1752
B470   302E FECA      L1733:     Move      $-136(A6), D0
B474   806E FEC8                 Or        $-138(A6), D0
B478   6A00 01C0                 BPL       L1752
B47C   302E FECA      L1734:     Move      $-136(A6), D0
B480   3D6E FEC8 FECA            Move      $-138(A6), $-136(A6)
B486   3D40 FEC8                 Move      D0, $-138(A6)
B48A   202E FED0                 Move.L    $-130(A6), D0
B48E   2D6E FECC FED0            Move.L    $-134(A6), $-130(A6)
B494   2D40 FECC                 Move.L    D0, $-134(A6)
B498   202E FED8                 Move.L    $-128(A6), D0
B49C   2D6E FED4 FED8            Move.L    $-12C(A6), $-128(A6)
B4A2   2D40 FED4                 Move.L    D0, $-12C(A6)
B4A6   BE6E FFB8      L1735:     Cmp       $-48(A6), D7
B4AA   6D00 0174                 BLT       L1751
B4AE   4A2E FEE6                 Tst.B     $-11A(A6)
B4B2   6600 015E                 BNE       L1750
B4B6   4A2E FF50                 Tst.B     $-B0(A6)
B4BA   6604                      BNE.B     L1736
B4BC   6100 0196                 Bsr       P299
B4C0   4A2E FEE7      L1736:     Tst.B     $-119(A6)
B4C4   6614                      BNE.B     L1737
B4C6   BE6E FF1A                 Cmp       $-E6(A6), D7
B4CA   6D00 013C                 BLT       L1748
B4CE   BE6E FF1C                 Cmp       $-E4(A6), D7
B4D2   6C00 0134                 BGE       L1748
B4D6   6000 011A                 Bra       L1747
B4DA   322E FF0E      L1737:     Move      $-F2(A6), D1
B4DE   4A6E FECA                 Tst       $-136(A6)
B4E2   6A0A                      BPL.B     L1738
B4E4   B26E FED0                 Cmp       $-130(A6), D1
B4E8   6C04                      BGE.B     L1738
B4EA   322E FED0                 Move      $-130(A6), D1
B4EE   3D41 FEC6      L1738:     Move      D1, $-13A(A6)
B4F2   342E FF12                 Move      $-EE(A6), D2
B4F6   4A6E FEC8                 Tst       $-138(A6)
B4FA   6A0A                      BPL.B     L1739
B4FC   B46E FECC                 Cmp       $-134(A6), D2
B500   6F04                      BLE.B     L1739
B502   342E FECC                 Move      $-134(A6), D2
B506   3D42 FEC4      L1739:     Move      D2, $-13C(A6)
B50A   BE6E FF1A                 Cmp       $-E6(A6), D7
B50E   6D00 00BC                 BLT       L1746
B512   BE6E FF1C                 Cmp       $-E4(A6), D7
B516   6C00 00B4                 BGE       L1746
B51A   302E FF3C                 Move      $-C4(A6), D0
B51E   4A6E FEC8                 Tst       $-138(A6)
B522   6A0A                      BPL.B     L1740
B524   B06E FECC                 Cmp       $-134(A6), D0
B528   6F04                      BLE.B     L1740
B52A   302E FECC                 Move      $-134(A6), D0
B52E   3D40 FEC2      L1740:     Move      D0, $-13E(A6)
B532   302E FF40                 Move      $-C0(A6), D0
B536   4A6E FECA                 Tst       $-136(A6)
B53A   6A0A                      BPL.B     L1741
B53C   B06E FED0                 Cmp       $-130(A6), D0
B540   6C04                      BGE.B     L1741
B542   302E FED0                 Move      $-130(A6), D0
B546   3D40 FEC0      L1741:     Move      D0, $-140(A6)
B54A   B242                      Cmp       D2, D1
B54C   6C12                      BGE.B     L1742
B54E   342E FEC2                 Move      $-13E(A6), D2
B552   6156                      Bsr.B     P298
B554   322E FEC0                 Move      $-140(A6), D1
B558   342E FEC4                 Move      $-13C(A6), D2
B55C   6000 00B2                 Bra       L1749
B560   302E FECA      L1742:     Move      $-136(A6), D0
B564   C06E FEC8                 And       $-138(A6), D0
B568   6A00 00A8                 BPL       L1750
B56C   0C6E 00B4 0008            Cmp       #$B4, $8(A6)
B572   6F00 009E                 BLE       L1750
B576   B46E FEC2                 Cmp       $-13E(A6), D2
B57A   6606                      BNE.B     L1743
B57C   342E FF3C                 Move      $-C4(A6), D2
B580   6012                      Bra.B     L1744
B582   302E FEC6      L1743:     Move      $-13A(A6), D0
B586   B06E FEC0                 Cmp       $-140(A6), D0
B58A   660A                      BNE.B     L1745
B58C   322E FF40                 Move      $-C0(A6), D1
B590   342E FEC4                 Move      $-13C(A6), D2
B594   6114           L1744:     Bsr.B     P298
B596   322E FF0E      L1745:     Move      $-F2(A6), D1
B59A   342E FEC2                 Move      $-13E(A6), D2
B59E   610A                      Bsr.B     P298
B5A0   322E FEC0                 Move      $-140(A6), D1
B5A4   342E FF12                 Move      $-EE(A6), D2
B5A8   6066                      Bra.B     L1749

                      P298:
B5AA   7C3F                      MoveQ.L   #$3F, D6
B5AC   CC6E FEBE                 And       $-142(A6), D6
B5B0   2C36 60C0                 Move.L    $-40(A6,D6.W), D6
B5B4   41FA CE82                 Lea.L     DT_mMaskTab, A0
B5B8   226E FF5A                 Move.L    $-A6(A6), A1
B5BC   246E FF66                 Move.L    $-9A(A6), A2
B5C0   47EE FFB8                 Lea.L     $-48(A6), A3
B5C4   286E FF5E                 Move.L    $-A2(A6), A4
B5C8   4EFA D0BC                 Jmp       P_mDrawSlab
B5CC   B242           L1746:     Cmp       D2, D1
B5CE   6D40                      BLT.B     L1749
B5D0   302E FECA                 Move      $-136(A6), D0
B5D4   C06E FEC8                 And       $-138(A6), D0
B5D8   6A38                      BPL.B     L1750
B5DA   0C6E 00B4 0008            Cmp       #$B4, $8(A6)
B5E0   6F30                      BLE.B     L1750
B5E2   322E FF0E                 Move      $-F2(A6), D1
B5E6   61C2                      Bsr.B     P298
B5E8   322E FEC6                 Move      $-13A(A6), D1
B5EC   342E FF12                 Move      $-EE(A6), D2
B5F0   601E                      Bra.B     L1749
B5F2   322E FF0E      L1747:     Move      $-F2(A6), D1
B5F6   342E FF3C                 Move      $-C4(A6), D2
B5FA   61AE                      Bsr.B     P298
B5FC   322E FF40                 Move      $-C0(A6), D1
B600   342E FF12                 Move      $-EE(A6), D2
B604   61A4                      Bsr.B     P298
B606   600A                      Bra.B     L1750
B608   322E FF0E      L1748:     Move      $-F2(A6), D1
B60C   342E FF12                 Move      $-EE(A6), D2
B610   6198           L1749:     Bsr.B     P298
B612   586E FEBE      L1750:     AddQ      #$4, $-142(A6)
B616   302D 0006                 Move      $6(A5), D0
B61A   48C0                      Ext.L     D0
B61C   D1AE FF5A                 Add.L     D0, $-A6(A6)
B620   202E FED8      L1751:     Move.L    $-128(A6), D0
B624   D1AE FED0                 Add.L     D0, $-130(A6)
B628   202E FED4                 Move.L    $-12C(A6), D0
B62C   D1AE FECC                 Add.L     D0, $-134(A6)
B630   5247                      AddQ      #$1, D7
B632   BE6E FFBC                 Cmp       $-44(A6), D7
B636   6D00 FDE4                 BLT       L1730
B63A   2A6E FF56      L1752:     Move.L    $-AA(A6), A5
B63E   4EBA CCB8                 Jsr       P_tShowCursor
B642   2E6E FF6C      L1753:     Move.L    $-94(A6), A7
B646   4CDF 3EFF                 MoveM.L   (A7)+, D0-D7/A1-A5
B64A   4E5E                      Unlk      A6
B64C   205F                      Move.L    (A7)+, A0
B64E   DEFC 0014                 AddA      #$14, A7
B652   4ED0                      Jmp       (A0)

                      P299:
B654   3007                      Move      D7, D0
B656   322E FF6A                 Move      $-96(A6), D1
B65A   323B 1006                 Move      DT37(D1.W), D1
B65E   4EFB 1002                 Jmp       DT37(D1.W)

                      DT37:
B662   0016 0008 0018            DC.B      '      '
B668   001E                      DC.B      '  '

                      E_358:
B66A   43EE FFA0                 Lea.L     $-60(A6), A1
B66E   4EBA 0C8E      L1754:     Jsr       P_mSeekRgn
B672   2D69 0008 FF66            Move.L    $8(A1), $-9A(A6)

                      E_359:
B678   4E75                      Rts

                      E_360:
B67A   43EE FF88                 Lea.L     $-78(A6), A1
B67E   60EE                      Bra.B     L1754

                      E_361:
B680   43EE FFA0                 Lea.L     $-60(A6), A1
B684   4EBA 0C78                 Jsr       P_mSeekRgn
B688   43EE FF88                 Lea.L     $-78(A6), A1
B68C   4EBA 0C70                 Jsr       P_mSeekRgn
B690   206E FFA8                 Move.L    $-58(A6), A0
B694   226E FF90                 Move.L    $-70(A6), A1
B698   246E FF66                 Move.L    $-9A(A6), A2
B69C   322E FF62                 Move      $-9E(A6), D1
B6A0   2018           L1755:     Move.L    (A0)+, D0
B6A2   C099                      And.L     (A1)+, D0
B6A4   24C0                      Move.L    D0, (A2)+
B6A6   51C9 FFF8                 DBF       D1, L1755
B6AA   4E75                      Rts

                      P_mInitOval:
B6AC   3290                      Move      (A0), (A1)
B6AE   3368 0004 0002            Move      $4(A0), $2(A1)
B6B4   4A42                      Tst       D2
B6B6   6A02                      BPL.B     L1756
B6B8   4242                      Clr       D2
B6BA   4A41           L1756:     Tst       D1
B6BC   6A02                      BPL.B     L1757
B6BE   4241                      Clr       D1
B6C0   3028 0006      L1757:     Move      $6(A0), D0
B6C4   9068 0002                 Sub       $2(A0), D0
B6C8   B440                      Cmp       D0, D2
B6CA   6F02                      BLE.B     L1758
B6CC   3400                      Move      D0, D2
B6CE   3028 0004      L1758:     Move      $4(A0), D0
B6D2   9050                      Sub       (A0), D0
B6D4   B240                      Cmp       D0, D1
B6D6   6F02                      BLE.B     L1759
B6D8   3200                      Move      D0, D1
B6DA   3368 0006 0026 L1759:     Move      $6(A0), $26(A1)
B6E0   4269 0028                 Clr       $28(A1)
B6E4   3368 0002 0022            Move      $2(A0), $22(A1)
B6EA   4269 0024                 Clr       $24(A1)
B6EE   3002                      Move      D2, D0
B6F0   4840                      Swap      D0
B6F2   4240                      Clr       D0
B6F4   E288                      LsR.L     #$1, D0
B6F6   D1A9 0022                 Add.L     D0, $22(A1)
B6FA   91A9 0026                 Sub.L     D0, $26(A1)
B6FE   203C 0000 8000            Move.L    #$8000, D0
B704   2340 002A                 Move.L    D0, $2A(A1)
B708   D1A9 0026                 Add.L     D0, $26(A1)
B70C   7001                      MoveQ.L   #$1, D0
B70E   9041                      Sub       D1, D0
B710   3340 0004                 Move      D0, $4(A1)
B714   3001                      Move      D1, D0
B716   48C0                      Ext.L     D0
B718   D080                      Add.L     D0, D0
B71A   5380                      SubQ      #$1, D0
B71C   2340 0006                 Move.L    D0, $6(A1)
B720   42A9 000A                 Clr.L     $A(A1)
B724   42A9 000E                 Clr.L     $E(A1)
B728   42A7                      Clr.L     -(A7)
B72A   3F01                      Move      D1, -(A7)
B72C   3F02                      Move      D2, -(A7)
B72E   A869                      _FixRatio
B730   2F17                      Move.L    (A7), -(A7)
B732   4869 0012                 Pea.L     $12(A1)
B736   A867                      _LongMul
B738   2029 0016                 Move.L    $16(A1), D0
B73C   D080                      Add.L     D0, D0
B73E   2340 001E                 Move.L    D0, $1E(A1)
B742   2029 0012                 Move.L    $12(A1), D0
B746   D180                      AddX.L    D0, D0
B748   2340 001A                 Move.L    D0, $1A(A1)
B74C   4E75                      Rts

                      P_mBumpOval:
B74E   B05B                      Cmp       (A3)+, D0
B750   6D3C                      BLT.B     L1764
B752   B05B                      Cmp       (A3)+, D0
B754   6C38                      BGE.B     L1764
B756   3013                      Move      (A3), D0
B758   545B                      AddQ      #$2, (A3)+
B75A   4CD3 07FE                 MoveM.L   (A3), D1-D7/A0-A2
B75E   600C                      Bra.B     L1761
B760   D3CA           L1760:     AddA.L    A2, A1
B762   91CA                      SubA.L    A2, A0
B764   D685                      Add.L     D5, D3
B766   D584                      AddX.L    D4, D2
B768   DA87                      Add.L     D7, D5
B76A   D986                      AddX.L    D6, D4
B76C   B481           L1761:     Cmp.L     D1, D2
B76E   6DF0                      BLT.B     L1760
B770   600C                      Bra.B     L1763
B772   93CA           L1762:     SubA.L    A2, A1
B774   D1CA                      AddA.L    A2, A0
B776   9A87                      Sub.L     D7, D5
B778   9986                      SubX.L    D6, D4
B77A   9685                      Sub.L     D5, D3
B77C   9584                      SubX.L    D4, D2
B77E   B481           L1763:     Cmp.L     D1, D2
B780   6EF0                      BGT.B     L1762
B782   5240                      AddQ      #$1, D0
B784   48C0                      Ext.L     D0
B786   E580                      AsL.L     #$2, D0
B788   9280                      Sub.L     D0, D1
B78A   48D3 07FE                 MoveM.L   D1-D7/A0-A2, (A3)
B78E   4E75           L1764:     Rts

                      P_tAngleFromSlope:
B790   202F 0004                 Move.L    $4(A7), D0
B794   5BC2                      SMI.B     D2
B796   6A02                      BPL.B     L1765
B798   4480                      Neg.L     D0
B79A   0480 0000 01F4 L1765:     Sub.L     #$1F4, D0
B7A0   2F40 0004                 Move.L    D0, $4(A7)
B7A4   41FA 000C                 Lea.L     E_363, A0
B7A8   72FF                      MoveQ.L   #$-1, D1
B7AA   5241           L1766:     AddQ      #$1, D1
B7AC   3001                      Move      D1, D0
B7AE   42A7                      Clr.L     -(A7)
B7B0   6034                      Bra.B     L1769

                      E_363:
B7B2   202F 0008                 Move.L    $8(A7), D0
B7B6   B09F                      Cmp.L     (A7)+, D0
B7B8   6EF0                      BGT.B     L1766
B7BA   303C 00B4                 Move      #$B4, D0
B7BE   9041                      Sub       D1, D0
B7C0   4A02                      Tst.B     D2
B7C2   6A02                      BPL.B     L1767
B7C4   3001                      Move      D1, D0
B7C6   2E9F           L1767:     Move.L    (A7)+, (A7)
B7C8   3F40 0004                 Move      D0, $4(A7)
B7CC   4E75                      Rts

                      P_tSlopeFromAngle:
B7CE   205F                      Move.L    (A7)+, A0
B7D0   301F                      Move      (A7)+, D0
B7D2   48C0                      Ext.L     D0
B7D4   81FC 00B4                 DivS      #$B4, D0
B7D8   4840                      Swap      D0
B7DA   4A40                      Tst       D0
B7DC   6A04                      BPL.B     L1768
B7DE   0640 00B4                 Add       #$B4, D0
B7E2   3EBC 8000      L1768:     Move      #$-8000, (A7)
B7E6   0C40 005A      L1769:     Cmp       #$5A, D0
B7EA   6F08                      BLE.B     L1770
B7EC   4257                      Clr       (A7)
B7EE   0440 00B4                 Sub       #$B4, D0
B7F2   4440                      Neg       D0
B7F4   0C40 002D      L1770:     Cmp       #$2D, D0
B7F8   6D14                      BLT.B     L1771
B7FA   5257                      AddQ      #$1, (A7)
B7FC   0C40 0040                 Cmp       #$40, D0
B800   6D0C                      BLT.B     L1771
B802   1F7B 00DD 0001            Move.B    (PCrel $B7E1 )(D0.W), $1(A7)
B808   6A04                      BPL.B     L1771
B80A   0017 007F                 Or.B      #$7F, (A7)
B80E   D040           L1771:     Add       D0, D0
B810   3F7B 002A 0002            Move      DT39(D0.W), $2(A7)
B816   0897 0007                 BClr.B    #$7, (A7)
B81A   6702                      BEQ.B     L1772
B81C   4497                      Neg.L     (A7)
B81E   4ED0           L1772:     Jmp       (A0)
B820   0102 0202 0202            DC.B      '      '
B826   0202 0203 0303            DC.B      '      '
B82C   0304 0404 0505            DC.B      '      '
B832   0607 0809 0B0E            DC.B      '      '
B838   131C 39FF                 DC.B      '  9 '

                      DT39:
B83C   0000 0478 08F1            DC.B      '   x  '
B842   0D6B 11E7 1666            DC.B      ' k   f'
B848   1AE8 1F6F 23FA            DC.B      '   o# '
B84E   288C 2D24 31C3            DC.B      '( -$1 '
B854   366A 3B1A 3FD4            DC.B      '6j; ? '
B85A   4498 4968 4E44            DC.B      'D IhND'
B860   532E 5826 5D2D            DC.B      'S.X&]-'
B866   6245 676E 6CAA            DC.B      'bEgnl '
B86C   71FB 7760 7CDC            DC.B      'q w`| '
B872   8270 881E 8DE7            DC.B      ' p    '
B878   93CD 99D2 9FF7            DC.B      '      '
B87E   A640 ACAD B341            DC.B      ' @   A'
B884   B9FF C0E9 C802            DC.B      '      '
B88A   CF4E D6CF DE8A            DC.B      ' N    '
B890   E681 EEB9 F737            DC.B      '     7'
B896   0000 0919 1287            DC.B      '      '
B89C   1C51 267F 3117            DC.B      ' Q& 1 '
B8A2   3C22 47AA 53B9            DC.B      '<"G S '
B8A8   605B 6D9B 7B89            DC.B      '`[m { '
B8AE   8A35 99AF AA0E            DC.B      ' 5    '
B8B4   BB68 CDD6 E177            DC.B      ' h   w'
B8BA   F66E 0CE1 24FE            DC.B      ' n  $ '
B8C0   3EFC 5B19 799F            DC.B      '> [ y '
B8C6   9AE7 BF5B E77A            DC.B      '   [ z'
B8CC   13E3 4556 7CC7            DC.B      '  EV| '
B8D2   BB68 02C2 54DB            DC.B      ' h  T '
B8D8   B462 2501 ABD9            DC.B      ' b%   '
B8DE   5051 1D88 24F3            DC.B      'PQ  $ '
B8E4   83AD 6E17 4CF5            DC.B      '  n L '
B8EA   14BD A2D7 4A30            DC.B      '    J0'
B8F0   FFFF                      DC.B      '  '

                      P_tPtToAngle:
B8F2   4E56 0000                 Link      A6, #$0
B8F6   48E7 0308                 MoveM.L   D6-D7/A4, -(A7)
B8FA   286E 0010                 Move.L    $10(A6), A4
B8FE   302C 0004                 Move      $4(A4), D0
B902   D054                      Add       (A4), D0
B904   E240                      AsR       #$1, D0
B906   322E 000C                 Move      $C(A6), D1
B90A   9240                      Sub       D0, D1
B90C   302C 0006                 Move      $6(A4), D0
B910   D06C 0002                 Add       $2(A4), D0
B914   E240                      AsR       #$1, D0
B916   3E2E 000E                 Move      $E(A6), D7
B91A   9E40                      Sub       D0, D7
B91C   660A                      BNE.B     L1773
B91E   4A41                      Tst       D1
B920   6F4A                      BLE.B     L1774
B922   303C 00B4                 Move      #$B4, D0
B926   6046                      Bra.B     L1775
B928   42A7           L1773:     Clr.L     -(A7)
B92A   3F07                      Move      D7, -(A7)
B92C   3F01                      Move      D1, -(A7)
B92E   A869                      _FixRatio
B930   2C1F                      Move.L    (A7)+, D6
B932   42A7                      Clr.L     -(A7)
B934   302C 0004                 Move      $4(A4), D0
B938   9054                      Sub       (A4), D0
B93A   3F00                      Move      D0, -(A7)
B93C   302C 0006                 Move      $6(A4), D0
B940   906C 0002                 Sub       $2(A4), D0
B944   3F00                      Move      D0, -(A7)
B946   A869                      _FixRatio
B948   201F                      Move.L    (A7)+, D0
B94A   42A7                      Clr.L     -(A7)
B94C   2F06                      Move.L    D6, -(A7)
B94E   2F00                      Move.L    D0, -(A7)
B950   A868                      _FixMul
B952   201F                      Move.L    (A7)+, D0
B954   4267                      Clr       -(A7)
B956   2F00                      Move.L    D0, -(A7)
B958   4EBA FE36                 Jsr       P_tAngleFromSlope
B95C   301F                      Move      (A7)+, D0
B95E   4A47                      Tst       D7
B960   6A0C                      BPL.B     L1775
B962   0640 00B4                 Add       #$B4, D0
B966   0C40 0168                 Cmp       #$168, D0
B96A   6602                      BNE.B     L1775
B96C   4240           L1774:     Clr       D0
B96E   206E 0008      L1775:     Move.L    $8(A6), A0
B972   3080                      Move      D0, (A0)
B974   4CDF 10C0                 MoveM.L   (A7)+, D6-D7/A4
B978   4E5E                      Unlk      A6
B97A   205F                      Move.L    (A7)+, A0
B97C   DEFC 000C                 AddA      #$C, A7
B980   4ED0                      Jmp       (A0)

                      P_tStdPoly:
B982   4E56 FFF8                 Link      A6, #$-8
B986   48E7 0738                 MoveM.L   D5-D7/A2-A4, -(A7)
B98A   1E2E 000C                 Move.B    $C(A6), D7
B98E   4EBA 2AB8                 Jsr       P_mCheckPic
B992   6F16                      BLE.B     L1776
B994   1F07                      Move.B    D7, -(A7)
B996   4EBA 29B2                 Jsr       P_mPutPicVerb
B99A   7070                      MoveQ.L   #$70, D0
B99C   D047                      Add       D7, D0
B99E   4EBA 2904                 Jsr       P_mDPutPicByte
B9A2   2F2E 0008                 Move.L    $8(A6), -(A7)
B9A6   4EBA 2984                 Jsr       P_mPutPicRgn
B9AA   246E 0008      L1776:     Move.L    $8(A6), A2
B9AE   4A07                      Tst.B     D7
B9B0   6608                      BNE.B     L1777
B9B2   2F0A                      Move.L    A2, -(A7)
B9B4   4EBA 01AA                 Jsr       P_mFrPoly
B9B8   6032                      Bra.B     L1778
B9BA   2052           L1777:     Move.L    (A2), A0
B9BC   4868 0002                 Pea.L     $2(A0)
B9C0   206B 0018                 Move.L    $18(A3), A0
B9C4   2050                      Move.L    (A0), A0
B9C6   4868 0002                 Pea.L     $2(A0)
B9CA   206B 001C                 Move.L    $1C(A3), A0
B9CE   2050                      Move.L    (A0), A0
B9D0   4868 0002                 Pea.L     $2(A0)
B9D4   3F3C 0003                 Move      #$3, -(A7)
B9D8   486E FFF8                 Pea.L     $-8(A6)
B9DC   4EBA E732                 Jsr       P_mRSect
B9E0   670A                      BEQ.B     L1778
B9E2   2F0A                      Move.L    A2, -(A7)
B9E4   4EBA E4FA                 Jsr       P_mPushVerb
B9E8   4EBA 01B6                 Jsr       P_mDrawPoly
B9EC   4CDF 1CE0      L1778:     MoveM.L   (A7)+, D5-D7/A2-A4
B9F0   4E5E                      Unlk      A6
B9F2   205F                      Move.L    (A7)+, A0
B9F4   5C4F                      AddQ      #$6, A7
B9F6   4ED0                      Jmp       (A0)

                      P_tFramePoly:
B9F8   7000                      MoveQ.L   #$0, D0
B9FA   6022                      Bra.B     P_mCallPoly

                      P_tPaintPoly:
B9FC   7001                      MoveQ.L   #$1, D0
B9FE   601E                      Bra.B     P_mCallPoly

                      P_tErasePoly:
BA00   7002                      MoveQ.L   #$2, D0
BA02   601A                      Bra.B     P_mCallPoly

                      P_tInvertPoly:
BA04   7003                      MoveQ.L   #$3, D0
BA06   6016                      Bra.B     P_mCallPoly

                      P_tFillPoly:
BA08   205F                      Move.L    (A7)+, A0
BA0A   225F                      Move.L    (A7)+, A1
BA0C   2F08                      Move.L    A0, -(A7)
BA0E   2055                      Move.L    (A5), A0
BA10   2050                      Move.L    (A0), A0
BA12   41E8 0028                 Lea.L     $28(A0), A0
BA16   20D9                      Move.L    (A1)+, (A0)+
BA18   20D9                      Move.L    (A1)+, (A0)+
BA1A   7004                      MoveQ.L   #$4, D0
BA1C   4E71                      Nop
                      P_mCallPoly:
BA1E   205F                      Move.L    (A7)+, A0
BA20   225F                      Move.L    (A7)+, A1
BA22   1F00                      Move.B    D0, -(A7)
BA24   2F09                      Move.L    A1, -(A7)
BA26   2F08                      Move.L    A0, -(A7)
BA28   2055                      Move.L    (A5), A0
BA2A   2050                      Move.L    (A0), A0
BA2C   2028 0068                 Move.L    $68(A0), D0
BA30   2078 0F14                 Move.L    ($F14), A0
BA34   6706                      BEQ.B     L1780
BA36   2040                      Move.L    D0, A0
BA38   2068 0018                 Move.L    $18(A0), A0
BA3C   4ED0           L1780:     Jmp       (A0)

                      P_tOpenPoly:
BA3E   4EBA DD80                 Jsr       P_tHidePen
BA42   42A7                      Clr.L     -(A7)
BA44   3F3C 008A                 Move      #$8A, -(A7)
BA48   4EBA CD3A                 Jsr       P265
BA4C   225F                      Move.L    (A7)+, A1
BA4E   2F49 0004                 Move.L    A1, $4(A7)
BA52   2055                      Move.L    (A5), A0
BA54   2149 FF5E                 Move.L    A1, $-A2(A0)
BA58   317C 008A FF5C            Move      #$8A, $-A4(A0)
BA5E   2050                      Move.L    (A0), A0
BA60   7001                      MoveQ.L   #$1, D0
BA62   2140 0064                 Move.L    D0, $64(A0)
BA66   2251                      Move.L    (A1), A1
BA68   32FC 000A                 Move      #$A, (A1)+
BA6C   4299                      Clr.L     (A1)+
BA6E   4299                      Clr.L     (A1)+
BA70   4E75                      Rts

                      P_tClosePoly:
BA72   48E7 1F08                 MoveM.L   D3-D7/A4, -(A7)
BA76   2855                      Move.L    (A5), A4
BA78   2054                      Move.L    (A4), A0
BA7A   42A8 0064                 Clr.L     $64(A0)
BA7E   286C FF5E                 Move.L    $-A2(A4), A4
BA82   2054                      Move.L    (A4), A0
BA84   3E18                      Move      (A0)+, D7
BA86   4298                      Clr.L     (A0)+
BA88   4298                      Clr.L     (A0)+
BA8A   3C07                      Move      D7, D6
BA8C   0446 000A                 Sub       #$A, D6
BA90   E44E                      LsR       #$2, D6
BA92   673A                      BEQ.B     L1786
BA94   3218                      Move      (A0)+, D1
BA96   3401                      Move      D1, D2
BA98   3618                      Move      (A0)+, D3
BA9A   3803                      Move      D3, D4
BA9C   5346                      SubQ      #$1, D6
BA9E   601C                      Bra.B     L1785
BAA0   3018           L1781:     Move      (A0)+, D0
BAA2   B041                      Cmp       D1, D0
BAA4   6C02                      BGE.B     L1782
BAA6   3200                      Move      D0, D1
BAA8   B042           L1782:     Cmp       D2, D0
BAAA   6F02                      BLE.B     L1783
BAAC   3400                      Move      D0, D2
BAAE   3018           L1783:     Move      (A0)+, D0
BAB0   B043                      Cmp       D3, D0
BAB2   6C02                      BGE.B     L1784
BAB4   3600                      Move      D0, D3
BAB6   B044           L1784:     Cmp       D4, D0
BAB8   6F02                      BLE.B     L1785
BABA   3800                      Move      D0, D4
BABC   51CE FFE2      L1785:     DBF       D6, L1781
BAC0   2054                      Move.L    (A4), A0
BAC2   41E8 0002                 Lea.L     $2(A0), A0
BAC6   30C1                      Move      D1, (A0)+
BAC8   30C3                      Move      D3, (A0)+
BACA   30C2                      Move      D2, (A0)+
BACC   30C4                      Move      D4, (A0)+
BACE   2F0C           L1786:     Move.L    A4, -(A7)
BAD0   3F07                      Move      D7, -(A7)
BAD2   4EBA CCC4                 Jsr       P_mSetHSize
BAD6   4EBA DCEC                 Jsr       P_tShowPen
BADA   4CDF 10F8                 MoveM.L   (A7)+, D3-D7/A4
BADE   4E75                      Rts

                      P_tKillPoly:
BAE0   225F                      Move.L    (A7)+, A1
BAE2   205F                      Move.L    (A7)+, A0
BAE4   A023                      _DisposeHandle
BAE6   4ED1                      Jmp       (A1)

                      P_tOffsetPoly:
BAE8   205F                      Move.L    (A7)+, A0
BAEA   301F                      Move      (A7)+, D0
BAEC   321F                      Move      (A7)+, D1
BAEE   225F                      Move.L    (A7)+, A1
BAF0   2251                      Move.L    (A1), A1
BAF2   3419                      Move      (A1)+, D2
BAF4   5542                      SubQ      #$2, D2
BAF6   E44A                      LsR       #$2, D2
BAF8   5342                      SubQ      #$1, D2
BAFA   D159           L1787:     Add       D0, (A1)+
BAFC   D359                      Add       D1, (A1)+
BAFE   51CA FFFA                 DBF       D2, L1787
BB02   4ED0                      Jmp       (A0)

                      P_tMapPoly:
BB04   4E56 0000                 Link      A6, #$0
BB08   48E7 0138                 MoveM.L   D7/A2-A4, -(A7)
BB0C   246E 000C                 Move.L    $C(A6), A2
BB10   266E 0008                 Move.L    $8(A6), A3
BB14   2012                      Move.L    (A2), D0
BB16   B093                      Cmp.L     (A3), D0
BB18   660A                      BNE.B     L1788
BB1A   202A 0004                 Move.L    $4(A2), D0
BB1E   B0AB 0004                 Cmp.L     $4(A3), D0
BB22   672E                      BEQ.B     L1791
BB24   286E 0010      L1788:     Move.L    $10(A6), A4
BB28   2854                      Move.L    (A4), A4
BB2A   486C 0002                 Pea.L     $2(A4)
BB2E   2F0A                      Move.L    A2, -(A7)
BB30   2F0B                      Move.L    A3, -(A7)
BB32   4EBA 2A98                 Jsr       P_tMapRect
BB36   700A                      MoveQ.L   #$A, D0
BB38   3E14                      Move      (A4), D7
BB3A   9E40                      Sub       D0, D7
BB3C   E44F                      LsR       #$2, D7
BB3E   D8C0                      AddA      D0, A4
BB40   600C                      Bra.B     L1790
BB42   2F0C           L1789:     Move.L    A4, -(A7)
BB44   2F0A                      Move.L    A2, -(A7)
BB46   2F0B                      Move.L    A3, -(A7)
BB48   4EBA 2A20                 Jsr       P_tMapPt
BB4C   584C                      AddQ      #$4, A4
BB4E   51CF FFF2      L1790:     DBF       D7, L1789
BB52   4CDF 1C80      L1791:     MoveM.L   (A7)+, D7/A2-A4
BB56   4E5E                      Unlk      A6
BB58   205F                      Move.L    (A7)+, A0
BB5A   DEFC 000C                 AddA      #$C, A7
BB5E   4ED0                      Jmp       (A0)

                      P_mFrPoly:
BB60   4E56 0000                 Link      A6, #$0
BB64   48E7 0308                 MoveM.L   D6-D7/A4, -(A7)
BB68   286E 0008                 Move.L    $8(A6), A4
BB6C   2054                      Move.L    (A4), A0
BB6E   3E10                      Move      (A0), D7
BB70   0447 000A                 Sub       #$A, D7
BB74   E44F                      LsR       #$2, D7
BB76   671E                      BEQ.B     L1794
BB78   2F28 000A                 Move.L    $A(A0), -(A7)
BB7C   4EBA DBAA                 Jsr       P_tMoveTo
BB80   7C0E                      MoveQ.L   #$E, D6
BB82   5347                      SubQ      #$1, D7
BB84   600C                      Bra.B     L1793
BB86   2054           L1792:     Move.L    (A4), A0
BB88   2F30 6000                 Move.L    $0(A0,D6.W), -(A7)
BB8C   5846                      AddQ      #$4, D6
BB8E   4EBA DBB8                 Jsr       P_mDoLine
BB92   51CF FFF2      L1793:     DBF       D7, L1792
BB96   4CDF 10C0      L1794:     MoveM.L   (A7)+, D6-D7/A4
BB9A   4E5E                      Unlk      A6
BB9C   2E9F                      Move.L    (A7)+, (A7)
BB9E   4E75                      Rts

                      P_mDrawPoly:
BBA0   4E56 0000                 Link      A6, #$0
BBA4   2F0C                      Move.L    A4, -(A7)
BBA6   2055                      Move.L    (A5), A0
BBA8   2050                      Move.L    (A0), A0
BBAA   4A68 0042                 Tst       $42(A0)
BBAE   6B38                      BMI.B     L1795
BBB0   4EBA 01C8                 Jsr       P_tOpenRgn
BBB4   2F2E 000E                 Move.L    $E(A6), -(A7)
BBB8   4EBA FFA6                 Jsr       P_mFrPoly
BBBC   206E 000E                 Move.L    $E(A6), A0
BBC0   2050                      Move.L    (A0), A0
BBC2   2F28 000A                 Move.L    $A(A0), -(A7)
BBC6   4EBA DB80                 Jsr       P_mDoLine
BBCA   42A7                      Clr.L     -(A7)
BBCC   4EBA 0180                 Jsr       P_tNewRgn
BBD0   2857                      Move.L    (A7), A4
BBD2   4EBA 01D4                 Jsr       P_tCloseRgn
BBD6   2F0C                      Move.L    A4, -(A7)
BBD8   3F2E 000C                 Move      $C(A6), -(A7)
BBDC   2F2E 0008                 Move.L    $8(A6), -(A7)
BBE0   4EBA 00C0                 Jsr       P_mDrawRgn
BBE4   204C                      Move.L    A4, A0
BBE6   A023                      _DisposeHandle
BBE8   4CDF 1000      L1795:     MoveM.L   (A7)+, A4
BBEC   4E5E                      Unlk      A6
BBEE   205F                      Move.L    (A7)+, A0
BBF0   DEFC 000A                 AddA      #$A, A7
BBF4   4ED0                      Jmp       (A0)

                      P_tStdRgn:
BBF6   4E56 0000                 Link      A6, #$0
BBFA   48E7 0338                 MoveM.L   D6-D7/A2-A4, -(A7)
BBFE   1E2E 000C                 Move.B    $C(A6), D7
BC02   4EBA 2844                 Jsr       P_mCheckPic
BC06   6F18                      BLE.B     L1796
BC08   1F07                      Move.B    D7, -(A7)
BC0A   4EBA 273E                 Jsr       P_mPutPicVerb
BC0E   303C 0080                 Move      #$80, D0
BC12   D047                      Add       D7, D0
BC14   4EBA 268E                 Jsr       P_mDPutPicByte
BC18   2F2E 0008                 Move.L    $8(A6), -(A7)
BC1C   4EBA 270E                 Jsr       P_mPutPicRgn
BC20   2F2E 0008      L1796:     Move.L    $8(A6), -(A7)
BC24   4EBA E2BA                 Jsr       P_mPushVerb
BC28   4A07                      Tst.B     D7
BC2A   6620                      BNE.B     L1798
BC2C   4AAB 0060                 Tst.L     $60(A3)
BC30   6714                      BEQ.B     L1797
BC32   2F2E 0008                 Move.L    $8(A6), -(A7)
BC36   2F2C FF6C                 Move.L    $-94(A4), -(A7)
BC3A   486C FF6A                 Pea.L     $-96(A4)
BC3E   486C FF68                 Pea.L     $-98(A4)
BC42   4EBA 0C12                 Jsr       P_mPutRgn
BC46   4EBA 0096      L1797:     Jsr       P_mFrRgn
BC4A   6004                      Bra.B     L1799
BC4C   4EBA 0054      L1798:     Jsr       P_mDrawRgn
BC50   4CDF 1CC0      L1799:     MoveM.L   (A7)+, D6-D7/A2-A4
BC54   4E5E                      Unlk      A6
BC56   205F                      Move.L    (A7)+, A0
BC58   5C4F                      AddQ      #$6, A7
BC5A   4ED0                      Jmp       (A0)

                      P_tFrameRgn:
BC5C   7000                      MoveQ.L   #$0, D0
BC5E   6022                      Bra.B     P_mCallRgn

                      P_tPaintRgn:
BC60   7001                      MoveQ.L   #$1, D0
BC62   601E                      Bra.B     P_mCallRgn

                      P_tEraseRgn:
BC64   7002                      MoveQ.L   #$2, D0
BC66   601A                      Bra.B     P_mCallRgn

                      P_tInvertRgn:
BC68   7003                      MoveQ.L   #$3, D0
BC6A   6016                      Bra.B     P_mCallRgn

                      P_tFillRgn:
BC6C   205F                      Move.L    (A7)+, A0
BC6E   225F                      Move.L    (A7)+, A1
BC70   2F08                      Move.L    A0, -(A7)
BC72   2055                      Move.L    (A5), A0
BC74   2050                      Move.L    (A0), A0
BC76   41E8 0028                 Lea.L     $28(A0), A0
BC7A   20D9                      Move.L    (A1)+, (A0)+
BC7C   20D9                      Move.L    (A1)+, (A0)+
BC7E   7004                      MoveQ.L   #$4, D0
BC80   4E71                      Nop

                      P_mCallRgn:
BC82   205F                      Move.L    (A7)+, A0
BC84   225F                      Move.L    (A7)+, A1
BC86   1F00                      Move.B    D0, -(A7)
BC88   2F09                      Move.L    A1, -(A7)
BC8A   2F08                      Move.L    A0, -(A7)
BC8C   2055                      Move.L    (A5), A0
BC8E   2050                      Move.L    (A0), A0
BC90   2028 0068                 Move.L    $68(A0), D0
BC94   2078 0F44                 Move.L    ($F44), A0
BC98   6706                      BEQ.B     L1801
BC9A   2040                      Move.L    D0, A0
BC9C   2068 001C                 Move.L    $1C(A0), A0
BCA0   4ED0           L1801:     Jmp       (A0)

                      P_mDrawRgn:
BCA2   4E56 0000                 Link      A6, #$0
BCA6   2055                      Move.L    (A5), A0
BCA8   2050                      Move.L    (A0), A0
BCAA   4A68 0042                 Tst       $42(A0)
BCAE   6B24                      BMI.B     L1802
BCB0   4868 0002                 Pea.L     $2(A0)
BCB4   2F17                      Move.L    (A7), -(A7)
BCB6   4868 0008                 Pea.L     $8(A0)
BCBA   2F17                      Move.L    (A7), -(A7)
BCBC   3F2E 000C                 Move      $C(A6), -(A7)
BCC0   2F2E 0008                 Move.L    $8(A6), -(A7)
BCC4   2F28 001C                 Move.L    $1C(A0), -(A7)
BCC8   2F28 0018                 Move.L    $18(A0), -(A7)
BCCC   2F2E 000E                 Move.L    $E(A6), -(A7)
BCD0   4EBA EA60                 Jsr       P_mRgnBlt
BCD4   4E5E           L1802:     Unlk      A6
BCD6   205F                      Move.L    (A7)+, A0
BCD8   DEFC 000A                 AddA      #$A, A7
BCDC   4ED0                      Jmp       (A0)

                      P_mFrRgn:
BCDE   4E56 0000                 Link      A6, #$0
BCE2   48E7 0118                 MoveM.L   D7/A3-A4, -(A7)
BCE6   2855                      Move.L    (A5), A4
BCE8   2654                      Move.L    (A4), A3
BCEA   4A6B 0042                 Tst       $42(A3)
BCEE   6B50                      BMI.B     L1804
BCF0   206E 000E                 Move.L    $E(A6), A0
BCF4   2050                      Move.L    (A0), A0
BCF6   0C50 000A                 Cmp       #$A, (A0)
BCFA   660A                      BNE.B     L1803
BCFC   4868 0002                 Pea.L     $2(A0)
BD00   4EBA E292                 Jsr       P_mFrRect
BD04   603A                      Bra.B     L1804
BD06   42A7           L1803:     Clr.L     -(A7)
BD08   4EBA 0044                 Jsr       P_tNewRgn
BD0C   2E1F                      Move.L    (A7)+, D7
BD0E   2F2E 000E                 Move.L    $E(A6), -(A7)
BD12   2F07                      Move.L    D7, -(A7)
BD14   4EBA 00E8                 Jsr       P_tCopyRgn
BD18   2F07                      Move.L    D7, -(A7)
BD1A   2F2B 0034                 Move.L    $34(A3), -(A7)
BD1E   4EBA 01D4                 Jsr       P_tInsetRgn
BD22   2F2E 000E                 Move.L    $E(A6), -(A7)
BD26   2F07                      Move.L    D7, -(A7)
BD28   2F07                      Move.L    D7, -(A7)
BD2A   4EBA 02BA                 Jsr       P_tDiffRgn
BD2E   2F07                      Move.L    D7, -(A7)
BD30   3F2E 000C                 Move      $C(A6), -(A7)
BD34   2F2E 0008                 Move.L    $8(A6), -(A7)
BD38   4EBA FF68                 Jsr       P_mDrawRgn
BD3C   2047                      Move.L    D7, A0
BD3E   A023                      _DisposeHandle
BD40   4CDF 1880      L1804:     MoveM.L   (A7)+, D7/A3-A4
BD44   4E5E                      Unlk      A6
BD46   205F                      Move.L    (A7)+, A0
BD48   DEFC 000A                 AddA      #$A, A7
BD4C   4ED0                      Jmp       (A0)

                      P_tNewRgn:
BD4E   48E7 1020                 MoveM.L   D3/A2, -(A7)
BD52   42A7                      Clr.L     -(A7)
BD54   3F3C 000A                 Move      #$A, -(A7)
BD58   4EBA CA2A                 Jsr       P265
BD5C   205F                      Move.L    (A7)+, A0
BD5E   4CDF 0408                 MoveM.L   (A7)+, D3/A2
BD62   2F48 0004                 Move.L    A0, $4(A7)
BD66   2050                      Move.L    (A0), A0
BD68   30FC 000A                 Move      #$A, (A0)+
BD6C   4298                      Clr.L     (A0)+
BD6E   4298                      Clr.L     (A0)+
BD70   4E75                      Rts

                      P_tDisposeRgn:
BD72   225F                      Move.L    (A7)+, A1
BD74   205F                      Move.L    (A7)+, A0
BD76   A023                      _DisposeHandle
BD78   4ED1                      Jmp       (A1)

                      P_tOpenRgn:
BD7A   48E7 1038                 MoveM.L   D3/A2-A4, -(A7)
BD7E   2855                      Move.L    (A5), A4
BD80   2054                      Move.L    (A4), A0
BD82   7001                      MoveQ.L   #$1, D0
BD84   2140 0060                 Move.L    D0, $60(A0)
BD88   426C FF6A                 Clr       $-96(A4)
BD8C   42A7                      Clr.L     -(A7)
BD8E   3F3C 0100                 Move      #$100, -(A7)
BD92   3957 FF68                 Move      (A7), $-98(A4)
BD96   4EBA C9EC                 Jsr       P265
BD9A   295F FF6C                 Move.L    (A7)+, $-94(A4)
BD9E   4EBA DA20                 Jsr       P_tHidePen
BDA2   4CDF 1C08                 MoveM.L   (A7)+, D3/A2-A4
BDA6   4E75                      Rts

                      P_tCloseRgn:
BDA8   4E56 FFFE                 Link      A6, #$-2
BDAC   48E7 1038                 MoveM.L   D3/A2-A4, -(A7)
BDB0   2855                      Move.L    (A5), A4
BDB2   2054                      Move.L    (A4), A0
BDB4   4AA8 0060                 Tst.L     $60(A0)
BDB8   673A                      BEQ.B     L1805
BDBA   42A8 0060                 Clr.L     $60(A0)
BDBE   4EBA DA04                 Jsr       P_tShowPen
BDC2   302C FF6A                 Move      $-96(A4), D0
BDC6   E448                      LsR       #$2, D0
BDC8   3D40 FFFE                 Move      D0, $-2(A6)
BDCC   266C FF6C                 Move.L    $-94(A4), A3
BDD0   2F13                      Move.L    (A3), -(A7)
BDD2   3F00                      Move      D0, -(A7)
BDD4   4EBA 08D2                 Jsr       P_mSortPoints
BDD8   2F13                      Move.L    (A3), -(A7)
BDDA   486E FFFE                 Pea.L     $-2(A6)
BDDE   4EBA 095C                 Jsr       P_mCullPoints
BDE2   2F0B                      Move.L    A3, -(A7)
BDE4   3F2E FFFE                 Move      $-2(A6), -(A7)
BDE8   2F2E 0008                 Move.L    $8(A6), -(A7)
BDEC   4EBA 09A0                 Jsr       P_mPackRgn
BDF0   204B                      Move.L    A3, A0
BDF2   A023                      _DisposeHandle
BDF4   4CDF 1C08      L1805:     MoveM.L   (A7)+, D3/A2-A4
BDF8   4E5E                      Unlk      A6
BDFA   2E9F                      Move.L    (A7)+, (A7)
BDFC   4E75                      Rts

                      P_tCopyRgn:
BDFE   4E56 0000                 Link      A6, #$0
BE02   206E 000C                 Move.L    $C(A6), A0
BE06   226E 0008                 Move.L    $8(A6), A1
BE0A   B3C8                      CmpA.L    A0, A1
BE0C   6736                      BEQ.B     L1809
BE0E   2050                      Move.L    (A0), A0
BE10   2251                      Move.L    (A1), A1
BE12   3010                      Move      (A0), D0
BE14   B051                      Cmp       (A1), D0
BE16   671E                      BEQ.B     L1806
BE18   48E7 9020                 MoveM.L   D0/D3/A2, -(A7)
BE1C   2F2E 0008                 Move.L    $8(A6), -(A7)
BE20   3F00                      Move      D0, -(A7)
BE22   4EBA C974                 Jsr       P_mSetHSize
BE26   4CDF 0409                 MoveM.L   (A7)+, D0/D3/A2
BE2A   206E 000C                 Move.L    $C(A6), A0
BE2E   226E 0008                 Move.L    $8(A6), A1
BE32   2050                      Move.L    (A0), A0
BE34   2251                      Move.L    (A1), A1
BE36   E448           L1806:     LsR       #$2, D0
BE38   6406                      BCC.B     L1808
BE3A   32D8                      Move      (A0)+, (A1)+
BE3C   6002                      Bra.B     L1808
BE3E   22D8           L1807:     Move.L    (A0)+, (A1)+
BE40   51C8 FFFC      L1808:     DBF       D0, L1807
BE44   4E5E           L1809:     Unlk      A6
BE46   205F                      Move.L    (A7)+, A0
BE48   504F                      AddQ      #$8, A7
BE4A   4ED0                      Jmp       (A0)

                      P_tSetEmptyRgn:
BE4C   205F                      Move.L    (A7)+, A0
BE4E   42A7                      Clr.L     -(A7)
BE50   42A7                      Clr.L     -(A7)
BE52   2F08                      Move.L    A0, -(A7)
BE54   4EFA 0002                 Jmp       P_tSetRectRgn

                      P_tSetRectRgn:
BE58   4E56 0000                 Link      A6, #$0
BE5C   48E7 1020                 MoveM.L   D3/A2, -(A7)
BE60   206E 0010                 Move.L    $10(A6), A0
BE64   2250                      Move.L    (A0), A1
BE66   700A                      MoveQ.L   #$A, D0
BE68   B051                      Cmp       (A1), D0
BE6A   6712                      BEQ.B     L1810
BE6C   2F08                      Move.L    A0, -(A7)
BE6E   3F00                      Move      D0, -(A7)
BE70   4EBA C926                 Jsr       P_mSetHSize
BE74   206E 0010                 Move.L    $10(A6), A0
BE78   2250                      Move.L    (A0), A1
BE7A   32BC 000A                 Move      #$A, (A1)
BE7E   236E 000C 0002 L1810:     Move.L    $C(A6), $2(A1)
BE84   236E 0008 0006            Move.L    $8(A6), $6(A1)
BE8A   3029 0004                 Move      $4(A1), D0
BE8E   B069 0008                 Cmp       $8(A1), D0
BE92   6C0A                      BGE.B     L1811
BE94   3029 0002                 Move      $2(A1), D0
BE98   B069 0006                 Cmp       $6(A1), D0
BE9C   6D08                      BLT.B     L1812
BE9E   42A9 0002      L1811:     Clr.L     $2(A1)
BEA2   42A9 0006                 Clr.L     $6(A1)
BEA6   4CDF 0408      L1812:     MoveM.L   (A7)+, D3/A2
BEAA   4E5E                      Unlk      A6
BEAC   205F                      Move.L    (A7)+, A0
BEAE   DEFC 000C                 AddA      #$C, A7
BEB2   4ED0                      Jmp       (A0)

                      P_tRectRgn:
BEB4   205F                      Move.L    (A7)+, A0
BEB6   225F                      Move.L    (A7)+, A1
BEB8   2F19                      Move.L    (A1)+, -(A7)
BEBA   2F19                      Move.L    (A1)+, -(A7)
BEBC   2F08                      Move.L    A0, -(A7)
BEBE   4EFA FF98                 Jmp       P_tSetRectRgn

                      P_tOffsetRgn:
BEC2   225F                      Move.L    (A7)+, A1
BEC4   321F                      Move      (A7)+, D1
BEC6   301F                      Move      (A7)+, D0
BEC8   205F                      Move.L    (A7)+, A0
BECA   2050                      Move.L    (A0), A0
BECC   5448                      AddQ      #$2, A0
BECE   D358                      Add       D1, (A0)+
BED0   D158                      Add       D0, (A0)+
BED2   D358                      Add       D1, (A0)+
BED4   D158                      Add       D0, (A0)+
BED6   0C68 000A FFF6            Cmp       #$A, $-A(A0)
BEDC   6714                      BEQ.B     L1815
BEDE   D358           L1813:     Add       D1, (A0)+
BEE0   D158           L1814:     Add       D0, (A0)+
BEE2   D158                      Add       D0, (A0)+
BEE4   0C50 7FFF                 Cmp       #$7FFF, (A0)
BEE8   66F6                      BNE.B     L1814
BEEA   5448                      AddQ      #$2, A0
BEEC   0C50 7FFF                 Cmp       #$7FFF, (A0)
BEF0   66EC                      BNE.B     L1813
BEF2   4ED1           L1815:     Jmp       (A1)

                      P_tInsetRgn:
BEF4   4E56 0000                 Link      A6, #$0
BEF8   48E7 1F38                 MoveM.L   D3-D7/A2-A4, -(A7)
BEFC   2C2E 0008                 Move.L    $8(A6), D6
BF00   672C                      BEQ.B     L1817
BF02   286E 000C                 Move.L    $C(A6), A4
BF06   2654                      Move.L    (A4), A3
BF08   3E1B                      Move      (A3)+, D7
BF0A   0C47 000A                 Cmp       #$A, D7
BF0E   6620                      BNE.B     L1818
BF10   2F0B                      Move.L    A3, -(A7)
BF12   2F06                      Move.L    D6, -(A7)
BF14   4EBA E1C0                 Jsr       P_tInsetRect
BF18   302B 0002                 Move      $2(A3), D0
BF1C   B06B 0006                 Cmp       $6(A3), D0
BF20   6C08                      BGE.B     L1816
BF22   3013                      Move      (A3), D0
BF24   B06B 0004                 Cmp       $4(A3), D0
BF28   6D04                      BLT.B     L1817
BF2A   429B           L1816:     Clr.L     (A3)+
BF2C   429B                      Clr.L     (A3)+
BF2E   6054           L1817:     Bra.B     L1822
BF30   DE47           L1818:     Add       D7, D7
BF32   42A7                      Clr.L     -(A7)
BF34   3F07                      Move      D7, -(A7)
BF36   4EBA C84C                 Jsr       P265
BF3A   265F                      Move.L    (A7)+, A3
BF3C   6106                      Bsr.B     P306
BF3E   4846                      Swap      D6
BF40   6102                      Bsr.B     P306
BF42   603C                      Bra.B     L1821

                      P306:
BF44   4267                      Clr       -(A7)
BF46   2F0C                      Move.L    A4, -(A7)
BF48   2F0C                      Move.L    A4, -(A7)
BF4A   2F0B                      Move.L    A3, -(A7)
BF4C   3F07                      Move      D7, -(A7)
BF4E   3F3C 0008                 Move      #$8, -(A7)
BF52   3F06                      Move      D6, -(A7)
BF54   50E7                      ST.B      -(A7)
BF56   4EBA 047E                 Jsr       P_mRgnOp
BF5A   3A1F                      Move      (A7)+, D5
BF5C   2053                      Move.L    (A3), A0
BF5E   3205                      Move      D5, D1
BF60   6006                      Bra.B     L1820
BF62   2010           L1819:     Move.L    (A0), D0
BF64   4840                      Swap      D0
BF66   20C0                      Move.L    D0, (A0)+
BF68   51C9 FFF8      L1820:     DBF       D1, L1819
BF6C   2F13                      Move.L    (A3), -(A7)
BF6E   3F05                      Move      D5, -(A7)
BF70   4EBA 0736                 Jsr       P_mSortPoints
BF74   2F0B                      Move.L    A3, -(A7)
BF76   3F05                      Move      D5, -(A7)
BF78   2F0C                      Move.L    A4, -(A7)
BF7A   4EBA 0812                 Jsr       P_mPackRgn
BF7E   4E75                      Rts
BF80   204B           L1821:     Move.L    A3, A0
BF82   A023                      _DisposeHandle
BF84   4CDF 1CF8      L1822:     MoveM.L   (A7)+, D3-D7/A2-A4
BF88   4E5E                      Unlk      A6
BF8A   205F                      Move.L    (A7)+, A0
BF8C   504F                      AddQ      #$8, A7
BF8E   4ED0                      Jmp       (A0)

                      P_tEmptyRgn:
BF90   205F                      Move.L    (A7)+, A0
BF92   225F                      Move.L    (A7)+, A1
BF94   2251                      Move.L    (A1), A1
BF96   4869 0002                 Pea.L     $2(A1)
BF9A   2F08                      Move.L    A0, -(A7)
BF9C   4EFA E10C                 Jmp       P_tEmptyRect

                      P_tEqualRgn:
BFA0   206F 0004                 Move.L    $4(A7), A0
BFA4   226F 0008                 Move.L    $8(A7), A1
BFA8   B3C8                      CmpA.L    A0, A1
BFAA   6722                      BEQ.B     L1825
BFAC   2050                      Move.L    (A0), A0
BFAE   2251                      Move.L    (A1), A1
BFB0   3010                      Move      (A0), D0
BFB2   3200                      Move      D0, D1
BFB4   E449                      LsR       #$2, D1
BFB6   5341                      SubQ      #$1, D1
BFB8   B388           L1823:     CmpM.L    (A0)+, (A1)+
BFBA   56C9 FFFC                 DBNE      D1, L1823
BFBE   6612                      BNE.B     L1826
BFC0   0240 0003                 And       #$3, D0
BFC4   6708                      BEQ.B     L1825
BFC6   B308           L1824:     CmpM.B    (A0)+, (A1)+
BFC8   6608                      BNE.B     L1826
BFCA   5340                      SubQ      #$1, D0
BFCC   66F8                      BNE.B     L1824
BFCE   7001           L1825:     MoveQ.L   #$1, D0
BFD0   6002                      Bra.B     L1827
BFD2   4280           L1826:     Clr.L     D0
BFD4   1F40 000C      L1827:     Move.B    D0, $C(A7)
BFD8   205F                      Move.L    (A7)+, A0
BFDA   504F                      AddQ      #$8, A7
BFDC   4ED0                      Jmp       (A0)

                      P_tSectRgn:
BFDE   7000                      MoveQ.L   #$0, D0
BFE0   600C                      Bra.B     P_mDoRgnOp

                      P_tUnionRgn:
BFE2   7004                      MoveQ.L   #$4, D0
BFE4   6008                      Bra.B     P_mDoRgnOp

                      P_tDiffRgn:
BFE6   7002                      MoveQ.L   #$2, D0
BFE8   6004                      Bra.B     P_mDoRgnOp

                      P_tXOrRgn:
BFEA   7006                      MoveQ.L   #$6, D0
BFEC   4E71                      Nop

                      P_mDoRgnOp:
BFEE   4E56 FFF8                 Link      A6, #$-8
BFF2   48E7 1F38                 MoveM.L   D3-D7/A2-A4, -(A7)
BFF6   3A00                      Move      D0, D5
BFF8   246E 0010                 Move.L    $10(A6), A2
BFFC   266E 000C                 Move.L    $C(A6), A3
C000   286E 0008                 Move.L    $8(A6), A4
C004   7E02                      MoveQ.L   #$2, D7
C006   4227                      Clr.B     -(A7)
C008   2F0A                      Move.L    A2, -(A7)
C00A   2F0B                      Move.L    A3, -(A7)
C00C   4EBA FF92                 Jsr       P_tEqualRgn
C010   4A1F                      Tst.B     (A7)+
C012   6716                      BEQ.B     L1831
C014   CA47                      And       D7, D5
C016   660A                      BNE.B     L1830
C018   2F0A           L1829:     Move.L    A2, -(A7)
C01A   2F0C                      Move.L    A4, -(A7)
C01C   4EBA FDE0                 Jsr       P_tCopyRgn
C020   6052                      Bra.B     L1834
C022   2F0C           L1830:     Move.L    A4, -(A7)
C024   4EBA FE26                 Jsr       P_tSetEmptyRgn
C028   604A                      Bra.B     L1834
C02A   2052           L1831:     Move.L    (A2), A0
C02C   2253                      Move.L    (A3), A1
C02E   BA47                      Cmp       D7, D5
C030   6E44                      BGT.B     L1835
C032   6D0A                      BLT.B     L1832
C034   3029 0004                 Move      $4(A1), D0
C038   B069 0008                 Cmp       $8(A1), D0
C03C   6CDA                      BGE.B     L1829
C03E   4868 0002      L1832:     Pea.L     $2(A0)
C042   4869 0002                 Pea.L     $2(A1)
C046   3F07                      Move      D7, -(A7)
C048   486E FFF8                 Pea.L     $-8(A6)
C04C   4EBA E0C2                 Jsr       P_mRSect
C050   6606                      BNE.B     L1833
C052   4A45                      Tst       D5
C054   67CC                      BEQ.B     L1830
C056   60C0                      Bra.B     L1829
C058   2052           L1833:     Move.L    (A2), A0
C05A   2253                      Move.L    (A3), A1
C05C   4A45                      Tst       D5
C05E   662E                      BNE.B     L1836
C060   700A                      MoveQ.L   #$A, D0
C062   B050                      Cmp       (A0), D0
C064   6628                      BNE.B     L1836
C066   B051                      Cmp       (A1), D0
C068   6624                      BNE.B     L1836
C06A   2F0C                      Move.L    A4, -(A7)
C06C   486E FFF8                 Pea.L     $-8(A6)
C070   4EBA FE42                 Jsr       P_tRectRgn
C074   6050           L1834:     Bra.B     L1837
C076   3029 0004      L1835:     Move      $4(A1), D0
C07A   B069 0008                 Cmp       $8(A1), D0
C07E   6C98                      BGE.B     L1829
C080   3028 0004                 Move      $4(A0), D0
C084   B068 0008                 Cmp       $8(A0), D0
C088   6D04                      BLT.B     L1836
C08A   244B                      Move.L    A3, A2
C08C   608A                      Bra.B     L1829
C08E   3810           L1836:     Move      (A0), D4
C090   D851                      Add       (A1), D4
C092   D844                      Add       D4, D4
C094   42A7                      Clr.L     -(A7)
C096   3F04                      Move      D4, -(A7)
C098   4EBA C6EA                 Jsr       P265
C09C   265F                      Move.L    (A7)+, A3
C09E   4267                      Clr       -(A7)
C0A0   2F2E 0010                 Move.L    $10(A6), -(A7)
C0A4   2F2E 000C                 Move.L    $C(A6), -(A7)
C0A8   2F0B                      Move.L    A3, -(A7)
C0AA   3F04                      Move      D4, -(A7)
C0AC   3F05                      Move      D5, -(A7)
C0AE   4267                      Clr       -(A7)
C0B0   50E7                      ST.B      -(A7)
C0B2   4EBA 0322                 Jsr       P_mRgnOp
C0B6   3C1F                      Move      (A7)+, D6
C0B8   2F0B                      Move.L    A3, -(A7)
C0BA   3F06                      Move      D6, -(A7)
C0BC   2F0C                      Move.L    A4, -(A7)
C0BE   4EBA 06CE                 Jsr       P_mPackRgn
C0C2   204B                      Move.L    A3, A0
C0C4   A023                      _DisposeHandle
C0C6   4CDF 1CF8      L1837:     MoveM.L   (A7)+, D3-D7/A2-A4
C0CA   4E5E                      Unlk      A6
C0CC   205F                      Move.L    (A7)+, A0
C0CE   DEFC 000C                 AddA      #$C, A7
C0D2   4ED0                      Jmp       (A0)

                      P_tPtInRgn:
C0D4   4E56 0000                 Link      A6, #$0
C0D8   2F03                      Move.L    D3, -(A7)
C0DA   322E 000E                 Move      $E(A6), D1
C0DE   342E 000C                 Move      $C(A6), D2
C0E2   4243                      Clr       D3
C0E4   206E 0008                 Move.L    $8(A6), A0
C0E8   2050                      Move.L    (A0), A0
C0EA   B268 0004                 Cmp       $4(A0), D1
C0EE   6D34                      BLT.B     L1841
C0F0   B268 0008                 Cmp       $8(A0), D1
C0F4   6C2E                      BGE.B     L1841
C0F6   B468 0002                 Cmp       $2(A0), D2
C0FA   6D28                      BLT.B     L1841
C0FC   B468 0006                 Cmp       $6(A0), D2
C100   6C22                      BGE.B     L1841
C102   0C50 000A                 Cmp       #$A, (A0)
C106   6604                      BNE.B     L1838
C108   4643                      Not       D3
C10A   6018                      Bra.B     L1841
C10C   41E8 000A      L1838:     Lea.L     $A(A0), A0
C110   B458           L1839:     Cmp       (A0)+, D2
C112   6D10                      BLT.B     L1841
C114   3018           L1840:     Move      (A0)+, D0
C116   0C40 7FFF                 Cmp       #$7FFF, D0
C11A   67F4                      BEQ.B     L1839
C11C   B041                      Cmp       D1, D0
C11E   6EF4                      BGT.B     L1840
C120   4643                      Not       D3
C122   60F0                      Bra.B     L1840
C124   4403           L1841:     Neg.B     D3
C126   1D43 0010                 Move.B    D3, $10(A6)
C12A   261F                      Move.L    (A7)+, D3
C12C   4E5E                      Unlk      A6
C12E   205F                      Move.L    (A7)+, A0
C130   504F                      AddQ      #$8, A7
C132   4ED0                      Jmp       (A0)

                      P_tRectInRgn:
C134   4E56 FFDC                 Link      A6, #$-24
C138   48E7 FF7C                 MoveM.L   D0-D7/A1-A5, -(A7)
C13C   2D4F FFF4                 Move.L    A7, $-C(A6)
C140   422E 0010                 Clr.B     $10(A6)
C144   226E 0008                 Move.L    $8(A6), A1
C148   2251                      Move.L    (A1), A1
C14A   2F2E 000C                 Move.L    $C(A6), -(A7)
C14E   4869 0002                 Pea.L     $2(A1)
C152   3F3C 0002                 Move      #$2, -(A7)
C156   486E FFF8                 Pea.L     $-8(A6)
C15A   4EBA DFB4                 Jsr       P_mRSect
C15E   674A                      BEQ.B     L1845
C160   0C51 000A                 Cmp       #$A, (A1)
C164   6740                      BEQ.B     L1844
C166   2049                      Move.L    A1, A0
C168   43EE FFDC                 Lea.L     $-24(A6), A1
C16C   302E FFFA                 Move      $-6(A6), D0
C170   322E FFFE                 Move      $-2(A6), D1
C174   3400                      Move      D0, D2
C176   4EBA 014E                 Jsr       P_mInitRgn
C17A   3A29 000C                 Move      $C(A1), D5
C17E   302E FFF8                 Move      $-8(A6), D0
C182   4EBA 017A                 Jsr       P_mSeekRgn
C186   3C2E FFFC                 Move      $-4(A6), D6
C18A   2069 0008      L1842:     Move.L    $8(A1), A0
C18E   3005                      Move      D5, D0
C190   4A98           L1843:     Tst.L     (A0)+
C192   56C8 FFFC                 DBNE      D0, L1843
C196   660E                      BNE.B     L1844
C198   3029 0010                 Move      $10(A1), D0
C19C   BC40                      Cmp       D0, D6
C19E   6F0A                      BLE.B     L1845
C1A0   4EBA 015C                 Jsr       P_mSeekRgn
C1A4   60E4                      Bra.B     L1842
C1A6   522E 0010      L1844:     AddQ      #$1, $10(A6)
C1AA   2E6E FFF4      L1845:     Move.L    $-C(A6), A7
C1AE   4CDF 3EFF                 MoveM.L   (A7)+, D0-D7/A1-A5
C1B2   4E5E                      Unlk      A6
C1B4   205F                      Move.L    (A7)+, A0
C1B6   504F                      AddQ      #$8, A7
C1B8   4ED0                      Jmp       (A0)

                      P_mTrimRect:
C1BA   4E56 FFD6                 Link      A6, #$-2A
C1BE   48E7 E040                 MoveM.L   D0-D2/A1, -(A7)
C1C2   41EE FFE8                 Lea.L     $-18(A6), A0
C1C6   2D48 FFE4                 Move.L    A0, $-1C(A6)
C1CA   43EE FFDA                 Lea.L     $-26(A6), A1
C1CE   2D49 FFD6                 Move.L    A1, $-2A(A6)
C1D2   32FC 000A                 Move      #$A, (A1)+
C1D6   206E 0008                 Move.L    $8(A6), A0
C1DA   22D8                      Move.L    (A0)+, (A1)+
C1DC   22D8                      Move.L    (A0)+, (A1)+
C1DE   4267                      Clr       -(A7)
C1E0   2F2E 000C                 Move.L    $C(A6), -(A7)
C1E4   486E FFD6                 Pea.L     $-2A(A6)
C1E8   486E FFE4                 Pea.L     $-1C(A6)
C1EC   3F3C 0018                 Move      #$18, -(A7)
C1F0   42A7                      Clr.L     -(A7)
C1F2   4227                      Clr.B     -(A7)
C1F4   4EBA 01E0                 Jsr       P_mRgnOp
C1F8   206E 0008                 Move.L    $8(A6), A0
C1FC   0C5F 0004                 Cmp       #$4, (A7)+
C200   660A                      BNE.B     L1846
C202   20EE FFE8                 Move.L    $-18(A6), (A0)+
C206   20EE FFF4                 Move.L    $-C(A6), (A0)+
C20A   9040                      Sub       D0, D0
C20C   4CDF 0207      L1846:     MoveM.L   (A7)+, D0-D2/A1
C210   4E5E                      Unlk      A6
C212   205F                      Move.L    (A7)+, A0
C214   504F                      AddQ      #$8, A7
C216   4ED0                      Jmp       (A0)

                      P_tMapRgn:
C218   4E56 FFFA                 Link      A6, #$-6
C21C   48E7 1338                 MoveM.L   D3/D6-D7/A2-A4, -(A7)
C220   206E 000C                 Move.L    $C(A6), A0
C224   226E 0008                 Move.L    $8(A6), A1
C228   B388                      CmpM.L    (A0)+, (A1)+
C22A   6604                      BNE.B     L1847
C22C   B388                      CmpM.L    (A0)+, (A1)+
C22E   671C                      BEQ.B     L1848
C230   286E 0010      L1847:     Move.L    $10(A6), A4
C234   2054                      Move.L    (A4), A0
C236   0C50 000A                 Cmp       #$A, (A0)
C23A   6612                      BNE.B     L1849
C23C   4868 0002                 Pea.L     $2(A0)
C240   2F2E 000C                 Move.L    $C(A6), -(A7)
C244   2F2E 0008                 Move.L    $8(A6), -(A7)
C248   4EBA 2382                 Jsr       P_tMapRect
C24C   606A           L1848:     Bra.B     L1852
C24E   42A7           L1849:     Clr.L     -(A7)
C250   3F3C 0100                 Move      #$100, -(A7)
C254   3D57 FFFC                 Move      (A7), $-4(A6)
C258   4EBA C52A                 Jsr       P265
C25C   265F                      Move.L    (A7)+, A3
C25E   426E FFFE                 Clr       $-2(A6)
C262   2F0C                      Move.L    A4, -(A7)
C264   2F0B                      Move.L    A3, -(A7)
C266   486E FFFE                 Pea.L     $-2(A6)
C26A   486E FFFC                 Pea.L     $-4(A6)
C26E   4EBA 05E6                 Jsr       P_mPutRgn
C272   3E2E FFFE                 Move      $-2(A6), D7
C276   E44F                      LsR       #$2, D7
C278   3C07                      Move      D7, D6
C27A   2453                      Move.L    (A3), A2
C27C   6010                      Bra.B     L1851
C27E   2F0A           L1850:     Move.L    A2, -(A7)
C280   2F2E 000C                 Move.L    $C(A6), -(A7)
C284   2F2E 0008                 Move.L    $8(A6), -(A7)
C288   4EBA 22E0                 Jsr       P_tMapPt
C28C   588A                      AddQ      #$4, A2
C28E   51CE FFEE      L1851:     DBF       D6, L1850
C292   2F13                      Move.L    (A3), -(A7)
C294   3F07                      Move      D7, -(A7)
C296   4EBA 0410                 Jsr       P_mSortPoints
C29A   2F13                      Move.L    (A3), -(A7)
C29C   3D47 FFFA                 Move      D7, $-6(A6)
C2A0   486E FFFA                 Pea.L     $-6(A6)
C2A4   4EBA 0496                 Jsr       P_mCullPoints
C2A8   2F0B                      Move.L    A3, -(A7)
C2AA   3F2E FFFA                 Move      $-6(A6), -(A7)
C2AE   2F0C                      Move.L    A4, -(A7)
C2B0   4EBA 04DC                 Jsr       P_mPackRgn
C2B4   204B                      Move.L    A3, A0
C2B6   A023                      _DisposeHandle
C2B8   4CDF 1CC8      L1852:     MoveM.L   (A7)+, D3/D6-D7/A2-A4
C2BC   4E5E                      Unlk      A6
C2BE   205F                      Move.L    (A7)+, A0
C2C0   DEFC 000C                 AddA      #$C, A7
C2C4   4ED0                      Jmp       (A0)

                      P_mInitRgn:
C2C6   3340 0012                 Move      D0, $12(A1)
C2CA   3341 0014                 Move      D1, $14(A1)
C2CE   3342 0016                 Move      D2, $16(A1)
C2D2   2288                      Move.L    A0, (A1)
C2D4   337C 8001 000E            Move      #$-7FFF, $E(A1)
C2DA   3368 0002 0010            Move      $2(A0), $10(A1)
C2E0   41E8 000A                 Lea.L     $A(A0), A0
C2E4   2348 0004                 Move.L    A0, $4(A1)
C2E8   205F                      Move.L    (A7)+, A0
C2EA   9242                      Sub       D2, D1
C2EC   EA49                      LsR       #$5, D1
C2EE   3341 000C                 Move      D1, $C(A1)
C2F2   42A7           L1853:     Clr.L     -(A7)
C2F4   51C9 FFFC                 DBF       D1, L1853
C2F8   234F 0008                 Move.L    A7, $8(A1)
C2FC   4ED0                      Jmp       (A0)

                      P_mSeekRgn:
C2FE   B069 0010                 Cmp       $10(A1), D0
C302   6C36                      BGE.B     L1856
C304   B069 000E                 Cmp       $E(A1), D0
C308   6D04                      BLT.B     L1854
C30A   4241                      Clr       D1
C30C   4E75                      Rts
C30E   2069 0008      L1854:     Move.L    $8(A1), A0
C312   3229 000C                 Move      $C(A1), D1
C316   4298           L1855:     Clr.L     (A0)+
C318   51C9 FFFC                 DBF       D1, L1855
C31C   2051                      Move.L    (A1), A0
C31E   3368 0002 0010            Move      $2(A0), $10(A1)
C324   337C 8001 000E            Move      #$-7FFF, $E(A1)
C32A   41E8 000A                 Lea.L     $A(A0), A0
C32E   2348 0004                 Move.L    A0, $4(A1)
C332   B069 0010                 Cmp       $10(A1), D0
C336   6D00 009A                 BLT       L1866
C33A   48E7 FE30      L1856:     MoveM.L   D0-D6/A2-A3, -(A7)
C33E   3400                      Move      D0, D2
C340   2469 0004                 Move.L    $4(A1), A2
C344   335A 000E      L1857:     Move      (A2)+, $E(A1)
C348   361A           L1858:     Move      (A2)+, D3
C34A   0C43 7FFF                 Cmp       #$7FFF, D3
C34E   676E                      BEQ.B     L1865
C350   381A                      Move      (A2)+, D4
C352   B869 0012                 Cmp       $12(A1), D4
C356   6FF0                      BLE.B     L1858
C358   B669 0014                 Cmp       $14(A1), D3
C35C   6CEA                      BGE.B     L1858
C35E   B669 0012                 Cmp       $12(A1), D3
C362   6C04                      BGE.B     L1859
C364   3629 0012                 Move      $12(A1), D3
C368   B869 0014      L1859:     Cmp       $14(A1), D4
C36C   6F04                      BLE.B     L1860
C36E   3829 0014                 Move      $14(A1), D4
C372   9669 0016      L1860:     Sub       $16(A1), D3
C376   9869 0016                 Sub       $16(A1), D4
C37A   41FA C0BC                 Lea.L     DT_mMaskTab, A0
C37E   700F                      MoveQ.L   #$F, D0
C380   3A03                      Move      D3, D5
C382   CA40                      And       D0, D5
C384   DA45                      Add       D5, D5
C386   3A30 5000                 Move      $0(A0,D5.W), D5
C38A   4645                      Not       D5
C38C   3C04                      Move      D4, D6
C38E   CC40                      And       D0, D6
C390   DC46                      Add       D6, D6
C392   3C30 6000                 Move      $0(A0,D6.W), D6
C396   E84B                      LsR       #$4, D3
C398   2669 0008                 Move.L    $8(A1), A3
C39C   D6C3                      AddA      D3, A3
C39E   D6C3                      AddA      D3, A3
C3A0   E84C                      LsR       #$4, D4
C3A2   9843                      Sub       D3, D4
C3A4   6E06                      BGT.B     L1861
C3A6   CC45                      And       D5, D6
C3A8   BD53                      Eor       D6, (A3)
C3AA   609C                      Bra.B     L1858
C3AC   BB5B           L1861:     Eor       D5, (A3)+
C3AE   6002                      Bra.B     L1863
C3B0   469B           L1862:     Not.L     (A3)+
C3B2   5544           L1863:     SubQ      #$2, D4
C3B4   6EFA                      BGT.B     L1862
C3B6   6D02                      BLT.B     L1864
C3B8   465B                      Not       (A3)+
C3BA   BD53           L1864:     Eor       D6, (A3)
C3BC   608A                      Bra.B     L1858
C3BE   234A 0004      L1865:     Move.L    A2, $4(A1)
C3C2   3352 0010                 Move      (A2), $10(A1)
C3C6   B469 0010                 Cmp       $10(A1), D2
C3CA   6C00 FF78                 BGE       L1857
C3CE   4CDF 0C7F                 MoveM.L   (A7)+, D0-D6/A2-A3
C3D2   7201           L1866:     MoveQ.L   #$1, D1
C3D4   4E75                      Rts

                      P_mRgnOp:
C3D6   4E56 FFAA                 Link      A6, #$-56
C3DA   48E7 1F38                 MoveM.L   D3-D7/A2-A4, -(A7)
C3DE   2D4F FFAA                 Move.L    A7, $-56(A6)
C3E2   45EE FFB2                 Lea.L     $-4E(A6), A2
C3E6   41EE 0018                 Lea.L     $18(A6), A0
C3EA   6100 01B2                 Bsr       P312
C3EE   2648                      Move.L    A0, A3
C3F0   41EE 0014                 Lea.L     $14(A6), A0
C3F4   6100 01A8                 Bsr       P312
C3F8   2848                      Move.L    A0, A4
C3FA   41FA 0200                 Lea.L     P_mSectScan, A0
C3FE   302E 000C                 Move      $C(A6), D0
C402   671C                      BEQ.B     L1867
C404   41FA 01FC                 Lea.L     P_mDiffScan, A0
C408   5540                      SubQ      #$2, D0
C40A   6714                      BEQ.B     L1867
C40C   41FA 01F8                 Lea.L     P_mUnionScan, A0
C410   5540                      SubQ      #$2, D0
C412   670C                      BEQ.B     L1867
C414   41FA 027C                 Lea.L     P_mXorScan, A0
C418   5540                      SubQ      #$2, D0
C41A   6704                      BEQ.B     L1867
C41C   41FA 022A                 Lea.L     P_mInsetScan, A0
C420   2D48 FFAE      L1867:     Move.L    A0, $-52(A6)
C424   200F                      Move.L    A7, D0
C426   90B8 0114                 Sub.L     (HeapEnd), D0
C42A   0480 0000 0400            Sub.L     #$400, D0
C430   0C80 0000 00C8            Cmp.L     #$C8, D0
C436   6C06                      BGE.B     L1868
C438   303C 0028                 Move      #$28, D0
C43C   600E                      Bra.B     L1870
C43E   81FC 0005      L1868:     DivS      #$5, D0
C442   6804                      BVC.B     L1869
C444   303C 7530                 Move      #$7530, D0
C448   0880 0000      L1869:     BClr.B    #$0, D0
C44C   9EC0           L1870:     SubA      D0, A7
C44E   2D4F FFFC                 Move.L    A7, $-4(A6)
C452   9EC0                      SubA      D0, A7
C454   2D4F FFF8                 Move.L    A7, $-8(A6)
C458   9EC0                      SubA      D0, A7
C45A   2D4F FFF4                 Move.L    A7, $-C(A6)
C45E   9EC0                      SubA      D0, A7
C460   2D4F FFF0                 Move.L    A7, $-10(A6)
C464   9EC0                      SubA      D0, A7
C466   2D4F FFEC                 Move.L    A7, $-14(A6)
C46A   206E 0010                 Move.L    $10(A6), A0
C46E   2050                      Move.L    (A0), A0
C470   2D48 FFE2                 Move.L    A0, $-1E(A6)
C474   026E FFF8 000E            And       #$-8, $E(A6)
C47A   D0EE 000E                 AddA      $E(A6), A0
C47E   2D48 FFDE                 Move.L    A0, $-22(A6)
C482   206E FFFC                 Move.L    $-4(A6), A0
C486   2808                      Move.L    A0, D4
C488   303C 7FFF                 Move      #$7FFF, D0
C48C   3080                      Move      D0, (A0)
C48E   206E FFF8                 Move.L    $-8(A6), A0
C492   2A08                      Move.L    A0, D5
C494   3080                      Move      D0, (A0)
C496   206E FFF4                 Move.L    $-C(A6), A0
C49A   2C08                      Move.L    A0, D6
C49C   3080                      Move      D0, (A0)
C49E   206E FFF0                 Move.L    $-10(A6), A0
C4A2   2E08                      Move.L    A0, D7
C4A4   3D5B FFEA                 Move      (A3)+, $-16(A6)
C4A8   3D5C FFE8                 Move      (A4)+, $-18(A6)
C4AC   0C6E 0008 000C            Cmp       #$8, $C(A6)
C4B2   6604                      BNE.B     L1871
C4B4   3D40 FFE8                 Move      D0, $-18(A6)
C4B8   302E FFEA      L1871:     Move      $-16(A6), D0
C4BC   B06E FFE8                 Cmp       $-18(A6), D0
C4C0   6720                      BEQ.B     L1872
C4C2   6E28                      BGT.B     L1873
C4C4   6102                      Bsr.B     P311
C4C6   603C                      Bra.B     L1874

                      P311:
C4C8   3D6E FFEA FFE6            Move      $-16(A6), $-1A(A6)
C4CE   204B                      Move.L    A3, A0
C4D0   2244                      Move.L    D4, A1
C4D2   2447                      Move.L    D7, A2
C4D4   4EBA 01BC                 Jsr       P_mXorScan
C4D8   2648                      Move.L    A0, A3
C4DA   3D5B FFEA                 Move      (A3)+, $-16(A6)
C4DE   C947                      Exg.L     D4, D7
C4E0   4E75                      Rts
C4E2   0C40 7FFF      L1872:     Cmp       #$7FFF, D0
C4E6   6700 00F2                 BEQ       L1880
C4EA   61DC                      Bsr.B     P311
C4EC   3D6E FFE8 FFE6 L1873:     Move      $-18(A6), $-1A(A6)
C4F2   204C                      Move.L    A4, A0
C4F4   2245                      Move.L    D5, A1
C4F6   2447                      Move.L    D7, A2
C4F8   4EBA 0198                 Jsr       P_mXorScan
C4FC   2848                      Move.L    A0, A4
C4FE   3D5C FFE8                 Move      (A4)+, $-18(A6)
C502   CF45                      Exg.L     D7, D5
C504   2044           L1874:     Move.L    D4, A0
C506   2245                      Move.L    D5, A1
C508   2447                      Move.L    D7, A2
C50A   342E 000A                 Move      $A(A6), D2
C50E   487A 0008                 Pea.L     E_402
C512   2F2E FFAE                 Move.L    $-52(A6), -(A7)
C516   4E75                      Rts

                      E_402:
C518   2047                      Move.L    D7, A0
C51A   2246                      Move.L    D6, A1
C51C   246E FFEC                 Move.L    $-14(A6), A2
C520   4EBA 0170                 Jsr       P_mXorScan
C524   CF46                      Exg.L     D7, D6
C526   206E FFEC                 Move.L    $-14(A6), A0
C52A   226E FFE2                 Move.L    $-1E(A6), A1
C52E   246E FFDE                 Move.L    $-22(A6), A2
C532   202E FFE6                 Move.L    $-1A(A6), D0
C536   6008                      Bra.B     L1876
C538   3018           L1875:     Move      (A0)+, D0
C53A   22C0                      Move.L    D0, (A1)+
C53C   3018                      Move      (A0)+, D0
C53E   22C0                      Move.L    D0, (A1)+
C540   B3CA           L1876:     CmpA.L    A2, A1
C542   654C                      BCS.B     L1877
C544   4A2E 0008                 Tst.B     $8(A6)
C548   6700 008C                 BEQ       L1879
C54C   2208                      Move.L    A0, D1
C54E   206E 0018                 Move.L    $18(A6), A0
C552   97D0                      SubA.L    (A0), A3
C554   206E 0014                 Move.L    $14(A6), A0
C558   99D0                      SubA.L    (A0), A4
C55A   206E 0010                 Move.L    $10(A6), A0
C55E   93D0                      SubA.L    (A0), A1
C560   95D0                      SubA.L    (A0), A2
C562   D4FC 0100                 AddA      #$100, A2
C566   48E7 E0E0                 MoveM.L   D0-D2/A0-A2, -(A7)
C56A   2F08                      Move.L    A0, -(A7)
C56C   3F0A                      Move      A2, -(A7)
C56E   4EBA C228                 Jsr       P_mSetHSize
C572   4CDF 0707                 MoveM.L   (A7)+, D0-D2/A0-A2
C576   206E 0018                 Move.L    $18(A6), A0
C57A   D7D0                      AddA.L    (A0), A3
C57C   206E 0014                 Move.L    $14(A6), A0
C580   D9D0                      AddA.L    (A0), A4
C582   206E 0010                 Move.L    $10(A6), A0
C586   D3D0                      AddA.L    (A0), A1
C588   D5D0                      AddA.L    (A0), A2
C58A   2D4A FFDE                 Move.L    A2, $-22(A6)
C58E   2041                      Move.L    D1, A0
C590   0C50 7FFF      L1877:     Cmp       #$7FFF, (A0)
C594   66A2                      BNE.B     L1875
C596   2D49 FFE2                 Move.L    A1, $-1E(A6)
C59A   6000 FF1C                 Bra       L1871

                      P312:
C59E   2250                      Move.L    (A0), A1
C5A0   2251                      Move.L    (A1), A1
C5A2   0C51 000A                 Cmp       #$A, (A1)
C5A6   6628                      BNE.B     L1878
C5A8   208A                      Move.L    A2, (A0)
C5AA   41EA FFFA                 Lea.L     $-6(A2), A0
C5AE   24C8                      Move.L    A0, (A2)+
C5B0   24E9 0002                 Move.L    $2(A1), (A2)+
C5B4   34E9 0008                 Move      $8(A1), (A2)+
C5B8   303C 7FFF                 Move      #$7FFF, D0
C5BC   34C0                      Move      D0, (A2)+
C5BE   34E9 0006                 Move      $6(A1), (A2)+
C5C2   34E9 0004                 Move      $4(A1), (A2)+
C5C6   34E9 0008                 Move      $8(A1), (A2)+
C5CA   34C0                      Move      D0, (A2)+
C5CC   34C0                      Move      D0, (A2)+
C5CE   2248                      Move.L    A0, A1
C5D0   41E9 000A      L1878:     Lea.L     $A(A1), A0
C5D4   4E75                      Rts
C5D6   2D49 FFE2      L1879:     Move.L    A1, $-1E(A6)
C5DA   202E FFE2      L1880:     Move.L    $-1E(A6), D0
C5DE   206E 0010                 Move.L    $10(A6), A0
C5E2   9090                      Sub.L     (A0), D0
C5E4   E448                      LsR       #$2, D0
C5E6   3D40 001C                 Move      D0, $1C(A6)
C5EA   2E6E FFAA                 Move.L    $-56(A6), A7
C5EE   4CDF 1CF8                 MoveM.L   (A7)+, D3-D7/A2-A4
C5F2   4E5E                      Unlk      A6
C5F4   205F                      Move.L    (A7)+, A0
C5F6   DEFC 0014                 AddA      #$14, A7
C5FA   4ED0                      Jmp       (A0)

                      P_mSectScan:
C5FC   4242                      Clr       D2
C5FE   4243                      Clr       D3
C600   6008                      Bra.B     L1882

                      P_mDiffScan:
C602   4242                      Clr       D2
C604   6002                      Bra.B     L1881

                      P_mUnionScan:
C606   74FF                      MoveQ.L   #$-1, D2
C608   76FF           L1881:     MoveQ.L   #$-1, D3
C60A   3018           L1882:     Move      (A0)+, D0
C60C   3219                      Move      (A1)+, D1
C60E   B041           L1883:     Cmp       D1, D0
C610   6D18                      BLT.B     L1885
C612   6E22                      BGT.B     L1887
C614   0C40 7FFF                 Cmp       #$7FFF, D0
C618   6728                      BEQ.B     L1889
C61A   B443                      Cmp       D3, D2
C61C   6602                      BNE.B     L1884
C61E   34C0                      Move      D0, (A2)+
C620   3018           L1884:     Move      (A0)+, D0
C622   4642                      Not       D2
C624   3219                      Move      (A1)+, D1
C626   4643                      Not       D3
C628   60E4                      Bra.B     L1883
C62A   4A43           L1885:     Tst       D3
C62C   6702                      BEQ.B     L1886
C62E   34C0                      Move      D0, (A2)+
C630   3018           L1886:     Move      (A0)+, D0
C632   4642                      Not       D2
C634   60D8                      Bra.B     L1883
C636   4A42           L1887:     Tst       D2
C638   6702                      BEQ.B     L1888
C63A   34C1                      Move      D1, (A2)+
C63C   3219           L1888:     Move      (A1)+, D1
C63E   4643                      Not       D3
C640   60CC                      Bra.B     L1883
C642   34FC 7FFF      L1889:     Move      #$7FFF, (A2)+
C646   4E75                      Rts

                      P_mInsetScan:
C648   4A42                      Tst       D2
C64A   6D18                      BLT.B     L1891
C64C   0C50 7FFF      L1890:     Cmp       #$7FFF, (A0)
C650   6734                      BEQ.B     L1896
C652   3018                      Move      (A0)+, D0
C654   3218                      Move      (A0)+, D1
C656   D042                      Add       D2, D0
C658   9242                      Sub       D2, D1
C65A   B041                      Cmp       D1, D0
C65C   6CEE                      BGE.B     L1890
C65E   34C0                      Move      D0, (A2)+
C660   34C1                      Move      D1, (A2)+
C662   60E8                      Bra.B     L1890
C664   327C 8001      L1891:     Move      #$-7FFF, A1
C668   6016                      Bra.B     L1895
C66A   3018           L1892:     Move      (A0)+, D0
C66C   3218                      Move      (A0)+, D1
C66E   D042                      Add       D2, D0
C670   9242                      Sub       D2, D1
C672   B049                      Cmp       A1, D0
C674   6E04                      BGT.B     L1893
C676   554A                      SubQ      #$2, A2
C678   6002                      Bra.B     L1894
C67A   34C0           L1893:     Move      D0, (A2)+
C67C   34C1           L1894:     Move      D1, (A2)+
C67E   3241                      Move      D1, A1
C680   0C50 7FFF      L1895:     Cmp       #$7FFF, (A0)
C684   66E4                      BNE.B     L1892
C686   34FC 7FFF      L1896:     Move      #$7FFF, (A2)+
C68A   4E75                      Rts
C68C   0C40 7FFF      L1897:     Cmp       #$7FFF, D0
C690   67F4                      BEQ.B     L1896

                      P_mXorScan:
C692   3018                      Move      (A0)+, D0
C694   3219                      Move      (A1)+, D1
C696   B041           L1898:     Cmp       D1, D0
C698   67F2                      BEQ.B     L1897
C69A   6D06                      BLT.B     L1899
C69C   34C1                      Move      D1, (A2)+
C69E   3219                      Move      (A1)+, D1
C6A0   60F4                      Bra.B     L1898
C6A2   34C0           L1899:     Move      D0, (A2)+
C6A4   3018                      Move      (A0)+, D0
C6A6   60EE                      Bra.B     L1898

                      P_mSortPoints:
C6A8   4E56 0000                 Link      A6, #$0
C6AC   48E7 1838                 MoveM.L   D3-D4/A2-A4, -(A7)
C6B0   266E 000A                 Move.L    $A(A6), A3
C6B4   360B                      Move      A3, D3
C6B6   0243 0003                 And       #$3, D3
C6BA   4280                      Clr.L     D0
C6BC   302E 0008                 Move      $8(A6), D0
C6C0   6F6E                      BLE.B     L1911
C6C2   E588                      LsL.L     #$2, D0
C6C4   284B                      Move.L    A3, A4
C6C6   D9C0                      AddA.L    D0, A4
C6C8   594C                      SubQ      #$4, A4
C6CA   280F                      Move.L    A7, D4
C6CC   48E7 0018                 MoveM.L   A3-A4, -(A7)
C6D0   4CDF 1800      L1900:     MoveM.L   (A7)+, A3-A4
C6D4   224B           L1901:     Move.L    A3, A1
C6D6   244C                      Move.L    A4, A2
C6D8   200B                      Move.L    A3, D0
C6DA   D08C                      Add.L     A4, D0
C6DC   E290                      RXR.L     #$1, D0
C6DE   0240 FFFC                 And       #$-4, D0
C6E2   8043                      Or        D3, D0
C6E4   2040                      Move.L    D0, A0
C6E6   3228 0002                 Move      $2(A0), D1
C6EA   3410                      Move      (A0), D2
C6EC   6002           L1902:     Bra.B     L1904
C6EE   5849           L1903:     AddQ      #$4, A1
C6F0   B451           L1904:     Cmp       (A1), D2
C6F2   6EFA                      BGT.B     L1903
C6F4   6D06                      BLT.B     L1905
C6F6   B269 0002                 Cmp       $2(A1), D1
C6FA   6EF2                      BGT.B     L1903
C6FC   6002           L1905:     Bra.B     L1907
C6FE   594A           L1906:     SubQ      #$4, A2
C700   B452           L1907:     Cmp       (A2), D2
C702   6DFA                      BLT.B     L1906
C704   6E06                      BGT.B     L1908
C706   B26A 0002                 Cmp       $2(A2), D1
C70A   6DF2                      BLT.B     L1906
C70C   B3CA           L1908:     CmpA.L    A2, A1
C70E   6E0A                      BGT.B     L1909
C710   2011                      Move.L    (A1), D0
C712   2292                      Move.L    (A2), (A1)
C714   2480                      Move.L    D0, (A2)
C716   5849                      AddQ      #$4, A1
C718   594A                      SubQ      #$4, A2
C71A   B3CA           L1909:     CmpA.L    A2, A1
C71C   63CE                      BLS.B     L1902
C71E   B3CC                      CmpA.L    A4, A1
C720   6404                      BCC.B     L1910
C722   48E7 0048                 MoveM.L   A1/A4, -(A7)
C726   284A           L1910:     Move.L    A2, A4
C728   B7CC                      CmpA.L    A4, A3
C72A   65A8                      BCS.B     L1901
C72C   BFC4                      CmpA.L    D4, A7
C72E   66A0                      BNE.B     L1900
C730   4CDF 1C18      L1911:     MoveM.L   (A7)+, D3-D4/A2-A4
C734   4E5E                      Unlk      A6
C736   205F                      Move.L    (A7)+, A0
C738   5C4F                      AddQ      #$6, A7
C73A   4ED0                      Jmp       (A0)

                      P_mCullPoints:
C73C   4E56 0000                 Link      A6, #$0
C740   48E7 FF7C                 MoveM.L   D0-D7/A1-A5, -(A7)
C744   206E 0008                 Move.L    $8(A6), A0
C748   3010                      Move      (A0), D0
C74A   6F00 0036                 BLE       L1916
C74E   226E 000C                 Move.L    $C(A6), A1
C752   2649                      Move.L    A1, A3
C754   48C0                      Ext.L     D0
C756   E588                      LsL.L     #$2, D0
C758   D7C0                      AddA.L    D0, A3
C75A   594B                      SubQ      #$4, A3
C75C   2A09                      Move.L    A1, D5
C75E   2449                      Move.L    A1, A2
C760   600C                      Bra.B     L1914
C762   5849           L1912:     AddQ      #$4, A1
C764   6008                      Bra.B     L1914
C766   2019           L1913:     Move.L    (A1)+, D0
C768   B091                      Cmp.L     (A1), D0
C76A   67F6                      BEQ.B     L1912
C76C   24C0                      Move.L    D0, (A2)+
C76E   B3CB           L1914:     CmpA.L    A3, A1
C770   6DF4                      BLT.B     L1913
C772   6E02                      BGT.B     L1915
C774   24D9                      Move.L    (A1)+, (A2)+
C776   200A           L1915:     Move.L    A2, D0
C778   9085                      Sub.L     D5, D0
C77A   E448                      LsR       #$2, D0
C77C   206E 0008                 Move.L    $8(A6), A0
C780   3080                      Move      D0, (A0)
C782   4CDF 3EFF      L1916:     MoveM.L   (A7)+, D0-D7/A1-A5
C786   4E5E                      Unlk      A6
C788   205F                      Move.L    (A7)+, A0
C78A   504F                      AddQ      #$8, A7
C78C   4ED0                      Jmp       (A0)

                      P_mPackRgn:
C78E   4E56 FFF8                 Link      A6, #$-8
C792   48E7 FF78                 MoveM.L   D0-D7/A1-A4, -(A7)
C796   286E 000E                 Move.L    $E(A6), A4
C79A   266E 0008                 Move.L    $8(A6), A3
C79E   3C2E 000C                 Move      $C(A6), D6
C7A2   2253                      Move.L    (A3), A1
C7A4   3A11                      Move      (A1), D5
C7A6   2054                      Move.L    (A4), A0
C7A8   7E0A                      MoveQ.L   #$A, D7
C7AA   42AE FFF8                 Clr.L     $-8(A6)
C7AE   42AE FFFC                 Clr.L     $-4(A6)
C7B2   0C46 0004                 Cmp       #$4, D6
C7B6   6E0E                      BGT.B     L1917
C7B8   6D76                      BLT.B     L1924
C7BA   2D50 FFF8                 Move.L    (A0), $-8(A6)
C7BE   2D68 000C FFFC            Move.L    $C(A0), $-4(A6)
C7C4   606A                      Bra.B     L1924
C7C6   3D50 FFF8      L1917:     Move      (A0), $-8(A6)
C7CA   3228 0002                 Move      $2(A0), D1
C7CE   3401                      Move      D1, D2
C7D0   3606                      Move      D6, D3
C7D2   5343           L1918:     SubQ      #$1, D3
C7D4   6D12                      BLT.B     L1920
C7D6   2018                      Move.L    (A0)+, D0
C7D8   B041                      Cmp       D1, D0
C7DA   6C04                      BGE.B     L1919
C7DC   3200                      Move      D0, D1
C7DE   60F2                      Bra.B     L1918
C7E0   B042           L1919:     Cmp       D2, D0
C7E2   6FEE                      BLE.B     L1918
C7E4   3400                      Move      D0, D2
C7E6   60EA                      Bra.B     L1918
C7E8   3D41 FFFA      L1920:     Move      D1, $-6(A6)
C7EC   3D42 FFFE                 Move      D2, $-2(A6)
C7F0   3D68 FFFC FFFC            Move      $-4(A0), $-4(A6)
C7F6   7A03                      MoveQ.L   #$3, D5
C7F8   DA46                      Add       D6, D5
C7FA   E54D                      LsL       #$2, D5
C7FC   2F0B                      Move.L    A3, -(A7)
C7FE   3F05                      Move      D5, -(A7)
C800   4EBA BF96                 Jsr       P_mSetHSize
C804   2054                      Move.L    (A4), A0
C806   2253                      Move.L    (A3), A1
C808   D2C7                      AddA      D7, A1
C80A   5346                      SubQ      #$1, D6
C80C   3018                      Move      (A0)+, D0
C80E   323C 7FFF                 Move      #$7FFF, D1
C812   600A                      Bra.B     L1922
C814   B058           L1921:     Cmp       (A0)+, D0
C816   6708                      BEQ.B     L1923
C818   32C1                      Move      D1, (A1)+
C81A   3028 FFFE                 Move      $-2(A0), D0
C81E   32C0           L1922:     Move      D0, (A1)+
C820   32D8           L1923:     Move      (A0)+, (A1)+
C822   51CE FFF0                 DBF       D6, L1921
C826   32C1                      Move      D1, (A1)+
C828   32C1                      Move      D1, (A1)+
C82A   2053                      Move.L    (A3), A0
C82C   93C8                      SubA.L    A0, A1
C82E   3E09                      Move      A1, D7
C830   2053           L1924:     Move.L    (A3), A0
C832   30C7                      Move      D7, (A0)+
C834   20EE FFF8                 Move.L    $-8(A6), (A0)+
C838   20EE FFFC                 Move.L    $-4(A6), (A0)+
C83C   BA47                      Cmp       D7, D5
C83E   6708                      BEQ.B     L1925
C840   2F0B                      Move.L    A3, -(A7)
C842   3F07                      Move      D7, -(A7)
C844   4EBA BF52                 Jsr       P_mSetHSize
C848   4CDF 1EFF      L1925:     MoveM.L   (A7)+, D0-D7/A1-A4
C84C   4E5E                      Unlk      A6
C84E   205F                      Move.L    (A7)+, A0
C850   DEFC 000A                 AddA      #$A, A7
C854   4ED0                      Jmp       (A0)

                      P_mPutRgn:
C856   4E56 0000                 Link      A6, #$0
C85A   48E7 0138                 MoveM.L   D7/A2-A4, -(A7)
C85E   286E 0010                 Move.L    $10(A6), A4
C862   266E 0014                 Move.L    $14(A6), A3
C866   246E 000C                 Move.L    $C(A6), A2
C86A   2053                      Move.L    (A3), A0
C86C   3E10                      Move      (A0), D7
C86E   DE47                      Add       D7, D7
C870   DE52                      Add       (A2), D7
C872   226E 0008                 Move.L    $8(A6), A1
C876   BE51                      Cmp       (A1), D7
C878   6F14                      BLE.B     L1926
C87A   0647 0100                 Add       #$100, D7
C87E   3287                      Move      D7, (A1)
C880   2F0C                      Move.L    A4, -(A7)
C882   3F07                      Move      D7, -(A7)
C884   4EBA BF12                 Jsr       P_mSetHSize
C888   2053                      Move.L    (A3), A0
C88A   246E 000C                 Move.L    $C(A6), A2
C88E   2254           L1926:     Move.L    (A4), A1
C890   D2D2                      AddA      (A2), A1
C892   0C50 000A                 Cmp       #$A, (A0)
C896   6608                      BNE.B     L1927
C898   5448                      AddQ      #$2, A0
C89A   22D8                      Move.L    (A0)+, (A1)+
C89C   22D8                      Move.L    (A0)+, (A1)+
C89E   601A                      Bra.B     L1930
C8A0   41E8 000A      L1927:     Lea.L     $A(A0), A0
C8A4   2E18           L1928:     Move.L    (A0)+, D7
C8A6   22C7           L1929:     Move.L    D7, (A1)+
C8A8   3E18                      Move      (A0)+, D7
C8AA   22C7                      Move.L    D7, (A1)+
C8AC   3E18                      Move      (A0)+, D7
C8AE   0C47 7FFF                 Cmp       #$7FFF, D7
C8B2   66F2                      BNE.B     L1929
C8B4   0C50 7FFF                 Cmp       #$7FFF, (A0)
C8B8   66EA                      BNE.B     L1928
C8BA   93D4           L1930:     SubA.L    (A4), A1
C8BC   3489                      Move      A1, (A2)
C8BE   4CDF 1C80                 MoveM.L   (A7)+, D7/A2-A4
C8C2   4E5E                      Unlk      A6
C8C4   205F                      Move.L    (A7)+, A0
C8C6   DEFC 0010                 AddA      #$10, A7
C8CA   4ED0                      Jmp       (A0)

                      P_tStdBits:
C8CC   4E56 FEEA                 Link      A6, #$-116
C8D0   48E7 1F38                 MoveM.L   D3-D7/A2-A4, -(A7)
C8D4   4EBA 1B72                 Jsr       P_mCheckPic
C8D8   6F00 0132                 BLE       L1943
C8DC   7C08                      MoveQ.L   #$8, D6
C8DE   206E 0016                 Move.L    $16(A6), A0
C8E2   43EE FFF2                 Lea.L     $-E(A6), A1
C8E6   2650                      Move.L    (A0), A3
C8E8   3828 0004                 Move      $4(A0), D4
C8EC   2368 0006 0006            Move.L    $6(A0), $6(A1)
C8F2   2368 000A 000A            Move.L    $A(A0), $A(A1)
C8F8   206E 0012                 Move.L    $12(A6), A0
C8FC   3010                      Move      (A0), D0
C8FE   9069 0006                 Sub       $6(A1), D0
C902   6F08                      BLE.B     L1931
C904   D169 0006                 Add       D0, $6(A1)
C908   C0C4                      MulU      D4, D0
C90A   D7C0                      AddA.L    D0, A3
C90C   3028 0004      L1931:     Move      $4(A0), D0
C910   B069 000A                 Cmp       $A(A1), D0
C914   6C04                      BGE.B     L1932
C916   3340 000A                 Move      D0, $A(A1)
C91A   3028 0002      L1932:     Move      $2(A0), D0
C91E   9069 0008                 Sub       $8(A1), D0
C922   6F0A                      BLE.B     L1933
C924   E648                      LsR       #$3, D0
C926   D6C0                      AddA      D0, A3
C928   E748                      LsL       #$3, D0
C92A   D169 0008                 Add       D0, $8(A1)
C92E   3028 0006      L1933:     Move      $6(A0), D0
C932   9069 0008                 Sub       $8(A1), D0
C936   5E40                      AddQ      #$7, D0
C938   E648                      LsR       #$3, D0
C93A   E748                      LsL       #$3, D0
C93C   D069 0008                 Add       $8(A1), D0
C940   B069 000C                 Cmp       $C(A1), D0
C944   6C04                      BGE.B     L1934
C946   3340 000C                 Move      D0, $C(A1)
C94A   3A29 000C      L1934:     Move      $C(A1), D5
C94E   9A69 0008                 Sub       $8(A1), D5
C952   0645 000F                 Add       #$F, D5
C956   E84D                      LsR       #$4, D5
C958   6F00 00B0                 BLE       L1942
C95C   DA45                      Add       D5, D5
C95E   3345 0004                 Move      D5, $4(A1)
C962   1F3C 0090                 Move.B    #$-70, -(A7)
C966   4AAE 0008                 Tst.L     $8(A6)
C96A   6702                      BEQ.B     L1935
C96C   5217                      AddQ      #$1, (A7)
C96E   BA46           L1935:     Cmp       D6, D5
C970   6D02                      BLT.B     L1936
C972   5017                      AddQ      #$8, (A7)
C974   4EBA 1934      L1936:     Jsr       P_mPutPicByte
C978   486E FFF6                 Pea.L     $-A(A6)
C97C   3F3C 000A                 Move      #$A, -(A7)
C980   4EBA 190C                 Jsr       P_mPutPicData
C984   2F2E 0012                 Move.L    $12(A6), -(A7)
C988   3F06                      Move      D6, -(A7)
C98A   4EBA 1902                 Jsr       P_mPutPicData
C98E   2F2E 000E                 Move.L    $E(A6), -(A7)
C992   3F06                      Move      D6, -(A7)
C994   4EBA 18F8                 Jsr       P_mPutPicData
C998   3F2E 000C                 Move      $C(A6), -(A7)
C99C   4EBA 191E                 Jsr       P_mPutPicWord
C9A0   4AAE 0008                 Tst.L     $8(A6)
C9A4   6708                      BEQ.B     L1937
C9A6   2F2E 0008                 Move.L    $8(A6), -(A7)
C9AA   4EBA 1980                 Jsr       P_mPutPicRgn
C9AE   45EE FFF2      L1937:     Lea.L     $-E(A6), A2
C9B2   3E2A 000A                 Move      $A(A2), D7
C9B6   9E6A 0006                 Sub       $6(A2), D7
C9BA   BA46                      Cmp       D6, D5
C9BC   6D48                      BLT.B     L1941
C9BE   6036                      Bra.B     L1939
C9C0   2D4B FEEE      L1938:     Move.L    A3, $-112(A6)
C9C4   41EE FEF2                 Lea.L     $-10E(A6), A0
C9C8   2D48 FEEA                 Move.L    A0, $-116(A6)
C9CC   486E FEEE                 Pea.L     $-112(A6)
C9D0   486E FEEA                 Pea.L     $-116(A6)
C9D4   3F05                      Move      D5, -(A7)
C9D6   4EBA 05B4                 Jsr       P_tPackBits
C9DA   2C2E FEEA                 Move.L    $-116(A6), D6
C9DE   41EE FEF2                 Lea.L     $-10E(A6), A0
C9E2   9C88                      Sub.L     A0, D6
C9E4   1F06                      Move.B    D6, -(A7)
C9E6   4EBA 18C2                 Jsr       P_mPutPicByte
C9EA   486E FEF2                 Pea.L     $-10E(A6)
C9EE   3F06                      Move      D6, -(A7)
C9F0   4EBA 189C                 Jsr       P_mPutPicData
C9F4   D6C4                      AddA      D4, A3
C9F6   51CF FFC8      L1939:     DBF       D7, L1938
C9FA   600E                      Bra.B     L1942
C9FC   2F0B           L1940:     Move.L    A3, -(A7)
C9FE   3F05                      Move      D5, -(A7)
CA00   4EBA 188C                 Jsr       P_mPutPicData
CA04   D6C4                      AddA      D4, A3
CA06   51CF FFF4      L1941:     DBF       D7, L1940
CA0A   2654           L1942:     Move.L    (A4), A3
CA0C   4A6B 0042      L1943:     Tst       $42(A3)
CA10   6D2A                      BLT.B     L1945
CA12   2F2E 0016                 Move.L    $16(A6), -(A7)
CA16   486B 0002                 Pea.L     $2(A3)
CA1A   2F2E 0012                 Move.L    $12(A6), -(A7)
CA1E   2F2E 000E                 Move.L    $E(A6), -(A7)
CA22   3F2E 000C                 Move      $C(A6), -(A7)
CA26   2F2B 001C                 Move.L    $1C(A3), -(A7)
CA2A   2F2B 0018                 Move.L    $18(A3), -(A7)
CA2E   2F2E 0008                 Move.L    $8(A6), -(A7)
CA32   6604                      BNE.B     L1944
CA34   2EAC FF7E                 Move.L    $-82(A4), (A7)
CA38   4EBA 0628      L1944:     Jsr       P_mStretchBits
CA3C   4CDF 1CF8      L1945:     MoveM.L   (A7)+, D3-D7/A2-A4
CA40   4E5E                      Unlk      A6
CA42   205F                      Move.L    (A7)+, A0
CA44   DEFC 0012                 AddA      #$12, A7
CA48   4ED0                      Jmp       (A0)

                      P_tCopyBits:
CA4A   4E56 0000                 Link      A6, #$0
CA4E   48E7 0338                 MoveM.L   D6-D7/A2-A4, -(A7)
CA52   2855                      Move.L    (A5), A4
CA54   2654                      Move.L    (A4), A3
CA56   246E 001A                 Move.L    $1A(A6), A2
CA5A   2E12                      Move.L    (A2), D7
CA5C   2C2C FF86                 Move.L    $-7A(A4), D6
CA60   BE86                      Cmp.L     D6, D7
CA62   660C                      BNE.B     L1946
CA64   2F2E 0012                 Move.L    $12(A6), -(A7)
CA68   2F2A 0006                 Move.L    $6(A2), -(A7)
CA6C   4EBA B890                 Jsr       P_tShieldCursor
CA70   226E 0016      L1946:     Move.L    $16(A6), A1
CA74   200B                      Move.L    A3, D0
CA76   6718                      BEQ.B     L1947
CA78   0800 0000                 BTst.B    #$0, D0
CA7C   6612                      BNE.B     L1947
CA7E   202B 0002                 Move.L    $2(A3), D0
CA82   B091                      Cmp.L     (A1), D0
CA84   660A                      BNE.B     L1947
CA86   202B 0008                 Move.L    $8(A3), D0
CA8A   B0A9 0006                 Cmp.L     $6(A1), D0
CA8E   6726                      BEQ.B     L1949
CA90   2F0A           L1947:     Move.L    A2, -(A7)
CA92   2F09                      Move.L    A1, -(A7)
CA94   2F2E 0012                 Move.L    $12(A6), -(A7)
CA98   2F2E 000E                 Move.L    $E(A6), -(A7)
CA9C   3F2E 000C                 Move      $C(A6), -(A7)
CAA0   2F2C FF7E                 Move.L    $-82(A4), -(A7)
CAA4   2F17                      Move.L    (A7), -(A7)
CAA6   2F2E 0008                 Move.L    $8(A6), -(A7)
CAAA   6604                      BNE.B     L1948
CAAC   2EAC FF7E                 Move.L    $-82(A4), (A7)
CAB0   4EBA 05B0      L1948:     Jsr       P_mStretchBits
CAB4   6024                      Bra.B     L1951
CAB6   2F0A           L1949:     Move.L    A2, -(A7)
CAB8   2F2E 0012                 Move.L    $12(A6), -(A7)
CABC   2F2E 000E                 Move.L    $E(A6), -(A7)
CAC0   3F2E 000C                 Move      $C(A6), -(A7)
CAC4   2F2E 0008                 Move.L    $8(A6), -(A7)
CAC8   202B 0068                 Move.L    $68(A3), D0
CACC   2078 0FAC                 Move.L    ($FAC), A0
CAD0   6706                      BEQ.B     L1950
CAD2   2040                      Move.L    D0, A0
CAD4   2068 0020                 Move.L    $20(A0), A0
CAD8   4E90           L1950:     Jsr       (A0)
CADA   BE86           L1951:     Cmp.L     D6, D7
CADC   6604                      BNE.B     L1952
CADE   4EBA B818                 Jsr       P_tShowCursor
CAE2   4CDF 1CC0      L1952:     MoveM.L   (A7)+, D6-D7/A2-A4
CAE6   4E5E                      Unlk      A6
CAE8   205F                      Move.L    (A7)+, A0
CAEA   DEFC 0016                 AddA      #$16, A7
CAEE   4ED0                      Jmp       (A0)

                      P_tCopyMask:
CAF0   4E56 FFA2                 Link      A6, #$-5E
CAF4   48E7 FF78                 MoveM.L   D0-D7/A1-A4, -(A7)
CAF8   2D4F FFA2                 Move.L    A7, $-5E(A6)
CAFC   2455                      Move.L    (A5), A2
CAFE   2D6A FF7E FFF4            Move.L    $-82(A2), $-C(A6)
CB04   2D6A FF7E FFF0            Move.L    $-82(A2), $-10(A6)
CB0A   2452                      Move.L    (A2), A2
CB0C   286E 0014                 Move.L    $14(A6), A4
CB10   266E 0008                 Move.L    $8(A6), A3
CB14   202A 0002                 Move.L    $2(A2), D0
CB18   B094                      Cmp.L     (A4), D0
CB1A   660C                      BNE.B     L1953
CB1C   2D6A 001C FFF4            Move.L    $1C(A2), $-C(A6)
CB22   2D6A 0018 FFF0            Move.L    $18(A2), $-10(A6)
CB28   2F0B           L1953:     Move.L    A3, -(A7)
CB2A   486C 0006                 Pea.L     $6(A4)
CB2E   206E FFF4                 Move.L    $-C(A6), A0
CB32   2050                      Move.L    (A0), A0
CB34   4868 0002                 Pea.L     $2(A0)
CB38   206E FFF0                 Move.L    $-10(A6), A0
CB3C   2050                      Move.L    (A0), A0
CB3E   4868 0002                 Pea.L     $2(A0)
CB42   3F3C 0004                 Move      #$4, -(A7)
CB46   486E FFF8                 Pea.L     $-8(A6)
CB4A   4EBA D5C4                 Jsr       P_mRSect
CB4E   6700 01CE                 BEQ       L1959
CB52   4EBA B79E                 Jsr       P_tHideCursor
CB56   322E FFFA                 Move      $-6(A6), D1
CB5A   926C 0008                 Sub       $8(A4), D1
CB5E   0241 FFF0                 And       #$-10, D1
CB62   D26C 0008                 Add       $8(A4), D1
CB66   3D41 FFBE                 Move      D1, $-42(A6)
CB6A   206E FFF4                 Move.L    $-C(A6), A0
CB6E   43EE FFD8                 Lea.L     $-28(A6), A1
CB72   2050           L1954:     Move.L    (A0), A0
CB74   0C50 000A                 Cmp       #$A, (A0)
CB78   57C7                      SEQ.B     D7
CB7A   302E FFFA                 Move      $-6(A6), D0
CB7E   322E FFFE                 Move      $-2(A6), D1
CB82   342E FFBE                 Move      $-42(A6), D2
CB86   4EBA F73E                 Jsr       P_mInitRgn
CB8A   4A07                      Tst.B     D7
CB8C   6724                      BEQ.B     L1955
CB8E   337C 8001 000E            Move      #$-7FFF, $E(A1)
CB94   337C 7FFF 0010            Move      #$7FFF, $10(A1)
CB9A   2069 0008                 Move.L    $8(A1), A0
CB9E   362E FFFA                 Move      $-6(A6), D3
CBA2   966E FFBE                 Sub       $-42(A6), D3
CBA6   382E FFFE                 Move      $-2(A6), D4
CBAA   986E FFBE                 Sub       $-42(A6), D4
CBAE   4EBA BA92                 Jsr       P_mXorSlab
CBB2   41EE FFC0      L1955:     Lea.L     $-40(A6), A0
CBB6   B3C8                      CmpA.L    A0, A1
CBB8   6708                      BEQ.B     L1956
CBBA   2248                      Move.L    A0, A1
CBBC   206E FFF0                 Move.L    $-10(A6), A0
CBC0   60B0                      Bra.B     L1954
CBC2   322C 0004      L1956:     Move      $4(A4), D1
CBC6   48C1                      Ext.L     D1
CBC8   2D41 FFA6                 Move.L    D1, $-5A(A6)
CBCC   302E FFF8                 Move      $-8(A6), D0
CBD0   906C 0006                 Sub       $6(A4), D0
CBD4   C0C1                      MulU      D1, D0
CBD6   2054                      Move.L    (A4), A0
CBD8   D1C0                      AddA.L    D0, A0
CBDA   302E FFFA                 Move      $-6(A6), D0
CBDE   906C 0008                 Sub       $8(A4), D0
CBE2   E848                      LsR       #$4, D0
CBE4   D040                      Add       D0, D0
CBE6   D0C0                      AddA      D0, A0
CBE8   2D48 FFB2                 Move.L    A0, $-4E(A6)
CBEC   226E 0010                 Move.L    $10(A6), A1
CBF0   246E 001C                 Move.L    $1C(A6), A2
CBF4   322A 0004                 Move      $4(A2), D1
CBF8   48C1                      Ext.L     D1
CBFA   2D41 FFAE                 Move.L    D1, $-52(A6)
CBFE   3C2B 0002                 Move      $2(A3), D6
CC02   9C6C 0008                 Sub       $8(A4), D6
CC06   3229 0002                 Move      $2(A1), D1
CC0A   926A 0008                 Sub       $8(A2), D1
CC0E   9C41                      Sub       D1, D6
CC10   0246 000F                 And       #$F, D6
CC14   302E FFF8                 Move      $-8(A6), D0
CC18   9053                      Sub       (A3), D0
CC1A   D051                      Add       (A1), D0
CC1C   906A 0006                 Sub       $6(A2), D0
CC20   C0EA 0004                 MulU      $4(A2), D0
CC24   2052                      Move.L    (A2), A0
CC26   D1C0                      AddA.L    D0, A0
CC28   302E FFFA                 Move      $-6(A6), D0
CC2C   906B 0002                 Sub       $2(A3), D0
CC30   D069 0002                 Add       $2(A1), D0
CC34   906A 0008                 Sub       $8(A2), D0
CC38   D046                      Add       D6, D0
CC3A   E848                      LsR       #$4, D0
CC3C   D040                      Add       D0, D0
CC3E   D0C0                      AddA      D0, A0
CC40   2D48 FFBA                 Move.L    A0, $-46(A6)
CC44   226E 000C                 Move.L    $C(A6), A1
CC48   246E 0018                 Move.L    $18(A6), A2
CC4C   322A 0004                 Move      $4(A2), D1
CC50   48C1                      Ext.L     D1
CC52   2D41 FFAA                 Move.L    D1, $-56(A6)
CC56   3E2B 0002                 Move      $2(A3), D7
CC5A   9E6C 0008                 Sub       $8(A4), D7
CC5E   3229 0002                 Move      $2(A1), D1
CC62   926A 0008                 Sub       $8(A2), D1
CC66   9E41                      Sub       D1, D7
CC68   0247 000F                 And       #$F, D7
CC6C   302E FFF8                 Move      $-8(A6), D0
CC70   9053                      Sub       (A3), D0
CC72   D051                      Add       (A1), D0
CC74   906A 0006                 Sub       $6(A2), D0
CC78   C0EA 0004                 MulU      $4(A2), D0
CC7C   2052                      Move.L    (A2), A0
CC7E   D1C0                      AddA.L    D0, A0
CC80   302E FFFA                 Move      $-6(A6), D0
CC84   906B 0002                 Sub       $2(A3), D0
CC88   D069 0002                 Add       $2(A1), D0
CC8C   906A 0008                 Sub       $8(A2), D0
CC90   D047                      Add       D7, D0
CC92   E848                      LsR       #$4, D0
CC94   D040                      Add       D0, D0
CC96   D0C0                      AddA      D0, A0
CC98   2D48 FFB6                 Move.L    A0, $-4A(A6)
CC9C   3A2E FFF8                 Move      $-8(A6), D5
CCA0   3005           L1957:     Move      D5, D0
CCA2   43EE FFD8                 Lea.L     $-28(A6), A1
CCA6   4EBA F656                 Jsr       P_mSeekRgn
CCAA   3005                      Move      D5, D0
CCAC   43EE FFC0                 Lea.L     $-40(A6), A1
CCB0   4EBA F64C                 Jsr       P_mSeekRgn
CCB4   206E FFE0                 Move.L    $-20(A6), A0
CCB8   226E FFC8                 Move.L    $-38(A6), A1
CCBC   246E FFBA                 Move.L    $-46(A6), A2
CCC0   266E FFB6                 Move.L    $-4A(A6), A3
CCC4   286E FFB2                 Move.L    $-4E(A6), A4
CCC8   362E FFE4                 Move      $-1C(A6), D3
CCCC   202A FFFE      L1958:     Move.L    $-2(A2), D0
CCD0   ECA8                      LsR.L     D6, D0
CCD2   4840                      Swap      D0
CCD4   221A                      Move.L    (A2)+, D1
CCD6   ECA9                      LsR.L     D6, D1
CCD8   3001                      Move      D1, D0
CCDA   222B FFFE                 Move.L    $-2(A3), D1
CCDE   EEA9                      LsR.L     D7, D1
CCE0   4841                      Swap      D1
CCE2   241B                      Move.L    (A3)+, D2
CCE4   EEAA                      LsR.L     D7, D2
CCE6   3202                      Move      D2, D1
CCE8   C298                      And.L     (A0)+, D1
CCEA   C299                      And.L     (A1)+, D1
CCEC   C081                      And.L     D1, D0
CCEE   4681                      Not.L     D1
CCF0   C294                      And.L     (A4), D1
CCF2   8081                      Or.L      D1, D0
CCF4   28C0                      Move.L    D0, (A4)+
CCF6   51CB FFD4                 DBF       D3, L1958
CCFA   202E FFAE                 Move.L    $-52(A6), D0
CCFE   D1AE FFBA                 Add.L     D0, $-46(A6)
CD02   202E FFAA                 Move.L    $-56(A6), D0
CD06   D1AE FFB6                 Add.L     D0, $-4A(A6)
CD0A   202E FFA6                 Move.L    $-5A(A6), D0
CD0E   D1AE FFB2                 Add.L     D0, $-4E(A6)
CD12   5245                      AddQ      #$1, D5
CD14   BA6E FFFC                 Cmp       $-4(A6), D5
CD18   6686                      BNE.B     L1957
CD1A   4EBA B5DC                 Jsr       P_tShowCursor
CD1E   2E6E FFA2      L1959:     Move.L    $-5E(A6), A7
CD22   4CDF 1EFF                 MoveM.L   (A7)+, D0-D7/A1-A4
CD26   4E5E                      Unlk      A6
CD28   205F                      Move.L    (A7)+, A0
CD2A   DEFC 0018                 AddA      #$18, A7
CD2E   4ED0                      Jmp       (A0)

                      P_tSeedFill:
CD30   205F                      Move.L    (A7)+, A0
CD32   70FF                      MoveQ.L   #$-1, D0
CD34   2F00                      Move.L    D0, -(A7)
CD36   6008                      Bra.B     L1960

                      P_tCalcMask:
CD38   205F                      Move.L    (A7)+, A0
CD3A   70FF                      MoveQ.L   #$-1, D0
CD3C   2F00                      Move.L    D0, -(A7)
CD3E   42A7                      Clr.L     -(A7)
CD40   2F08           L1960:     Move.L    A0, -(A7)
CD42   4E56 FFFA                 Link      A6, #$-6
CD46   48E7 1F38                 MoveM.L   D3-D7/A2-A4, -(A7)
CD4A   2D4F FFFA                 Move.L    A7, $-6(A6)
CD4E   3A2E 0010                 Move      $10(A6), D5
CD52   6F00 0128                 BLE       L1981
CD56   5345                      SubQ      #$1, D5
CD58   536E 0012                 SubQ      #$1, $12(A6)
CD5C   6D00 011E                 BLT       L1981
CD60   302E 0010                 Move      $10(A6), D0
CD64   D040                      Add       D0, D0
CD66   322E 0014                 Move      $14(A6), D1
CD6A   9240                      Sub       D0, D1
CD6C   3D41 FFFE                 Move      D1, $-2(A6)
CD70   246E 0018                 Move.L    $18(A6), A2
CD74   70FF                      MoveQ.L   #$-1, D0
CD76   362E 0012                 Move      $12(A6), D3
CD7A   3405           L1961:     Move      D5, D2
CD7C   34C0           L1962:     Move      D0, (A2)+
CD7E   51CA FFFC                 DBF       D2, L1962
CD82   D4C1                      AddA      D1, A2
CD84   51CB FFF4                 DBF       D3, L1961
CD88   302E 000C                 Move      $C(A6), D0
CD8C   6D18                      BLT.B     L1963
CD8E   C0EE 0014                 MulU      $14(A6), D0
CD92   206E 0018                 Move.L    $18(A6), A0
CD96   D1C0                      AddA.L    D0, A0
CD98   302E 000E                 Move      $E(A6), D0
CD9C   3200                      Move      D0, D1
CD9E   E648                      LsR       #$3, D0
CDA0   4641                      Not       D1
CDA2   03B0 0000                 BClr.L    D1, $0(A0,D0.W)
CDA6   2C2E 0008      L1963:     Move.L    $8(A6), D6
CDAA   3205                      Move      D5, D1
CDAC   3F06           L1964:     Move      D6, -(A7)
CDAE   51C9 FFFC                 DBF       D1, L1964
CDB2   206E 001C                 Move.L    $1C(A6), A0
CDB6   246E 0018                 Move.L    $18(A6), A2
CDBA   51C7           L1965:     SF.B      D7
CDBC   382E 0012                 Move      $12(A6), D4
CDC0   224F                      Move.L    A7, A1
CDC2   2206           L1966:     Move.L    D6, D1
CDC4   3605                      Move      D5, D3
CDC6   3212           L1967:     Move      (A2), D1
CDC8   6610                      BNE.B     L1968
CDCA   5448                      AddQ      #$2, A0
CDCC   5449                      AddQ      #$2, A1
CDCE   544A                      AddQ      #$2, A2
CDD0   4841                      Swap      D1
CDD2   51CB FFF2                 DBF       D3, L1967
CDD6   6000 0026                 Bra       L1972
CDDA   3418           L1968:     Move      (A0)+, D2
CDDC   C259                      And       (A1)+, D1
CDDE   8242                      Or        D2, D1
CDE0   6002                      Bra.B     L1970
CDE2   3200           L1969:     Move      D0, D1
CDE4   2001           L1970:     Move.L    D1, D0
CDE6   E288                      LsR.L     #$1, D0
CDE8   C041                      And       D1, D0
CDEA   8042                      Or        D2, D0
CDEC   B041                      Cmp       D1, D0
CDEE   66F2                      BNE.B     L1969
CDF0   B252                      Cmp       (A2), D1
CDF2   6702                      BEQ.B     L1971
CDF4   50C7                      ST.B      D7
CDF6   34C1           L1971:     Move      D1, (A2)+
CDF8   4841                      Swap      D1
CDFA   51CB FFCA                 DBF       D3, L1967
CDFE   2206           L1972:     Move.L    D6, D1
CE00   3605                      Move      D5, D3
CE02   3222           L1973:     Move      -(A2), D1
CE04   660C                      BNE.B     L1974
CE06   5548                      SubQ      #$2, A0
CE08   5549                      SubQ      #$2, A1
CE0A   4841                      Swap      D1
CE0C   51CB FFF4                 DBF       D3, L1973
CE10   6024                      Bra.B     L1978
CE12   3420           L1974:     Move      -(A0), D2
CE14   C261                      And       -(A1), D1
CE16   8242                      Or        D2, D1
CE18   6002                      Bra.B     L1976
CE1A   3200           L1975:     Move      D0, D1
CE1C   2001           L1976:     Move.L    D1, D0
CE1E   E398                      ROL.L     #$1, D0
CE20   C041                      And       D1, D0
CE22   8042                      Or        D2, D0
CE24   B041                      Cmp       D1, D0
CE26   66F2                      BNE.B     L1975
CE28   B252                      Cmp       (A2), D1
CE2A   6704                      BEQ.B     L1977
CE2C   50C7                      ST.B      D7
CE2E   3481                      Move      D1, (A2)
CE30   4841           L1977:     Swap      D1
CE32   51CB FFCE                 DBF       D3, L1973
CE36   D0EE 0016      L1978:     AddA      $16(A6), A0
CE3A   D4EE 0014                 AddA      $14(A6), A2
CE3E   224A                      Move.L    A2, A1
CE40   92EE 0014                 SubA      $14(A6), A1
CE44   51CC FF7C                 DBF       D4, L1966
CE48   446E 0016                 Neg       $16(A6)
CE4C   446E 0014                 Neg       $14(A6)
CE50   D0EE 0016                 AddA      $16(A6), A0
CE54   D4EE 0014                 AddA      $14(A6), A2
CE58   4A07                      Tst.B     D7
CE5A   6600 FF5E                 BNE       L1965
CE5E   4A46                      Tst       D6
CE60   6A1A                      BPL.B     L1981
CE62   322E FFFE                 Move      $-2(A6), D1
CE66   246E 0018                 Move.L    $18(A6), A2
CE6A   362E 0012                 Move      $12(A6), D3
CE6E   3405           L1979:     Move      D5, D2
CE70   465A           L1980:     Not       (A2)+
CE72   51CA FFFC                 DBF       D2, L1980
CE76   D4C1                      AddA      D1, A2
CE78   51CB FFF4                 DBF       D3, L1979
CE7C   2E6E FFFA      L1981:     Move.L    $-6(A6), A7
CE80   4CDF 1CF8                 MoveM.L   (A7)+, D3-D7/A2-A4
CE84   4E5E                      Unlk      A6
CE86   205F                      Move.L    (A7)+, A0
CE88   DEFC 0018                 AddA      #$18, A7
CE8C   4ED0                      Jmp       (A0)

                      P_tScrollRect:
CE8E   4E56 FFF8                 Link      A6, #$-8
CE92   48E7 0318                 MoveM.L   D6-D7/A3-A4, -(A7)
CE96   2855                      Move.L    (A5), A4
CE98   2654                      Move.L    (A4), A3
CE9A   4A6B 0042                 Tst       $42(A3)
CE9E   6D00 00D6                 BLT       L1982
CEA2   4AAE 000C                 Tst.L     $C(A6)
CEA6   6700 00CE                 BEQ       L1982
CEAA   42A7                      Clr.L     -(A7)
CEAC   4EBA EEA0                 Jsr       P_tNewRgn
CEB0   2E1F                      Move.L    (A7)+, D7
CEB2   42A7                      Clr.L     -(A7)
CEB4   4EBA EE98                 Jsr       P_tNewRgn
CEB8   2C1F                      Move.L    (A7)+, D6
CEBA   2F07                      Move.L    D7, -(A7)
CEBC   2F2E 0010                 Move.L    $10(A6), -(A7)
CEC0   4EBA EFF2                 Jsr       P_tRectRgn
CEC4   2F07                      Move.L    D7, -(A7)
CEC6   2F2B 0018                 Move.L    $18(A3), -(A7)
CECA   2F07                      Move.L    D7, -(A7)
CECC   4EBA F110                 Jsr       P_tSectRgn
CED0   2F07                      Move.L    D7, -(A7)
CED2   2F2B 001C                 Move.L    $1C(A3), -(A7)
CED6   2F07                      Move.L    D7, -(A7)
CED8   4EBA F104                 Jsr       P_tSectRgn
CEDC   2F07                      Move.L    D7, -(A7)
CEDE   2F06                      Move.L    D6, -(A7)
CEE0   4EBA EF1C                 Jsr       P_tCopyRgn
CEE4   2F06                      Move.L    D6, -(A7)
CEE6   2F2E 000C                 Move.L    $C(A6), -(A7)
CEEA   4EBA EFD6                 Jsr       P_tOffsetRgn
CEEE   206E 0010                 Move.L    $10(A6), A0
CEF2   2D58 FFF8                 Move.L    (A0)+, $-8(A6)
CEF6   2D58 FFFC                 Move.L    (A0)+, $-4(A6)
CEFA   202E 000C                 Move.L    $C(A6), D0
CEFE   916E FFFA                 Sub       D0, $-6(A6)
CF02   916E FFFE                 Sub       D0, $-2(A6)
CF06   4840                      Swap      D0
CF08   916E FFF8                 Sub       D0, $-8(A6)
CF0C   916E FFFC                 Sub       D0, $-4(A6)
CF10   2F07                      Move.L    D7, -(A7)
CF12   2F06                      Move.L    D6, -(A7)
CF14   2F2E 0008                 Move.L    $8(A6), -(A7)
CF18   4EBA F0CC                 Jsr       P_tDiffRgn
CF1C   2F2E 0010                 Move.L    $10(A6), -(A7)
CF20   2F2B 0008                 Move.L    $8(A3), -(A7)
CF24   4EBA B3D8                 Jsr       P_tShieldCursor
CF28   486B 0002                 Pea.L     $2(A3)
CF2C   2F17                      Move.L    (A7), -(A7)
CF2E   486E FFF8                 Pea.L     $-8(A6)
CF32   2F2E 0010                 Move.L    $10(A6), -(A7)
CF36   4267                      Clr       -(A7)
CF38   42A7                      Clr.L     -(A7)
CF3A   2F06                      Move.L    D6, -(A7)
CF3C   2F07                      Move.L    D7, -(A7)
CF3E   2F2C FF7E                 Move.L    $-82(A4), -(A7)
CF42   4EBA D7EE                 Jsr       P_mRgnBlt
CF46   486B 0002                 Pea.L     $2(A3)
CF4A   2F17                      Move.L    (A7), -(A7)
CF4C   2F2E 0010                 Move.L    $10(A6), -(A7)
CF50   2F17                      Move.L    (A7), -(A7)
CF52   3F3C 0008                 Move      #$8, -(A7)
CF56   486B 0020                 Pea.L     $20(A3)
CF5A   2F2E 0008                 Move.L    $8(A6), -(A7)
CF5E   2F2C FF7E                 Move.L    $-82(A4), -(A7)
CF62   2F17                      Move.L    (A7), -(A7)
CF64   4EBA D7CC                 Jsr       P_mRgnBlt
CF68   4EBA B38E                 Jsr       P_tShowCursor
CF6C   2047                      Move.L    D7, A0
CF6E   A023                      _DisposeHandle
CF70   2046                      Move.L    D6, A0
CF72   A023                      _DisposeHandle
CF74   6008                      Bra.B     L1983
CF76   2F2E 0008      L1982:     Move.L    $8(A6), -(A7)
CF7A   4EBA EED0                 Jsr       P_tSetEmptyRgn
CF7E   4CDF 18C0      L1983:     MoveM.L   (A7)+, D6-D7/A3-A4
CF82   4E5E                      Unlk      A6
CF84   205F                      Move.L    (A7)+, A0
CF86   DEFC 000C                 AddA      #$C, A7
CF8A   4ED0                      Jmp       (A0)

                      P_tPackBits:
CF8C   2F0A                      Move.L    A2, -(A7)
CF8E   206F 000E                 Move.L    $E(A7), A0
CF92   2050                      Move.L    (A0), A0
CF94   226F 000A                 Move.L    $A(A7), A1
CF98   2251                      Move.L    (A1), A1
CF9A   322F 0008                 Move      $8(A7), D1
CF9E   5341                      SubQ      #$1, D1
CFA0   6D5E                      BLT.B     L1992
CFA2   1018                      Move.B    (A0)+, D0
CFA4   600A                      Bra.B     L1985
CFA6   1028 FFFF      L1984:     Move.B    $-1(A0), D0
CFAA   9448                      Sub       A0, D2
CFAC   5242                      AddQ      #$1, D2
CFAE   1482                      Move.B    D2, (A2)
CFB0   3408           L1985:     Move      A0, D2
CFB2   2449                      Move.L    A1, A2
CFB4   4219                      Clr.B     (A1)+
CFB6   B010                      Cmp.B     (A0), D0
CFB8   6614                      BNE.B     L1987
CFBA   B028 0001                 Cmp.B     $1(A0), D0
CFBE   660E                      BNE.B     L1987
CFC0   602A                      Bra.B     L1989
CFC2   1018           L1986:     Move.B    (A0)+, D0
CFC4   B010                      Cmp.B     (A0), D0
CFC6   6606                      BNE.B     L1987
CFC8   B028 0001                 Cmp.B     $1(A0), D0
CFCC   670E                      BEQ.B     L1988
CFCE   12C0           L1987:     Move.B    D0, (A1)+
CFD0   51C9 FFF0                 DBF       D1, L1986
CFD4   9448                      Sub       A0, D2
CFD6   4442                      Neg       D2
CFD8   1482                      Move.B    D2, (A2)
CFDA   6024                      Bra.B     L1992
CFDC   4A41           L1988:     Tst       D1
CFDE   67EE                      BEQ.B     L1987
CFE0   9448                      Sub       A0, D2
CFE2   4642                      Not       D2
CFE4   1482                      Move.B    D2, (A2)
CFE6   2408                      Move.L    A0, D2
CFE8   2449                      Move.L    A1, A2
CFEA   4219                      Clr.B     (A1)+
CFEC   12C0           L1989:     Move.B    D0, (A1)+
CFEE   B018           L1990:     Cmp.B     (A0)+, D0
CFF0   56C9 FFFC                 DBNE      D1, L1990
CFF4   6704                      BEQ.B     L1991
CFF6   5341                      SubQ      #$1, D1
CFF8   6CAC                      BGE.B     L1984
CFFA   9448           L1991:     Sub       A0, D2
CFFC   5242                      AddQ      #$1, D2
CFFE   1482                      Move.B    D2, (A2)
D000   4280           L1992:     Clr.L     D0
D002   302F 0008                 Move      $8(A7), D0
D006   206F 000E                 Move.L    $E(A7), A0
D00A   D190                      Add.L     D0, (A0)
D00C   246F 000A                 Move.L    $A(A7), A2
D010   2489                      Move.L    A1, (A2)
D012   245F                      Move.L    (A7)+, A2
D014   205F           L1993:     Move.L    (A7)+, A0
D016   DEFC 000A                 AddA      #$A, A7
D01A   4ED0                      Jmp       (A0)

                      P_tUnpackBits:
D01C   206F 000A                 Move.L    $A(A7), A0
D020   2050                      Move.L    (A0), A0
D022   226F 0006                 Move.L    $6(A7), A1
D026   2251                      Move.L    (A1), A1
D028   342F 0004                 Move      $4(A7), D2
D02C   48C2                      Ext.L     D2
D02E   D489                      Add.L     A1, D2
D030   6008                      Bra.B     L1996
D032   4881           L1994:     Ext       D1
D034   12D8           L1995:     Move.B    (A0)+, (A1)+
D036   51C9 FFFC                 DBF       D1, L1995
D03A   B3C2           L1996:     CmpA.L    D2, A1
D03C   6414                      BCC.B     L1998
D03E   1218                      Move.B    (A0)+, D1
D040   6AF0                      BPL.B     L1994
D042   4401                      Neg.B     D1
D044   69F4                      BVS.B     L1996
D046   4881                      Ext       D1
D048   1018                      Move.B    (A0)+, D0
D04A   12C0           L1997:     Move.B    D0, (A1)+
D04C   51C9 FFFC                 DBF       D1, L1997
D050   60E8                      Bra.B     L1996
D052   2008           L1998:     Move.L    A0, D0
D054   206F 000A                 Move.L    $A(A7), A0
D058   2080                      Move.L    D0, (A0)
D05A   206F 0006                 Move.L    $6(A7), A0
D05E   2089                      Move.L    A1, (A0)
D060   60B2                      Bra.B     L1993

                      P_mStretchBits:
D062   4E56 FF66                 Link      A6, #$-9A
D066   48E7 FF78                 MoveM.L   D0-D7/A1-A4, -(A7)
D06A   2D4F FF94                 Move.L    A7, $-6C(A6)
D06E   206E 0016                 Move.L    $16(A6), A0
D072   3028 0004                 Move      $4(A0), D0
D076   9050                      Sub       (A0), D0
D078   4840                      Swap      D0
D07A   3028 0006                 Move      $6(A0), D0
D07E   9068 0002                 Sub       $2(A0), D0
D082   206E 001A                 Move.L    $1A(A6), A0
D086   3228 0004                 Move      $4(A0), D1
D08A   9250                      Sub       (A0), D1
D08C   4841                      Swap      D1
D08E   3228 0006                 Move      $6(A0), D1
D092   9268 0002                 Sub       $2(A0), D1
D096   B280                      Cmp.L     D0, D1
D098   662C                      BNE.B     L2000
D09A   2F2E 0022      L1999:     Move.L    $22(A6), -(A7)
D09E   2F2E 001E                 Move.L    $1E(A6), -(A7)
D0A2   2F2E 001A                 Move.L    $1A(A6), -(A7)
D0A6   2F2E 0016                 Move.L    $16(A6), -(A7)
D0AA   3F2E 0014                 Move      $14(A6), -(A7)
D0AE   2F2E FF6C                 Move.L    $-94(A6), -(A7)
D0B2   2F2E 0010                 Move.L    $10(A6), -(A7)
D0B6   2F2E 000C                 Move.L    $C(A6), -(A7)
D0BA   2F2E 0008                 Move.L    $8(A6), -(A7)
D0BE   4EBA D672                 Jsr       P_mRgnBlt
D0C2   6000 02EC                 Bra       L2018
D0C6   2D40 FFFC      L2000:     Move.L    D0, $-4(A6)
D0CA   2D41 FFF8                 Move.L    D1, $-8(A6)
D0CE   4EBA 045E                 Jsr       P_mSetUpStretch
D0D2   2D48 FF68                 Move.L    A0, $-98(A6)
D0D6   3D40 FF66                 Move      D0, $-9A(A6)
D0DA   3F2E 0014                 Move      $14(A6), -(A7)
D0DE   2F2E FF6C                 Move.L    $-94(A6), -(A7)
D0E2   4EBA B47C                 Jsr       P_mColorMap
D0E6   2D5F FF6C                 Move.L    (A7)+, $-94(A6)
D0EA   341F                      Move      (A7)+, D2
D0EC   3602                      Move      D2, D3
D0EE   E85B                      ROR       #$4, D3
D0F0   65A8                      BCS.B     L1999
D0F2   3D42 0014                 Move      D2, $14(A6)
D0F6   266E 001E                 Move.L    $1E(A6), A3
D0FA   2F2E 0016                 Move.L    $16(A6), -(A7)
D0FE   486B 0006                 Pea.L     $6(A3)
D102   206E 0010                 Move.L    $10(A6), A0
D106   2050                      Move.L    (A0), A0
D108   4868 0002                 Pea.L     $2(A0)
D10C   206E 000C                 Move.L    $C(A6), A0
D110   2050                      Move.L    (A0), A0
D112   4868 0002                 Pea.L     $2(A0)
D116   206E 0008                 Move.L    $8(A6), A0
D11A   2050                      Move.L    (A0), A0
D11C   4868 0002                 Pea.L     $2(A0)
D120   3F3C 0005                 Move      #$5, -(A7)
D124   486E FFEC                 Pea.L     $-14(A6)
D128   4EBA CFE6                 Jsr       P_mRSect
D12C   6700 0282                 BEQ       L2018
D130   486E FFEC                 Pea.L     $-14(A6)
D134   2F2B 0006                 Move.L    $6(A3), -(A7)
D138   4EBA B1C4                 Jsr       P_tShieldCursor
D13C   302E FFFA                 Move      $-6(A6), D0
D140   5340                      SubQ      #$1, D0
D142   EA48                      LsR       #$5, D0
D144   3D40 FFE2                 Move      D0, $-1E(A6)
D148   42A7                      Clr.L     -(A7)
D14A   42A7           L2001:     Clr.L     -(A7)
D14C   51C8 FFFC                 DBF       D0, L2001
D150   2D4F FFE8                 Move.L    A7, $-18(A6)
D154   302E FFFE                 Move      $-2(A6), D0
D158   5340                      SubQ      #$1, D0
D15A   EA48                      LsR       #$5, D0
D15C   3D40 FFE0                 Move      D0, $-20(A6)
D160   42A7                      Clr.L     -(A7)
D162   42A7                      Clr.L     -(A7)
D164   42A7           L2002:     Clr.L     -(A7)
D166   51C8 FFFC                 DBF       D0, L2002
D16A   2D4F FFE4                 Move.L    A7, $-1C(A6)
D16E   206E 0016                 Move.L    $16(A6), A0
D172   3228 0002                 Move      $2(A0), D1
D176   926B 0008                 Sub       $8(A3), D1
D17A   0241 FFF0                 And       #$-10, D1
D17E   D26B 0008                 Add       $8(A3), D1
D182   3D41 FF8C                 Move      D1, $-74(A6)
D186   302E FFF2                 Move      $-E(A6), D0
D18A   9041                      Sub       D1, D0
D18C   EA48                      LsR       #$5, D0
D18E   3D40 FF8A                 Move      D0, $-76(A6)
D192   42A7           L2003:     Clr.L     -(A7)
D194   51C8 FFFC                 DBF       D0, L2003
D198   2D4F FF8E                 Move.L    A7, $-72(A6)
D19C   303C 7FFF                 Move      #$7FFF, D0
D1A0   3D40 FFD8                 Move      D0, $-28(A6)
D1A4   3D40 FFC0                 Move      D0, $-40(A6)
D1A8   3D40 FFA8                 Move      D0, $-58(A6)
D1AC   4440                      Neg       D0
D1AE   3D40 FFD6                 Move      D0, $-2A(A6)
D1B2   3D40 FFBE                 Move      D0, $-42(A6)
D1B6   3D40 FFA6                 Move      D0, $-5A(A6)
D1BA   7E0A                      MoveQ.L   #$A, D7
D1BC   4245                      Clr       D5
D1BE   206E 0010                 Move.L    $10(A6), A0
D1C2   2050                      Move.L    (A0), A0
D1C4   BE50                      Cmp       (A0), D7
D1C6   6708                      BEQ.B     L2004
D1C8   5445                      AddQ      #$2, D5
D1CA   43EE FFC8                 Lea.L     $-38(A6), A1
D1CE   6126                      Bsr.B     P319
D1D0   206E 000C      L2004:     Move.L    $C(A6), A0
D1D4   2050                      Move.L    (A0), A0
D1D6   BE50                      Cmp       (A0), D7
D1D8   6708                      BEQ.B     L2005
D1DA   5845                      AddQ      #$4, D5
D1DC   43EE FFB0                 Lea.L     $-50(A6), A1
D1E0   6114                      Bsr.B     P319
D1E2   206E 0008      L2005:     Move.L    $8(A6), A0
D1E6   2050                      Move.L    (A0), A0
D1E8   BE50                      Cmp       (A0), D7
D1EA   671A                      BEQ.B     L2006
D1EC   5045                      AddQ      #$8, D5
D1EE   43EE FF98                 Lea.L     $-68(A6), A1
D1F2   487A 0012                 Pea.L     L2006

                      P319:
D1F6   302E FFEE                 Move      $-12(A6), D0
D1FA   322E FFF2                 Move      $-E(A6), D1
D1FE   342E FF8C                 Move      $-74(A6), D2
D202   4EFA F0C2                 Jmp       P_mInitRgn
D206   3D45 FF92      L2006:     Move      D5, $-6E(A6)
D20A   6618                      BNE.B     L2007
D20C   206E FF8E                 Move.L    $-72(A6), A0
D210   362E FFEE                 Move      $-12(A6), D3
D214   966E FF8C                 Sub       $-74(A6), D3
D218   382E FFF2                 Move      $-E(A6), D4
D21C   986E FF8C                 Sub       $-74(A6), D4
D220   4EBA B420                 Jsr       P_mXorSlab
D224   4287           L2007:     Clr.L     D7
D226   342E 0014                 Move      $14(A6), D2
D22A   6B00 0180                 BMI       L2017
D22E   0882 0002                 BClr.B    #$2, D2
D232   6702                      BEQ.B     L2008
D234   4687                      Not.L     D7
D236   0C42 0007      L2008:     Cmp       #$7, D2
D23A   6E00 0170                 BGT       L2017
D23E   41FA 02EA                 Lea.L     DT41, A0
D242   1430 2000                 Move.B    $0(A0,D2.W), D2
D246   90C2                      SubA      D2, A0
D248   2D48 FF70                 Move.L    A0, $-90(A6)
D24C   246E 0022                 Move.L    $22(A6), A2
D250   302A 0004                 Move      $4(A2), D0
D254   48C0                      Ext.L     D0
D256   2D40 FF7E                 Move.L    D0, $-82(A6)
D25A   322A 000A                 Move      $A(A2), D1
D25E   926A 0006                 Sub       $6(A2), D1
D262   C2C0                      MulU      D0, D1
D264   D292                      Add.L     (A2), D1
D266   5481                      AddQ      #$2, D1
D268   2D41 FF76                 Move.L    D1, $-8A(A6)
D26C   206E 001A                 Move.L    $1A(A6), A0
D270   3228 0002                 Move      $2(A0), D1
D274   926A 0008                 Sub       $8(A2), D1
D278   3A01                      Move      D1, D5
D27A   4445                      Neg       D5
D27C   0245 000F                 And       #$F, D5
D280   3010                      Move      (A0), D0
D282   906A 0006                 Sub       $6(A2), D0
D286   C0EA 0004                 MulU      $4(A2), D0
D28A   2052                      Move.L    (A2), A0
D28C   D1C0                      AddA.L    D0, A0
D28E   D245                      Add       D5, D1
D290   E841                      AsR       #$4, D1
D292   D0C1                      AddA      D1, A0
D294   D0C1                      AddA      D1, A0
D296   2D48 FF86                 Move.L    A0, $-7A(A6)
D29A   302B 0004                 Move      $4(A3), D0
D29E   48C0                      Ext.L     D0
D2A0   2D40 FF7A                 Move.L    D0, $-86(A6)
D2A4   206E 0016                 Move.L    $16(A6), A0
D2A8   3D50 FF74                 Move      (A0), $-8C(A6)
D2AC   3228 0002                 Move      $2(A0), D1
D2B0   926B 0008                 Sub       $8(A3), D1
D2B4   7C0F                      MoveQ.L   #$F, D6
D2B6   CC41                      And       D1, D6
D2B8   302E FFEC                 Move      $-14(A6), D0
D2BC   906B 0006                 Sub       $6(A3), D0
D2C0   C0EB 0004                 MulU      $4(A3), D0
D2C4   2053                      Move.L    (A3), A0
D2C6   D1C0                      AddA.L    D0, A0
D2C8   E841                      AsR       #$4, D1
D2CA   D0C1                      AddA      D1, A0
D2CC   D0C1                      AddA      D1, A0
D2CE   2D48 FF82                 Move.L    A0, $-7E(A6)
D2D2   302E FFF8                 Move      $-8(A6), D0
D2D6   E248                      LsR       #$1, D0
D2D8   4440                      Neg       D0
D2DA   3D40 FFF4                 Move      D0, $-C(A6)
D2DE   206E FF86      L2009:     Move.L    $-7A(A6), A0
D2E2   B1EE FF76                 CmpA.L    $-8A(A6), A0
D2E6   6400 00C4                 BCC       L2017
D2EA   226E FFE8                 Move.L    $-18(A6), A1
D2EE   322E FFE2                 Move      $-1E(A6), D1
D2F2   2028 FFFE      L2010:     Move.L    $-2(A0), D0
D2F6   EAA8                      LsR.L     D5, D0
D2F8   32C0                      Move      D0, (A1)+
D2FA   2018                      Move.L    (A0)+, D0
D2FC   EAA8                      LsR.L     D5, D0
D2FE   32C0                      Move      D0, (A1)+
D300   51C9 FFF0                 DBF       D1, L2010
D304   242E FF7E                 Move.L    $-82(A6), D2
D308   D5AE FF86                 Add.L     D2, $-7A(A6)
D30C   302E FFFC                 Move      $-4(A6), D0
D310   D16E FFF4                 Add       D0, $-C(A6)
D314   6E32                      BGT.B     L2013
D316   206E FF86      L2011:     Move.L    $-7A(A6), A0
D31A   B1EE FF76                 CmpA.L    $-8A(A6), A0
D31E   6428                      BCC.B     L2013
D320   226E FFE8                 Move.L    $-18(A6), A1
D324   322E FFE2                 Move      $-1E(A6), D1
D328   2028 FFFE      L2012:     Move.L    $-2(A0), D0
D32C   EAA8                      LsR.L     D5, D0
D32E   8159                      Or        D0, (A1)+
D330   2018                      Move.L    (A0)+, D0
D332   EAA8                      LsR.L     D5, D0
D334   8159                      Or        D0, (A1)+
D336   51C9 FFF0                 DBF       D1, L2012
D33A   D5AE FF86                 Add.L     D2, $-7A(A6)
D33E   302E FFFC                 Move      $-4(A6), D0
D342   D16E FFF4                 Add       D0, $-C(A6)
D346   6FCE                      BLE.B     L2011
D348   206E FFE8      L2013:     Move.L    $-18(A6), A0
D34C   226E FFE4                 Move.L    $-1C(A6), A1
D350   302E FFE0                 Move      $-20(A6), D0
D354   E548                      LsL       #$2, D0
D356   45F1 0004                 Lea.L     $4(A1,D0.W), A2
D35A   382E FF66                 Move      $-9A(A6), D4
D35E   266E FF68                 Move.L    $-98(A6), A3
D362   4E93                      Jsr       (A3)
D364   302E FF74      L2014:     Move      $-8C(A6), D0
D368   B06E FFEC                 Cmp       $-14(A6), D0
D36C   6D22                      BLT.B     L2016
D36E   6100 0052                 Bsr       P320
D372   266E FFE4                 Move.L    $-1C(A6), A3
D376   286E FF82                 Move.L    $-7E(A6), A4
D37A   246E FF8E                 Move.L    $-72(A6), A2
D37E   342E FF8A                 Move      $-76(A6), D2
D382   206E FF70                 Move.L    $-90(A6), A0
D386   4ED0                      Jmp       (A0)
D388   202E FF7A      L2015:     Move.L    $-86(A6), D0
D38C   D1AE FF82                 Add.L     D0, $-7E(A6)
D390   526E FF74      L2016:     AddQ      #$1, $-8C(A6)
D394   302E FF74                 Move      $-8C(A6), D0
D398   B06E FFF0                 Cmp       $-10(A6), D0
D39C   670E                      BEQ.B     L2017
D39E   302E FFF8                 Move      $-8(A6), D0
D3A2   916E FFF4                 Sub       D0, $-C(A6)
D3A6   6CBC                      BGE.B     L2014
D3A8   6000 FF34                 Bra       L2009
D3AC   4EBA AF4A      L2017:     Jsr       P_tShowCursor
D3B0   2E6E FF94      L2018:     Move.L    $-6C(A6), A7
D3B4   4CDF 1EFF                 MoveM.L   (A7)+, D0-D7/A1-A4
D3B8   4E5E                      Unlk      A6
D3BA   205F                      Move.L    (A7)+, A0
D3BC   DEFC 001E                 AddA      #$1E, A7
D3C0   4ED0                      Jmp       (A0)

                      P320:
D3C2   302E FF74                 Move      $-8C(A6), D0
D3C6   322E FF92                 Move      $-6E(A6), D1
D3CA   323B 1006                 Move      DT40(D1.W), D1
D3CE   4EFB 1002                 Jmp       DT40(D1.W)

                      DT40:
D3D2   009A 0010 0016            DC.B      '      '
D3D8   002A 001C 004A            DC.B      ' *   J'
D3DE   006A 009C                 DC.B      ' j  '

                      E_415:
D3E2   43EE FFC8                 Lea.L     $-38(A6), A1
D3E6   600A                      Bra.B     L2019

                      E_416:
D3E8   43EE FFB0                 Lea.L     $-50(A6), A1
D3EC   6004                      Bra.B     L2019

                      E_417:
D3EE   43EE FF98                 Lea.L     $-68(A6), A1
D3F2   236E FF8E 0008 L2019:     Move.L    $-72(A6), $8(A1)
D3F8   4EFA EF04                 Jmp       P_mSeekRgn

                      E_418:
D3FC   43EE FFC8                 Lea.L     $-38(A6), A1
D400   4EBA EEFC                 Jsr       P_mSeekRgn
D404   3F01                      Move      D1, -(A7)
D406   43EE FFB0                 Lea.L     $-50(A6), A1
D40A   4EBA EEF2                 Jsr       P_mSeekRgn
D40E   825F                      Or        (A7)+, D1
D410   675A                      BEQ.B     E_421
D412   206E FFD0                 Move.L    $-30(A6), A0
D416   226E FFB8                 Move.L    $-48(A6), A1
D41A   603E                      Bra.B     L2020

                      E_419:
D41C   43EE FFC8                 Lea.L     $-38(A6), A1
D420   4EBA EEDC                 Jsr       P_mSeekRgn
D424   3F01                      Move      D1, -(A7)
D426   43EE FF98                 Lea.L     $-68(A6), A1
D42A   4EBA EED2                 Jsr       P_mSeekRgn
D42E   825F                      Or        (A7)+, D1
D430   673A                      BEQ.B     E_421
D432   206E FFD0                 Move.L    $-30(A6), A0
D436   226E FFA0                 Move.L    $-60(A6), A1
D43A   601E                      Bra.B     L2020

                      E_420:
D43C   43EE FFB0                 Lea.L     $-50(A6), A1
D440   4EBA EEBC                 Jsr       P_mSeekRgn
D444   3F01                      Move      D1, -(A7)
D446   43EE FF98                 Lea.L     $-68(A6), A1
D44A   4EBA EEB2                 Jsr       P_mSeekRgn
D44E   825F                      Or        (A7)+, D1
D450   671A                      BEQ.B     E_421
D452   206E FFB8                 Move.L    $-48(A6), A0
D456   226E FFA0                 Move.L    $-60(A6), A1
D45A   246E FF8E      L2020:     Move.L    $-72(A6), A2
D45E   322E FF8A                 Move      $-76(A6), D1
D462   2018           L2021:     Move.L    (A0)+, D0
D464   C099                      And.L     (A1)+, D0
D466   24C0                      Move.L    D0, (A2)+
D468   51C9 FFF8                 DBF       D1, L2021

                      E_421:
D46C   4E75                      Rts

                      E_422:
D46E   43EE FFC8                 Lea.L     $-38(A6), A1
D472   4EBA EE8A                 Jsr       P_mSeekRgn
D476   3F01                      Move      D1, -(A7)
D478   43EE FFB0                 Lea.L     $-50(A6), A1
D47C   4EBA EE80                 Jsr       P_mSeekRgn
D480   8357                      Or        D1, (A7)
D482   43EE FF98                 Lea.L     $-68(A6), A1
D486   4EBA EE76                 Jsr       P_mSeekRgn
D48A   825F                      Or        (A7)+, D1
D48C   6720                      BEQ.B     L2023
D48E   206E FFD0                 Move.L    $-30(A6), A0
D492   226E FFB8                 Move.L    $-48(A6), A1
D496   246E FFA0                 Move.L    $-60(A6), A2
D49A   266E FF8E                 Move.L    $-72(A6), A3
D49E   322E FF8A                 Move      $-76(A6), D1
D4A2   2018           L2022:     Move.L    (A0)+, D0
D4A4   C099                      And.L     (A1)+, D0
D4A6   C09A                      And.L     (A2)+, D0
D4A8   26C0                      Move.L    D0, (A3)+
D4AA   51C9 FFF6                 DBF       D1, L2022
D4AE   4E75           L2023:     Rts

                      E_423:
D4B0   202B FFFE                 Move.L    $-2(A3), D0
D4B4   ECA8                      LsR.L     D6, D0
D4B6   4840                      Swap      D0
D4B8   221B                      Move.L    (A3)+, D1
D4BA   ECA9                      LsR.L     D6, D1
D4BC   3001                      Move      D1, D0
D4BE   BF80                      Eor.L     D7, D0
D4C0   221A                      Move.L    (A2)+, D1
D4C2   C081                      And.L     D1, D0
D4C4   4681                      Not.L     D1
D4C6   C294                      And.L     (A4), D1
D4C8   8081                      Or.L      D1, D0
D4CA   28C0                      Move.L    D0, (A4)+
D4CC   51CA FFE2                 DBF       D2, E_423
D4D0   6000 FEB6                 Bra       L2015

                      E_424:
D4D4   202B FFFE                 Move.L    $-2(A3), D0
D4D8   ECA8                      LsR.L     D6, D0
D4DA   4840                      Swap      D0
D4DC   221B                      Move.L    (A3)+, D1
D4DE   ECA9                      LsR.L     D6, D1
D4E0   3001                      Move      D1, D0
D4E2   BF80                      Eor.L     D7, D0
D4E4   C09A                      And.L     (A2)+, D0
D4E6   819C                      Or.L      D0, (A4)+
D4E8   51CA FFEA                 DBF       D2, E_424
D4EC   6000 FE9A                 Bra       L2015

                      E_425:
D4F0   202B FFFE                 Move.L    $-2(A3), D0
D4F4   ECA8                      LsR.L     D6, D0
D4F6   4840                      Swap      D0
D4F8   221B                      Move.L    (A3)+, D1
D4FA   ECA9                      LsR.L     D6, D1
D4FC   3001                      Move      D1, D0
D4FE   BF80                      Eor.L     D7, D0
D500   C09A                      And.L     (A2)+, D0
D502   B19C                      Eor.L     D0, (A4)+
D504   51CA FFEA                 DBF       D2, E_425
D508   6000 FE7E                 Bra       L2015

                      E_426:
D50C   202B FFFE                 Move.L    $-2(A3), D0
D510   ECA8                      LsR.L     D6, D0
D512   4840                      Swap      D0
D514   221B                      Move.L    (A3)+, D1
D516   ECA9                      LsR.L     D6, D1
D518   3001                      Move      D1, D0
D51A   BF80                      Eor.L     D7, D0
D51C   C09A                      And.L     (A2)+, D0
D51E   4680                      Not.L     D0
D520   C19C                      And.L     D0, (A4)+
D522   51CA FFE8                 DBF       D2, E_426
D526   6000 FE60                 Bra       L2015

                      DT41:
D52A   7A56 3A1E                 DC.B      'zV: '

                      P_mSetUpStretch:
D52E   41FA 039E                 Lea.L     E_441, A0
D532   4A40                      Tst       D0
D534   6F00 0082                 BLE       L2025
D538   4A41                      Tst       D1
D53A   6F00 007C                 BLE       L2025
D53E   41FA 00A8                 Lea.L     E_427, A0
D542   B041                      Cmp       D1, D0
D544   6700 0072                 BEQ       L2025
D548   6D70                      BLT.B     L2026
D54A   3600                      Move      D0, D3
D54C   3801                      Move      D1, D4
D54E   42A7                      Clr.L     -(A7)
D550   3F01                      Move      D1, -(A7)
D552   3F00                      Move      D0, -(A7)
D554   A869                      _FixRatio
D556   201F                      Move.L    (A7)+, D0
D558   41FA 0154                 Lea.L     E_432, A0
D55C   0C40 8000                 Cmp       #$-8000, D0
D560   6756                      BEQ.B     L2025
D562   41FA 01B6                 Lea.L     E_434, A0
D566   0C40 4000                 Cmp       #$4000, D0
D56A   674C                      BEQ.B     L2025
D56C   41FA 0256                 Lea.L     E_436, A0
D570   0C40 2000                 Cmp       #$2000, D0
D574   6742                      BEQ.B     L2025
D576   41FA 02AA                 Lea.L     E_437, A0
D57A   0C40 1000                 Cmp       #$1000, D0
D57E   6738                      BEQ.B     L2025
D580   41FA 00DC                 Lea.L     E_431, A0
D584   0C40 AAAA                 Cmp       #$-5556, D0
D588   672E                      BEQ.B     L2025
D58A   41FA 014A                 Lea.L     E_433, A0
D58E   0C40 5555                 Cmp       #$5555, D0
D592   6724                      BEQ.B     L2025
D594   41FA 01C2                 Lea.L     E_435, A0
D598   0C40 2AAA                 Cmp       #$2AAA, D0
D59C   671A                      BEQ.B     L2025
D59E   48C3                      Ext.L     D3
D5A0   86C4                      DivU      D4, D3
D5A2   3203                      Move      D3, D1
D5A4   0283 FFFF 0007            And.L     #$FFFF0007, D3
D5AA   6608                      BNE.B     L2024
D5AC   3001                      Move      D1, D0
D5AE   41FA 0294                 Lea.L     E_438, A0
D5B2   4E75                      Rts
D5B4   41FA 02DA      L2024:     Lea.L     E_440, A0
D5B8   4E75           L2025:     Rts
D5BA   42A7           L2026:     Clr.L     -(A7)
D5BC   3F00                      Move      D0, -(A7)
D5BE   3F01                      Move      D1, -(A7)
D5C0   A869                      _FixRatio
D5C2   201F                      Move.L    (A7)+, D0
D5C4   41FA 005C                 Lea.L     E_429, A0
D5C8   0C40 8000                 Cmp       #$-8000, D0
D5CC   67EA                      BEQ.B     L2025
D5CE   41FA 0072                 Lea.L     E_430, A0
D5D2   0C40 4000                 Cmp       #$4000, D0
D5D6   67E0                      BEQ.B     L2025
D5D8   41FA 0018                 Lea.L     E_428, A0
D5DC   0C40 C000                 Cmp       #$-4000, D0
D5E0   67D6                      BEQ.B     L2025
D5E2   41FA 0280                 Lea.L     E_439, A0
D5E6   60D0                      Bra.B     L2025

                      E_427:
D5E8   22D8                      Move.L    (A0)+, (A1)+
D5EA   22D8                      Move.L    (A0)+, (A1)+
D5EC   B3CA                      CmpA.L    A2, A1
D5EE   65F8                      BCS.B     E_427
D5F0   4E75                      Rts

                      E_428:
D5F2   7603                      MoveQ.L   #$3, D3
D5F4   E49B                      ROR.L     #$2, D3
D5F6   42A7                      Clr.L     -(A7)
D5F8   2018           L2027:     Move.L    (A0)+, D0
D5FA   7407                      MoveQ.L   #$7, D2
D5FC   D080           L2028:     Add.L     D0, D0
D5FE   D381                      AddX.L    D1, D1
D600   D083                      Add.L     D3, D0
D602   D381                      AddX.L    D1, D1
D604   E788                      LsL.L     #$3, D0
D606   D381                      AddX.L    D1, D1
D608   51CA FFF2                 DBF       D2, L2028
D60C   2E81                      Move.L    D1, (A7)
D60E   12EF 0001                 Move.B    $1(A7), (A1)+
D612   12EF 0002                 Move.B    $2(A7), (A1)+
D616   12EF 0003                 Move.B    $3(A7), (A1)+
D61A   B3CA                      CmpA.L    A2, A1
D61C   65DA                      BCS.B     L2027
D61E   584F                      AddQ      #$4, A7
D620   4E75                      Rts

                      E_429:
D622   7603                      MoveQ.L   #$3, D3
D624   E49B                      ROR.L     #$2, D3
D626   2018           L2029:     Move.L    (A0)+, D0
D628   7407                      MoveQ.L   #$7, D2
D62A   D083           L2030:     Add.L     D3, D0
D62C   D341                      AddX      D1, D1
D62E   E588                      LsL.L     #$2, D0
D630   D083                      Add.L     D3, D0
D632   D381                      AddX.L    D1, D1
D634   E588                      LsL.L     #$2, D0
D636   51CA FFF2                 DBF       D2, L2030
D63A   32C1                      Move      D1, (A1)+
D63C   B3CA                      CmpA.L    A2, A1
D63E   65E6                      BCS.B     L2029
D640   4E75                      Rts

                      E_430:
D642   263C F000 0000            Move.L    #$F0000000, D3
D648   2018           L2031:     Move.L    (A0)+, D0
D64A   7407                      MoveQ.L   #$7, D2
D64C   D083           L2032:     Add.L     D3, D0
D64E   D381                      AddX.L    D1, D1
D650   E988                      LsL.L     #$4, D0
D652   51CA FFF8                 DBF       D2, L2032
D656   12C1                      Move.B    D1, (A1)+
D658   B3CA                      CmpA.L    A2, A1
D65A   65EC                      BCS.B     L2031
D65C   4E75                      Rts

                      E_431:
D65E   1018                      Move.B    (A0)+, D0
D660   3200                      Move      D0, D1
D662   E809                      LsR.B     #$4, D1
D664   143B 1038                 Move.B    DT42(D1.W), D2
D668   ED8A                      LsL.L     #$6, D2
D66A   0240 000F                 And       #$F, D0
D66E   143B 002E                 Move.B    DT42(D0.W), D2
D672   ED8A                      LsL.L     #$6, D2
D674   1018                      Move.B    (A0)+, D0
D676   3200                      Move      D0, D1
D678   E809                      LsR.B     #$4, D1
D67A   143B 1022                 Move.B    DT42(D1.W), D2
D67E   ED8A                      LsL.L     #$6, D2
D680   0240 000F                 And       #$F, D0
D684   143B 0018                 Move.B    DT42(D0.W), D2
D688   E48A                      LsR.L     #$2, D2
D68A   4842                      Swap      D2
D68C   12C2                      Move.B    D2, (A1)+
D68E   4842                      Swap      D2
D690   3202                      Move      D2, D1
D692   E059                      ROR       #$8, D1
D694   12C1                      Move.B    D1, (A1)+
D696   12C2                      Move.B    D2, (A1)+
D698   B3CA                      CmpA.L    A2, A1
D69A   65C2                      BCS.B     E_431
D69C   4E75                      Rts

                      DT42:
D69E   000C 101C 606C            DC.B      '    `l'
D6A4   707C 808C 909C            DC.B      'p|    '
D6AA   E0EC F0FC                 DC.B      '    '

                      E_432:
D6AE   1018                      Move.B    (A0)+, D0
D6B0   3200                      Move      D0, D1
D6B2   E809                      LsR.B     #$4, D1
D6B4   12FB 1010                 Move.B    DT43(D1.W), (A1)+
D6B8   0240 000F                 And       #$F, D0
D6BC   12FB 0008                 Move.B    DT43(D0.W), (A1)+
D6C0   B3CA                      CmpA.L    A2, A1
D6C2   65EA                      BCS.B     E_432
D6C4   4E75                      Rts

                      DT43:
D6C6   0003 0C0F 3033            DC.B      '    03'
D6CC   3C3F C0C3 CCCF            DC.B      '<?    '
D6D2   F0F3 FCFF                 DC.B      '    '

                      E_433:
D6D6   1018                      Move.B    (A0)+, D0
D6D8   3200                      Move      D0, D1
D6DA   3400                      Move      D0, D2
D6DC   EA0A                      LsR.B     #$5, D2
D6DE   12FB 201A                 Move.B    DT44(D2.W), (A1)+
D6E2   E409                      LsR.B     #$2, D1
D6E4   0241 000F                 And       #$F, D1
D6E8   12FB 1018                 Move.B    DT45(D1.W), (A1)+
D6EC   0240 0007                 And       #$7, D0
D6F0   12FB 0020                 Move.B    DT46(D0.W), (A1)+
D6F4   B3CA                      CmpA.L    A2, A1
D6F6   65DE                      BCS.B     E_433
D6F8   4E75                      Rts

                      DT44:
D6FA   0003 1C1F E0E3            DC.B      '      '
D700   FCFF                      DC.B      '  '

                      DT45:
D702   0001 0E0F 7071            DC.B      '    pq'
D708   7E7F 8081 8E8F            DC.B      '~     '
D70E   F0F1 FEFF                 DC.B      '    '

                      DT46:
D712   0007 383F C0C7            DC.B      '  8?  '
D718   F8FF                      DC.B      '  '

                      E_434:
D71A   1018                      Move.B    (A0)+, D0
D71C   3200                      Move      D0, D1
D71E   0241 00F0                 And       #$F0, D1
D722   E649                      LsR       #$3, D1
D724   32FB 1012                 Move      DT47(D1.W), (A1)+
D728   0240 000F                 And       #$F, D0
D72C   D040                      Add       D0, D0
D72E   32FB 0008                 Move      DT47(D0.W), (A1)+
D732   B3CA                      CmpA.L    A2, A1
D734   65E4                      BCS.B     E_434
D736   4E75                      Rts

                      DT47:
D738   0000 000F 00F0            DC.B      '      '
D73E   00FF 0F00 0F0F            DC.B      '      '
D744   0FF0 0FFF F000            DC.B      '      '
D74A   F00F F0F0 F0FF            DC.B      '      '
D750   FF00 FF0F FFF0            DC.B      '      '
D756   FFFF                      DC.B      '  '

                      E_435:
D758   1018                      Move.B    (A0)+, D0
D75A   3200                      Move      D0, D1
D75C   0241 00E0                 And       #$E0, D1
D760   E809                      LsR.B     #$4, D1
D762   32FB 1020                 Move      DT48(D1.W), (A1)+
D766   3200                      Move      D0, D1
D768   0241 003C                 And       #$3C, D1
D76C   E209                      LsR.B     #$1, D1
D76E   32FB 1024                 Move      DT49(D1.W), (A1)+
D772   3200                      Move      D0, D1
D774   0241 0007                 And       #$7, D1
D778   D241                      Add       D1, D1
D77A   32FB 1038                 Move      DT50(D1.W), (A1)+
D77E   B3CA                      CmpA.L    A2, A1
D780   65D6                      BCS.B     E_435
D782   4E75                      Rts

                      DT48:
D784   0000 000F 03F0            DC.B      '      '
D78A   03FF FC00 FC0F            DC.B      '      '
D790   FFF0 FFFF                 DC.B      '    '

                      DT49:
D794   0000 0003 00FC            DC.B      '      '
D79A   00FF 3F00 3F03            DC.B      '  ? ? '
D7A0   3FFC 3FFF C000            DC.B      '? ?   '
D7A6   C003 C0FC C0FF            DC.B      '      '
D7AC   FF00 FF03 FFFC            DC.B      '      '
D7B2   FFFF                      DC.B      '  '

                      DT50:
D7B4   0000 003F 0FC0            DC.B      '   ?  '
D7BA   0FFF F000 F03F            DC.B      '     ?'
D7C0   FFC0 FFFF                 DC.B      '    '

                      E_436:
D7C4   1018                      Move.B    (A0)+, D0
D7C6   3200                      Move      D0, D1
D7C8   0241 00F0                 And       #$F0, D1
D7CC   E449                      LsR       #$2, D1
D7CE   22FB 1012                 Move.L    DT51(D1.W), (A1)+
D7D2   0240 000F                 And       #$F, D0
D7D6   E548                      LsL       #$2, D0
D7D8   22FB 0008                 Move.L    DT51(D0.W), (A1)+
D7DC   B3CA                      CmpA.L    A2, A1
D7DE   65E4                      BCS.B     E_436
D7E0   4E75                      Rts

                      DT51:
D7E2   0000 0000 0000            DC.B      '      '
D7E8   00FF 0000 FF00            DC.B      '      '
D7EE   0000 FFFF 00FF            DC.B      '      '
D7F4   0000 00FF 00FF            DC.B      '      '
D7FA   00FF FF00 00FF            DC.B      '      '
D800   FFFF FF00 0000            DC.B      '      '
D806   FF00 00FF FF00            DC.B      '      '
D80C   FF00 FF00 FFFF            DC.B      '      '
D812   FFFF 0000 FFFF            DC.B      '      '
D818   00FF FFFF FF00            DC.B      '      '
D81E   FFFF FFFF                 DC.B      '    '

                      E_437:
D822   72FF                      MoveQ.L   #$-1, D1
D824   303C 8000                 Move      #$-8000, D0
D828   D040           L2033:     Add       D0, D0
D82A   6408                      BCC.B     L2034
D82C   660E                      BNE.B     L2035
D82E   3018                      Move      (A0)+, D0
D830   D140                      AddX      D0, D0
D832   6508                      BCS.B     L2035
D834   4259           L2034:     Clr       (A1)+
D836   B3CA                      CmpA.L    A2, A1
D838   65EE                      BCS.B     L2033
D83A   4E75                      Rts
D83C   32C1           L2035:     Move      D1, (A1)+
D83E   B3CA                      CmpA.L    A2, A1
D840   65E6                      BCS.B     L2033
D842   4E75                      Rts

                      E_438:
D844   E64C                      LsR       #$3, D4
D846   5344                      SubQ      #$1, D4
D848   303C 8000                 Move      #$-8000, D0
D84C   D040           L2036:     Add       D0, D0
D84E   6604                      BNE.B     L2037
D850   3018                      Move      (A0)+, D0
D852   D140                      AddX      D0, D0
D854   55C1           L2037:     SCS.B     D1
D856   3404                      Move      D4, D2
D858   12C1           L2038:     Move.B    D1, (A1)+
D85A   B3CA                      CmpA.L    A2, A1
D85C   52CA FFFA                 DBHI      D2, L2038
D860   63EA                      BLS.B     L2036
D862   606A                      Bra.B     E_441

                      E_439:
D864   4241                      Clr       D1
D866   303C 8000                 Move      #$-8000, D0
D86A   3400                      Move      D0, D2
D86C   3604                      Move      D4, D3
D86E   E24B                      LsR       #$1, D3
D870   D040           L2039:     Add       D0, D0
D872   640A                      BCC.B     L2041
D874   6606                      BNE.B     L2040
D876   3018                      Move      (A0)+, D0
D878   D140                      AddX      D0, D0
D87A   6402                      BCC.B     L2041
D87C   8242           L2040:     Or        D2, D1
D87E   D644           L2041:     Add       D4, D3
D880   64EE                      BCC.B     L2039
D882   E25A                      ROR       #$1, D2
D884   64EA                      BCC.B     L2039
D886   32C1                      Move      D1, (A1)+
D888   4241                      Clr       D1
D88A   B3CA                      CmpA.L    A2, A1
D88C   65E2                      BCS.B     L2039
D88E   4E75                      Rts

                      E_440:
D890   4241                      Clr       D1
D892   303C 8000                 Move      #$-8000, D0
D896   3400                      Move      D0, D2
D898   3604                      Move      D4, D3
D89A   E24B                      LsR       #$1, D3
D89C   D040           L2042:     Add       D0, D0
D89E   6422                      BCC.B     L2046
D8A0   660C                      BNE.B     L2044
D8A2   3018                      Move      (A0)+, D0
D8A4   D140                      AddX      D0, D0
D8A6   641A                      BCC.B     L2046
D8A8   6004                      Bra.B     L2044
D8AA   D644           L2043:     Add       D4, D3
D8AC   65EE                      BCS.B     L2042
D8AE   8242           L2044:     Or        D2, D1
D8B0   E25A                      ROR       #$1, D2
D8B2   64F6                      BCC.B     L2043
D8B4   32C1                      Move      D1, (A1)+
D8B6   4241                      Clr       D1
D8B8   B3CA                      CmpA.L    A2, A1
D8BA   65EE                      BCS.B     L2043
D8BC   4E75                      Rts
D8BE   D644           L2045:     Add       D4, D3
D8C0   65DA                      BCS.B     L2042
D8C2   E25A           L2046:     ROR       #$1, D2
D8C4   64F8                      BCC.B     L2045
D8C6   32C1                      Move      D1, (A1)+
D8C8   4241                      Clr       D1
D8CA   B3CA                      CmpA.L    A2, A1
D8CC   65F0                      BCS.B     L2045

                      E_441:
D8CE   4E75                      Rts

                      P_tStdComment:
D8D0   4E56 0000                 Link      A6, #$0
D8D4   48E7 0300                 MoveM.L   D6-D7, -(A7)
D8D8   2055                      Move.L    (A5), A0
D8DA   2050                      Move.L    (A0), A0
D8DC   4AA8 005C                 Tst.L     $5C(A0)
D8E0   6742                      BEQ.B     L2048
D8E2   3C2E 000E                 Move      $E(A6), D6
D8E6   3E2E 000C                 Move      $C(A6), D7
D8EA   6E0E                      BGT.B     L2047
D8EC   70A0                      MoveQ.L   #$-60, D0
D8EE   4EBA 09B4                 Jsr       P_mDPutPicByte
D8F2   3F06                      Move      D6, -(A7)
D8F4   4EBA 09C6                 Jsr       P_mPutPicWord
D8F8   602A                      Bra.B     L2048
D8FA   70A1           L2047:     MoveQ.L   #$-5F, D0
D8FC   4EBA 09A6                 Jsr       P_mDPutPicByte
D900   3F06                      Move      D6, -(A7)
D902   4EBA 09B8                 Jsr       P_mPutPicWord
D906   3F07                      Move      D7, -(A7)
D908   4EBA 09B2                 Jsr       P_mPutPicWord
D90C   206E 0008                 Move.L    $8(A6), A0
D910   A029                      _HLock
D912   206E 0008                 Move.L    $8(A6), A0
D916   2F10                      Move.L    (A0), -(A7)
D918   3F07                      Move      D7, -(A7)
D91A   4EBA 0972                 Jsr       P_mPutPicData
D91E   206E 0008                 Move.L    $8(A6), A0
D922   A02A                      _HUnlock
D924   4CDF 00C0      L2048:     MoveM.L   (A7)+, D6-D7
D928   4E5E                      Unlk      A6
D92A   205F                      Move.L    (A7)+, A0
D92C   504F                      AddQ      #$8, A7
D92E   4ED0                      Jmp       (A0)

                      P_tStdGetPic:
D930   205F                      Move.L    (A7)+, A0
D932   321F                      Move      (A7)+, D1
D934   225F                      Move.L    (A7)+, A1
D936   2F08                      Move.L    A0, -(A7)
D938   2055                      Move.L    (A5), A0
D93A   2028 FF4C                 Move.L    $-B4(A0), D0
D93E   48C1                      Ext.L     D1
D940   D3A8 FF4C                 Add.L     D1, $-B4(A0)
D944   2068 FF64                 Move.L    $-9C(A0), A0
D948   2050                      Move.L    (A0), A0
D94A   D1C0                      AddA.L    D0, A0
D94C   6002                      Bra.B     L2050
D94E   12D8           L2049:     Move.B    (A0)+, (A1)+
D950   51C9 FFFC      L2050:     DBF       D1, L2049
D954   4E75                      Rts

                      P_tStdPutPic:
D956   4E56 0000                 Link      A6, #$0
D95A   48E7 0118                 MoveM.L   D7/A3-A4, -(A7)
D95E   2855                      Move.L    (A5), A4
D960   2854                      Move.L    (A4), A4
D962   4AAC 005C                 Tst.L     $5C(A4)
D966   6762                      BEQ.B     L2054
D968   286C 005C                 Move.L    $5C(A4), A4
D96C   2254                      Move.L    (A4), A1
D96E   2E29 0008                 Move.L    $8(A1), D7
D972   6756                      BEQ.B     L2054
D974   2651                      Move.L    (A1), A3
D976   302E 0008                 Move      $8(A6), D0
D97A   48C0                      Ext.L     D0
D97C   D087                      Add.L     D7, D0
D97E   2340 0008                 Move.L    D0, $8(A1)
D982   2053                      Move.L    (A3), A0
D984   3080                      Move      D0, (A0)
D986   B0A9 0004                 Cmp.L     $4(A1), D0
D98A   6F28                      BLE.B     L2051
D98C   0680 0000 0100            Add.L     #$100, D0
D992   2340 0004                 Move.L    D0, $4(A1)
D996   204B                      Move.L    A3, A0
D998   A024                      _SetHandleSize
D99A   2254                      Move.L    (A4), A1
D99C   6716                      BEQ.B     L2051
D99E   42A9 0008                 Clr.L     $8(A1)
D9A2   700A                      MoveQ.L   #$A, D0
D9A4   204B                      Move.L    A3, A0
D9A6   A024                      _SetHandleSize
D9A8   2053                      Move.L    (A3), A0
D9AA   30FC FFFF                 Move      #$-1, (A0)+
D9AE   4298                      Clr.L     (A0)+
D9B0   4298                      Clr.L     (A0)+
D9B2   6016                      Bra.B     L2054
D9B4   2251           L2051:     Move.L    (A1), A1
D9B6   2251                      Move.L    (A1), A1
D9B8   D3C7                      AddA.L    D7, A1
D9BA   206E 000A                 Move.L    $A(A6), A0
D9BE   302E 0008                 Move      $8(A6), D0
D9C2   6002                      Bra.B     L2053
D9C4   12D8           L2052:     Move.B    (A0)+, (A1)+
D9C6   51C8 FFFC      L2053:     DBF       D0, L2052
D9CA   4CDF 1880      L2054:     MoveM.L   (A7)+, D7/A3-A4
D9CE   4E5E                      Unlk      A6
D9D0   205F                      Move.L    (A7)+, A0
D9D2   5C4F                      AddQ      #$6, A7
D9D4   4ED0                      Jmp       (A0)

                      P_tPicComment:
D9D6   2055                      Move.L    (A5), A0
D9D8   2050                      Move.L    (A0), A0
D9DA   2028 0068                 Move.L    $68(A0), D0
D9DE   2078 0FC4                 Move.L    ($FC4), A0
D9E2   6706                      BEQ.B     L2055
D9E4   2040                      Move.L    D0, A0
D9E6   2068 0024                 Move.L    $24(A0), A0
D9EA   4ED0           L2055:     Jmp       (A0)

                      P_tOpenPicture:
D9EC   4E56 0000                 Link      A6, #$0
D9F0   48E7 0018                 MoveM.L   A3-A4, -(A7)
D9F4   42AE 000C                 Clr.L     $C(A6)
D9F8   2855                      Move.L    (A5), A4
D9FA   2654                      Move.L    (A4), A3
D9FC   4AAB 005C                 Tst.L     $5C(A3)
DA00   6600 009C                 BNE       L2056
DA04   4EBA BDBA                 Jsr       P_tHidePen
DA08   203C 0000 01F4            Move.L    #$1F4, D0
DA0E   A122                      _NewHandle
DA10   6600 008C                 BNE       L2056
DA14   A023                      _DisposeHandle
DA16   7062                      MoveQ.L   #$62, D0
DA18   A122                      _NewHandle
DA1A   2848                      Move.L    A0, A4
DA1C   274C 005C                 Move.L    A4, $5C(A3)
DA20   42A7                      Clr.L     -(A7)
DA22   4EBA E32A                 Jsr       P_tNewRgn
DA26   203C 0000 0100            Move.L    #$100, D0
DA2C   A122                      _NewHandle
DA2E   2248                      Move.L    A0, A1
DA30   2D49 000C                 Move.L    A1, $C(A6)
DA34   2854                      Move.L    (A4), A4
DA36   28C9                      Move.L    A1, (A4)+
DA38   2251                      Move.L    (A1), A1
DA3A   32FC 000A                 Move      #$A, (A1)+
DA3E   206E 0008                 Move.L    $8(A6), A0
DA42   22D8                      Move.L    (A0)+, (A1)+
DA44   22D8                      Move.L    (A0)+, (A1)+
DA46   28FC 0000 0100            Move.L    #$100, (A4)+
DA4C   28FC 0000 000A            Move.L    #$A, (A4)+
DA52   28DF                      Move.L    (A7)+, (A4)+
DA54   429C                      Clr.L     (A4)+
DA56   429C                      Clr.L     (A4)+
DA58   429C                      Clr.L     (A4)+
DA5A   38FC 0001                 Move      #$1, (A4)+
DA5E   425C                      Clr       (A4)+
DA60   429C                      Clr.L     (A4)+
DA62   203C 0001 0001            Move.L    #$10001, D0
DA68   28C0                      Move.L    D0, (A4)+
DA6A   28C0                      Move.L    D0, (A4)+
DA6C   429C                      Clr.L     (A4)+
DA6E   429C                      Clr.L     (A4)+
DA70   28C0                      Move.L    D0, (A4)+
DA72   38FC 0008                 Move      #$8, (A4)+
DA76   70FF                      MoveQ.L   #$-1, D0
DA78   28C0                      Move.L    D0, (A4)+
DA7A   28C0                      Move.L    D0, (A4)+
DA7C   28C0                      Move.L    D0, (A4)+
DA7E   28C0                      Move.L    D0, (A4)+
DA80   429C                      Clr.L     (A4)+
DA82   429C                      Clr.L     (A4)+
DA84   429C                      Clr.L     (A4)+
DA86   28EB 0010                 Move.L    $10(A3), (A4)+
DA8A   28FC 0000 0021            Move.L    #$21, (A4)+
DA90   28FC 0000 001E            Move.L    #$1E, (A4)+
DA96   3F3C 1101                 Move      #$1101, -(A7)
DA9A   4EBA 0820                 Jsr       P_mPutPicWord
DA9E   4CDF 1800      L2056:     MoveM.L   (A7)+, A3-A4
DAA2   4E5E                      Unlk      A6
DAA4   2E9F                      Move.L    (A7)+, (A7)
DAA6   4E75                      Rts

                      P_tClosePicture:
DAA8   48E7 0310                 MoveM.L   D6-D7/A3, -(A7)
DAAC   2655                      Move.L    (A5), A3
DAAE   2653                      Move.L    (A3), A3
DAB0   2E2B 005C                 Move.L    $5C(A3), D7
DAB4   6728                      BEQ.B     L2058
DAB6   50E7                      ST.B      -(A7)
DAB8   4EBA 07F0                 Jsr       P_mPutPicByte
DABC   2047                      Move.L    D7, A0
DABE   2050                      Move.L    (A0), A0
DAC0   2C28 000C                 Move.L    $C(A0), D6
DAC4   2028 0008                 Move.L    $8(A0), D0
DAC8   6704                      BEQ.B     L2057
DACA   2050                      Move.L    (A0), A0
DACC   A024                      _SetHandleSize
DACE   2046           L2057:     Move.L    D6, A0
DAD0   A023                      _DisposeHandle
DAD2   2047                      Move.L    D7, A0
DAD4   A023                      _DisposeHandle
DAD6   42AB 005C                 Clr.L     $5C(A3)
DADA   4EBA BCE8                 Jsr       P_tShowPen
DADE   4CDF 08C0      L2058:     MoveM.L   (A7)+, D6-D7/A3
DAE2   4E75                      Rts

                      P_tKillPicture:
DAE4   225F                      Move.L    (A7)+, A1
DAE6   205F                      Move.L    (A7)+, A0
DAE8   A023                      _DisposeHandle
DAEA   4ED1                      Jmp       (A1)

                      P_tDrawPicture:
DAEC   4E56 FF60                 Link      A6, #$-A0
DAF0   48E7 1F38                 MoveM.L   D3-D7/A2-A4, -(A7)
DAF4   2855                      Move.L    (A5), A4
DAF6   2654                      Move.L    (A4), A3
DAF8   4AAE 000C                 Tst.L     $C(A6)
DAFC   6700 010E                 BEQ       L2062
DB00   206E 0008                 Move.L    $8(A6), A0
DB04   3028 0006                 Move      $6(A0), D0
DB08   9068 0002                 Sub       $2(A0), D0
DB0C   6F00 00FE                 BLE       L2062
DB10   3D40 FFF2                 Move      D0, $-E(A6)
DB14   3028 0004                 Move      $4(A0), D0
DB18   9050                      Sub       (A0), D0
DB1A   6F00 00F0                 BLE       L2062
DB1E   3D40 FFF0                 Move      D0, $-10(A6)
DB22   43EE FFE8                 Lea.L     $-18(A6), A1
DB26   22D8                      Move.L    (A0)+, (A1)+
DB28   22D8                      Move.L    (A0)+, (A1)+
DB2A   206E 000C                 Move.L    $C(A6), A0
DB2E   2050                      Move.L    (A0), A0
DB30   41E8 0002                 Lea.L     $2(A0), A0
DB34   3028 0006                 Move      $6(A0), D0
DB38   9068 0002                 Sub       $2(A0), D0
DB3C   6F00 00CE                 BLE       L2062
DB40   3D40 FFF6                 Move      D0, $-A(A6)
DB44   3028 0004                 Move      $4(A0), D0
DB48   9050                      Sub       (A0), D0
DB4A   6F00 00C0                 BLE       L2062
DB4E   3D40 FFF4                 Move      D0, $-C(A6)
DB52   43EE FFE0                 Lea.L     $-20(A6), A1
DB56   22D8                      Move.L    (A0)+, (A1)+
DB58   22D8                      Move.L    (A0)+, (A1)+
DB5A   204B                      Move.L    A3, A0
DB5C   43EE FF60                 Lea.L     $-A0(A6), A1
DB60   7035                      MoveQ.L   #$35, D0
DB62   32D8           L2059:     Move      (A0)+, (A1)+
DB64   51C8 FFFC                 DBF       D0, L2059
DB68   42AC FF58                 Clr.L     $-A8(A4)
DB6C   296E 000C FF64            Move.L    $C(A6), $-9C(A4)
DB72   297C 0000 000A            Move.L    #$A, $-B4(A4)
       FF4C
DB7A   41EE FFCC                 Lea.L     $-34(A6), A0
DB7E   4298                      Clr.L     (A0)+
DB80   4298                      Clr.L     (A0)+
DB82   4298                      Clr.L     (A0)+
DB84   4298                      Clr.L     (A0)+
DB86   4298                      Clr.L     (A0)+
DB88   2D6B 001C FFFC            Move.L    $1C(A3), $-4(A6)
DB8E   42A7                      Clr.L     -(A7)
DB90   4EBA E1BC                 Jsr       P_tNewRgn
DB94   2D5F FFF8                 Move.L    (A7)+, $-8(A6)
DB98   42A7                      Clr.L     -(A7)
DB9A   4EBA E1B2                 Jsr       P_tNewRgn
DB9E   275F 001C                 Move.L    (A7)+, $1C(A3)
DBA2   41EB 0020                 Lea.L     $20(A3), A0
DBA6   4298                      Clr.L     (A0)+
DBA8   4298                      Clr.L     (A0)+
DBAA   70FF                      MoveQ.L   #$-1, D0
DBAC   20C0                      Move.L    D0, (A0)+
DBAE   20C0                      Move.L    D0, (A0)+
DBB0   4298                      Clr.L     (A0)+
DBB2   223C 0001 0001            Move.L    #$10001, D1
DBB8   20C1                      Move.L    D1, (A0)+
DBBA   30FC 0008                 Move      #$8, (A0)+
DBBE   20C0                      Move.L    D0, (A0)+
DBC0   20C0                      Move.L    D0, (A0)+
DBC2   5448                      AddQ      #$2, A0
DBC4   4298                      Clr.L     (A0)+
DBC6   30FC 0001                 Move      #$1, (A0)+
DBCA   4258                      Clr       (A0)+
DBCC   4298                      Clr.L     (A0)+
DBCE   20FC 0000 0021            Move.L    #$21, (A0)+
DBD4   20FC 0000 001E            Move.L    #$1E, (A0)+
DBDA   4227           L2060:     Clr.B     -(A7)
DBDC   486E FFCC                 Pea.L     $-34(A6)
DBE0   4EBA 0036                 Jsr       P_mPicItem
DBE4   101F                      Move.B    (A7)+, D0
DBE6   66F2                      BNE.B     L2060
DBE8   206E FFF8                 Move.L    $-8(A6), A0
DBEC   A023                      _DisposeHandle
DBEE   206B 001C                 Move.L    $1C(A3), A0
DBF2   A023                      _DisposeHandle
DBF4   41EE FF60                 Lea.L     $-A0(A6), A0
DBF8   7035                      MoveQ.L   #$35, D0
DBFA   36D8           L2061:     Move      (A0)+, (A3)+
DBFC   51C8 FFFC                 DBF       D0, L2061
DC00   42AC FF58                 Clr.L     $-A8(A4)
DC04   42AC FF64                 Clr.L     $-9C(A4)
DC08   42AC FF4C                 Clr.L     $-B4(A4)
DC0C   4CDF 1CF8      L2062:     MoveM.L   (A7)+, D3-D7/A2-A4
DC10   4E5E                      Unlk      A6
DC12   205F                      Move.L    (A7)+, A0
DC14   504F                      AddQ      #$8, A7
DC16   4ED0                      Jmp       (A0)

                      P_mPicItem:
DC18   4E56 FEC8                 Link      A6, #$-138
DC1C   48E7 1F38                 MoveM.L   D3-D7/A2-A4, -(A7)
DC20   2D4F FEC8                 Move.L    A7, $-138(A6)
DC24   2855                      Move.L    (A5), A4
DC26   2654                      Move.L    (A4), A3
DC28   6100 0578                 Bsr       P323
DC2C   3E00                      Move      D0, D7
DC2E   0C07 00FF                 Cmp.B     #$-1, D7
DC32   6608                      BNE.B     L2063
DC34   422E 000C                 Clr.B     $C(A6)
DC38   6000 0634                 Bra       E_477
DC3C   1D7C 0001 000C L2063:     Move.B    #$1, $C(A6)
DC42   0C47 0020                 Cmp       #$20, D7
DC46   653E                      BCS.B     L2064
DC48   1007                      Move.B    D7, D0
DC4A   0240 00F0                 And       #$F0, D0
DC4E   0807 0003                 BTst.B    #$3, D7
DC52   56EE FFD8                 SNE.B     $-28(A6)
DC56   0247 0007                 And       #$7, D7
DC5A   E648                      LsR       #$3, D0
DC5C   303B 0006                 Move      DT52(D0.W), D0
DC60   4EFB 0002                 Jmp       DT52(D0.W)

                      DT52:
DC64   060A 060A 01B2            DC.B      '      '
DC6A   02B8 02D2 02F4            DC.B      '      '
DC70   030E 0334 0366            DC.B      '   4 f'
DC76   0398 046E 060A            DC.B      '   n  '
DC7C   060A 060A 060A            DC.B      '      '
DC82   060A 060A                 DC.B      '    '
DC86   0247 001F      L2064:     And       #$1F, D7
DC8A   DE47                      Add       D7, D7
DC8C   303B 7006                 Move      DT53(D7.W), D0
DC90   4EFB 0002                 Jmp       DT53(D0.W)

                      DT53:
DC94   05DA 0040 009E            DC.B      '   @  '
DC9A   00A4 00AA 00B4            DC.B      '      '
DCA0   00C0 00C6 0116            DC.B      '      '
DCA6   011E 0126 012E            DC.B      '   & .'
DCAC   014E 00BA 0092            DC.B      ' N    '
DCB2   0098 00E6 010E            DC.B      '      '
DCB8   05DA 05DA 05DA            DC.B      '      '
DCBE   05DA 05DA 05DA            DC.B      '      '
DCC4   05DA 05DA 05DA            DC.B      '      '
DCCA   05DA 05DA 05DA            DC.B      '      '
DCD0   05DA 05DA                 DC.B      '    '

                      E_450:
DCD4   6100 054A                 Bsr       P328
DCD8   246E 0008                 Move.L    $8(A6), A2
DCDC   2F2E FFFC                 Move.L    $-4(A6), -(A7)
DCE0   2F2A 002C                 Move.L    $2C(A2), -(A7)
DCE4   4EBA E118      L2065:     Jsr       P_tCopyRgn
DCE8   246E 0008                 Move.L    $8(A6), A2
DCEC   2F2E FFFC                 Move.L    $-4(A6), -(A7)
DCF0   486A 0014                 Pea.L     $14(A2)
DCF4   486A 001C                 Pea.L     $1C(A2)
DCF8   4EBA E51E                 Jsr       P_tMapRgn
DCFC   246E 0008                 Move.L    $8(A6), A2
DD00   2F2E FFFC                 Move.L    $-4(A6), -(A7)
DD04   2F2A 0030                 Move.L    $30(A2), -(A7)
DD08   2F2B 001C                 Move.L    $1C(A3), -(A7)
DD0C   4EBA E2D0                 Jsr       P_tSectRgn
DD10   6000 054C                 Bra       L2102
DD14   7C08           L2066:     MoveQ.L   #$8, D6
DD16   6000 047E                 Bra       L2097
DD1A   7C04           L2067:     MoveQ.L   #$4, D6
DD1C   6000 0478                 Bra       L2097
DD20   7C02           L2068:     MoveQ.L   #$2, D6
DD22   6000 0472                 Bra       L2097

                      E_451:
DD26   47EB 0050                 Lea.L     $50(A3), A3
DD2A   60EE                      Bra.B     L2067

                      E_452:
DD2C   47EB 0054                 Lea.L     $54(A3), A3
DD30   60E8                      Bra.B     L2067

                      E_453:
DD32   47EB 0020                 Lea.L     $20(A3), A3
DD36   60DC                      Bra.B     L2066

                      E_454:
DD38   47EB 0044                 Lea.L     $44(A3), A3
DD3C   60E2                      Bra.B     L2068

                      E_455:
DD3E   47EB 0046                 Lea.L     $46(A3), A3
DD42   7C01                      MoveQ.L   #$1, D6
DD44   6000 0450                 Bra       L2097

                      E_456:
DD48   47EB 0048                 Lea.L     $48(A3), A3
DD4C   60D2                      Bra.B     L2068

                      E_457:
DD4E   47EB 004A                 Lea.L     $4A(A3), A3
DD52   60CC                      Bra.B     L2068

                      E_458:
DD54   47EB 004C                 Lea.L     $4C(A3), A3
DD58   60C0                      Bra.B     L2067

                      E_459:
DD5A   4EBA 047A                 Jsr       P326
DD5E   2740 0034                 Move.L    D0, $34(A3)
DD62   486B 0034                 Pea.L     $34(A3)
DD66   246E 0008                 Move.L    $8(A6), A2
DD6A   486A 0014                 Pea.L     $14(A2)
DD6E   486A 001C                 Pea.L     $1C(A2)
DD72   4EBA 079E                 Jsr       P_tScalePt
DD76   6000 04F6                 Bra       E_477

                      E_460:
DD7A   266E 0008                 Move.L    $8(A6), A3
DD7E   4EBA 0456                 Jsr       P326
DD82   2740 0024                 Move.L    D0, $24(A3)
DD86   4EBA 044E                 Jsr       P326
DD8A   2740 0028                 Move.L    D0, $28(A3)
DD8E   486B 0024                 Pea.L     $24(A3)
DD92   486B 0014                 Pea.L     $14(A3)
DD96   486B 001C                 Pea.L     $1C(A3)
DD9A   4EBA 0776                 Jsr       P_tScalePt
DD9E   6000 04CE                 Bra       E_477

                      E_461:
DDA2   6100 03FE                 Bsr       P323
DDA6   6000 04C6                 Bra       E_477

                      E_462:
DDAA   47EB 0038                 Lea.L     $38(A3), A3
DDAE   6000 FF70                 Bra       L2068

                      E_463:
DDB2   47EB 003A                 Lea.L     $3A(A3), A3
DDB6   6000 FF5C                 Bra       L2066

                      E_464:
DDBA   47EB 0028                 Lea.L     $28(A3), A3
DDBE   6000 FF54                 Bra       L2066

                      E_465:
DDC2   4EBA 0412                 Jsr       P326
DDC6   246E 0008                 Move.L    $8(A6), A2
DDCA   2540 0010                 Move.L    D0, $10(A2)
DDCE   486A 0010                 Pea.L     $10(A2)
DDD2   486A 0014                 Pea.L     $14(A2)
DDD6   486A 001C                 Pea.L     $1C(A2)
DDDA   4EBA 0736                 Jsr       P_tScalePt
DDDE   6000 048E                 Bra       E_477

                      E_466:
DDE2   4EBA 03F2                 Jsr       P326
DDE6   246E 0008                 Move.L    $8(A6), A2
DDEA   D16A 0014                 Add       D0, $14(A2)
DDEE   D16A 0018                 Add       D0, $18(A2)
DDF2   D16C FF58                 Add       D0, $-A8(A4)
DDF6   4840                      Swap      D0
DDF8   D16A 0016                 Add       D0, $16(A2)
DDFC   D16A 001A                 Add       D0, $1A(A2)
DE00   D16C FF5A                 Add       D0, $-A6(A4)
DE04   2F2A 002C                 Move.L    $2C(A2), -(A7)
DE08   42A7                      Clr.L     -(A7)
DE0A   4EBA DF42                 Jsr       P_tNewRgn
DE0E   2D57 FFFC                 Move.L    (A7), $-4(A6)
DE12   6000 FED0                 Bra       L2065

                      E_467:
DE16   4A2E FFD8                 Tst.B     $-28(A6)
DE1A   6600 007E                 BNE       L2073
DE1E   246E 0008                 Move.L    $8(A6), A2
DE22   202A 0008                 Move.L    $8(A2), D0
DE26   E25F                      ROR       #$1, D7
DE28   6504                      BCS.B     L2069
DE2A   6100 03AA                 Bsr       P326
DE2E   2740 0030      L2069:     Move.L    D0, $30(A3)
DE32   2D40 FFD4                 Move.L    D0, $-2C(A6)
DE36   246E 0008                 Move.L    $8(A6), A2
DE3A   486B 0030                 Pea.L     $30(A3)
DE3E   486A 0014                 Pea.L     $14(A2)
DE42   486A 001C                 Pea.L     $1C(A2)
DE46   4EBA 0722                 Jsr       P_tMapPt
DE4A   E25F                      ROR       #$1, D7
DE4C   650A                      BCS.B     L2070
DE4E   6100 0386                 Bsr       P326
DE52   2D40 FFD4                 Move.L    D0, $-2C(A6)
DE56   6010                      Bra.B     L2071
DE58   6100 035A      L2070:     Bsr       P324
DE5C   D16E FFD6                 Add       D0, $-2A(A6)
DE60   6100 0352                 Bsr       P324
DE64   D16E FFD4                 Add       D0, $-2C(A6)
DE68   246E 0008      L2071:     Move.L    $8(A6), A2
DE6C   256E FFD4 0008            Move.L    $-2C(A6), $8(A2)
DE72   486E FFD4                 Pea.L     $-2C(A6)
DE76   486A 0014                 Pea.L     $14(A2)
DE7A   486A 001C                 Pea.L     $1C(A2)
DE7E   4EBA 06EA                 Jsr       P_tMapPt
DE82   2F2E FFD4                 Move.L    $-2C(A6), -(A7)
DE86   2078 0E40                 Move.L    ($E40), A0
DE8A   202B 0068                 Move.L    $68(A3), D0
DE8E   6706                      BEQ.B     L2072
DE90   2040                      Move.L    D0, A0
DE92   2068 0004                 Move.L    $4(A0), A0
DE96   6000 03B8      L2072:     Bra       L2099
DE9A   0247 0003      L2073:     And       #$3, D7
DE9E   6722                      BEQ.B     L2075
DEA0   E25F                      ROR       #$1, D7
DEA2   640C                      BCC.B     L2074
DEA4   6100 02FC                 Bsr       P323
DEA8   246E 0008                 Move.L    $8(A6), A2
DEAC   D16A 000E                 Add       D0, $E(A2)
DEB0   E25F           L2074:     ROR       #$1, D7
DEB2   641A                      BCC.B     L2076
DEB4   6100 02EC                 Bsr       P323
DEB8   246E 0008                 Move.L    $8(A6), A2
DEBC   D16A 000C                 Add       D0, $C(A2)
DEC0   600C                      Bra.B     L2076
DEC2   6100 0312      L2075:     Bsr       P326
DEC6   246E 0008                 Move.L    $8(A6), A2
DECA   2540 000C                 Move.L    D0, $C(A2)
DECE   6100 02D2      L2076:     Bsr       P323
DED2   3C00                      Move      D0, D6
DED4   486E FED4                 Pea.L     $-12C(A6)
DED8   3F06                      Move      D6, -(A7)
DEDA   4EBA 039C                 Jsr       P_mGetPicData
DEDE   246E 0008                 Move.L    $8(A6), A2
DEE2   276A 000C 0030            Move.L    $C(A2), $30(A3)
DEE8   486B 0030                 Pea.L     $30(A3)
DEEC   486A 0014                 Pea.L     $14(A2)
DEF0   486A 001C                 Pea.L     $1C(A2)
DEF4   4EBA 0674                 Jsr       P_tMapPt
DEF8   3F06                      Move      D6, -(A7)
DEFA   486E FED4                 Pea.L     $-12C(A6)
DEFE   246E 0008                 Move.L    $8(A6), A2
DF02   2F2A 0024                 Move.L    $24(A2), -(A7)
DF06   2F2A 0028                 Move.L    $28(A2), -(A7)
DF0A   2078 0E08                 Move.L    ($E08), A0
DF0E   202B 0068                 Move.L    $68(A3), D0
DF12   6704                      BEQ.B     L2077
DF14   2040                      Move.L    D0, A0
DF16   2050                      Move.L    (A0), A0
DF18   6000 0336      L2077:     Bra       L2099

                      E_468:
DF1C   1F07                      Move.B    D7, -(A7)
DF1E   6100 02C6                 Bsr       P327
DF22   2078 0E80                 Move.L    ($E80), A0
DF26   202B 0068                 Move.L    $68(A3), D0
DF2A   6706                      BEQ.B     L2078
DF2C   2040                      Move.L    D0, A0
DF2E   2068 0008                 Move.L    $8(A0), A0
DF32   6000 031C      L2078:     Bra       L2099

                      E_469:
DF36   1F07                      Move.B    D7, -(A7)
DF38   6100 02AC                 Bsr       P327
DF3C   246E 0008                 Move.L    $8(A6), A2
DF40   2F2A 0010                 Move.L    $10(A2), -(A7)
DF44   2078 0EBC                 Move.L    ($EBC), A0
DF48   202B 0068                 Move.L    $68(A3), D0
DF4C   6706                      BEQ.B     L2079
DF4E   2040                      Move.L    D0, A0
DF50   2068 000C                 Move.L    $C(A0), A0
DF54   6000 02FA      L2079:     Bra       L2099

                      E_470:
DF58   1F07                      Move.B    D7, -(A7)
DF5A   6100 028A                 Bsr       P327
DF5E   2078 0ED8                 Move.L    ($ED8), A0
DF62   202B 0068                 Move.L    $68(A3), D0
DF66   6706                      BEQ.B     L2080
DF68   2040                      Move.L    D0, A0
DF6A   2068 0010                 Move.L    $10(A0), A0
DF6E   6000 02E0      L2080:     Bra       L2099

                      E_471:
DF72   1F07                      Move.B    D7, -(A7)
DF74   6100 0270                 Bsr       P327
DF78   6100 024C                 Bsr       P325
DF7C   3F00                      Move      D0, -(A7)
DF7E   6100 0246                 Bsr       P325
DF82   3F00                      Move      D0, -(A7)
DF84   2078 0EF4                 Move.L    ($EF4), A0
DF88   202B 0068                 Move.L    $68(A3), D0
DF8C   6706                      BEQ.B     L2081
DF8E   2040                      Move.L    D0, A0
DF90   2068 0014                 Move.L    $14(A0), A0
DF94   6000 02BA      L2081:     Bra       L2099

                      E_472:
DF98   6100 0286                 Bsr       P328
DF9C   2F2E FFFC                 Move.L    $-4(A6), -(A7)
DFA0   246E 0008                 Move.L    $8(A6), A2
DFA4   486A 0014                 Pea.L     $14(A2)
DFA8   486A 001C                 Pea.L     $1C(A2)
DFAC   4EBA DB56                 Jsr       P_tMapPoly
DFB0   1F07                      Move.B    D7, -(A7)
DFB2   2F2E FFFC                 Move.L    $-4(A6), -(A7)
DFB6   2078 0F14                 Move.L    ($F14), A0
DFBA   202B 0068                 Move.L    $68(A3), D0
DFBE   6706                      BEQ.B     L2082
DFC0   2040                      Move.L    D0, A0
DFC2   2068 0018                 Move.L    $18(A0), A0
DFC6   6000 028C      L2082:     Bra       L2100

                      E_473:
DFCA   6100 0254                 Bsr       P328
DFCE   2F2E FFFC                 Move.L    $-4(A6), -(A7)
DFD2   246E 0008                 Move.L    $8(A6), A2
DFD6   486A 0014                 Pea.L     $14(A2)
DFDA   486A 001C                 Pea.L     $1C(A2)
DFDE   4EBA E238                 Jsr       P_tMapRgn
DFE2   1F07                      Move.B    D7, -(A7)
DFE4   2F2E FFFC                 Move.L    $-4(A6), -(A7)
DFE8   2078 0F44                 Move.L    ($F44), A0
DFEC   202B 0068                 Move.L    $68(A3), D0
DFF0   6706                      BEQ.B     L2083
DFF2   2040                      Move.L    D0, A0
DFF4   2068 001C                 Move.L    $1C(A0), A0
DFF8   6000 025A      L2083:     Bra       L2100

                      E_474:
DFFC   486E FFDE                 Pea.L     $-22(A6)
E000   3F3C 001A                 Move      #$1A, -(A7)
E004   4EBA 0272                 Jsr       P_mGetPicData
E008   246E 0008                 Move.L    $8(A6), A2
E00C   486E FFF0                 Pea.L     $-10(A6)
E010   486A 0014                 Pea.L     $14(A2)
E014   486A 001C                 Pea.L     $1C(A2)
E018   4EBA 05B2                 Jsr       P_tMapRect
E01C   486E FFDA                 Pea.L     $-26(A6)
E020   486E FFE8                 Pea.L     $-18(A6)
E024   486E FFF0                 Pea.L     $-10(A6)
E028   6100 019C                 Bsr       P325
E02C   3F00                      Move      D0, -(A7)
E02E   4A47                      Tst       D7
E030   6604                      BNE.B     L2084
E032   42A7                      Clr.L     -(A7)
E034   600E                      Bra.B     L2085
E036   6100 01E8      L2084:     Bsr       P328
E03A   2F2E FFFC                 Move.L    $-4(A6), -(A7)
E03E   2D6E FFFC FFF8            Move.L    $-4(A6), $-8(A6)
E044   3C2E FFE4      L2085:     Move      $-1C(A6), D6
E048   9C6E FFE0                 Sub       $-20(A6), D6
E04C   3A06                      Move      D6, D5
E04E   CAEE FFDE                 MulU      $-22(A6), D5
E052   2005                      Move.L    D5, D0
E054   A122                      _NewHandle
E056   6700 000A                 BEQ       L2086
E05A   205F                      Move.L    (A7)+, A0
E05C   A023                      _DisposeHandle
E05E   6000 0206                 Bra       L2103
E062   A029           L2086:     _HLock
E064   2D48 FFFC                 Move.L    A0, $-4(A6)
E068   206E FFFC                 Move.L    $-4(A6), A0
E06C   4A2E FFD8                 Tst.B     $-28(A6)
E070   672E                      BEQ.B     L2089
E072   2D50 FECC                 Move.L    (A0), $-134(A6)
E076   6022                      Bra.B     L2088
E078   6100 0128      L2087:     Bsr       P323
E07C   486E FED4                 Pea.L     $-12C(A6)
E080   2D57 FED0                 Move.L    (A7), $-130(A6)
E084   3F00                      Move      D0, -(A7)
E086   4EBA 01F0                 Jsr       P_mGetPicData
E08A   486E FED0                 Pea.L     $-130(A6)
E08E   486E FECC                 Pea.L     $-134(A6)
E092   3F2E FFDE                 Move      $-22(A6), -(A7)
E096   4EBA EF84                 Jsr       P_tUnpackBits
E09A   51CE FFDC      L2088:     DBF       D6, L2087
E09E   6008                      Bra.B     L2090
E0A0   2F10           L2089:     Move.L    (A0), -(A7)
E0A2   3F05                      Move      D5, -(A7)
E0A4   4EBA 01D2                 Jsr       P_mGetPicData
E0A8   206E FFFC      L2090:     Move.L    $-4(A6), A0
E0AC   2D50 FFDA                 Move.L    (A0), $-26(A6)
E0B0   2078 0FAC                 Move.L    ($FAC), A0
E0B4   202B 0068                 Move.L    $68(A3), D0
E0B8   6706                      BEQ.B     L2091
E0BA   2040                      Move.L    D0, A0
E0BC   2068 0020                 Move.L    $20(A0), A0
E0C0   4E90           L2091:     Jsr       (A0)
E0C2   206E FFFC                 Move.L    $-4(A6), A0
E0C6   A02A                      _HUnlock
E0C8   4A47                      Tst       D7
E0CA   6700 0192                 BEQ       L2102
E0CE   6000 0188                 Bra       L2101

                      E_475:
E0D2   6100 00F2                 Bsr       P325
E0D6   3F00                      Move      D0, -(A7)
E0D8   4A07                      Tst.B     D7
E0DA   6618                      BNE.B     L2093
E0DC   4267                      Clr       -(A7)
E0DE   42A7                      Clr.L     -(A7)
E0E0   2078 0FC4                 Move.L    ($FC4), A0
E0E4   202B 0068                 Move.L    $68(A3), D0
E0E8   6706                      BEQ.B     L2092
E0EA   2040                      Move.L    D0, A0
E0EC   2068 0024                 Move.L    $24(A0), A0
E0F0   6000 015E      L2092:     Bra       L2099
E0F4   6100 00D0      L2093:     Bsr       P325
E0F8   3F00                      Move      D0, -(A7)
E0FA   4244                      Clr       D4
E0FC   6100 0126                 Bsr       P329
E100   2F2E FFFC                 Move.L    $-4(A6), -(A7)
E104   2078 0FC4                 Move.L    ($FC4), A0
E108   202B 0068                 Move.L    $68(A3), D0
E10C   6706                      BEQ.B     L2094
E10E   2040                      Move.L    D0, A0
E110   2068 0024                 Move.L    $24(A0), A0
E114   6000 013E      L2094:     Bra       L2100

                      E_476:
E118   2055                      Move.L    (A5), A0
E11A   2268 FF86                 Move.L    $-7A(A0), A1
E11E   3028 FF8A                 Move      $-76(A0), D0
E122   41FA 000E                 Lea.L     DT54, A0
E126   7218                      MoveQ.L   #$18, D1
E128   2298           L2095:     Move.L    (A0)+, (A1)
E12A   D2C0                      AddA      D0, A1
E12C   51C9 FFFA                 DBF       D1, L2095
E130   60FE           L2096:     Bra.B     L2096

                      DT54:
E132   0000 0000 7EE9            DC.B      '    ~ '
E138   D200 44A9 1A00            DC.B      '  D   '
E13E   74A9 9610 14A9            DC.B      't     '
E144   1230 74EF D260            DC.B      ' 0t  `'
E14A   0000 0040 7774            DC.B      '   @wt'
E150   4358 4557 C7FC            DC.B      'CXEW  '
E156   7755 4FFE 4654            DC.B      'wUO FT'
E15C   4FF8 4574 4FF0            DC.B      'O EtO '
E162   0000 0FF0 7774            DC.B      '    wt'
E168   EFF8 5554 8FFE            DC.B      '  UT  '
E16E   7774 CFFE 5444            DC.B      'wt  TD'
E174   87BC 5447 E318            DC.B      '  TG  '
E17A   0000 0000 7745            DC.B      '    wE'
E180   D7FE 456D 554A            DC.B      '  EmUJ'
E186   4555 D56E 4545            DC.B      'EU nEE'
E18C   154C 7745 1D7A            DC.B      ' LwE z'
E192   0000 0000                 DC.B      '    '
E196   2F0B           L2097:     Move.L    A3, -(A7)
E198   3F06                      Move      D6, -(A7)
E19A   4EBA 00DC                 Jsr       P_mGetPicData
E19E   6000 00CE                 Bra       E_477

                      P323:
E1A2   4227                      Clr.B     -(A7)
E1A4   2F0F                      Move.L    A7, -(A7)
E1A6   3F3C 0001                 Move      #$1, -(A7)
E1AA   4EBA 00CC                 Jsr       P_mGetPicData
E1AE   4240                      Clr       D0
E1B0   101F                      Move.B    (A7)+, D0
E1B2   4E75                      Rts

                      P324:
E1B4   4227                      Clr.B     -(A7)
E1B6   2F0F                      Move.L    A7, -(A7)
E1B8   3F3C 0001                 Move      #$1, -(A7)
E1BC   4EBA 00BA                 Jsr       P_mGetPicData
E1C0   101F                      Move.B    (A7)+, D0
E1C2   4880                      Ext       D0
E1C4   4E75                      Rts

                      P325:
E1C6   4267                      Clr       -(A7)
E1C8   2F0F                      Move.L    A7, -(A7)
E1CA   3F3C 0002                 Move      #$2, -(A7)
E1CE   4EBA 00A8                 Jsr       P_mGetPicData
E1D2   301F                      Move      (A7)+, D0
E1D4   4E75                      Rts

                      P326:
E1D6   42A7                      Clr.L     -(A7)
E1D8   2F0F                      Move.L    A7, -(A7)
E1DA   3F3C 0004                 Move      #$4, -(A7)
E1DE   4EBA 0098                 Jsr       P_mGetPicData
E1E2   201F                      Move.L    (A7)+, D0
E1E4   4E75                      Rts

                      P327:
E1E6   4A2E FFD8                 Tst.B     $-28(A6)
E1EA   660E                      BNE.B     L2098
E1EC   246E 0008                 Move.L    $8(A6), A2
E1F0   4852                      Pea.L     (A2)
E1F2   3F3C 0008                 Move      #$8, -(A7)
E1F6   4EBA 0080                 Jsr       P_mGetPicData
E1FA   246E 0008      L2098:     Move.L    $8(A6), A2
E1FE   2D52 FFF0                 Move.L    (A2), $-10(A6)
E202   2D6A 0004 FFF4            Move.L    $4(A2), $-C(A6)
E208   486E FFF0                 Pea.L     $-10(A6)
E20C   486A 0014                 Pea.L     $14(A2)
E210   486A 001C                 Pea.L     $1C(A2)
E214   4EBA 03B6                 Jsr       P_tMapRect
E218   205F                      Move.L    (A7)+, A0
E21A   486E FFF0                 Pea.L     $-10(A6)
E21E   4ED0                      Jmp       (A0)

                      P328:
E220   7802                      MoveQ.L   #$2, D4
E222   61A2                      Bsr.B     P325

                      P329:
E224   48C0                      Ext.L     D0
E226   2A00                      Move.L    D0, D5
E228   A122                      _NewHandle
E22A   6600 003A                 BNE       L2103
E22E   2D48 FFFC                 Move.L    A0, $-4(A6)
E232   A029                      _HLock
E234   206E FFFC                 Move.L    $-4(A6), A0
E238   2050                      Move.L    (A0), A0
E23A   3085                      Move      D5, (A0)
E23C   9A44                      Sub       D4, D5
E23E   4870 4000                 Pea.L     $0(A0,D4.W)
E242   3F05                      Move      D5, -(A7)
E244   4EBA 0032                 Jsr       P_mGetPicData
E248   206E FFFC                 Move.L    $-4(A6), A0
E24C   A029                      _HLock
E24E   4E75                      Rts
E250   4E90           L2099:     Jsr       (A0)
E252   601A                      Bra.B     E_477
E254   4E90           L2100:     Jsr       (A0)
E256   6006                      Bra.B     L2102
E258   206E FFF8      L2101:     Move.L    $-8(A6), A0
E25C   A023                      _DisposeHandle
E25E   206E FFFC      L2102:     Move.L    $-4(A6), A0
E262   A023                      _DisposeHandle
E264   6008                      Bra.B     E_477
E266   2E6E FEC8      L2103:     Move.L    $-138(A6), A7
E26A   422E 000C                 Clr.B     $C(A6)

                      E_477:
E26E   4CDF 1CF8                 MoveM.L   (A7)+, D3-D7/A2-A4
E272   4E5E                      Unlk      A6
E274   2E9F                      Move.L    (A7)+, (A7)
E276   4E75                      Rts

                      P_mGetPicData:
E278   2055                      Move.L    (A5), A0
E27A   2050                      Move.L    (A0), A0
E27C   2028 0068                 Move.L    $68(A0), D0
E280   2078 0FB8                 Move.L    ($FB8), A0
E284   6706                      BEQ.B     L2104
E286   2040                      Move.L    D0, A0
E288   2068 002C                 Move.L    $2C(A0), A0
E28C   4ED0           L2104:     Jmp       (A0)

                      P_mPutPicData:
E28E   2055                      Move.L    (A5), A0
E290   2050                      Move.L    (A0), A0
E292   2028 0068                 Move.L    $68(A0), D0
E296   2078 0FC0                 Move.L    ($FC0), A0
E29A   6706                      BEQ.B     L2105
E29C   2040                      Move.L    D0, A0
E29E   2068 0030                 Move.L    $30(A0), A0
E2A2   4ED0           L2105:     Jmp       (A0)

                      P_mDPutPicByte:
E2A4   205F                      Move.L    (A7)+, A0
E2A6   1F00                      Move.B    D0, -(A7)
E2A8   2F08                      Move.L    A0, -(A7)

                      P_mPutPicByte:
E2AA   486F 0004                 Pea.L     $4(A7)
E2AE   3F3C 0001                 Move      #$1, -(A7)
E2B2   4EBA FFDA                 Jsr       P_mPutPicData
E2B6   205F                      Move.L    (A7)+, A0
E2B8   4A1F                      Tst.B     (A7)+
E2BA   4ED0                      Jmp       (A0)

                      P_mPutPicWord:
E2BC   486F 0004                 Pea.L     $4(A7)
E2C0   3F3C 0002                 Move      #$2, -(A7)
E2C4   4EBA FFC8                 Jsr       P_mPutPicData
E2C8   205F                      Move.L    (A7)+, A0
E2CA   4A5F                      Tst       (A7)+
E2CC   4ED0                      Jmp       (A0)

                      P_mPutPicLong:
E2CE   486F 0004                 Pea.L     $4(A7)
E2D2   3F3C 0004                 Move      #$4, -(A7)
E2D6   4EBA FFB6                 Jsr       P_mPutPicData
E2DA   2E9F                      Move.L    (A7)+, (A7)
E2DC   4E75                      Rts

                      P_mPutPicPat:
E2DE   205F                      Move.L    (A7)+, A0
E2E0   3F3C 0008                 Move      #$8, -(A7)
E2E4   2F08                      Move.L    A0, -(A7)
E2E6   4EFA FFA6                 Jmp       P_mPutPicData

                      P_mPutPicRect:
E2EA   205F                      Move.L    (A7)+, A0
E2EC   225F                      Move.L    (A7)+, A1
E2EE   101F                      Move.B    (A7)+, D0
E2F0   2F08                      Move.L    A0, -(A7)
E2F2   2411                      Move.L    (A1), D2
E2F4   2229 0004                 Move.L    $4(A1), D1
E2F8   2055                      Move.L    (A5), A0
E2FA   2050                      Move.L    (A0), A0
E2FC   2068 005C                 Move.L    $5C(A0), A0
E300   2050                      Move.L    (A0), A0
E302   B4A8 004A                 Cmp.L     $4A(A0), D2
E306   660C                      BNE.B     L2106
E308   B2A8 004E                 Cmp.L     $4E(A0), D1
E30C   6606                      BNE.B     L2106
E30E   5040                      AddQ      #$8, D0
E310   4EFA FF92                 Jmp       P_mDPutPicByte
E314   2142 004A      L2106:     Move.L    D2, $4A(A0)
E318   2141 004E                 Move.L    D1, $4E(A0)
E31C   2F09                      Move.L    A1, -(A7)
E31E   3F3C 0008                 Move      #$8, -(A7)
E322   4EBA FF80                 Jsr       P_mDPutPicByte
E326   4EBA FF66                 Jsr       P_mPutPicData
E32A   4E75                      Rts

                      P_mPutPicRgn:
E32C   206F 0004                 Move.L    $4(A7), A0
E330   A029                      _HLock
E332   206F 0004                 Move.L    $4(A7), A0
E336   2050                      Move.L    (A0), A0
E338   2F08                      Move.L    A0, -(A7)
E33A   3F10                      Move      (A0), -(A7)
E33C   4EBA FF50                 Jsr       P_mPutPicData
E340   206F 0004                 Move.L    $4(A7), A0
E344   A02A                      _HUnlock
E346   2E9F                      Move.L    (A7)+, (A7)
E348   4E75                      Rts

                      P_mPutPicVerb:
E34A   4E56 0000                 Link      A6, #$0
E34E   48E7 0718                 MoveM.L   D5-D7/A3-A4, -(A7)
E352   2855                      Move.L    (A5), A4
E354   2654                      Move.L    (A4), A3
E356   286B 005C                 Move.L    $5C(A3), A4
E35A   2854                      Move.L    (A4), A4
E35C   1E2E 0008                 Move.B    $8(A6), D7
E360   0C07 0001                 Cmp.B     #$1, D7
E364   6D6C                      BLT.B     L2110
E366   6700 008A                 BEQ       L2111
E36A   0C07 0003                 Cmp.B     #$3, D7
E36E   6700 00CC                 BEQ       L2114
E372   6D30                      BLT.B     L2108
E374   2A2B 0028                 Move.L    $28(A3), D5
E378   2C2B 002C                 Move.L    $2C(A3), D6
E37C   BAAC 0042                 Cmp.L     $42(A4), D5
E380   6608                      BNE.B     L2107
E382   BCAC 0046                 Cmp.L     $46(A4), D6
E386   6700 00B4                 BEQ       L2114
E38A   2945 0042      L2107:     Move.L    D5, $42(A4)
E38E   2946 0046                 Move.L    D6, $46(A4)
E392   700A                      MoveQ.L   #$A, D0
E394   4EBA FF0E                 Jsr       P_mDPutPicByte
E398   486B 0028                 Pea.L     $28(A3)
E39C   4EBA FF40                 Jsr       P_mPutPicPat
E3A0   6000 009A                 Bra       L2114
E3A4   2A2B 0020      L2108:     Move.L    $20(A3), D5
E3A8   2C2B 0024                 Move.L    $24(A3), D6
E3AC   BAAC 0010                 Cmp.L     $10(A4), D5
E3B0   6608                      BNE.B     L2109
E3B2   BCAC 0014                 Cmp.L     $14(A4), D6
E3B6   6700 0084                 BEQ       L2114
E3BA   2945 0010      L2109:     Move.L    D5, $10(A4)
E3BE   2946 0014                 Move.L    D6, $14(A4)
E3C2   7002                      MoveQ.L   #$2, D0
E3C4   4EBA FEDE                 Jsr       P_mDPutPicByte
E3C8   486B 0020                 Pea.L     $20(A3)
E3CC   4EBA FF10                 Jsr       P_mPutPicPat
E3D0   606A                      Bra.B     L2114
E3D2   2C2B 0034      L2110:     Move.L    $34(A3), D6
E3D6   BCAC 0034                 Cmp.L     $34(A4), D6
E3DA   6716                      BEQ.B     L2111
E3DC   7007                      MoveQ.L   #$7, D0
E3DE   4EBA FEC4                 Jsr       P_mDPutPicByte
E3E2   2F06                      Move.L    D6, -(A7)
E3E4   4EBA FEE8                 Jsr       P_mPutPicLong
E3E8   286B 005C                 Move.L    $5C(A3), A4
E3EC   2854                      Move.L    (A4), A4
E3EE   2946 0034                 Move.L    D6, $34(A4)
E3F2   3C2B 0038      L2111:     Move      $38(A3), D6
E3F6   BC6C 0038                 Cmp       $38(A4), D6
E3FA   6716                      BEQ.B     L2112
E3FC   7008                      MoveQ.L   #$8, D0
E3FE   4EBA FEA4                 Jsr       P_mDPutPicByte
E402   3F06                      Move      D6, -(A7)
E404   4EBA FEB6                 Jsr       P_mPutPicWord
E408   286B 005C                 Move.L    $5C(A3), A4
E40C   2854                      Move.L    (A4), A4
E40E   3946 0038                 Move      D6, $38(A4)
E412   2A2B 003A      L2112:     Move.L    $3A(A3), D5
E416   2C2B 003E                 Move.L    $3E(A3), D6
E41A   BAAC 003A                 Cmp.L     $3A(A4), D5
E41E   6606                      BNE.B     L2113
E420   BCAC 003E                 Cmp.L     $3E(A4), D6
E424   6716                      BEQ.B     L2114
E426   2945 003A      L2113:     Move.L    D5, $3A(A4)
E42A   2946 003E                 Move.L    D6, $3E(A4)
E42E   7009                      MoveQ.L   #$9, D0
E430   4EBA FE72                 Jsr       P_mDPutPicByte
E434   486B 003A                 Pea.L     $3A(A3)
E438   4EBA FEA4                 Jsr       P_mPutPicPat
E43C   4CDF 18E0      L2114:     MoveM.L   (A7)+, D5-D7/A3-A4
E440   4E5E                      Unlk      A6
E442   205F                      Move.L    (A7)+, A0
E444   544F                      AddQ      #$2, A7
E446   4ED0                      Jmp       (A0)

                      P_mCheckPic:
E448   2F07                      Move.L    D7, -(A7)
E44A   2855                      Move.L    (A5), A4
E44C   2654                      Move.L    (A4), A3
E44E   4AAB 005C                 Tst.L     $5C(A3)
E452   6700 00B8                 BEQ       L2119
E456   0C6B FFFF 0042            Cmp       #$-1, $42(A3)
E45C   6D00 00AE                 BLT       L2119
E460   286B 005C                 Move.L    $5C(A3), A4
E464   2854                      Move.L    (A4), A4
E466   2E2B 0050                 Move.L    $50(A3), D7
E46A   BEAC 005A                 Cmp.L     $5A(A4), D7
E46E   6716                      BEQ.B     L2115
E470   700E                      MoveQ.L   #$E, D0
E472   4EBA FE30                 Jsr       P_mDPutPicByte
E476   2F07                      Move.L    D7, -(A7)
E478   4EBA FE54                 Jsr       P_mPutPicLong
E47C   286B 005C                 Move.L    $5C(A3), A4
E480   2854                      Move.L    (A4), A4
E482   2947 005A                 Move.L    D7, $5A(A4)
E486   2E2B 0054      L2115:     Move.L    $54(A3), D7
E48A   BEAC 005E                 Cmp.L     $5E(A4), D7
E48E   6716                      BEQ.B     L2116
E490   700F                      MoveQ.L   #$F, D0
E492   4EBA FE10                 Jsr       P_mDPutPicByte
E496   2F07                      Move.L    D7, -(A7)
E498   4EBA FE34                 Jsr       P_mPutPicLong
E49C   286B 005C                 Move.L    $5C(A3), A4
E4A0   2854                      Move.L    (A4), A4
E4A2   2947 005E                 Move.L    D7, $5E(A4)
E4A6   202B 0010      L2116:     Move.L    $10(A3), D0
E4AA   B0AC 0056                 Cmp.L     $56(A4), D0
E4AE   672C                      BEQ.B     L2117
E4B0   3E2B 0012                 Move      $12(A3), D7
E4B4   9E6C 0058                 Sub       $58(A4), D7
E4B8   DF6C 0058                 Add       D7, $58(A4)
E4BC   4847                      Swap      D7
E4BE   3E2B 0010                 Move      $10(A3), D7
E4C2   9E6C 0056                 Sub       $56(A4), D7
E4C6   DF6C 0056                 Add       D7, $56(A4)
E4CA   700C                      MoveQ.L   #$C, D0
E4CC   4EBA FDD6                 Jsr       P_mDPutPicByte
E4D0   2F07                      Move.L    D7, -(A7)
E4D2   4EBA FDFA                 Jsr       P_mPutPicLong
E4D6   286B 005C                 Move.L    $5C(A3), A4
E4DA   2854                      Move.L    (A4), A4
E4DC   4227           L2117:     Clr.B     -(A7)
E4DE   2F2B 001C                 Move.L    $1C(A3), -(A7)
E4E2   2F2C 000C                 Move.L    $C(A4), -(A7)
E4E6   4EBA DAB8                 Jsr       P_tEqualRgn
E4EA   4A1F                      Tst.B     (A7)+
E4EC   661A                      BNE.B     L2118
E4EE   2F2B 001C                 Move.L    $1C(A3), -(A7)
E4F2   2F2C 000C                 Move.L    $C(A4), -(A7)
E4F6   7001                      MoveQ.L   #$1, D0
E4F8   4EBA FDAA                 Jsr       P_mDPutPicByte
E4FC   2F2B 001C                 Move.L    $1C(A3), -(A7)
E500   4EBA FE2A                 Jsr       P_mPutPicRgn
E504   4EBA D8F8                 Jsr       P_tCopyRgn
E508   2855           L2118:     Move.L    (A5), A4
E50A   7001                      MoveQ.L   #$1, D0
E50C   4CDF 0080      L2119:     MoveM.L   (A7)+, D7
E510   4E75                      Rts

                      P_tScalePt:
E512   4E56 0000                 Link      A6, #$0
E516   48E7 FEE0                 MoveM.L   D0-D6/A0-A2, -(A7)
E51A   206E 0010                 Move.L    $10(A6), A0
E51E   226E 000C                 Move.L    $C(A6), A1
E522   246E 0008                 Move.L    $8(A6), A2
E526   6116                      Bsr.B     P341
E528   5448                      AddQ      #$2, A0
E52A   5449                      AddQ      #$2, A1
E52C   544A                      AddQ      #$2, A2
E52E   610E                      Bsr.B     P341
E530   4CDF 077F                 MoveM.L   (A7)+, D0-D6/A0-A2
E534   4E5E                      Unlk      A6
E536   205F                      Move.L    (A7)+, A0
E538   DEFC 000C                 AddA      #$C, A7
E53C   4ED0                      Jmp       (A0)

                      P341:
E53E   3629 0004                 Move      $4(A1), D3
E542   9651                      Sub       (A1), D3
E544   342A 0004                 Move      $4(A2), D2
E548   9452                      Sub       (A2), D2
E54A   B642                      Cmp       D2, D3
E54C   671A                      BEQ.B     L2122
E54E   3203                      Move      D3, D1
E550   E249                      LsR       #$1, D1
E552   48C1                      Ext.L     D1
E554   3010                      Move      (A0), D0
E556   6E04                      BGT.B     L2120
E558   4250                      Clr       (A0)
E55A   4E75                      Rts
E55C   C0C2           L2120:     MulU      D2, D0
E55E   D081                      Add.L     D1, D0
E560   80C3                      DivU      D3, D0
E562   6602                      BNE.B     L2121
E564   7001                      MoveQ.L   #$1, D0
E566   3080           L2121:     Move      D0, (A0)
E568   4E75           L2122:     Rts

                      P_tMapPt:
E56A   4E56 0000                 Link      A6, #$0
E56E   48E7 FEE0                 MoveM.L   D0-D6/A0-A2, -(A7)
E572   206E 0010                 Move.L    $10(A6), A0
E576   226E 000C                 Move.L    $C(A6), A1
E57A   246E 0008                 Move.L    $8(A6), A2
E57E   6116                      Bsr.B     P342
E580   5448                      AddQ      #$2, A0
E582   5449                      AddQ      #$2, A1
E584   544A                      AddQ      #$2, A2
E586   610E                      Bsr.B     P342
E588   4CDF 077F                 MoveM.L   (A7)+, D0-D6/A0-A2
E58C   4E5E                      Unlk      A6
E58E   205F                      Move.L    (A7)+, A0
E590   DEFC 000C                 AddA      #$C, A7
E594   4ED0                      Jmp       (A0)

                      P342:
E596   3411                      Move      (A1), D2
E598   3629 0004                 Move      $4(A1), D3
E59C   9642                      Sub       D2, D3
E59E   3812                      Move      (A2), D4
E5A0   3A2A 0004                 Move      $4(A2), D5
E5A4   9A44                      Sub       D4, D5
E5A6   3010                      Move      (A0), D0
E5A8   9042                      Sub       D2, D0
E5AA   BA43                      Cmp       D3, D5
E5AC   6718                      BEQ.B     L2124
E5AE   3203                      Move      D3, D1
E5B0   E249                      LsR       #$1, D1
E5B2   48C1                      Ext.L     D1
E5B4   3400                      Move      D0, D2
E5B6   6A02                      BPL.B     L2123
E5B8   4440                      Neg       D0
E5BA   C0C5           L2123:     MulU      D5, D0
E5BC   D081                      Add.L     D1, D0
E5BE   80C3                      DivU      D3, D0
E5C0   4A42                      Tst       D2
E5C2   6A02                      BPL.B     L2124
E5C4   4440                      Neg       D0
E5C6   D044           L2124:     Add       D4, D0
E5C8   3080                      Move      D0, (A0)
E5CA   4E75                      Rts

                      P_tMapRect:
E5CC   2F2F 000C                 Move.L    $C(A7), -(A7)
E5D0   2F2F 000C                 Move.L    $C(A7), -(A7)
E5D4   2F2F 000C                 Move.L    $C(A7), -(A7)
E5D8   4EBA FF90                 Jsr       P_tMapPt
E5DC   58AF 000C                 AddQ      #$4, $C(A7)
E5E0   4EFA FF88                 Jmp       P_tMapPt

                      P_tInitFonts:
E5E4   2F03                      Move.L    D3, -(A7)
E5E6   4278 0998                 Clr       (FOutError)
E5EA   70FF                      MoveQ.L   #$-1, D0
E5EC   31C0 0988                 Move      D0, (CurFMFamily)
E5F0   42B8 0BC2                 Clr.L     (LastFOND)
E5F4   31C0 0BC6                 Move      D0, (FONDID)
E5F8   6100 08B2                 Bsr       P360
E5FC   4278 098E                 Clr       (CurFMDevice)
E600   4238 0A63                 Clr.B     (FScaleDisable)
E604   31F8 0204 0984            Move      (SPFont), (ApFontID)
E60A   5278 0984                 AddQ      #$1, (ApFontID)
E60E   700C                      MoveQ.L   #$C, D0
E610   31C0 0986                 Move      D0, (GotStrike)
E614   3638 0BA6                 Move      (SysFontFam), D3
E618   EF43                      AsL       #$7, D3
E61A   3238 0BA8                 Move      (SysFontSize), D1
E61E   6602                      BNE.B     L2125
E620   3200                      Move      D0, D1
E622   8641           L2125:     Or        D1, D3
E624   6100 066C                 Bsr       P354
E628   6606                      BNE.B     L2126
E62A   760C                      MoveQ.L   #$C, D3
E62C   6100 0664                 Bsr       P354
E630   21C8 0980      L2126:     Move.L    A0, (ROMFont0)
E634   261F                      Move.L    (A7)+, D3
E636   4238 0BF4                 Clr.B     (FractEnable)
E63A   2038 0B2A                 Move.L    (WidthTabHandle), D0
E63E   6624                      BNE.B     L2127
E640   203C 0000 042E            Move.L    #$42E, D0
E646   A522                      _NewHandleSys
E648   6634                      BNE.B     L2129
E64A   21C8 0B2A                 Move.L    A0, (WidthTabHandle)
E64E   42B8 08E4                 Clr.L     (WidthListHand)
E652   0C78 0002 0108            Cmp       #$2, (MemTop)
E658   630A                      BLS.B     L2127
E65A   7030                      MoveQ.L   #$30, D0
E65C   A722                      _NewHandleSysClear
E65E   6604                      BNE.B     L2127
E660   21C8 08E4                 Move.L    A0, (WidthListHand)
E664   611C           L2127:     Bsr.B     P343
E666   303C 0101                 Move      #$101, D0
E66A   A146                      _GetTrapAddress
E66C   43FA 0052                 Lea.L     P_tFMSwapFont, A1
E670   B1C9                      CmpA.L    A1, A0
E672   6604                      BNE.B     L2128
E674   41FA 0050                 Lea.L     P_SwapFont, A0
E678   21C8 08E0      L2128:     Move.L    A0, (JSwapFont)
E67C   4E75                      Rts
E67E   7019           L2129:     MoveQ.L   #$19, D0
E680   A9C9                      _SysError

                      P343:
E682   74FF                      MoveQ.L   #$-1, D2
E684   21C2 0B4C                 Move.L    D2, (LastSPExtra)
E688   2038 08E4                 Move.L    (WidthListHand), D0
E68C   C0B8 031A                 And.L     (Lo3Bytes), D0
E690   671E                      BEQ.B     L2132
E692   2040                      Move.L    D0, A0
E694   2050                      Move.L    (A0), A0
E696   720B                      MoveQ.L   #$B, D1
E698   2018           L2130:     Move.L    (A0)+, D0
E69A   6714                      BEQ.B     L2132
E69C   2240                      Move.L    D0, A1
E69E   2011                      Move.L    (A1), D0
E6A0   670A                      BEQ.B     L2131
E6A2   2240                      Move.L    D0, A1
E6A4   2342 0400                 Move.L    D2, $400(A1)
E6A8   3342 040C                 Move      D2, $40C(A1)
E6AC   51C9 FFEA      L2131:     DBF       D1, L2130
E6B0   2078 0B2A      L2132:     Move.L    (WidthTabHandle), A0
E6B4   2050                      Move.L    (A0), A0
E6B6   2142 0400                 Move.L    D2, $400(A0)
E6BA   3142 040C                 Move      D2, $40C(A0)
E6BE   4E75                      Rts

                      P_tFMSwapFont:
E6C0   2F38 08E0                 Move.L    (JSwapFont), -(A7)
E6C4   4E75                      Rts

                      P_SwapFont:
E6C6   41F8 0998                 Lea.L     (FOutError), A0
E6CA   2F48 0008                 Move.L    A0, $8(A7)

                      P344:
E6CE   2078 0B2A                 Move.L    (WidthTabHandle), A0
E6D2   21D0 0B10                 Move.L    (A0), (WidthPtr)
E6D6   206F 0004                 Move.L    $4(A7), A0
E6DA   43F8 0988                 Lea.L     (CurFMFamily), A1
E6DE   B388                      CmpM.L    (A0)+, (A1)+
E6E0   662C                      BNE.B     L2133
E6E2   B388                      CmpM.L    (A0)+, (A1)+
E6E4   6628                      BNE.B     L2133
E6E6   B388                      CmpM.L    (A0)+, (A1)+
E6E8   6624                      BNE.B     L2133
E6EA   B388                      CmpM.L    (A0)+, (A1)+
E6EC   6620                      BNE.B     L2133
E6EE   2055                      Move.L    (A5), A0
E6F0   2050                      Move.L    (A0), A0
E6F2   2038 0B4C                 Move.L    (LastSPExtra), D0
E6F6   B0A8 004C                 Cmp.L     $4C(A0), D0
E6FA   671E                      BEQ.B     L2134
E6FC   5280                      AddQ      #$1, D0
E6FE   670E                      BEQ.B     L2133
E700   202F 0004                 Move.L    $4(A7), D0
E704   48E7 1F18                 MoveM.L   D3-D7/A3-A4, -(A7)
E708   2640                      Move.L    D0, A3
E70A   6000 01BE                 Bra       L2156
E70E   48E7 0018      L2133:     MoveM.L   A3-A4, -(A7)
E712   266F 000C                 Move.L    $C(A7), A3
E716   6000 03C0                 Bra       L2178
E71A   2078 099A      L2134:     Move.L    (FOutFontHandle), A0
E71E   4A10                      Tst.B     (A0)
E720   6630                      BNE.B     L2136
E722   4A90                      Tst.L     (A0)
E724   66E8                      BNE.B     L2133
E726   2F08                      Move.L    A0, -(A7)
E728   31FC FFFF 0B9E            Move      #$-1, (ROMMapInsert)
E72E   A9A2                      _LoadResource
E730   4A78 0A60                 Tst       (ResErr)
E734   6606                      BNE.B     L2135
E736   6100 0BD2                 Bsr       P367
E73A   6016                      Bra.B     L2136
E73C   7010           L2135:     MoveQ.L   #$10, D0
E73E   9FC0                      SubA.L    D0, A7
E740   224F                      Move.L    A7, A1
E742   41F8 0988                 Lea.L     (CurFMFamily), A0
E746   A02E                      _BlockMove
E748   4257                      Clr       (A7)
E74A   2F0F                      Move.L    A7, -(A7)
E74C   6180                      Bsr.B     P344
E74E   DEFC 0010                 AddA      #$10, A7
E752   205F           L2136:     Move.L    (A7)+, A0
E754   584F                      AddQ      #$4, A7
E756   4ED0                      Jmp       (A0)
E758   1238 09A9      L2137:     Move.B    (FOutUnused), D1
E75C   41F8 099E                 Lea.L     (FOutBold), A0
E760   4298                      Clr.L     (A0)+
E762   4258                      Clr       (A0)+
E764   4218                      Clr.B     (A0)+
E766   4A01                      Tst.B     D1
E768   6734                      BEQ.B     L2140
E76A   7400                      MoveQ.L   #$0, D2
E76C   43F8 09B6                 Lea.L     (FMStyleTab), A1
E770   7006                      MoveQ.L   #$6, D0
E772   41F8 099E                 Lea.L     (FOutBold), A0
E776   1419           L2138:     Move.B    (A1)+, D2
E778   1619                      Move.B    (A1)+, D3
E77A   1819                      Move.B    (A1)+, D4
E77C   E249                      LsR       #$1, D1
E77E   6408                      BCC.B     L2139
E780   D730 2000                 Add.B     D3, $0(A0,D2.W)
E784   D938 09A4                 Add.B     D4, (FOutExtra)
E788   51C8 FFEC      L2139:     DBF       D0, L2138
E78C   082B 0002 0004            BTst.B    #$2, $4(A3)
E792   670A                      BEQ.B     L2140
E794   41F8 09A0                 Lea.L     (FOutULOffset), A0
E798   10D9                      Move.B    (A1)+, (A0)+
E79A   10D9                      Move.B    (A1)+, (A0)+
E79C   10D9                      Move.B    (A1)+, (A0)+
E79E   2078 0B2A      L2140:     Move.L    (WidthTabHandle), A0
E7A2   2050                      Move.L    (A0), A0
E7A4   21C8 0B10                 Move.L    A0, (WidthPtr)
E7A8   2038 0BC2                 Move.L    (LastFOND), D0
E7AC   6724                      BEQ.B     L2143
E7AE   4A38 0BB3                 Tst.B     (FDevDisable)
E7B2   6606                      BNE.B     L2141
E7B4   4A6B 0006                 Tst       $6(A3)
E7B8   6618                      BNE.B     L2143
E7BA   0838 0004 08E4 L2141:     BTst.B    #$4, (WidthListHand)
E7C0   6606                      BNE.B     L2142
E7C2   4A38 0BF4                 Tst.B     (FractEnable)
E7C6   670A                      BEQ.B     L2143
E7C8   0838 0005 08E4 L2142:     BTst.B    #$5, (WidthListHand)
E7CE   6700 0266                 BEQ       L2173
E7D2   7C00           L2143:     MoveQ.L   #$0, D6
E7D4   1C38 09A4                 Move.B    (FOutExtra), D6
E7D8   4886                      Ext       D6
E7DA   4846                      Swap      D6
E7DC   322B 0002      L2144:     Move      $2(A3), D1
E7E0   43E8 0400                 Lea.L     $400(A0), A1
E7E4   2038 099A                 Move.L    (FOutFontHandle), D0
E7E8   B091                      Cmp.L     (A1), D0
E7EA   6608                      BNE.B     L2145
E7EC   B268 040E                 Cmp       $40E(A0), D1
E7F0   6700 017E                 BEQ       L2168
E7F4   22C0           L2145:     Move.L    D0, (A1)+
E7F6   4299                      Clr.L     (A1)+
E7F8   2286                      Move.L    D6, (A1)
E7FA   D2FC 0014                 AddA      #$14, A1
E7FE   32F8 0BC6                 Move      (FONDID), (A1)+
E802   22B8 0BC2                 Move.L    (LastFOND), (A1)
E806   2040                      Move.L    D0, A0
E808   6100 03F8                 Bsr       P349
E80C   2248                      Move.L    A0, A1
E80E   4C90 001C                 MoveM     (A0), D2-D4
E812   3A04                      Move      D4, D5
E814   9A43                      Sub       D3, D5
E816   3205                      Move      D5, D1
E818   5645                      AddQ      #$3, D5
E81A   DA45                      Add       D5, D5
E81C   48C5                      Ext.L     D5
E81E   7000                      MoveQ.L   #$0, D0
E820   3028 0010                 Move      $10(A0), D0
E824   5080                      AddQ      #$8, D0
E826   D080                      Add.L     D0, D0
E828   D3C0                      AddA.L    D0, A1
E82A   7E00                      MoveQ.L   #$0, D7
E82C   4A38 0BF4                 Tst.B     (FractEnable)
E830   671E                      BEQ.B     L2146
E832   0802 0001                 BTst.B    #$1, D2
E836   6620                      BNE.B     L2147
E838   0838 0006 08E4            BTst.B    #$6, (WidthListHand)
E83E   6610                      BNE.B     L2146
E840   200C                      Move.L    A4, D0
E842   670C                      BEQ.B     L2146
E844   2278 0BC2                 Move.L    (LastFOND), A1
E848   2251                      Move.L    (A1), A1
E84A   D3CC                      AddA.L    A4, A1
E84C   6000 010E                 Bra       L2167
E850   1E31 50FD      L2146:     Move.B    $-3(A1,D5.W), D7
E854   4847                      Swap      D7
E856   6008                      Bra.B     L2148
E858   D3C5           L2147:     AddA.L    D5, A1
E85A   3E31 50FC                 Move      $-4(A1,D5.W), D7
E85E   E187                      AsL.L     #$8, D7
E860   0CB8 0001 0000 L2148:     Cmp.L     #$10000, (FScaleHFact)
       0BF6
E868   56C5                      SNE.B     D5
E86A   CA38 0A63                 And.B     (FScaleDisable), D5
E86E   DE86                      Add.L     D6, D7
E870   2007                      Move.L    D7, D0
E872   6100 0084                 Bsr       P345
E876   2E00                      Move.L    D0, D7
E878   2078 0B10                 Move.L    (WidthPtr), A0
E87C   6002                      Bra.B     L2150
E87E   20C7           L2149:     Move.L    D7, (A0)+
E880   51CB FFFC      L2150:     DBF       D3, L2149
E884   4238 0BF5                 Clr.B     (UsedFWidth)
E888   4A38 0BF4                 Tst.B     (FractEnable)
E88C   6714                      BEQ.B     L2151
E88E   0802 0001                 BTst.B    #$1, D2
E892   6642                      BNE.B     L2157
E894   0838 0006 08E4            BTst.B    #$6, (WidthListHand)
E89A   6606                      BNE.B     L2151
E89C   200C                      Move.L    A4, D0
E89E   6600 0070                 BNE       L2161
E8A2   7000           L2151:     MoveQ.L   #$0, D0
E8A4   3619                      Move      (A1)+, D3
E8A6   6A04                      BPL.B     L2152
E8A8   2007                      Move.L    D7, D0
E8AA   6008                      Bra.B     L2153
E8AC   1003           L2152:     Move.B    D3, D0
E8AE   4840                      Swap      D0
E8B0   D086                      Add.L     D6, D0
E8B2   6144                      Bsr.B     P345
E8B4   20C0           L2153:     Move.L    D0, (A0)+
E8B6   51C9 FFEA                 DBF       D1, L2151
E8BA   0444 00FF      L2154:     Sub       #$FF, D4
E8BE   670A                      BEQ.B     L2156
E8C0   4444                      Neg       D4
E8C2   5344                      SubQ      #$1, D4
E8C4   20C7           L2155:     Move.L    D7, (A0)+
E8C6   51CC FFFC                 DBF       D4, L2155
E8CA   2278 0B10      L2156:     Move.L    (WidthPtr), A1
E8CE   D2FC 0408                 AddA      #$408, A1
E8D2   6000 00B2                 Bra       L2170
E8D6   7000           L2157:     MoveQ.L   #$0, D0
E8D8   3619                      Move      (A1)+, D3
E8DA   0C43 FFFF                 Cmp       #$-1, D3
E8DE   6604                      BNE.B     L2158
E8E0   2007                      Move.L    D7, D0
E8E2   6008                      Bra.B     L2159
E8E4   3003           L2158:     Move      D3, D0
E8E6   E180                      AsL.L     #$8, D0
E8E8   D086                      Add.L     D6, D0
E8EA   610C                      Bsr.B     P345
E8EC   20C0           L2159:     Move.L    D0, (A0)+
E8EE   51C9 FFE6                 DBF       D1, L2157
E8F2   50F8 0BF5                 ST.B      (UsedFWidth)
E8F6   60C2                      Bra.B     L2154

                      P345:
E8F8   4A05                      Tst.B     D5
E8FA   6712                      BEQ.B     L2160
E8FC   48E7 C0C0                 MoveM.L   D0-D1/A0-A1, -(A7)
E900   2F00                      Move.L    D0, -(A7)
E902   2F38 0BF6                 Move.L    (FScaleHFact), -(A7)
E906   6100 0334                 Bsr       P352
E90A   4CDF 0303                 MoveM.L   (A7)+, D0-D1/A0-A1
E90E   4E75           L2160:     Rts
E910   2F08           L2161:     Move.L    A0, -(A7)
E912   2078 0B10                 Move.L    (WidthPtr), A0
E916   3028 042C                 Move      $42C(A0), D0
E91A   205F                      Move.L    (A7)+, A0
E91C   3F00                      Move      D0, -(A7)
E91E   7000           L2162:     MoveQ.L   #$0, D0
E920   3619                      Move      (A1)+, D3
E922   0C43 FFFF                 Cmp       #$-1, D3
E926   6604                      BNE.B     L2163
E928   2007                      Move.L    D7, D0
E92A   600A                      Bra.B     L2164
E92C   3003           L2163:     Move      D3, D0
E92E   C0D7                      MulU      (A7), D0
E930   E980                      AsL.L     #$4, D0
E932   D086                      Add.L     D6, D0
E934   61C2                      Bsr.B     P345
E936   20C0           L2164:     Move.L    D0, (A0)+
E938   51C9 FFE4                 DBF       D1, L2162
E93C   544F                      AddQ      #$2, A7
E93E   50F8 0BF5                 ST.B      (UsedFWidth)
E942   6000 FF76                 Bra       L2154

                      P346:
E946   302B 0002                 Move      $2(A3), D0
E94A   660E                      BNE.B     L2166
E94C   4A53                      Tst       (A3)
E94E   6606                      BNE.B     L2165
E950   3038 0BA8                 Move      (SysFontSize), D0
E954   6604                      BNE.B     L2166
E956   1038 0987      L2165:     Move.B    (FMDefaultSize), D0
E95A   4E75           L2166:     Rts
E95C   2078 0B10      L2167:     Move.L    (WidthPtr), A0
E960   3028 042C                 Move      $42C(A0), D0
E964   3E31 50FC                 Move      $-4(A1,D5.W), D7
E968   CEC0                      MulU      D0, D7
E96A   E987                      AsL.L     #$4, D7
E96C   6000 FEF2                 Bra       L2148
E970   5089           L2168:     AddQ      #$8, A1
E972   9C91                      Sub.L     (A1), D6
E974   6710                      BEQ.B     L2170
E976   DD91                      Add.L     D6, (A1)
E978   2078 0B10                 Move.L    (WidthPtr), A0
E97C   303C 00FF                 Move      #$FF, D0
E980   DD98           L2169:     Add.L     D6, (A0)+
E982   51C8 FFFC                 DBF       D0, L2169
E986   2055           L2170:     Move.L    (A5), A0
E988   2050                      Move.L    (A0), A0
E98A   2E28 004C                 Move.L    $4C(A0), D7
E98E   5989                      SubQ      #$4, A1
E990   9E91                      Sub.L     (A1), D7
E992   6734                      BEQ.B     L2171
E994   DF91                      Add.L     D7, (A1)
E996   9EFC 000C                 SubA      #$C, A7
E99A   3F2B 000A                 Move      $A(A3), -(A7)
E99E   3F2B 000E                 Move      $E(A3), -(A7)
E9A2   6100 02D6                 Bsr       P353
E9A6   594F                      SubQ      #$4, A7
E9A8   3F38 09B0                 Move      (FOutDenom.v), -(A7)
E9AC   3F38 09AC                 Move      (FOutNumer.v), -(A7)
E9B0   6100 02C8                 Bsr       P353
E9B4   6100 0286                 Bsr       P352
E9B8   2F07                      Move.L    D7, -(A7)
E9BA   6100 0280                 Bsr       P352
E9BE   2078 0B10                 Move.L    (WidthPtr), A0
E9C2   201F                      Move.L    (A7)+, D0
E9C4   D1A8 0080                 Add.L     D0, $80(A0)
E9C8   70FF           L2171:     MoveQ.L   #$-1, D0
E9CA   102B 0006                 Move.B    $6(A3), D0
E9CE   671E                      BEQ.B     L2172
E9D0   7232                      MoveQ.L   #$32, D1
E9D2   9FC1                      SubA.L    D1, A7
E9D4   204F                      Move.L    A7, A0
E9D6   3140 0018                 Move      D0, $18(A0)
E9DA   317C 0008 001A            Move      #$8, $1A(A0)
E9E0   214B 001C                 Move.L    A3, $1C(A0)
E9E4   316B 0006 0020            Move      $6(A3), $20(A0)
E9EA   A004                      _Control
E9EC   DFC1                      AddA.L    D1, A7
E9EE   204B           L2172:     Move.L    A3, A0
E9F0   43F8 0988                 Lea.L     (CurFMFamily), A1
E9F4   22D8                      Move.L    (A0)+, (A1)+
E9F6   22D8                      Move.L    (A0)+, (A1)+
E9F8   22D8                      Move.L    (A0)+, (A1)+
E9FA   22D8                      Move.L    (A0)+, (A1)+
E9FC   2055                      Move.L    (A5), A0
E9FE   2050                      Move.L    (A0), A0
EA00   21E8 004C 0B4C            Move.L    $4C(A0), (LastSPExtra)
EA06   2078 0B10                 Move.L    (WidthPtr), A0
EA0A   1178 0BF5 0422            Move.B    (UsedFWidth), $422(A0)
EA10   1178 09A9 0423            Move.B    (FOutUnused), $423(A0)
EA16   3178 0BC6 041C            Move      (FONDID), $41C(A0)
EA1C   2178 0BC2 041E            Move.L    (LastFOND), $41E(A0)
EA22   41E8 040C                 Lea.L     $40C(A0), A0
EA26   20DB                      Move.L    (A3)+, (A0)+
EA28   20DB                      Move.L    (A3)+, (A0)+
EA2A   20DB                      Move.L    (A3)+, (A0)+
EA2C   2093                      Move.L    (A3), (A0)
EA2E   4CDF 18F8                 MoveM.L   (A7)+, D3-D7/A3-A4
EA32   6000 FCE6                 Bra       L2134
EA36   48E7 E080      L2173:     MoveM.L   D0-D2/A0, -(A7)
EA3A   2078 0BC2                 Move.L    (LastFOND), A0
EA3E   6100 01C2                 Bsr       P349
EA42   41E8 001C                 Lea.L     $1C(A0), A0
EA46   7C00                      MoveQ.L   #$0, D6
EA48   3C18                      Move      (A0)+, D6
EA4A   48C6                      Ext.L     D6
EA4C   1238 09A9                 Move.B    (FOutUnused), D1
EA50   6710                      BEQ.B     L2176
EA52   7007                      MoveQ.L   #$7, D0
EA54   3418           L2174:     Move      (A0)+, D2
EA56   48C2                      Ext.L     D2
EA58   E249                      LsR       #$1, D1
EA5A   6402                      BCC.B     L2175
EA5C   DC82                      Add.L     D2, D6
EA5E   51C8 FFF4      L2175:     DBF       D0, L2174
EA62   E986           L2176:     AsL.L     #$4, D6
EA64   594F                      SubQ      #$4, A7
EA66   2078 0B10                 Move.L    (WidthPtr), A0
EA6A   3028 042C                 Move      $42C(A0), D0
EA6E   4267                      Clr       -(A7)
EA70   3F00                      Move      D0, -(A7)
EA72   2F06                      Move.L    D6, -(A7)
EA74   6100 01C6                 Bsr       P352
EA78   2C1F                      Move.L    (A7)+, D6
EA7A   2006                      Move.L    D6, D0
EA7C   4840                      Swap      D0
EA7E   6A02                      BPL.B     L2177
EA80   5240                      AddQ      #$1, D0
EA82   11C0 09A4      L2177:     Move.B    D0, (FOutExtra)
EA86   4CDF 0107                 MoveM.L   (A7)+, D0-D2/A0
EA8A   4A38 0BF4                 Tst.B     (FractEnable)
EA8E   6700 FD42                 BEQ       L2143
EA92   6000 FD48                 Bra       L2144

                      P347:
EA96   41F8 09AA                 Lea.L     (FOutNumer_h), A0
EA9A   3019                      Move      (A1)+, D0
EA9C   3180 1000                 Move      D0, $0(A0,D1.W)
EAA0   41F8 0BFA                 Lea.L     (FScaleVFact), A0
EAA4   7000                      MoveQ.L   #$0, D0
EAA6   3029 0002                 Move      $2(A1), D0
EAAA   E180                      AsL.L     #$8, D0
EAAC   E341                      AsL       #$1, D1
EAAE   4441                      Neg       D1
EAB0   2180 1000                 Move.L    D0, $0(A0,D1.W)
EAB4   4E75                      Rts

                      P348:
EAB6   2638 0B2A                 Move.L    (WidthTabHandle), D3
EABA   2054                      Move.L    (A4), A0
EABC   21C8 0B2A                 Move.L    A0, (WidthTabHandle)
EAC0   21D0 0B10                 Move.L    (A0), (WidthPtr)
EAC4   0890 0006                 BClr.B    #$6, (A0)
EAC8   2883                      Move.L    D3, (A4)
EACA   2043                      Move.L    D3, A0
EACC   08D0 0006                 BSet.B    #$6, (A0)
EAD0   31FC FFFE 0988            Move      #$-2, (CurFMFamily)
EAD6   4E75                      Rts
EAD8   48E7 1F00      L2178:     MoveM.L   D3-D7, -(A7)
EADC   11EB 0004 09A9            Move.B    $4(A3), (FOutUnused)
EAE2   302B 0006                 Move      $6(A3), D0
EAE6   B078 098E                 Cmp       (CurFMDevice), D0
EAEA   6704                      BEQ.B     L2179
EAEC   6100 0394                 Bsr       P359
EAF0   2038 08E4      L2179:     Move.L    (WidthListHand), D0
EAF4   C0B8 031A                 And.L     (Lo3Bytes), D0
EAF8   670C                      BEQ.B     L2180
EAFA   3238 0988                 Move      (CurFMFamily), D1
EAFE   5241                      AddQ      #$1, D1
EB00   6608                      BNE.B     L2181
EB02   6100 FB7E                 Bsr       P343
EB06   6000 00AE      L2180:     Bra       L2191
EB0A   2840           L2181:     Move.L    D0, A4
EB0C   2854                      Move.L    (A4), A4
EB0E   7A00                      MoveQ.L   #$0, D5
EB10   203C 0000 042E            Move.L    #$42E, D0
EB16   2214           L2182:     Move.L    (A4), D1
EB18   6776                      BEQ.B     L2187
EB1A   2041                      Move.L    D1, A0
EB1C   2210                      Move.L    (A0), D1
EB1E   675E                      BEQ.B     L2186
EB20   2241                      Move.L    D1, A1
EB22   204B                      Move.L    A3, A0
EB24   43E9 040C                 Lea.L     $40C(A1), A1
EB28   B388                      CmpM.L    (A0)+, (A1)+
EB2A   660C                      BNE.B     L2183
EB2C   B388                      CmpM.L    (A0)+, (A1)+
EB2E   6608                      BNE.B     L2183
EB30   B388                      CmpM.L    (A0)+, (A1)+
EB32   6604                      BNE.B     L2183
EB34   B388                      CmpM.L    (A0)+, (A1)+
EB36   670E                      BEQ.B     L2184
EB38   584C           L2183:     AddQ      #$4, A4
EB3A   5845                      AddQ      #$4, D5
EB3C   0C45 0030                 Cmp       #$30, D5
EB40   65D4                      BCS.B     L2182
EB42   594C                      SubQ      #$4, A4
EB44   6068                      Bra.B     L2189
EB46   6100 FF6E      L2184:     Bsr       P348
EB4A   31D9 0BC6                 Move      (A1)+, (FONDID)
EB4E   2059                      Move.L    (A1)+, A0
EB50   21C8 0BC2                 Move.L    A0, (LastFOND)
EB54   6706                      BEQ.B     L2185
EB56   2050                      Move.L    (A0), A0
EB58   11D0 08E4                 Move.B    (A0), (WidthListHand)
EB5C   11D9 0BF5      L2185:     Move.B    (A1)+, (UsedFWidth)
EB60   11D9 09A9                 Move.B    (A1)+, (FOutUnused)
EB64   7200                      MoveQ.L   #$0, D1
EB66   6100 FF2E                 Bsr       P347
EB6A   7202                      MoveQ.L   #$2, D1
EB6C   6100 FF28                 Bsr       P347
EB70   2278 0B10                 Move.L    (WidthPtr), A1
EB74   2069 0400                 Move.L    $400(A1), A0
EB78   21C8 099A                 Move.L    A0, (FOutFontHandle)
EB7C   603C                      Bra.B     L2192
EB7E   2F38 0118      L2186:     Move.L    (TheZone), -(A7)
EB82   21F8 02A6 0118            Move.L    (SysZone), (TheZone)
EB88   A027                      _ReallocHandle
EB8A   21DF 0118                 Move.L    (A7)+, (TheZone)
EB8E   6004                      Bra.B     L2188
EB90   A522           L2187:     _NewHandleSys
EB92   661A                      BNE.B     L2189
EB94   2878 08E4      L2188:     Move.L    (WidthListHand), A4
EB98   2854                      Move.L    (A4), A4
EB9A   49F4 5000                 Lea.L     $0(A4,D5.W), A4
EB9E   2888                      Move.L    A0, (A4)
EBA0   2050                      Move.L    (A0), A0
EBA2   70FF                      MoveQ.L   #$-1, D0
EBA4   2140 0400                 Move.L    D0, $400(A0)
EBA8   3140 040C                 Move      D0, $40C(A0)
EBAC   6004                      Bra.B     L2190
EBAE   4A45           L2189:     Tst       D5
EBB0   6704                      BEQ.B     L2191
EBB2   6100 FF02      L2190:     Bsr       P348
EBB6   6100 00FE      L2191:     Bsr       P356
EBBA   2078 099A      L2192:     Move.L    (FOutFontHandle), A0
EBBE   6100 0042                 Bsr       P349
EBC2   4A38 0A63                 Tst.B     (FScaleDisable)
EBC6   6618                      BNE.B     L2194
EBC8   43F8 09A5                 Lea.L     (FOutAscent), A1
EBCC   12E8 0013                 Move.B    $13(A0), (A1)+
EBD0   12E8 0015                 Move.B    $15(A0), (A1)+
EBD4   12E8 0007                 Move.B    $7(A0), (A1)+
EBD8   12A8 0017                 Move.B    $17(A0), (A1)
EBDC   6000 FB7A      L2193:     Bra       L2137
EBE0   43F8 09A5      L2194:     Lea.L     (FOutAscent), A1
EBE4   1028 0013                 Move.B    $13(A0), D0
EBE8   612A                      Bsr.B     P350
EBEA   1028 0015                 Move.B    $15(A0), D0
EBEE   6124                      Bsr.B     P350
EBF0   1028 0007                 Move.B    $7(A0), D0
EBF4   2238 0BF6                 Move.L    (FScaleHFact), D1
EBF8   611E                      Bsr.B     P351
EBFA   1028 0017                 Move.B    $17(A0), D0
EBFE   6114                      Bsr.B     P350
EC00   60DA                      Bra.B     L2193

                      P349:
EC02   4A90                      Tst.L     (A0)
EC04   660A                      BNE.B     L2195
EC06   2F08                      Move.L    A0, -(A7)
EC08   31FC FFFF 0B9E            Move      #$-1, (ROMMapInsert)
EC0E   A9A2                      _LoadResource
EC10   2050           L2195:     Move.L    (A0), A0
EC12   4E75                      Rts

                      P350:
EC14   2238 0BFA                 Move.L    (FScaleVFact), D1

                      P351:
EC18   4880                      Ext       D0
EC1A   4840                      Swap      D0
EC1C   4240                      Clr       D0
EC1E   48E7 C0C0                 MoveM.L   D0-D1/A0-A1, -(A7)
EC22   2F01                      Move.L    D1, -(A7)
EC24   6100 0016                 Bsr       P352
EC28   4CDF 0301                 MoveM.L   (A7)+, D0/A0-A1
EC2C   0680 0000 8000            Add.L     #$8000, D0
EC32   4840                      Swap      D0
EC34   12C0                      Move.B    D0, (A1)+
EC36   4E75                      Rts

                      DT55:
EC38   0001 0000                 DC.B      '    '

                      P352:
EC3C   225F                      Move.L    (A7)+, A1
EC3E   201F                      Move.L    (A7)+, D0
EC40   221F                      Move.L    (A7)+, D1
EC42   2F09                      Move.L    A1, -(A7)
EC44   2F00                      Move.L    D0, -(A7)
EC46   B2BA FFF0                 Cmp.L     DT55, D1
EC4A   6728                      BEQ.B     L2197
EC4C   2E81                      Move.L    D1, (A7)
EC4E   B0BA FFE8                 Cmp.L     DT55, D0
EC52   6720                      BEQ.B     L2197
EC54   4A41                      Tst       D1
EC56   6616                      BNE.B     L2196
EC58   4841                      Swap      D1
EC5A   2F02                      Move.L    D2, -(A7)
EC5C   2400                      Move.L    D0, D2
EC5E   4842                      Swap      D2
EC60   C4C1                      MulU      D1, D2
EC62   4842                      Swap      D2
EC64   C0C1                      MulU      D1, D0
EC66   D082                      Add.L     D2, D0
EC68   241F                      Move.L    (A7)+, D2
EC6A   2E80                      Move.L    D0, (A7)
EC6C   6006                      Bra.B     L2197
EC6E   2F01           L2196:     Move.L    D1, -(A7)
EC70   2F00                      Move.L    D0, -(A7)
EC72   A868                      _FixMul
EC74   2F5F 0004      L2197:     Move.L    (A7)+, $4(A7)
EC78   4E75                      Rts

                      P353:
EC7A   225F                      Move.L    (A7)+, A1
EC7C   301F                      Move      (A7)+, D0
EC7E   321F                      Move      (A7)+, D1
EC80   2F09                      Move.L    A1, -(A7)
EC82   2F3A FFB4                 Move.L    DT55, -(A7)
EC86   B240                      Cmp       D0, D1
EC88   67EA                      BEQ.B     L2197
EC8A   3F01                      Move      D1, -(A7)
EC8C   3F00                      Move      D0, -(A7)
EC8E   A869                      _FixRatio
EC90   60E2                      Bra.B     L2197

                      P354:
EC92   31FC FFFF 0B9E            Move      #$-1, (ROMMapInsert)
EC98   6006                      Bra.B     L2198

                      P355:
EC9A   31FC FF00 0B9E            Move      #$-100, (ROMMapInsert)
ECA0   594F           L2198:     SubQ      #$4, A7
ECA2   2F3C 464F 4E54            Move.L    #$464F4E54, -(A7)
ECA8   3F03                      Move      D3, -(A7)
ECAA   A9A0                      _GetResource
ECAC   50F8 0986                 ST.B      (GotStrike)
ECB0   201F                      Move.L    (A7)+, D0
ECB2   2040                      Move.L    D0, A0
ECB4   4E75                      Rts

                      P356:
ECB6   4238 015E                 Clr.B     (FontFlag)
ECBA   99CC                      SubA.L    A4, A4
ECBC   6100 FC88                 Bsr       P346
ECC0   3A00                      Move      D0, D5
ECC2   3613                      Move      (A3), D3
ECC4   6604           L2199:     BNE.B     L2200
ECC6   3638 0BA6                 Move      (SysFontFam), D3
ECCA   0C43 0001      L2200:     Cmp       #$1, D3
ECCE   6604                      BNE.B     L2202
ECD0   3638 0984      L2201:     Move      (ApFontID), D3
ECD4   9EFC 000E      L2202:     SubA      #$E, A7
ECD8   3F38 09B4                 Move      (FMDotsPerInch.v), -(A7)
ECDC   3F3C 0050                 Move      #$50, -(A7)
ECE0   6198                      Bsr.B     P353
ECE2   594F                      SubQ      #$4, A7
ECE4   3F2B 000A                 Move      $A(A3), -(A7)
ECE8   3F2B 000E                 Move      $E(A3), -(A7)
ECEC   618C                      Bsr.B     P353
ECEE   6100 FF4C                 Bsr       P352
ECF2   4267                      Clr       -(A7)
ECF4   6100 FC50                 Bsr       P346
ECF8   3F00                      Move      D0, -(A7)
ECFA   6100 FF40                 Bsr       P352
ECFE   301F                      Move      (A7)+, D0
ED00   321F                      Move      (A7)+, D1
ED02   6A02                      BPL.B     L2203
ED04   5240                      AddQ      #$1, D0
ED06   3E80           L2203:     Move      D0, (A7)
ED08   6100 0402      L2204:     Bsr       P363
ED0C   6600 01FC                 BNE       L2225
ED10   0C43 0200                 Cmp       #$200, D3
ED14   650E                      BCS.B     L2205
ED16   6000 024C                 Bra       L2234

                      P357:
ED1A   0243 FF80                 And       #$-80, D3
ED1E   8640                      Or        D0, D3
ED20   6000 FF70                 Bra       P354
ED24   301F           L2205:     Move      (A7)+, D0
ED26   0240 007F                 And       #$7F, D0
ED2A   EF43                      AsL       #$7, D3
ED2C   8640                      Or        D0, D3
ED2E   3E00                      Move      D0, D7
ED30   6100 FF60                 Bsr       P354
ED34   663E                      BNE.B     L2209
ED36   3803                      Move      D3, D4
ED38   3007                      Move      D7, D0
ED3A   0C40 0040                 Cmp       #$40, D0
ED3E   6C06                      BGE.B     L2206
ED40   D040                      Add       D0, D0
ED42   61D6                      Bsr.B     P357
ED44   662E                      BNE.B     L2209
ED46   3007           L2206:     Move      D7, D0
ED48   E248                      LsR       #$1, D0
ED4A   6504                      BCS.B     L2207
ED4C   61CC                      Bsr.B     P357
ED4E   6624                      BNE.B     L2209
ED50   3604           L2207:     Move      D4, D3
ED52   7C01                      MoveQ.L   #$1, D6
ED54   4A38 0A63                 Tst.B     (FScaleDisable)
ED58   6702                      BEQ.B     L2208
ED5A   7CFF                      MoveQ.L   #$-1, D6
ED5C   D646           L2208:     Add       D6, D3
ED5E   0243 007F                 And       #$7F, D3
ED62   6700 00FA                 BEQ       L2217
ED66   3004                      Move      D4, D0
ED68   0240 FF80                 And       #$-80, D0
ED6C   8640                      Or        D0, D3
ED6E   6100 FF22                 Bsr       P354
ED72   67E8                      BEQ.B     L2208
ED74   21C8 099A      L2209:     Move.L    A0, (FOutFontHandle)
ED78   6100 0590                 Bsr       P367
ED7C   6100 FBC8                 Bsr       P346
ED80   594F                      SubQ      #$4, A7
ED82   3F00                      Move      D0, -(A7)
ED84   3F03                      Move      D3, -(A7)
ED86   0257 007F                 And       #$7F, (A7)
ED8A   6100 FEEE                 Bsr       P353
ED8E   2C1F                      Move.L    (A7)+, D6
ED90   2078 0B10                 Move.L    (WidthPtr), A0
ED94   3143 042C                 Move      D3, $42C(A0)
ED98   7A00                      MoveQ.L   #$0, D5
ED9A   6102                      Bsr.B     P358
ED9C   7A02                      MoveQ.L   #$2, D5

                      P358:
ED9E   9EFC 000C                 SubA      #$C, A7
EDA2   3F33 5008                 Move      $8(A3,D5.W), -(A7)
EDA6   3F33 500C                 Move      $C(A3,D5.W), -(A7)
EDAA   6100 FECE                 Bsr       P353
EDAE   594F                      SubQ      #$4, A7
EDB0   41F8 09B2                 Lea.L     (FMDotsPerInch_h), A0
EDB4   3F30 5000                 Move      $0(A0,D5.W), -(A7)
EDB8   3F3C 0050                 Move      #$50, -(A7)
EDBC   6100 FEBC                 Bsr       P353
EDC0   6100 FE7A                 Bsr       P352
EDC4   2F06                      Move.L    D6, -(A7)
EDC6   6100 FE74                 Bsr       P352
EDCA   41F8 09AA                 Lea.L     (FOutNumer_h), A0
EDCE   201F                      Move.L    (A7)+, D0
EDD0   E088                      LsR.L     #$8, D0
EDD2   3180 5000                 Move      D0, $0(A0,D5.W)
EDD6   7200                      MoveQ.L   #$0, D1
EDD8   3200                      Move      D0, D1
EDDA   31BC 0100 5004            Move      #$100, $4(A0,D5.W)
EDE0   4A38 0A63                 Tst.B     (FScaleDisable)
EDE4   6742                      BEQ.B     L2214
EDE6   303C 0100                 Move      #$100, D0
EDEA   0C41 0200      L2210:     Cmp       #$200, D1
EDEE   6D06                      BLT.B     L2211
EDF0   E340                      AsL       #$1, D0
EDF2   E241                      AsR       #$1, D1
EDF4   60F4                      Bra.B     L2210
EDF6   0C41 00C0      L2211:     Cmp       #$C0, D1
EDFA   6C06                      BGE.B     L2212
EDFC   E240                      AsR       #$1, D0
EDFE   E341                      AsL       #$1, D1
EE00   60F4                      Bra.B     L2211
EE02   0C41 0100      L2212:     Cmp       #$100, D1
EE06   6C12                      BGE.B     L2213
EE08   3400                      Move      D0, D2
EE0A   D040                      Add       D0, D0
EE0C   D042                      Add       D2, D0
EE0E   E440                      AsR       #$2, D0
EE10   E541                      AsL       #$2, D1
EE12   48C1                      Ext.L     D1
EE14   82FC 0003                 DivU      #$3, D1
EE18   48C1                      Ext.L     D1
EE1A   3180 5000      L2213:     Move      D0, $0(A0,D5.W)
EE1E   E181                      AsL.L     #$8, D1
EE20   4A45                      Tst       D5
EE22   671C                      BEQ.B     L2215
EE24   B2B8 0BF6                 Cmp.L     (FScaleHFact), D1
EE28   6720           L2214:     BEQ.B     L2216
EE2A   21C1 0BF6                 Move.L    D1, (FScaleHFact)
EE2E   2078 0B2A                 Move.L    (WidthTabHandle), A0
EE32   2050                      Move.L    (A0), A0
EE34   42A8 0400                 Clr.L     $400(A0)
EE38   74FF                      MoveQ.L   #$-1, D2
EE3A   3142 040C                 Move      D2, $40C(A0)
EE3E   600A                      Bra.B     L2216
EE40   B2B8 0BFA      L2215:     Cmp.L     (FScaleVFact), D1
EE44   6704                      BEQ.B     L2216
EE46   21C1 0BFA                 Move.L    D1, (FScaleVFact)
EE4A   2278 0B10      L2216:     Move.L    (WidthPtr), A1
EE4E   43E9 0424                 Lea.L     $424(A1), A1
EE52   3380 5000                 Move      D0, $0(A1,D5.W)
EE56   E081                      AsR.L     #$8, D1
EE58   3381 5004                 Move      D1, $4(A1,D5.W)
EE5C   4E75                      Rts
EE5E   4A38 0A63      L2217:     Tst.B     (FScaleDisable)
EE62   6706                      BEQ.B     L2218
EE64   4446                      Neg       D6
EE66   6B0C                      BMI.B     L2220
EE68   6004                      Bra.B     L2219
EE6A   4446           L2218:     Neg       D6
EE6C   6A06                      BPL.B     L2220
EE6E   3604           L2219:     Move      D4, D3
EE70   6000 FEEA                 Bra       L2208
EE74   4638 015E      L2220:     Not.B     (FontFlag)
EE78   6600 FE56                 BNE       L2201
EE7C   7600                      MoveQ.L   #$0, D3
EE7E   6000 FE44                 Bra       L2199

                      P359:
EE82   4A40                      Tst       D0
EE84   6726                      BEQ.B     P360
EE86   70FF                      MoveQ.L   #$-1, D0
EE88   102B 0006                 Move.B    $6(A3), D0
EE8C   7232                      MoveQ.L   #$32, D1
EE8E   9FC1                      SubA.L    D1, A7
EE90   41EF 0018                 Lea.L     $18(A7), A0
EE94   30C0                      Move      D0, (A0)+
EE96   30FC 0008                 Move      #$8, (A0)+
EE9A   43F8 09B2                 Lea.L     (FMDotsPerInch_h), A1
EE9E   20C9                      Move.L    A1, (A0)+
EEA0   30EB 0006                 Move      $6(A3), (A0)+
EEA4   204F                      Move.L    A7, A0
EEA6   A005                      _Status
EEA8   DFC1                      AddA.L    D1, A7
EEAA   4E75                      Rts

                      P360:
EEAC   43F8 09B2                 Lea.L     (FMDotsPerInch_h), A1
EEB0   41FA 01A4                 Lea.L     DT57, A0
EEB4   701C                      MoveQ.L   #$1C, D0
EEB6   A02E                      _BlockMove
EEB8   4E75                      Rts

                      P361:
EEBA   2052                      Move.L    (A2), A0
EEBC   41E8 0034                 Lea.L     $34(A0), A0
EEC0   3218                      Move      (A0)+, D1
EEC2   B658           L2221:     Cmp       (A0)+, D3
EEC4   670C                      BEQ.B     L2223
EEC6   6D06                      BLT.B     L2222
EEC8   5848                      AddQ      #$4, A0
EECA   51C9 FFF6                 DBF       D1, L2221
EECE   7000           L2222:     MoveQ.L   #$0, D0
EED0   4E75                      Rts
EED2   2010           L2223:     Move.L    (A0), D0
EED4   21C0 099A                 Move.L    D0, (FOutFontHandle)

                      P362:
EED8   2F00                      Move.L    D0, -(A7)
EEDA   594F                      SubQ      #$4, A7
EEDC   2F3C 4E46 4E54            Move.L    #$4E464E54, -(A7)
EEE2   3F00                      Move      D0, -(A7)
EEE4   31FC FFFF 0B9E            Move      #$-1, (ROMMapInsert)
EEEA   A9A0                      _GetResource
EEEC   201F                      Move.L    (A7)+, D0
EEEE   6704                      BEQ.B     L2224
EEF0   584F                      AddQ      #$4, A7
EEF2   4E75                      Rts
EEF4   2017           L2224:     Move.L    (A7), D0
EEF6   2F3C 464F 4E54            Move.L    #$464F4E54, -(A7)
EEFC   3F00                      Move      D0, -(A7)
EEFE   31FC FFFF 0B9E            Move      #$-1, (ROMMapInsert)
EF04   A9A0                      _GetResource
EF06   201F                      Move.L    (A7)+, D0
EF08   4E75                      Rts
EF0A   3A1F           L2225:     Move      (A7)+, D5
EF0C   2F0A                      Move.L    A2, -(A7)
EF0E   2440                      Move.L    D0, A2
EF10   3605                      Move      D5, D3
EF12   61A6                      Bsr.B     P361
EF14   6612                      BNE.B     L2226
EF16   4A38 0A63                 Tst.B     (FScaleDisable)
EF1A   660E                      BNE.B     L2227
EF1C   D643                      Add       D3, D3
EF1E   619A                      Bsr.B     P361
EF20   6606                      BNE.B     L2226
EF22   3605                      Move      D5, D3
EF24   E24B                      LsR       #$1, D3
EF26   6192                      Bsr.B     P361
EF28   6674           L2226:     BNE.B     L2239
EF2A   2052           L2227:     Move.L    (A2), A0
EF2C   41E8 0034                 Lea.L     $34(A0), A0
EF30   3818                      Move      (A0)+, D4
EF32   7200                      MoveQ.L   #$0, D1
EF34   747F                      MoveQ.L   #$7F, D2
EF36   3005           L2228:     Move      D5, D0
EF38   9050                      Sub       (A0), D0
EF3A   6A0C                      BPL.B     L2230
EF3C   4A38 0A63                 Tst.B     (FScaleDisable)
EF40   6704                      BEQ.B     L2229
EF42   4A41                      Tst       D1
EF44   6610                      BNE.B     L2232
EF46   4440           L2229:     Neg       D0
EF48   B042           L2230:     Cmp       D2, D0
EF4A   6E04                      BGT.B     L2231
EF4C   3400                      Move      D0, D2
EF4E   3210                      Move      (A0), D1
EF50   5C48           L2231:     AddQ      #$6, A0
EF52   51CC FFE2                 DBF       D4, L2228
EF56   3601           L2232:     Move      D1, D3
EF58   6100 FF60                 Bsr       P361
EF5C   6640                      BNE.B     L2239
EF5E   245F           L2233:     Move.L    (A7)+, A2
EF60   3F05                      Move      D5, -(A7)
EF62   3613                      Move      (A3), D3
EF64   0C43 0001      L2234:     Cmp       #$1, D3
EF68   6608                      BNE.B     L2236
EF6A   3638 0984                 Move      (ApFontID), D3
EF6E   6000 FDB4      L2235:     Bra       L2205
EF72   0C43 4000      L2236:     Cmp       #$4000, D3
EF76   65F6                      BCS.B     L2235
EF78   4A38 015E                 Tst.B     (FontFlag)
EF7C   660C                      BNE.B     L2238
EF7E   50F8 015E                 ST.B      (FontFlag)
EF82   0243 FE00                 And       #$-200, D3
EF86   6000 FD80      L2237:     Bra       L2204
EF8A   5243           L2238:     AddQ      #$1, D3
EF8C   3003                      Move      D3, D0
EF8E   0240 01FF                 And       #$1FF, D0
EF92   66F2                      BNE.B     L2237
EF94   4238 015E                 Clr.B     (FontFlag)
EF98   544F                      AddQ      #$2, A7
EF9A   6000 FD34                 Bra       L2201
EF9E   2052           L2239:     Move.L    (A2), A0
EFA0   41E8 0034                 Lea.L     $34(A0), A0
EFA4   3218                      Move      (A0)+, D1
EFA6   B650           L2240:     Cmp       (A0), D3
EFA8   670C                      BEQ.B     L2242
EFAA   5C48                      AddQ      #$6, A0
EFAC   51C9 FFF8                 DBF       D1, L2240
EFB0   60AC                      Bra.B     L2233
EFB2   2248           L2241:     Move.L    A0, A1
EFB4   603A                      Bra.B     L2247
EFB6   5448           L2242:     AddQ      #$2, A0
EFB8   7800                      MoveQ.L   #$0, D4
EFBA   142B 0004                 Move.B    $4(A3), D2
EFBE   3C18           L2243:     Move      (A0)+, D6
EFC0   B406                      Cmp.B     D6, D2
EFC2   67EE                      BEQ.B     L2241
EFC4   3E02                      Move      D2, D7
EFC6   4647                      Not       D7
EFC8   CE06                      And.B     D6, D7
EFCA   661C                      BNE.B     L2246
EFCC   7200                      MoveQ.L   #$0, D1
EFCE   7E07                      MoveQ.L   #$7, D7
EFD0   0F02           L2244:     BTst.L    D7, D2
EFD2   6708                      BEQ.B     L2245
EFD4   0F06                      BTst.L    D7, D6
EFD6   6704                      BEQ.B     L2245
EFD8   D23B 7074                 Add.B     DT56(D7.W), D1
EFDC   51CF FFF2      L2245:     DBF       D7, L2244
EFE0   B841                      Cmp       D1, D4
EFE2   6C04                      BGE.B     L2246
EFE4   3801                      Move      D1, D4
EFE6   2248                      Move.L    A0, A1
EFE8   5848           L2246:     AddQ      #$4, A0
EFEA   B668 FFFE                 Cmp       $-2(A0), D3
EFEE   67CE                      BEQ.B     L2243
EFF0   3C29 FFFE      L2247:     Move      $-2(A1), D6
EFF4   3238 099C                 Move      (FOutFontHandle.2), D1
EFF8   B251                      Cmp       (A1), D1
EFFA   6710                      BEQ.B     L2248
EFFC   2F00                      Move.L    D0, -(A7)
EFFE   3011                      Move      (A1), D0
F000   6100 FED6                 Bsr       P362
F004   663E                      BNE.B     L2251
F006   201F                      Move.L    (A7)+, D0
F008   3C38 099A                 Move      (FOutFontHandle), D6
F00C   2040           L2248:     Move.L    D0, A0
F00E   4646                      Not       D6
F010   CD38 09A9                 And.B     D6, (FOutUnused)
F014   4646                      Not       D6
F016   2252                      Move.L    (A2), A1
F018   7200                      MoveQ.L   #$0, D1
F01A   3229 0006                 Move      $6(A1), D1
F01E   9269 0004                 Sub       $4(A1), D1
F022   5641                      AddQ      #$3, D1
F024   D241                      Add       D1, D1
F026   2029 0010                 Move.L    $10(A1), D0
F02A   6712                      BEQ.B     L2250
F02C   D3C0                      AddA.L    D0, A1
F02E   3419                      Move      (A1)+, D2
F030   6B0C                      BMI.B     L2250
F032   3019           L2249:     Move      (A1)+, D0
F034   BC00                      Cmp.B     D0, D6
F036   6710                      BEQ.B     L2252
F038   D3C1                      AddA.L    D1, A1
F03A   51CA FFF6                 DBF       D2, L2249
F03E   245F           L2250:     Move.L    (A7)+, A2
F040   6000 FD32                 Bra       L2209
F044   584F           L2251:     AddQ      #$4, A7
F046   60C4                      Bra.B     L2248
F048   93D2           L2252:     SubA.L    (A2), A1
F04A   2849                      Move.L    A1, A4
F04C   60F0                      Bra.B     L2250

                      DT56:
F04E   0408 0103 0302            DC.B      '      '
F054   0100                      DC.B      '  '

                      DT57:
F056   0050 0050 0001            DC.B      ' P P  '
F05C   0101 0800 0000            DC.B      '      '
F062   0005 0101 0502            DC.B      '      '
F068   0200 00FF 0000            DC.B      '      '
F06E   0101 0101 0077            DC.B      '     w'
F074   7A3B C935 3019            DC.B      'z; 50 '
F07A   80AF 3018 7A60            DC.B      '  0 z`'
F080   1809 0060 3198            DC.B      '   `1 '
F086   0972 7BBA 49BF            DC.B      ' r{ I '
F08C   E09D 0102 20BF            DC.B      '      '
F092   4088 01F1 FE02            DC.B      '@     '
F098   0A81 BC04 0703            DC.B      '      '
F09E   9A08 040F 8099            DC.B      '      '
F0A4   1FC0 3760 B90F            DC.B      '  7`  '
F0AA   0403 DF0F 9808            DC.B      '      '
F0B0   3760 1FC1 A804            DC.B      '7`    '
F0B6   0F80 0202 9A01            DC.B      '      '
F0BC   0487 0818                 DC.B      '    '

                      P_tGetFontName:
F0C0   2F03                      Move.L    D3, -(A7)
F0C2   362F 000C                 Move      $C(A7), D3
F0C6   31FC FF00 0B9E            Move      #$-100, (ROMMapInsert)
F0CC   6144                      Bsr.B     P364
F0CE   660E                      BNE.B     L2253
F0D0   0C43 0200                 Cmp       #$200, D3
F0D4   642E                      BCC.B     L2255
F0D6   EF43                      AsL       #$7, D3
F0D8   6100 FBC0                 Bsr       P355
F0DC   6726                      BEQ.B     L2255
F0DE   2F00           L2253:     Move.L    D0, -(A7)
F0E0   4878 09FA                 Pea.L     (scratch8)
F0E4   2F17                      Move.L    (A7), -(A7)
F0E6   2F2F 0014                 Move.L    $14(A7), -(A7)
F0EA   31FC FF00 0B9E            Move      #$-100, (ROMMapInsert)
F0F0   A9A8                      _GetResInfo
F0F2   76FF           L2254:     MoveQ.L   #$-1, D3
F0F4   31C3 0BC6                 Move      D3, (FONDID)
F0F8   42B8 0BC2                 Clr.L     (LastFOND)
F0FC   261F                      Move.L    (A7)+, D3
F0FE   205F                      Move.L    (A7)+, A0
F100   5C4F                      AddQ      #$6, A7
F102   4ED0                      Jmp       (A0)
F104   206F 0008      L2255:     Move.L    $8(A7), A0
F108   4250                      Clr       (A0)
F10A   60E6                      Bra.B     L2254

                      P363:
F10C   31FC FFFF 0B9E            Move      #$-1, (ROMMapInsert)

                      P364:
F112   0C43 0001                 Cmp       #$1, D3
F116   6604                      BNE.B     L2256
F118   3638 0984                 Move      (ApFontID), D3
F11C   B678 0BC6      L2256:     Cmp       (FONDID), D3
F120   673A                      BEQ.B     L2259
F122   594F                      SubQ      #$4, A7
F124   2F3C 464F 4E44            Move.L    #$464F4E44, -(A7)
F12A   3F03                      Move      D3, -(A7)
F12C   A9A0                      _GetResource
F12E   2238 0BC2                 Move.L    (LastFOND), D1
F132   6706                      BEQ.B     L2257
F134   2041                      Move.L    D1, A0
F136   10B8 0BC2                 Move.B    (LastFOND), (A0)
F13A   201F           L2257:     Move.L    (A7)+, D0
F13C   2040                      Move.L    D0, A0
F13E   6714                      BEQ.B     L2258
F140   2050                      Move.L    (A0), A0
F142   11D0 08E4                 Move.B    (A0), (WidthListHand)
F146   2040                      Move.L    D0, A0
F148   1210                      Move.B    (A0), D1
F14A   0890 0006                 BClr.B    #$6, (A0)
F14E   E198                      ROL.L     #$8, D0
F150   1001                      Move.B    D1, D0
F152   E098                      ROR.L     #$8, D0
F154   31C3 0BC6      L2258:     Move      D3, (FONDID)
F158   21C0 0BC2                 Move.L    D0, (LastFOND)
F15C   2038 0BC2      L2259:     Move.L    (LastFOND), D0
F160   C0B8 031A                 And.L     (Lo3Bytes), D0
F164   4E75                      Rts

                      P_tGetFNum:
F166   4E56 FEF2                 Link      A6, #$-10E
F16A   2F03                      Move.L    D3, -(A7)
F16C   50C3                      ST.B      D3
F16E   594F                      SubQ      #$4, A7
F170   2F3C 464F 4E44            Move.L    #$464F4E44, -(A7)
F176   2F2E 000C                 Move.L    $C(A6), -(A7)
F17A   31FC FF00 0B9E            Move      #$-100, (ROMMapInsert)
F180   A9A1                      _GetNamedResource
F182   201F                      Move.L    (A7)+, D0
F184   661A                      BNE.B     L2260
F186   7600                      MoveQ.L   #$0, D3
F188   594F                      SubQ      #$4, A7
F18A   2F3C 464F 4E54            Move.L    #$464F4E54, -(A7)
F190   2F2E 000C                 Move.L    $C(A6), -(A7)
F194   31FC FF00 0B9E            Move      #$-100, (ROMMapInsert)
F19A   A9A1                      _GetNamedResource
F19C   201F                      Move.L    (A7)+, D0
F19E   6730                      BEQ.B     L2263
F1A0   2F00           L2260:     Move.L    D0, -(A7)
F1A2   486E FFFC                 Pea.L     $-4(A6)
F1A6   486E FFF8                 Pea.L     $-8(A6)
F1AA   486E FEF2                 Pea.L     $-10E(A6)
F1AE   31FC FF00 0B9E            Move      #$-100, (ROMMapInsert)
F1B4   A9A8                      _GetResInfo
F1B6   206E 0008                 Move.L    $8(A6), A0
F1BA   302E FFFC                 Move      $-4(A6), D0
F1BE   4A03                      Tst.B     D3
F1C0   6602                      BNE.B     L2261
F1C2   EE48                      LsR       #$7, D0
F1C4   3080           L2261:     Move      D0, (A0)
F1C6   261F           L2262:     Move.L    (A7)+, D3
F1C8   4E5E                      Unlk      A6
F1CA   205F                      Move.L    (A7)+, A0
F1CC   504F                      AddQ      #$8, A7
F1CE   4ED0                      Jmp       (A0)
F1D0   206E 0008      L2263:     Move.L    $8(A6), A0
F1D4   4250                      Clr       (A0)
F1D6   60EE                      Bra.B     L2262

                      P_tSetFontLock:
F1D8   2278 099A                 Move.L    (FOutFontHandle), A1
F1DC   4A2F 0004                 Tst.B     $4(A7)
F1E0   6616                      BNE.B     L2265
F1E2   08D1 0006                 BSet.B    #$6, (A1)
F1E6   4AB8 0BC2                 Tst.L     (LastFOND)
F1EA   6706                      BEQ.B     L2264
F1EC   08F8 0006 0BC2            BSet.B    #$6, (LastFOND)
F1F2   205F           L2264:     Move.L    (A7)+, A0
F1F4   544F                      AddQ      #$2, A7
F1F6   4ED0                      Jmp       (A0)
F1F8   2F09           L2265:     Move.L    A1, -(A7)
F1FA   31FC FFFF 0B9E            Move      #$-1, (ROMMapInsert)
F200   A9A2                      _LoadResource
F202   0891 0006                 BClr.B    #$6, (A1)
F206   08B8 0006 0BC2            BClr.B    #$6, (LastFOND)
F20C   60E4                      Bra.B     L2264

                      P_tRealFont:
F20E   426F 0008                 Clr       $8(A7)
F212   2F03                      Move.L    D3, -(A7)
F214   362F 000A                 Move      $A(A7), D3
F218   6100 FEF2                 Bsr       P363
F21C   6624                      BNE.B     L2268
F21E   0C43 0200                 Cmp       #$200, D3
F222   6418                      BCC.B     L2267
F224   EF43                      AsL       #$7, D3
F226   322F 0008                 Move      $8(A7), D1
F22A   0241 007F                 And       #$7F, D1
F22E   670C                      BEQ.B     L2267
F230   8641                      Or        D1, D3
F232   6100 FA66                 Bsr       P355
F236   6704                      BEQ.B     L2267
F238   522F 000C      L2266:     AddQ      #$1, $C(A7)
F23C   261F           L2267:     Move.L    (A7)+, D3
F23E   2E9F                      Move.L    (A7)+, (A7)
F240   4E75                      Rts
F242   2040           L2268:     Move.L    D0, A0
F244   2050                      Move.L    (A0), A0
F246   41E8 0034                 Lea.L     $34(A0), A0
F24A   3418                      Move      (A0)+, D2
F24C   6BEE                      BMI.B     L2267
F24E   322F 0008                 Move      $8(A7), D1
F252   B250           L2269:     Cmp       (A0), D1
F254   67E2                      BEQ.B     L2266
F256   6DE4                      BLT.B     L2267
F258   5C48                      AddQ      #$6, A0
F25A   51CA FFF6                 DBF       D2, L2269
F25E   60DC                      Bra.B     L2267

                      P_tSetFScaleDisable:
F260   205F                      Move.L    (A7)+, A0
F262   11DF 0A63                 Move.B    (A7)+, (FScaleDisable)
F266   31FC FFFF 0988            Move      #$-1, (CurFMFamily)
F26C   2F08                      Move.L    A0, -(A7)
F26E   6100 F412                 Bsr       P343
F272   4E75                      Rts

                      P_tFontMetrics:
F274   554F                      SubQ      #$2, A7
F276   3F3C 0020                 Move      #$20, -(A7)
F27A   A88D                      _CharWidth
F27C   544F                      AddQ      #$2, A7
F27E   48E7 0030                 MoveM.L   A2-A3, -(A7)
F282   246F 000C                 Move.L    $C(A7), A2
F286   2278 099A                 Move.L    (FOutFontHandle), A1
F28A   2251                      Move.L    (A1), A1
F28C   41E9 0012                 Lea.L     $12(A1), A0
F290   4869 0006                 Pea.L     $6(A1)
F294   613A                      Bsr.B     P365
F296   6138                      Bsr.B     P365
F298   6136                      Bsr.B     P365
F29A   205F                      Move.L    (A7)+, A0
F29C   2238 0BF6                 Move.L    (FScaleHFact), D1
F2A0   43F8 09AC                 Lea.L     (FOutNumer.v), A1
F2A4   6132                      Bsr.B     P366
F2A6   24B8 0B2A                 Move.L    (WidthTabHandle), (A2)
F2AA   246F 000C                 Move.L    $C(A7), A2
F2AE   7000                      MoveQ.L   #$0, D0
F2B0   1038 09A3                 Move.B    (FOutShadow), D0
F2B4   6706                      BEQ.B     L2270
F2B6   5252                      AddQ      #$1, (A2)
F2B8   D16A 0004                 Add       D0, $4(A2)
F2BC   2078 0B10      L2270:     Move.L    (WidthPtr), A0
F2C0   2028 0408                 Move.L    $408(A0), D0
F2C4   D1AA 000C                 Add.L     D0, $C(A2)
F2C8   4CDF 0C00                 MoveM.L   (A7)+, A2-A3
F2CC   2E9F                      Move.L    (A7)+, (A7)
F2CE   4E75                      Rts

                      P365:
F2D0   2238 0BFA                 Move.L    (FScaleVFact), D1
F2D4   43F8 09AA                 Lea.L     (FOutNumer_h), A1

                      P366:
F2D8   3018                      Move      (A0)+, D0
F2DA   2F08                      Move.L    A0, -(A7)
F2DC   4A38 0A63                 Tst.B     (FScaleDisable)
F2E0   6604                      BNE.B     L2271
F2E2   223A F954                 Move.L    DT55, D1
F2E6   594F           L2271:     SubQ      #$4, A7
F2E8   2F01                      Move.L    D1, -(A7)
F2EA   594F                      SubQ      #$4, A7
F2EC   4267                      Clr       -(A7)
F2EE   3F00                      Move      D0, -(A7)
F2F0   594F                      SubQ      #$4, A7
F2F2   3F29 0004                 Move      $4(A1), -(A7)
F2F6   3F11                      Move      (A1), -(A7)
F2F8   6100 F980                 Bsr       P353
F2FC   6100 F93E                 Bsr       P352
F300   6100 F93A                 Bsr       P352
F304   24DF                      Move.L    (A7)+, (A2)+
F306   205F                      Move.L    (A7)+, A0
F308   4E75                      Rts

                      P367:
F30A   48E7 1F38                 MoveM.L   D3-D7/A2-A4, -(A7)
F30E   2648                      Move.L    A0, A3
F310   2253                      Move.L    (A3), A1
F312   3019                      Move      (A1)+, D0
F314   E248                      LsR       #$1, D0
F316   6532                      BCS.B     L2273
F318   3019                      Move      (A1)+, D0
F31A   3A11                      Move      (A1), D5
F31C   9A40                      Sub       D0, D5
F31E   5645                      AddQ      #$3, D5
F320   DA45                      Add       D5, D5
F322   48C5                      Ext.L     D5
F324   2253                      Move.L    (A3), A1
F326   7000                      MoveQ.L   #$0, D0
F328   3029 0010                 Move      $10(A1), D0
F32C   5080                      AddQ      #$8, D0
F32E   D080                      Add.L     D0, D0
F330   2200                      Move.L    D0, D1
F332   9285                      Sub.L     D5, D1
F334   D085                      Add.L     D5, D0
F336   2400                      Move.L    D0, D2
F338   D085                      Add.L     D5, D0
F33A   0829 0001 0001            BTst.B    #$1, $1(A1)
F340   6704                      BEQ.B     L2272
F342   D085                      Add.L     D5, D0
F344   D485                      Add.L     D5, D2
F346   A024           L2272:     _SetHandleSize
F348   6706                      BEQ.B     L2274
F34A   4CDF 1CF8      L2273:     MoveM.L   (A7)+, D3-D7/A2-A4
F34E   4E75                      Rts
F350   2453           L2274:     Move.L    (A3), A2
F352   0052 0001                 Or        #$1, (A2)
F356   362A 000E                 Move      $E(A2), D3
F35A   D5C1                      AddA.L    D1, A2
F35C   2853                      Move.L    (A3), A4
F35E   D9C2                      AddA.L    D2, A4
F360   5545                      SubQ      #$2, D5
F362   38BC FF00      L2275:     Move      #$-100, (A4)
F366   3E1A                      Move      (A2)+, D7
F368   3C12                      Move      (A2), D6
F36A   9C47                      Sub       D7, D6
F36C   6700 009C                 BEQ       L2281
F370   3407           L2276:     Move      D7, D2
F372   3007                      Move      D7, D0
F374   E848                      LsR       #$4, D0
F376   D040                      Add       D0, D0
F378   2253                      Move.L    (A3), A1
F37A   D2FC 001A                 AddA      #$1A, A1
F37E   D2C0                      AddA      D0, A1
F380   0242 000F                 And       #$F, D2
F384   3202                      Move      D2, D1
F386   D241                      Add       D1, D1
F388   7000                      MoveQ.L   #$0, D0
F38A   303B 1022                 Move      DT58(D1.W), D0
F38E   4840                      Swap      D0
F390   7210                      MoveQ.L   #$10, D1
F392   9242                      Sub       D2, D1
F394   DE41                      Add       D1, D7
F396   9C41                      Sub       D1, D6
F398   674E                      BEQ.B     L2279
F39A   6A34                      BPL.B     L2277
F39C   3206                      Move      D6, D1
F39E   0641 0010                 Add       #$10, D1
F3A2   D241                      Add       D1, D1
F3A4   243B 1008                 Move.L    DT58(D1.W), D2
F3A8   4682                      Not.L     D2
F3AA   C082                      And.L     D2, D0
F3AC   603A                      Bra.B     L2279

                      DT58:
F3AE   FFFF 7FFF 3FFF            DC.B      '    ? '
F3B4   1FFF 0FFF 07FF            DC.B      '      '
F3BA   03FF 01FF 00FF            DC.B      '      '
F3C0   007F 003F 001F            DC.B      '   ?  '
F3C6   000F 0007 0003            DC.B      '      '
F3CC   0001 0000                 DC.B      '    '
F3D0   7810           L2277:     MoveQ.L   #$10, D4
F3D2   3206                      Move      D6, D1
F3D4   B244                      Cmp       D4, D1
F3D6   6F02                      BLE.B     L2278
F3D8   3204                      Move      D4, D1
F3DA   D241           L2278:     Add       D1, D1
F3DC   343B 10D0                 Move      DT58(D1.W), D2
F3E0   4642                      Not       D2
F3E2   8042                      Or        D2, D0
F3E4   9C44                      Sub       D4, D6
F3E6   DE44                      Add       D4, D7
F3E8   2F09           L2279:     Move.L    A1, -(A7)
F3EA   3203                      Move      D3, D1
F3EC   5341                      SubQ      #$1, D1
F3EE   7800                      MoveQ.L   #$0, D4
F3F0   2053                      Move.L    (A3), A0
F3F2   3068 0018                 Move      $18(A0), A0
F3F6   D0C8                      AddA      A0, A0
F3F8   2411           L2280:     Move.L    (A1), D2
F3FA   C480                      And.L     D0, D2
F3FC   6610                      BNE.B     L2282
F3FE   5244                      AddQ      #$1, D4
F400   D2C8                      AddA      A0, A1
F402   51C9 FFF4                 DBF       D1, L2280
F406   588F                      AddQ      #$4, A7
F408   7C00                      MoveQ.L   #$0, D6
F40A   425C           L2281:     Clr       (A4)+
F40C   6034                      Bra.B     L2286
F40E   B814           L2282:     Cmp.B     (A4), D4
F410   6400 0004                 BCC       L2283
F414   1884                      Move.B    D4, (A4)
F416   225F           L2283:     Move.L    (A7)+, A1
F418   3403                      Move      D3, D2
F41A   5342                      SubQ      #$1, D2
F41C   3808                      Move      A0, D4
F41E   C4C4                      MulU      D4, D2
F420   D3C2                      AddA.L    D2, A1
F422   3803                      Move      D3, D4
F424   3203                      Move      D3, D1
F426   5341                      SubQ      #$1, D1
F428   2411           L2284:     Move.L    (A1), D2
F42A   C480                      And.L     D0, D2
F42C   660A                      BNE.B     L2285
F42E   5344                      SubQ      #$1, D4
F430   92C8                      SubA      A0, A1
F432   51C9 FFF4                 DBF       D1, L2284
F436   60D2                      Bra.B     L2281
F438   981C           L2285:     Sub.B     (A4)+, D4
F43A   B81C                      Cmp.B     (A4)+, D4
F43C   6F04                      BLE.B     L2286
F43E   1944 FFFF                 Move.B    D4, $-1(A4)
F442   558C           L2286:     SubQ      #$2, A4
F444   4A46                      Tst       D6
F446   6E00 FF28                 BGT       L2276
F44A   548C                      AddQ      #$2, A4
F44C   5545                      SubQ      #$2, D5
F44E   6E00 FF12                 BGT       L2275
F452   6000 FEF6                 Bra       L2273

                      P_tLoadSeg:
F456   48E7 E0C0                 MoveM.L   D0-D2/A0-A1, -(A7)
F45A   302F 0018                 Move      $18(A7), D0
F45E   616A                      Bsr.B     P368
F460   6762                      BEQ.B     L2292
F462   0810 0007                 BTst.B    #$7, (A0)
F466   660C                      BNE.B     L2288
F468   4A38 0BB2                 Tst.B     (SegHiEnable)
F46C   6702                      BEQ.B     L2287
F46E   A064                      _MoveHHi
F470   08D0 0007      L2287:     BSet.B    #$7, (A0)
F474   2F10           L2288:     Move.L    (A0), -(A7)
F476   4217                      Clr.B     (A7)
F478   205F                      Move.L    (A7)+, A0
F47A   224D                      Move.L    A5, A1
F47C   D2F8 0934                 AddA      (CurJTOffset), A1
F480   D2D0                      AddA      (A0), A1
F482   0C69 4EF9 0002            Cmp       #$4EF9, $2(A1)
F488   6720                      BEQ.B     L2290
F48A   3028 0002                 Move      $2(A0), D0
F48E   671A                      BEQ.B     L2290
F490   322F 0018                 Move      $18(A7), D1
F494   7400                      MoveQ.L   #$0, D2
F496   3419           L2289:     Move      (A1)+, D2
F498   3341 FFFE                 Move      D1, $-2(A1)
F49C   32FC 4EF9                 Move      #$4EF9, (A1)+
F4A0   4870 2804                 Pea.L     $4(A0,D2.L)
F4A4   22DF                      Move.L    (A7)+, (A1)+
F4A6   5340                      SubQ      #$1, D0
F4A8   66EC                      BNE.B     L2289
F4AA   226F 0014      L2290:     Move.L    $14(A7), A1
F4AE   5D89                      SubQ      #$6, A1
F4B0   2F49 0016                 Move.L    A1, $16(A7)
F4B4   4CDF 0307                 MoveM.L   (A7)+, D0-D2/A0-A1
F4B8   544F                      AddQ      #$2, A7
F4BA   4A38 012D                 Tst.B     (LoadTrap)
F4BE   6702                      BEQ.B     L2291
F4C0   A9FF                      _Debugger
F4C2   4E75           L2291:     Rts
F4C4   700F           L2292:     MoveQ.L   #$F, D0
F4C6   A9C9                      _SysError
F4C8   A9FF                      _Debugger

                      P368:
F4CA   594F                      SubQ      #$4, A7
F4CC   2F3C 434F 4445            Move.L    #$434F4445, -(A7)
F4D2   3F00                      Move      D0, -(A7)
F4D4   50F8 0A5E                 ST.B      (ResLoad)
F4D8   A9A0                      _GetResource
F4DA   205F                      Move.L    (A7)+, A0
F4DC   2008                      Move.L    A0, D0
F4DE   4E75                      Rts

                      P_tUnLoadSeg:
F4E0   206F 0004                 Move.L    $4(A7), A0
F4E4   0C50 4EF9                 Cmp       #$4EF9, (A0)
F4E8   6634                      BNE.B     L2294
F4EA   3028 FFFE                 Move      $-2(A0), D0
F4EE   61DA                      Bsr.B     P368
F4F0   0890 0007                 BClr.B    #$7, (A0)
F4F4   2050                      Move.L    (A0), A0
F4F6   224D                      Move.L    A5, A1
F4F8   D2F8 0934                 AddA      (CurJTOffset), A1
F4FC   D2D0                      AddA      (A0), A1
F4FE   3028 0002                 Move      $2(A0), D0
F502   671A                      BEQ.B     L2294
F504   3211           L2293:     Move      (A1), D1
F506   2429 0004                 Move.L    $4(A1), D2
F50A   9488                      Sub.L     A0, D2
F50C   5982                      SubQ      #$4, D2
F50E   32C2                      Move      D2, (A1)+
F510   32FC 3F3C                 Move      #$3F3C, (A1)+
F514   32C1                      Move      D1, (A1)+
F516   32FC A9F0                 Move      #$-5610, (A1)+
F51A   5340                      SubQ      #$1, D0
F51C   66E6                      BNE.B     L2293
F51E   2E9F           L2294:     Move.L    (A7)+, (A7)
F520   4E75                      Rts

                      P369:
F522   2278 0162                 Move.L    (VBLQueueHdr.Head), A1
F526   2009           L2295:     Move.L    A1, D0
F528   671C                      BEQ.B     L2296
F52A   2049                      Move.L    A1, A0
F52C   2250                      Move.L    (A0), A1
F52E   2028 0006                 Move.L    $6(A0), D0
F532   C0B8 031A                 And.L     (Lo3Bytes), D0
F536   B0B8 02AA                 Cmp.L     (ApplZone), D0
F53A   65EA                      BCS.B     L2295
F53C   B0B8 02AE                 Cmp.L     (ROMBase), D0
F540   64E4                      BCC.B     L2295
F542   A034                      _VRemove
F544   60E0                      Bra.B     L2295
F546   4E75           L2296:     Rts
F548   2038 0108      L2297:     Move.L    (MemTop), D0
F54C   0480 0000 5F00            Sub.L     #$5F00, D0
F552   6000 011A                 Bra       L2306

                      P_tChain:
F556   4278 0902                 Clr       (LaunchFlag)
F55A   6040                      Bra.B     L2300

                      P_tLaunch:
F55C   50F8 0902                 ST.B      (LaunchFlag)
F560   48E7 C0C0                 MoveM.L   D0-D1/A0-A1, -(A7)
F564   9EFC 0032                 SubA      #$32, A7
F568   3F7C FFFF 001A            Move      #$-1, $1A(A7)
F56E   2278 011C                 Move.L    (UTableBase), A1
F572   3238 01D2                 Move      (UnitTableEntryCount), D1
F576   2019           L2298:     Move.L    (A1)+, D0
F578   6716                      BEQ.B     L2299
F57A   2040                      Move.L    D0, A0
F57C   2050                      Move.L    (A0), A0
F57E   0828 0004 0004            BTst.B    #$4, $4(A0)
F584   670A                      BEQ.B     L2299
F586   3F68 0018 0018            Move      $18(A0), $18(A7)
F58C   204F                      Move.L    A7, A0
F58E   A004                      _Control
F590   5341           L2299:     SubQ      #$1, D1
F592   66E2                      BNE.B     L2298
F594   DEFC 0032                 AddA      #$32, A7
F598   4CDF 0303                 MoveM.L   (A7)+, D0-D1/A0-A1
F59C   2648           L2300:     Move.L    A0, A3
F59E   205B                      Move.L    (A3)+, A0
F5A0   31DB 0936                 Move      (A3)+, (CurPageOption)
F5A4   43F8 0910                 Lea.L     (CurApName), A1
F5A8   7020                      MoveQ.L   #$20, D0
F5AA   A02E                      _BlockMove
F5AC   3038 0900                 Move      (CurApRefNum), D0
F5B0   6F08                      BLE.B     L2301
F5B2   3F00                      Move      D0, -(A7)
F5B4   A99A                      _CloseResFile
F5B6   4278 0900                 Clr       (CurApRefNum)
F5BA   2E78 010C      L2301:     Move.L    (BufPtr), A7
F5BE   42B8 0110                 Clr.L     (StackLowPoint)
F5C2   4A78 0902                 Tst       (LaunchFlag)
F5C6   675E                      BEQ.B     L2304
F5C8   2038 0964                 Move.L    (ScrapHandle), D0
F5CC   6F14                      BLE.B     L2302
F5CE   2040                      Move.L    D0, A0
F5D0   A025                      _GetHandleSize
F5D2   5280                      AddQ      #$1, D0
F5D4   0880 0000                 BClr.B    #$0, D0
F5D8   9FC0                      SubA.L    D0, A7
F5DA   224F                      Move.L    A7, A1
F5DC   2050                      Move.L    (A0), A0
F5DE   2F00                      Move.L    D0, -(A7)
F5E0   A02E                      _BlockMove
F5E2   42B8 09F6      L2302:     Clr.L     (DragHook)
F5E6   42B8 0A6C                 Clr.L     (DeskHook)
F5EA   41F8 0A88                 Lea.L     (CloseOrnHook), A0
F5EE   4298                      Clr.L     (A0)+
F5F0   4298                      Clr.L     (A0)+
F5F2   4298                      Clr.L     (A0)+
F5F4   4278 0A62                 Clr       (TaskLock)
F5F8   42B8 0AF2                 Clr.L     (ResErrProc)
F5FC   42B8 0338                 Clr.L     (EjectNotify)
F600   6100 FF20                 Bsr       P369
F604   A02C                      _InitApplZone
F606   4278 0900                 Clr       (CurApRefNum)
F60A   4AB8 0964                 Tst.L     (ScrapHandle)
F60E   6F14                      BLE.B     L2303
F610   221F                      Move.L    (A7)+, D1
F612   2001                      Move.L    D1, D0
F614   A122                      _NewHandle
F616   21C8 0964                 Move.L    A0, (ScrapHandle)
F61A   2001                      Move.L    D1, D0
F61C   2250                      Move.L    (A0), A1
F61E   204F                      Move.L    A7, A0
F620   A02E                      _BlockMove
F622   DFC1                      AddA.L    D1, A7
F624   A04F           L2303:     _RDrvrInstall
F626   558F           L2304:     SubQ      #$2, A7
F628   4878 0910                 Pea.L     (CurApName)
F62C   0C5B 4C43                 Cmp       #$4C43, (A3)+
F630   660E                      BNE.B     L2305
F632   5A8B                      AddQ      #$5, A3
F634   081B 0006                 BTst.B    #$6, (A3)+
F638   6706                      BEQ.B     L2305
F63A   11FC 0001 0BA4            Move.B    #$1, (RMgrPerm)
F640   A997           L2305:     _OpenResFile
F642   31DF 0900                 Move      (A7)+, (CurApRefNum)
F646   6F00 00C2                 BLE       L2309
F64A   7000                      MoveQ.L   #$0, D0
F64C   6100 FE7C                 Bsr       P368
F650   6700 00B8                 BEQ       L2309
F654   21C8 0930                 Move.L    A0, (SaveSegHandle)
F658   2050                      Move.L    (A0), A0
F65A   4A78 0936                 Tst       (CurPageOption)
F65E   6714                      BEQ.B     L_SegStack
F660   6A00 FEE6                 BPL       L2297
F664   2038 0108                 Move.L    (MemTop), D0
F668   0480 0000 D900            Sub.L     #$D900, D0
F66E   B08F           L2306:     Cmp.L     A7, D0
F670   6C02                      BGE.B     L_SegStack
F672   2E40                      Move.L    D0, A7
                      L_SegStack:
F674   2678 07E0                 Move.L    ($7E0), A3
F678   4ED3                      Jmp       (A3)

                      P_tA0F8_mvSegStack:
F67A   9FD8                      SubA.L    (A0)+, A7
F67C   2A4F                      Move.L    A7, A5
F67E   9FD8                      SubA.L    (A0)+, A7
F680   21CD 0904                 Move.L    A5, (CurrentA5)
F684   21CF 0908                 Move.L    A7, (CurStackBase)
F688   21CF 0110                 Move.L    A7, (StackLowPoint)
F68C   2018                      Move.L    (A0)+, D0
F68E   2258                      Move.L    (A0)+, A1
F690   31C9 0934                 Move      A1, (CurJTOffset)
F694   D3CD                      AddA.L    A5, A1
F696   47E9 0002                 Lea.L     $2(A1), A3
F69A   A02E                      _BlockMove
F69C   2F38 0930                 Move.L    (SaveSegHandle), -(A7)
F6A0   A9A3                      _ReleaseResource
F6A2   41ED 0008                 Lea.L     $8(A5), A0
F6A6   4298                      Clr.L     (A0)+
F6A8   4298                      Clr.L     (A0)+
F6AA   20F8 0AEC                 Move.L    (AppParmHandle), (A0)+
F6AE   4258                      Clr       (A0)+
F6B0   204F                      Move.L    A7, A0
F6B2   91F8 0322                 SubA.L    (DefltStack), A0
F6B6   A02D                      _SetApplLimit
F6B8   7E00                      MoveQ.L   #$0, D7
F6BA   7C00                      MoveQ.L   #$0, D6
F6BC   7A00                      MoveQ.L   #$0, D5
F6BE   7800                      MoveQ.L   #$0, D4
F6C0   7600                      MoveQ.L   #$0, D3
F6C2   7400                      MoveQ.L   #$0, D2
F6C4   7200                      MoveQ.L   #$0, D1
F6C6   7000                      MoveQ.L   #$0, D0
F6C8   247C 00F8 0000            Move.L    #$F80000, A2
F6CE   224A                      Move.L    A2, A1
F6D0   204A                      Move.L    A2, A0
F6D2   21CA 0000                 Move.L    A2, (ResetStackPtr)
F6D6   4E93                      Jsr       (A3)

                      P_tExitToShell:
F6D8   91C8                      SubA.L    A0, A0
F6DA   A04B                      _SetGrowZone
F6DC   594F                      SubQ      #$4, A7
F6DE   A9FB                      _LoadScrap
F6E0   584F                      AddQ      #$4, A7
F6E2   701F                      MoveQ.L   #$1F, D0
F6E4   4267           L2308:     Clr       -(A7)
F6E6   51C8 FFFC                 DBF       D0, L2308
F6EA   204F                      Move.L    A7, A0
F6EC   3178 0210 0016            Move      (BootDrive), $16(A0)
F6F2   A015                      _SetVol
F6F4   DEFC 0040                 AddA      #$40, A7
F6F8   41F8 093A                 Lea.L     (LoaderPBlock), A0
F6FC   2248                      Move.L    A0, A1
F6FE   4878 02E0                 Pea.L     (FinderName)
F702   22DF                      Move.L    (A7)+, (A1)+
F704   4299                      Clr.L     (A1)+
F706   6000 FE54                 Bra       P_tLaunch
F70A   701A           L2309:     MoveQ.L   #$1A, D0
F70C   A9C9                      _SysError
F70E   A9FF                      _Debugger

                      P_tGetAppParms:
F710   205F                      Move.L    (A7)+, A0
F712   225F                      Move.L    (A7)+, A1
F714   22AD 0010                 Move.L    $10(A5), (A1)
F718   225F                      Move.L    (A7)+, A1
F71A   32B8 0900                 Move      (CurApRefNum), (A1)
F71E   225F                      Move.L    (A7)+, A1
F720   2F08                      Move.L    A0, -(A7)
F722   41F8 0910                 Lea.L     (CurApName), A0
F726   7020                      MoveQ.L   #$20, D0
F728   A02E                      _BlockMove
F72A   4E75                      Rts

                      P_tRDrvrInstall:
F72C   48E7 F8F0                 MoveM.L   D0-D4/A0-A3, -(A7)
F730   2678 011C                 Move.L    (UTableBase), A3
F734   3638 01D2                 Move      (UnitTableEntryCount), D3
F738   78FF                      MoveQ.L   #$-1, D4
F73A   201B           L2310:     Move.L    (A3)+, D0
F73C   6746                      BEQ.B     L2314
F73E   2240                      Move.L    D0, A1
F740   2011                      Move.L    (A1), D0
F742   6740                      BEQ.B     L2314
F744   2240                      Move.L    D0, A1
F746   0829 0006 0005            BTst.B    #$6, $5(A1)
F74C   6736                      BEQ.B     L2314
F74E   2011                      Move.L    (A1), D0
F750   6732                      BEQ.B     L2314
F752   2229 0014                 Move.L    $14(A1), D1
F756   B0B8 02AA                 Cmp.L     (ApplZone), D0
F75A   6D14                      BLT.B     L2312
F75C   7027                      MoveQ.L   #$27, D0
F75E   2049                      Move.L    A1, A0
F760   4218           L2311:     Clr.B     (A0)+
F762   51C8 FFFC                 DBF       D0, L2311
F766   08E9 0006 0005            BSet.B    #$6, $5(A1)
F76C   3344 0018                 Move      D4, $18(A1)
F770   42A9 001E      L2312:     Clr.L     $1E(A1)
F774   2029 0014                 Move.L    $14(A1), D0
F778   B0B8 02AA                 Cmp.L     (ApplZone), D0
F77C   6D02                      BLT.B     L2313
F77E   7200                      MoveQ.L   #$0, D1
F780   2341 0014      L2313:     Move.L    D1, $14(A1)
F784   5344           L2314:     SubQ      #$1, D4
F786   5343                      SubQ      #$1, D3
F788   66B0                      BNE.B     L2310
F78A   4CDF 0F1F                 MoveM.L   (A7)+, D0-D4/A0-A3
F78E   4E75                      Rts

                      P_tA037_mReadParam:
F790   43F8 01F8                 Lea.L     (SysParam_SPValid), A1
F794   6104                      Bsr.B     P370
F796   7000                      MoveQ.L   #$0, D0
F798   4E75                      Rts

                      P370:
F79A   7413                      MoveQ.L   #$13, D2
F79C   E288           L2315:     LsR.L     #$1, D0
F79E   6402                      BCC.B     L2316
F7A0   10D1                      Move.B    (A1), (A0)+
F7A2   5289           L2316:     AddQ      #$1, A1
F7A4   51CA FFF6                 DBF       D2, L2315
F7A8   4E75                      Rts

                      P_tWriteParam:
F7AA   6100 0616                 Bsr       P378
F7AE   43F8 01E4                 Lea.L     (Scratch20), A1
F7B2   6100 04D6                 Bsr       P_mReadPRAM
F7B6   41F8 01F8                 Lea.L     (SysParam_SPValid), A0
F7BA   70A9                      MoveQ.L   #$-57, D0
F7BC   7404                      MoveQ.L   #$4, D2
F7BE   B388           L2317:     CmpM.L    (A0)+, (A1)+
F7C0   6606                      BNE.B     L2318
F7C2   51CA FFFA                 DBF       D2, L2317
F7C6   7000                      MoveQ.L   #$0, D0
F7C8   4E75           L2318:     Rts

                      P_tReadDateTime:
F7CA   6100 057A                 Bsr       P375
F7CE   20B8 020C                 Move.L    (Time), (A0)
F7D2   4E75                      Rts

                      P_tSetDateTime:
F7D4   21C0 020C                 Move.L    D0, (Time)
F7D8   6000 05A2                 Bra       L2341

                      P_tDelay:
F7DC   46FC 2000                 Move      #$2000, SR
F7E0   2038 016A                 Move.L    (Ticks), D0
F7E4   D088                      Add.L     A0, D0
F7E6   B0B8 016A      L2319:     Cmp.L     (Ticks), D0
F7EA   6EFA                      BGT.B     L2319
F7EC   4E75                      Rts

                      P_tCmpString:
F7EE   3400                      Move      D0, D2
F7F0   4840                      Swap      D0
F7F2   B440                      Cmp       D0, D2
F7F4   660A                      BNE.B     L2321
F7F6   4840                      Swap      D0
F7F8   610A                      Bsr.B     P_tCompareString
F7FA   6A02                      BPL.B     L2320
F7FC   4480                      Neg.L     D0
F7FE   4E75           L2320:     Rts
F800   7001           L2321:     MoveQ.L   #$1, D0
F802   4E75                      Rts

                      P_tCompareString:
F804   6156                      Bsr.B     P372
F806   7800                      MoveQ.L   #$0, D4
F808   3400                      Move      D0, D2
F80A   4840                      Swap      D0
F80C   B440                      Cmp       D0, D2
F80E   6728                      BEQ.B     L2324
F810   6208                      BHI.B     L2322
F812   7801                      MoveQ.L   #$1, D4
F814   3002                      Move      D2, D0
F816   B844                      Cmp       D4, D4
F818   601E                      Bra.B     L2324
F81A   78FF           L2322:     MoveQ.L   #$-1, D4
F81C   B844                      Cmp       D4, D4
F81E   6018                      Bra.B     L2324
F820   7400           L2323:     MoveQ.L   #$0, D2
F822   1418                      Move.B    (A0)+, D2
F824   6124                      Bsr.B     P371
F826   D442                      Add       D2, D2
F828   3633 2000                 Move      $0(A3,D2.W), D3
F82C   7400                      MoveQ.L   #$0, D2
F82E   1419                      Move.B    (A1)+, D2
F830   6118                      Bsr.B     P371
F832   D442                      Add       D2, D2
F834   B673 2000                 Cmp       $0(A3,D2.W), D3
F838   56C8 FFE6      L2324:     DBNE      D0, L2323
F83C   6708                      BEQ.B     L2326
F83E   6204                      BHI.B     L2325
F840   70FF                      MoveQ.L   #$-1, D0
F842   6004                      Bra.B     L2327
F844   7801           L2325:     MoveQ.L   #$1, D4
F846   2004           L2326:     Move.L    D4, D0
F848   6028           L2327:     Bra.B     L2330

                      P371:
F84A   4A41                      Tst       D1
F84C   6A04                      BPL.B     L2328
F84E   143B 203A                 Move.B    DT59(D2.W), D2
F852   4A01           L2328:     Tst.B     D1
F854   6B04                      BMI.B     L2329
F856   1432 2000                 Move.B    $0(A2,D2.W), D2
F85A   4E75           L2329:     Rts

                      P372:
F85C   241F                      Move.L    (A7)+, D2
F85E   48E7 3830                 MoveM.L   D2-D4/A2-A3, -(A7)
F862   45FA 0126                 Lea.L     DT60, A2
F866   47FA 0222                 Lea.L     DT61, A3
F86A   ED59                      ROL       #$6, D1
F86C   E219                      ROR.B     #$1, D1
F86E   7400                      MoveQ.L   #$0, D2
F870   4E75                      Rts
F872   4CDF 0C18      L2330:     MoveM.L   (A7)+, D3-D4/A2-A3
F876   4E75                      Rts

                      P_tUprString:
F878   61E2                      Bsr.B     P372
F87A   6006                      Bra.B     L2332
F87C   1410           L2331:     Move.B    (A0), D2
F87E   61CA                      Bsr.B     P371
F880   10C2                      Move.B    D2, (A0)+
F882   51C8 FFF8      L2332:     DBF       D0, L2331
F886   7000                      MoveQ.L   #$0, D0
F888   60E8                      Bra.B     L2330

                      DT59:
F88A   0001 0203 0405            DC.B      '      '
F890   0607 0809 0A0B            DC.B      '      '
F896   0C0D 0E0F 1011            DC.B      '      '
F89C   1213 1415 1617            DC.B      '      '
F8A2   1819 1A1B 1C1D            DC.B      '      '
F8A8   1E1F 2021 2223            DC.B      '   !"#'
F8AE   2425 2627 2829            DC.B      '$%&'()'
F8B4   2A2B 2C2D 2E2F            DC.B      '*+,-./'
F8BA   3031 3233 3435            DC.B      '012345'
F8C0   3637 3839 3A3B            DC.B      '6789:;'
F8C6   3C3D 3E3F 4041            DC.B      '<=>?@A'
F8CC   4243 4445 4647            DC.B      'BCDEFG'
F8D2   4849 4A4B 4C4D            DC.B      'HIJKLM'
F8D8   4E4F 5051 5253            DC.B      'NOPQRS'
F8DE   5455 5657 5859            DC.B      'TUVWXY'
F8E4   5A5B 5C5D 5E5F            DC.B      'Z[\]^_'
F8EA   6061 6263 6465            DC.B      '`abcde'
F8F0   6667 6869 6A6B            DC.B      'fghijk'
F8F6   6C6D 6E6F 7071            DC.B      'lmnopq'
F8FC   7273 7475 7677            DC.B      'rstuvw'
F902   7879 7A7B 7C7D            DC.B      'xyz{|}'
F908   7E7F 4141 4345            DC.B      '~ AACE'
F90E   4E4F 5561 6161            DC.B      'NOUaaa'
F914   6161 6163 6565            DC.B      'aaacee'
F91A   6565 6969 6969            DC.B      'eeiiii'
F920   6E6F 6F6F 6F6F            DC.B      'nooooo'
F926   7575 7575 A0A1            DC.B      'uuuu  '
F92C   A2A3 A4A5 A6A7            DC.B      '      '
F932   A8A9 AAAB ACAD            DC.B      '      '
F938   AE4F B0B1 B2B3            DC.B      ' O    '
F93E   B4B5 B6B7 B8B9            DC.B      '      '
F944   BA61 6FBD BE6F            DC.B      ' ao  o'
F94A   C0C1 C2C3 C4C5            DC.B      '      '
F950   C6C7 C8C9 CA41            DC.B      '     A'
F956   414F CECF D0D1            DC.B      'AO    '
F95C   D2D3 D4D5 D6D7            DC.B      '      '
F962   79D9 DADB DCDD            DC.B      'y     '
F968   DEDF E0E1 E2E3            DC.B      '      '
F96E   E4E5 E6E7 E8E9            DC.B      '      '
F974   EAEB ECED EEEF            DC.B      '      '
F97A   F0F1 F2F3 F4F5            DC.B      '      '
F980   F6F7 F8F9 FAFB            DC.B      '      '
F986   FCFD FEFF                 DC.B      '    '

                      DT60:
F98A   0001 0203 0405            DC.B      '      '
F990   0607 0809 0A0B            DC.B      '      '
F996   0C0D 0E0F 1011            DC.B      '      '
F99C   1213 1415 1617            DC.B      '      '
F9A2   1819 1A1B 1C1D            DC.B      '      '
F9A8   1E1F 2021 2223            DC.B      '   !"#'
F9AE   2425 2627 2829            DC.B      '$%&'()'
F9B4   2A2B 2C2D 2E2F            DC.B      '*+,-./'
F9BA   3031 3233 3435            DC.B      '012345'
F9C0   3637 3839 3A3B            DC.B      '6789:;'
F9C6   3C3D 3E3F 4041            DC.B      '<=>?@A'
F9CC   4243 4445 4647            DC.B      'BCDEFG'
F9D2   4849 4A4B 4C4D            DC.B      'HIJKLM'
F9D8   4E4F 5051 5253            DC.B      'NOPQRS'
F9DE   5455 5657 5859            DC.B      'TUVWXY'
F9E4   5A5B 5C5D 5E5F            DC.B      'Z[\]^_'
F9EA   6141 4243 4445            DC.B      'aABCDE'
F9F0   4647 4849 4A4B            DC.B      'FGHIJK'
F9F6   4C4D 4E4F 5051            DC.B      'LMNOPQ'
F9FC   5253 5455 5657            DC.B      'RSTUVW'
FA02   5859 5A7B 7C7D            DC.B      'XYZ{|}'
FA08   7E7F 8081 8283            DC.B      '~     '
FA0E   8485 8687 CB89            DC.B      '      '
FA14   80CC 8182 838F            DC.B      '      '
FA1A   9091 9293 9495            DC.B      '      '
FA20   8497 9899 85CD            DC.B      '      '
FA26   9C9D 9E86 A0A1            DC.B      '      '
FA2C   A2A3 A4A5 A6A7            DC.B      '      '
FA32   A8A9 AAAB ACAD            DC.B      '      '
FA38   AEAF B0B1 B2B3            DC.B      '      '
FA3E   B4B5 B6B7 B8B9            DC.B      '      '
FA44   BABB BCBD AEAF            DC.B      '      '
FA4A   C0C1 C2C3 C4C5            DC.B      '      '
FA50   C6C7 C8C9 CACB            DC.B      '      '
FA56   CCCD CECE D0D1            DC.B      '      '
FA5C   D2D3 D4D5 D6D7            DC.B      '      '
FA62   D8D9 DADB DCDD            DC.B      '      '
FA68   DEDF E0E1 E2E3            DC.B      '      '
FA6E   E4E5 E6E7 E8E9            DC.B      '      '
FA74   EAEB ECED EEEF            DC.B      '      '
FA7A   F0F1 F2F3 F4F5            DC.B      '      '
FA80   F6F7 F8F9 FAFB            DC.B      '      '
FA86   FCFD FEFF                 DC.B      '    '

                      DT61:
FA8A   0000 0100 0200            DC.B      '      '
FA90   0300 0400 0500            DC.B      '      '
FA96   0600 0700 0800            DC.B      '      '
FA9C   0900 0A00 0B00            DC.B      '      '
FAA2   0C00 0D00 0E00            DC.B      '      '
FAA8   0F00 1000 1100            DC.B      '      '
FAAE   1200 1300 1400            DC.B      '      '
FAB4   1500 1600 1700            DC.B      '      '
FABA   1800 1900 1A00            DC.B      '      '
FAC0   1B00 1C00 1D00            DC.B      '      '
FAC6   1E00 1F00 2000            DC.B      '      '
FACC   2100 2200 2300            DC.B      '! " # '
FAD2   2400 2500 2600            DC.B      '$ % & '
FAD8   2700 2800 2900            DC.B      '' ( ) '
FADE   2A00 2B00 2C00            DC.B      '* + , '
FAE4   2D00 2E00 2F00            DC.B      '- . / '
FAEA   3000 3100 3200            DC.B      '0 1 2 '
FAF0   3300 3400 3500            DC.B      '3 4 5 '
FAF6   3600 3700 3800            DC.B      '6 7 8 '
FAFC   3900 3A00 3B00            DC.B      '9 : ; '
FB02   3C00 3D00 3E00            DC.B      '< = > '
FB08   3F00 4000 4100            DC.B      '? @ A '
FB0E   4200 4300 4400            DC.B      'B C D '
FB14   4500 4600 4700            DC.B      'E F G '
FB1A   4800 4900 4A00            DC.B      'H I J '
FB20   4B00 4C00 4D00            DC.B      'K L M '
FB26   4E00 4F00 5000            DC.B      'N O P '
FB2C   5100 5200 5300            DC.B      'Q R S '
FB32   5400 5500 5600            DC.B      'T U V '
FB38   5700 5800 5900            DC.B      'W X Y '
FB3E   5A00 5B00 5C00            DC.B      'Z [ \ '
FB44   5D00 5E00 5F00            DC.B      '] ^ _ '
FB4A   6100 4180 4280            DC.B      'a A B '
FB50   4380 4480 4580            DC.B      'C D E '
FB56   4680 4780 4880            DC.B      'F G H '
FB5C   4980 4A80 4B80            DC.B      'I J K '
FB62   4C80 4D80 4E80            DC.B      'L M N '
FB68   4F80 5080 5180            DC.B      'O P Q '
FB6E   5280 5380 5480            DC.B      'R S T '
FB74   5580 5680 5780            DC.B      'U V W '
FB7A   5880 5980 5A80            DC.B      'X Y Z '
FB80   7B00 7C00 7D00            DC.B      '{ | } '
FB86   7E00 7F00 4108            DC.B      '~   A '
FB8C   410C 4310 4502            DC.B      'A C E '
FB92   4E0A 4F08 5508            DC.B      'N O U '
FB98   4182 4184 4186            DC.B      'A A A '
FB9E   4188 418A 418C            DC.B      'A A A '
FBA4   4390 4582 4584            DC.B      'C E E '
FBAA   4586 4588 4982            DC.B      'E E I '
FBB0   4984 4986 4988            DC.B      'I I I '
FBB6   4E8A 4F82 4F84            DC.B      'N O O '
FBBC   4F86 4F88 4F8A            DC.B      'O O O '
FBC2   5582 5584 5586            DC.B      'U U U '
FBC8   5588 A000 A100            DC.B      'U     '
FBCE   A200 A300 A400            DC.B      '      '
FBD4   A500 A600 5382            DC.B      '    S '
FBDA   A800 A900 AA00            DC.B      '      '
FBE0   AB00 AC00 AD00            DC.B      '      '
FBE6   4114 4F0E B000            DC.B      'A O   '
FBEC   B100 B200 B300            DC.B      '      '
FBF2   B400 B500 B600            DC.B      '      '
FBF8   B700 B800 B900            DC.B      '      '
FBFE   BA00 4192 4F92            DC.B      '  A O '
FC04   BD00 4194 4F8E            DC.B      '  A O '
FC0A   C000 C100 C200            DC.B      '      '
FC10   C300 C400 C500            DC.B      '      '
FC16   C600 2206 2208            DC.B      '  " " '
FC1C   C900 2000 4104            DC.B      '    A '
FC22   410A 4F0A 4F14            DC.B      'A O O '
FC28   4F94 D000 D100            DC.B      'O     '
FC2E   2202 2204 2702            DC.B      '" " ' '
FC34   2704 D600 D700            DC.B      ''     '
FC3A   5988 D900 DA00            DC.B      'Y     '
FC40   DB00 DC00 DD00            DC.B      '      '
FC46   DE00 DF00 E000            DC.B      '      '
FC4C   E100 E200 E300            DC.B      '      '
FC52   E400 E500 E600            DC.B      '      '
FC58   E700 E800 E900            DC.B      '      '
FC5E   EA00 EB00 EC00            DC.B      '      '
FC64   ED00 EE00 EF00            DC.B      '      '
FC6A   F000 F100 F200            DC.B      '      '
FC70   F300 F400 F500            DC.B      '      '
FC76   F600 F700 F800            DC.B      '      '
FC7C   F900 FA00 FB00            DC.B      '      '
FC82   FC00 FD00 FE00            DC.B      '      '
FC88   FF00                      DC.B      '  '

                      P_mReadPRAM:
FC8A   48E7 6440                 MoveM.L   D1-D2/D5/A1, -(A7)
FC8E   72C1                      MoveQ.L   #$-3F, D1
FC90   7A0F                      MoveQ.L   #$F, D5
FC92   610C                      Bsr.B     P374
FC94   72A1                      MoveQ.L   #$-5F, D1
FC96   7A03                      MoveQ.L   #$3, D5
FC98   6106                      Bsr.B     P374
FC9A   4CDF 0226                 MoveM.L   (A7)+, D1-D2/D5/A1
FC9E   4E75                      Rts

                      P374:
FCA0   4EBA 0150                 Jsr       P_mClkRW
FCA4   12C2                      Move.B    D2, (A1)+
FCA6   5801                      AddQ      #$4, D1
FCA8   51CD FFF6                 DBF       D5, P374
FCAC   4E75                      Rts

                      DT62:
FCAE   A800 0000 CC0A            DC.B      '      '
FCB4   CC0A 0000 0000            DC.B      '      '
FCBA   0002 6300 0388            DC.B      '  c   '
FCC0   004C                      DC.B      ' L'

                      P_tInitUtil:
FCC2   4267                      Clr       -(A7)
FCC4   6100 00F4                 Bsr       P_mWPOff
FCC8   7231                      MoveQ.L   #$31, D1
FCCA   4202                      Clr.B     D2
FCCC   4EBA 0124                 Jsr       P_mClkRW
FCD0   6100 00E0                 Bsr       P_mWPOn
FCD4   43F8 01F8                 Lea.L     (SysParam_SPValid), A1
FCD8   61B0                      Bsr.B     P_mReadPRAM
FCDA   616A                      Bsr.B     P375
FCDC   7000                      MoveQ.L   #$0, D0
FCDE   0C11 00A8                 Cmp.B     #$-58, (A1)
FCE2   6714                      BEQ.B     L2334
FCE4   3EBC FFA8                 Move      #$-58, (A7)
FCE8   7204                      MoveQ.L   #$4, D1
FCEA   41FA FFC2                 Lea.L     DT62, A0
FCEE   22D8           L2333:     Move.L    (A0)+, (A1)+
FCF0   51C9 FFFC                 DBF       D1, L2333
FCF4   6100 00CC                 Bsr       P378
FCF8   0838 0006 0B22 L2334:     BTst.B    #$6, (HWCfgFlags)
FCFE   6738                      BEQ.B     L2336
FD00   41F8 01E4                 Lea.L     (Scratch20), A0
FD04   203C 0004 000C            Move.L    #$4000C, D0
FD0A   A051                      _ReadXPRam
FD0C   223C 4275 6773            Move.L    #$42756773, D1
FD12   B290                      Cmp.L     (A0), D1
FD14   6722                      BEQ.B     L2336
FD16   3EBC FFA8                 Move      #$-58, (A7)
FD1A   2081                      Move.L    D1, (A0)
FD1C   203C 0004 000C            Move.L    #$4000C, D0
FD22   A052                      _WriteXPRam
FD24   7220                      MoveQ.L   #$20, D1
FD26   7004           L2335:     MoveQ.L   #$4, D0
FD28   4840                      Swap      D0
FD2A   3001                      Move      D1, D0
FD2C   4290                      Clr.L     (A0)
FD2E   A052                      _WriteXPRam
FD30   5801                      AddQ      #$4, D1
FD32   0C01 0008                 Cmp.B     #$8, D1
FD36   66EE                      BNE.B     L2335
FD38   301F           L2336:     Move      (A7)+, D0
FD3A   6606                      BNE.B     L2337
FD3C   08F8 0005 0B22            BSet.B    #$5, (HWCfgFlags)
FD42   48C0           L2337:     Ext.L     D0
FD44   4E75                      Rts

                      P375:
FD46   48E7 6C30                 MoveM.L   D1-D2/D4-D5/A2-A3, -(A7)
FD4A   7801                      MoveQ.L   #$1, D4
FD4C   7000                      MoveQ.L   #$0, D0
FD4E   729D           L2338:     MoveQ.L   #$-63, D1
FD50   7A07                      MoveQ.L   #$7, D5
FD52   45F8 01E4                 Lea.L     (Scratch20), A2
FD56   264A                      Move.L    A2, A3
FD58   4EBA 0098      L2339:     Jsr       P_mClkRW
FD5C   14C2                      Move.B    D2, (A2)+
FD5E   5901                      SubQ      #$4, D1
FD60   51CD FFF6                 DBF       D5, L2339
FD64   B78B                      CmpM.L    (A3)+, (A3)+
FD66   6706                      BEQ.B     L2340
FD68   51CC FFE4                 DBF       D4, L2338
FD6C   70AB                      MoveQ.L   #$-55, D0
FD6E   21F8 01E4 020C L2340:     Move.L    (Scratch20), (Time)
FD74   4CDF 0C36                 MoveM.L   (A7)+, D1-D2/D4-D5/A2-A3
FD78   4A80                      Tst.L     D0
FD7A   4E75                      Rts
FD7C   48E7 7C00      L2341:     MoveM.L   D1-D5, -(A7)
FD80   6138                      Bsr.B     P_mWPOff
FD82   2638 020C                 Move.L    (Time), D3
FD86   7A01                      MoveQ.L   #$1, D5
FD88   2403           L2342:     Move.L    D3, D2
FD8A   7201                      MoveQ.L   #$1, D1
FD8C   7803                      MoveQ.L   #$3, D4
FD8E   4EBA 0062      L2343:     Jsr       P_mClkRW
FD92   5801                      AddQ      #$4, D1
FD94   E08A                      LsR.L     #$8, D2
FD96   51CC FFF6                 DBF       D4, L2343
FD9A   61AA                      Bsr.B     P375
FD9C   660C                      BNE.B     L2344
FD9E   B6B8 020C                 Cmp.L     (Time), D3
FDA2   6706                      BEQ.B     L2344
FDA4   51CD FFE2                 DBF       D5, L2342
FDA8   70AA                      MoveQ.L   #$-56, D0
FDAA   6106           L2344:     Bsr.B     P_mWPOn
FDAC   4CDF 003E                 MoveM.L   (A7)+, D1-D5
FDB0   4E75                      Rts

                      P_mWPOn:
FDB2   7235                      MoveQ.L   #$35, D1
FDB4   74D5                      MoveQ.L   #$-2B, D2
FDB6   4EFA 003A                 Jmp       P_mClkRW

                      P_mWPOff:
FDBA   7235                      MoveQ.L   #$35, D1
FDBC   7455                      MoveQ.L   #$55, D2
FDBE   4EFA 0032                 Jmp       P_mClkRW

                      P378:
FDC2   48E7 7020                 MoveM.L   D1-D3/A2, -(A7)
FDC6   61F2                      Bsr.B     P_mWPOff
FDC8   45F8 01F8                 Lea.L     (SysParam_SPValid), A2
FDCC   123C 0041                 Move.B    #$41, D1
FDD0   760F                      MoveQ.L   #$F, D3
FDD2   6110                      Bsr.B     P379
FDD4   123C 0021                 Move.B    #$21, D1
FDD8   7603                      MoveQ.L   #$3, D3
FDDA   6108                      Bsr.B     P379
FDDC   61D4                      Bsr.B     P_mWPOn
FDDE   4CDF 040E                 MoveM.L   (A7)+, D1-D3/A2
FDE2   4E75                      Rts

                      P379:
FDE4   141A                      Move.B    (A2)+, D2
FDE6   4EBA 000A                 Jsr       P_mClkRW
FDEA   5801                      AddQ      #$4, D1
FDEC   51CB FFF6                 DBF       D3, P379
FDF0   4E75                      Rts

                      P_mClkRW:
FDF2   40E7                      Move      SR, -(A7)
FDF4   48E7 5EC6                 MoveM.L   D1/D3-D6/A0-A1/A5-A6, -(A7)
FDF8   4BFA 0008                 Lea.L     E_507, A5
FDFC   2078 054C                 Move.L    ($54C), A0      ; $54C is the trap table entry for P_tA053_mClkNoMem @sc
FE00   4ED0                      Jmp       (A0)

                      E_507:
FE02   4CDF 637A                 MoveM.L   (A7)+, D1/D3-D6/A0-A1/A5-A6
FE06   46DF                      Move      (A7)+, SR
FE08   4E75                      Rts

                      P381:
FE0A   2248                      Move.L    A0, A1
FE0C   7602                      MoveQ.L   #$2, D3
FE0E   3800                      Move      D0, D4
FE10   4840                      Swap      D0
FE12   3A00                      Move      D0, D5
FE14   5345                      SubQ      #$1, D5
FE16   4E75                      Rts

                      P_tReadXPRam:
FE18   48E7 7C40                 MoveM.L   D1-D5/A1, -(A7)
FE1C   61EC                      Bsr.B     P381
FE1E   7017                      MoveQ.L   #$17, D0
FE20   600C                      Bra.B     L2345

                      P_tWriteXPRam:
FE22   48E7 7C40                 MoveM.L   D1-D5/A1, -(A7)
FE26   61E2                      Bsr.B     P381
FE28   4EBA FF90                 Jsr       P_mWPOff
FE2C   7007                      MoveQ.L   #$7, D0
FE2E   0838 0006 0B22 L2345:     BTst.B    #$6, (HWCfgFlags)
FE34   673C                      BEQ.B     L2350
FE36   E30C           L2346:     LsL.B     #$1, D4
FE38   E350                      RXL       #$1, D0
FE3A   51CB FFFA                 DBF       D3, L2346
FE3E   E348                      LsL       #$1, D0
FE40   7606                      MoveQ.L   #$6, D3
FE42   E30C           L2347:     LsL.B     #$1, D4
FE44   E350                      RXL       #$1, D0
FE46   51CB FFFA                 DBF       D3, L2347
FE4A   3200           L2348:     Move      D0, D1
FE4C   E059                      ROR       #$8, D1
FE4E   1411                      Move.B    (A1), D2
FE50   61A0                      Bsr.B     P_mClkRW
FE52   12C2                      Move.B    D2, (A1)+
FE54   0000 0080                 Or.B      #$-80, D0
FE58   5840                      AddQ      #$4, D0
FE5A   0240 BFFF                 And       #$-4001, D0
FE5E   0040 3800                 Or        #$3800, D0
FE62   51CD FFE6                 DBF       D5, L2348
FE66   4EBA FF4A                 Jsr       P_mWPOn
FE6A   7000                      MoveQ.L   #$0, D0
FE6C   4CDF 023E      L2349:     MoveM.L   (A7)+, D1-D5/A1
FE70   4E75                      Rts
FE72   70A9           L2350:     MoveQ.L   #$-57, D0
FE74   60F6                      Bra.B     L2349

                      P_tSetApplBase:
FE76   48E7 103E                 MoveM.L   D3/A2-A6, -(A7)
FE7A   2C78 02A6                 Move.L    (SysZone), A6
FE7E   90FC 000C                 SubA      #$C, A0
FE82   B1D6                      CmpA.L    (A6), A0
FE84   6304                      BLS.B     L2351
FE86   4EBA 09DA                 Jsr       P_mZoneAdjustEnd
FE8A   6106           L2351:     Bsr.B     P382
FE8C   4CDF 7C08                 MoveM.L   (A7)+, D3/A2-A6
FE90   4E75                      Rts

                      P382:
FE92   2F0E                      Move.L    A6, -(A7)
FE94   A996                      _RsrcZoneInit
FE96   42B8 02AA                 Clr.L     (ApplZone)
FE9A   4EBA 09AC                 Jsr       P_mToMaxLimit
FE9E   21C2 0130                 Move.L    D2, (ApplLimit)
FEA2   21C2 0BAE                 Move.L    D2, (HighHeapMark)
FEA6   2C78 02A6                 Move.L    (SysZone), A6
FEAA   2056                      Move.L    (A6), A0
FEAC   41E8 000C                 Lea.L     $C(A0), A0
FEB0   2248                      Move.L    A0, A1
FEB2   D2FC 1800                 AddA      #$1800, A1
FEB6   B3C1                      CmpA.L    D1, A1
FEB8   6502                      BCS.B     L2352
FEBA   2241                      Move.L    D1, A1
FEBC   42A7           L2352:     Clr.L     -(A7)
FEBE   3F3C 0040                 Move      #$40, -(A7)
FEC2   2F09                      Move.L    A1, -(A7)
FEC4   2F08                      Move.L    A0, -(A7)
FEC6   21C8 02AA                 Move.L    A0, (ApplZone)
FECA   204F                      Move.L    A7, A0
FECC   A019                      _InitZone
FECE   DEFC 000E                 AddA      #$E, A7
FED2   2C78 0118                 Move.L    (TheZone), A6
FED6   21D6 0114                 Move.L    (A6), (HeapEnd)
FEDA   7000                      MoveQ.L   #$0, D0
FEDC   31C0 0220                 Move      D0, (MemErr)
FEE0   2C5F                      Move.L    (A7)+, A6
FEE2   4E75                      Rts

                      P_tInitApplZone:
FEE4   2038 033C                 Move.L    (IAZNotify), D0
FEE8   6F04                      BLE.B     L2353
FEEA   2040                      Move.L    D0, A0
FEEC   4E90                      Jsr       (A0)
FEEE   31FC FFFF 08F2 L2353:     Move      #$-1, (WWExist)
FEF4   42B8 0A1C                 Clr.L     (MenuList)
FEF8   42B8 0BC2                 Clr.L     (LastFOND)
FEFC   31FC FFFF 0BC6            Move      #$-1, (FONDID)
FF02   50F8 015C                 ST.B      (SEvtEnb)
FF06   701F                      MoveQ.L   #$1F, D0
FF08   4267           L2354:     Clr       -(A7)
FF0A   51C8 FFFC                 DBF       D0, L2354
FF0E   204F                      Move.L    A7, A0
FF10   2038 0358                 Move.L    (VCBQHdr.Head), D0
FF14   6710           L2355:     BEQ.B     L2357
FF16   2240                      Move.L    D0, A1
FF18   3169 0048 0016            Move      $48(A1), $16(A0)
FF1E   6702                      BEQ.B     L2356
FF20   A013                      _FlushVol
FF22   2011           L2356:     Move.L    (A1), D0
FF24   60EE                      Bra.B     L2355
FF26   DEFC 0040      L2357:     AddA      #$40, A7
FF2A   6100 FF66                 Bsr       P382
FF2E   A9E6                      _InitAllPacks
FF30   7000                      MoveQ.L   #$0, D0
FF32   31C0 0220                 Move      D0, (MemErr)
FF36   4E75                      Rts

                      P_tInitZone:
FF38   48E7 0032                 MoveM.L   A2-A3/A6, -(A7)
FF3C   2248                      Move.L    A0, A1
FF3E   2C59                      Move.L    (A1)+, A6
FF40   21CE 0118                 Move.L    A6, (TheZone)
FF44   204E                      Move.L    A6, A0
FF46   244E                      Move.L    A6, A2
FF48   720C                      MoveQ.L   #$C, D1
FF4A   4298           L2358:     Clr.L     (A0)+
FF4C   51C9 FFFC                 DBF       D1, L2358
FF50   2219                      Move.L    (A1)+, D1
FF52   C2B8 031A                 And.L     (Lo3Bytes), D1
FF56   2641                      Move.L    D1, A3
FF58   B7F8 0BAE                 CmpA.L    (HighHeapMark), A3
FF5C   6D0E                      BLT.B     L2359
FF5E   220F                      Move.L    A7, D1
FF60   C2B8 031A                 And.L     (Lo3Bytes), D1
FF64   B7C1                      CmpA.L    D1, A3
FF66   6E04                      BGT.B     L2359
FF68   21CB 0BAE                 Move.L    A3, (HighHeapMark)
FF6C   720C           L2359:     MoveQ.L   #$C, D1
FF6E   97C1                      SubA.L    D1, A3
FF70   2681                      Move.L    D1, (A3)
FF72   24CB                      Move.L    A3, (A2)+
FF74   24C8                      Move.L    A0, (A2)+
FF76   584A                      AddQ      #$4, A2
FF78   97C8                      SubA.L    A0, A3
FF7A   200B                      Move.L    A3, D0
FF7C   24C0                      Move.L    D0, (A2)+
FF7E   3219                      Move      (A1)+, D1
FF80   24D9                      Move.L    (A1)+, (A2)+
FF82   43FA 0CE8                 Lea.L     P_mStdGZ, A1
FF86   2549 0018                 Move.L    A1, $18(A2)
FF8A   34C1                      Move      D1, (A2)+
FF8C   34F8 0326                 Move      (MMDefFlags), (A2)+
FF90   4EBA 058A                 Jsr       P_mMakeBKF
FF94   4EBA 0B0E                 Jsr       P_mHMakeMoreMasters
FF98   4CDF 4C00                 MoveM.L   (A7)+, A2-A3/A6
FF9C   7000           L2360:     MoveQ.L   #$0, D0
FF9E   31C0 0220                 Move      D0, (MemErr)
FFA2   4E75                      Rts

                      P_tGetZone:
FFA4   2078 0118                 Move.L    (TheZone), A0
FFA8   60F2                      Bra.B     L2360

                      P_tSetZone:
FFAA   21C8 0118                 Move.L    A0, (TheZone)
FFAE   60EC                      Bra.B     L2360

                      P_tMaxBlock:
FFB0   203C 0080 0000            Move.L    #$800000, D0
FFB6   4EBA 0532                 Jsr       P_mMMPrologue
FFBA   7201                      MoveQ.L   #$1, D1
FFBC   6006                      Bra.B     L2361

                      P_tCompactMem:
FFBE   4EBA 052A                 Jsr       P_mMMPrologue
FFC2   7200                      MoveQ.L   #$0, D1
FFC4   4EBA 0906      L2361:     Jsr       P_mActuals
FFC8   43EE 0016                 Lea.L     $16(A6), A1
FFCC   1411                      Move.B    (A1), D2
FFCE   4A01                      Tst.B     D1
FFD0   6606                      BNE.B     L2362
FFD2   08D1 0004                 BSet.B    #$4, (A1)
FFD6   6004                      Bra.B     L2363
FFD8   0891 0004      L2362:     BClr.B    #$4, (A1)
FFDC   4EBA 07D4      L2363:     Jsr       P_mCompactHp
FFE0   1282                      Move.B    D2, (A1)
FFE2   2001                      Move.L    D1, D0
FFE4   6720                      BEQ.B     L2367
FFE6   5180                      SubQ      #$8, D0
FFE8   2208                      Move.L    A0, D1
FFEA   671A                      BEQ.B     L2367
FFEC   6016                      Bra.B     L2366

                      P_tPurgeMem:
FFEE   4EBA 04FA                 Jsr       P_mMMPrologue
FFF2   4EBA 08D8                 Jsr       P_mActuals
FFF6   4EBA 0578                 Jsr       P_mPurgeHeap
FFFA   2008           L2364:     Move.L    A0, D0
FFFC   6604                      BNE.B     L2365
FFFE   7094                      MoveQ.L   #$-6C, D0
10000  6004                      Bra.B     L2367
10002  7000           L2365:     MoveQ.L   #$0, D0
10004  5088           L2366:     AddQ      #$8, A0
10006  4EFA 0502      L2367:     Jmp       P_mMMEpilogue

                      P_tPurgeSpace:
1000A  4EBA 04DE                 Jsr       P_mMMPrologue
1000E  4EBA 05F2                 Jsr       P_mTotEPurgeables
10012  60F2                      Bra.B     L2367

                      P_tFreeMem:
10014  4EBA 04D4                 Jsr       P_mMMPrologue
10018  202E 000C                 Move.L    $C(A6), D0
1001C  60E8                      Bra.B     L2367

                      P_tResrvMem:
1001E  4EBA 04CA                 Jsr       P_mMMPrologue
10022  4AAE 0008                 Tst.L     $8(A6)
10026  660C                      BNE.B     L2368
10028  342E 0014                 Move      $14(A6), D2
1002C  48C2                      Ext.L     D2
1002E  E582                      AsL.L     #$2, D2
10030  5082                      AddQ      #$8, D2
10032  D082                      Add.L     D2, D0
10034  4EBA 0AA8      L2368:     Jsr       P_mMakePtrSpc
10038  204A                      Move.L    A2, A0
1003A  60BE                      Bra.B     L2364

                      P_tMaxMem:
1003C  4EBA 04AC                 Jsr       P_mMMPrologue
10040  203C 0080 0000            Move.L    #$800000, D0
10046  7400                      MoveQ.L   #$0, D2
10048  4EBA 0618                 Jsr       P_mBKCompacts
1004C  2001                      Move.L    D1, D0
1004E  6702                      BEQ.B     L2369
10050  5180                      SubQ      #$8, D0
10052  91C8           L2369:     SubA.L    A0, A0
10054  2278 02AA                 Move.L    (ApplZone), A1
10058  B3F8 0118                 CmpA.L    (TheZone), A1
1005C  660E                      BNE.B     L2370
1005E  2438 0130                 Move.L    (ApplLimit), D2
10062  4EBA 07EC                 Jsr       P_mMaxLimit
10066  92B8 0114                 Sub.L     (HeapEnd), D1
1006A  2041                      Move.L    D1, A0
1006C  4EFA 049C      L2370:     Jmp       P_mMMEpilogue

                      P_tSetGrowZone:
10070  2278 0118                 Move.L    (TheZone), A1
10074  2348 0010                 Move.L    A0, $10(A1)
10078  601C                      Bra.B     L2371

                      P_tSetApplLimit:
1007A  2008                      Move.L    A0, D0
1007C  C0B8 031A                 And.L     (Lo3Bytes), D0
10080  2040                      Move.L    D0, A0
10082  21C8 0130                 Move.L    A0, (ApplLimit)
10086  21C8 0BAE                 Move.L    A0, (HighHeapMark)
1008A  2278 02AA                 Move.L    (ApplZone), A1
1008E  2251                      Move.L    (A1), A1
10090  7094                      MoveQ.L   #$-6C, D0
10092  B3C8                      CmpA.L    A0, A1
10094  6202                      BHI.B     L2372
10096  7000           L2371:     MoveQ.L   #$0, D0
10098  31C0 0220      L2372:     Move      D0, (MemErr)
1009C  4E75                      Rts

                      P_tStackSpace:
1009E  7018                      MoveQ.L   #$18, D0
100A0  D08F                      Add.L     A7, D0
100A2  2078 02AA                 Move.L    (ApplZone), A0
100A6  9090                      Sub.L     (A0), D0
100A8  4278 0220                 Clr       (MemErr)
100AC  4E75                      Rts

                      P_tMaxApplZone:
100AE  2038 0130                 Move.L    (ApplLimit), D0
100B2  2200                      Move.L    D0, D1
100B4  43F8 0114                 Lea.L     (HeapEnd), A1
100B8  9091                      Sub.L     (A1), D0
100BA  740C                      MoveQ.L   #$C, D2
100BC  B082                      Cmp.L     D2, D0
100BE  6514                      BCS.B     L2373
100C0  2051                      Move.L    (A1), A0
100C2  2080                      Move.L    D0, (A0)
100C4  2281                      Move.L    D1, (A1)
100C6  2041                      Move.L    D1, A0
100C8  2278 02AA                 Move.L    (ApplZone), A1
100CC  2288                      Move.L    A0, (A1)
100CE  2082                      Move.L    D2, (A0)
100D0  D1A9 000C                 Add.L     D0, $C(A1)
100D4  60C0           L2373:     Bra.B     L2371

                      P_tNewPtr:
100D6  4EBA 0412                 Jsr       P_mMMPrologue
100DA  93C9                      SubA.L    A1, A1
100DC  4EBA 0A00                 Jsr       P_mMakePtrSpc
100E0  4EBA 061C                 Jsr       P_mAllocBK
100E4  6708                      BEQ.B     L2376
100E6  613C                      Bsr.B     P383
100E8  7000           L2374:     MoveQ.L   #$0, D0
100EA  4EFA 041E      L2375:     Jmp       P_mMMEpilogue
100EE  7094           L2376:     MoveQ.L   #$-6C, D0
100F0  60F8                      Bra.B     L2375

                      P_tDisposePtr:
100F2  4EBA 03BE                 Jsr       P_mMMPPrologue
100F6  082E 0000 0016 L2377:     BTst.B    #$0, $16(A6)
100FC  6606                      BNE.B     L2378
100FE  4EBA 0B40                 Jsr       P_mFreeBk
10102  60E4                      Bra.B     L2374
10104  709D           L2378:     MoveQ.L   #$-63, D0
10106  60E2                      Bra.B     L2375

                      P_tGetPtrSize:
10108  4EBA 03A8                 Jsr       P_mMMPPrologue
1010C  4EBA 07D2                 Jsr       P_mGetSize
10110  60D8                      Bra.B     L2375

                      P_tSetPtrSize:
10112  4EBA 039E                 Jsr       P_mMMPPrologue
10116  4EBA 07EA                 Jsr       P_mSetSize
1011A  60CE                      Bra.B     L2375

                      P_tPtrZone:
1011C  4EBA 0394                 Jsr       P_mMMPPrologue
10120  204E                      Move.L    A6, A0
10122  60C4                      Bra.B     L2374

                      P383:
10124  0801 0009                 BTst.B    #$9, D1
10128  670E                      BEQ.B     L2380
1012A  2F08                      Move.L    A0, -(A7)
1012C  5280                      AddQ      #$1, D0
1012E  E288                      LsR.L     #$1, D0
10130  4258           L2379:     Clr       (A0)+
10132  5380                      SubQ      #$1, D0
10134  6EFA                      BGT.B     L2379
10136  205F                      Move.L    (A7)+, A0
10138  4E75           L2380:     Rts

                      P_tNewEmptyHandle:
1013A  4EBA 03AE                 Jsr       P_mMMPrologue
1013E  4EBA 0948                 Jsr       P_mNextMaster
10142  6714                      BEQ.B     L2381
10144  2049                      Move.L    A1, A0
10146  4290                      Clr.L     (A0)
10148  7000                      MoveQ.L   #$0, D0
1014A  4EFA 03BE                 Jmp       P_mMMEpilogue

                      P_tNewHandle:
1014E  4EBA 039A                 Jsr       P_mMMPrologue
10152  4EBA 0934                 Jsr       P_mNextMaster
10156  6604                      BNE.B     L2382
10158  7094           L2381:     MoveQ.L   #$-6C, D0
1015A  602C                      Bra.B     L2388
1015C  4EBA 05A0      L2382:     Jsr       P_mAllocBK
10160  670A                      BEQ.B     L2386
10162  61C0           L2383:     Bsr.B     P383
10164  2049                      Move.L    A1, A0
10166  7000           L2384:     MoveQ.L   #$0, D0
10168  4EFA 03A0      L2385:     Jmp       P_mMMEpilogue
1016C  7094           L2386:     MoveQ.L   #$-6C, D0
1016E  6014                      Bra.B     L2387

                      P_tDisposeHandle:
10170  4EBA 0354                 Jsr       P_mMMHPrologue
10174  6680                      BNE.B     L2377
10176  2009                      Move.L    A1, D0
10178  670E                      BEQ.B     L2388
1017A  082E 0000 0016            BTst.B    #$0, $16(A6)
10180  660A                      BNE.B     L2389
10182  7000                      MoveQ.L   #$0, D0
10184  4EBA 094E      L2387:     Jsr       P_mReleaseMP
10188  91C8           L2388:     SubA.L    A0, A0
1018A  60DC                      Bra.B     L2385
1018C  4291           L2389:     Clr.L     (A1)
1018E  60D6                      Bra.B     L2384

                      P_tGetHandleSize:
10190  4EBA 0334                 Jsr       P_mMMHPrologue
10194  670C                      BEQ.B     L2390
10196  4EBA 0748                 Jsr       P_mGetSize
1019A  600E                      Bra.B     L2392

                      P_tSetHandleSize:
1019C  4EBA 0328                 Jsr       P_mMMHPrologue
101A0  6604                      BNE.B     L2391
101A2  7093           L2390:     MoveQ.L   #$-6D, D0
101A4  6004                      Bra.B     L2392
101A6  4EBA 075A      L2391:     Jsr       P_mSetSize
101AA  2049           L2392:     Move.L    A1, A0
101AC  60BA                      Bra.B     L2385

                      P_tHandleZone:
101AE  4EBA 0316                 Jsr       P_mMMHPrologue
101B2  204E                      Move.L    A6, A0
101B4  60B0                      Bra.B     L2384

                      P_tRecoverHandle:
101B6  4EBA 0332                 Jsr       P_mMMPrologue
101BA  2268 FFFC                 Move.L    $-4(A0), A1
101BE  D3CE                      AddA.L    A6, A1
101C0  2411                      Move.L    (A1), D2
101C2  C4B8 031A                 And.L     (Lo3Bytes), D2
101C6  2208                      Move.L    A0, D1
101C8  C2B8 031A                 And.L     (Lo3Bytes), D1
101CC  9481                      Sub.L     D1, D2
101CE  6702                      BEQ.B     L2393
101D0  748D                      MoveQ.L   #$-73, D2
101D2  31C2 0220      L2393:     Move      D2, (MemErr)
101D6  2049                      Move.L    A1, A0
101D8  4EFA 033C                 Jmp       L_mMMNoErrEpilogue

                      P_tEmptyHandle:
101DC  4EBA 02E8                 Jsr       P_mMMHPrologue
101E0  6604                      BNE.B     L2394
101E2  7000                      MoveQ.L   #$0, D0
101E4  6004                      Bra.B     L2395
101E6  4EBA 033A      L2394:     Jsr       P_mEH
101EA  60BE           L2395:     Bra.B     L2392

                      P_tReallocHandle:
101EC  4EBA 02D8                 Jsr       P_mMMHPrologue
101F0  4A91                      Tst.L     (A1)
101F2  6710                      BEQ.B     L2396
101F4  082E 0000 0016            BTst.B    #$0, $16(A6)
101FA  6622                      BNE.B     L2397
101FC  4EBA 0324                 Jsr       P_mEH
10200  66A8                      BNE.B     L2392
10202  2002                      Move.L    D2, D0
10204  21C9 0328      L2396:     Move.L    A1, (GZRootHnd)
10208  42B8 032C                 Clr.L     (GZRootPtr)
1020C  4EBA 04F0                 Jsr       P_mAllocBK
10210  4EBA 06E6                 Jsr       P_mClearGZStuff
10214  2408                      Move.L    A0, D2
10216  6600 FF4A                 BNE       L2383
1021A  7094                      MoveQ.L   #$-6C, D0
1021C  608C                      Bra.B     L2392
1021E  4EBA 06C0      L2397:     Jsr       P_mGetSize
10222  B480                      Cmp.L     D0, D2
10224  6204                      BHI.B     L2398
10226  709D                      MoveQ.L   #$-63, D0
10228  6080                      Bra.B     L2392
1022A  709D           L2398:     MoveQ.L   #$-63, D0
1022C  6000 FF7C                 Bra       L2392

                      P_tHLock:
10230  6130                      Bsr.B     P384
10232  6726                      BEQ.B     L2400
10234  08D1 0007                 BSet.B    #$7, (A1)
10238  601C                      Bra.B     L2399

                      P_tHUnlock:
1023A  6126                      Bsr.B     P384
1023C  671C                      BEQ.B     L2400
1023E  0891 0007                 BClr.B    #$7, (A1)
10242  6012                      Bra.B     L2399

                      P_tHPurge:
10244  611C                      Bsr.B     P384
10246  6712                      BEQ.B     L2400
10248  08D1 0006                 BSet.B    #$6, (A1)
1024C  6008                      Bra.B     L2399

                      P_tHNoPurge:
1024E  6112                      Bsr.B     P384
10250  6708                      BEQ.B     L2400
10252  0891 0006                 BClr.B    #$6, (A1)
10256  7000           L2399:     MoveQ.L   #$0, D0
10258  6002                      Bra.B     L2401
1025A  7093           L2400:     MoveQ.L   #$-6D, D0
1025C  31C0 0220      L2401:     Move      D0, (MemErr)
10260  4E75                      Rts

                      P384:
10262  2008                      Move.L    A0, D0
10264  C0B8 031A                 And.L     (Lo3Bytes), D0
10268  6604                      BNE.B     L2402
1026A  588F                      AddQ      #$4, A7
1026C  4E75                      Rts
1026E  2240           L2402:     Move.L    D0, A1
10270  2011                      Move.L    (A1), D0
10272  4E75                      Rts

                      P_tMoreMasters:
10274  2F0E                      Move.L    A6, -(A7)
10276  2C78 0118                 Move.L    (TheZone), A6
1027A  7000                      MoveQ.L   #$0, D0
1027C  4EBA 0826                 Jsr       P_mHMakeMoreMasters
10280  6602                      BNE.B     L2403
10282  7094                      MoveQ.L   #$-6C, D0
10284  2C5F           L2403:     Move.L    (A7)+, A6
10286  31C0 0220                 Move      D0, (MemErr)
1028A  4E75                      Rts

                      P_tMoveHHi:
1028C  4EBA 0238                 Jsr       P_mMMHPrologue
10290  6606                      BNE.B     L2405
10292  7093                      MoveQ.L   #$-6D, D0
10294  4EFA 0274      L2404:     Jmp       P_mMMEpilogue
10298  2849           L2405:     Move.L    A1, A4
1029A  4A14                      Tst.B     (A4)
1029C  6A04                      BPL.B     L2406
1029E  708B                      MoveQ.L   #$-75, D0
102A0  60F2                      Bra.B     L2404
102A2  2656           L2406:     Move.L    (A6), A3
102A4  5188                      SubQ      #$8, A0
102A6  2210                      Move.L    (A0), D1
102A8  C2B8 031A                 And.L     (Lo3Bytes), D1
102AC  2E01                      Move.L    D1, D7
102AE  5187                      SubQ      #$8, D7
102B0  7000                      MoveQ.L   #$0, D0
102B2  D1C1                      AddA.L    D1, A0
102B4  B1CB                      CmpA.L    A3, A0
102B6  6400 0120                 BCC       L2418
102BA  4A10                      Tst.B     (A0)
102BC  6710                      BEQ.B     L2407
102BE  6A00 0118                 BPL       L2418
102C2  2068 0004                 Move.L    $4(A0), A0
102C6  D1CE                      AddA.L    A6, A0
102C8  4A10                      Tst.B     (A0)
102CA  6B00 010C                 BMI       L2418
102CE  220F           L2407:     Move.L    A7, D1
102D0  C2B8 031A                 And.L     (Lo3Bytes), D1
102D4  92B8 0BAE                 Sub.L     (HighHeapMark), D1
102D8  243C 0000 0400            Move.L    #$400, D2
102DE  2002                      Move.L    D2, D0
102E0  D087                      Add.L     D7, D0
102E2  B280                      Cmp.L     D0, D1
102E4  6D02                      BLT.B     L2408
102E6  2200                      Move.L    D0, D1
102E8  70FF           L2408:     MoveQ.L   #$-1, D0
102EA  B282                      Cmp.L     D2, D1
102EC  6D00 00EA                 BLT       L2418
102F0  0482 0000 0080            Sub.L     #$80, D2
102F6  9282                      Sub.L     D2, D1
102F8  9FC1                      SubA.L    D1, A7
102FA  9EFC 0012                 SubA      #$12, A7
102FE  2A4F                      Move.L    A7, A5
10300  2B41 0008                 Move.L    D1, $8(A5)
10304  2054                      Move.L    (A4), A0
10306  5148                      SubQ      #$8, A0
10308  2A90                      Move.L    (A0), (A5)
1030A  2014                      Move.L    (A4), D0
1030C  C0B8 031A                 And.L     (Lo3Bytes), D0
10310  2B40 000C                 Move.L    D0, $C(A5)
10314  1B54 0010                 Move.B    (A4), $10(A5)
10318  6100 00C2                 Bsr       P385
1031C  4A12                      Tst.B     (A2)
1031E  662A                      BNE.B     L2411
10320  2212                      Move.L    (A2), D1
10322  2001                      Move.L    D1, D0
10324  5180                      SubQ      #$8, D0
10326  BE80                      Cmp.L     D0, D7
10328  6220                      BHI.B     L2411
1032A  9087                      Sub.L     D7, D0
1032C  6706                      BEQ.B     L2409
1032E  740C                      MoveQ.L   #$C, D2
10330  B082                      Cmp.L     D2, D0
10332  6516                      BCS.B     L2411
10334  2054           L2409:     Move.L    (A4), A0
10336  224A                      Move.L    A2, A1
10338  D3C1                      AddA.L    D1, A1
1033A  2007           L2410:     Move.L    D7, D0
1033C  93C0                      SubA.L    D0, A1
1033E  91AE 000C                 Sub.L     D0, $C(A6)
10342  A02E                      _BlockMove
10344  204C                      Move.L    A4, A0
10346  A02B                      _EmptyHandle
10348  6066                      Bra.B     L2416
1034A  7C00           L2411:     MoveQ.L   #$0, D6
1034C  6100 00C8                 Bsr       P386
10350  6100 0102                 Bsr       P387
10354  6100 0086                 Bsr       P385
10358  2212           L2412:     Move.L    (A2), D1
1035A  202D 0004                 Move.L    $4(A5), D0
1035E  41ED 0012                 Lea.L     $12(A5), A0
10362  224A                      Move.L    A2, A1
10364  D3C1                      AddA.L    D1, A1
10366  93C0                      SubA.L    D0, A1
10368  DC80                      Add.L     D0, D6
1036A  91AE 000C                 Sub.L     D0, $C(A6)
1036E  A02E                      _BlockMove
10370  4A87                      Tst.L     D7
10372  673C                      BEQ.B     L2416
10374  2009                      Move.L    A1, D0
10376  908A                      Sub.L     A2, D0
10378  6716                      BEQ.B     L2415
1037A  2200                      Move.L    D0, D1
1037C  5181                      SubQ      #$8, D1
1037E  9287                      Sub.L     D7, D1
10380  650C                      BCS.B     L2414
10382  6706                      BEQ.B     L2413
10384  740C                      MoveQ.L   #$C, D2
10386  B481                      Cmp.L     D1, D2
10388  6504                      BCS.B     L2414
1038A  2054           L2413:     Move.L    (A4), A0
1038C  60AC                      Bra.B     L2410
1038E  2480           L2414:     Move.L    D0, (A2)
10390  4CD1 0030      L2415:     MoveM.L   (A1), D4-D5
10394  234E 0004                 Move.L    A6, $4(A1)
10398  2286                      Move.L    D6, (A1)
1039A  12BC 0040                 Move.B    #$40, (A1)
1039E  2F09                      Move.L    A1, -(A7)
103A0  6174                      Bsr.B     P386
103A2  6100 00B0                 Bsr       P387
103A6  6134                      Bsr.B     P385
103A8  225F                      Move.L    (A7)+, A1
103AA  48D1 0030                 MoveM.L   D4-D5, (A1)
103AE  60A8                      Bra.B     L2412
103B0  5189           L2416:     SubQ      #$8, A1
103B2  51AE 000C                 SubQ      #$8, $C(A6)
103B6  2009                      Move.L    A1, D0
103B8  908A                      Sub.L     A2, D0
103BA  6702                      BEQ.B     L2417
103BC  2480                      Move.L    D0, (A2)
103BE  2449           L2417:     Move.L    A1, A2
103C0  24D5                      Move.L    (A5), (A2)+
103C2  204C                      Move.L    A4, A0
103C4  91CE                      SubA.L    A6, A0
103C6  24C8                      Move.L    A0, (A2)+
103C8  288A                      Move.L    A2, (A4)
103CA  18AD 0010                 Move.B    $10(A5), (A4)
103CE  7000                      MoveQ.L   #$0, D0
103D0  DFED 0008                 AddA.L    $8(A5), A7
103D4  DEFC 0012                 AddA      #$12, A7
103D8  4EFA 0130      L2418:     Jmp       P_mMMEpilogue

                      P385:
103DC  2014                      Move.L    (A4), D0
103DE  670A                      BEQ.B     L2419
103E0  C0B8 031A                 And.L     (Lo3Bytes), D0
103E4  2040                      Move.L    D0, A0
103E6  5148                      SubQ      #$8, A0
103E8  6004                      Bra.B     L2420
103EA  41EE 0034      L2419:     Lea.L     $34(A6), A0
103EE  2210           L2420:     Move.L    (A0), D1
103F0  C2B8 031A                 And.L     (Lo3Bytes), D1
103F4  4A10                      Tst.B     (A0)
103F6  670C                      BEQ.B     L2421
103F8  6A14                      BPL.B     L2422
103FA  2268 0004                 Move.L    $4(A0), A1
103FE  D3CE                      AddA.L    A6, A1
10400  4A11                      Tst.B     (A1)
10402  6B0A                      BMI.B     L2422
10404  2448           L2421:     Move.L    A0, A2
10406  D1C1                      AddA.L    D1, A0
10408  B1CB                      CmpA.L    A3, A0
1040A  65E2                      BCS.B     L2420
1040C  6006                      Bra.B     L2423
1040E  B1ED 000C      L2422:     CmpA.L    $C(A5), A0
10412  63F0                      BLS.B     L2421
10414  4E75           L2423:     Rts

                      P386:
10416  202D 0008                 Move.L    $8(A5), D0
1041A  B087                      Cmp.L     D7, D0
1041C  6D02                      BLT.B     L2424
1041E  2007                      Move.L    D7, D0
10420  43ED 0012      L2424:     Lea.L     $12(A5), A1
10424  2054                      Move.L    (A4), A0
10426  D1C7                      AddA.L    D7, A0
10428  91C0                      SubA.L    D0, A0
1042A  9E80                      Sub.L     D0, D7
1042C  2B40 0004                 Move.L    D0, $4(A5)
10430  2200                      Move.L    D0, D1
10432  A02E                      _BlockMove
10434  204C                      Move.L    A4, A0
10436  2007                      Move.L    D7, D0
10438  6604                      BNE.B     L2425
1043A  A02B                      _EmptyHandle
1043C  4E75                      Rts
1043E  2050           L2425:     Move.L    (A0), A0
10440  5148                      SubQ      #$8, A0
10442  1410                      Move.B    (A0), D2
10444  5080                      AddQ      #$8, D0
10446  2080                      Move.L    D0, (A0)
10448  1082                      Move.B    D2, (A0)
1044A  D1C0                      AddA.L    D0, A0
1044C  2081                      Move.L    D1, (A0)
1044E  D3AE 000C                 Add.L     D1, $C(A6)
10452  4E75                      Rts

                      P387:
10454  203C 0080 0000            Move.L    #$800000, D0
1045A  A04C                      _CompactMem
1045C  4E75                      Rts

                      P_mDerefHandle:
1045E  2008                      Move.L    A0, D0
10460  C0B8 031A                 And.L     (Lo3Bytes), D0
10464  2040                      Move.L    D0, A0
10466  2240                      Move.L    D0, A1
10468  6704                      BEQ.B     L2426
1046A  2051                      Move.L    (A1), A0
1046C  2008                      Move.L    A0, D0
1046E  4E75           L2426:     Rts

                      P389:
10470  2008                      Move.L    A0, D0
10472  C0B8 031A                 And.L     (Lo3Bytes), D0
10476  2040                      Move.L    D0, A0
10478  5188                      SubQ      #$8, A0
1047A  4A10                      Tst.B     (A0)
1047C  6714                      BEQ.B     L2430
1047E  6B06                      BMI.B     L2427
10480  2C68 0004                 Move.L    $4(A0), A6
10484  6006                      Bra.B     L2428
10486  2C49           L2427:     Move.L    A1, A6
10488  9DE8 0004                 SubA.L    $4(A0), A6
1048C  6108           L2428:     Bsr.B     P390
1048E  5088           L2429:     AddQ      #$8, A0
10490  4E75                      Rts
10492  7091           L2430:     MoveQ.L   #$-6F, D0
10494  60F8                      Bra.B     L2429

                      P390:
10496  2F08                      Move.L    A0, -(A7)
10498  200E                      Move.L    A6, D0
1049A  C0B8 031A                 And.L     (Lo3Bytes), D0
1049E  2C40                      Move.L    D0, A6
104A0  202E 0038                 Move.L    $38(A6), D0
104A4  C0B8 031A                 And.L     (Lo3Bytes), D0
104A8  908E                      Sub.L     A6, D0
104AA  6702                      BEQ.B     L2431
104AC  708F                      MoveQ.L   #$-71, D0
104AE  205F           L2431:     Move.L    (A7)+, A0
104B0  4E75                      Rts

                      P_mMMPPrologue:
104B2  225F                      Move.L    (A7)+, A1
104B4  48E7 1F3E                 MoveM.L   D3-D7/A2-A6, -(A7)
104B8  2F09                      Move.L    A1, -(A7)
104BA  2400                      Move.L    D0, D2
104BC  93C9                      SubA.L    A1, A1
104BE  61B0                      Bsr.B     P389
104C0  6B24                      BMI.B     L2434
104C2  2002                      Move.L    D2, D0
104C4  4E75                      Rts

                      P_mMMHPrologue:
104C6  225F                      Move.L    (A7)+, A1
104C8  48E7 1F3E                 MoveM.L   D3-D7/A2-A6, -(A7)
104CC  2F09                      Move.L    A1, -(A7)
104CE  2400                      Move.L    D0, D2
104D0  2C78 0118                 Move.L    (TheZone), A6
104D4  6188                      Bsr.B     P_mDerefHandle
104D6  670A                      BEQ.B     L2433
104D8  6196                      Bsr.B     P389
104DA  6B0A           L2432:     BMI.B     L2434
104DC  2002                      Move.L    D2, D0
104DE  2E08                      Move.L    A0, D7
104E0  4E75                      Rts
104E2  61B2           L2433:     Bsr.B     P390
104E4  60F4                      Bra.B     L2432
104E6  588F           L2434:     AddQ      #$4, A7
104E8  6028                      Bra.B     L2437

                      P_mMMPrologue:
104EA  225F                      Move.L    (A7)+, A1
104EC  48E7 1F3E                 MoveM.L   D3-D7/A2-A6, -(A7)
104F0  2F09                      Move.L    A1, -(A7)
104F2  2400                      Move.L    D0, D2
104F4  2C78 0118                 Move.L    (TheZone), A6
104F8  0801 000A                 BTst.B    #$A, D1
104FC  6704                      BEQ.B     L2435
104FE  2C78 02A6                 Move.L    (SysZone), A6
10502  6192           L2435:     Bsr.B     P390
10504  6BE0                      BMI.B     L2434
10506  2002                      Move.L    D2, D0
10508  4E75                      Rts
                      P_mMMEpilogue:
1050A  4278 0220                 Clr       (MemErr)
1050E  4A80                      Tst.L     D0
10510  6C04                      BGE.B     L_mMMNoErrEpilogue
10512  31C0 0220      L2437:     Move      D0, (MemErr)
                      L_mMMNoErrEpilogue:
10516  4CDF 7CF8                 MoveM.L   (A7)+, D3-D7/A2-A6
1051A  4E75                      Rts

                      P_mMakeBKF:
1051C  2080                      Move.L    D0, (A0)
1051E  4210                      Clr.B     (A0)
10520  4E75                      Rts

                      P_mEH:
10522  0811 0007                 BTst.B    #$7, (A1)
10526  6612                      BNE.B     L2441
10528  082E 0000 0016            BTst.B    #$0, $16(A6)
1052E  660E                      BNE.B     L2442
10530  5188                      SubQ      #$8, A0
10532  6126                      Bsr.B     P397
10534  5088                      AddQ      #$8, A0
10536  7000           L2439:     MoveQ.L   #$0, D0
10538  4E75           L2440:     Rts
1053A  7090           L2441:     MoveQ.L   #$-70, D0
1053C  60FA                      Bra.B     L2440
1053E  4291           L2442:     Clr.L     (A1)
10540  60F4                      Bra.B     L2439

                      P396:
10542  4AAE 0028                 Tst.L     $28(A6)
10546  6710                      BEQ.B     L2443
10548  48E7 E0C0                 MoveM.L   D0-D2/A0-A1, -(A7)
1054C  2F09                      Move.L    A1, -(A7)
1054E  226E 0028                 Move.L    $28(A6), A1
10552  4E91                      Jsr       (A1)
10554  4CDF 0307                 MoveM.L   (A7)+, D0-D2/A0-A1
10558  4E75           L2443:     Rts

                      P397:
1055A  2F00                      Move.L    D0, -(A7)
1055C  2010                      Move.L    (A0), D0
1055E  C0B8 031A                 And.L     (Lo3Bytes), D0
10562  61DE                      Bsr.B     P396
10564  4291                      Clr.L     (A1)
10566  61B4                      Bsr.B     P_mMakeBKF
10568  6100 0512                 Bsr       P_mAdjustFree
1056C  201F                      Move.L    (A7)+, D0
1056E  4E75                      Rts

                      P_mPurgeHeap:
10570  48E7 2078                 MoveM.L   D2/A1-A4, -(A7)
10574  2656           L2444:     Move.L    (A6), A3
10576  41EE 0034                 Lea.L     $34(A6), A0
1057A  082E 0006 0016            BTst.B    #$6, $16(A6)
10580  664A                      BNE.B     L2450
10582  2448                      Move.L    A0, A2
10584  7400                      MoveQ.L   #$0, D2
10586  2212           L2445:     Move.L    (A2), D1
10588  C2B8 031A                 And.L     (Lo3Bytes), D1
1058C  284A                      Move.L    A2, A4
1058E  D5C1                      AddA.L    D1, A2
10590  4A14                      Tst.B     (A4)
10592  6718                      BEQ.B     L2446
10594  6A1E                      BPL.B     L2447
10596  226C 0004                 Move.L    $4(A4), A1
1059A  D3CE                      AddA.L    A6, A1
1059C  4A11                      Tst.B     (A1)
1059E  6B14                      BMI.B     L2447
105A0  0811 0006                 BTst.B    #$6, (A1)
105A4  6712                      BEQ.B     L2449
105A6  B9EE 0004                 CmpA.L    $4(A6), A4
105AA  650A                      BCS.B     L2448
105AC  D481           L2446:     Add.L     D1, D2
105AE  B480                      Cmp.L     D0, D2
105B0  6506                      BCS.B     L2449
105B2  601A                      Bra.B     L2451
105B4  7400           L2447:     MoveQ.L   #$0, D2
105B6  204A           L2448:     Move.L    A2, A0
105B8  B5CB           L2449:     CmpA.L    A3, A2
105BA  65CA                      BCS.B     L2445
105BC  41EE 0034                 Lea.L     $34(A6), A0
105C0  B1EE 0004                 CmpA.L    $4(A6), A0
105C4  6706                      BEQ.B     L2450
105C6  2D48 0004                 Move.L    A0, $4(A6)
105CA  60A8                      Bra.B     L2444
105CC  244B           L2450:     Move.L    A3, A2
105CE  2210           L2451:     Move.L    (A0), D1
105D0  C2B8 031A                 And.L     (Lo3Bytes), D1
105D4  4A10                      Tst.B     (A0)
105D6  6A18                      BPL.B     L2452
105D8  2268 0004                 Move.L    $4(A0), A1
105DC  D3CE                      AddA.L    A6, A1
105DE  4A11                      Tst.B     (A1)
105E0  6B0E                      BMI.B     L2452
105E2  0811 0006                 BTst.B    #$6, (A1)
105E6  6708                      BEQ.B     L2452
105E8  6100 FF70                 Bsr       P397
105EC  B280                      Cmp.L     D0, D1
105EE  640A                      BCC.B     L2453
105F0  D1C1           L2452:     AddA.L    D1, A0
105F2  2D48 0004                 Move.L    A0, $4(A6)
105F6  B1CA                      CmpA.L    A2, A0
105F8  65D4                      BCS.B     L2451
105FA  6162           L2453:     Bsr.B     P401
105FC  4CDF 1E04                 MoveM.L   (A7)+, D2/A1-A4
10600  4E75                      Rts

                      P_mTotEPurgeables:
10602  7000                      MoveQ.L   #$0, D0
10604  2200                      Move.L    D0, D1
10606  2040                      Move.L    D0, A0
10608  43EE 0034                 Lea.L     $34(A6), A1
1060C  B3D6           L2454:     CmpA.L    (A6), A1
1060E  6426                      BCC.B     L2458
10610  2411                      Move.L    (A1), D2
10612  C4B8 031A                 And.L     (Lo3Bytes), D2
10616  4A11                      Tst.B     (A1)
10618  6712                      BEQ.B     L2455
1061A  6A16                      BPL.B     L2457
1061C  2469 0004                 Move.L    $4(A1), A2
10620  D5CE                      AddA.L    A6, A2
10622  4A12                      Tst.B     (A2)
10624  6B0C                      BMI.B     L2457
10626  0812 0006                 BTst.B    #$6, (A2)
1062A  6702                      BEQ.B     L2456
1062C  D282           L2455:     Add.L     D2, D1
1062E  D3C2           L2456:     AddA.L    D2, A1
10630  60DA                      Bra.B     L2454
10632  487A FFFA      L2457:     Pea.L     L2456
10636  D081           L2458:     Add.L     D1, D0
10638  B1C1                      CmpA.L    D1, A0
1063A  6402                      BCC.B     L2459
1063C  2041                      Move.L    D1, A0
1063E  7200           L2459:     MoveQ.L   #$0, D1
10640  4E75                      Rts

                      P400:
10642  242E 002C                 Move.L    $2C(A6), D2
10646  6714                      BEQ.B     L2460
10648  48E7 DFFE                 MoveM.L   D0-D1/D3-D7/A0-A6, -(A7)
1064C  226E 002C                 Move.L    $2C(A6), A1
10650  42A7                      Clr.L     -(A7)
10652  2F00                      Move.L    D0, -(A7)
10654  4E91                      Jsr       (A1)
10656  241F                      Move.L    (A7)+, D2
10658  4CDF 7FFB                 MoveM.L   (A7)+, D0-D1/D3-D7/A0-A6
1065C  4E75           L2460:     Rts

                      P401:
1065E  6000 0152                 Bra       P_mCompactHp

                      P_mBKCompacts:
10662  48E7 A000                 MoveM.L   D0/D2, -(A7)
10666  61F6                      Bsr.B     P401
10668  B081                      Cmp.L     D1, D0
1066A  632E                      BLS.B     L2463
1066C  BDF8 02AA                 CmpA.L    (ApplZone), A6
10670  660E                      BNE.B     L2461
10672  4A82                      Tst.L     D2
10674  670A                      BEQ.B     L2461
10676  6100 020C                 Bsr       P413
1067A  61E2                      Bsr.B     P401
1067C  B081                      Cmp.L     D1, D0
1067E  631A                      BLS.B     L2463
10680  6100 FEEE      L2461:     Bsr       P_mPurgeHeap
10684  B081                      Cmp.L     D1, D0
10686  6312                      BLS.B     L2463
10688  4A82                      Tst.L     D2
1068A  670E                      BEQ.B     L2463
1068C  61B4           L2462:     Bsr.B     P400
1068E  61CE                      Bsr.B     P401
10690  B081                      Cmp.L     D1, D0
10692  6306                      BLS.B     L2463
10694  4A82                      Tst.L     D2
10696  66F4                      BNE.B     L2462
10698  91C8                      SubA.L    A0, A0
1069A  2408           L2463:     Move.L    A0, D2
1069C  4CDF 0005                 MoveM.L   (A7)+, D0/D2
106A0  4E75                      Rts

                      P_mBFindS:
106A2  48E7 6060                 MoveM.L   D1-D2/A1-A2, -(A7)
106A6  2438 031A                 Move.L    (Lo3Bytes), D2
106AA  45EE 0030                 Lea.L     $30(A6), A2
106AE  082E 0005 0016            BTst.B    #$5, $16(A6)
106B4  6702                      BEQ.B     L2464
106B6  4292                      Clr.L     (A2)
106B8  2212           L2464:     Move.L    (A2), D1
106BA  2241                      Move.L    D1, A1
106BC  6604                      BNE.B     L2465
106BE  43EE 0034                 Lea.L     $34(A6), A1
106C2  B3D6           L2465:     CmpA.L    (A6), A1
106C4  6426                      BCC.B     L2469
106C6  2211                      Move.L    (A1), D1
106C8  4A11                      Tst.B     (A1)
106CA  6706                      BEQ.B     L2467
106CC  C282           L2466:     And.L     D2, D1
106CE  D3C1                      AddA.L    D1, A1
106D0  60F0                      Bra.B     L2465
106D2  2049           L2467:     Move.L    A1, A0
106D4  D1C1                      AddA.L    D1, A0
106D6  4A10                      Tst.B     (A0)
106D8  660A                      BNE.B     L2468
106DA  B1D6                      CmpA.L    (A6), A0
106DC  6406                      BCC.B     L2468
106DE  D290                      Add.L     (A0), D1
106E0  2281                      Move.L    D1, (A1)
106E2  60EE                      Bra.B     L2467
106E4  B280           L2468:     Cmp.L     D0, D1
106E6  65E4                      BCS.B     L2466
106E8  2049                      Move.L    A1, A0
106EA  600A                      Bra.B     L2471
106EC  4A92           L2469:     Tst.L     (A2)
106EE  6704                      BEQ.B     L2470
106F0  4292                      Clr.L     (A2)
106F2  60C4                      Bra.B     L2464
106F4  91C8           L2470:     SubA.L    A0, A0
106F6  2488           L2471:     Move.L    A0, (A2)
106F8  4CDF 0606                 MoveM.L   (A7)+, D1-D2/A1-A2
106FC  4E75                      Rts

                      P_mAllocBK:
106FE  48E7 FC00                 MoveM.L   D0-D5, -(A7)
10702  2800                      Move.L    D0, D4
10704  6100 01C6                 Bsr       P_mActuals
10708  6198                      Bsr.B     P_mBFindS
1070A  660C                      BNE.B     L2472
1070C  74FF                      MoveQ.L   #$-1, D2
1070E  6100 FF52                 Bsr       P_mBKCompacts
10712  6604                      BNE.B     L2472
10714  91C8                      SubA.L    A0, A0
10716  6028                      Bra.B     L2475
10718  2400           L2472:     Move.L    D0, D2
1071A  2010                      Move.L    (A0), D0
1071C  2A09                      Move.L    A1, D5
1071E  6708                      BEQ.B     L2473
10720  9A8E                      Sub.L     A6, D5
10722  7202                      MoveQ.L   #$2, D1
10724  76FF                      MoveQ.L   #$-1, D3
10726  6006                      Bra.B     L2474
10728  2A0E           L2473:     Move.L    A6, D5
1072A  7201                      MoveQ.L   #$1, D1
1072C  7600                      MoveQ.L   #$0, D3
1072E  6132           L2474:     Bsr.B     P406
10730  2145 0004                 Move.L    D5, $4(A0)
10734  2004                      Move.L    D4, D0
10736  6110                      Bsr.B     P405
10738  5088                      AddQ      #$8, A0
1073A  2A09                      Move.L    A1, D5
1073C  6702                      BEQ.B     L2475
1073E  2288                      Move.L    A0, (A1)
10740  2008           L2475:     Move.L    A0, D0
10742  4CDF 003F                 MoveM.L   (A7)+, D0-D5
10746  4E75                      Rts

                      P405:
10748  2F01                      Move.L    D1, -(A7)
1074A  2210                      Move.L    (A0), D1
1074C  C2B8 031A                 And.L     (Lo3Bytes), D1
10750  5181                      SubQ      #$8, D1
10752  9280                      Sub.L     D0, D1
10754  0201 000F                 And.B     #$F, D1
10758  0210 00C0                 And.B     #$-40, (A0)
1075C  8310                      Or.B      D1, (A0)
1075E  221F                      Move.L    (A7)+, D1
10760  4E75                      Rts

                      P406:
10762  48E7 E840                 MoveM.L   D0-D2/D4/A1, -(A7)
10766  2800                      Move.L    D0, D4
10768  9082                      Sub.L     D2, D0
1076A  2248                      Move.L    A0, A1
1076C  0C80 0000 000C            Cmp.L     #$C, D0
10772  6516                      BCS.B     L2478
10774  4A43                      Tst       D3
10776  670A                      BEQ.B     L2476
10778  4A2E 0016                 Tst.B     $16(A6)
1077C  6A04                      BPL.B     L2476
1077E  D3C0                      AddA.L    D0, A1
10780  6002                      Bra.B     L2477
10782  D1C2           L2476:     AddA.L    D2, A0
10784  6100 FD96      L2477:     Bsr       P_mMakeBKF
10788  6002                      Bra.B     L2479
1078A  2404           L2478:     Move.L    D4, D2
1078C  2002           L2479:     Move.L    D2, D0
1078E  4480                      Neg.L     D0
10790  6100 02EA                 Bsr       P_mAdjustFree
10794  2049                      Move.L    A1, A0
10796  E499                      ROR.L     #$2, D1
10798  D282                      Add.L     D2, D1
1079A  2081                      Move.L    D1, (A0)
1079C  4CDF 0217                 MoveM.L   (A7)+, D0-D2/D4/A1
107A0  4E75                      Rts

                      P407:
107A2  48E7 E0E0                 MoveM.L   D0-D2/A0-A2, -(A7)
107A6  2478 04B8                 Move.L    ($4B8), A2
107AA  4E92                      Jsr       (A2)
107AC  4CDF 0707                 MoveM.L   (A7)+, D0-D2/A0-A2
107B0  4E75                      Rts

                      P_mCompactHp:
107B2  48E7 BC78                 MoveM.L   D0/D2-D5/A1-A4, -(A7)
107B6  2600                      Move.L    D0, D3
107B8  7200                      MoveQ.L   #$0, D1
107BA  41EE 0034                 Lea.L     $34(A6), A0
107BE  600C                      Bra.B     L2481
107C0  2810           L2480:     Move.L    (A0), D4
107C2  C8B8 031A                 And.L     (Lo3Bytes), D4
107C6  D1C4                      AddA.L    D4, A0
107C8  B1D6                      CmpA.L    (A6), A0
107CA  6404                      BCC.B     L2482
107CC  4A10           L2481:     Tst.B     (A0)
107CE  66F0                      BNE.B     L2480
107D0  082E 0004 0016 L2482:     BTst.B    #$4, $16(A6)
107D6  57C5                      SEQ.B     D5
107D8  2448                      Move.L    A0, A2
107DA  2248           L2483:     Move.L    A0, A1
107DC  7400                      MoveQ.L   #$0, D2
107DE  B1D6           L2484:     CmpA.L    (A6), A0
107E0  6444                      BCC.B     L2488
107E2  2010                      Move.L    (A0), D0
107E4  C0B8 031A                 And.L     (Lo3Bytes), D0
107E8  4A10                      Tst.B     (A0)
107EA  6720                      BEQ.B     L2485
107EC  6A34                      BPL.B     L2487
107EE  2668 0004                 Move.L    $4(A0), A3
107F2  D7CE                      AddA.L    A6, A3
107F4  4A13                      Tst.B     (A3)
107F6  6B2A                      BMI.B     L2487
107F8  4A05                      Tst.B     D5
107FA  6622                      BNE.B     L2486
107FC  49E9 0008                 Lea.L     $8(A1), A4
10800  1813                      Move.B    (A3), D4
10802  268C                      Move.L    A4, (A3)
10804  1684                      Move.B    D4, (A3)
10806  619A                      Bsr.B     P407
10808  D3C0                      AddA.L    D0, A1
1080A  6012                      Bra.B     L2486
1080C  D480           L2485:     Add.L     D0, D2
1080E  2649                      Move.L    A1, A3
10810  B483                      Cmp.L     D3, D2
10812  650A                      BCS.B     L2486
10814  4A05                      Tst.B     D5
10816  6710                      BEQ.B     L2489
10818  4205                      Clr.B     D5
1081A  204A                      Move.L    A2, A0
1081C  60BC                      Bra.B     L2483
1081E  D1C0           L2486:     AddA.L    D0, A0
10820  60BC                      Bra.B     L2484
10822  6112           L2487:     Bsr.B     P409
10824  609A                      Bra.B     L2480
10826  97CB           L2488:     SubA.L    A3, A3
10828  610C           L2489:     Bsr.B     P409
1082A  204B                      Move.L    A3, A0
1082C  2D48 0030                 Move.L    A0, $30(A6)
10830  4CDF 1E3D                 MoveM.L   (A7)+, D0/D2-D5/A1-A4
10834  4E75                      Rts

                      P409:
10836  4A82                      Tst.L     D2
10838  670C                      BEQ.B     L2491
1083A  4A05                      Tst.B     D5
1083C  6602                      BNE.B     L2490
1083E  2282                      Move.L    D2, (A1)
10840  B282           L2490:     Cmp.L     D2, D1
10842  6402                      BCC.B     L2491
10844  2202                      Move.L    D2, D1
10846  4E75           L2491:     Rts

                      P_mToMaxLimit:
10848  2438 010C                 Move.L    (BufPtr), D2
1084C  94B8 0322                 Sub.L     (DefltStack), D2

                      P_mMaxLimit:
10850  220F                      Move.L    A7, D1
10852  C2B8 031A                 And.L     (Lo3Bytes), D1
10856  92B8 031E                 Sub.L     (MinStack), D1
1085A  B282                      Cmp.L     D2, D1
1085C  6502                      BCS.B     L2492
1085E  2202                      Move.L    D2, D1
10860  4E75           L2492:     Rts

                      P_mZoneAdjustEnd:
10862  48E7 80B0                 MoveM.L   D0/A0/A2-A3, -(A7)
10866  2648                      Move.L    A0, A3
10868  2056                      Move.L    (A6), A0
1086A  200B                      Move.L    A3, D0
1086C  9088                      Sub.L     A0, D0
1086E  26BC 0000 000C            Move.L    #$C, (A3)
10874  6100 FCA6                 Bsr       P_mMakeBKF
10878  6100 0202                 Bsr       P_mAdjustFree
1087C  2C8B                      Move.L    A3, (A6)
1087E  4CDF 0D01                 MoveM.L   (A7)+, D0/A0/A2-A3
10882  4E75                      Rts

                      P413:
10884  48E7 F0E0                 MoveM.L   D0-D3/A0-A2, -(A7)
10888  0680 0000 0400            Add.L     #$400, D0
1088E  0240 FC00                 And       #$-400, D0
10892  2600                      Move.L    D0, D3
10894  2438 0130                 Move.L    (ApplLimit), D2
10898  61B6                      Bsr.B     P_mMaxLimit
1089A  2438 0114                 Move.L    (HeapEnd), D2
1089E  B282                      Cmp.L     D2, D1
108A0  6324                      BLS.B     L2495
108A2  D480                      Add.L     D0, D2
108A4  6520                      BCS.B     L2495
108A6  B282                      Cmp.L     D2, D1
108A8  6506                      BCS.B     L2493
108AA  2202                      Move.L    D2, D1
108AC  7600                      MoveQ.L   #$0, D3
108AE  600E                      Bra.B     L2494
108B0  2001           L2493:     Move.L    D1, D0
108B2  90B8 0114                 Sub.L     (HeapEnd), D0
108B6  0C80 0000 000C            Cmp.L     #$C, D0
108BC  6508                      BCS.B     L2495
108BE  21C1 0114      L2494:     Move.L    D1, (HeapEnd)
108C2  2041                      Move.L    D1, A0
108C4  619C                      Bsr.B     P_mZoneAdjustEnd
108C6  4CDF 070F      L2495:     MoveM.L   (A7)+, D0-D3/A0-A2
108CA  4E75                      Rts

                      P_mActuals:
108CC  5080                      AddQ      #$8, D0
108CE  5280                      AddQ      #$1, D0
108D0  0240 FFFE                 And       #$-2, D0
108D4  0C80 0000 000C            Cmp.L     #$C, D0
108DA  6402                      BCC.B     L2496
108DC  700C                      MoveQ.L   #$C, D0
108DE  4E75           L2496:     Rts

                      P_mGetSize:
108E0  2F01                      Move.L    D1, -(A7)
108E2  5188                      SubQ      #$8, A0
108E4  720F                      MoveQ.L   #$F, D1
108E6  C210                      And.B     (A0), D1
108E8  2010                      Move.L    (A0), D0
108EA  C0B8 031A                 And.L     (Lo3Bytes), D0
108EE  5180                      SubQ      #$8, D0
108F0  9081                      Sub.L     D1, D0
108F2  5088                      AddQ      #$8, A0
108F4  221F                      Move.L    (A7)+, D1
108F6  4E75                      Rts

                      P_mClearGZStuff:
108F8  42B8 0328                 Clr.L     (GZRootHnd)
108FC  42B8 032C                 Clr.L     (GZRootPtr)
10900  4E75                      Rts

                      P_mSetSize:
10902  48E7 7EF0                 MoveM.L   D1-D6/A0-A3, -(A7)
10906  1F11                      Move.B    (A1), -(A7)
10908  2200                      Move.L    D0, D1
1090A  61C0                      Bsr.B     P_mActuals
1090C  2600                      Move.L    D0, D3
1090E  61D0                      Bsr.B     P_mGetSize
10910  B280                      Cmp.L     D0, D1
10912  6700 015A                 BEQ       L2514
10916  2448                      Move.L    A0, A2
10918  518A                      SubQ      #$8, A2
1091A  2412                      Move.L    (A2), D2
1091C  C4B8 031A                 And.L     (Lo3Bytes), D2
10920  2802                      Move.L    D2, D4
10922  B682                      Cmp.L     D2, D3
10924  6700 0140                 BEQ       L2513
10928  6500 0118                 BCS       L2512
1092C  2A03                      Move.L    D3, D5
1092E  9A82                      Sub.L     D2, D5
10930  21C9 0328                 Move.L    A1, (GZRootHnd)
10934  21C8 032C                 Move.L    A0, (GZRootPtr)
10938  264A                      Move.L    A2, A3
1093A  D7C4                      AddA.L    D4, A3
1093C  7C00                      MoveQ.L   #$0, D6
1093E  B7D6           L2497:     CmpA.L    (A6), A3
10940  640A                      BCC.B     L2498
10942  4A13                      Tst.B     (A3)
10944  6606                      BNE.B     L2498
10946  DC93                      Add.L     (A3), D6
10948  D7D3                      AddA.L    (A3), A3
1094A  60F2                      Bra.B     L2497
1094C  9A86           L2498:     Sub.L     D6, D5
1094E  6300 00A2                 BLS       L2508
10952  2009                      Move.L    A1, D0
10954  6700 009C                 BEQ       L2508
10958  4A17                      Tst.B     (A7)
1095A  6B00 0096                 BMI       L2508
1095E  47EE 0034                 Lea.L     $34(A6), A3
10962  B7CA           L2499:     CmpA.L    A2, A3
10964  642A                      BCC.B     L2503
10966  2013                      Move.L    (A3), D0
10968  4A13                      Tst.B     (A3)
1096A  670A                      BEQ.B     L2500
1096C  C0B8 031A                 And.L     (Lo3Bytes), D0
10970  D7C0                      AddA.L    D0, A3
10972  7000                      MoveQ.L   #$0, D0
10974  60EC                      Bra.B     L2499
10976  204B           L2500:     Move.L    A3, A0
10978  7000                      MoveQ.L   #$0, D0
1097A  B7EE 0030      L2501:     CmpA.L    $30(A6), A3
1097E  6604                      BNE.B     L2502
10980  2D48 0030                 Move.L    A0, $30(A6)
10984  D093           L2502:     Add.L     (A3), D0
10986  D7D3                      AddA.L    (A3), A3
10988  4A13                      Tst.B     (A3)
1098A  67EE                      BEQ.B     L2501
1098C  2080                      Move.L    D0, (A0)
1098E  60D2                      Bra.B     L2499
10990  2C05           L2503:     Move.L    D5, D6
10992  E48E                      LsR.L     #$2, D6
10994  B086                      Cmp.L     D6, D0
10996  6348                      BLS.B     L2507
10998  7C0C                      MoveQ.L   #$C, D6
1099A  BC85                      Cmp.L     D5, D6
1099C  6302                      BLS.B     L2504
1099E  2A06                      Move.L    D6, D5
109A0  7C18           L2504:     MoveQ.L   #$18, D6
109A2  DC85                      Add.L     D5, D6
109A4  B086                      Cmp.L     D6, D0
109A6  6508                      BCS.B     L2505
109A8  9085                      Sub.L     D5, D0
109AA  2080                      Move.L    D0, (A0)
109AC  D1C0                      AddA.L    D0, A0
109AE  2005                      Move.L    D5, D0
109B0  2288           L2505:     Move.L    A0, (A1)
109B2  5091                      AddQ      #$8, (A1)
109B4  1297                      Move.B    (A7), (A1)
109B6  48E7 8040                 MoveM.L   D0/A1, -(A7)
109BA  B5EE 0030                 CmpA.L    $30(A6), A2
109BE  6604                      BNE.B     L2506
109C0  2D48 0030                 Move.L    A0, $30(A6)
109C4  C14A           L2506:     Exg.L     A0, A2
109C6  224A                      Move.L    A2, A1
109C8  2004                      Move.L    D4, D0
109CA  6100 FDD6                 Bsr       P407
109CE  204A                      Move.L    A2, A0
109D0  D1C4                      AddA.L    D4, A0
109D2  209F                      Move.L    (A7)+, (A0)
109D4  225F                      Move.L    (A7)+, A1
109D6  41EA 0008                 Lea.L     $8(A2), A0
109DA  21C8 032C                 Move.L    A0, (GZRootPtr)
109DE  6012                      Bra.B     L2508
109E0  204A           L2507:     Move.L    A2, A0
109E2  D1C4                      AddA.L    D4, A0
109E4  2010                      Move.L    (A0), D0
109E6  C0B8 031A                 And.L     (Lo3Bytes), D0
109EA  B680                      Cmp.L     D0, D3
109EC  6404                      BCC.B     L2508
109EE  4A10                      Tst.B     (A0)
109F0  6618                      BNE.B     L2509
109F2  204A           L2508:     Move.L    A2, A0
109F4  2003                      Move.L    D3, D0
109F6  9082                      Sub.L     D2, D0
109F8  D5C2                      AddA.L    D2, A2
109FA  08D1 0007                 BSet.B    #$7, (A1)
109FE  6100 0156                 Bsr       P423
10A02  0891 0007                 BClr.B    #$7, (A1)
10A06  280A                      Move.L    A2, D4
10A08  6622                      BNE.B     L2511
10A0A  2809           L2509:     Move.L    A1, D4
10A0C  6716                      BEQ.B     L2510
10A0E  4A17                      Tst.B     (A7)
10A10  6B12                      BMI.B     L2510
10A12  2001                      Move.L    D1, D0
10A14  0891 0006                 BClr.B    #$6, (A1)
10A18  6100 01CE                 Bsr       P425
10A1C  1297                      Move.B    (A7), (A1)
10A1E  6100 FED8                 Bsr       P_mClearGZStuff
10A22  604C                      Bra.B     L2515
10A24  6100 FED2      L2510:     Bsr       P_mClearGZStuff
10A28  7094                      MoveQ.L   #$-6C, D0
10A2A  6044                      Bra.B     L2515
10A2C  6100 FECA      L2511:     Bsr       P_mClearGZStuff
10A30  2012                      Move.L    (A2), D0
10A32  2800                      Move.L    D0, D4
10A34  D882                      Add.L     D2, D4
10A36  2448                      Move.L    A0, A2
10A38  1A12                      Move.B    (A2), D5
10A3A  2484                      Move.L    D4, (A2)
10A3C  1485                      Move.B    D5, (A2)
10A3E  4480                      Neg.L     D0
10A40  613A                      Bsr.B     P_mAdjustFree
10A42  9883           L2512:     Sub.L     D3, D4
10A44  0C84 0000 000C            Cmp.L     #$C, D4
10A4A  651A                      BCS.B     L2513
10A4C  082E 0000 0016            BTst.B    #$0, $16(A6)
10A52  6624                      BNE.B     L2516
10A54  204A                      Move.L    A2, A0
10A56  D1C3                      AddA.L    D3, A0
10A58  1A12                      Move.B    (A2), D5
10A5A  2483                      Move.L    D3, (A2)
10A5C  1485                      Move.B    D5, (A2)
10A5E  2004                      Move.L    D4, D0
10A60  6100 FABA                 Bsr       P_mMakeBKF
10A64  6116                      Bsr.B     P_mAdjustFree
10A66  204A           L2513:     Move.L    A2, A0
10A68  2001                      Move.L    D1, D0
10A6A  6100 FCDC                 Bsr       P405
10A6E  7000           L2514:     MoveQ.L   #$0, D0
10A70  129F           L2515:     Move.B    (A7)+, (A1)
10A72  4CDF 0F7E                 MoveM.L   (A7)+, D1-D6/A0-A3
10A76  4E75                      Rts
10A78  709D           L2516:     MoveQ.L   #$-63, D0
10A7A  60F4                      Bra.B     L2515

                      P_mAdjustFree:
10A7C  D1AE 000C                 Add.L     D0, $C(A6)
10A80  6B02                      BMI.B     L2517
10A82  4E75                      Rts
10A84  7021           L2517:     MoveQ.L   #$21, D0
10A86  A9C9                      _SysError

                      P_mNextMaster:
10A88  48E7 8080                 MoveM.L   D0/A0, -(A7)
10A8C  226E 0008                 Move.L    $8(A6), A1
10A90  2009                      Move.L    A1, D0
10A92  6604                      BNE.B     L2518
10A94  610E                      Bsr.B     P_mHMakeMoreMasters
10A96  6706                      BEQ.B     L2519
10A98  2D51 0008      L2518:     Move.L    (A1), $8(A6)
10A9C  2009                      Move.L    A1, D0
10A9E  4CDF 0101      L2519:     MoveM.L   (A7)+, D0/A0
10AA2  4E75                      Rts

                      P_mHMakeMoreMasters:
10AA4  48E7 C080                 MoveM.L   D0-D1/A0, -(A7)
10AA8  302E 0014                 Move      $14(A6), D0
10AAC  48C0                      Ext.L     D0
10AAE  6E02                      BGT.B     L2520
10AB0  7020                      MoveQ.L   #$20, D0
10AB2  2200           L2520:     Move.L    D0, D1
10AB4  E580                      AsL.L     #$2, D0
10AB6  6126                      Bsr.B     P_mMakePtrSpc
10AB8  93C9                      SubA.L    A1, A1
10ABA  6100 FC42                 Bsr       P_mAllocBK
10ABE  670C                      BEQ.B     L2522
10AC0  2248                      Move.L    A0, A1
10AC2  6110           L2521:     Bsr.B     P_mReleaseMP
10AC4  5889                      AddQ      #$4, A1
10AC6  5341                      SubQ      #$1, D1
10AC8  66F8                      BNE.B     L2521
10ACA  5989                      SubQ      #$4, A1
10ACC  2009           L2522:     Move.L    A1, D0
10ACE  4CDF 0103                 MoveM.L   (A7)+, D0-D1/A0
10AD2  4E75                      Rts

                      P_mReleaseMP:
10AD4  22AE 0008                 Move.L    $8(A6), (A1)
10AD8  2D49 0008                 Move.L    A1, $8(A6)
10ADC  4E75                      Rts

                      P_mMakePtrSpc:
10ADE  48E7 F8D8                 MoveM.L   D0-D4/A0-A1/A3-A4, -(A7)
10AE2  6100 FDE8                 Bsr       P_mActuals
10AE6  284E                      Move.L    A6, A4
10AE8  BDF8 02AA                 CmpA.L    (ApplZone), A6
10AEC  57C3                      SEQ.B     D3
10AEE  41EC 0034      L2523:     Lea.L     $34(A4), A0
10AF2  2656                      Move.L    (A6), A3
10AF4  2448                      Move.L    A0, A2
10AF6  7400                      MoveQ.L   #$0, D2
10AF8  2210           L2524:     Move.L    (A0), D1
10AFA  C2B8 031A                 And.L     (Lo3Bytes), D1
10AFE  4A10                      Tst.B     (A0)
10B00  670C                      BEQ.B     L2525
10B02  6A36                      BPL.B     L2529
10B04  2268 0004                 Move.L    $4(A0), A1
10B08  D3CE                      AddA.L    A6, A1
10B0A  4A11                      Tst.B     (A1)
10B0C  6B2C                      BMI.B     L2529
10B0E  D481           L2525:     Add.L     D1, D2
10B10  D1C1                      AddA.L    D1, A0
10B12  B480                      Cmp.L     D0, D2
10B14  652A                      BCS.B     L2531
10B16  613E                      Bsr.B     P423
10B18  240A                      Move.L    A2, D2
10B1A  6618                      BNE.B     L2528
10B1C  45EC 0034                 Lea.L     $34(A4), A2
10B20  2212           L2526:     Move.L    (A2), D1
10B22  C2B8 031A                 And.L     (Lo3Bytes), D1
10B26  D5C1                      AddA.L    D1, A2
10B28  B5C8                      CmpA.L    A0, A2
10B2A  6204                      BHI.B     L2527
10B2C  B5CB                      CmpA.L    A3, A2
10B2E  65F0                      BCS.B     L2526
10B30  204A           L2527:     Move.L    A2, A0
10B32  95CA                      SubA.L    A2, A2
10B34  240A           L2528:     Move.L    A2, D2
10B36  6618                      BNE.B     L2533
10B38  6002                      Bra.B     L2530
10B3A  D1C1           L2529:     AddA.L    D1, A0
10B3C  2448           L2530:     Move.L    A0, A2
10B3E  7400                      MoveQ.L   #$0, D2
10B40  B1CB           L2531:     CmpA.L    A3, A0
10B42  65B4                      BCS.B     L2524
10B44  5203                      AddQ      #$1, D3
10B46  6606                      BNE.B     L2532
10B48  6100 FD3A                 Bsr       P413
10B4C  60A0                      Bra.B     L2523
10B4E  95CA           L2532:     SubA.L    A2, A2
10B50  4CDF 1B1F      L2533:     MoveM.L   (A7)+, D0-D4/A0-A1/A3-A4
10B54  4E75                      Rts

                      P423:
10B56  48E7 F0D0                 MoveM.L   D0-D3/A0-A1/A3, -(A7)
10B5A  2200                      Move.L    D0, D1
10B5C  264A                      Move.L    A2, A3
10B5E  7600                      MoveQ.L   #$0, D3
10B60  B681           L2534:     Cmp.L     D1, D3
10B62  643A                      BCC.B     L2537
10B64  B7D6                      CmpA.L    (A6), A3
10B66  6436                      BCC.B     L2537
10B68  4A13                      Tst.B     (A3)
10B6A  671E                      BEQ.B     L2535
10B6C  6A30                      BPL.B     L2537
10B6E  226B 0004                 Move.L    $4(A3), A1
10B72  D3CE                      AddA.L    A6, A1
10B74  1411                      Move.B    (A1), D2
10B76  6B26                      BMI.B     L2537
10B78  613C                      Bsr.B     P424
10B7A  670E                      BEQ.B     L2535
10B7C  0802 0006                 BTst.B    #$6, D2
10B80  671C                      BEQ.B     L2537
10B82  2051                      Move.L    (A1), A0
10B84  5188                      SubQ      #$8, A0
10B86  6100 F9D2                 Bsr       P397
10B8A  204B           L2535:     Move.L    A3, A0
10B8C  2010                      Move.L    (A0), D0
10B8E  B1EE 0030                 CmpA.L    $30(A6), A0
10B92  6604                      BNE.B     L2536
10B94  42AE 0030                 Clr.L     $30(A6)
10B98  D680           L2536:     Add.L     D0, D3
10B9A  D7C0                      AddA.L    D0, A3
10B9C  60C2                      Bra.B     L2534
10B9E  C6B8 031A      L2537:     And.L     (Lo3Bytes), D3
10BA2  6702                      BEQ.B     L2538
10BA4  2483                      Move.L    D3, (A2)
10BA6  B681           L2538:     Cmp.L     D1, D3
10BA8  6402                      BCC.B     L2539
10BAA  95CA                      SubA.L    A2, A2
10BAC  42AE 0030      L2539:     Clr.L     $30(A6)
10BB0  4CDF 0B0F                 MoveM.L   (A7)+, D0-D3/A0-A1/A3
10BB4  4E75                      Rts

                      P424:
10BB6  2F08                      Move.L    A0, -(A7)
10BB8  2003                      Move.L    D3, D0
10BBA  6712                      BEQ.B     L2540
10BBC  2483                      Move.L    D3, (A2)
10BBE  0092 4000 0000            Or.L      #$40000000, (A2)
10BC4  254E 0004                 Move.L    A6, $4(A2)
10BC8  4480                      Neg.L     D0
10BCA  6100 FEB0                 Bsr       P_mAdjustFree
10BCE  2051           L2540:     Move.L    (A1), A0
10BD0  6100 FD0E                 Bsr       P_mGetSize
10BD4  6112                      Bsr.B     P425
10BD6  2040                      Move.L    D0, A0
10BD8  2003                      Move.L    D3, D0
10BDA  6706                      BEQ.B     L2541
10BDC  2483                      Move.L    D3, (A2)
10BDE  6100 FE9C                 Bsr       P_mAdjustFree
10BE2  2008           L2541:     Move.L    A0, D0
10BE4  205F                      Move.L    (A7)+, A0
10BE6  4E75                      Rts

                      P425:
10BE8  48E7 60E0                 MoveM.L   D1-D2/A0-A2, -(A7)
10BEC  2449                      Move.L    A1, A2
10BEE  21C9 0330                 Move.L    A1, (GZMoveHnd)
10BF2  1212                      Move.B    (A2), D1
10BF4  93C9                      SubA.L    A1, A1
10BF6  6100 FB06                 Bsr       P_mAllocBK
10BFA  673E                      BEQ.B     L2544
10BFC  4A92                      Tst.L     (A2)
10BFE  672C                      BEQ.B     L2542
10C00  2248                      Move.L    A0, A1
10C02  2052                      Move.L    (A2), A0
10C04  6100 FCDA                 Bsr       P_mGetSize
10C08  6100 FB98                 Bsr       P407
10C0C  5188                      SubQ      #$8, A0
10C0E  5189                      SubQ      #$8, A1
10C10  70F0                      MoveQ.L   #$-10, D0
10C12  C010                      And.B     (A0), D0
10C14  B110                      Eor.B     D0, (A0)
10C16  74F0                      MoveQ.L   #$-10, D2
10C18  C411                      And.B     (A1), D2
10C1A  B511                      Eor.B     D2, (A1)
10C1C  8111                      Or.B      D0, (A1)
10C1E  8510                      Or.B      D2, (A0)
10C20  5888                      AddQ      #$4, A0
10C22  5889                      AddQ      #$4, A1
10C24  22D0                      Move.L    (A0), (A1)+
10C26  2489                      Move.L    A1, (A2)
10C28  1481                      Move.B    D1, (A2)
10C2A  20CE                      Move.L    A6, (A0)+
10C2C  6112           L2542:     Bsr.B     P_mFreeBk
10C2E  7000                      MoveQ.L   #$0, D0
10C30  42B8 0330      L2543:     Clr.L     (GZMoveHnd)
10C34  4CDF 0706                 MoveM.L   (A7)+, D1-D2/A0-A2
10C38  4E75                      Rts
10C3A  1481           L2544:     Move.B    D1, (A2)
10C3C  7094                      MoveQ.L   #$-6C, D0
10C3E  60F0                      Bra.B     L2543

                      P_mFreeBk:
10C40  48E7 C0C0                 MoveM.L   D0-D1/A0-A1, -(A7)
10C44  5188                      SubQ      #$8, A0
10C46  2010                      Move.L    (A0), D0
10C48  2200                      Move.L    D0, D1
10C4A  C0B8 031A                 And.L     (Lo3Bytes), D0
10C4E  B181                      Eor.L     D0, D1
10C50  6714                      BEQ.B     L2546
10C52  6A0A                      BPL.B     L2545
10C54  2268 0004                 Move.L    $4(A0), A1
10C58  D3CE                      AddA.L    A6, A1
10C5A  6100 FE78                 Bsr       P_mReleaseMP
10C5E  6100 F8BC      L2545:     Bsr       P_mMakeBKF
10C62  6100 FE18                 Bsr       P_mAdjustFree
10C66  4CDF 0303      L2546:     MoveM.L   (A7)+, D0-D1/A0-A1
10C6A  4E75                      Rts

                      P_mStdGZ:
10C6C  225F                      Move.L    (A7)+, A1
10C6E  45F8 0328                 Lea.L     (GZRootHnd), A2
10C72  4CD2 0038                 MoveM.L   (A2), D3-D5
10C76  4A85                      Tst.L     D5
10C78  6704                      BEQ.B     L2547
10C7A  BA83                      Cmp.L     D3, D5
10C7C  662A                      BNE.B     L2548
10C7E  082E 0003 0016 L2547:     BTst.B    #$3, $16(A6)
10C84  662E                      BNE.B     L2550
10C86  2017                      Move.L    (A7), D0
10C88  429A                      Clr.L     (A2)+
10C8A  429A                      Clr.L     (A2)+
10C8C  429A                      Clr.L     (A2)+
10C8E  2F38 0118                 Move.L    (TheZone), -(A7)
10C92  21CE 0118                 Move.L    A6, (TheZone)
10C96  A040                      _ResrvMem
10C98  21DF 0118                 Move.L    (A7)+, (TheZone)
10C9C  48E2 1C00                 MoveM.L   D3-D5, -(A2)
10CA0  4A80                      Tst.L     D0
10CA2  6B10                      BMI.B     L2550
10CA4  2E9F                      Move.L    (A7)+, (A7)
10CA6  4ED1                      Jmp       (A1)
10CA8  082E 0002 0016 L2548:     BTst.B    #$2, $16(A6)
10CAE  6604                      BNE.B     L2550
10CB0  584F           L2549:     AddQ      #$4, A7
10CB2  4ED1                      Jmp       (A1)
10CB4  242E 0010      L2550:     Move.L    $10(A6), D2
10CB8  67F6                      BEQ.B     L2549
10CBA  2F09                      Move.L    A1, -(A7)
10CBC  2F02                      Move.L    D2, -(A7)
10CBE  4E75                      Rts

                      P_tBlockMove:
10CC0  4A80                      Tst.L     D0
10CC2  6F4A                      BLE.B     L2554
10CC4  2408                      Move.L    A0, D2
10CC6  C4B8 031A                 And.L     (Lo3Bytes), D2
10CCA  2209                      Move.L    A1, D1
10CCC  C2B8 031A                 And.L     (Lo3Bytes), D1
10CD0  9282                      Sub.L     D2, D1
10CD2  6D04                      BLT.B     L2551
10CD4  D1C0                      AddA.L    D0, A0
10CD6  D3C0                      AddA.L    D0, A1
10CD8  E249           L2551:     LsR       #$1, D1
10CDA  6468                      BCC.B     L2557
10CDC  4A81                      Tst.L     D1
10CDE  6A32                      BPL.B     L2555
10CE0  5180           L2552:     SubQ      #$8, D0
10CE2  6F12                      BLE.B     L2553
10CE4  12D8                      Move.B    (A0)+, (A1)+
10CE6  12D8                      Move.B    (A0)+, (A1)+
10CE8  12D8                      Move.B    (A0)+, (A1)+
10CEA  12D8                      Move.B    (A0)+, (A1)+
10CEC  12D8                      Move.B    (A0)+, (A1)+
10CEE  12D8                      Move.B    (A0)+, (A1)+
10CF0  12D8                      Move.B    (A0)+, (A1)+
10CF2  12D8                      Move.B    (A0)+, (A1)+
10CF4  60EA                      Bra.B     L2552
10CF6  4440           L2553:     Neg       D0
10CF8  D040                      Add       D0, D0
10CFA  4EFB 0002                 Jmp       E_548(D0.W)

                      E_548:
10CFE  12D8                      Move.B    (A0)+, (A1)+
10D00  12D8                      Move.B    (A0)+, (A1)+
10D02  12D8                      Move.B    (A0)+, (A1)+
10D04  12D8                      Move.B    (A0)+, (A1)+
10D06  12D8                      Move.B    (A0)+, (A1)+
10D08  12D8                      Move.B    (A0)+, (A1)+
10D0A  12D8                      Move.B    (A0)+, (A1)+
10D0C  12D8                      Move.B    (A0)+, (A1)+
10D0E  7000           L2554:     MoveQ.L   #$0, D0
10D10  4E75                      Rts
10D12  5180           L2555:     SubQ      #$8, D0
10D14  6F12                      BLE.B     L2556
10D16  1320                      Move.B    -(A0), -(A1)
10D18  1320                      Move.B    -(A0), -(A1)
10D1A  1320                      Move.B    -(A0), -(A1)
10D1C  1320                      Move.B    -(A0), -(A1)
10D1E  1320                      Move.B    -(A0), -(A1)
10D20  1320                      Move.B    -(A0), -(A1)
10D22  1320                      Move.B    -(A0), -(A1)
10D24  1320                      Move.B    -(A0), -(A1)
10D26  60EA                      Bra.B     L2555
10D28  4440           L2556:     Neg       D0
10D2A  D040                      Add       D0, D0
10D2C  4EFB 0002                 Jmp       E_549(D0.W)

                      E_549:
10D30  1320                      Move.B    -(A0), -(A1)
10D32  1320                      Move.B    -(A0), -(A1)
10D34  1320                      Move.B    -(A0), -(A1)
10D36  1320                      Move.B    -(A0), -(A1)
10D38  1320                      Move.B    -(A0), -(A1)
10D3A  1320                      Move.B    -(A0), -(A1)
10D3C  1320                      Move.B    -(A0), -(A1)
10D3E  1320                      Move.B    -(A0), -(A1)
10D40  7000                      MoveQ.L   #$0, D0
10D42  4E75                      Rts
10D44  3408           L2557:     Move      A0, D2
10D46  4A81                      Tst.L     D1
10D48  6A00 00F4                 BPL       L2594
10D4C  E24A                      LsR       #$1, D2
10D4E  6404                      BCC.B     L2558
10D50  12D8                      Move.B    (A0)+, (A1)+
10D52  5380                      SubQ      #$1, D0
10D54  0480 0000 0020 L2558:     Sub.L     #$20, D0
10D5A  6B4C                      BMI.B     L2561
10D5C  0C80 0000 00A0            Cmp.L     #$A0, D0
10D62  6D2E                      BLT.B     L2560
10D64  48E7 1F3E                 MoveM.L   D3-D7/A2-A6, -(A7)
10D68  0480 0000 0030            Sub.L     #$30, D0
10D6E  D2FC 0030                 AddA      #$30, A1
10D72  4CD8 7CFE      L2559:     MoveM.L   (A0)+, D1-D7/A2-A6
10D76  48E1 7F3E                 MoveM.L   D1-D7/A2-A6, -(A1)
10D7A  D2FC 0060                 AddA      #$60, A1
10D7E  0480 0000 0030            Sub.L     #$30, D0
10D84  6EEC                      BGT.B     L2559
10D86  92FC 0030                 SubA      #$30, A1
10D8A  0640 0030                 Add       #$30, D0
10D8E  4CDF 7CF8                 MoveM.L   (A7)+, D3-D7/A2-A6
10D92  22D8           L2560:     Move.L    (A0)+, (A1)+
10D94  22D8                      Move.L    (A0)+, (A1)+
10D96  22D8                      Move.L    (A0)+, (A1)+
10D98  22D8                      Move.L    (A0)+, (A1)+
10D9A  22D8                      Move.L    (A0)+, (A1)+
10D9C  22D8                      Move.L    (A0)+, (A1)+
10D9E  22D8                      Move.L    (A0)+, (A1)+
10DA0  22D8                      Move.L    (A0)+, (A1)+
10DA2  0440 0020                 Sub       #$20, D0
10DA6  6CEA                      BGE.B     L2560
10DA8  D040           L2561:     Add       D0, D0
10DAA  4EFB 0054                 Jmp       L2570(D0.W)
10DAE  22D8           L2562:     Move.L    (A0)+, (A1)+
10DB0  22D8           L2563:     Move.L    (A0)+, (A1)+
10DB2  22D8           L2564:     Move.L    (A0)+, (A1)+
10DB4  22D8           L2565:     Move.L    (A0)+, (A1)+
10DB6  22D8           L2566:     Move.L    (A0)+, (A1)+
10DB8  22D8           L2567:     Move.L    (A0)+, (A1)+
10DBA  22D8           L2568:     Move.L    (A0)+, (A1)+
10DBC  7000           L2569:     MoveQ.L   #$0, D0
10DBE  4E75                      Rts

                      E_550:
10DC0  60FA                      Bra.B     L2569

                      E_551:
10DC2  6060                      Bra.B     L2586

                      E_552:
10DC4  6048                      Bra.B     L2577

                      E_553:
10DC6  605A                      Bra.B     L2585

                      E_554:
10DC8  60F0                      Bra.B     L2568

                      E_555:
10DCA  606A                      Bra.B     L2593

                      E_556:
10DCC  603E                      Bra.B     L2576

                      E_557:
10DCE  6050                      Bra.B     L2584

                      E_558:
10DD0  60E6                      Bra.B     L2567

                      E_559:
10DD2  6060                      Bra.B     L2592

                      E_560:
10DD4  6034                      Bra.B     L2575

                      E_561:
10DD6  6046                      Bra.B     L2583

                      E_562:
10DD8  60DC                      Bra.B     L2566

                      E_563:
10DDA  6056                      Bra.B     L2591

                      E_564:
10DDC  602A                      Bra.B     L2574

                      E_565:
10DDE  603C                      Bra.B     L2582

                      E_566:
10DE0  60D2                      Bra.B     L2565

                      E_567:
10DE2  604C                      Bra.B     L2590

                      E_568:
10DE4  6020                      Bra.B     L2573

                      E_569:
10DE6  6032                      Bra.B     L2581

                      E_570:
10DE8  60C8                      Bra.B     L2564

                      E_571:
10DEA  6042                      Bra.B     L2589

                      E_572:
10DEC  6016                      Bra.B     L2572

                      E_573:
10DEE  6028                      Bra.B     L2580

                      E_574:
10DF0  60BE                      Bra.B     L2563

                      E_575:
10DF2  6038                      Bra.B     L2588

                      E_576:
10DF4  600C                      Bra.B     L2571

                      E_577:
10DF6  601E                      Bra.B     L2579

                      E_578:
10DF8  60B4                      Bra.B     L2562

                      E_579:
10DFA  602E                      Bra.B     L2587

                      E_580:
10DFC  6002                      Bra.B     L2570

                      E_581:
10DFE  6014                      Bra.B     L2578
10E00  22D8           L2570:     Move.L    (A0)+, (A1)+
10E02  22D8           L2571:     Move.L    (A0)+, (A1)+
10E04  22D8           L2572:     Move.L    (A0)+, (A1)+
10E06  22D8           L2573:     Move.L    (A0)+, (A1)+
10E08  22D8           L2574:     Move.L    (A0)+, (A1)+
10E0A  22D8           L2575:     Move.L    (A0)+, (A1)+
10E0C  22D8           L2576:     Move.L    (A0)+, (A1)+
10E0E  32D8           L2577:     Move      (A0)+, (A1)+
10E10  7000                      MoveQ.L   #$0, D0
10E12  4E75                      Rts
10E14  22D8           L2578:     Move.L    (A0)+, (A1)+
10E16  22D8           L2579:     Move.L    (A0)+, (A1)+
10E18  22D8           L2580:     Move.L    (A0)+, (A1)+
10E1A  22D8           L2581:     Move.L    (A0)+, (A1)+
10E1C  22D8           L2582:     Move.L    (A0)+, (A1)+
10E1E  22D8           L2583:     Move.L    (A0)+, (A1)+
10E20  22D8           L2584:     Move.L    (A0)+, (A1)+
10E22  32D8           L2585:     Move      (A0)+, (A1)+
10E24  12D8           L2586:     Move.B    (A0)+, (A1)+
10E26  7000                      MoveQ.L   #$0, D0
10E28  4E75                      Rts
10E2A  22D8           L2587:     Move.L    (A0)+, (A1)+
10E2C  22D8           L2588:     Move.L    (A0)+, (A1)+
10E2E  22D8           L2589:     Move.L    (A0)+, (A1)+
10E30  22D8           L2590:     Move.L    (A0)+, (A1)+
10E32  22D8           L2591:     Move.L    (A0)+, (A1)+
10E34  22D8           L2592:     Move.L    (A0)+, (A1)+
10E36  22D8           L2593:     Move.L    (A0)+, (A1)+
10E38  12D8                      Move.B    (A0)+, (A1)+
10E3A  7000                      MoveQ.L   #$0, D0
10E3C  4E75                      Rts
10E3E  E24A           L2594:     LsR       #$1, D2
10E40  6404                      BCC.B     L2595
10E42  1320                      Move.B    -(A0), -(A1)
10E44  5380                      SubQ      #$1, D0
10E46  0480 0000 0020 L2595:     Sub.L     #$20, D0
10E4C  6B4C                      BMI.B     L2598
10E4E  0C80 0000 00A0            Cmp.L     #$A0, D0
10E54  6D2E                      BLT.B     L2597
10E56  48E7 1F3E                 MoveM.L   D3-D7/A2-A6, -(A7)
10E5A  0480 0000 0030            Sub.L     #$30, D0
10E60  90FC 0030                 SubA      #$30, A0
10E64  4CD8 7CFE      L2596:     MoveM.L   (A0)+, D1-D7/A2-A6
10E68  48E1 7F3E                 MoveM.L   D1-D7/A2-A6, -(A1)
10E6C  90FC 0060                 SubA      #$60, A0
10E70  0480 0000 0030            Sub.L     #$30, D0
10E76  6EEC                      BGT.B     L2596
10E78  D0FC 0030                 AddA      #$30, A0
10E7C  0640 0030                 Add       #$30, D0
10E80  4CDF 7CF8                 MoveM.L   (A7)+, D3-D7/A2-A6
10E84  2320           L2597:     Move.L    -(A0), -(A1)
10E86  2320                      Move.L    -(A0), -(A1)
10E88  2320                      Move.L    -(A0), -(A1)
10E8A  2320                      Move.L    -(A0), -(A1)
10E8C  2320                      Move.L    -(A0), -(A1)
10E8E  2320                      Move.L    -(A0), -(A1)
10E90  2320                      Move.L    -(A0), -(A1)
10E92  2320                      Move.L    -(A0), -(A1)
10E94  0440 0020                 Sub       #$20, D0
10E98  6CEA                      BGE.B     L2597
10E9A  D040           L2598:     Add       D0, D0
10E9C  4EFB 0054                 Jmp       L2607(D0.W)
10EA0  2320           L2599:     Move.L    -(A0), -(A1)
10EA2  2320           L2600:     Move.L    -(A0), -(A1)
10EA4  2320           L2601:     Move.L    -(A0), -(A1)
10EA6  2320           L2602:     Move.L    -(A0), -(A1)
10EA8  2320           L2603:     Move.L    -(A0), -(A1)
10EAA  2320           L2604:     Move.L    -(A0), -(A1)
10EAC  2320           L2605:     Move.L    -(A0), -(A1)
10EAE  7000           L2606:     MoveQ.L   #$0, D0
10EB0  4E75                      Rts

                      E_582:
10EB2  60FA                      Bra.B     L2606

                      E_583:
10EB4  6060                      Bra.B     L2623

                      E_584:
10EB6  6048                      Bra.B     L2614

                      E_585:
10EB8  605A                      Bra.B     L2622

                      E_586:
10EBA  60F0                      Bra.B     L2605

                      E_587:
10EBC  606A                      Bra.B     L2630

                      E_588:
10EBE  603E                      Bra.B     L2613

                      E_589:
10EC0  6050                      Bra.B     L2621

                      E_590:
10EC2  60E6                      Bra.B     L2604

                      E_591:
10EC4  6060                      Bra.B     L2629

                      E_592:
10EC6  6034                      Bra.B     L2612

                      E_593:
10EC8  6046                      Bra.B     L2620

                      E_594:
10ECA  60DC                      Bra.B     L2603

                      E_595:
10ECC  6056                      Bra.B     L2628

                      E_596:
10ECE  602A                      Bra.B     L2611

                      E_597:
10ED0  603C                      Bra.B     L2619

                      E_598:
10ED2  60D2                      Bra.B     L2602

                      E_599:
10ED4  604C                      Bra.B     L2627

                      E_600:
10ED6  6020                      Bra.B     L2610

                      E_601:
10ED8  6032                      Bra.B     L2618

                      E_602:
10EDA  60C8                      Bra.B     L2601

                      E_603:
10EDC  6042                      Bra.B     L2626

                      E_604:
10EDE  6016                      Bra.B     L2609

                      E_605:
10EE0  6028                      Bra.B     L2617

                      E_606:
10EE2  60BE                      Bra.B     L2600

                      E_607:
10EE4  6038                      Bra.B     L2625

                      E_608:
10EE6  600C                      Bra.B     L2608

                      E_609:
10EE8  601E                      Bra.B     L2616

                      E_610:
10EEA  60B4                      Bra.B     L2599

                      E_611:
10EEC  602E                      Bra.B     L2624

                      E_612:
10EEE  6002                      Bra.B     L2607

                      E_613:
10EF0  6014                      Bra.B     L2615
10EF2  2320           L2607:     Move.L    -(A0), -(A1)
10EF4  2320           L2608:     Move.L    -(A0), -(A1)
10EF6  2320           L2609:     Move.L    -(A0), -(A1)
10EF8  2320           L2610:     Move.L    -(A0), -(A1)
10EFA  2320           L2611:     Move.L    -(A0), -(A1)
10EFC  2320           L2612:     Move.L    -(A0), -(A1)
10EFE  2320           L2613:     Move.L    -(A0), -(A1)
10F00  3320           L2614:     Move      -(A0), -(A1)
10F02  7000                      MoveQ.L   #$0, D0
10F04  4E75                      Rts
10F06  2320           L2615:     Move.L    -(A0), -(A1)
10F08  2320           L2616:     Move.L    -(A0), -(A1)
10F0A  2320           L2617:     Move.L    -(A0), -(A1)
10F0C  2320           L2618:     Move.L    -(A0), -(A1)
10F0E  2320           L2619:     Move.L    -(A0), -(A1)
10F10  2320           L2620:     Move.L    -(A0), -(A1)
10F12  2320           L2621:     Move.L    -(A0), -(A1)
10F14  3320           L2622:     Move      -(A0), -(A1)
10F16  1320           L2623:     Move.B    -(A0), -(A1)
10F18  7000                      MoveQ.L   #$0, D0
10F1A  4E75                      Rts
10F1C  2320           L2624:     Move.L    -(A0), -(A1)
10F1E  2320           L2625:     Move.L    -(A0), -(A1)
10F20  2320           L2626:     Move.L    -(A0), -(A1)
10F22  2320           L2627:     Move.L    -(A0), -(A1)
10F24  2320           L2628:     Move.L    -(A0), -(A1)
10F26  2320           L2629:     Move.L    -(A0), -(A1)
10F28  2320           L2630:     Move.L    -(A0), -(A1)
10F2A  1320                      Move.B    -(A0), -(A1)
10F2C  7000                      MoveQ.L   #$0, D0
10F2E  4E75                      Rts

                      P_tGetKeys:
10F30  226F 0004                 Move.L    $4(A7), A1
10F34  41F8 0174                 Lea.L     (KeyMap), A0
10F38  22D8                      Move.L    (A0)+, (A1)+
10F3A  22D8                      Move.L    (A0)+, (A1)+
10F3C  22D8                      Move.L    (A0)+, (A1)+
10F3E  22D8                      Move.L    (A0)+, (A1)+
10F40  226F 0004                 Move.L    $4(A7), A1
10F44  7203                      MoveQ.L   #$3, D1
10F46  6120                      Bsr.B     P427
10F48  2E9F                      Move.L    (A7)+, (A7)
10F4A  4E75                      Rts

                      P_tButton:
10F4C  43EF 0004                 Lea.L     $4(A7), A1
10F50  4251                      Clr       (A1)
10F52  4A38 0172                 Tst.B     (MBState)
10F56  6B02                      BMI.B     L2631
10F58  5211                      AddQ      #$1, (A1)
10F5A  7202           L2631:     MoveQ.L   #$2, D1
10F5C  600A                      Bra.B     P427

                      P_tTickCount:
10F5E  43EF 0004                 Lea.L     $4(A7), A1
10F62  22B8 016A                 Move.L    (Ticks), (A1)
10F66  7200                      MoveQ.L   #$0, D1

                      P427:
10F68  3038 08DE                 Move      (JournalFlag), D0
10F6C  6730                      BEQ.B     L2635
10F6E  6A04                      BPL.B     L2632
10F70  7010                      MoveQ.L   #$10, D0
10F72  6002                      Bra.B     L2633
10F74  7011           L2632:     MoveQ.L   #$11, D0
10F76  9EFC 0028      L2633:     SubA      #$28, A7
10F7A  41EF 0018                 Lea.L     $18(A7), A0
10F7E  30F8 08E8                 Move      (JournalRef), (A0)+
10F82  30C0                      Move      D0, (A0)+
10F84  20C9                      Move.L    A1, (A0)+
10F86  30C1                      Move      D1, (A0)+
10F88  30C3                      Move      D3, (A0)+
10F8A  204F                      Move.L    A7, A0
10F8C  A004                      _Control
10F8E  DEFC 0028                 AddA      #$28, A7
10F92  6602                      BNE.B     L2634
10F94  4E75                      Rts
10F96  4278 08DE      L2634:     Clr       (JournalFlag)
10F9A  50F8 08CF                 ST.B      (CrsrCouple)
10F9E  4E75           L2635:     Rts

                      P_tGetMouse:
10FA0  226F 0004                 Move.L    $4(A7), A1
10FA4  22B8 0830                 Move.L    (Mouse_v), (A1)
10FA8  7201                      MoveQ.L   #$1, D1
10FAA  61BC                      Bsr.B     P427
10FAC  2F2F 0004                 Move.L    $4(A7), -(A7)
10FB0  A871                      _GlobalToLocal
10FB2  2E9F                      Move.L    (A7)+, (A7)
10FB4  4E75                      Rts

                      P_tStillDown:
10FB6  4E56 FFEC                 Link      A6, #$-14
10FBA  426E 0008                 Clr       $8(A6)
10FBE  554F                      SubQ      #$2, A7
10FC0  A974                      _Button
10FC2  4A5F                      Tst       (A7)+
10FC4  6714                      BEQ.B     L2636
10FC6  554F                      SubQ      #$2, A7
10FC8  3F3C 0007                 Move      #$7, -(A7)
10FCC  486E FFEC                 Pea.L     $-14(A6)
10FD0  A971                      _EventAvail
10FD2  4A5F                      Tst       (A7)+
10FD4  6604                      BNE.B     L2636
10FD6  522E 0008                 AddQ      #$1, $8(A6)
10FDA  4E5E           L2636:     Unlk      A6
10FDC  4E75                      Rts

                      P_tWaitMouseUp:
10FDE  4E56 FFEC                 Link      A6, #$-14
10FE2  4267                      Clr       -(A7)
10FE4  A973                      _StillDown
10FE6  3D5F 0008                 Move      (A7)+, $8(A6)
10FEA  660C                      BNE.B     L2637
10FEC  554F                      SubQ      #$2, A7
10FEE  3F3C 0004                 Move      #$4, -(A7)
10FF2  486E FFEC                 Pea.L     $-14(A6)
10FF6  A970                      _GetNextEvent
10FF8  4E5E           L2637:     Unlk      A6
10FFA  4E75                      Rts

                      P_tEventAvail:
10FFC  70FF                      MoveQ.L   #$-1, D0
10FFE  6024                      Bra.B     P428

                      P_tGetNextEvent:
11000  4CDF 0007                 MoveM.L   (A7)+, D0-D2
11004  554F                      SubQ      #$2, A7
11006  2F00                      Move.L    D0, -(A7)
11008  2F01                      Move.L    D1, -(A7)
1100A  48E7 6000                 MoveM.L   D1-D2, -(A7)
1100E  7000                      MoveQ.L   #$0, D0
11010  6112                      Bsr.B     P428
11012  301F                      Move      (A7)+, D0
11014  225F                      Move.L    (A7)+, A1
11016  3F40 0004                 Move      D0, $4(A7)
1101A  2F38 029A                 Move.L    (GNEFilter), -(A7)
1101E  6602                      BNE.B     L2638
11020  584F                      AddQ      #$4, A7
11022  4E75           L2638:     Rts

                      P428:
11024  4E56 0000                 Link      A6, #$0
11028  48E7 1010                 MoveM.L   D3/A3, -(A7)
1102C  2600                      Move.L    D0, D3
1102E  6634                      BNE.B     L2639
11030  08F8 0007 015D            BSet.B    #$7, (DSWndUpdate)
11036  662C                      BNE.B     L2639
11038  4A38 08F2                 Tst.B     (WWExist)
1103C  6626                      BNE.B     L2639
1103E  594F                      SubQ      #$4, A7
11040  2F0F                      Move.L    A7, -(A7)
11042  A874                      _GetPort
11044  2F38 09DE                 Move.L    (WMgrPort), -(A7)
11048  A873                      _SetPort
1104A  594F                      SubQ      #$4, A7
1104C  A924                      _FrontWindow
1104E  594F                      SubQ      #$4, A7
11050  A8D8                      _NewRgn
11052  2657                      Move.L    (A7), A3
11054  4878 03F8                 Pea.L     (DSAlertRect)
11058  A8DF                      _RectRgn
1105A  2F0B                      Move.L    A3, -(A7)
1105C  A90D                      _PaintBehind
1105E  2F0B                      Move.L    A3, -(A7)
11060  A8D9                      _DisposeRgn
11062  A873                      _SetPort
11064  426E 000E      L2639:     Clr       $E(A6)
11068  266E 0008                 Move.L    $8(A6), A3
1106C  302E 000C                 Move      $C(A6), D0
11070  204B                      Move.L    A3, A0
11072  6100 00CE                 Bsr       P429
11076  6706                      BEQ.B     L2640
11078  522E 000E                 AddQ      #$1, $E(A6)
1107C  6036                      Bra.B     L2644
1107E  302E 000C      L2640:     Move      $C(A6), D0
11082  204B                      Move.L    A3, A0
11084  4A43                      Tst       D3
11086  6A04                      BPL.B     L2641
11088  A030                      _OSEventAvail
1108A  6002                      Bra.B     L2642
1108C  A031           L2641:     _GetOSEvent
1108E  224B           L2642:     Move.L    A3, A1
11090  7204                      MoveQ.L   #$4, D1
11092  6100 FED4                 Bsr       P427
11096  4A53                      Tst       (A3)
11098  6706                      BEQ.B     L2643
1109A  522E 000E                 AddQ      #$1, $E(A6)
1109E  6014                      Bra.B     L2644
110A0  302E 000C      L2643:     Move      $C(A6), D0
110A4  0800 0006                 BTst.B    #$6, D0
110A8  670A                      BEQ.B     L2644
110AA  4267                      Clr       -(A7)
110AC  2F0B                      Move.L    A3, -(A7)
110AE  A911                      _CheckUpDate
110B0  3D5F 000E                 Move      (A7)+, $E(A6)
110B4  4A43           L2644:     Tst       D3
110B6  6B74                      BMI.B     L2649
110B8  4A6E 000E                 Tst       $E(A6)
110BC  676E                      BEQ.B     L2649
110BE  4A38 015C                 Tst.B     (SEvtEnb)
110C2  670A                      BEQ.B     L2645
110C4  554F                      SubQ      #$2, A7
110C6  2F0B                      Move.L    A3, -(A7)
110C8  A9B2                      _SystemEvent
110CA  4A5F                      Tst       (A7)+
110CC  665A                      BNE.B     L2648
110CE  720B           L2645:     MoveQ.L   #$B, D1
110D0  C22B 000E                 And.B     $E(A3), D1
110D4  5701                      SubQ      #$3, D1
110D6  6654                      BNE.B     L2649
110D8  122B 0005                 Move.B    $5(A3), D1
110DC  0C01 000A                 Cmp.B     #$A, D1
110E0  644A                      BCC.B     L2649
110E2  3013                      Move      (A3), D0
110E4  5940                      SubQ      #$4, D0
110E6  673E                      BEQ.B     L2647
110E8  5240                      AddQ      #$1, D0
110EA  6640                      BNE.B     L2649
110EC  594F                      SubQ      #$4, A7
110EE  2F3C 464B 4559            Move.L    #$464B4559, -(A7)
110F4  3F01                      Move      D1, -(A7)
110F6  A9A0                      _GetResource
110F8  201F                      Move.L    (A7)+, D0
110FA  6614                      BNE.B     L2646
110FC  4A41                      Tst       D1
110FE  6726                      BEQ.B     L2647
11100  0C41 0002                 Cmp       #$2, D1
11104  6E20                      BGT.B     L2647
11106  7401                      MoveQ.L   #$1, D2
11108  4EB9 0040 001E            Jsr       ($40001E)
1110E  6016                      Bra.B     L2647
11110  2040           L2646:     Move.L    D0, A0
11112  2010                      Move.L    (A0), D0
11114  6710                      BEQ.B     L2647
11116  08D0 0007                 BSet.B    #$7, (A0)
1111A  2F08                      Move.L    A0, -(A7)
1111C  2050                      Move.L    (A0), A0
1111E  4E90                      Jsr       (A0)
11120  205F                      Move.L    (A7)+, A0
11122  0890 0007                 BClr.B    #$7, (A0)
11126  4253           L2647:     Clr       (A3)
11128  426E 000E      L2648:     Clr       $E(A6)
1112C  4A53           L2649:     Tst       (A3)
1112E  6606                      BNE.B     L2650
11130  4878 09FA                 Pea.L     (scratch8)
11134  A972                      _GetMouse
11136  4CDF 0808      L2650:     MoveM.L   (A7)+, D3/A3
1113A  4E5E                      Unlk      A6
1113C  205F                      Move.L    (A7)+, A0
1113E  5C4F                      AddQ      #$6, A7
11140  4ED0                      Jmp       (A0)

                      P429:
11142  0800 0008                 BTst.B    #$8, D0
11146  6754                      BEQ.B     L2654
11148  2238 0A68                 Move.L    (CurDeactive), D1
1114C  6E5A                      BGT.B     L2656
1114E  2238 0A64                 Move.L    (CurActivate), D1
11152  6F48                      BLE.B     L2654
11154  7401                      MoveQ.L   #$1, D2
11156  7000           L2651:     MoveQ.L   #$0, D0
11158  A030                      _OSEventAvail
1115A  30FC 0008                 Move      #$8, (A0)+
1115E  2081                      Move.L    D1, (A0)
11160  2038 0A68                 Move.L    (CurDeactive), D0
11164  6716                      BEQ.B     L2652
11166  3038 0A22                 Move      (CurDeKind), D0
1116A  2238 0A64                 Move.L    (CurActivate), D1
1116E  670C                      BEQ.B     L2652
11170  2041                      Move.L    D1, A0
11172  3228 006C                 Move      $6C(A0), D1
11176  B141                      Eor       D0, D1
11178  6A02                      BPL.B     L2652
1117A  5442                      AddQ      #$2, D2
1117C  302B 000E      L2652:     Move      $E(A3), D0
11180  0240 FFFC                 And       #$-4, D0
11184  8042                      Or        D2, D0
11186  3740 000E                 Move      D0, $E(A3)
1118A  4A43                      Tst       D3
1118C  660A                      BNE.B     L2653
1118E  E248                      LsR       #$1, D0
11190  640E                      BCC.B     L2655
11192  08F8 0007 0A64            BSet.B    #$7, (CurActivate)
11198  72FF           L2653:     MoveQ.L   #$-1, D1
1119A  4E75                      Rts
1119C  7200           L2654:     MoveQ.L   #$0, D1
1119E  4E75                      Rts
111A0  08F8 0007 0A68 L2655:     BSet.B    #$7, (CurDeactive)
111A6  60F0                      Bra.B     L2653
111A8  4242           L2656:     Clr       D2
111AA  60AA                      Bra.B     L2651

                      P_tNewString:
111AC  610A                      Bsr.B     P430
111AE  A9E3                      _PtrToHand
111B0  2F48 0008                 Move.L    A0, $8(A7)
111B4  2E9F                      Move.L    (A7)+, (A7)
111B6  4E75                      Rts

                      P430:
111B8  206F 0008                 Move.L    $8(A7), A0
111BC  7000                      MoveQ.L   #$0, D0
111BE  1010                      Move.B    (A0), D0
111C0  5240                      AddQ      #$1, D0
111C2  4E75                      Rts

                      P_tSetString:
111C4  226F 0008                 Move.L    $8(A7), A1
111C8  61EE                      Bsr.B     P430
111CA  A9E2                      _PtrToXHand
111CC  604C                      Bra.B     L2661

                      P431:
111CE  2F00                      Move.L    D0, -(A7)
111D0  2278 09D6                 Move.L    (WindowList), A1
111D4  91C8                      SubA.L    A0, A0
111D6  B3D7           L2657:     CmpA.L    (A7), A1
111D8  670A                      BEQ.B     L2658
111DA  2049                      Move.L    A1, A0
111DC  2268 0090                 Move.L    $90(A0), A1
111E0  2009                      Move.L    A1, D0
111E2  66F2                      BNE.B     L2657
111E4  201F           L2658:     Move.L    (A7)+, D0
111E6  4E75                      Rts

                      P432:
111E8  222F 0008                 Move.L    $8(A7), D1
111EC  2241                      Move.L    D1, A1
111EE  42A9 0090                 Clr.L     $90(A1)
111F2  4AB8 09D6                 Tst.L     (WindowList)
111F6  6606                      BNE.B     L2659
111F8  21C1 09D6                 Move.L    D1, (WindowList)
111FC  601C                      Bra.B     L2661
111FE  202F 0004      L2659:     Move.L    $4(A7), D0
11202  670E                      BEQ.B     L2660
11204  2040                      Move.L    D0, A0
11206  2368 0090 0090            Move.L    $90(A0), $90(A1)
1120C  2149 0090                 Move.L    A1, $90(A0)
11210  6008                      Bra.B     L2661
11212  7000           L2660:     MoveQ.L   #$0, D0
11214  61B8                      Bsr.B     P431
11216  2141 0090                 Move.L    D1, $90(A0)
1121A  205F           L2661:     Move.L    (A7)+, A0
1121C  504F                      AddQ      #$8, A7
1121E  4ED0                      Jmp       (A0)

                      P_mDeleteWindow:
11220  202F 0004                 Move.L    $4(A7), D0
11224  61A8                      Bsr.B     P431
11226  2208                      Move.L    A0, D1
11228  6604                      BNE.B     L2662
1122A  41F8 0946                 Lea.L     (ChooserBits), A0
1122E  2240           L2662:     Move.L    D0, A1
11230  2169 0090 0090            Move.L    $90(A1), $90(A0)
11236  601E                      Bra.B     L2664

                      P_tCalcVis:
11238  48E7 0830                 MoveM.L   D4/A2-A3, -(A7)
1123C  202F 0010                 Move.L    $10(A7), D0
11240  6710                      BEQ.B     L2663
11242  2440                      Move.L    D0, A2
11244  282A 0018                 Move.L    $18(A2), D4
11248  4A2A 006E                 Tst.B     $6E(A2)
1124C  660C                      BNE.B     L2666
1124E  2F04                      Move.L    D4, -(A7)
11250  A8DD                      _SetEmptyRgn
11252  4CDF 0C10      L2663:     MoveM.L   (A7)+, D4/A2-A3
11256  2E9F           L2664:     Move.L    (A7)+, (A7)
11258  4E75           L2665:     Rts
1125A  2F38 09EE      L2666:     Move.L    (GrayRgn), -(A7)
1125E  2F2A 0076                 Move.L    $76(A2), -(A7)
11262  2F04                      Move.L    D4, -(A7)
11264  A8E4                      _SectRgn
11266  610A                      Bsr.B     P434
11268  2F04                      Move.L    D4, -(A7)
1126A  2F2A 0008                 Move.L    $8(A2), -(A7)
1126E  A8E0                      _OffsetRgn
11270  60E0                      Bra.B     L2663

                      P434:
11272  2678 09D6                 Move.L    (WindowList), A3
11276  B7CA           L2667:     CmpA.L    A2, A3
11278  67DE                      BEQ.B     L2665
1127A  4A2B 006E                 Tst.B     $6E(A3)
1127E  670A                      BEQ.B     L2668
11280  2F04                      Move.L    D4, -(A7)
11282  2F2B 0072                 Move.L    $72(A3), -(A7)
11286  2F04                      Move.L    D4, -(A7)
11288  A8E6                      _DiffRgn
1128A  266B 0090      L2668:     Move.L    $90(A3), A3
1128E  60E6                      Bra.B     L2667

                      P_tCalcVBehind:
11290  2F0A                      Move.L    A2, -(A7)
11292  202F 000C                 Move.L    $C(A7), D0
11296  6736                      BEQ.B     L2671
11298  2440                      Move.L    D0, A2
1129A  2F0A           L2669:     Move.L    A2, -(A7)
1129C  619A                      Bsr.B     P_tCalcVis
1129E  246A 0090      L2670:     Move.L    $90(A2), A2
112A2  200A                      Move.L    A2, D0
112A4  6728                      BEQ.B     L2671
112A6  4A2A 006E                 Tst.B     $6E(A2)
112AA  67F2                      BEQ.B     L2670
112AC  554F                      SubQ      #$2, A7
112AE  206A 0076                 Move.L    $76(A2), A0
112B2  2050                      Move.L    (A0), A0
112B4  4868 0002                 Pea.L     $2(A0)
112B8  206F 000E                 Move.L    $E(A7), A0
112BC  2050                      Move.L    (A0), A0
112BE  4868 0002                 Pea.L     $2(A0)
112C2  4878 09CE                 Pea.L     (ToolScratch)
112C6  A8AA                      _SectRect
112C8  4A1F                      Tst.B     (A7)+
112CA  67D2                      BEQ.B     L2670
112CC  60CC                      Bra.B     L2669
112CE  245F           L2671:     Move.L    (A7)+, A2
112D0  6000 FF48                 Bra       L2661

                      P_tClipAbove:
112D4  48E7 0830                 MoveM.L   D4/A2-A3, -(A7)
112D8  2078 09DE                 Move.L    (WMgrPort), A0
112DC  2828 001C                 Move.L    $1C(A0), D4
112E0  246F 0010                 Move.L    $10(A7), A2
112E4  2F04                      Move.L    D4, -(A7)
112E6  2F38 09EE                 Move.L    (GrayRgn), -(A7)
112EA  2F04                      Move.L    D4, -(A7)
112EC  A8E4                      _SectRgn
112EE  6182                      Bsr.B     P434
112F0  4CDF 0C10                 MoveM.L   (A7)+, D4/A2-A3
112F4  2E9F                      Move.L    (A7)+, (A7)
112F6  4E75                      Rts

                      P_tPaintOne:
112F8  48E7 1830                 MoveM.L   D3-D4/A2-A3, -(A7)
112FC  246F 0018                 Move.L    $18(A7), A2
11300  6166                      Bsr.B     P435
11302  200A                      Move.L    A2, D0
11304  6610                      BNE.B     L2673
11306  2F2F 0014                 Move.L    $14(A7), -(A7)
1130A  A879                      _SetClip
1130C  6178                      Bsr.B     P437
1130E  4CDF 0C18      L2672:     MoveM.L   (A7)+, D3-D4/A2-A3
11312  6000 FF06                 Bra       L2661
11316  4A2A 006E      L2673:     Tst.B     $6E(A2)
1131A  67F2                      BEQ.B     L2672
1131C  2F2F 0014                 Move.L    $14(A7), -(A7)
11320  2F2A 0072                 Move.L    $72(A2), -(A7)
11324  2F03                      Move.L    D3, -(A7)
11326  A8E4                      _SectRgn
11328  614C                      Bsr.B     P436
1132A  2F0A                      Move.L    A2, -(A7)
1132C  61A6                      Bsr.B     P_tClipAbove
1132E  6146                      Bsr.B     P436
11330  264A                      Move.L    A2, A3
11332  6100 0726                 Bsr       P450
11336  6100 00CA                 Bsr       P438
1133A  265F                      Move.L    (A7)+, A3
1133C  2F2A 0076                 Move.L    $76(A2), -(A7)
11340  2F03                      Move.L    D3, -(A7)
11342  2F0B                      Move.L    A3, -(A7)
11344  A8E4                      _SectRgn
11346  4A38 09DC                 Tst.B     (PaintWhite)
1134A  6704                      BEQ.B     L2674
1134C  2F0B                      Move.L    A3, -(A7)
1134E  A8D4                      _EraseRgn
11350  4A38 09DA      L2674:     Tst.B     (SaveUpdate)
11354  670C                      BEQ.B     L2675
11356  2F2A 007A                 Move.L    $7A(A2), -(A7)
1135A  2F0B                      Move.L    A3, -(A7)
1135C  2F2A 007A                 Move.L    $7A(A2), -(A7)
11360  A8E5                      _UnionRgn
11362  2F0B           L2675:     Move.L    A3, -(A7)
11364  A8D9                      _DisposeRgn
11366  60A6                      Bra.B     L2672

                      P435:
11368  6100 0164                 Bsr       P_mGetSetWPort
1136C  2678 09DE                 Move.L    (WMgrPort), A3
11370  262B 001C                 Move.L    $1C(A3), D3
11374  4E75                      Rts

                      P436:
11376  554F                      SubQ      #$2, A7
11378  2F03                      Move.L    D3, -(A7)
1137A  A8E2                      _EmptyRgn
1137C  4A1F                      Tst.B     (A7)+
1137E  6602                      BNE.B     L2676
11380  4E75                      Rts
11382  584F           L2676:     AddQ      #$4, A7
11384  6088                      Bra.B     L2672

                      P437:
11386  42A7                      Clr.L     -(A7)
11388  A90B                      _ClipAbove
1138A  2038 0A6C                 Move.L    (DeskHook), D0
1138E  6706                      BEQ.B     L2677
11390  2040                      Move.L    D0, A0
11392  7000                      MoveQ.L   #$0, D0
11394  4ED0                      Jmp       (A0)
11396  486B 0010      L2677:     Pea.L     $10(A3)
1139A  4878 0A3C                 Pea.L     (DeskPattern)
1139E  A8A5                      _FillRect
113A0  4E75                      Rts

                      P_tPaintBehind:
113A2  48E7 1830                 MoveM.L   D3-D4/A2-A3, -(A7)
113A6  61C0                      Bsr.B     P435
113A8  2F2F 0014                 Move.L    $14(A7), -(A7)
113AC  2F03                      Move.L    D3, -(A7)
113AE  A8DC                      _CopyRgn
113B0  6150                      Bsr.B     P438
113B2  281F                      Move.L    (A7)+, D4
113B4  246F 0018                 Move.L    $18(A7), A2
113B8  2F0A                      Move.L    A2, -(A7)
113BA  A90B                      _ClipAbove
113BC  2F03                      Move.L    D3, -(A7)
113BE  2F04                      Move.L    D4, -(A7)
113C0  A8DC                      _CopyRgn
113C2  61C2                      Bsr.B     P437
113C4  2F04                      Move.L    D4, -(A7)
113C6  2F03                      Move.L    D3, -(A7)
113C8  2F04                      Move.L    D4, -(A7)
113CA  A8E6                      _DiffRgn
113CC  486B 0010                 Pea.L     $10(A3)
113D0  A87B                      _ClipRect
113D2  2F04                      Move.L    D4, -(A7)
113D4  A8D4                      _EraseRgn
113D6  2F04                      Move.L    D4, -(A7)
113D8  A8D9                      _DisposeRgn
113DA  4278 09DC                 Clr       (PaintWhite)
113DE  200A           L2678:     Move.L    A2, D0
113E0  6714                      BEQ.B     L2680
113E2  4A2A 006E                 Tst.B     $6E(A2)
113E6  6708                      BEQ.B     L2679
113E8  2F0A                      Move.L    A2, -(A7)
113EA  2F2F 0018                 Move.L    $18(A7), -(A7)
113EE  A90C                      _PaintOne
113F0  246A 0090      L2679:     Move.L    $90(A2), A2
113F4  60E8                      Bra.B     L2678
113F6  50F8 09DC      L2680:     ST.B      (PaintWhite)
113FA  4CDF 0C18                 MoveM.L   (A7)+, D3-D4/A2-A3
113FE  6000 FE1A                 Bra       L2661

                      P438:
11402  594F                      SubQ      #$4, A7
11404  A8D8                      _NewRgn
11406  206F 0004                 Move.L    $4(A7), A0
1140A  2E9F                      Move.L    (A7)+, (A7)
1140C  4ED0                      Jmp       (A0)

                      P_tSaveOld:
1140E  48E7 1820                 MoveM.L   D3-D4/A2, -(A7)
11412  61EE                      Bsr.B     P438
11414  261F                      Move.L    (A7)+, D3
11416  61EA                      Bsr.B     P438
11418  281F                      Move.L    (A7)+, D4
1141A  246F 0010                 Move.L    $10(A7), A2
1141E  2F2A 0072                 Move.L    $72(A2), -(A7)
11422  2F03                      Move.L    D3, -(A7)
11424  A8DC                      _CopyRgn
11426  2F2A 0076                 Move.L    $76(A2), -(A7)
1142A  2F04                      Move.L    D4, -(A7)
1142C  A8DC                      _CopyRgn
1142E  48F8 0018 09E6            MoveM.L   D3-D4, (OldStructure)
11434  4CDF 0418                 MoveM.L   (A7)+, D3-D4/A2
11438  2E9F                      Move.L    (A7)+, (A7)
1143A  4E75                      Rts

                      P_tDrawNew:
1143C  48E7 1820                 MoveM.L   D3-D4/A2, -(A7)
11440  246F 0012                 Move.L    $12(A7), A2
11444  4CF8 0018 09E6            MoveM.L   (OldStructure), D3-D4
1144A  4A2A 006E                 Tst.B     $6E(A2)
1144E  6714                      BEQ.B     L2681
11450  2F2A 0072                 Move.L    $72(A2), -(A7)
11454  2F03                      Move.L    D3, -(A7)
11456  2F03                      Move.L    D3, -(A7)
11458  A8E7                      _XOrRgn
1145A  2F2A 0076                 Move.L    $76(A2), -(A7)
1145E  2F04                      Move.L    D4, -(A7)
11460  2F04                      Move.L    D4, -(A7)
11462  A8E7                      _XOrRgn
11464  2F04           L2681:     Move.L    D4, -(A7)
11466  2F03                      Move.L    D3, -(A7)
11468  2F03                      Move.L    D3, -(A7)
1146A  A8E5                      _UnionRgn
1146C  11EF 0010 09DA            Move.B    $10(A7), (SaveUpdate)
11472  2F0A                      Move.L    A2, -(A7)
11474  2F03                      Move.L    D3, -(A7)
11476  A90C                      _PaintOne
11478  50F8 09DA                 ST.B      (SaveUpdate)
1147C  2F2A 0090                 Move.L    $90(A2), -(A7)
11480  2F03                      Move.L    D3, -(A7)
11482  A90D                      _PaintBehind
11484  2F0A                      Move.L    A2, -(A7)
11486  2F03                      Move.L    D3, -(A7)
11488  A90A                      _CalcVBehind
1148A  2F03                      Move.L    D3, -(A7)
1148C  A8D9                      _DisposeRgn
1148E  2F04                      Move.L    D4, -(A7)
11490  A8D9                      _DisposeRgn
11492  4CDF 0418                 MoveM.L   (A7)+, D3-D4/A2
11496  205F           L2682:     Move.L    (A7)+, A0
11498  5C4F                      AddQ      #$6, A7
1149A  4ED0                      Jmp       (A0)

                      P_tShowHide:
1149C  48E7 1850                 MoveM.L   D3-D4/A1/A3, -(A7)
114A0  266F 0016                 Move.L    $16(A7), A3
114A4  162F 0014                 Move.B    $14(A7), D3
114A8  102B 006E                 Move.B    $6E(A3), D0
114AC  B700                      Eor.B     D3, D0
114AE  E248                      LsR       #$1, D0
114B0  6416                      BCC.B     L2683
114B2  611A                      Bsr.B     P_mGetSetWPort
114B4  2F0B                      Move.L    A3, -(A7)
114B6  A90E                      _SaveOld
114B8  1743 006E                 Move.B    D3, $6E(A3)
114BC  6100 05AA                 Bsr       P451
114C0  2F0B                      Move.L    A3, -(A7)
114C2  50E7                      ST.B      -(A7)
114C4  A90F                      _DrawNew
114C6  6110                      Bsr.B     P_mRestorePort
114C8  4CDF 0A18      L2683:     MoveM.L   (A7)+, D3-D4/A1/A3
114CC  60C8                      Bra.B     L2682

                      P_mGetSetWPort:
114CE  2055                      Move.L    (A5), A0
114D0  2810                      Move.L    (A0), D4
114D2  20B8 09DE                 Move.L    (WMgrPort), (A0)
114D6  4E75                      Rts

                      P_mRestorePort:
114D8  2F04                      Move.L    D4, -(A7)
114DA  A873                      _SetPort
114DC  4E75                      Rts

                      P_tGetWMgrPort:
114DE  225F                      Move.L    (A7)+, A1
114E0  205F                      Move.L    (A7)+, A0
114E2  20B8 09DE                 Move.L    (WMgrPort), (A0)
114E6  4ED1                      Jmp       (A1)

                      P_tCheckUpDate:
114E8  4E56 FFF8                 Link      A6, #$-8
114EC  2F0B                      Move.L    A3, -(A7)
114EE  426E 000C                 Clr       $C(A6)
114F2  594F                      SubQ      #$4, A7
114F4  2F0F                      Move.L    A7, -(A7)
114F6  A874                      _GetPort
114F8  2038 09D6                 Move.L    (WindowList), D0
114FC  6758                      BEQ.B     L2686
114FE  2640           L2684:     Move.L    D0, A3
11500  4A2B 006E                 Tst.B     $6E(A3)
11504  674A                      BEQ.B     L2685
11506  554F                      SubQ      #$2, A7
11508  2F2B 007A                 Move.L    $7A(A3), -(A7)
1150C  A8E2                      _EmptyRgn
1150E  4A1F                      Tst.B     (A7)+
11510  663E                      BNE.B     L2685
11512  4AAB 0094                 Tst.L     $94(A3)
11516  6748                      BEQ.B     L2687
11518  2F0B                      Move.L    A3, -(A7)
1151A  A873                      _SetPort
1151C  594F                      SubQ      #$4, A7
1151E  A8D8                      _NewRgn
11520  2D57 FFFC                 Move.L    (A7), $-4(A6)
11524  A87A                      _GetClip
11526  2F2B 001C                 Move.L    $1C(A3), -(A7)
1152A  486B 0010                 Pea.L     $10(A3)
1152E  A8DF                      _RectRgn
11530  2F0B                      Move.L    A3, -(A7)
11532  A922                      _BeginUpDate
11534  206B 0094                 Move.L    $94(A3), A0
11538  2F08                      Move.L    A0, -(A7)
1153A  2050                      Move.L    (A0), A0
1153C  4868 0002                 Pea.L     $2(A0)
11540  A8F6                      _DrawPicture
11542  2F0B                      Move.L    A3, -(A7)
11544  A923                      _EndUpDate
11546  2F2E FFFC                 Move.L    $-4(A6), -(A7)
1154A  2F17                      Move.L    (A7), -(A7)
1154C  A879                      _SetClip
1154E  A8D9                      _DisposeRgn
11550  202B 0090      L2685:     Move.L    $90(A3), D0
11554  66A8                      BNE.B     L2684
11556  A873           L2686:     _SetPort
11558  265F                      Move.L    (A7)+, A3
1155A  4E5E                      Unlk      A6
1155C  2E9F                      Move.L    (A7)+, (A7)
1155E  4E75                      Rts
11560  206E 0008      L2687:     Move.L    $8(A6), A0
11564  30FC 0006                 Move      #$6, (A0)+
11568  208B                      Move.L    A3, (A0)
1156A  522E 000C                 AddQ      #$1, $C(A6)
1156E  60E6                      Bra.B     L2686

                      P441:
11570  706C                      MoveQ.L   #$6C, D0

                      P442:
11572  A11E                      _NewPtr

                      P443:
11574  2648                      Move.L    A0, A3
11576  2F08                      Move.L    A0, -(A7)
11578  A86F                      _OpenPort
1157A  4E75                      Rts

                      P_tInitWindows:
1157C  48E7 1C18                 MoveM.L   D3-D5/A3-A4, -(A7)
11580  7007                      MoveQ.L   #$7, D0
11582  01F8 015D                 BSet.L    D0, (DSWndUpdate)
11586  01F8 021F                 BSet.L    D0, (AlarmState)
1158A  4238 08F2                 Clr.B     (WWExist)
1158E  21F8 0A06 09DA            Move.L    (MinusOne), (SaveUpdate)
11594  594F                      SubQ      #$4, A7
11596  3F3C 0010                 Move      #$10, -(A7)
1159A  A9B8                      _GetPattern
1159C  205F                      Move.L    (A7)+, A0
1159E  2050                      Move.L    (A0), A0
115A0  21D8 0A3C                 Move.L    (A0)+, (DeskPattern)
115A4  21D0 0A40                 Move.L    (A0), (DeskPattern.1)
115A8  61C6                      Bsr.B     P441
115AA  21CB 09DE                 Move.L    A3, (WMgrPort)
115AE  41EB 0010                 Lea.L     $10(A3), A0
115B2  2F08                      Move.L    A0, -(A7)
115B4  2F08                      Move.L    A0, -(A7)
115B6  49F8 09FA                 Lea.L     (scratch8), A4
115BA  224C                      Move.L    A4, A1
115BC  22D8                      Move.L    (A0)+, (A1)+
115BE  2290                      Move.L    (A0), (A1)
115C0  2F0C                      Move.L    A4, -(A7)
115C2  2F3C FFFD FFFD            Move.L    #$FFFDFFFD, -(A7)
115C8  A8A9                      _InsetRect
115CA  2F3C 0003 0003            Move.L    #$30003, -(A7)
115D0  A89B                      _PenSize
115D2  2F0C                      Move.L    A4, -(A7)
115D4  2F3C 0016 0016            Move.L    #$160016, -(A7)
115DA  A8B0                      _FrameRoundRect
115DC  A89E                      _PenNormal
115DE  4EBA 0BDE                 Jsr       P_mCalcMBHeight
115E2  4EBA 0D34                 Jsr       P472
115E6  6100 FE1A                 Bsr       P438
115EA  2A1F                      Move.L    (A7)+, D5
115EC  21C5 09EE                 Move.L    D5, (GrayRgn)
115F0  A896                      _HidePen
115F2  A8DA                      _OpenRgn
115F4  2F3C 0010 0010            Move.L    #$100010, -(A7)
115FA  A8B0                      _FrameRoundRect
115FC  2F05                      Move.L    D5, -(A7)
115FE  A8DB                      _CloseRgn
11600  A897                      _ShowPen
11602  2F05                      Move.L    D5, -(A7)
11604  2F2B 001C                 Move.L    $1C(A3), -(A7)
11608  2F05                      Move.L    D5, -(A7)
1160A  A8E6                      _DiffRgn
1160C  2F05                      Move.L    D5, -(A7)
1160E  A879                      _SetClip
11610  4878 0A3C                 Pea.L     (DeskPattern)
11614  A8A5                      _FillRect
11616  A853                      _ShowCursor
11618  42B8 09D6                 Clr.L     (WindowList)
1161C  6100 FDE4                 Bsr       P438
11620  21DF 09F2                 Move.L    (A7)+, (SaveVisRgn)
11624  42B8 0A84                 Clr.L     (GhostWindow)
11628  41F8 0A64                 Lea.L     (CurActivate), A0
1162C  4298                      Clr.L     (A0)+
1162E  4298                      Clr.L     (A0)+
11630  4CDF 1838                 MoveM.L   (A7)+, D3-D5/A3-A4
11634  4E75                      Rts
11636  C0B8 031A      L2688:     And.L     (Lo3Bytes), D0
1163A  2040                      Move.L    D0, A0
1163C  6100 FF36                 Bsr       P443
11640  601C                      Bra.B     L2689

                      P_tNewWindow:
11642  4E56 0000                 Link      A6, #$0
11646  48E7 1C38                 MoveM.L   D3-D5/A2-A4, -(A7)
1164A  6100 FE82                 Bsr       P_mGetSetWPort
1164E  202E 001E                 Move.L    $1E(A6), D0
11652  66E2                      BNE.B     L2688
11654  7000                      MoveQ.L   #$0, D0
11656  303C 009C                 Move      #$9C, D0
1165A  6100 FF16                 Bsr       P442
1165E  2D4B 0022      L2689:     Move.L    A3, $22(A6)
11662  377C 0001 0044            Move      #$1, $44(A3)
11668  246E 001A                 Move.L    $1A(A6), A2
1166C  2F12                      Move.L    (A2), -(A7)
1166E  A877                      _MovePortTo
11670  594F                      SubQ      #$4, A7
11672  2F2A 0004                 Move.L    $4(A2), -(A7)
11676  2F12                      Move.L    (A2), -(A7)
11678  6100 02AA                 Bsr       P_tDeltaPoint
1167C  A876                      _PortSize
1167E  2F38 09DE                 Move.L    (WMgrPort), -(A7)
11682  A873                      _SetPort
11684  45EB 006C                 Lea.L     $6C(A3), A2
11688  34FC 0008                 Move      #$8, (A2)+
1168C  4A2E 0014                 Tst.B     $14(A6)
11690  56DA                      SNE.B     (A2)+
11692  421A                      Clr.B     (A2)+
11694  4A2E 000C                 Tst.B     $C(A6)
11698  56DA                      SNE.B     (A2)+
1169A  421A                      Clr.B     (A2)+
1169C  7602                      MoveQ.L   #$2, D3
1169E  6100 FD62      L2690:     Bsr       P438
116A2  24DF                      Move.L    (A7)+, (A2)+
116A4  51CB FFF8                 DBF       D3, L2690
116A8  362E 0012                 Move      $12(A6), D3
116AC  E84B                      LsR       #$4, D3
116AE  594F           L2691:     SubQ      #$4, A7
116B0  2F3C 5744 4546            Move.L    #$57444546, -(A7)
116B6  3F03                      Move      D3, -(A7)
116B8  31FC FFFF 0B9E            Move      #$-1, (ROMMapInsert)
116BE  A9A0                      _GetResource
116C0  7600                      MoveQ.L   #$0, D3
116C2  249F                      Move.L    (A7)+, (A2)
116C4  67E8                      BEQ.B     L2691
116C6  760F                      MoveQ.L   #$F, D3
116C8  C66E 0012                 And       $12(A6), D3
116CC  1483                      Move.B    D3, (A2)
116CE  584A                      AddQ      #$4, A2
116D0  429A                      Clr.L     (A2)+
116D2  262E 0016                 Move.L    $16(A6), D3
116D6  42A7                      Clr.L     -(A7)
116D8  2F03                      Move.L    D3, -(A7)
116DA  A906                      _NewString
116DC  24DF                      Move.L    (A7)+, (A2)+
116DE  4267                      Clr       -(A7)
116E0  2F03                      Move.L    D3, -(A7)
116E2  A88C                      _StringWidth
116E4  34DF                      Move      (A7)+, (A2)+
116E6  429A                      Clr.L     (A2)+
116E8  429A                      Clr.L     (A2)+
116EA  429A                      Clr.L     (A2)+
116EC  24EE 0008                 Move.L    $8(A6), (A2)+
116F0  7003                      MoveQ.L   #$3, D0
116F2  6100 032C                 Bsr       P449
116F6  6100 0370                 Bsr       P451
116FA  2A2E 000E                 Move.L    $E(A6), D5
116FE  0805 0000                 BTst.B    #$0, D5
11702  6630                      BNE.B     L2693
11704  4AB8 09D6                 Tst.L     (WindowList)
11708  672A                      BEQ.B     L2693
1170A  2F0B                      Move.L    A3, -(A7)
1170C  2F05                      Move.L    D5, -(A7)
1170E  6100 FAD8                 Bsr       P432
11712  2F0B           L2692:     Move.L    A3, -(A7)
11714  2F2B 0072                 Move.L    $72(A3), -(A7)
11718  A90C                      _PaintOne
1171A  2F0B                      Move.L    A3, -(A7)
1171C  2F2B 0072                 Move.L    $72(A3), -(A7)
11720  A90A                      _CalcVBehind
11722  6100 FDB4                 Bsr       P_mRestorePort
11726  4CDF 1C38                 MoveM.L   (A7)+, D3-D5/A2-A4
1172A  4E5E                      Unlk      A6
1172C  205F                      Move.L    (A7)+, A0
1172E  DEFC 001A                 AddA      #$1A, A7
11732  4ED0                      Jmp       (A0)
11734  4A2B 006E      L2693:     Tst.B     $6E(A3)
11738  6716                      BEQ.B     L2695
1173A  594F                      SubQ      #$4, A7
1173C  A924                      _FrontWindow
1173E  201F                      Move.L    (A7)+, D0
11740  6704                      BEQ.B     L2694
11742  6100 00A2                 Bsr       P446
11746  177C 0001 006F L2694:     Move.B    #$1, $6F(A3)
1174C  21CB 0A64                 Move.L    A3, (CurActivate)
11750  2778 09D6 0090 L2695:     Move.L    (WindowList), $90(A3)
11756  21CB 09D6                 Move.L    A3, (WindowList)
1175A  60B6                      Bra.B     L2692

                      P444:
1175C  41F8 0A64                 Lea.L     (CurActivate), A0
11760  200B                      Move.L    A3, D0
11762  6102                      Bsr.B     P445
11764  5848                      AddQ      #$4, A0

                      P445:
11766  2210                      Move.L    (A0), D1
11768  B181                      Eor.L     D0, D1
1176A  C2B8 031A                 And.L     (Lo3Bytes), D1
1176E  6604                      BNE.B     L2696
11770  08D0 0007                 BSet.B    #$7, (A0)
11774  4E75           L2696:     Rts

                      P_tCloseWindow:
11776  48E7 1810                 MoveM.L   D3-D4/A3, -(A7)
1177A  266F 0010                 Move.L    $10(A7), A3
1177E  6100 FD4E                 Bsr       P_mGetSetWPort
11782  61D8                      Bsr.B     P444
11784  594F                      SubQ      #$4, A7
11786  A924                      _FrontWindow
11788  2F0B                      Move.L    A3, -(A7)
1178A  A956                      _KillControls
1178C  7004                      MoveQ.L   #$4, D0
1178E  6100 0290                 Bsr       P449
11792  2F0B                      Move.L    A3, -(A7)
11794  4267                      Clr       -(A7)
11796  A908                      _ShowHide
11798  2F0B                      Move.L    A3, -(A7)
1179A  6100 FA84                 Bsr       P_mDeleteWindow
1179E  206B 0086                 Move.L    $86(A3), A0
117A2  A023                      _DisposeHandle
117A4  2F2B 0072                 Move.L    $72(A3), -(A7)
117A8  A8D9                      _DisposeRgn
117AA  2F2B 0076                 Move.L    $76(A3), -(A7)
117AE  A8D9                      _DisposeRgn
117B0  2F2B 007A                 Move.L    $7A(A3), -(A7)
117B4  A8D9                      _DisposeRgn
117B6  2F0B                      Move.L    A3, -(A7)
117B8  A87D                      _ClosePort
117BA  202B 0094                 Move.L    $94(A3), D0
117BE  6704                      BEQ.B     L2697
117C0  2F00                      Move.L    D0, -(A7)
117C2  A8F5                      _KillPicture
117C4  B7DF           L2697:     CmpA.L    (A7)+, A3
117C6  660E                      BNE.B     L2698
117C8  31EB 006C 0A22            Move      $6C(A3), (CurDeKind)
117CE  594F                      SubQ      #$4, A7
117D0  A924                      _FrontWindow
117D2  6100 043C                 Bsr       P457
117D6  B7C4           L2698:     CmpA.L    D4, A3
117D8  6704                      BEQ.B     L2699
117DA  6100 FCFC                 Bsr       P_mRestorePort
117DE  4CDF 0818      L2699:     MoveM.L   (A7)+, D3-D4/A3
117E2  2E9F                      Move.L    (A7)+, (A7)
117E4  4E75                      Rts

                      P446:
117E6  2F00                      Move.L    D0, -(A7)
117E8  2F00                      Move.L    D0, -(A7)
117EA  4267                      Clr       -(A7)
117EC  A91C                      _HiliteWindow
117EE  201F                      Move.L    (A7)+, D0
117F0  4AB8 0A68                 Tst.L     (CurDeactive)
117F4  6E0C                      BGT.B     L2700
117F6  2040                      Move.L    D0, A0
117F8  31E8 006C 0A22            Move      $6C(A0), (CurDeKind)
117FE  21C0 0A68                 Move.L    D0, (CurDeactive)
11802  4E75           L2700:     Rts

                      P_tDisposeWindow:
11804  2F2F 0004                 Move.L    $4(A7), -(A7)
11808  A92D                      _CloseWindow
1180A  225F                      Move.L    (A7)+, A1
1180C  205F                      Move.L    (A7)+, A0
1180E  A01F                      _DisposePtr
11810  4ED1                      Jmp       (A1)

                      P_tShowWindow:
11812  2078 09D6                 Move.L    (WindowList), A0
11816  4A28 006E      L2701:     Tst.B     $6E(A0)
1181A  660E                      BNE.B     L2702
1181C  B1EF 0004                 CmpA.L    $4(A7), A0
11820  6712                      BEQ.B     L2703
11822  2068 0090                 Move.L    $90(A0), A0
11826  2008                      Move.L    A0, D0
11828  66EC                      BNE.B     L2701
1182A  225F           L2702:     Move.L    (A7)+, A1
1182C  1F3C 0001                 Move.B    #$1, -(A7)
11830  A908                      _ShowHide
11832  4ED1                      Jmp       (A1)
11834  2F08           L2703:     Move.L    A0, -(A7)
11836  A91F                      _SelectWindow
11838  60F0                      Bra.B     L2702

                      P_tHideWindow:
1183A  594F                      SubQ      #$4, A7
1183C  A924                      _FrontWindow
1183E  2F2F 0008                 Move.L    $8(A7), -(A7)
11842  4267                      Clr       -(A7)
11844  A908                      _ShowHide
11846  201F                      Move.L    (A7)+, D0
11848  B0AF 0004                 Cmp.L     $4(A7), D0
1184C  660E                      BNE.B     L2704
1184E  6196                      Bsr.B     P446
11850  594F                      SubQ      #$4, A7
11852  A924                      _FrontWindow
11854  21D7 0A64                 Move.L    (A7), (CurActivate)
11858  6706                      BEQ.B     L2705
1185A  A91F                      _SelectWindow
1185C  2E9F           L2704:     Move.L    (A7)+, (A7)
1185E  4E75                      Rts
11860  584F           L2705:     AddQ      #$4, A7
11862  60F8                      Bra.B     L2704

                      P_tGetWRefCon:
11864  323C 0098                 Move      #$98, D1
11868  205F           L2706:     Move.L    (A7)+, A0
1186A  225F                      Move.L    (A7)+, A1
1186C  2EB1 1000                 Move.L    $0(A1,D1.W), (A7)
11870  4ED0                      Jmp       (A0)

                      P_tSetWRefCon:
11872  323C 0098                 Move      #$98, D1
11876  205F           L2707:     Move.L    (A7)+, A0
11878  201F                      Move.L    (A7)+, D0
1187A  225F                      Move.L    (A7)+, A1
1187C  2380 1000                 Move.L    D0, $0(A1,D1.W)
11880  4ED0                      Jmp       (A0)

                      P_tSetWindowPic:
11882  323C 0094                 Move      #$94, D1
11886  60EE                      Bra.B     L2707

                      P_tGetWindowPic:
11888  323C 0094                 Move      #$94, D1
1188C  60DA                      Bra.B     L2706

                      P_tGetWTitle:
1188E  4CDF 0302                 MoveM.L   (A7)+, D1/A0-A1
11892  2269 0086                 Move.L    $86(A1), A1
11896  2251                      Move.L    (A1), A1
11898  7000                      MoveQ.L   #$0, D0
1189A  1011                      Move.B    (A1), D0
1189C  10D9           L2708:     Move.B    (A1)+, (A0)+
1189E  51C8 FFFC                 DBF       D0, L2708
118A2  2041                      Move.L    D1, A0
118A4  4ED0                      Jmp       (A0)

                      P_tSetWTitle:
118A6  48E7 1C30                 MoveM.L   D3-D5/A2-A3, -(A7)
118AA  2A2F 0018                 Move.L    $18(A7), D5
118AE  266F 001C                 Move.L    $1C(A7), A3
118B2  6100 FC1A                 Bsr       P_mGetSetWPort
118B6  206B 0072                 Move.L    $72(A3), A0
118BA  A9E1                      _HandToHand
118BC  2608                      Move.L    A0, D3
118BE  202B 0086                 Move.L    $86(A3), D0
118C2  6744                      BEQ.B     L2710
118C4  2F00                      Move.L    D0, -(A7)
118C6  2F05                      Move.L    D5, -(A7)
118C8  A907                      _SetString
118CA  554F                      SubQ      #$2, A7
118CC  2F05                      Move.L    D5, -(A7)
118CE  A88C                      _StringWidth
118D0  375F 008A                 Move      (A7)+, $8A(A3)
118D4  6100 0192                 Bsr       P451
118D8  4267                      Clr       -(A7)
118DA  2F2B 0072                 Move.L    $72(A3), -(A7)
118DE  2F03                      Move.L    D3, -(A7)
118E0  A8E3                      _EqualRgn
118E2  301F                      Move      (A7)+, D0
118E4  670A                      BEQ.B     L2709
118E6  6130                      Bsr.B     P447
118E8  2F0B                      Move.L    A3, -(A7)
118EA  2F03                      Move.L    D3, -(A7)
118EC  A90C                      _PaintOne
118EE  6018                      Bra.B     L2710
118F0  2F2B 0072      L2709:     Move.L    $72(A3), -(A7)
118F4  2F03                      Move.L    D3, -(A7)
118F6  2F03                      Move.L    D3, -(A7)
118F8  A8E5                      _UnionRgn
118FA  611C                      Bsr.B     P447
118FC  2F0B                      Move.L    A3, -(A7)
118FE  2F03                      Move.L    D3, -(A7)
11900  A90D                      _PaintBehind
11902  2F0B                      Move.L    A3, -(A7)
11904  2F03                      Move.L    D3, -(A7)
11906  A90A                      _CalcVBehind
11908  2F03           L2710:     Move.L    D3, -(A7)
1190A  A8D9                      _DisposeRgn
1190C  6100 FBCA                 Bsr       P_mRestorePort
11910  4CDF 0C38                 MoveM.L   (A7)+, D3-D5/A2-A3
11914  6000 F904      L2711:     Bra       L2661

                      P447:
11918  2F03                      Move.L    D3, -(A7)
1191A  2F2B 0076                 Move.L    $76(A3), -(A7)
1191E  2F03                      Move.L    D3, -(A7)
11920  A8E6                      _DiffRgn
11922  4E75                      Rts

                      P_tDeltaPoint:
11924  302F 0008                 Move      $8(A7), D0
11928  906F 0004                 Sub       $4(A7), D0
1192C  3F40 000C                 Move      D0, $C(A7)
11930  302F 000A                 Move      $A(A7), D0
11934  906F 0006                 Sub       $6(A7), D0
11938  3F40 000E                 Move      D0, $E(A7)
1193C  60D6                      Bra.B     L2711

                      P448:
1193E  2F0C                      Move.L    A4, -(A7)
11940  594F                      SubQ      #$4, A7
11942  2F00                      Move.L    D0, -(A7)
11944  594F                      SubQ      #$4, A7
11946  2F2B 0010                 Move.L    $10(A3), -(A7)
1194A  2F2B 0008                 Move.L    $8(A3), -(A7)
1194E  61D4                      Bsr.B     P_tDeltaPoint
11950  61D2                      Bsr.B     P_tDeltaPoint
11952  2617                      Move.L    (A7), D3
11954  A8E0                      _OffsetRgn
11956  2F2B 0076                 Move.L    $76(A3), -(A7)
1195A  2F03                      Move.L    D3, -(A7)
1195C  A8E0                      _OffsetRgn
1195E  2F2B 007A                 Move.L    $7A(A3), -(A7)
11962  2F03                      Move.L    D3, -(A7)
11964  A8E0                      _OffsetRgn
11966  486B 0008                 Pea.L     $8(A3)
1196A  2F03                      Move.L    D3, -(A7)
1196C  6100 0348                 Bsr       P459
11970  A8A8                      _OffsetRect
11972  4E75                      Rts

                      P_tMoveWindow:
11974  48E7 1E18                 MoveM.L   D3-D6/A3-A4, -(A7)
11978  6100 FB54                 Bsr       P_mGetSetWPort
1197C  266F 0022                 Move.L    $22(A7), A3
11980  6100 013C                 Bsr       P453
11984  6100 FA7C                 Bsr       P438
11988  2A1F                      Move.L    (A7)+, D5
1198A  286B 0072                 Move.L    $72(A3), A4
1198E  2F0C                      Move.L    A4, -(A7)
11990  2078 09DE                 Move.L    (WMgrPort), A0
11994  2F28 001C                 Move.L    $1C(A0), -(A7)
11998  2F05                      Move.L    D5, -(A7)
1199A  A8E4                      _SectRgn
1199C  204C                      Move.L    A4, A0
1199E  A9E1                      _HandToHand
119A0  2C08                      Move.L    A0, D6
119A2  202F 001E                 Move.L    $1E(A7), D0
119A6  6196                      Bsr.B     P448
119A8  2F05                      Move.L    D5, -(A7)
119AA  2F03                      Move.L    D3, -(A7)
119AC  A8E0                      _OffsetRgn
119AE  4A2F 001C                 Tst.B     $1C(A7)
119B2  6706                      BEQ.B     L2712
119B4  2F38 09EE                 Move.L    (GrayRgn), -(A7)
119B8  A879                      _SetClip
119BA  2078 09DE      L2712:     Move.L    (WMgrPort), A0
119BE  4868 0002                 Pea.L     $2(A0)
119C2  2F17                      Move.L    (A7), -(A7)
119C4  2046                      Move.L    D6, A0
119C6  2050                      Move.L    (A0), A0
119C8  4868 0002                 Pea.L     $2(A0)
119CC  2054                      Move.L    (A4), A0
119CE  4868 0002                 Pea.L     $2(A0)
119D2  4267                      Clr       -(A7)
119D4  2F05                      Move.L    D5, -(A7)
119D6  A8EC                      _CopyBits
119D8  2F0C                      Move.L    A4, -(A7)
119DA  2F05                      Move.L    D5, -(A7)
119DC  2F05                      Move.L    D5, -(A7)
119DE  A8E6                      _DiffRgn
119E0  2F2B 0090                 Move.L    $90(A3), -(A7)
119E4  2F06                      Move.L    D6, -(A7)
119E6  A90D                      _PaintBehind
119E8  4A2F 001C                 Tst.B     $1C(A7)
119EC  670A                      BEQ.B     L2713
119EE  2F0B                      Move.L    A3, -(A7)
119F0  50F8 0A44                 ST.B      (DragFlag)
119F4  6100 0202                 Bsr       P456
119F8  2F0B           L2713:     Move.L    A3, -(A7)
119FA  2F05                      Move.L    D5, -(A7)
119FC  A90C                      _PaintOne
119FE  2F06                      Move.L    D6, -(A7)
11A00  2F0C                      Move.L    A4, -(A7)
11A02  2F06                      Move.L    D6, -(A7)
11A04  A8E5                      _UnionRgn
11A06  2F0B                      Move.L    A3, -(A7)
11A08  2F06                      Move.L    D6, -(A7)
11A0A  A90A                      _CalcVBehind
11A0C  2F05                      Move.L    D5, -(A7)
11A0E  A8D9                      _DisposeRgn
11A10  2F06                      Move.L    D6, -(A7)
11A12  A8D9                      _DisposeRgn
11A14  6100 FAC2                 Bsr       P_mRestorePort
11A18  4CDF 1878                 MoveM.L   (A7)+, D3-D6/A3-A4
11A1C  6000 00DC                 Bra       L2718

                      P449:
11A20  42A7                      Clr.L     -(A7)
11A22  7200                      MoveQ.L   #$0, D1
11A24  122B 007E                 Move.B    $7E(A3), D1
11A28  3F01                      Move      D1, -(A7)
11A2A  2F0B                      Move.L    A3, -(A7)
11A2C  3F00                      Move      D0, -(A7)
11A2E  2F03                      Move.L    D3, -(A7)
11A30  206B 007E                 Move.L    $7E(A3), A0
11A34  2010                      Move.L    (A0), D0
11A36  660E                      BNE.B     L2714
11A38  2F08                      Move.L    A0, -(A7)
11A3A  4217                      Clr.B     (A7)
11A3C  31FC FFFF 0B9E            Move      #$-1, (ROMMapInsert)
11A42  A9A2                      _LoadResource
11A44  2010                      Move.L    (A0), D0
11A46  08D0 0007      L2714:     BSet.B    #$7, (A0)
11A4A  2040                      Move.L    D0, A0
11A4C  4E90                      Jsr       (A0)
11A4E  201F                      Move.L    (A7)+, D0
11A50  206B 007E                 Move.L    $7E(A3), A0
11A54  0890 0007                 BClr.B    #$7, (A0)
11A58  4E75                      Rts

                      P450:
11A5A  48E7 1000                 MoveM.L   D3, -(A7)
11A5E  7600                      MoveQ.L   #$0, D3
11A60  7000                      MoveQ.L   #$0, D0
11A62  61BC                      Bsr.B     P449
11A64  261F                      Move.L    (A7)+, D3
11A66  4E75                      Rts

                      P451:
11A68  7002                      MoveQ.L   #$2, D0
11A6A  4A2B 006E                 Tst.B     $6E(A3)
11A6E  66B0                      BNE.B     P449
11A70  2F2B 0072                 Move.L    $72(A3), -(A7)
11A74  A8DD                      _SetEmptyRgn
11A76  2F2B 0076                 Move.L    $76(A3), -(A7)
11A7A  A8DD                      _SetEmptyRgn
11A7C  2F2B 0018                 Move.L    $18(A3), -(A7)
11A80  A8DD                      _SetEmptyRgn
11A82  4E75                      Rts

                      P_tHiliteWindow:
11A84  48E7 1818                 MoveM.L   D3-D4/A3-A4, -(A7)
11A88  266F 0016                 Move.L    $16(A7), A3
11A8C  162F 0014                 Move.B    $14(A7), D3
11A90  6100 FA3C                 Bsr       P_mGetSetWPort
11A94  102B 006F                 Move.B    $6F(A3), D0
11A98  B740                      Eor       D3, D0
11A9A  E248                      LsR       #$1, D0
11A9C  6408                      BCC.B     L2715
11A9E  1743 006F                 Move.B    D3, $6F(A3)
11AA2  610E                      Bsr.B     P452
11AA4  61B4                      Bsr.B     P450
11AA6  6100 FA30      L2715:     Bsr       P_mRestorePort
11AAA  4CDF 1818                 MoveM.L   (A7)+, D3-D4/A3-A4
11AAE  6000 F9E6                 Bra       L2682

                      P452:
11AB2  2F2B 0072                 Move.L    $72(A3), -(A7)
11AB6  A879           L2716:     _SetClip
11AB8  2F0B                      Move.L    A3, -(A7)
11ABA  A90B                      _ClipAbove
11ABC  4E75                      Rts

                      P453:
11ABE  2F38 09EE                 Move.L    (GrayRgn), -(A7)
11AC2  60F2                      Bra.B     L2716

                      P_tSizeWindow:
11AC4  48E7 1818                 MoveM.L   D3-D4/A3-A4, -(A7)
11AC8  262F 0016                 Move.L    $16(A7), D3
11ACC  6728                      BEQ.B     L2717
11ACE  266F 001A                 Move.L    $1A(A7), A3
11AD2  382F 0016                 Move      $16(A7), D4
11AD6  49EB 0010                 Lea.L     $10(A3), A4
11ADA  D85C                      Add       (A4)+, D4
11ADC  D65C                      Add       (A4)+, D3
11ADE  38C4                      Move      D4, (A4)+
11AE0  38C3                      Move      D3, (A4)+
11AE2  4A2B 006E                 Tst.B     $6E(A3)
11AE6  670E                      BEQ.B     L2717
11AE8  6100 F9E4                 Bsr       P_mGetSetWPort
11AEC  2F0B                      Move.L    A3, -(A7)
11AEE  A90E                      _SaveOld
11AF0  162F 0014                 Move.B    $14(A7), D3
11AF4  610C                      Bsr.B     P454
11AF6  4CDF 1818      L2717:     MoveM.L   (A7)+, D3-D4/A3-A4
11AFA  205F           L2718:     Move.L    (A7)+, A0
11AFC  DEFC 000A                 AddA      #$A, A7
11B00  4ED0                      Jmp       (A0)

                      P454:
11B02  6100 FF64                 Bsr       P451
11B06  61AA                      Bsr.B     P452
11B08  6100 FF50                 Bsr       P450
11B0C  2F0B                      Move.L    A3, -(A7)
11B0E  1F03                      Move.B    D3, -(A7)
11B10  A90F                      _DrawNew
11B12  6100 F9C4                 Bsr       P_mRestorePort
11B16  4E75                      Rts

                      P_tZoomWindow:
11B18  48E7 1E38                 MoveM.L   D3-D6/A2-A4, -(A7)
11B1C  6100 F9B0                 Bsr       P_mGetSetWPort
11B20  266F 0024                 Move.L    $24(A7), A3
11B24  6100 FF42                 Bsr       P451
11B28  2F0B                      Move.L    A3, -(A7)
11B2A  A90E                      _SaveOld
11B2C  246B 0082                 Move.L    $82(A3), A2
11B30  2452                      Move.L    (A2), A2
11B32  0C6F 0007 0022            Cmp       #$7, $22(A7)
11B38  6702                      BEQ.B     L2719
11B3A  504A                      AddQ      #$8, A2
11B3C  286B 0072      L2719:     Move.L    $72(A3), A4
11B40  201A                      Move.L    (A2)+, D0
11B42  6100 FDFA                 Bsr       P448
11B46  301A                      Move      (A2)+, D0
11B48  321A                      Move      (A2)+, D1
11B4A  514A                      SubQ      #$8, A2
11B4C  905A                      Sub       (A2)+, D0
11B4E  925A                      Sub       (A2)+, D1
11B50  41EB 0010                 Lea.L     $10(A3), A0
11B54  D058                      Add       (A0)+, D0
11B56  D258                      Add       (A0)+, D1
11B58  30C0                      Move      D0, (A0)+
11B5A  30C1                      Move      D1, (A0)+
11B5C  7601                      MoveQ.L   #$1, D3
11B5E  61A2                      Bsr.B     P454
11B60  4A2F 0020                 Tst.B     $20(A7)
11B64  670A                      BEQ.B     L2720
11B66  2F0B                      Move.L    A3, -(A7)
11B68  50F8 0A44                 ST.B      (DragFlag)
11B6C  6100 008A                 Bsr       P456
11B70  486B 0010      L2720:     Pea.L     $10(A3)
11B74  A928                      _InvalRect
11B76  4CDF 1C78                 MoveM.L   (A7)+, D3-D6/A2-A4
11B7A  6000 F69E                 Bra       L2661

                      P_tTrackGoAway:
11B7E  205F                      Move.L    (A7)+, A0
11B80  3F3C 0006                 Move      #$6, -(A7)
11B84  2F08                      Move.L    A0, -(A7)

                      P_tTrackBox:
11B86  4E56 FFFC                 Link      A6, #$-4
11B8A  48E7 1E10                 MoveM.L   D3-D6/A3, -(A7)
11B8E  6100 F93E                 Bsr       P_mGetSetWPort
11B92  41EE 0008                 Lea.L     $8(A6), A0
11B96  3C18                      Move      (A0)+, D6
11B98  5546                      SubQ      #$2, D6
11B9A  2D58 FFFC                 Move.L    (A0)+, $-4(A6)
11B9E  2658                      Move.L    (A0)+, A3
11BA0  4250                      Clr       (A0)
11BA2  7A00                      MoveQ.L   #$0, D5
11BA4  6100 FF0C                 Bsr       P452
11BA8  7001           L2721:     MoveQ.L   #$1, D0
11BAA  262E FFFC                 Move.L    $-4(A6), D3
11BAE  6100 FE70                 Bsr       P449
11BB2  B046                      Cmp       D6, D0
11BB4  6702                      BEQ.B     L2722
11BB6  7000                      MoveQ.L   #$0, D0
11BB8  BA40           L2722:     Cmp       D0, D5
11BBA  6704                      BEQ.B     L2723
11BBC  3A00                      Move      D0, D5
11BBE  612A                      Bsr.B     P455
11BC0  486E FFFC      L2723:     Pea.L     $-4(A6)
11BC4  A972                      _GetMouse
11BC6  6100 0388                 Bsr       P460
11BCA  4267                      Clr       -(A7)
11BCC  A977                      _WaitMouseUp
11BCE  4A1F                      Tst.B     (A7)+
11BD0  66D6                      BNE.B     L2721
11BD2  4A45                      Tst       D5
11BD4  6706                      BEQ.B     L2724
11BD6  522E 0012                 AddQ      #$1, $12(A6)
11BDA  610E                      Bsr.B     P455
11BDC  6100 F8FA      L2724:     Bsr       P_mRestorePort
11BE0  4CDF 0878                 MoveM.L   (A7)+, D3-D6/A3
11BE4  4E5E                      Unlk      A6
11BE6  6000 FF12                 Bra       L2718

                      P455:
11BEA  7000                      MoveQ.L   #$0, D0
11BEC  3606                      Move      D6, D3
11BEE  6100 FE30                 Bsr       P449
11BF2  4E75                      Rts

                      P_tSelectWindow:
11BF4  4238 0A44                 Clr.B     (DragFlag)

                      P456:
11BF8  594F                      SubQ      #$4, A7
11BFA  A924                      _FrontWindow
11BFC  2F2F 0008                 Move.L    $8(A7), -(A7)
11C00  6126                      Bsr.B     P458
11C02  201F                      Move.L    (A7)+, D0
11C04  670A                      BEQ.B     P457
11C06  B0AF 0004                 Cmp.L     $4(A7), D0
11C0A  670E                      BEQ.B     L2725
11C0C  6100 FBD8                 Bsr       P446

                      P457:
11C10  202F 0004                 Move.L    $4(A7), D0
11C14  21C0 0A64                 Move.L    D0, (CurActivate)
11C18  6706                      BEQ.B     L2726
11C1A  2F00           L2725:     Move.L    D0, -(A7)
11C1C  50E7                      ST.B      -(A7)
11C1E  A91C                      _HiliteWindow
11C20  2E9F           L2726:     Move.L    (A7)+, (A7)
11C22  4E75                      Rts

                      P_tBringToFront:
11C24  4238 0A44                 Clr.B     (DragFlag)

                      P458:
11C28  48E7 1E38                 MoveM.L   D3-D6/A2-A4, -(A7)
11C2C  266F 0020                 Move.L    $20(A7), A3
11C30  6100 F89C                 Bsr       P_mGetSetWPort
11C34  45F8 09D6                 Lea.L     (WindowList), A2
11C38  B7D2                      CmpA.L    (A2), A3
11C3A  676E                      BEQ.B     L2731
11C3C  6100 F7C4                 Bsr       P438
11C40  261F                      Move.L    (A7)+, D3
11C42  2852                      Move.L    (A2), A4
11C44  B9CB           L2727:     CmpA.L    A3, A4
11C46  6738                      BEQ.B     L2729
11C48  4A2C 006E                 Tst.B     $6E(A4)
11C4C  672A                      BEQ.B     L2728
11C4E  2C2C 0008                 Move.L    $8(A4), D6
11C52  2A2C 0018                 Move.L    $18(A4), D5
11C56  2F05                      Move.L    D5, -(A7)
11C58  2F06                      Move.L    D6, -(A7)
11C5A  615A                      Bsr.B     P459
11C5C  A8E0                      _OffsetRgn
11C5E  2F05                      Move.L    D5, -(A7)
11C60  2F2B 0072                 Move.L    $72(A3), -(A7)
11C64  2F05                      Move.L    D5, -(A7)
11C66  A8E6                      _DiffRgn
11C68  2F05                      Move.L    D5, -(A7)
11C6A  2F06                      Move.L    D6, -(A7)
11C6C  A8E0                      _OffsetRgn
11C6E  2F2C 0072                 Move.L    $72(A4), -(A7)
11C72  2F03                      Move.L    D3, -(A7)
11C74  2F03                      Move.L    D3, -(A7)
11C76  A8E5                      _UnionRgn
11C78  286C 0090      L2728:     Move.L    $90(A4), A4
11C7C  200C                      Move.L    A4, D0
11C7E  66C4                      BNE.B     L2727
11C80  2F0B           L2729:     Move.L    A3, -(A7)
11C82  6100 F59C                 Bsr       P_mDeleteWindow
11C86  2752 0090                 Move.L    (A2), $90(A3)
11C8A  248B                      Move.L    A3, (A2)
11C8C  4A38 0A44                 Tst.B     (DragFlag)
11C90  6610                      BNE.B     L2730
11C92  2F2B 0072                 Move.L    $72(A3), -(A7)
11C96  2F03                      Move.L    D3, -(A7)
11C98  2F03                      Move.L    D3, -(A7)
11C9A  A8E4                      _SectRgn
11C9C  2F0B                      Move.L    A3, -(A7)
11C9E  2F03                      Move.L    D3, -(A7)
11CA0  A90C                      _PaintOne
11CA2  2F0B           L2730:     Move.L    A3, -(A7)
11CA4  A909                      _CalcVis
11CA6  2F03                      Move.L    D3, -(A7)
11CA8  A8D9                      _DisposeRgn
11CAA  6100 F82C      L2731:     Bsr       P_mRestorePort
11CAE  4CDF 1C78                 MoveM.L   (A7)+, D3-D6/A2-A4
11CB2  2E9F                      Move.L    (A7)+, (A7)
11CB4  4E75                      Rts

                      P459:
11CB6  446F 0004                 Neg       $4(A7)
11CBA  446F 0006                 Neg       $6(A7)
11CBE  4E75                      Rts

                      P_tSendBehind:
11CC0  48E7 1810                 MoveM.L   D3-D4/A3, -(A7)
11CC4  266F 0014                 Move.L    $14(A7), A3
11CC8  6100 F804                 Bsr       P_mGetSetWPort
11CCC  594F                      SubQ      #$4, A7
11CCE  A924                      _FrontWindow
11CD0  B7DF                      CmpA.L    (A7)+, A3
11CD2  6614                      BNE.B     L2733
11CD4  204B                      Move.L    A3, A0
11CD6  2068 0090      L2732:     Move.L    $90(A0), A0
11CDA  2008                      Move.L    A0, D0
11CDC  670A                      BEQ.B     L2733
11CDE  4A28 006E                 Tst.B     $6E(A0)
11CE2  67F2                      BEQ.B     L2732
11CE4  2F08                      Move.L    A0, -(A7)
11CE6  A91F                      _SelectWindow
11CE8  2F0B           L2733:     Move.L    A3, -(A7)
11CEA  6100 F534                 Bsr       P_mDeleteWindow
11CEE  262B 0072                 Move.L    $72(A3), D3
11CF2  2F2B 0090                 Move.L    $90(A3), -(A7)
11CF6  2F17                      Move.L    (A7), -(A7)
11CF8  2F0B                      Move.L    A3, -(A7)
11CFA  2F2F 001C                 Move.L    $1C(A7), -(A7)
11CFE  6100 F4E8                 Bsr       P432
11D02  2F03                      Move.L    D3, -(A7)
11D04  A90A                      _CalcVBehind
11D06  2F03                      Move.L    D3, -(A7)
11D08  A90D                      _PaintBehind
11D0A  6100 F7CC                 Bsr       P_mRestorePort
11D0E  4CDF 0818                 MoveM.L   (A7)+, D3-D4/A3
11D12  6000 F506                 Bra       L2661

                      P_tBeginUpDate:
11D16  48E7 1810                 MoveM.L   D3-D4/A3, -(A7)
11D1A  266F 0010                 Move.L    $10(A7), A3
11D1E  262B 0008                 Move.L    $8(A3), D3
11D22  282B 0018                 Move.L    $18(A3), D4
11D26  2F04                      Move.L    D4, -(A7)
11D28  2F03                      Move.L    D3, -(A7)
11D2A  618A                      Bsr.B     P459
11D2C  A8E0                      _OffsetRgn
11D2E  2F04                      Move.L    D4, -(A7)
11D30  2F38 09F2                 Move.L    (SaveVisRgn), -(A7)
11D34  A8DC                      _CopyRgn
11D36  2F04                      Move.L    D4, -(A7)
11D38  2F2B 007A                 Move.L    $7A(A3), -(A7)
11D3C  2F04                      Move.L    D4, -(A7)
11D3E  A8E4                      _SectRgn
11D40  2F04                      Move.L    D4, -(A7)
11D42  2F03                      Move.L    D3, -(A7)
11D44  A8E0                      _OffsetRgn
11D46  2F2B 007A                 Move.L    $7A(A3), -(A7)
11D4A  A8DD                      _SetEmptyRgn
11D4C  6000 FA90                 Bra       L2699

                      P_tEndUpDate:
11D50  2F0B                      Move.L    A3, -(A7)
11D52  266F 0008                 Move.L    $8(A7), A3
11D56  2F38 09F2                 Move.L    (SaveVisRgn), -(A7)
11D5A  2F17                      Move.L    (A7), -(A7)
11D5C  2F17                      Move.L    (A7), -(A7)
11D5E  2F2B 0008                 Move.L    $8(A3), -(A7)
11D62  A8E0                      _OffsetRgn
11D64  2F2B 0018                 Move.L    $18(A3), -(A7)
11D68  A8DC                      _CopyRgn
11D6A  A8DD                      _SetEmptyRgn
11D6C  265F                      Move.L    (A7)+, A3
11D6E  2E9F                      Move.L    (A7)+, (A7)
11D70  4E75                      Rts

                      P_tFrontWindow:
11D72  42AF 0004                 Clr.L     $4(A7)
11D76  4A38 08F2                 Tst.B     (WWExist)
11D7A  661E                      BNE.B     L2737
11D7C  2078 09D6                 Move.L    (WindowList), A0
11D80  2008           L2734:     Move.L    A0, D0
11D82  6712                      BEQ.B     L2736
11D84  B1F8 0A84                 CmpA.L    (GhostWindow), A0
11D88  6706                      BEQ.B     L2735
11D8A  4A28 006E                 Tst.B     $6E(A0)
11D8E  6606                      BNE.B     L2736
11D90  2068 0090      L2735:     Move.L    $90(A0), A0
11D94  60EA                      Bra.B     L2734
11D96  2F48 0004      L2736:     Move.L    A0, $4(A7)
11D9A  4E75           L2737:     Rts

                      P_tDragWindow:
11D9C  4E56 FFDC                 Link      A6, #$-24
11DA0  48E7 1E18                 MoveM.L   D3-D6/A3-A4, -(A7)
11DA4  554F                      SubQ      #$2, A7
11DA6  A977                      _WaitMouseUp
11DA8  4A1F                      Tst.B     (A7)+
11DAA  6700 0092                 BEQ       L2741
11DAE  206E 0008                 Move.L    $8(A6), A0
11DB2  3018                      Move      (A0)+, D0
11DB4  3238 0BAA                 Move      (MBarHeight), D1
11DB8  5841                      AddQ      #$4, D1
11DBA  B041                      Cmp       D1, D0
11DBC  6400 0004                 BCC       L2738
11DC0  3001                      Move      D1, D0
11DC2  43EE FFF0      L2738:     Lea.L     $-10(A6), A1
11DC6  32C0                      Move      D0, (A1)+
11DC8  32D8                      Move      (A0)+, (A1)+
11DCA  2290                      Move.L    (A0), (A1)
11DCC  262E 000C                 Move.L    $C(A6), D3
11DD0  266E 0010                 Move.L    $10(A6), A3
11DD4  6100 F6F8                 Bsr       P_mGetSetWPort
11DD8  2F38 09EE                 Move.L    (GrayRgn), -(A7)
11DDC  A879                      _SetClip
11DDE  486E FFDC                 Pea.L     $-24(A6)
11DE2  A976                      _GetKeys
11DE4  1C2E FFE2                 Move.B    $-1E(A6), D6
11DE8  6A04                      BPL.B     L2739
11DEA  6100 FCD2                 Bsr       P453
11DEE  6100 F612      L2739:     Bsr       P438
11DF2  2857                      Move.L    (A7), A4
11DF4  2F2B 0072                 Move.L    $72(A3), -(A7)
11DF8  2F0C                      Move.L    A4, -(A7)
11DFA  A8DC                      _CopyRgn
11DFC  2F0C                      Move.L    A4, -(A7)
11DFE  2F03                      Move.L    D3, -(A7)
11E00  486E FFF0                 Pea.L     $-10(A6)
11E04  2F17                      Move.L    (A7), -(A7)
11E06  4267                      Clr       -(A7)
11E08  42A7                      Clr.L     -(A7)
11E0A  A905                      _DragGrayRgn
11E0C  2A1F                      Move.L    (A7)+, D5
11E0E  6738                      BEQ.B     L2742
11E10  0C45 8000                 Cmp       #$-8000, D5
11E14  6720                      BEQ.B     L2740
11E16  2F0B                      Move.L    A3, -(A7)
11E18  202B 0010                 Move.L    $10(A3), D0
11E1C  906B 000A                 Sub       $A(A3), D0
11E20  D045                      Add       D5, D0
11E22  3F00                      Move      D0, -(A7)
11E24  4840                      Swap      D0
11E26  4845                      Swap      D5
11E28  906B 0008                 Sub       $8(A3), D0
11E2C  D045                      Add       D5, D0
11E2E  3F00                      Move      D0, -(A7)
11E30  4A06                      Tst.B     D6
11E32  5AE7                      SPL.B     -(A7)
11E34  A91B                      _MoveWindow
11E36  2F0C           L2740:     Move.L    A4, -(A7)
11E38  A8D9                      _DisposeRgn
11E3A  6100 F69C                 Bsr       P_mRestorePort
11E3E  4CDF 1878      L2741:     MoveM.L   (A7)+, D3-D6/A3-A4
11E42  4E5E                      Unlk      A6
11E44  6000 0252                 Bra       L2764
11E48  4A06           L2742:     Tst.B     D6
11E4A  6BEA                      BMI.B     L2740
11E4C  2F0B                      Move.L    A3, -(A7)
11E4E  A91F                      _SelectWindow
11E50  60E4                      Bra.B     L2740

                      DT_mWMgrGray:
11E52  AA55 AA55                 DC.B      ' U U'

                      DT_mWMgrGray.4:
11E56  AA55 AA55                 DC.B      ' U U'

                      P_tDragGrayRgn:
11E5A  21FA FFF6 0A34            Move.L    DT_mWMgrGray, (DragPattern)
11E60  21FA FFF4 0A38            Move.L    DT_mWMgrGray.4, (DragPattern.1)

                      P_tDragTheRgn:
11E66  4E56 FFEC                 Link      A6, #$-14
11E6A  48E7 1C10                 MoveM.L   D3-D5/A3, -(A7)
11E6E  41EE 0016                 Lea.L     $16(A6), A0
11E72  2618                      Move.L    (A0)+, D3
11E74  2658                      Move.L    (A0)+, A3
11E76  4290                      Clr.L     (A0)
11E78  486E FFEC                 Pea.L     $-14(A6)
11E7C  2F17                      Move.L    (A7), -(A7)
11E7E  A898                      _GetPenState
11E80  4878 0A34                 Pea.L     (DragPattern)
11E84  A89D                      _PenPat
11E86  3F3C 000E                 Move      #$E, -(A7)
11E8A  A89C                      _PenMode
11E8C  2F0B                      Move.L    A3, -(A7)
11E8E  6100 F572                 Bsr       P438
11E92  2817                      Move.L    (A7), D4
11E94  A8DC                      _CopyRgn
11E96  2F04                      Move.L    D4, -(A7)
11E98  2F38 0A02                 Move.L    (OneOne), -(A7)
11E9C  A8E1                      _InsetRgn
11E9E  2F0B                      Move.L    A3, -(A7)
11EA0  2F04                      Move.L    D4, -(A7)
11EA2  2F0B                      Move.L    A3, -(A7)
11EA4  A8E6                      _DiffRgn
11EA6  2F04                      Move.L    D4, -(A7)
11EA8  A8D9                      _DisposeRgn
11EAA  2F0B                      Move.L    A3, -(A7)
11EAC  A8D3                      _PaintRgn
11EAE  7AFF                      MoveQ.L   #$-1, D5
11EB0  5D4F           L2743:     SubQ      #$6, A7
11EB2  2F0F                      Move.L    A7, -(A7)
11EB4  A972                      _GetMouse
11EB6  2817                      Move.L    (A7), D4
11EB8  2F2E 0012                 Move.L    $12(A6), -(A7)
11EBC  A8AD                      _PtInRect
11EBE  4A1F                      Tst.B     (A7)+
11EC0  6700 009A                 BEQ       L2753
11EC4  2204           L2744:     Move.L    D4, D1
11EC6  4841                      Swap      D1
11EC8  B684                      Cmp.L     D4, D3
11ECA  6738                      BEQ.B     L2748
11ECC  2F04                      Move.L    D4, -(A7)
11ECE  9843                      Sub       D3, D4
11ED0  4843                      Swap      D3
11ED2  9243                      Sub       D3, D1
11ED4  302E 000C                 Move      $C(A6), D0
11ED8  670A                      BEQ.B     L2746
11EDA  5340                      SubQ      #$1, D0
11EDC  6604                      BNE.B     L2745
11EDE  4241                      Clr       D1
11EE0  6002                      Bra.B     L2746
11EE2  4244           L2745:     Clr       D4
11EE4  D36E 001E      L2746:     Add       D1, $1E(A6)
11EE8  D96E 0020                 Add       D4, $20(A6)
11EEC  2F0B                      Move.L    A3, -(A7)
11EEE  3F04                      Move      D4, -(A7)
11EF0  3F01                      Move      D1, -(A7)
11EF2  4A45                      Tst       D5
11EF4  6704                      BEQ.B     L2747
11EF6  2F0B                      Move.L    A3, -(A7)
11EF8  A8D3                      _PaintRgn
11EFA  A8E0           L2747:     _OffsetRgn
11EFC  2F0B                      Move.L    A3, -(A7)
11EFE  A8D3                      _PaintRgn
11F00  7AFF                      MoveQ.L   #$-1, D5
11F02  261F                      Move.L    (A7)+, D3
11F04  202E 0008      L2748:     Move.L    $8(A6), D0
11F08  614A                      Bsr.B     P461
11F0A  6144                      Bsr.B     P460
11F0C  2038 016A                 Move.L    (Ticks), D0
11F10  5480                      AddQ      #$2, D0
11F12  B0B8 016A      L2749:     Cmp.L     (Ticks), D0
11F16  66FA                      BNE.B     L2749
11F18  554F                      SubQ      #$2, A7
11F1A  A977                      _WaitMouseUp
11F1C  4A1F                      Tst.B     (A7)+
11F1E  6690                      BNE.B     L2743
11F20  4A45                      Tst       D5
11F22  6704                      BEQ.B     L2750
11F24  2F0B                      Move.L    A3, -(A7)
11F26  A8D3                      _PaintRgn
11F28  A899           L2750:     _SetPenState
11F2A  5D4F                      SubQ      #$6, A7
11F2C  2F0F                      Move.L    A7, -(A7)
11F2E  A972                      _GetMouse
11F30  2F2E 000E                 Move.L    $E(A6), -(A7)
11F34  A8AD                      _PtInRect
11F36  4A1F                      Tst.B     (A7)+
11F38  6608                      BNE.B     L2751
11F3A  2D7C 8000 8000            Move.L    #$80008000, $1E(A6)
       001E
11F42  4CDF 0838      L2751:     MoveM.L   (A7)+, D3-D5/A3
11F46  4E5E                      Unlk      A6
11F48  205F                      Move.L    (A7)+, A0
11F4A  DEFC 0016                 AddA      #$16, A7
11F4E  4ED0                      Jmp       (A0)

                      P460:
11F50  2038 09F6                 Move.L    (DragHook), D0

                      P461:
11F54  6704                      BEQ.B     L2752
11F56  2040                      Move.L    D0, A0
11F58  4E90                      Jsr       (A0)
11F5A  4E75           L2752:     Rts
11F5C  554F           L2753:     SubQ      #$2, A7
11F5E  2F04                      Move.L    D4, -(A7)
11F60  2F2E 000E                 Move.L    $E(A6), -(A7)
11F64  A8AD                      _PtInRect
11F66  4A1F                      Tst.B     (A7)+
11F68  660C                      BNE.B     L2755
11F6A  4A45                      Tst       D5
11F6C  6796                      BEQ.B     L2748
11F6E  7A00                      MoveQ.L   #$0, D5
11F70  2F0B           L2754:     Move.L    A3, -(A7)
11F72  A8D3                      _PaintRgn
11F74  608E                      Bra.B     L2748
11F76  4A45           L2755:     Tst       D5
11F78  6604                      BNE.B     L2756
11F7A  7A01                      MoveQ.L   #$1, D5
11F7C  60F2                      Bra.B     L2754
11F7E  594F           L2756:     SubQ      #$4, A7
11F80  2F2E 0012                 Move.L    $12(A6), -(A7)
11F84  2F04                      Move.L    D4, -(A7)
11F86  A94E                      _PinRect
11F88  281F                      Move.L    (A7)+, D4
11F8A  6000 FF38                 Bra       L2744

                      P_tInvalRgn:
11F8E  7000                      MoveQ.L   #$0, D0

                      P462:
11F90  48E7 1C10                 MoveM.L   D3-D5/A3, -(A7)
11F94  3A00                      Move      D0, D5
11F96  2055                      Move.L    (A5), A0
11F98  2650                      Move.L    (A0), A3
11F9A  282F 0014                 Move.L    $14(A7), D4
11F9E  262B 0008                 Move.L    $8(A3), D3
11FA2  2F04                      Move.L    D4, -(A7)
11FA4  2F03                      Move.L    D3, -(A7)
11FA6  6100 FD0E                 Bsr       P459
11FAA  A8E0                      _OffsetRgn
11FAC  2F2B 007A                 Move.L    $7A(A3), -(A7)
11FB0  2F04                      Move.L    D4, -(A7)
11FB2  2F2B 007A                 Move.L    $7A(A3), -(A7)
11FB6  4A45                      Tst       D5
11FB8  6604                      BNE.B     L2757
11FBA  A8E5                      _UnionRgn
11FBC  6002                      Bra.B     L2758
11FBE  A8E6           L2757:     _DiffRgn
11FC0  2F04           L2758:     Move.L    D4, -(A7)
11FC2  2F03                      Move.L    D3, -(A7)
11FC4  A8E0                      _OffsetRgn
11FC6  4CDF 0838      L2759:     MoveM.L   (A7)+, D3-D5/A3
11FCA  2E9F                      Move.L    (A7)+, (A7)
11FCC  4E75                      Rts

                      P_tInvalRect:
11FCE  7000                      MoveQ.L   #$0, D0
11FD0  48E7 3C10      L2760:     MoveM.L   D2-D5/A3, -(A7)
11FD4  3A00                      Move      D0, D5
11FD6  A8D8                      _NewRgn
11FD8  2817                      Move.L    (A7), D4
11FDA  2F2F 0018                 Move.L    $18(A7), -(A7)
11FDE  A8DF                      _RectRgn
11FE0  2F04                      Move.L    D4, -(A7)
11FE2  3005                      Move      D5, D0
11FE4  61AA                      Bsr.B     P462
11FE6  2F04                      Move.L    D4, -(A7)
11FE8  A8D9                      _DisposeRgn
11FEA  60DA                      Bra.B     L2759

                      P_tValidRgn:
11FEC  70FF                      MoveQ.L   #$-1, D0
11FEE  60A0                      Bra.B     P462

                      P_tValidRect:
11FF0  70FF                      MoveQ.L   #$-1, D0
11FF2  60DC                      Bra.B     L2760

                      P_tGrowWindow:
11FF4  4E56 FFE4                 Link      A6, #$-1C
11FF8  48E7 1F18                 MoveM.L   D3-D7/A3-A4, -(A7)
11FFC  6100 F4D0                 Bsr       P_mGetSetWPort
12000  262E 000C                 Move.L    $C(A6), D3
12004  266E 0010                 Move.L    $10(A6), A3
12008  6100 FAB4                 Bsr       P453
1200C  486E FFE4                 Pea.L     $-1C(A6)
12010  2F17                      Move.L    (A7), -(A7)
12012  A898                      _GetPenState
12014  A89E                      _PenNormal
12016  3F3C 000E                 Move      #$E, -(A7)
1201A  A89C                      _PenMode
1201C  487A FE34                 Pea.L     DT_mWMgrGray
12020  A89D                      _PenPat
12022  49EE FFF8                 Lea.L     $-8(A6), A4
12026  28AB 0010                 Move.L    $10(A3), (A4)
1202A  296B 0014 0004            Move.L    $14(A3), $4(A4)
12030  2F0C                      Move.L    A4, -(A7)
12032  2F2B 0008                 Move.L    $8(A3), -(A7)
12036  6100 FC7E                 Bsr       P459
1203A  A8A8                      _OffsetRect
1203C  6162                      Bsr.B     P463
1203E  6100 00A6                 Bsr       P465
12042  2C00                      Move.L    D0, D6
12044  594F                      SubQ      #$4, A7
12046  2F03                      Move.L    D3, -(A7)
12048  2F2C 0004                 Move.L    $4(A4), -(A7)
1204C  6100 F8D6                 Bsr       P_tDeltaPoint
12050  2A1F                      Move.L    (A7)+, D5
12052  2F03           L2761:     Move.L    D3, -(A7)
12054  6158                      Bsr.B     P464
12056  2017                      Move.L    (A7), D0
12058  2F03                      Move.L    D3, -(A7)
1205A  2F00                      Move.L    D0, -(A7)
1205C  6100 F8C6                 Bsr       P_tDeltaPoint
12060  2E1F                      Move.L    (A7)+, D7
12062  670E                      BEQ.B     L2762
12064  613A                      Bsr.B     P463
12066  DF6C 0006                 Add       D7, $6(A4)
1206A  4847                      Swap      D7
1206C  DF6C 0004                 Add       D7, $4(A4)
12070  612E                      Bsr.B     P463
12072  6100 FEDC      L2762:     Bsr       P460
12076  4267                      Clr       -(A7)
12078  A977                      _WaitMouseUp
1207A  4A1F                      Tst.B     (A7)+
1207C  66D4                      BNE.B     L2761
1207E  6120                      Bsr.B     P463
12080  6164                      Bsr.B     P465
12082  BC80                      Cmp.L     D0, D6
12084  6602                      BNE.B     L2763
12086  7000                      MoveQ.L   #$0, D0
12088  2D40 0014      L2763:     Move.L    D0, $14(A6)
1208C  A899                      _SetPenState
1208E  6100 F448                 Bsr       P_mRestorePort
12092  4CDF 18F8                 MoveM.L   (A7)+, D3-D7/A3-A4
12096  4E5E                      Unlk      A6
12098  205F           L2764:     Move.L    (A7)+, A0
1209A  DEFC 000C                 AddA      #$C, A7
1209E  4ED0                      Jmp       (A0)

                      P463:
120A0  2F03                      Move.L    D3, -(A7)
120A2  7005                      MoveQ.L   #$5, D0
120A4  260C                      Move.L    A4, D3
120A6  6100 F978                 Bsr       P449
120AA  261F                      Move.L    (A7)+, D3
120AC  4E75                      Rts

                      P464:
120AE  2F2C 0004                 Move.L    $4(A4), -(A7)
120B2  514F                      SubQ      #$8, A7
120B4  2F0F                      Move.L    A7, -(A7)
120B6  A972                      _GetMouse
120B8  2F05                      Move.L    D5, -(A7)
120BA  6100 F868                 Bsr       P_tDeltaPoint
120BE  295F 0004                 Move.L    (A7)+, $4(A4)
120C2  6122                      Bsr.B     P465
120C4  2957 0004                 Move.L    (A7), $4(A4)
120C8  2F2E 0008                 Move.L    $8(A6), -(A7)
120CC  2F00                      Move.L    D0, -(A7)
120CE  A94E                      _PinRect
120D0  4845                      Swap      D5
120D2  3614                      Move      (A4), D3
120D4  D65F                      Add       (A7)+, D3
120D6  D645                      Add       D5, D3
120D8  4843                      Swap      D3
120DA  4845                      Swap      D5
120DC  362C 0002                 Move      $2(A4), D3
120E0  D65F                      Add       (A7)+, D3
120E2  D645                      Add       D5, D3
120E4  4E75                      Rts

                      P465:
120E6  594F                      SubQ      #$4, A7
120E8  2F2C 0004                 Move.L    $4(A4), -(A7)
120EC  2F14                      Move.L    (A4), -(A7)
120EE  6100 F834                 Bsr       P_tDeltaPoint
120F2  201F                      Move.L    (A7)+, D0
120F4  4E75                      Rts

                      P_tFindWindow:
120F6  48E7 5010                 MoveM.L   D1/D3/A3, -(A7)
120FA  41EF 0010                 Lea.L     $10(A7), A0
120FE  2258                      Move.L    (A0)+, A1
12100  4291                      Clr.L     (A1)
12102  2618                      Move.L    (A0)+, D3
12104  4250                      Clr       (A0)
12106  7200                      MoveQ.L   #$0, D1
12108  3238 0BAA                 Move      (MBarHeight), D1
1210C  4841                      Swap      D1
1210E  B681                      Cmp.L     D1, D3
12110  6C04                      BGE.B     L2765
12112  7001                      MoveQ.L   #$1, D0
12114  603A                      Bra.B     L2769
12116  2678 09D6      L2765:     Move.L    (WindowList), A3
1211A  200B           L2766:     Move.L    A3, D0
1211C  6752                      BEQ.B     L2774
1211E  4A2B 006E                 Tst.B     $6E(A3)
12122  6718                      BEQ.B     L2767
12124  4267                      Clr       -(A7)
12126  2F03                      Move.L    D3, -(A7)
12128  2F2B 0072                 Move.L    $72(A3), -(A7)
1212C  A8E8                      _PtInRgn
1212E  4A1F                      Tst.B     (A7)+
12130  670A                      BEQ.B     L2767
12132  7001                      MoveQ.L   #$1, D0
12134  6100 F8EA                 Bsr       P449
12138  4A40                      Tst       D0
1213A  6606                      BNE.B     L2768
1213C  266B 0090      L2767:     Move.L    $90(A3), A3
12140  60D8                      Bra.B     L2766
12142  206F 0010      L2768:     Move.L    $10(A7), A0
12146  208B                      Move.L    A3, (A0)
12148  4A6B 006C                 Tst       $6C(A3)
1214C  6A04                      BPL.B     L2770
1214E  7002                      MoveQ.L   #$2, D0
12150  6012           L2769:     Bra.B     L2773
12152  0C40 0002      L2770:     Cmp       #$2, D0
12156  6D0A                      BLT.B     L2772
12158  6E04                      BGT.B     L2771
1215A  7004                      MoveQ.L   #$4, D0
1215C  6006                      Bra.B     L2773
1215E  5440           L2771:     AddQ      #$2, D0
12160  6002                      Bra.B     L2773
12162  7003           L2772:     MoveQ.L   #$3, D0
12164  3F40 0018      L2773:     Move      D0, $18(A7)
12168  4CDF 080A                 MoveM.L   (A7)+, D1/D3/A3
1216C  6000 F0AC                 Bra       L2661
12170  2038 0A6C      L2774:     Move.L    (DeskHook), D0
12174  67EE                      BEQ.B     L2773
12176  7002                      MoveQ.L   #$2, D0
12178  60EA                      Bra.B     L2773

                      P_tDrawGrowIcon:
1217A  48E7 0810                 MoveM.L   D4/A3, -(A7)
1217E  266F 000C                 Move.L    $C(A7), A3
12182  6100 F34A                 Bsr       P_mGetSetWPort
12186  7006                      MoveQ.L   #$6, D0
12188  6100 F896                 Bsr       P449
1218C  6100 F34A                 Bsr       P_mRestorePort
12190  4CDF 0810                 MoveM.L   (A7)+, D4/A3
12194  2E9F                      Move.L    (A7)+, (A7)
12196  4E75                      Rts

                      P_tInitMenus:
12198  614C                      Bsr.B     P468
1219A  21C8 0A1C                 Move.L    A0, (MenuList)
1219E  700C                      MoveQ.L   #$C, D0
121A0  C038 020B                 And.B     (SPMisc2), D0
121A4  E448                      LsR       #$2, D0
121A6  31C0 0A24                 Move      D0, (MenuFlash)
121AA  4278 0A20                 Clr       (MBarEnable)
121AE  42B8 0A2C                 Clr.L     (MBarHook)
121B2  42B8 0A30                 Clr.L     (MenuHook)
121B6  6106                      Bsr.B     P_mCalcMBHeight
121B8  A934                      _ClearMenuBar
121BA  A937                      _DrawMenuBar
121BC  4E75                      Rts

                      P_mCalcMBHeight:
121BE  610E                      Bsr.B     P467
121C0  7205                      MoveQ.L   #$5, D1
121C2  D240                      Add       D0, D1
121C4  4840                      Swap      D0
121C6  D240                      Add       D0, D1
121C8  31C1 0BAA                 Move      D1, (MBarHeight)
121CC  4E75                      Rts

                      P467:
121CE  2F04                      Move.L    D4, -(A7)
121D0  4EBA F2FC                 Jsr       P_mGetSetWPort
121D4  514F                      SubQ      #$8, A7
121D6  2F0F                      Move.L    A7, -(A7)
121D8  A88B                      _GetFontInfo
121DA  4EBA F2FC                 Jsr       P_mRestorePort
121DE  201F                      Move.L    (A7)+, D0
121E0  584F                      AddQ      #$4, A7
121E2  281F                      Move.L    (A7)+, D4
121E4  4E75                      Rts

                      P468:
121E6  7066                      MoveQ.L   #$66, D0
121E8  A122                      _NewHandle

                      P469:
121EA  2250                      Move.L    (A0), A1
121EC  4259                      Clr       (A1)+
121EE  32FC 000A                 Move      #$A, (A1)+
121F2  4259                      Clr       (A1)+
121F4  7017                      MoveQ.L   #$17, D0
121F6  4299           L2775:     Clr.L     (A1)+
121F8  51C8 FFFC                 DBF       D0, L2775
121FC  4E75                      Rts

                      P_tClearMenuBar:
121FE  6100 0234                 Bsr       P476
12202  2078 0A1C                 Move.L    (MenuList), A0
12206  61E2                      Bsr.B     P469
12208  4278 0A26                 Clr       (TheMenu)
1220C  4E75                      Rts

                      P_tInsertMenu:
1220E  48E7 1838                 MoveM.L   D3-D4/A2-A4, -(A7)
12212  6100 0220                 Bsr       P476
12216  2648                      Move.L    A0, A3
12218  0C53 0060                 Cmp       #$60, (A3)
1221C  6C62                      BGE.B     L2779
1221E  286F 001A                 Move.L    $1A(A7), A4
12222  2454                      Move.L    (A4), A2
12224  3212                      Move      (A2), D1
12226  6162                      Bsr.B     P470
12228  6656                      BNE.B     L2779
1222A  4EBA F2A2                 Jsr       P_mGetSetWPort
1222E  42A7                      Clr.L     -(A7)
12230  A887                      _TextFont
12232  A888                      _TextFace
12234  4267                      Clr       -(A7)
12236  486A 000E                 Pea.L     $E(A2)
1223A  A88C                      _StringWidth
1223C  760D                      MoveQ.L   #$D, D3
1223E  D65F                      Add       (A7)+, D3
12240  322F 0018                 Move      $18(A7), D1
12244  6144                      Bsr.B     P470
12246  660A                      BNE.B     L2776
12248  3013                      Move      (A3), D0
1224A  5C40                      AddQ      #$6, D0
1224C  322B 0002                 Move      $2(A3), D1
12250  601C                      Bra.B     L2778
12252  3233 0004      L2776:     Move      $4(A3,D0.W), D1
12256  3413                      Move      (A3), D2
12258  27B3 2000 2006 L2777:     Move.L    $0(A3,D2.W), $6(A3,D2.W)
1225E  37B3 2004 200A            Move      $4(A3,D2.W), $A(A3,D2.W)
12264  D773 200A                 Add       D3, $A(A3,D2.W)
12268  5D42                      SubQ      #$6, D2
1226A  B440                      Cmp       D0, D2
1226C  6CEA                      BGE.B     L2777
1226E  D76B 0002      L2778:     Add       D3, $2(A3)
12272  278C 0000                 Move.L    A4, $0(A3,D0.W)
12276  3781 0004                 Move      D1, $4(A3,D0.W)
1227A  5C53                      AddQ      #$6, (A3)
1227C  4EBA F25A                 Jsr       P_mRestorePort
12280  4CDF 1C18      L2779:     MoveM.L   (A7)+, D3-D4/A2-A4
12284  205F           L2780:     Move.L    (A7)+, A0
12286  5C4F                      AddQ      #$6, A7
12288  4ED0                      Jmp       (A0)

                      P470:
1228A  4A41                      Tst       D1
1228C  671A                      BEQ.B     L2783
1228E  6100 01B0                 Bsr       P478
12292  3411                      Move      (A1), D2
12294  6712                      BEQ.B     L2783
12296  2031 2000      L2781:     Move.L    $0(A1,D2.W), D0
1229A  6708                      BEQ.B     L2782
1229C  2040                      Move.L    D0, A0
1229E  2050                      Move.L    (A0), A0
122A0  B250                      Cmp       (A0), D1
122A2  6706                      BEQ.B     L2784
122A4  5D42           L2782:     SubQ      #$6, D2
122A6  66EE                      BNE.B     L2781
122A8  7400           L2783:     MoveQ.L   #$0, D2
122AA  3002           L2784:     Move      D2, D0
122AC  4E75                      Rts

                      P_tDeleteMenu:
122AE  322F 0004                 Move      $4(A7), D1
122B2  61D6                      Bsr.B     P470
122B4  6734                      BEQ.B     L2788
122B6  6100 0188                 Bsr       P478
122BA  B051                      Cmp       (A1), D0
122BC  6608                      BNE.B     L2785
122BE  3371 0004 0002            Move      $4(A1,D0.W), $2(A1)
122C4  6022                      Bra.B     L2787
122C6  3431 000A      L2785:     Move      $A(A1,D0.W), D2
122CA  9471 0004                 Sub       $4(A1,D0.W), D2
122CE  9569 0002                 Sub       D2, $2(A1)
122D2  23B1 0006 0000 L2786:     Move.L    $6(A1,D0.W), $0(A1,D0.W)
122D8  33B1 000A 0004            Move      $A(A1,D0.W), $4(A1,D0.W)
122DE  9571 0004                 Sub       D2, $4(A1,D0.W)
122E2  5C40                      AddQ      #$6, D0
122E4  B051                      Cmp       (A1), D0
122E6  6FEA                      BLE.B     L2786
122E8  5D51           L2787:     SubQ      #$6, (A1)
122EA  205F           L2788:     Move.L    (A7)+, A0
122EC  544F                      AddQ      #$2, A7
122EE  4ED0                      Jmp       (A0)

                      P471:
122F0  41F8 09FA                 Lea.L     (scratch8), A0
122F4  30FC 0001                 Move      #$1, (A0)+
122F8  30B1 0004                 Move      $4(A1,D0.W), (A0)
122FC  5358                      SubQ      #$1, (A0)+
122FE  30B8 0BAA                 Move      (MBarHeight), (A0)
12302  5358                      SubQ      #$1, (A0)+
12304  B051                      Cmp       (A1), D0
12306  6708                      BEQ.B     L2789
12308  5C40                      AddQ      #$6, D0
1230A  30B1 0004                 Move      $4(A1,D0.W), (A0)
1230E  6004                      Bra.B     L2790
12310  30A9 0002      L2789:     Move      $2(A1), (A0)
12314  5850           L2790:     AddQ      #$4, (A0)
12316  4E75                      Rts

                      P472:
12318  2678 09DE                 Move.L    (WMgrPort), A3
1231C  2F2B 001C                 Move.L    $1C(A3), -(A7)
12320  42A7                      Clr.L     -(A7)
12322  3F2B 0016                 Move      $16(A3), -(A7)
12326  3F38 0BAA                 Move      (MBarHeight), -(A7)
1232A  A8DE                      _SetRectRgn
1232C  486B 0010                 Pea.L     $10(A3)
12330  2F3C 0010 0010            Move.L    #$100010, -(A7)
12336  A8B2                      _EraseRoundRect
12338  3F2B 0016                 Move      $16(A3), -(A7)
1233C  7000                      MoveQ.L   #$0, D0
1233E  3038 0BAA                 Move      (MBarHeight), D0
12342  5340                      SubQ      #$1, D0
12344  3F00                      Move      D0, -(A7)
12346  4840                      Swap      D0
12348  2F00                      Move.L    D0, -(A7)
1234A  A893                      _MoveTo
1234C  A891                      _LineTo
1234E  4E75                      Rts

                      P_tDrawMenuBar:
12350  48E7 1E18                 MoveM.L   D3-D6/A3-A4, -(A7)
12354  08F8 0007 021F            BSet.B    #$7, (AlarmState)
1235A  4EBA F172                 Jsr       P_mGetSetWPort
1235E  61B8                      Bsr.B     P472
12360  4EBA 0408                 Jsr       P_mFullClip
12364  7606                      MoveQ.L   #$6, D3
12366  6100 00CC                 Bsr       P476
1236A  2648                      Move.L    A0, A3
1236C  4A53                      Tst       (A3)
1236E  674A                      BEQ.B     L2794
12370  6100 FE5C                 Bsr       P467
12374  4840                      Swap      D0
12376  3C00                      Move      D0, D6
12378  5446                      AddQ      #$2, D6
1237A  3F33 3004      L2791:     Move      $4(A3,D3.W), -(A7)
1237E  5057                      AddQ      #$8, (A7)
12380  3F06                      Move      D6, -(A7)
12382  A893                      _MoveTo
12384  3A03                      Move      D3, D5
12386  6100 009E                 Bsr       P475
1238A  2848                      Move.L    A0, A4
1238C  486C 000E                 Pea.L     $E(A4)
12390  A884                      _DrawString
12392  082C 0000 000D            BTst.B    #$0, $D(A4)
12398  6710                      BEQ.B     L2792
1239A  3038 0A26                 Move      (TheMenu), D0
1239E  B054                      Cmp       (A4), D0
123A0  6612                      BNE.B     L2793
123A2  3003                      Move      D3, D0
123A4  6100 00B0                 Bsr       P480
123A8  600A                      Bra.B     L2793
123AA  3003           L2792:     Move      D3, D0
123AC  224B                      Move.L    A3, A1
123AE  6100 FF40                 Bsr       P471
123B2  6110                      Bsr.B     P473
123B4  5C43           L2793:     AddQ      #$6, D3
123B6  B653                      Cmp       (A3), D3
123B8  6FC0                      BLE.B     L2791
123BA  4EBA F11C      L2794:     Jsr       P_mRestorePort
123BE  4CDF 1878                 MoveM.L   (A7)+, D3-D6/A3-A4
123C2  4E75                      Rts

                      P473:
123C4  3F3C 000B                 Move      #$B, -(A7)
123C8  A89C                      _PenMode
123CA  487A FA86                 Pea.L     DT_mWMgrGray
123CE  A89D                      _PenPat
123D0  4878 09FA                 Pea.L     (scratch8)
123D4  A8A2                      _PaintRect
123D6  A89E                      _PenNormal
123D8  4E75                      Rts

                      P_tHiliteMenu:
123DA  2F04                      Move.L    D4, -(A7)
123DC  4EBA F0F0                 Jsr       P_mGetSetWPort
123E0  6100 0388                 Bsr       P_mFullClip
123E4  3238 0A26                 Move      (TheMenu), D1
123E8  B26F 0008                 Cmp       $8(A7), D1
123EC  670C                      BEQ.B     L2795
123EE  6160                      Bsr.B     P479
123F0  322F 0008                 Move      $8(A7), D1
123F4  31C1 0A26                 Move      D1, (TheMenu)
123F8  6156                      Bsr.B     P479
123FA  4EBA F0DC      L2795:     Jsr       P_mRestorePort
123FE  281F                      Move.L    (A7)+, D4
12400  6000 FEE8                 Bra       L2788

                      P_tEnableItem:
12404  610A                      Bsr.B     P474
12406  01C1                      BSet.L    D0, D1
12408  2141 000A      L2796:     Move.L    D1, $A(A0)
1240C  6000 FE76                 Bra       L2780

                      P474:
12410  206F 000A                 Move.L    $A(A7), A0
12414  2050                      Move.L    (A0), A0
12416  302F 0008                 Move      $8(A7), D0
1241A  2228 000A                 Move.L    $A(A0), D1
1241E  4E75                      Rts

                      P_tDisableItem:
12420  61EE                      Bsr.B     P474
12422  0181                      BClr.L    D0, D1
12424  60E2                      Bra.B     L2796

                      P475:
12426  610C                      Bsr.B     P476
12428  2270 5000                 Move.L    $0(A0,D5.W), A1
1242C  4A91                      Tst.L     (A1)
1242E  671C                      BEQ.B     L2798
12430  2051                      Move.L    (A1), A0
12432  4E75           L2797:     Rts

                      P476:
12434  2078 0A1C                 Move.L    (MenuList), A0

                      P477:
12438  4A90                      Tst.L     (A0)
1243A  6710                      BEQ.B     L2798
1243C  2050                      Move.L    (A0), A0
1243E  4E75                      Rts

                      P478:
12440  2278 0A1C                 Move.L    (MenuList), A1
12444  4A91                      Tst.L     (A1)
12446  6704                      BEQ.B     L2798
12448  2251                      Move.L    (A1), A1
1244A  4E75                      Rts
1244C  7054           L2798:     MoveQ.L   #$54, D0
1244E  A9C9                      _SysError

                      P479:
12450  6100 FE38                 Bsr       P470
12454  67DC                      BEQ.B     L2797

                      P480:
12456  61E8                      Bsr.B     P478
12458  B051                      Cmp       (A1), D0
1245A  6E10                      BGT.B     L2799
1245C  0240 FFFE                 And       #$-2, D0
12460  670A                      BEQ.B     L2799
12462  6100 FE8C                 Bsr       P471
12466  4878 09FA                 Pea.L     (scratch8)
1246A  A8A4                      _InvertRect
1246C  4E75           L2799:     Rts

                      P_tMenuSelect:
1246E  4E56 FFD8                 Link      A6, #$-28
12472  48E7 1F10                 MoveM.L   D3-D7/A3, -(A7)
12476  42A7                      Clr.L     -(A7)
12478  A938                      _HiliteMenu
1247A  42AE 000C                 Clr.L     $C(A6)
1247E  42AE FFD8                 Clr.L     $-28(A6)
12482  A977                      _WaitMouseUp
12484  4A1F                      Tst.B     (A7)+
12486  6700 013E                 BEQ       L2816
1248A  486E FFE0                 Pea.L     $-20(A6)
1248E  A874                      _GetPort
12490  2F38 09DE                 Move.L    (WMgrPort), -(A7)
12494  A873                      _SetPort
12496  6100 02D2                 Bsr       P_mFullClip
1249A  4244                      Clr       D4
1249C  262E 0008                 Move.L    $8(A6), D3
124A0  600E                      Bra.B     L2801
124A2  7000           L2800:     MoveQ.L   #$0, D0
124A4  3038 0BAA                 Move      (MBarHeight), D0
124A8  4840                      Swap      D0
124AA  B680                      Cmp.L     D0, D3
124AC  6C00 00A0                 BGE       L2808
124B0  4245           L2801:     Clr       D5
124B2  6180                      Bsr.B     P476
124B4  B668 0002                 Cmp       $2(A0), D3
124B8  6C0C                      BGE.B     L2803
124BA  3A10                      Move      (A0), D5
124BC  B670 5004      L2802:     Cmp       $4(A0,D5.W), D3
124C0  6E04                      BGT.B     L2803
124C2  5D45                      SubQ      #$6, D5
124C4  66F6                      BNE.B     L2802
124C6  3C30 5004      L2803:     Move      $4(A0,D5.W), D6
124CA  B845                      Cmp       D5, D4
124CC  6700 0080                 BEQ       L2808
124D0  4A44                      Tst       D4
124D2  670A                      BEQ.B     L2804
124D4  6100 0106                 Bsr       P481
124D8  3004                      Move      D4, D0
124DA  6100 FF7A                 Bsr       P480
124DE  3805           L2804:     Move      D5, D4
124E0  42AE 000C                 Clr.L     $C(A6)
124E4  4A45                      Tst       D5
124E6  6768                      BEQ.B     L2809
124E8  6100 FF3C                 Bsr       P475
124EC  4AA8 0002                 Tst.L     $2(A0)
124F0  6A08                      BPL.B     L2805
124F2  2F08                      Move.L    A0, -(A7)
124F4  2F09                      Move.L    A1, -(A7)
124F6  A948                      _CalcMenuSize
124F8  205F                      Move.L    (A7)+, A0
124FA  3D50 000C      L2805:     Move      (A0), $C(A6)
124FE  2278 09DE                 Move.L    (WMgrPort), A1
12502  3006                      Move      D6, D0
12504  D068 0002                 Add       $2(A0), D0
12508  5040                      AddQ      #$8, D0
1250A  B069 0016                 Cmp       $16(A1), D0
1250E  6F0A                      BLE.B     L2806
12510  3C29 0016                 Move      $16(A1), D6
12514  5146                      SubQ      #$8, D6
12516  9C68 0002                 Sub       $2(A0), D6
1251A  43EE FFE4      L2806:     Lea.L     $-1C(A6), A1
1251E  3238 0BAA                 Move      (MBarHeight), D1
12522  32C1                      Move      D1, (A1)+
12524  32C6                      Move      D6, (A1)+
12526  D268 0004                 Add       $4(A0), D1
1252A  32C1                      Move      D1, (A1)+
1252C  DC68 0002                 Add       $2(A0), D6
12530  32C6                      Move      D6, (A1)+
12532  3005                      Move      D5, D0
12534  6100 FF20                 Bsr       P480
12538  2038 0A2C                 Move.L    (MBarHook), D0
1253C  670C                      BEQ.B     L2807
1253E  2040                      Move.L    D0, A0
12540  486E FFE4                 Pea.L     $-1C(A6)
12544  4E90                      Jsr       (A0)
12546  4A40                      Tst       D0
12548  6676                      BNE.B     L2815
1254A  6100 00F2      L2807:     Bsr       P483
1254E  4A45           L2808:     Tst       D5
12550  6728           L2809:     BEQ.B     L2810
12552  486E FFE4                 Pea.L     $-1C(A6)
12556  A87B                      _ClipRect
12558  6100 FECC                 Bsr       P475
1255C  3F3C 0001                 Move      #$1, -(A7)
12560  2F09                      Move.L    A1, -(A7)
12562  486E FFE4                 Pea.L     $-1C(A6)
12566  2F03                      Move.L    D3, -(A7)
12568  486E 000E                 Pea.L     $E(A6)
1256C  6100 01A2                 Bsr       P485
12570  4E90                      Jsr       (A0)
12572  6100 01BC                 Bsr       P486
12576  6100 01F2                 Bsr       P_mFullClip
1257A  4267           L2810:     Clr       -(A7)
1257C  A977                      _WaitMouseUp
1257E  4A1F                      Tst.B     (A7)+
12580  6716                      BEQ.B     L2812
12582  594F                      SubQ      #$4, A7
12584  2F0F                      Move.L    A7, -(A7)
12586  A972                      _GetMouse
12588  261F                      Move.L    (A7)+, D3
1258A  2038 0A30                 Move.L    (MenuHook), D0
1258E  6704                      BEQ.B     L2811
12590  2040                      Move.L    D0, A0
12592  4E90                      Jsr       (A0)
12594  6000 FF0C      L2811:     Bra       L2800
12598  4A45           L2812:     Tst       D5
1259A  6706                      BEQ.B     L2813
1259C  6100 01A4                 Bsr       P488
125A0  613A                      Bsr.B     P481
125A2  4A6E 000E      L2813:     Tst       $E(A6)
125A6  660A                      BNE.B     L2814
125A8  426E 000C                 Clr       $C(A6)
125AC  3005                      Move      D5, D0
125AE  6100 FEA6                 Bsr       P480
125B2  31EE 000C 0A26 L2814:     Move      $C(A6), (TheMenu)
125B8  6B16                      BMI.B     L2817
125BA  4A78 0A20                 Tst       (MBarEnable)
125BE  6B10                      BMI.B     L2817
125C0  2F2E FFE0      L2815:     Move.L    $-20(A6), -(A7)
125C4  A873                      _SetPort
125C6  4CDF 08F8      L2816:     MoveM.L   (A7)+, D3-D7/A3
125CA  4E5E                      Unlk      A6
125CC  2E9F                      Move.L    (A7)+, (A7)
125CE  4E75                      Rts
125D0  2F2E 000C      L2817:     Move.L    $C(A6), -(A7)
125D4  A9B5                      _SystemMenu
125D6  42AE 000C                 Clr.L     $C(A6)
125DA  60E4                      Bra.B     L2815

                      P481:
125DC  4AAE FFD8                 Tst.L     $-28(A6)
125E0  661E                      BNE.B     L2818
125E2  2078 0A28                 Move.L    (SavedHandle), A0
125E6  2D50 FFEC                 Move.L    (A0), $-14(A6)
125EA  486E FFEC                 Pea.L     $-14(A6)
125EE  2078 09DE                 Move.L    (WMgrPort), A0
125F2  4868 0002                 Pea.L     $2(A0)
125F6  612A                      Bsr.B     P482
125F8  2078 0A28                 Move.L    (SavedHandle), A0
125FC  A023                      _DisposeHandle
125FE  4E75                      Rts
12600  594F           L2818:     SubQ      #$4, A7
12602  A8D8                      _NewRgn
12604  2F17                      Move.L    (A7), -(A7)
12606  486E FFD8                 Pea.L     $-28(A6)
1260A  A8DF                      _RectRgn
1260C  594F                      SubQ      #$4, A7
1260E  A924                      _FrontWindow
12610  2F2F 0004                 Move.L    $4(A7), -(A7)
12614  A90D                      _PaintBehind
12616  A8D9                      _DisposeRgn
12618  6100 0150                 Bsr       P_mFullClip
1261C  42AE FFD8                 Clr.L     $-28(A6)
12620  4E75                      Rts

                      P482:
12622  2E1F                      Move.L    (A7)+, D7
12624  486E FFF2                 Pea.L     $-E(A6)
12628  2F17                      Move.L    (A7), -(A7)
1262A  4267                      Clr       -(A7)
1262C  42A7                      Clr.L     -(A7)
1262E  A8EC                      _CopyBits
12630  2F07                      Move.L    D7, -(A7)
12632  4E75                      Rts
12634  2D5B FFD8      L2819:     Move.L    (A3)+, $-28(A6)
12638  2D53 FFDC                 Move.L    (A3), $-24(A6)
1263C  605C                      Bra.B     L2820

                      P483:
1263E  48E7 0838                 MoveM.L   D4/A2-A4, -(A7)
12642  283C 0002 0002            Move.L    #$20002, D4
12648  47F8 09FA                 Lea.L     (scratch8), A3
1264C  49EE FFE4                 Lea.L     $-1C(A6), A4
12650  244C                      Move.L    A4, A2
12652  2F0B                      Move.L    A3, -(A7)
12654  369A                      Move      (A2)+, (A3)
12656  585B                      AddQ      #$4, (A3)+
12658  36DA                      Move      (A2)+, (A3)+
1265A  26D2                      Move.L    (A2), (A3)+
1265C  2F3C FFFC FFFC            Move.L    #$FFFCFFFC, -(A7)
12662  A8A9                      _InsetRect
12664  700F                      MoveQ.L   #$F, D0
12666  D063                      Add       -(A3), D0
12668  3223                      Move      -(A3), D1
1266A  9063                      Sub       -(A3), D0
1266C  9263                      Sub       -(A3), D1
1266E  E848                      LsR       #$4, D0
12670  D040                      Add       D0, D0
12672  3D40 FFF0                 Move      D0, $-10(A6)
12676  C0C1                      MulU      D1, D0
12678  A122                      _NewHandle
1267A  66B8                      BNE.B     L2819
1267C  21C8 0A28                 Move.L    A0, (SavedHandle)
12680  2D50 FFEC                 Move.L    (A0), $-14(A6)
12684  2D5B FFF2                 Move.L    (A3)+, $-E(A6)
12688  2D53 FFF6                 Move.L    (A3), $-A(A6)
1268C  2078 09DE                 Move.L    (WMgrPort), A0
12690  4868 0002                 Pea.L     $2(A0)
12694  486E FFEC                 Pea.L     $-14(A6)
12698  6188                      Bsr.B     P482
1269A  2F0C           L2820:     Move.L    A4, -(A7)
1269C  A8A3                      _EraseRect
1269E  554F                      SubQ      #$2, A7
126A0  2F0C                      Move.L    A4, -(A7)
126A2  A8AE                      _EmptyRect
126A4  4A1F                      Tst.B     (A7)+
126A6  663A                      BNE.B     L2821
126A8  A89E                      _PenNormal
126AA  2F12                      Move.L    (A2), -(A7)
126AC  2F17                      Move.L    (A7), -(A7)
126AE  2F14                      Move.L    (A4), -(A7)
126B0  536F 0002                 SubQ      #$1, $2(A7)
126B4  2F17                      Move.L    (A7), -(A7)
126B6  3F52 0004                 Move      (A2), $4(A7)
126BA  3F54 000C                 Move      (A4), $C(A7)
126BE  A893                      _MoveTo
126C0  A891                      _LineTo
126C2  A891                      _LineTo
126C4  A891                      _LineTo
126C6  6120                      Bsr.B     P484
126C8  2F0C                      Move.L    A4, -(A7)
126CA  A87B                      _ClipRect
126CC  4267                      Clr       -(A7)
126CE  6100 FD56                 Bsr       P475
126D2  2F09                      Move.L    A1, -(A7)
126D4  2F0C                      Move.L    A4, -(A7)
126D6  514F                      SubQ      #$8, A7
126D8  6136                      Bsr.B     P485
126DA  4E90                      Jsr       (A0)
126DC  6152                      Bsr.B     P486
126DE  6100 008A                 Bsr       P_mFullClip
126E2  4CDF 1C10      L2821:     MoveM.L   (A7)+, D4/A2-A4
126E6  4E75                      Rts

                      P484:
126E8  2F04                      Move.L    D4, -(A7)
126EA  A89B                      _PenSize
126EC  302C 0006                 Move      $6(A4), D0
126F0  3F00                      Move      D0, -(A7)
126F2  3F14                      Move      (A4), -(A7)
126F4  D957                      Add       D4, (A7)
126F6  3F00                      Move      D0, -(A7)
126F8  302C 0004                 Move      $4(A4), D0
126FC  3F00                      Move      D0, -(A7)
126FE  3F2C 0002                 Move      $2(A4), -(A7)
12702  D957                      Add       D4, (A7)
12704  3F00                      Move      D0, -(A7)
12706  A893                      _MoveTo
12708  A891                      _LineTo
1270A  A891                      _LineTo
1270C  A89E                      _PenNormal
1270E  4E75                      Rts

                      P485:
12710  2028 0006                 Move.L    $6(A0), D0
12714  41FA 0012                 Lea.L     E_678, A0
12718  670C                      BEQ.B     L2822
1271A  2040                      Move.L    D0, A0
1271C  2F08                      Move.L    A0, -(A7)
1271E  A9A2                      _LoadResource
12720  08D0 0007                 BSet.B    #$7, (A0)
12724  2050                      Move.L    (A0), A0
12726  4E75           L2822:     Rts

                      E_678:
12728  205F                      Move.L    (A7)+, A0
1272A  DEFC 000C                 AddA      #$C, A7
1272E  4ED0                      Jmp       (A0)

                      P486:
12730  6100 FCF4                 Bsr       P475

                      P487:
12734  2028 0006                 Move.L    $6(A0), D0
12738  6706                      BEQ.B     L2823
1273A  2040                      Move.L    D0, A0
1273C  0890 0007                 BClr.B    #$7, (A0)
12740  4E75           L2823:     Rts

                      P488:
12742  3F04                      Move      D4, -(A7)
12744  3838 0A24                 Move      (MenuFlash), D4
12748  671C                      BEQ.B     L2825
1274A  31EE 000E 09CE            Move      $E(A6), (ToolScratch)
12750  6714                      BEQ.B     L2825
12752  486E FFE4                 Pea.L     $-1C(A6)
12756  A87B                      _ClipRect
12758  7200           L2824:     MoveQ.L   #$0, D1
1275A  611A                      Bsr.B     P490
1275C  2203                      Move.L    D3, D1
1275E  6116                      Bsr.B     P490
12760  5344                      SubQ      #$1, D4
12762  66F4                      BNE.B     L2824
12764  6104                      Bsr.B     P_mFullClip
12766  381F           L2825:     Move      (A7)+, D4
12768  4E75                      Rts

                      P_mFullClip:
1276A  2078 09DE                 Move.L    (WMgrPort), A0
1276E  4868 0010                 Pea.L     $10(A0)
12772  A87B                      _ClipRect
12774  4E75                      Rts

                      P490:
12776  3F3C 0001                 Move      #$1, -(A7)
1277A  6100 FCAA                 Bsr       P475
1277E  2F09                      Move.L    A1, -(A7)
12780  486E FFE4                 Pea.L     $-1C(A6)
12784  2F01                      Move.L    D1, -(A7)
12786  4878 09CE                 Pea.L     (ToolScratch)
1278A  6184                      Bsr.B     P485
1278C  4E90                      Jsr       (A0)
1278E  61A0                      Bsr.B     P486
12790  2038 016A                 Move.L    (Ticks), D0
12794  5680                      AddQ      #$3, D0
12796  B0B8 016A      L2826:     Cmp.L     (Ticks), D0
1279A  6EFA                      BGT.B     L2826
1279C  4E75                      Rts

                      P_tGetMenuBar:
1279E  6100 FA46                 Bsr       P468
127A2  2F48 0004                 Move.L    A0, $4(A7)
127A6  2250                      Move.L    (A0), A1
127A8  6100 FC8A                 Bsr       P476
127AC  7066           L2827:     MoveQ.L   #$66, D0
127AE  A02E                      _BlockMove
127B0  4E75                      Rts

                      P_tSetMenuBar:
127B2  206F 0004                 Move.L    $4(A7), A0
127B6  6100 FC80                 Bsr       P477
127BA  6100 FC84                 Bsr       P478
127BE  2E9F                      Move.L    (A7)+, (A7)
127C0  60EA                      Bra.B     L2827

                      P_tDisposeMenu:
127C2  206F 0004                 Move.L    $4(A7), A0
127C6  0810 0005                 BTst.B    #$5, (A0)
127CA  6706                      BEQ.B     L2828
127CC  2F08                      Move.L    A0, -(A7)
127CE  A9A3                      _ReleaseResource
127D0  6002                      Bra.B     L2829
127D2  A023           L2828:     _DisposeHandle
127D4  2E9F           L2829:     Move.L    (A7)+, (A7)
127D6  4E75                      Rts

                      P_tFlashMenuBar:
127D8  2F04                      Move.L    D4, -(A7)
127DA  2078 09DE                 Move.L    (WMgrPort), A0
127DE  2068 001C                 Move.L    $1C(A0), A0
127E2  2F08                      Move.L    A0, -(A7)
127E4  A9E1                      _HandToHand
127E6  201F                      Move.L    (A7)+, D0
127E8  2F08                      Move.L    A0, -(A7)
127EA  2F08                      Move.L    A0, -(A7)
127EC  2F00                      Move.L    D0, -(A7)
127EE  4EBA ECDE                 Jsr       P_mGetSetWPort
127F2  6100 FF76                 Bsr       P_mFullClip
127F6  322F 0014                 Move      $14(A7), D1
127FA  6712                      BEQ.B     L2831
127FC  6100 FC52                 Bsr       P479
12800  4EBA ECD6      L2830:     Jsr       P_mRestorePort
12804  A8DC                      _CopyRgn
12806  A8D9                      _DisposeRgn
12808  281F                      Move.L    (A7)+, D4
1280A  6000 FADE                 Bra       L2788
1280E  2078 09DE      L2831:     Move.L    (WMgrPort), A0
12812  4868 0010                 Pea.L     $10(A0)
12816  2F28 001C                 Move.L    $1C(A0), -(A7)
1281A  42A7                      Clr.L     -(A7)
1281C  3F28 0016                 Move      $16(A0), -(A7)
12820  3F3C 0014                 Move      #$14, -(A7)
12824  A8DE                      _SetRectRgn
12826  2F3C 0010 0010            Move.L    #$100010, -(A7)
1282C  A8B3                      _InvertRoundRect
1282E  60D0                      Bra.B     L2830

                      P491:
12830  4A40                      Tst       D0
12832  6F18                      BLE.B     L2833
12834  7200                      MoveQ.L   #$0, D1
12836  43E8 000E                 Lea.L     $E(A0), A1
1283A  1219                      Move.B    (A1)+, D1
1283C  D2C1                      AddA      D1, A1
1283E  5340           L2832:     SubQ      #$1, D0
12840  6714                      BEQ.B     L2834
12842  1211                      Move.B    (A1), D1
12844  6706                      BEQ.B     L2833
12846  5A41                      AddQ      #$5, D1
12848  D2C1                      AddA      D1, A1
1284A  60F2                      Bra.B     L2832
1284C  2209           L2833:     Move.L    A1, D1
1284E  91C8                      SubA.L    A0, A0
12850  2248                      Move.L    A0, A1
12852  2008                      Move.L    A0, D0
12854  4E75                      Rts
12856  4A11           L2834:     Tst.B     (A1)
12858  67F2                      BEQ.B     L2833
1285A  2049                      Move.L    A1, A0
1285C  1219                      Move.B    (A1)+, D1
1285E  D2C1                      AddA      D1, A1
12860  4E75                      Rts
12862  206F 0008      L2835:     Move.L    $8(A7), A0
12866  2050                      Move.L    (A0), A0
12868  302F 0006                 Move      $6(A7), D0
1286C  61C2                      Bsr.B     P491
1286E  6712                      BEQ.B     L2836
12870  13AF 0005 2000            Move.B    $5(A7), $0(A1,D2.W)
12876  5542                      SubQ      #$2, D2
12878  6708                      BEQ.B     L2836
1287A  2F2F 0008                 Move.L    $8(A7), -(A7)
1287E  6100 0104                 Bsr       P493
12882  205F           L2836:     Move.L    (A7)+, A0
12884  504F                      AddQ      #$8, A7
12886  4ED0                      Jmp       (A0)
12888  206F 000A      L2837:     Move.L    $A(A7), A0
1288C  2050                      Move.L    (A0), A0
1288E  302F 0008                 Move      $8(A7), D0
12892  619C                      Bsr.B     P491
12894  206F 0004                 Move.L    $4(A7), A0
12898  4210                      Clr.B     (A0)
1289A  2009                      Move.L    A1, D0
1289C  6706                      BEQ.B     L2838
1289E  1171 2000 0001            Move.B    $0(A1,D2.W), $1(A0)
128A4  205F           L2838:     Move.L    (A7)+, A0
128A6  DEFC 000A                 AddA      #$A, A7
128AA  4ED0                      Jmp       (A0)

                      P_tGetItmIcon:
128AC  7400                      MoveQ.L   #$0, D2
128AE  60D8                      Bra.B     L2837

                      P_tSetItmIcon:
128B0  7400                      MoveQ.L   #$0, D2
128B2  60AE                      Bra.B     L2835

                      P_tGetItmStyle:
128B4  7403                      MoveQ.L   #$3, D2
128B6  60D0                      Bra.B     L2837

                      P_tSetItmStyle:
128B8  7403                      MoveQ.L   #$3, D2
128BA  60A6                      Bra.B     L2835

                      P_tGetItmMark:
128BC  7402                      MoveQ.L   #$2, D2
128BE  60C8                      Bra.B     L2837

                      P_tSetItmMark:
128C0  7402                      MoveQ.L   #$2, D2
128C2  609E                      Bra.B     L2835

                      P_tCheckItem:
128C4  4A2F 0004                 Tst.B     $4(A7)
128C8  6708                      BEQ.B     L2839
128CA  3F7C 0012 0004            Move      #$12, $4(A7)
128D0  60EE                      Bra.B     P_tSetItmMark
128D2  426F 0004      L2839:     Clr       $4(A7)
128D6  60E8                      Bra.B     P_tSetItmMark

                      P492:
128D8  1F00                      Move.B    D0, -(A7)
128DA  204F                      Move.L    A7, A0
128DC  7001                      MoveQ.L   #$1, D0
128DE  A254                      _UprStringMarks
128E0  101F                      Move.B    (A7)+, D0
128E2  4E75                      Rts

                      P_tMenuKey:
128E4  48E7 1C10                 MoveM.L   D3-D5/A3, -(A7)
128E8  102F 0015                 Move.B    $15(A7), D0
128EC  61EA                      Bsr.B     P492
128EE  1800                      Move.B    D0, D4
128F0  6100 FB42                 Bsr       P476
128F4  3A10                      Move      (A0), D5
128F6  6100 FB2E      L2840:     Bsr       P475
128FA  2648                      Move.L    A0, A3
128FC  082B 0000 000D            BTst.B    #$0, $D(A3)
12902  6722                      BEQ.B     L2843
12904  7601                      MoveQ.L   #$1, D3
12906  202B 000A      L2841:     Move.L    $A(A3), D0
1290A  0700                      BTst.L    D3, D0
1290C  6714                      BEQ.B     L2842
1290E  204B                      Move.L    A3, A0
12910  3003                      Move      D3, D0
12912  6100 FF1C                 Bsr       P491
12916  670E                      BEQ.B     L2843
12918  1029 0001                 Move.B    $1(A1), D0
1291C  61BA                      Bsr.B     P492
1291E  B800                      Cmp.B     D0, D4
12920  6714                      BEQ.B     L2845
12922  5243           L2842:     AddQ      #$1, D3
12924  60E0                      Bra.B     L2841
12926  5D45           L2843:     SubQ      #$6, D5
12928  66CC                      BNE.B     L2840
1292A  42AF 0016                 Clr.L     $16(A7)
1292E  4CDF 0838      L2844:     MoveM.L   (A7)+, D3-D5/A3
12932  6000 F9B6                 Bra       L2788
12936  6100 FAEE      L2845:     Bsr       P475
1293A  3010                      Move      (A0), D0
1293C  4840                      Swap      D0
1293E  3003                      Move      D3, D0
12940  2F40 0016                 Move.L    D0, $16(A7)
12944  4840                      Swap      D0
12946  3F00                      Move      D0, -(A7)
12948  A938                      _HiliteMenu
1294A  4A78 0A20                 Tst       (MBarEnable)
1294E  6B06                      BMI.B     L2846
12950  202F 0016                 Move.L    $16(A7), D0
12954  6AD8                      BPL.B     L2844
12956  2F00           L2846:     Move.L    D0, -(A7)
12958  A9B5                      _SystemMenu
1295A  42AF 0016                 Clr.L     $16(A7)
1295E  60CE                      Bra.B     L2844

                      P_tGetMenuItemText:
12960  206F 000A                 Move.L    $A(A7), A0
12964  2050                      Move.L    (A0), A0
12966  302F 0008                 Move      $8(A7), D0
1296A  6100 FEC4                 Bsr       P491
1296E  226F 0004                 Move.L    $4(A7), A1
12972  670C                      BEQ.B     L2848
12974  7000                      MoveQ.L   #$0, D0
12976  1010                      Move.B    (A0), D0
12978  5240                      AddQ      #$1, D0
1297A  A02E                      _BlockMove
1297C  6000 FF26      L2847:     Bra       L2838
12980  4211           L2848:     Clr.B     (A1)
12982  60F8                      Bra.B     L2847

                      P493:
12984  206F 0004                 Move.L    $4(A7), A0
12988  2050                      Move.L    (A0), A0
1298A  217C FFFF FFFF            Move.L    #$FFFFFFFF, $2(A0)
       0002
12992  6022                      Bra.B     L2849

                      P_tCalcMenuSize:
12994  3F3C 0002                 Move      #$2, -(A7)
12998  206F 0006                 Move.L    $6(A7), A0
1299C  2F08                      Move.L    A0, -(A7)
1299E  42A7                      Clr.L     -(A7)
129A0  42A7                      Clr.L     -(A7)
129A2  42A7                      Clr.L     -(A7)
129A4  2050                      Move.L    (A0), A0
129A6  6100 FD68                 Bsr       P485
129AA  4E90                      Jsr       (A0)
129AC  206F 0004                 Move.L    $4(A7), A0
129B0  2050                      Move.L    (A0), A0
129B2  6100 FD80                 Bsr       P487
129B6  2E9F           L2849:     Move.L    (A7)+, (A7)
129B8  4E75                      Rts

                      E_693:
129BA  2053                      Move.L    (A3), A0
129BC  2028 000A                 Move.L    $A(A0), D0
129C0  0900                      BTst.L    D4, D0
129C2  6704                      BEQ.B     L2850
129C4  0800 0000                 BTst.B    #$0, D0
129C8  4E75           L2850:     Rts

                      P_tNewMenu:
129CA  7200                      MoveQ.L   #$0, D1
129CC  7010                      MoveQ.L   #$10, D0
129CE  206F 0004                 Move.L    $4(A7), A0
129D2  1210                      Move.B    (A0), D1
129D4  D041                      Add       D1, D0
129D6  A122                      _NewHandle
129D8  2F48 000A                 Move.L    A0, $A(A7)
129DC  2250                      Move.L    (A0), A1
129DE  3F01                      Move      D1, -(A7)
129E0  32EF 000A                 Move      $A(A7), (A1)+
129E4  4299                      Clr.L     (A1)+
129E6  594F                      SubQ      #$4, A7
129E8  2F3C 4D44 4546            Move.L    #$4D444546, -(A7)
129EE  4267                      Clr       -(A7)
129F0  31FC FFFF 0B9E            Move      #$-1, (ROMMapInsert)
129F6  A9A0                      _GetResource
129F8  205F                      Move.L    (A7)+, A0
129FA  226F 000C                 Move.L    $C(A7), A1
129FE  2251                      Move.L    (A1), A1
12A00  5C49                      AddQ      #$6, A1
12A02  22C8                      Move.L    A0, (A1)+
12A04  22F8 0A06                 Move.L    (MinusOne), (A1)+
12A08  321F                      Move      (A7)+, D1
12A0A  206F 0004                 Move.L    $4(A7), A0
12A0E  12D8           L2851:     Move.B    (A0)+, (A1)+
12A10  51C9 FFFC                 DBF       D1, L2851
12A14  4219                      Clr.B     (A1)+
12A16  6000 F86C                 Bra       L2780

                      P_tAppendMenu:
12A1A  205F                      Move.L    (A7)+, A0
12A1C  3F3C 03E7                 Move      #$3E7, -(A7)
12A20  2F08                      Move.L    A0, -(A7)

                      P_tInsertMenuItem:
12A22  4E56 FEE8                 Link      A6, #$-118
12A26  48E7 1F38                 MoveM.L   D3-D7/A2-A4, -(A7)
12A2A  286E 000A                 Move.L    $A(A6), A4
12A2E  266E 000E                 Move.L    $E(A6), A3
12A32  3C2E 0008                 Move      $8(A6), D6
12A36  5246                      AddQ      #$1, D6
12A38  610A                      Bsr.B     P494
12A3A  4CDF 1CF8                 MoveM.L   (A7)+, D3-D7/A2-A4
12A3E  4E5E                      Unlk      A6
12A40  6000 FE62                 Bra       L2838

                      P494:
12A44  4243                      Clr       D3
12A46  161C                      Move.B    (A4)+, D3
12A48  6116                      Bsr.B     P495
12A4A  5343                      SubQ      #$1, D3
12A4C  101C           L2852:     Move.B    (A4)+, D0
12A4E  6126                      Bsr.B     P496
12A50  51CB FFFA                 DBF       D3, L2852
12A54  6100 009A                 Bsr       P497
12A58  2F0B                      Move.L    A3, -(A7)
12A5A  6100 FF28                 Bsr       P493
12A5E  4E75                      Rts

                      P495:
12A60  41EE FEE8                 Lea.L     $-118(A6), A0
12A64  4298                      Clr.L     (A0)+
12A66  4290                      Clr.L     (A0)
12A68  4E75                      Rts

                      DT65:
12A6A  5E2F 213C 0D3B            DC.B      '^/!< ;'
12A70  28                        DC.B      '('

                      DT66:
12A71  4249 554F 53              DC.B      'BIUOS'

                      P496:
12A76  4241                      Clr       D1
12A78  122E FEEC                 Move.B    $-114(A6), D1
12A7C  6736                      BEQ.B     L2857
12A7E  0C01 0001                 Cmp.B     #$1, D1
12A82  6604                      BNE.B     L2853
12A84  0440 0030                 Sub       #$30, D0
12A88  0C01 0004      L2853:     Cmp.B     #$4, D1
12A8C  6618                      BNE.B     L2856
12A8E  7404                      MoveQ.L   #$4, D2
12A90  B03B 20DF      L2854:     Cmp.B     DT66(D2.W), D0
12A94  6706                      BEQ.B     L2855
12A96  51CA FFF8                 DBF       D2, L2854
12A9A  4E75                      Rts
12A9C  41EE FEE7      L2855:     Lea.L     $-119(A6), A0
12AA0  1030 1000                 Move.B    $0(A0,D1.W), D0
12AA4  05C0                      BSet.L    D2, D0
12AA6  41EE FEE7      L2856:     Lea.L     $-119(A6), A0
12AAA  1180 1000                 Move.B    D0, $0(A0,D1.W)
12AAE  422E FEEC                 Clr.B     $-114(A6)
12AB2  4E75                      Rts
12AB4  41FA FFB4      L2857:     Lea.L     DT65, A0
12AB8  323C 0006                 Move      #$6, D1
12ABC  B030 1000      L2858:     Cmp.B     $0(A0,D1.W), D0
12AC0  6716                      BEQ.B     L2859
12AC2  51C9 FFF8                 DBF       D1, L2858
12AC6  322E FEEE                 Move      $-112(A6), D1
12ACA  41EE FEF0                 Lea.L     $-110(A6), A0
12ACE  1180 1000                 Move.B    D0, $0(A0,D1.W)
12AD2  526E FEEE                 AddQ      #$1, $-112(A6)
12AD6  4E75                      Rts
12AD8  0C41 0003      L2859:     Cmp       #$3, D1
12ADC  6E08                      BGT.B     L2860
12ADE  5241                      AddQ      #$1, D1
12AE0  1D41 FEEC                 Move.B    D1, $-114(A6)
12AE4  4E75                      Rts
12AE6  5D41           L2860:     SubQ      #$6, D1
12AE8  6606                      BNE.B     P497
12AEA  50EE FEED                 ST.B      $-113(A6)
12AEE  4E75                      Rts

                      P497:
12AF0  302E FEEE                 Move      $-112(A6), D0
12AF4  6706                      BEQ.B     L2861
12AF6  611A                      Bsr.B     P499
12AF8  6100 FF66                 Bsr       P495
12AFC  4E75           L2861:     Rts

                      P498:
12AFE  3A06                      Move      D6, D5
12B00  554F                      SubQ      #$2, A7
12B02  2F0B                      Move.L    A3, -(A7)
12B04  A950                      _CountMItems
12B06  301F                      Move      (A7)+, D0
12B08  5240                      AddQ      #$1, D0
12B0A  BA40                      Cmp       D0, D5
12B0C  6F02                      BLE.B     L2862
12B0E  3A00                      Move      D0, D5
12B10  4E75           L2862:     Rts

                      P499:
12B12  61EA                      Bsr.B     P498
12B14  3005                      Move      D5, D0
12B16  2053                      Move.L    (A3), A0
12B18  6100 FD16                 Bsr       P491
12B1C  6706                      BEQ.B     L2863
12B1E  2208                      Move.L    A0, D1
12B20  2053                      Move.L    (A3), A0
12B22  6144                      Bsr.B     P500
12B24  41EE FEF0      L2863:     Lea.L     $-110(A6), A0
12B28  2448                      Move.L    A0, A2
12B2A  342E FEEE                 Move      $-112(A6), D2
12B2E  D0C2                      AddA      D2, A0
12B30  43EE FEE8                 Lea.L     $-118(A6), A1
12B34  7003                      MoveQ.L   #$3, D0
12B36  10D9           L2864:     Move.B    (A1)+, (A0)+
12B38  51C8 FFFC                 DBF       D0, L2864
12B3C  534A                      SubQ      #$1, A2
12B3E  5A42                      AddQ      #$5, D2
12B40  48C2                      Ext.L     D2
12B42  2241                      Move.L    D1, A1
12B44  93D3                      SubA.L    (A3), A1
12B46  594F                      SubQ      #$4, A7
12B48  2F0B                      Move.L    A3, -(A7)
12B4A  2F09                      Move.L    A1, -(A7)
12B4C  42A7                      Clr.L     -(A7)
12B4E  42A7                      Clr.L     -(A7)
12B50  2F0A                      Move.L    A2, -(A7)
12B52  2F02                      Move.L    D2, -(A7)
12B54  A9E0                      _Munger
12B56  584F                      AddQ      #$4, A7
12B58  4A2E FEED                 Tst.B     $-113(A6)
12B5C  6708                      BEQ.B     L2865
12B5E  2F0B                      Move.L    A3, -(A7)
12B60  3F05                      Move      D5, -(A7)
12B62  6100 F8BC                 Bsr       P_tDisableItem
12B66  4E75           L2865:     Rts

                      P500:
12B68  2428 000A                 Move.L    $A(A0), D2
12B6C  EABA                      ROR.L     D5, D2
12B6E  3005                      Move      D5, D0
12B70  0440 0020                 Sub       #$20, D0
12B74  4440                      Neg       D0
12B76  E0B2                      RXR.L     D0, D2
12B78  2142 000A                 Move.L    D2, $A(A0)
12B7C  4E75                      Rts

                      P_tGetMenuHandle:
12B7E  42AF 0006                 Clr.L     $6(A7)
12B82  322F 0004                 Move      $4(A7), D1
12B86  6100 F702                 Bsr       P470
12B8A  670E                      BEQ.B     L2866
12B8C  3F05                      Move      D5, -(A7)
12B8E  3A00                      Move      D0, D5
12B90  6100 F894                 Bsr       P475
12B94  3A1F                      Move      (A7)+, D5
12B96  2F49 0006                 Move.L    A1, $6(A7)
12B9A  6000 F74E      L2866:     Bra       L2788

                      P_tDeleteMenuItem:
12B9E  2F17                      Move.L    (A7), -(A7)
12BA0  48E7 1838                 MoveM.L   D3-D4/A2-A4, -(A7)
12BA4  266F 001E                 Move.L    $1E(A7), A3
12BA8  2053                      Move.L    (A3), A0
12BAA  302F 001C                 Move      $1C(A7), D0
12BAE  2228 000A                 Move.L    $A(A0), D1
12BB2  3400                      Move      D0, D2
12BB4  0442 0020                 Sub       #$20, D2
12BB8  4442                      Neg       D2
12BBA  E5B1                      RXL.L     D2, D1
12BBC  E1B9                      ROL.L     D0, D1
12BBE  2141 000A                 Move.L    D1, $A(A0)
12BC2  6100 FC6C                 Bsr       P491
12BC6  6746                      BEQ.B     L2868
12BC8  7805                      MoveQ.L   #$5, D4
12BCA  7400                      MoveQ.L   #$0, D2
12BCC  2442                      Move.L    D2, A2
12BCE  6020                      Bra.B     L2867

                      P_tSetMenuItemText:
12BD0  48E7 1838                 MoveM.L   D3-D4/A2-A4, -(A7)
12BD4  266F 001E                 Move.L    $1E(A7), A3
12BD8  362F 001C                 Move      $1C(A7), D3
12BDC  246F 0018                 Move.L    $18(A7), A2
12BE0  3003                      Move      D3, D0
12BE2  2053                      Move.L    (A3), A0
12BE4  6100 FC4A                 Bsr       P491
12BE8  6724                      BEQ.B     L2868
12BEA  7801                      MoveQ.L   #$1, D4
12BEC  7401                      MoveQ.L   #$1, D2
12BEE  D412                      Add.B     (A2), D2
12BF0  2848           L2867:     Move.L    A0, A4
12BF2  99D3                      SubA.L    (A3), A4
12BF4  D810                      Add.B     (A0), D4
12BF6  594F                      SubQ      #$4, A7
12BF8  2F0B                      Move.L    A3, -(A7)
12BFA  2F0C                      Move.L    A4, -(A7)
12BFC  42A7                      Clr.L     -(A7)
12BFE  2F04                      Move.L    D4, -(A7)
12C00  2F0A                      Move.L    A2, -(A7)
12C02  2F02                      Move.L    D2, -(A7)
12C04  A9E0                      _Munger
12C06  584F                      AddQ      #$4, A7
12C08  2F0B                      Move.L    A3, -(A7)
12C0A  6100 FD78                 Bsr       P493
12C0E  4CDF 1C18      L2868:     MoveM.L   (A7)+, D3-D4/A2-A4
12C12  6000 FC90                 Bra       L2838

                      P_tSetMenuFlash:
12C16  31EF 0004 0A24            Move      $4(A7), (MenuFlash)
12C1C  6000 F6CC                 Bra       L2788

                      P_tAppendResMenu:
12C20  205F                      Move.L    (A7)+, A0
12C22  3F3C 03E7                 Move      #$3E7, -(A7)
12C26  2F08                      Move.L    A0, -(A7)

                      P_tInsertResMenu:
12C28  0CAF 464F 4E54            Cmp.L     #$464F4E54, $6(A7)
       0006
12C30  6606                      BNE.B     L2869
12C32  1F7C 0044 0009            Move.B    #$44, $9(A7)
12C38  4E56 FEE8      L2869:     Link      A6, #$-118
12C3C  48E7 1F38                 MoveM.L   D3-D7/A2-A4, -(A7)
12C40  3F38 0A5E                 Move      (ResLoad), -(A7)
12C44  4278 0A5E                 Clr       (ResLoad)
12C48  6100 FE16                 Bsr       P495
12C4C  266E 000E                 Move.L    $E(A6), A3
12C50  3C2E 0008                 Move      $8(A6), D6
12C54  5246                      AddQ      #$1, D6
12C56  6100 FEA6                 Bsr       P498
12C5A  3E05                      Move      D5, D7
12C5C  554F           L2870:     SubQ      #$2, A7
12C5E  2F2E 000A                 Move.L    $A(A6), -(A7)
12C62  A99C                      _CountResources
12C64  381F                      Move      (A7)+, D4
12C66  6700 0070                 BEQ       L2875
12C6A  7601                      MoveQ.L   #$1, D3
12C6C  594F           L2871:     SubQ      #$4, A7
12C6E  2F2E 000A                 Move.L    $A(A6), -(A7)
12C72  3F03                      Move      D3, -(A7)
12C74  A99D                      _GetIndResource
12C76  49EE FEEF                 Lea.L     $-111(A6), A4
12C7A  42A7                      Clr.L     -(A7)
12C7C  42A7                      Clr.L     -(A7)
12C7E  2F0C                      Move.L    A4, -(A7)
12C80  A9A8                      _GetResInfo
12C82  4A14                      Tst.B     (A4)
12C84  674C                      BEQ.B     L2874
12C86  0C2C 002E 0001            Cmp.B     #$2E, $1(A4)
12C8C  6744                      BEQ.B     L2874
12C8E  0C2C 0025 0001            Cmp.B     #$25, $1(A4)
12C94  673C                      BEQ.B     L2874
12C96  3C05                      Move      D5, D6
12C98  BC47                      Cmp       D7, D6
12C9A  672C                      BEQ.B     L2873
12C9C  2053                      Move.L    (A3), A0
12C9E  3006                      Move      D6, D0
12CA0  6100 FB8E                 Bsr       P491
12CA4  2448                      Move.L    A0, A2
12CA6  4A12           L2872:     Tst.B     (A2)
12CA8  671E                      BEQ.B     L2873
12CAA  204A                      Move.L    A2, A0
12CAC  224C                      Move.L    A4, A1
12CAE  7000                      MoveQ.L   #$0, D0
12CB0  1018                      Move.B    (A0)+, D0
12CB2  4840                      Swap      D0
12CB4  1019                      Move.B    (A1)+, D0
12CB6  A050                      _CompareString
12CB8  6E0E                      BGT.B     L2873
12CBA  6716                      BEQ.B     L2874
12CBC  7000                      MoveQ.L   #$0, D0
12CBE  1012                      Move.B    (A2), D0
12CC0  5A40                      AddQ      #$5, D0
12CC2  D5C0                      AddA.L    D0, A2
12CC4  5246                      AddQ      #$1, D6
12CC6  60DE                      Bra.B     L2872
12CC8  3F05           L2873:     Move      D5, -(A7)
12CCA  6100 FE24                 Bsr       P497
12CCE  3A1F                      Move      (A7)+, D5
12CD0  5247                      AddQ      #$1, D7
12CD2  5243           L2874:     AddQ      #$1, D3
12CD4  B644                      Cmp       D4, D3
12CD6  6F94                      BLE.B     L2871
12CD8  0CAE 464F 4E44 L2875:     Cmp.L     #$464F4E44, $A(A6)
       000A
12CE0  660A                      BNE.B     L2876
12CE2  1D7C 0054 000D            Move.B    #$54, $D(A6)
12CE8  6000 FF72                 Bra       L2870
12CEC  2F0B           L2876:     Move.L    A3, -(A7)
12CEE  A948                      _CalcMenuSize
12CF0  A99B                      _SetResLoad
12CF2  4CDF 1CF8                 MoveM.L   (A7)+, D3-D7/A2-A4
12CF6  4E5E                      Unlk      A6
12CF8  6000 FBAA                 Bra       L2838

                      P_tCountMItems:
12CFC  7400                      MoveQ.L   #$0, D2
12CFE  5242           L2877:     AddQ      #$1, D2
12D00  206F 0004                 Move.L    $4(A7), A0
12D04  2050                      Move.L    (A0), A0
12D06  3002                      Move      D2, D0
12D08  6100 FB26                 Bsr       P491
12D0C  66F0                      BNE.B     L2877
12D0E  5342                      SubQ      #$1, D2
12D10  3F42 0008                 Move      D2, $8(A7)
12D14  2E9F                      Move.L    (A7)+, (A7)
12D16  4E75                      Rts

                      P_tPlotIcon:
12D18  43F8 0A0E                 Lea.L     (IconBitmap), A1
12D1C  202F 0004                 Move.L    $4(A7), D0
12D20  672E                      BEQ.B     L2878
12D22  2040                      Move.L    D0, A0
12D24  22D0                      Move.L    (A0), (A1)+
12D26  32FC 0004                 Move      #$4, (A1)+
12D2A  4299                      Clr.L     (A1)+
12D2C  22BC 0020 0020            Move.L    #$200020, (A1)
12D32  222F 0008                 Move.L    $8(A7), D1
12D36  43F8 0A0E                 Lea.L     (IconBitmap), A1
12D3A  2F09                      Move.L    A1, -(A7)
12D3C  2055                      Move.L    (A5), A0
12D3E  2050                      Move.L    (A0), A0
12D40  4868 0002                 Pea.L     $2(A0)
12D44  4869 0006                 Pea.L     $6(A1)
12D48  2F01                      Move.L    D1, -(A7)
12D4A  4267                      Clr       -(A7)
12D4C  42A7                      Clr.L     -(A7)
12D4E  A8EC                      _CopyBits
12D50  6000 FB30      L2878:     Bra       L2836

                      P_tNewControl:
12D54  4E56 0000                 Link      A6, #$0
12D58  48E7 0038                 MoveM.L   A2-A4, -(A7)
12D5C  49EE 0022                 Lea.L     $22(A6), A4
12D60  7029                      MoveQ.L   #$29, D0
12D62  7200                      MoveQ.L   #$0, D1
12D64  206E 0016                 Move.L    $16(A6), A0
12D68  1210                      Move.B    (A0), D1
12D6A  D081                      Add.L     D1, D0
12D6C  A122                      _NewHandle
12D6E  2648                      Move.L    A0, A3
12D70  2888                      Move.L    A0, (A4)
12D72  2453                      Move.L    (A3), A2
12D74  2264                      Move.L    -(A4), A1
12D76  2549 0004                 Move.L    A1, $4(A2)
12D7A  24A9 008C                 Move.L    $8C(A1), (A2)
12D7E  234B 008C                 Move.L    A3, $8C(A1)
12D82  43EA 0008                 Lea.L     $8(A2), A1
12D86  2064                      Move.L    -(A4), A0
12D88  22D8                      Move.L    (A0)+, (A1)+
12D8A  2290                      Move.L    (A0), (A1)
12D8C  422A 0010                 Clr.B     $10(A2)
12D90  2F0B                      Move.L    A3, -(A7)
12D92  2F24                      Move.L    -(A4), -(A7)
12D94  A95F                      _SetControlTitle
12D96  2453                      Move.L    (A3), A2
12D98  41EA 0010                 Lea.L     $10(A2), A0
12D9C  554C                      SubQ      #$2, A4
12D9E  4A14                      Tst.B     (A4)
12DA0  56D8                      SNE.B     (A0)+
12DA2  4218                      Clr.B     (A0)+
12DA4  30E4                      Move      -(A4), (A0)+
12DA6  30E4                      Move      -(A4), (A0)+
12DA8  30E4                      Move      -(A4), (A0)+
12DAA  3024                      Move      -(A4), D0
12DAC  E848                      LsR       #$4, D0
12DAE  594F           L2879:     SubQ      #$4, A7
12DB0  2F3C 4344 4546            Move.L    #$43444546, -(A7)
12DB6  3F00                      Move      D0, -(A7)
12DB8  31FC FFFF 0B9E            Move      #$-1, (ROMMapInsert)
12DBE  A9A0                      _GetResource
12DC0  7000                      MoveQ.L   #$0, D0
12DC2  2053                      Move.L    (A3), A0
12DC4  41E8 0018                 Lea.L     $18(A0), A0
12DC8  209F                      Move.L    (A7)+, (A0)
12DCA  67E2                      BEQ.B     L2879
12DCC  3014                      Move      (A4), D0
12DCE  0240 000F                 And       #$F, D0
12DD2  1080                      Move.B    D0, (A0)
12DD4  5848                      AddQ      #$4, A0
12DD6  4298                      Clr.L     (A0)+
12DD8  4298                      Clr.L     (A0)+
12DDA  20E4                      Move.L    -(A4), (A0)+
12DDC  7003                      MoveQ.L   #$3, D0
12DDE  614C                      Bsr.B     P502
12DE0  4A2E 0014                 Tst.B     $14(A6)
12DE4  6704                      BEQ.B     L2880
12DE6  7200                      MoveQ.L   #$0, D1
12DE8  610E                      Bsr.B     P501
12DEA  4CDF 1C00      L2880:     MoveM.L   (A7)+, A2-A4
12DEE  4E5E                      Unlk      A6
12DF0  205F                      Move.L    (A7)+, A0
12DF2  DEFC 001A                 AddA      #$1A, A7
12DF6  4ED0                      Jmp       (A0)

                      P501:
12DF8  7000                      MoveQ.L   #$0, D0
12DFA  2053                      Move.L    (A3), A0
12DFC  4A28 0010                 Tst.B     $10(A0)
12E00  676C                      BEQ.B     L2883
12E02  48E7 C000                 MoveM.L   D0-D1, -(A7)
12E06  9FFC 0000 000A            SubA.L    #$A, A7
12E0C  4868 0008                 Pea.L     $8(A0)
12E10  2268 0004                 Move.L    $4(A0), A1
12E14  4869 0010                 Pea.L     $10(A1)
12E18  486F 000A                 Pea.L     $A(A7)
12E1C  A8AA                      _SectRect
12E1E  4A1F                      Tst.B     (A7)+
12E20  DFFC 0000 0008            AddA.L    #$8, A7
12E26  4CDF 0003                 MoveM.L   (A7)+, D0-D1
12E2A  6742                      BEQ.B     L2883

                      P502:
12E2C  6100 0314                 Bsr       P505
12E30  42A7                      Clr.L     -(A7)
12E32  2053                      Move.L    (A3), A0
12E34  7400                      MoveQ.L   #$0, D2
12E36  1428 0018                 Move.B    $18(A0), D2
12E3A  3F02                      Move      D2, -(A7)
12E3C  2F0B                      Move.L    A3, -(A7)
12E3E  3F00                      Move      D0, -(A7)
12E40  2F01                      Move.L    D1, -(A7)
12E42  2053                      Move.L    (A3), A0
12E44  2068 0018                 Move.L    $18(A0), A0
12E48  4A90                      Tst.L     (A0)
12E4A  660C                      BNE.B     L2881
12E4C  2F08                      Move.L    A0, -(A7)
12E4E  4217                      Clr.B     (A7)
12E50  31FC FFFF 0B9E            Move      #$-1, (ROMMapInsert)
12E56  A9A2                      _LoadResource
12E58  08D0 0007      L2881:     BSet.B    #$7, (A0)
12E5C  2050                      Move.L    (A0), A0
12E5E  4E90                      Jsr       (A0)
12E60  201F                      Move.L    (A7)+, D0
12E62  2053                      Move.L    (A3), A0
12E64  2068 0018                 Move.L    $18(A0), A0
12E68  0890 0007                 BClr.B    #$7, (A0)
12E6C  A873           L2882:     _SetPort
12E6E  4E75           L2883:     Rts

                      P503:
12E70  6100 02D0                 Bsr       P505
12E74  48E7 0078                 MoveM.L   A1-A4, -(A7)
12E78  A8D8                      _NewRgn
12E7A  2857                      Move.L    (A7), A4
12E7C  7002                      MoveQ.L   #$2, D0
12E7E  220C                      Move.L    A4, D1
12E80  0881 001F                 BClr.B    #$1F, D1
12E84  61A6                      Bsr.B     P502
12E86  A8D4                      _EraseRgn
12E88  2F0C                      Move.L    A4, -(A7)
12E8A  A927                      _InvalRgn
12E8C  2F0C                      Move.L    A4, -(A7)
12E8E  A8D9                      _DisposeRgn
12E90  4CDF 1C00                 MoveM.L   (A7)+, A2-A4
12E94  60D6                      Bra.B     L2882

                      P_tDisposeControl:
12E96  2F0B                      Move.L    A3, -(A7)
12E98  266F 0008                 Move.L    $8(A7), A3
12E9C  61D2                      Bsr.B     P503
12E9E  204B                      Move.L    A3, A0
12EA0  2253                      Move.L    (A3), A1
12EA2  2269 0004                 Move.L    $4(A1), A1
12EA6  43E9 008C                 Lea.L     $8C(A1), A1
12EAA  6100 0412                 Bsr       P506
12EAE  7004                      MoveQ.L   #$4, D0
12EB0  6100 FF7A                 Bsr       P502
12EB4  204B                      Move.L    A3, A0
12EB6  A023                      _DisposeHandle
12EB8  6034                      Bra.B     L2886

                      P_tKillControls:
12EBA  2F0B                      Move.L    A3, -(A7)
12EBC  266F 0008                 Move.L    $8(A7), A3
12EC0  202B 008C      L2884:     Move.L    $8C(A3), D0
12EC4  6728                      BEQ.B     L2886
12EC6  2F00                      Move.L    D0, -(A7)
12EC8  A955                      _DisposeControl
12ECA  60F4                      Bra.B     L2884

                      P_tDraw1Control:
12ECC  2F0B                      Move.L    A3, -(A7)
12ECE  266F 0008                 Move.L    $8(A7), A3
12ED2  2053                      Move.L    (A3), A0
12ED4  6012                      Bra.B     L2885

                      P_tShowControl:
12ED6  2F0B                      Move.L    A3, -(A7)
12ED8  266F 0008                 Move.L    $8(A7), A3
12EDC  2053                      Move.L    (A3), A0
12EDE  4A28 0010                 Tst.B     $10(A0)
12EE2  660A                      BNE.B     L2886
12EE4  50E8 0010                 ST.B      $10(A0)
12EE8  7200           L2885:     MoveQ.L   #$0, D1
12EEA  6100 FF0C                 Bsr       P501
12EEE  265F           L2886:     Move.L    (A7)+, A3
12EF0  2E9F                      Move.L    (A7)+, (A7)
12EF2  4E75                      Rts

                      P_tHideControl:
12EF4  2F0B                      Move.L    A3, -(A7)
12EF6  266F 0008                 Move.L    $8(A7), A3
12EFA  2053                      Move.L    (A3), A0
12EFC  4A28 0010                 Tst.B     $10(A0)
12F00  67EC                      BEQ.B     L2886
12F02  6100 FF6C                 Bsr       P503
12F06  2053                      Move.L    (A3), A0
12F08  4228 0010                 Clr.B     $10(A0)
12F0C  60E0                      Bra.B     L2886

                      P_tMoveControl:
12F0E  48E7 1010                 MoveM.L   D3/A3, -(A7)
12F12  266F 0010                 Move.L    $10(A7), A3
12F16  2053                      Move.L    (A3), A0
12F18  1628 0010                 Move.B    $10(A0), D3
12F1C  2F0B                      Move.L    A3, -(A7)
12F1E  A958                      _HideControl
12F20  2053                      Move.L    (A3), A0
12F22  5048                      AddQ      #$8, A0
12F24  302F 000C                 Move      $C(A7), D0
12F28  9050                      Sub       (A0), D0
12F2A  322F 000E                 Move      $E(A7), D1
12F2E  9268 0002                 Sub       $2(A0), D1
12F32  2F08                      Move.L    A0, -(A7)
12F34  3F01                      Move      D1, -(A7)
12F36  3F00                      Move      D0, -(A7)
12F38  A8A8                      _OffsetRect
12F3A  4A03           L2887:     Tst.B     D3
12F3C  6704                      BEQ.B     L2888
12F3E  2F0B                      Move.L    A3, -(A7)
12F40  A957                      _ShowControl
12F42  4CDF 0808      L2888:     MoveM.L   (A7)+, D3/A3
12F46  205F           L2889:     Move.L    (A7)+, A0
12F48  504F                      AddQ      #$8, A7
12F4A  4ED0                      Jmp       (A0)

                      P_tGetControlReference:
12F4C  7224                      MoveQ.L   #$24, D1
12F4E  205F           L2890:     Move.L    (A7)+, A0
12F50  225F                      Move.L    (A7)+, A1
12F52  2251                      Move.L    (A1), A1
12F54  2EB1 1000                 Move.L    $0(A1,D1.W), (A7)
12F58  4ED0                      Jmp       (A0)

                      P_tSetControlReference:
12F5A  7224                      MoveQ.L   #$24, D1
12F5C  205F           L2891:     Move.L    (A7)+, A0
12F5E  201F                      Move.L    (A7)+, D0
12F60  225F                      Move.L    (A7)+, A1
12F62  2251                      Move.L    (A1), A1
12F64  2380 1000                 Move.L    D0, $0(A1,D1.W)
12F68  4ED0                      Jmp       (A0)

                      P_tGetControlAction:
12F6A  7220                      MoveQ.L   #$20, D1
12F6C  60E0                      Bra.B     L2890

                      P_tSetControlAction:
12F6E  7220                      MoveQ.L   #$20, D1
12F70  60EA                      Bra.B     L2891

                      P_tSizeControl:
12F72  48E7 1010                 MoveM.L   D3/A3, -(A7)
12F76  266F 0010                 Move.L    $10(A7), A3
12F7A  2053                      Move.L    (A3), A0
12F7C  1628 0010                 Move.B    $10(A0), D3
12F80  2F0B                      Move.L    A3, -(A7)
12F82  A958                      _HideControl
12F84  302F 000C                 Move      $C(A7), D0
12F88  322F 000E                 Move      $E(A7), D1
12F8C  2053                      Move.L    (A3), A0
12F8E  5048                      AddQ      #$8, A0
12F90  D058                      Add       (A0)+, D0
12F92  D258                      Add       (A0)+, D1
12F94  30C0                      Move      D0, (A0)+
12F96  30C1                      Move      D1, (A0)+
12F98  60A0                      Bra.B     L2887

                      P_tHiliteControl:
12F9A  2F0B                      Move.L    A3, -(A7)
12F9C  266F 000A                 Move.L    $A(A7), A3
12FA0  2053                      Move.L    (A3), A0
12FA2  7200                      MoveQ.L   #$0, D1
12FA4  7000                      MoveQ.L   #$0, D0
12FA6  122F 0009                 Move.B    $9(A7), D1
12FAA  1028 0011                 Move.B    $11(A0), D0
12FAE  B200                      Cmp.B     D0, D1
12FB0  670C                      BEQ.B     L2893
12FB2  1141 0011                 Move.B    D1, $11(A0)
12FB6  6602                      BNE.B     L2892
12FB8  3200                      Move      D0, D1
12FBA  6100 FE3C      L2892:     Bsr       P501
12FBE  265F           L2893:     Move.L    (A7)+, A3
12FC0  205F           L2894:     Move.L    (A7)+, A0
12FC2  5C4F                      AddQ      #$6, A7
12FC4  4ED0                      Jmp       (A0)

                      P_tGetControlTitle:
12FC6  201F                      Move.L    (A7)+, D0
12FC8  225F                      Move.L    (A7)+, A1
12FCA  205F                      Move.L    (A7)+, A0
12FCC  2F00                      Move.L    D0, -(A7)
12FCE  2050                      Move.L    (A0), A0
12FD0  41E8 0028                 Lea.L     $28(A0), A0
12FD4  7000                      MoveQ.L   #$0, D0
12FD6  1010                      Move.B    (A0), D0
12FD8  5280                      AddQ      #$1, D0
12FDA  A02E                      _BlockMove
12FDC  4E75                      Rts

                      P_tSetControlTitle:
12FDE  48E7 1018                 MoveM.L   D3/A3-A4, -(A7)
12FE2  266F 0014                 Move.L    $14(A7), A3
12FE6  2053                      Move.L    (A3), A0
12FE8  1628 0010                 Move.B    $10(A0), D3
12FEC  2F0B                      Move.L    A3, -(A7)
12FEE  A958                      _HideControl
12FF0  286F 0010                 Move.L    $10(A7), A4
12FF4  7000                      MoveQ.L   #$0, D0
12FF6  1014                      Move.B    (A4), D0
12FF8  2F00                      Move.L    D0, -(A7)
12FFA  0640 0029                 Add       #$29, D0
12FFE  204B                      Move.L    A3, A0
13000  A024                      _SetHandleSize
13002  201F                      Move.L    (A7)+, D0
13004  204C                      Move.L    A4, A0
13006  2253                      Move.L    (A3), A1
13008  43E9 0028                 Lea.L     $28(A1), A1
1300C  5240                      AddQ      #$1, D0
1300E  A02E                      _BlockMove
13010  4A03                      Tst.B     D3
13012  6704                      BEQ.B     L2895
13014  2F0B                      Move.L    A3, -(A7)
13016  A957                      _ShowControl
13018  4CDF 1808      L2895:     MoveM.L   (A7)+, D3/A3-A4
1301C  6000 FF28                 Bra       L2889

                      P_tGetControlValue:
13020  7012                      MoveQ.L   #$12, D0
13022  225F           L2896:     Move.L    (A7)+, A1
13024  205F                      Move.L    (A7)+, A0
13026  2050                      Move.L    (A0), A0
13028  3EB0 0000                 Move      $0(A0,D0.W), (A7)
1302C  4ED1                      Jmp       (A1)

                      P_tGetControlMinimum:
1302E  7014                      MoveQ.L   #$14, D0
13030  60F0                      Bra.B     L2896

                      P_tGetControlMaximum:
13032  7016                      MoveQ.L   #$16, D0
13034  60EC                      Bra.B     L2896

                      P_tSetControlValue:
13036  7012                      MoveQ.L   #$12, D0
13038  2F0B           L2897:     Move.L    A3, -(A7)
1303A  266F 000A                 Move.L    $A(A7), A3
1303E  322F 0008                 Move      $8(A7), D1
13042  2053                      Move.L    (A3), A0
13044  B270 0000                 Cmp       $0(A0,D0.W), D1
13048  6728                      BEQ.B     L2900
1304A  3181 0000                 Move      D1, $0(A0,D0.W)
1304E  3228 0012                 Move      $12(A0), D1
13052  B268 0014                 Cmp       $14(A0), D1
13056  6C04                      BGE.B     L2898
13058  3228 0014                 Move      $14(A0), D1
1305C  B268 0016      L2898:     Cmp       $16(A0), D1
13060  6F04                      BLE.B     L2899
13062  3228 0016                 Move      $16(A0), D1
13066  3141 0012      L2899:     Move      D1, $12(A0)
1306A  323C 0081                 Move      #$81, D1
1306E  6100 FD88                 Bsr       P501
13072  265F           L2900:     Move.L    (A7)+, A3
13074  6000 FF4A                 Bra       L2894

                      P_tSetControlMinimum:
13078  7014                      MoveQ.L   #$14, D0
1307A  60BC                      Bra.B     L2897

                      P_tSetControlMaximum:
1307C  7016                      MoveQ.L   #$16, D0
1307E  60B8                      Bra.B     L2897

                      P_tTestControl:
13080  2F0B                      Move.L    A3, -(A7)
13082  266F 000C                 Move.L    $C(A7), A3
13086  2053                      Move.L    (A3), A0
13088  426F 0010                 Clr       $10(A7)
1308C  1228 0010                 Move.B    $10(A0), D1
13090  6716                      BEQ.B     L2901
13092  0C28 00FF 0011            Cmp.B     #$-1, $11(A0)
13098  670E                      BEQ.B     L2901
1309A  222F 0008                 Move.L    $8(A7), D1
1309E  7001                      MoveQ.L   #$1, D0
130A0  6100 FD8A                 Bsr       P502
130A4  3F40 0010                 Move      D0, $10(A7)
130A8  265F           L2901:     Move.L    (A7)+, A3
130AA  6000 FE9A                 Bra       L2889

                      P_tDragControl:
130AE  4278 0A44                 Clr       (DragFlag)

                      P504:
130B2  4E56 0000                 Link      A6, #$0
130B6  48E7 1818                 MoveM.L   D3-D4/A3-A4, -(A7)
130BA  4CEE 0818 000E            MoveM.L   $E(A6), D3-D4/A3
130C0  6100 0080                 Bsr       P505
130C4  3238 0A44                 Move      (DragFlag), D1
130C8  7007                      MoveQ.L   #$7, D0
130CA  6100 FD60                 Bsr       P502
130CE  4A40                      Tst       D0
130D0  663E                      BNE.B     L2903
130D2  4EBA E32E                 Jsr       P438
130D6  4A78 0A44                 Tst       (DragFlag)
130DA  56D7                      SNE.B     (A7)
130DC  2217                      Move.L    (A7), D1
130DE  7002                      MoveQ.L   #$2, D0
130E0  6100 FD4A                 Bsr       P502
130E4  4217                      Clr.B     (A7)
130E6  285F                      Move.L    (A7)+, A4
130E8  48E7 180C                 MoveM.L   D3-D4/A4-A5, -(A7)
130EC  2F2E 000A                 Move.L    $A(A6), -(A7)
130F0  3F2E 0008                 Move      $8(A6), -(A7)
130F4  2F38 0A46                 Move.L    (CurDragAction), -(A7)
130F8  4A78 0A44                 Tst       (DragFlag)
130FC  6602                      BNE.B     L2902
130FE  4297                      Clr.L     (A7)
13100  A926           L2902:     _DragTheRgn
13102  2F0C                      Move.L    A4, -(A7)
13104  A8D9                      _DisposeRgn
13106  261F                      Move.L    (A7)+, D3
13108  6726                      BEQ.B     L2905
1310A  0C43 8000                 Cmp       #$-8000, D3
1310E  6604                      BNE.B     L2904
13110  7600           L2903:     MoveQ.L   #$0, D3
13112  601C                      Bra.B     L2905
13114  4A78 0A44      L2904:     Tst       (DragFlag)
13118  6616                      BNE.B     L2905
1311A  2053                      Move.L    (A3), A0
1311C  2028 0008                 Move.L    $8(A0), D0
13120  D043                      Add       D3, D0
13122  4840                      Swap      D0
13124  4843                      Swap      D3
13126  D043                      Add       D3, D0
13128  4840                      Swap      D0
1312A  2F0B                      Move.L    A3, -(A7)
1312C  2F00                      Move.L    D0, -(A7)
1312E  A959                      _MoveControl
13130  A873           L2905:     _SetPort
13132  2203                      Move.L    D3, D1
13134  4CDF 1818                 MoveM.L   (A7)+, D3-D4/A3-A4
13138  4E5E                      Unlk      A6
1313A  205F                      Move.L    (A7)+, A0
1313C  DEFC 0012                 AddA      #$12, A7
13140  4ED0                      Jmp       (A0)

                      P505:
13142  241F                      Move.L    (A7)+, D2
13144  594F                      SubQ      #$4, A7
13146  2F02                      Move.L    D2, -(A7)
13148  48E7 C000                 MoveM.L   D0-D1, -(A7)
1314C  486F 000C                 Pea.L     $C(A7)
13150  A874                      _GetPort
13152  2053                      Move.L    (A3), A0
13154  2F28 0004                 Move.L    $4(A0), -(A7)
13158  A873                      _SetPort
1315A  4CDF 0003                 MoveM.L   (A7)+, D0-D1
1315E  4E75                      Rts

                      P_tTrackControl:
13160  4E56 FFE4                 Link      A6, #$-1C
13164  48E7 1010                 MoveM.L   D3/A3, -(A7)
13168  266E 0010                 Move.L    $10(A6), A3
1316C  2D6E 000C FFF8            Move.L    $C(A6), $-8(A6)
13172  61CE                      Bsr.B     P505
13174  7600                      MoveQ.L   #$0, D3
13176  2F0B           L2906:     Move.L    A3, -(A7)
13178  4267                      Clr       -(A7)
1317A  2F0B                      Move.L    A3, -(A7)
1317C  2F2E FFF8                 Move.L    $-8(A6), -(A7)
13180  A966                      _TestControl
13182  4A43                      Tst       D3
13184  6608                      BNE.B     L2907
13186  3617                      Move      (A7), D3
13188  4A03                      Tst.B     D3
1318A  6A08                      BPL.B     L2908
1318C  6060                      Bra.B     L2912
1318E  B657           L2907:     Cmp       (A7), D3
13190  6702                      BEQ.B     L2908
13192  4257                      Clr       (A7)
13194  3D57 0014      L2908:     Move      (A7), $14(A6)
13198  A95D                      _HiliteControl
1319A  202E 0008                 Move.L    $8(A6), D0
1319E  672A                      BEQ.B     L2910
131A0  0800 0000                 BTst.B    #$0, D0
131A4  671A                      BEQ.B     L2909
131A6  2053                      Move.L    (A3), A0
131A8  2028 0020                 Move.L    $20(A0), D0
131AC  671C                      BEQ.B     L2910
131AE  0800 0000                 BTst.B    #$0, D0
131B2  670C                      BEQ.B     L2909
131B4  7008                      MoveQ.L   #$8, D0
131B6  322E 0014                 Move      $14(A6), D1
131BA  6100 FC70                 Bsr       P502
131BE  600A                      Bra.B     L2910
131C0  2F0B           L2909:     Move.L    A3, -(A7)
131C2  3F2E 0014                 Move      $14(A6), -(A7)
131C6  2040                      Move.L    D0, A0
131C8  4E90                      Jsr       (A0)
131CA  486E FFF8      L2910:     Pea.L     $-8(A6)
131CE  A972                      _GetMouse
131D0  4267                      Clr       -(A7)
131D2  A977                      _WaitMouseUp
131D4  4A1F                      Tst.B     (A7)+
131D6  669E                      BNE.B     L2906
131D8  2F0B                      Move.L    A3, -(A7)
131DA  4267                      Clr       -(A7)
131DC  A95D                      _HiliteControl
131DE  A873           L2911:     _SetPort
131E0  4CDF 0808                 MoveM.L   (A7)+, D3/A3
131E4  4E5E                      Unlk      A6
131E6  205F                      Move.L    (A7)+, A0
131E8  DEFC 000C                 AddA      #$C, A7
131EC  4ED0                      Jmp       (A0)
131EE  3D5F 0014      L2912:     Move      (A7)+, $14(A6)
131F2  584F                      AddQ      #$4, A7
131F4  41EE FFE4                 Lea.L     $-1C(A6), A0
131F8  20AE 000C                 Move.L    $C(A6), (A0)
131FC  2208                      Move.L    A0, D1
131FE  7006                      MoveQ.L   #$6, D0
13200  6100 FC2A                 Bsr       P502
13204  50F8 0A44                 ST.B      (DragFlag)
13208  202E 0008                 Move.L    $8(A6), D0
1320C  0800 0000                 BTst.B    #$0, D0
13210  670E                      BEQ.B     L2913
13212  2053                      Move.L    (A3), A0
13214  2028 0020                 Move.L    $20(A0), D0
13218  0800 0000                 BTst.B    #$0, D0
1321C  6702                      BEQ.B     L2913
1321E  7000                      MoveQ.L   #$0, D0
13220  21C0 0A46      L2913:     Move.L    D0, (CurDragAction)
13224  2F0B                      Move.L    A3, -(A7)
13226  2F2E 000C                 Move.L    $C(A6), -(A7)
1322A  41EE FFE4                 Lea.L     $-1C(A6), A0
1322E  2F08                      Move.L    A0, -(A7)
13230  4868 0008                 Pea.L     $8(A0)
13234  3F28 0010                 Move      $10(A0), -(A7)
13238  6100 FE78                 Bsr       P504
1323C  4A81                      Tst.L     D1
1323E  6708                      BEQ.B     L2914
13240  7005                      MoveQ.L   #$5, D0
13242  6100 FBE8                 Bsr       P502
13246  6096                      Bra.B     L2911
13248  426E 0014      L2914:     Clr       $14(A6)
1324C  6090                      Bra.B     L2911

                      P_tUpdtControl:
1324E  4E56 FFE8                 Link      A6, #$-18
13252  48E7 0110                 MoveM.L   D7/A3, -(A7)
13256  266E 000C                 Move.L    $C(A6), A3
1325A  7E08                      MoveQ.L   #$8, D7
1325C  600E                      Bra.B     L2915

                      P_tDrawControls:
1325E  4E56 FFE8                 Link      A6, #$-18
13262  48E7 0110                 MoveM.L   D7/A3, -(A7)
13266  266E 0008                 Move.L    $8(A6), A3
1326A  7E04                      MoveQ.L   #$4, D7
1326C  594F           L2915:     SubQ      #$4, A7
1326E  2F0F                      Move.L    A7, -(A7)
13270  A874                      _GetPort
13272  2F0B                      Move.L    A3, -(A7)
13274  A873                      _SetPort
13276  486E FFE8                 Pea.L     $-18(A6)
1327A  2F17                      Move.L    (A7), -(A7)
1327C  A898                      _GetPenState
1327E  A89E                      _PenNormal
13280  202B 008C                 Move.L    $8C(A3), D0
13284  6726                      BEQ.B     L2919
13286  2640           L2916:     Move.L    D0, A3
13288  0C47 0008                 Cmp       #$8, D7
1328C  6612                      BNE.B     L2917
1328E  554F                      SubQ      #$2, A7
13290  2053                      Move.L    (A3), A0
13292  4868 0008                 Pea.L     $8(A0)
13296  2F2E 0008                 Move.L    $8(A6), -(A7)
1329A  A8E9                      _RectInRgn
1329C  4A1F                      Tst.B     (A7)+
1329E  6706                      BEQ.B     L2918
132A0  7200           L2917:     MoveQ.L   #$0, D1
132A2  6100 FB54                 Bsr       P501
132A6  2053           L2918:     Move.L    (A3), A0
132A8  2010                      Move.L    (A0), D0
132AA  66DA                      BNE.B     L2916
132AC  A899           L2919:     _SetPenState
132AE  A873                      _SetPort
132B0  2007                      Move.L    D7, D0
132B2  4CDF 0880                 MoveM.L   (A7)+, D7/A3
132B6  4E5E                      Unlk      A6
132B8  205F                      Move.L    (A7)+, A0
132BA  DFC0                      AddA.L    D0, A7
132BC  4ED0                      Jmp       (A0)

                      P506:
132BE  48E7 4030                 MoveM.L   D1/A2-A3, -(A7)
132C2  70FF                      MoveQ.L   #$-1, D0
132C4  4A91                      Tst.L     (A1)
132C6  6718                      BEQ.B     L2922
132C8  2451                      Move.L    (A1), A2
132CA  2649                      Move.L    A1, A3
132CC  6008                      Bra.B     L2921
132CE  2652           L2920:     Move.L    (A2), A3
132D0  2453                      Move.L    (A3), A2
132D2  220A                      Move.L    A2, D1
132D4  670A                      BEQ.B     L2922
132D6  B5C8           L2921:     CmpA.L    A0, A2
132D8  66F4                      BNE.B     L2920
132DA  2452                      Move.L    (A2), A2
132DC  2692                      Move.L    (A2), (A3)
132DE  7000                      MoveQ.L   #$0, D0
132E0  4CDF 0C02      L2922:     MoveM.L   (A7)+, D1/A2-A3
132E4  4E75                      Rts

                      P_tFindControl:
132E6  4E56 FFFC                 Link      A6, #$-4
132EA  48E7 3010                 MoveM.L   D2-D3/A3, -(A7)
132EE  41EE 0008                 Lea.L     $8(A6), A0
132F2  2258                      Move.L    (A0)+, A1
132F4  4291                      Clr.L     (A1)
132F6  2658                      Move.L    (A0)+, A3
132F8  2618                      Move.L    (A0)+, D3
132FA  4250                      Clr       (A0)
132FC  2F0F                      Move.L    A7, -(A7)
132FE  A874                      _GetPort
13300  2F0B                      Move.L    A3, -(A7)
13302  A873                      _SetPort
13304  4A2B 006E                 Tst.B     $6E(A3)
13308  6700 FED4                 BEQ       L2911
1330C  4267                      Clr       -(A7)
1330E  2F03                      Move.L    D3, -(A7)
13310  486B 0010                 Pea.L     $10(A3)
13314  A8AD                      _PtInRect
13316  4A1F                      Tst.B     (A7)+
13318  6700 FEC4                 BEQ       L2911
1331C  202B 008C                 Move.L    $8C(A3), D0
13320  6700 FEBC                 BEQ       L2911
13324  2640                      Move.L    D0, A3
13326  2053           L2923:     Move.L    (A3), A0
13328  0C28 00FF 0011            Cmp.B     #$-1, $11(A0)
1332E  670C                      BEQ.B     L2924
13330  4267                      Clr       -(A7)
13332  2F0B                      Move.L    A3, -(A7)
13334  2F03                      Move.L    D3, -(A7)
13336  A966                      _TestControl
13338  301F                      Move      (A7)+, D0
1333A  660C                      BNE.B     L2925
1333C  2053           L2924:     Move.L    (A3), A0
1333E  2650                      Move.L    (A0), A3
13340  200B                      Move.L    A3, D0
13342  66E2                      BNE.B     L2923
13344  6000 FE98                 Bra       L2911
13348  206E 0008      L2925:     Move.L    $8(A6), A0
1334C  208B                      Move.L    A3, (A0)
1334E  3D40 0014                 Move      D0, $14(A6)
13352  60E8                      Bra.B     L2924

                      DT67:
13354  0000 0100 0000            DC.B      '      '
1335A  0100 0000 0000            DC.B      '      '
13360  0000 001E 0000            DC.B      '      '
13366  0000 0000 0000            DC.B      '      '
1336C  001C 001E FFFF            DC.B      '      '
13372  0000 0001                 DC.B      '    '

                      P_tInitResources:
13376  42B8 0B84                 Clr.L     (RMgrLastResHand)
1337A  6100 0BD2                 Bsr       P548
1337E  4AB8 0A50                 Tst.L     (TopMapHndl)
13382  6E1E                      BGT.B     L2926
13384  42B8 0AF2                 Clr.L     (ResErrProc)
13388  617A                      Bsr.B     P508
1338A  21C8 0A50                 Move.L    A0, (TopMapHndl)
1338E  21C8 0A54                 Move.L    A0, (SysMapHndl)
13392  21F8 0A02 0A58            Move.L    (OneOne), (SysMap)
13398  6100 00C0                 Bsr       P509
1339C  42A9 0010                 Clr.L     $10(A1)
133A0  6046                      Bra.B     L2927
133A2  47F8 0118      L2926:     Lea.L     (TheZone), A3
133A6  2F13                      Move.L    (A3), -(A7)
133A8  26B8 02A6                 Move.L    (SysZone), (A3)
133AC  43F8 0AD8                 Lea.L     (SysResName), A1
133B0  6100 0260                 Bsr       P_NewMap
133B4  269F                      Move.L    (A7)+, (A3)
133B6  3D46 0008                 Move      D6, $8(A6)
133BA  4A80                      Tst.L     D0
133BC  6F2A                      BLE.B     L2927
133BE  21CC 0A50                 Move.L    A4, (TopMapHndl)
133C2  21CC 0A54                 Move.L    A4, (SysMapHndl)
133C6  31C6 0A5A                 Move      D6, (CurMap)
133CA  31C6 0A58                 Move      D6, (SysMap)
133CE  6100 00C6                 Bsr       P510
133D2  6100 0086                 Bsr       P509
133D6  2378 0A54 0010            Move.L    (SysMapHndl), $10(A1)
133DC  2278 0A54                 Move.L    (SysMapHndl), A1
133E0  2251                      Move.L    (A1), A1
133E2  42A9 0010                 Clr.L     $10(A1)
133E6  6104                      Bsr.B     P507
133E8  6000 0C20      L2927:     Bra       L3066

                      P507:
133EC  594F                      SubQ      #$4, A7
133EE  2F3C 524F 7672            Move.L    #$524F7672, -(A7)
133F4  4267                      Clr       -(A7)
133F6  A9A0                      _GetResource
133F8  201F                      Move.L    (A7)+, D0
133FA  6706                      BEQ.B     L2928
133FC  2040                      Move.L    D0, A0
133FE  2050                      Move.L    (A0), A0
13400  4E90                      Jsr       (A0)
13402  4E75           L2928:     Rts

                      P508:
13404  2078 02AE                 Move.L    (ROMBase), A0
13408  D1E8 001A                 AddA.L    $1A(A0), A0
1340C  2448                      Move.L    A0, A2
1340E  701A                      MoveQ.L   #$1A, D0
13410  D058                      Add       (A0)+, D0
13412  E580                      AsL.L     #$2, D0
13414  D058                      Add       (A0)+, D0
13416  2240                      Move.L    D0, A1
13418  A51E                      _NewPtrSys
1341A  2F38 0118                 Move.L    (TheZone), -(A7)
1341E  42A7                      Clr.L     -(A7)
13420  3F3C 0004                 Move      #$4, -(A7)
13424  D3C8                      AddA.L    A0, A1
13426  2F09                      Move.L    A1, -(A7)
13428  2F08                      Move.L    A0, -(A7)
1342A  2248                      Move.L    A0, A1
1342C  204F                      Move.L    A7, A0
1342E  A019                      _InitZone
13430  08E9 0000 0016            BSet.B    #$0, $16(A1)
13436  21C9 0118                 Move.L    A1, (TheZone)
1343A  DEFC 000E                 AddA      #$E, A7
1343E  7000                      MoveQ.L   #$0, D0
13440  301A                      Move      (A2)+, D0
13442  E580                      AsL.L     #$2, D0
13444  A11E                      _NewPtr
13446  7000                      MoveQ.L   #$0, D0
13448  301A                      Move      (A2)+, D0
1344A  A122                      _NewHandle
1344C  08D0 0007                 BSet.B    #$7, (A0)
13450  21C8 0B06                 Move.L    A0, (ROMMapHandle)
13454  21DF 0118                 Move.L    (A7)+, (TheZone)
13458  4E75                      Rts

                      P509:
1345A  2478 02AE                 Move.L    (ROMBase), A2
1345E  D5EA 001A                 AddA.L    $1A(A2), A2
13462  321A                      Move      (A2)+, D1
13464  7400                      MoveQ.L   #$0, D2
13466  341A                      Move      (A2)+, D2
13468  2002                      Move.L    D2, D0
1346A  2078 0B06                 Move.L    (ROMMapHandle), A0
1346E  2848                      Move.L    A0, A4
13470  A024                      _SetHandleSize
13472  2002                      Move.L    D2, D0
13474  2254                      Move.L    (A4), A1
13476  204A                      Move.L    A2, A0
13478  A02E                      _BlockMove
1347A  337C 0001 0014            Move      #$1, $14(A1)
13480  6100 0A70                 Bsr       P543
13484  122A 0004      L2929:     Move.B    $4(A2), D1
13488  6100 0C78                 Bsr       P558
1348C  D4FC 000C                 AddA      #$C, A2
13490  51CC FFF2                 DBF       D4, L2929
13494  4E75                      Rts

                      P510:
13496  50F8 0A5E                 ST.B      (ResLoad)

                      P511:
1349A  6100 0A04                 Bsr       P540
1349E  6B2C                      BMI.B     L2932
134A0  6100 0A50                 Bsr       P543
134A4  6B26                      BMI.B     L2932
134A6  504A           L2930:     AddQ      #$8, A2
134A8  429A                      Clr.L     (A2)+
134AA  51CC FFFA                 DBF       D4, L2930
134AE  4A38 0A5E                 Tst.B     (ResLoad)
134B2  6718                      BEQ.B     L2932
134B4  6118                      Bsr.B     P_SuperLoad
134B6  6714                      BEQ.B     L2932
134B8  7202                      MoveQ.L   #$2, D1
134BA  6100 03C0                 Bsr       P523
134BE  6B0C                      BMI.B     L2932
134C0  6100 0C6E      L2931:     Bsr       P_CheckLoad
134C4  7202                      MoveQ.L   #$2, D1
134C6  6100 03BA                 Bsr       P525
134CA  67F4                      BEQ.B     L2931
134CC  4E75           L2932:     Rts

                      P_SuperLoad:
134CE  2078 07E4                 Move.L    ($7E4), A0
134D2  4ED0                      Jmp       (A0)

                      P_tA0F9_mvSuperLoad:
134D4  6100 00B4                 Bsr       P515
134D8  6B00 0A70                 BMI       L3054
134DC  6100 0A28                 Bsr       P544
134E0  2254                      Move.L    (A4), A1
134E2  202A 0004      L2933:     Move.L    $4(A2), D0
134E6  C0B8 031A                 And.L     (Lo3Bytes), D0
134EA  B0B8 0B80                 Cmp.L     (RMgrHiVars_LastResType), D0
134EE  6C6A                      BGE.B     L2937
134F0  2F38 0118                 Move.L    (TheZone), -(A7)
134F4  082A 0006 0004            BTst.B    #$6, $4(A2)
134FA  6706                      BEQ.B     L2934
134FC  21F8 02A6 0118            Move.L    (SysZone), (TheZone)
13502  242A 0004      L2934:     Move.L    $4(A2), D2
13506  C4B8 031A                 And.L     (Lo3Bytes), D2
1350A  6168                      Bsr.B     P513
1350C  082A 0004 0004            BTst.B    #$4, $4(A2)
13512  95D4                      SubA.L    (A4), A2
13514  97D4                      SubA.L    (A4), A3
13516  6720                      BEQ.B     L2935
13518  A11E                      _NewPtr
1351A  6B4C                      BMI.B     L2938
1351C  2248                      Move.L    A0, A1
1351E  A166                      _NewEmptyHandle
13520  2208                      Move.L    A0, D1
13522  2089                      Move.L    A1, (A0)
13524  2008                      Move.L    A0, D0
13526  90A1                      Sub.L     -(A1), D0
13528  08E9 0007 FFFC            BSet.B    #$7, $-4(A1)
1352E  08A9 0006 FFFC            BClr.B    #$6, $-4(A1)
13534  22C0                      Move.L    D0, (A1)+
13536  6008                      Bra.B     L2936
13538  A122           L2935:     _NewHandle
1353A  6B2C                      BMI.B     L2938
1353C  2208                      Move.L    A0, D1
1353E  2250                      Move.L    (A0), A1
13540  6132           L2936:     Bsr.B     P513
13542  A02E                      _BlockMove
13544  D5D4                      AddA.L    (A4), A2
13546  D7D4                      AddA.L    (A4), A3
13548  2541 0008                 Move.L    D1, $8(A2)
1354C  2041                      Move.L    D1, A0
1354E  122A 0004                 Move.B    $4(A2), D1
13552  6100 0C64                 Bsr       P561
13556  21DF 0118                 Move.L    (A7)+, (TheZone)
1355A  6100 0B84      L2937:     Bsr       P557
1355E  6A82                      BPL.B     L2933
13560  2047                      Move.L    D7, A0
13562  A023                      _DisposeHandle
13564  7000                      MoveQ.L   #$0, D0
13566  4E75                      Rts
13568  21DF 0118      L2938:     Move.L    (A7)+, (TheZone)
1356C  2047                      Move.L    D7, A0
1356E  A023                      _DisposeHandle
13570  6000 09D8                 Bra       L3054

                      P513:
13574  2047                      Move.L    D7, A0
13576  2050                      Move.L    (A0), A0
13578  D1C2                      AddA.L    D2, A0

                      P514:
1357A  1018                      Move.B    (A0)+, D0
1357C  E148                      LsL       #$8, D0
1357E  1018                      Move.B    (A0)+, D0
13580  4840                      Swap      D0
13582  1018                      Move.B    (A0)+, D0
13584  E148                      LsL       #$8, D0
13586  1018                      Move.B    (A0)+, D0
13588  4E75                      Rts

                      P515:
1358A  4AB8 0B80                 Tst.L     (RMgrHiVars_LastResType)
1358E  6766                      BEQ.B     L2943
13590  7E00                      MoveQ.L   #$0, D7
13592  200F                      Move.L    A7, D0
13594  C0B8 031A                 And.L     (Lo3Bytes), D0
13598  90B8 031E                 Sub.L     (MinStack), D0
1359C  B0B8 0130                 Cmp.L     (ApplLimit), D0
135A0  6504                      BCS.B     L2939
135A2  2038 0130                 Move.L    (ApplLimit), D0
135A6  90B8 0114      L2939:     Sub.L     (HeapEnd), D0
135AA  6F0A                      BLE.B     L2940
135AC  0C80 0000 000C            Cmp.L     #$C, D0
135B2  6302                      BLS.B     L2940
135B4  2E00                      Move.L    D0, D7
135B6  A061           L2940:     _MaxBlock
135B8  B087                      Cmp.L     D7, D0
135BA  6F02                      BLE.B     L2941
135BC  2E00                      Move.L    D0, D7
135BE  2038 0010      L2941:     Move.L    (IllegalInstructionVector), D0
135C2  6136                      Bsr.B     P516
135C4  6A10                      BPL.B     L2942
135C6  2038 000C                 Move.L    (AddressErrorVector), D0
135CA  612E                      Bsr.B     P516
135CC  6A08                      BPL.B     L2942
135CE  2038 0008                 Move.L    (BusErrorVector), D0
135D2  6126                      Bsr.B     P516
135D4  6B20                      BMI.B     L2943
135D6  A122           L2942:     _NewHandle
135D8  6B1C                      BMI.B     L2943
135DA  A023                      _DisposeHandle
135DC  2001                      Move.L    D1, D0
135DE  A122                      _NewHandle
135E0  6B14                      BMI.B     L2943
135E2  2001                      Move.L    D1, D0
135E4  2E08                      Move.L    A0, D7
135E6  2210                      Move.L    (A0), D1
135E8  2054                      Move.L    (A4), A0
135EA  2410                      Move.L    (A0), D2
135EC  6100 0C5C                 Bsr       P567
135F0  6706                      BEQ.B     L2944
135F2  2047                      Move.L    D7, A0
135F4  A023                      _DisposeHandle
135F6  70FF           L2943:     MoveQ.L   #$-1, D0
135F8  4E75           L2944:     Rts

                      P516:
135FA  21C0 0B80                 Move.L    D0, (RMgrHiVars_LastResType)
135FE  6700 094A                 BEQ       L3054
13602  6B0C                      BMI.B     L2945
13604  2200                      Move.L    D0, D1
13606  D080                      Add.L     D0, D0
13608  2054                      Move.L    (A4), A0
1360A  D0A8 000C                 Add.L     $C(A0), D0
1360E  BE80                      Cmp.L     D0, D7
13610  4E75           L2945:     Rts

                      P_NewMap:
13612  2078 07EC                 Move.L    ($7EC), A0
13616  4ED0                      Jmp       (A0)

                      P_tA0FB_mvNewMap:
13618  42B8 0B80                 Clr.L     (RMgrHiVars_LastResType)
1361C  42B8 0B84                 Clr.L     (RMgrLastResHand)
13620  7024                      MoveQ.L   #$24, D0
13622  A122                      _NewHandle
13624  31C0 0A60                 Move      D0, (ResErr)
13628  6B00 00BA                 BMI       L2950
1362C  2848                      Move.L    A0, A4
1362E  6100 0C00                 Bsr       P566
13632  6100 0118                 Bsr       P520
13636  6722                      BEQ.B     L2946
13638  0C40 FFCF                 Cmp       #$-31, D0
1363C  6600 00A2                 BNE       L2949
13640  48E7 0238                 MoveM.L   D6/A2-A4, -(A7)
13644  6100 085A                 Bsr       P540
13648  4CDF 1C40                 MoveM.L   (A7)+, D6/A2-A4
1364C  6600 0092                 BNE       L2949
13650  4278 0A60                 Clr       (ResErr)
13654  204C                      Move.L    A4, A0
13656  A023                      _DisposeHandle
13658  4E75                      Rts
1365A  A011           L2946:     _GetEOF
1365C  31FC FFD9 0A60            Move      #$-27, (ResErr)
13662  4AA8 001C                 Tst.L     $1C(A0)
13666  6772                      BEQ.B     L2948
13668  7024                      MoveQ.L   #$24, D0
1366A  2254                      Move.L    (A4), A1
1366C  2209                      Move.L    A1, D1
1366E  7400                      MoveQ.L   #$0, D2
13670  6100 0BD8                 Bsr       P567
13674  6B64                      BMI.B     L2948
13676  2049                      Move.L    A1, A0
13678  D1FC 0000 0010            AddA.L    #$10, A0
1367E  43F8 0B80                 Lea.L     (RMgrHiVars_LastResType), A1
13682  7014                      MoveQ.L   #$14, D0
13684  A02E                      _BlockMove
13686  2248                      Move.L    A0, A1
13688  93FC 0000 0010            SubA.L    #$10, A1
1368E  6162                      Bsr.B     P518
13690  720C                      MoveQ.L   #$C, D1
13692  2429 0004                 Move.L    $4(A1), D2
13696  D481                      Add.L     D1, D2
13698  2829 000C                 Move.L    $C(A1), D4
1369C  2004                      Move.L    D4, D0
1369E  204C                      Move.L    A4, A0
136A0  A024                      _SetHandleSize
136A2  31C0 0A60                 Move      D0, (ResErr)
136A6  6632                      BNE.B     L2948
136A8  2254                      Move.L    (A4), A1
136AA  2004                      Move.L    D4, D0
136AC  9081                      Sub.L     D1, D0
136AE  D289                      Add.L     A1, D1
136B0  6100 0B98                 Bsr       P567
136B4  6B24                      BMI.B     L2948
136B6  4AB8 0B80                 Tst.L     (RMgrHiVars_LastResType)
136BA  6708                      BEQ.B     L2947
136BC  21E9 000C 0B80            Move.L    $C(A1), (RMgrHiVars_LastResType)
136C2  612E                      Bsr.B     P518
136C4  2344 000C      L2947:     Move.L    D4, $C(A1)
136C8  6100 0CA8                 Bsr       P579
136CC  6B0C                      BMI.B     L2948
136CE  42A9 0010                 Clr.L     $10(A1)
136D2  3346 0014                 Move      D6, $14(A1)
136D6  7001                      MoveQ.L   #$1, D0
136D8  4E75                      Rts
136DA  6100 0B54      L2948:     Bsr       P566
136DE  A001                      _Close
136E0  204C           L2949:     Move.L    A4, A0
136E2  A023                      _DisposeHandle
136E4  42B8 0B80      L2950:     Clr.L     (RMgrHiVars_LastResType)
136E8  42B8 0B84                 Clr.L     (RMgrLastResHand)
136EC  7CFF                      MoveQ.L   #$-1, D6
136EE  70FF                      MoveQ.L   #$-1, D0
136F0  4E75                      Rts

                      P518:
136F2  2038 0B80                 Move.L    (RMgrHiVars_LastResType), D0
136F6  0480 20B7 A185            Sub.L     #$20B7A185, D0
136FC  6704                      BEQ.B     L2951
136FE  42B8 0B80                 Clr.L     (RMgrHiVars_LastResType)
13702  42B8 0B84      L2951:     Clr.L     (RMgrLastResHand)
13706  4E75                      Rts

                      P_tRsrcZoneInit:
13708  6100 0844                 Bsr       P548
1370C  4A78 0A58                 Tst       (SysMap)
13710  6B20                      BMI.B     L2954
13712  6122                      Bsr.B     P519
13714  2878 0A54                 Move.L    (SysMapHndl), A4
13718  6100 07D8                 Bsr       P543
1371C  6B14                      BMI.B     L2954
1371E  082A 0006 0004 L2952:     BTst.B    #$6, $4(A2)
13724  6604                      BNE.B     L2953
13726  42AA 0008                 Clr.L     $8(A2)
1372A  D4FC 000C      L2953:     AddA      #$C, A2
1372E  51CC FFEE                 DBF       D4, L2952
13732  6000 08D6      L2954:     Bra       L3066

                      P519:
13736  2078 0A50                 Move.L    (TopMapHndl), A0
1373A  B1F8 0A54                 CmpA.L    (SysMapHndl), A0
1373E  670A                      BEQ.B     L2955
13740  2050                      Move.L    (A0), A0
13742  3F28 0014                 Move      $14(A0), -(A7)
13746  A99A                      _CloseResFile
13748  60EC                      Bra.B     P519
1374A  4E75           L2955:     Rts

                      P520:
1374C  2009                      Move.L    A1, D0
1374E  0800 0000                 BTst.B    #$0, D0
13752  663E                      BNE.B     L2957
13754  0800 001D                 BTst.B    #$1D, D0
13758  6738                      BEQ.B     L2957
1375A  48E7 00C0                 MoveM.L   A0-A1, -(A7)
1375E  2049                      Move.L    A1, A0
13760  A128                      _RecoverHandle
13762  4E52 FFF2                 Link      A2, #$-E
13766  2F08                      Move.L    A0, -(A7)
13768  486A FFFC                 Pea.L     $-4(A2)
1376C  486A FFF8                 Pea.L     $-8(A2)
13770  42A7                      Clr.L     -(A7)
13772  A9A8                      _GetResInfo
13774  0C6A E000 FFFC            Cmp       #$-2000, $-4(A2)
1377A  6610                      BNE.B     L2956
1377C  0CAA 5354 5220            Cmp.L     #$53545220, $-8(A2)
       FFF8
13784  6606                      BNE.B     L2956
13786  3D78 0210 FFE4            Move      (BootDrive), $-1C(A6)
1378C  4E5A           L2956:     Unlk      A2
1378E  4CDF 0300                 MoveM.L   (A7)+, A0-A1
13792  2149 0012      L2957:     Move.L    A1, $12(A0)
13796  42A8 001C                 Clr.L     $1C(A0)
1379A  A00A                      _OpenRF
1379C  3C28 0018                 Move      $18(A0), D6
137A0  31C0 0A60                 Move      D0, (ResErr)
137A4  4E75                      Rts

                      P_tCreateResFile:
137A6  6100 07A6                 Bsr       P548
137AA  2250                      Move.L    (A0), A1
137AC  6100 0A82                 Bsr       P566
137B0  619A                      Bsr.B     P520
137B2  6712                      BEQ.B     L2958
137B4  0C40 FFD5                 Cmp       #$-2B, D0
137B8  6632                      BNE.B     L2960
137BA  A008                      _Create
137BC  31C0 0A60                 Move      D0, (ResErr)
137C0  6B2A                      BMI.B     L2960
137C2  6188                      Bsr.B     P520
137C4  6B26                      BMI.B     L2960
137C6  A011           L2958:     _GetEOF
137C8  31FC FFD0 0A60            Move      #$-30, (ResErr)
137CE  4AA8 001C                 Tst.L     $1C(A0)
137D2  6616                      BNE.B     L2959
137D4  7010                      MoveQ.L   #$10, D0
137D6  43FA FB7C                 Lea.L     DT67, A1
137DA  2209                      Move.L    A1, D1
137DC  6100 0A74                 Bsr       P568
137E0  701E                      MoveQ.L   #$1E, D0
137E2  7440                      MoveQ.L   #$40, D2
137E4  E542                      AsL       #$2, D2
137E6  6100 0A6C                 Bsr       P569
137EA  A001           L2959:     _Close
137EC  6000 0814      L2960:     Bra       L3064

                      P_tOpenResFile:
137F0  6100 075C                 Bsr       P548
137F4  2250           L2961:     Move.L    (A0), A1
137F6  6100 FE1A                 Bsr       P_NewMap
137FA  3D46 000C                 Move      D6, $C(A6)
137FE  6B16                      BMI.B     L2962
13800  31C6 0A5A                 Move      D6, (CurMap)
13804  4A40                      Tst       D0
13806  670E                      BEQ.B     L2962
13808  2378 0A50 0010            Move.L    (TopMapHndl), $10(A1)
1380E  21CC 0A50                 Move.L    A4, (TopMapHndl)
13812  6100 FC86                 Bsr       P511
13816  6000 07EA      L2962:     Bra       L3064

                      P_tOpenRFPerm:
1381A  205F                      Move.L    (A7)+, A0
1381C  11DF 0BA4                 Move.B    (A7)+, (RMgrPerm)
13820  301F                      Move      (A7)+, D0
13822  2F08                      Move.L    A0, -(A7)
13824  6100 0728                 Bsr       P548
13828  3D40 FFE4                 Move      D0, $-1C(A6)
1382C  60C6                      Bra.B     L2961

                      P_tUseResFile:
1382E  612C                      Bsr.B     P521
13830  31C6 0A5A                 Move      D6, (CurMap)
13834  6000 07D0                 Bra       L3065

                      P_tGetResFileAttrs:
13838  6122                      Bsr.B     P521
1383A  1D6B 0016 000B            Move.B    $16(A3), $B(A6)
13840  6000 07C4                 Bra       L3065

                      P_tSetResFileAttrs:
13844  6100 0708                 Bsr       P548
13848  3C2E 000A                 Move      $A(A6), D6
1384C  6100 0652                 Bsr       P540
13850  6B06                      BMI.B     L2963
13852  176E 0009 0016            Move.B    $9(A6), $16(A3)
13858  6000 07A8      L2963:     Bra       L3064

                      P521:
1385C  201F                      Move.L    (A7)+, D0
1385E  6100 06EE                 Bsr       P548
13862  2F00                      Move.L    D0, -(A7)
13864  3C10                      Move      (A0), D6
13866  6100 0638                 Bsr       P540
1386A  6B02                      BMI.B     L2964
1386C  4E75                      Rts
1386E  584F           L2964:     AddQ      #$4, A7
13870  31FC FF3F 0A60            Move      #$-C1, (ResErr)
13876  6000 078E                 Bra       L3065

                      P522:
1387A  7200                      MoveQ.L   #$0, D1

                      P523:
1387C  70FF                      MoveQ.L   #$-1, D0
1387E  600A                      Bra.B     L2965

                      P524:
13880  7200                      MoveQ.L   #$0, D1

                      P525:
13882  202A 0004                 Move.L    $4(A2), D0
13886  C0B8 031A                 And.L     (Lo3Bytes), D0
1388A  48E7 3F10      L2965:     MoveM.L   D2-D7/A3, -(A7)
1388E  2400                      Move.L    D0, D2
13890  6100 0660                 Bsr       P543
13894  6B5E                      BMI.B     L2971
13896  47F8 0A06                 Lea.L     (MinusOne), A3
1389A  598B                      SubQ      #$4, A3
1389C  2C0B                      Move.L    A3, D6
1389E  7EFF                      MoveQ.L   #$-1, D7
138A0  E28F                      LsR.L     #$1, D7
138A2  4A41                      Tst       D1
138A4  6724                      BEQ.B     L2968
138A6  032A 0004      L2966:     BTst.L    D1, $4(A2)
138AA  6714                      BEQ.B     L2967
138AC  202A 0004                 Move.L    $4(A2), D0
138B0  C0B8 031A                 And.L     (Lo3Bytes), D0
138B4  B480                      Cmp.L     D0, D2
138B6  6C08                      BGE.B     L2967
138B8  BE80                      Cmp.L     D0, D7
138BA  6F04                      BLE.B     L2967
138BC  2E00                      Move.L    D0, D7
138BE  2C0A                      Move.L    A2, D6
138C0  D4FC 000C      L2967:     AddA      #$C, A2
138C4  51CC FFE0                 DBF       D4, L2966
138C8  601C                      Bra.B     L2970
138CA  202A 0004      L2968:     Move.L    $4(A2), D0
138CE  C0B8 031A                 And.L     (Lo3Bytes), D0
138D2  B480                      Cmp.L     D0, D2
138D4  6C08                      BGE.B     L2969
138D6  BE80                      Cmp.L     D0, D7
138D8  6F04                      BLE.B     L2969
138DA  2E00                      Move.L    D0, D7
138DC  2C0A                      Move.L    A2, D6
138DE  D4FC 000C      L2969:     AddA      #$C, A2
138E2  51CC FFE6                 DBF       D4, L2968
138E6  2446           L2970:     Move.L    D6, A2
138E8  2007                      Move.L    D7, D0
138EA  2E2A 0004                 Move.L    $4(A2), D7
138EE  CEB8 031A                 And.L     (Lo3Bytes), D7
138F2  BE80                      Cmp.L     D0, D7
138F4  4CDF 08FC      L2971:     MoveM.L   (A7)+, D2-D7/A3
138F8  4E75                      Rts

                      P526:
138FA  6100 0992                 Bsr       P572
138FE  2600                      Move.L    D0, D3
13900  A061                      _MaxBlock
13902  6104                      Bsr.B     P527
13904  7640                      MoveQ.L   #$40, D3
13906  ED43                      AsL       #$6, D3

                      P527:
13908  B680                      Cmp.L     D0, D3
1390A  6C02                      BGE.B     L2972
1390C  C143                      Exg.L     D0, D3
1390E  4E75           L2972:     Rts

                      P_tUpdateResFile:
13910  6100 FF4A                 Bsr       P521
13914  6100 0A0E                 Bsr       P577
13918  670A                      BEQ.B     L2973
1391A  31FC FF39 0A60            Move      #$-C7, (ResErr)
13920  6000 06E4                 Bra       L3065
13924  0828 0005 0016 L2973:     BTst.B    #$5, $16(A0)
1392A  6700 06DA                 BEQ       L3065
1392E  6100 094A                 Bsr       P571
13932  6B00 06D2                 BMI       L3065
13936  08AB 0006 0016            BClr.B    #$6, $16(A3)
1393C  6616                      BNE.B     L2976
1393E  7201                      MoveQ.L   #$1, D1
13940  6100 FF3A                 Bsr       P523
13944  6B0A                      BMI.B     L2975
13946  6100 08C6      L2974:     Bsr       P565
1394A  6100 FF36                 Bsr       P525
1394E  67F6                      BEQ.B     L2974
13950  6000 00C0      L2975:     Bra       L2986
13954  6100 FF24      L2976:     Bsr       P522
13958  6B00 00B8                 BMI       L2986
1395C  2054                      Move.L    (A4), A0
1395E  2E10                      Move.L    (A0), D7
13960  9EA8 0004                 Sub.L     $4(A0), D7
13964  6518                      BCS.B     L2978
13966  6100 058A                 Bsr       P543
1396A  DFAA 0004      L2977:     Add.L     D7, $4(A2)
1396E  D4FC 000C                 AddA      #$C, A2
13972  51CC FFF6                 DBF       D4, L2977
13976  20A8 0004                 Move.L    $4(A0), (A0)
1397A  6100 FEFE                 Bsr       P522
1397E  7E00           L2978:     MoveQ.L   #$0, D7
13980  602A                      Bra.B     L2982
13982  082A 0001 0004 L2979:     BTst.B    #$1, $4(A2)
13988  670C                      BEQ.B     L2980
1398A  6100 0882                 Bsr       P565
1398E  206A 0008                 Move.L    $8(A2), A0
13992  A025                      _GetHandleSize
13994  6004                      Bra.B     L2981
13996  6100 0834      L2980:     Bsr       P562
1399A  5880           L2981:     AddQ      #$4, D0
1399C  2E2A 0004                 Move.L    $4(A2), D7
139A0  DE80                      Add.L     D0, D7
139A2  CEB8 031A                 And.L     (Lo3Bytes), D7
139A6  6100 FED8                 Bsr       P524
139AA  6B62                      BMI.B     L2985
139AC  2007           L2982:     Move.L    D7, D0
139AE  90AA 0004                 Sub.L     $4(A2), D0
139B2  C0B8 031A                 And.L     (Lo3Bytes), D0
139B6  67CA                      BEQ.B     L2979
139B8  95D4                      SubA.L    (A4), A2
139BA  6100 FF3E                 Bsr       P526
139BE  2003                      Move.L    D3, D0
139C0  A122                      _NewHandle
139C2  D5D4                      AddA.L    (A4), A2
139C4  A029                      _HLock
139C6  2648                      Move.L    A0, A3
139C8  2013                      Move.L    (A3), D0
139CA  C0B8 031A                 And.L     (Lo3Bytes), D0
139CE  D680                      Add.L     D0, D3
139D0  2240                      Move.L    D0, A1
139D2  2809                      Move.L    A1, D4
139D4  2A07                      Move.L    D7, D5
139D6  2078 07E8                 Move.L    ($7E8), A0
139DA  4ED0                      Jmp       (A0)

                      P_tA0FA_mvCmpFrm:
139DC  082A 0001 0004            BTst.B    #$1, $4(A2)
139E2  6704                      BEQ.B     L2983
139E4  6156                      Bsr.B     P528
139E6  6A04                      BPL.B     L2984
139E8  6100 00DC      L2983:     Bsr       P534
139EC  6100 FE92      L2984:     Bsr       P524
139F0  67EA                      BEQ.B     P_tA0FA_mvCmpFrm
139F2  2009                      Move.L    A1, D0
139F4  9093                      Sub.L     (A3), D0
139F6  C0B8 031A                 And.L     (Lo3Bytes), D0
139FA  2213                      Move.L    (A3), D1
139FC  2054                      Move.L    (A4), A0
139FE  2407                      Move.L    D7, D2
13A00  D490                      Add.L     (A0), D2
13A02  6100 0850                 Bsr       P569
13A06  DE80                      Add.L     D0, D7
13A08  204B                      Move.L    A3, A0
13A0A  A023                      _DisposeHandle
13A0C  2654                      Move.L    (A4), A3
13A0E  2747 0008      L2985:     Move.L    D7, $8(A3)
13A12  08AB 0005 0016 L2986:     BClr.B    #$5, $16(A3)
13A18  671E                      BEQ.B     L2987
13A1A  242B 0008                 Move.L    $8(A3), D2
13A1E  D493                      Add.L     (A3), D2
13A20  2742 0004                 Move.L    D2, $4(A3)
13A24  202B 000C                 Move.L    $C(A3), D0
13A28  220B                      Move.L    A3, D1
13A2A  6100 0828                 Bsr       P569
13A2E  7010                      MoveQ.L   #$10, D0
13A30  6100 0820                 Bsr       P568
13A34  6100 0844                 Bsr       P571
13A38  6000 05CC      L2987:     Bra       L3065

                      P528:
13A3C  6100 0150                 Bsr       P536
13A40  206A 0008                 Move.L    $8(A2), A0
13A44  A025                      _GetHandleSize
13A46  4A80                      Tst.L     D0
13A48  6B00 0500                 BMI       L3054
13A4C  6148                      Bsr.B     P532
13A4E  6164                      Bsr.B     P533
13A50  2400                      Move.L    D0, D2
13A52  D489                      Add.L     A1, D2
13A54  B882                      Cmp.L     D2, D4
13A56  2050                      Move.L    (A0), A0
13A58  6C26                      BGE.B     P530
13A5A  2400                      Move.L    D0, D2
13A5C  7200                      MoveQ.L   #$0, D1
13A5E  206A 0008      L2988:     Move.L    $8(A2), A0
13A62  2050                      Move.L    (A0), A0
13A64  D1C1                      AddA.L    D1, A0
13A66  2003                      Move.L    D3, D0
13A68  9089                      Sub.L     A1, D0
13A6A  B082                      Cmp.L     D2, D0
13A6C  6C0C                      BGE.B     L2989
13A6E  D280                      Add.L     D0, D1
13A70  9480                      Sub.L     D0, D2
13A72  6108                      Bsr.B     P529
13A74  6100 0118                 Bsr       P536
13A78  60E4                      Bra.B     L2988
13A7A  2002           L2989:     Move.L    D2, D0

                      P529:
13A7C  2809                      Move.L    A1, D4
13A7E  4E71                      Nop

                      P530:
13A80  B3C8                      CmpA.L    A0, A1
13A82  6706                      BEQ.B     P531
13A84  2F00                      Move.L    D0, -(A7)
13A86  A02E                      _BlockMove
13A88  201F                      Move.L    (A7)+, D0

                      P531:
13A8A  DA80                      Add.L     D0, D5
13A8C  D3C0                      AddA.L    D0, A1
13A8E  B889           L2990:     Cmp.L     A1, D4
13A90  6C02                      BGE.B     L2991
13A92  2809                      Move.L    A1, D4
13A94  4E75           L2991:     Rts

                      P532:
13A96  48E7 C080                 MoveM.L   D0-D1/A0, -(A7)
13A9A  72FD                      MoveQ.L   #$-3, D1
13A9C  41EA 0004                 Lea.L     $4(A2), A0
13AA0  C210                      And.B     (A0), D1
13AA2  2009                      Move.L    A1, D0
13AA4  9093                      Sub.L     (A3), D0
13AA6  D087                      Add.L     D7, D0
13AA8  2080                      Move.L    D0, (A0)
13AAA  1081                      Move.B    D1, (A0)
13AAC  4CDF 0103                 MoveM.L   (A7)+, D0-D1/A0
13AB0  4E75                      Rts
13AB2  7000           L2992:     MoveQ.L   #$0, D0

                      P533:
13AB4  2F01                      Move.L    D1, -(A7)
13AB6  7203                      MoveQ.L   #$3, D1
13AB8  E198           L2993:     ROL.L     #$8, D0
13ABA  12C0                      Move.B    D0, (A1)+
13ABC  51C9 FFFA                 DBF       D1, L2993
13AC0  5885                      AddQ      #$4, D5
13AC2  221F                      Move.L    (A7)+, D1
13AC4  60C8                      Bra.B     L2990

                      P534:
13AC6  202A 0004                 Move.L    $4(A2), D0
13ACA  C0B8 031A                 And.L     (Lo3Bytes), D0
13ACE  9085                      Sub.L     D5, D0
13AD0  6C08                      BGE.B     L2994
13AD2  6100 00BA                 Bsr       P536
13AD6  61BE                      Bsr.B     P532
13AD8  60D8                      Bra.B     L2992
13ADA  D089           L2994:     Add.L     A1, D0
13ADC  5880                      AddQ      #$4, D0
13ADE  B880                      Cmp.L     D0, D4
13AE0  6C10                      BGE.B     L2995
13AE2  6100 00AA                 Bsr       P536
13AE6  202A 0004                 Move.L    $4(A2), D0
13AEA  C0B8 031A                 And.L     (Lo3Bytes), D0
13AEE  2A00                      Move.L    D0, D5
13AF0  6166                      Bsr.B     P535
13AF2  202A 0004      L2995:     Move.L    $4(A2), D0
13AF6  619E                      Bsr.B     P532
13AF8  9085                      Sub.L     D5, D0
13AFA  C0B8 031A                 And.L     (Lo3Bytes), D0
13AFE  2049                      Move.L    A1, A0
13B00  D1C0                      AddA.L    D0, A0
13B02  7004                      MoveQ.L   #$4, D0
13B04  6100 FF7A                 Bsr       P530
13B08  6100 FA70                 Bsr       P514
13B0C  2400                      Move.L    D0, D2
13B0E  D488                      Add.L     A0, D2
13B10  B882                      Cmp.L     D2, D4
13B12  6C00 FF6C                 BGE       P530
13B16  2A2A 0004                 Move.L    $4(A2), D5
13B1A  5885                      AddQ      #$4, D5
13B1C  CAB8 031A                 And.L     (Lo3Bytes), D5
13B20  2400                      Move.L    D0, D2
13B22  2004                      Move.L    D4, D0
13B24  9088                      Sub.L     A0, D0
13B26  6100 FF58                 Bsr       P530
13B2A  2809                      Move.L    A1, D4
13B2C  6160           L2996:     Bsr.B     P536
13B2E  6128                      Bsr.B     P535
13B30  671C                      BEQ.B     L2998
13B32  9480                      Sub.L     D0, D2
13B34  2049                      Move.L    A1, A0
13B36  D1C2                      AddA.L    D2, A0
13B38  B888                      Cmp.L     A0, D4
13B3A  6C0A                      BGE.B     L2997
13B3C  2004                      Move.L    D4, D0
13B3E  9089                      Sub.L     A1, D0
13B40  6100 FF48                 Bsr       P531
13B44  60E6                      Bra.B     L2996
13B46  2008           L2997:     Move.L    A0, D0
13B48  9089                      Sub.L     A1, D0
13B4A  6000 FF3E                 Bra       P531
13B4E  31FC FF39 0A60 L2998:     Move      #$-C7, (ResErr)
13B54  6000 FF38                 Bra       L2990

                      P535:
13B58  48E7 E080                 MoveM.L   D0-D2/A0, -(A7)
13B5C  6100 0730                 Bsr       P572
13B60  2054                      Move.L    (A4), A0
13B62  9085                      Sub.L     D5, D0
13B64  9090                      Sub.L     (A0), D0
13B66  C0B8 031A                 And.L     (Lo3Bytes), D0
13B6A  2203                      Move.L    D3, D1
13B6C  9289                      Sub.L     A1, D1
13B6E  B081                      Cmp.L     D1, D0
13B70  6F02                      BLE.B     L2999
13B72  2001                      Move.L    D1, D0
13B74  2209           L2999:     Move.L    A1, D1
13B76  2405                      Move.L    D5, D2
13B78  D490                      Add.L     (A0), D2
13B7A  2809                      Move.L    A1, D4
13B7C  D880                      Add.L     D0, D4
13B7E  C8B8 031A                 And.L     (Lo3Bytes), D4
13B82  6100 06C6                 Bsr       P567
13B86  4A80                      Tst.L     D0
13B88  4CDF 0107                 MoveM.L   (A7)+, D0-D2/A0
13B8C  4E75                      Rts

                      P536:
13B8E  48E7 E000                 MoveM.L   D0-D2, -(A7)
13B92  2009                      Move.L    A1, D0
13B94  9093                      Sub.L     (A3), D0
13B96  C0B8 031A                 And.L     (Lo3Bytes), D0
13B9A  6730                      BEQ.B     L3000
13B9C  2054                      Move.L    (A4), A0
13B9E  2407                      Move.L    D7, D2
13BA0  D490                      Add.L     (A0), D2
13BA2  D082                      Add.L     D2, D0
13BA4  0240 FE00                 And       #$-200, D0
13BA8  9082                      Sub.L     D2, D0
13BAA  6F20                      BLE.B     L3000
13BAC  2213                      Move.L    (A3), D1
13BAE  6100 06A4                 Bsr       P569
13BB2  DE80                      Add.L     D0, D7
13BB4  93C0                      SubA.L    D0, A1
13BB6  9880                      Sub.L     D0, D4
13BB8  2F09                      Move.L    A1, -(A7)
13BBA  2253                      Move.L    (A3), A1
13BBC  2053                      Move.L    (A3), A0
13BBE  D1C0                      AddA.L    D0, A0
13BC0  D084                      Add.L     D4, D0
13BC2  9088                      Sub.L     A0, D0
13BC4  C0B8 031A                 And.L     (Lo3Bytes), D0
13BC8  A02E                      _BlockMove
13BCA  225F                      Move.L    (A7)+, A1
13BCC  4CDF 0007      L3000:     MoveM.L   (A7)+, D0-D2
13BD0  4E75                      Rts

                      P_tCloseResFile:
13BD2  31FC FFFF 0BC6            Move      #$-1, (FONDID)
13BD8  42B8 0BC2                 Clr.L     (LastFOND)
13BDC  3038 0B98                 Move      (RMgrLastResFile), D0
13BE0  B06F 0004                 Cmp       $4(A7), D0
13BE4  6604                      BNE.B     L3001
13BE6  42B8 0B84                 Clr.L     (RMgrLastResHand)
13BEA  4A6F 0004      L3001:     Tst       $4(A7)
13BEE  6604                      BNE.B     L3002
13BF0  6100 FB44                 Bsr       P519
13BF4  6100 FC66      L3002:     Bsr       P521
13BF8  3F06                      Move      D6, -(A7)
13BFA  A999                      _UpdateResFile
13BFC  7023                      MoveQ.L   #$23, D0
13BFE  A146                      _GetTrapAddress
13C00  6100 02F0                 Bsr       P543
13C04  6B12                      BMI.B     L3005
13C06  2848                      Move.L    A0, A4
13C08  504A                      AddQ      #$8, A2
13C0A  201A           L3003:     Move.L    (A2)+, D0
13C0C  6704                      BEQ.B     L3004
13C0E  2040                      Move.L    D0, A0
13C10  4E94                      Jsr       (A4)
13C12  504A           L3004:     AddQ      #$8, A2
13C14  51CC FFF4                 DBF       D4, L3003
13C18  6100 0286      L3005:     Bsr       P540
13C1C  206B 0010                 Move.L    $10(A3), A0
13C20  4A80                      Tst.L     D0
13C22  6606                      BNE.B     L3006
13C24  21C8 0A50                 Move.L    A0, (TopMapHndl)
13C28  6008                      Bra.B     L3007
13C2A  2240           L3006:     Move.L    D0, A1
13C2C  2251                      Move.L    (A1), A1
13C2E  2348 0010                 Move.L    A0, $10(A1)
13C32  B9F8 0A54      L3007:     CmpA.L    (SysMapHndl), A4
13C36  661C                      BNE.B     L3008
13C38  41F8 0A50                 Lea.L     (TopMapHndl), A0
13C3C  20F8 0B06                 Move.L    (ROMMapHandle), (A0)+
13C40  20F8 0B06                 Move.L    (ROMMapHandle), (A0)+
13C44  20F8 0A02                 Move.L    (OneOne), (A0)+
13C48  2078 0B06                 Move.L    (ROMMapHandle), A0
13C4C  2050                      Move.L    (A0), A0
13C4E  42A8 0010                 Clr.L     $10(A0)
13C52  600E                      Bra.B     L3009
13C54  BC78 0A5A      L3008:     Cmp       (CurMap), D6
13C58  6608                      BNE.B     L3009
13C5A  2050                      Move.L    (A0), A0
13C5C  31E8 0014 0A5A            Move      $14(A0), (CurMap)
13C62  6100 05CC      L3009:     Bsr       P566
13C66  A001                      _Close
13C68  6704                      BEQ.B     L3010
13C6A  31C0 0A60                 Move      D0, (ResErr)
13C6E  204C           L3010:     Move.L    A4, A0
13C70  A023                      _DisposeHandle
13C72  6000 0392                 Bra       L3065

                      P_tCount1Resources:
13C76  50F8 0B9A                 ST.B      (RMgrCurOnly)

                      P_tCountResources:
13C7A  6100 02DA                 Bsr       P550
13C7E  2610                      Move.L    (A0), D3
13C80  7200                      MoveQ.L   #$0, D1
13C82  6100 0204                 Bsr       P538
13C86  6100 0296      L3011:     Bsr       P546
13C8A  6B06                      BMI.B     L3012
13C8C  D26A 0004                 Add       $4(A2), D1
13C90  5241                      AddQ      #$1, D1
13C92  6100 0236      L3012:     Bsr       P541
13C96  67EE                      BEQ.B     L3011
13C98  3D41 000C                 Move      D1, $C(A6)
13C9C  6000 0364                 Bra       L3064

                      P_tGet1IxResource:
13CA0  50F8 0B9A                 ST.B      (RMgrCurOnly)

                      P_tGetIndResource:
13CA4  6100 02B0                 Bsr       P550
13CA8  3E18                      Move      (A0)+, D7
13CAA  6F00 0086                 BLE       L3019
13CAE  2618                      Move.L    (A0)+, D3
13CB0  4298                      Clr.L     (A0)+
13CB2  1038 0B9A                 Move.B    (RMgrCurOnly), D0
13CB6  B038 0B9B                 Cmp.B     (RMgrLastCurOnly), D0
13CBA  662A                      BNE.B     L3014
13CBC  4AB8 0B84                 Tst.L     (RMgrLastResHand)
13CC0  6724                      BEQ.B     L3014
13CC2  B6B8 0B80                 Cmp.L     (RMgrHiVars_LastResType), D3
13CC6  661E                      BNE.B     L3014
13CC8  BE78 0B9C                 Cmp       (RMgrNextResIndex), D7
13CCC  6618                      BNE.B     L3014
13CCE  5278 0B9C                 AddQ      #$1, (RMgrNextResIndex)
13CD2  6100 03B6                 Bsr       P553
13CD6  4A44                      Tst       D4
13CD8  6708                      BEQ.B     L3013
13CDA  5344                      SubQ      #$1, D4
13CDC  D4FC 000C                 AddA      #$C, A2
13CE0  603E                      Bra.B     L3018
13CE2  7E00           L3013:     MoveQ.L   #$0, D7
13CE4  6032                      Bra.B     L3017
13CE6  11C0 0B9B      L3014:     Move.B    D0, (RMgrLastCurOnly)
13CEA  31C7 0B9C                 Move      D7, (RMgrNextResIndex)
13CEE  5278 0B9C                 AddQ      #$1, (RMgrNextResIndex)
13CF2  5347                      SubQ      #$1, D7
13CF4  6100 0192                 Bsr       P538
13CF8  6100 0224      L3015:     Bsr       P546
13CFC  6B1A                      BMI.B     L3017
13CFE  6100 0230                 Bsr       P547
13D02  B847                      Cmp       D7, D4
13D04  6B0E                      BMI.B     L3016
13D06  9847                      Sub       D7, D4
13D08  DE47                      Add       D7, D7
13D0A  DE47                      Add       D7, D7
13D0C  D4C7                      AddA      D7, A2
13D0E  DE47                      Add       D7, D7
13D10  D4C7                      AddA      D7, A2
13D12  600C                      Bra.B     L3018
13D14  9E44           L3016:     Sub       D4, D7
13D16  5347                      SubQ      #$1, D7
13D18  6100 01B0      L3017:     Bsr       P541
13D1C  67DA                      BEQ.B     L3015
13D1E  6B12                      BMI.B     L3019
13D20  6100 038C      L3018:     Bsr       P555
13D24  6100 040A                 Bsr       P_CheckLoad
13D28  2D48 000E                 Move.L    A0, $E(A6)
13D2C  21C8 0B84                 Move.L    A0, (RMgrLastResHand)
13D30  6006                      Bra.B     L3020
13D32  31FC FF40 0A60 L3019:     Move      #$-C0, (ResErr)
13D38  6000 02C4      L3020:     Bra       L3063

                      P_tCount1Types:
13D3C  50F8 0B9A                 ST.B      (RMgrCurOnly)

                      P_tCountTypes:
13D40  6100 0214                 Bsr       P550
13D44  610A                      Bsr.B     P537
13D46  4E5E                      Unlk      A6
13D48  3D47 0008                 Move      D7, $8(A6)
13D4C  6000 02BC                 Bra       L3066

                      P537:
13D50  205F                      Move.L    (A7)+, A0
13D52  4E56 0000                 Link      A6, #$0
13D56  7E00                      MoveQ.L   #$0, D7
13D58  6100 012E                 Bsr       P538
13D5C  6100 0188      L3021:     Bsr       P542
13D60  6B1C                      BMI.B     L3026
13D62  2612           L3022:     Move.L    (A2), D3
13D64  224F                      Move.L    A7, A1
13D66  3007                      Move      D7, D0
13D68  5340                      SubQ      #$1, D0
13D6A  6B08                      BMI.B     L3024
13D6C  B699           L3023:     Cmp.L     (A1)+, D3
13D6E  57C8 FFFC                 DBEQ      D0, L3023
13D72  6704                      BEQ.B     L3025
13D74  2F03           L3024:     Move.L    D3, -(A7)
13D76  5247                      AddQ      #$1, D7
13D78  508A           L3025:     AddQ      #$8, A2
13D7A  51CD FFE6                 DBF       D5, L3022
13D7E  6100 014A      L3026:     Bsr       P541
13D82  67D8                      BEQ.B     L3021
13D84  4ED0                      Jmp       (A0)

                      P_tGet1IxType:
13D86  50F8 0B9A                 ST.B      (RMgrCurOnly)

                      P_tGetIndType:
13D8A  6100 01CA                 Bsr       P550
13D8E  3418                      Move      (A0)+, D2
13D90  2210                      Move.L    (A0), D1
13D92  61BC                      Bsr.B     P537
13D94  2041                      Move.L    D1, A0
13D96  4290                      Clr.L     (A0)
13D98  5342                      SubQ      #$1, D2
13D9A  6B0A                      BMI.B     L3027
13D9C  BE42                      Cmp       D2, D7
13D9E  6F06                      BLE.B     L3027
13DA0  E542                      AsL       #$2, D2
13DA2  20B7 2000                 Move.L    $0(A7,D2.W), (A0)
13DA6  4E5E           L3027:     Unlk      A6
13DA8  6000 0254                 Bra       L3063

                      P_tUnique1ID:
13DAC  50F8 0B9A                 ST.B      (RMgrCurOnly)

                      P_tUniqueID:
13DB0  6100 01A4                 Bsr       P550
13DB4  3E38 016C                 Move      (Ticks.LoWord), D7
13DB8  6100 00CE      L3028:     Bsr       P538
13DBC  554F                      SubQ      #$2, A7
13DBE  A861                      _Random
13DC0  DE5F                      Add       (A7)+, D7
13DC2  0247 7FFF                 And       #$7FFF, D7
13DC6  262E 0008                 Move.L    $8(A6), D3
13DCA  3407                      Move      D7, D2
13DCC  6100 0150      L3029:     Bsr       P546
13DD0  6B0A                      BMI.B     L3030
13DD2  6100 015C                 Bsr       P547
13DD6  6100 0138                 Bsr       P545
13DDA  67DC                      BEQ.B     L3028
13DDC  6100 00EC      L3030:     Bsr       P541
13DE0  67EA                      BEQ.B     L3029
13DE2  3D42 000C                 Move      D2, $C(A6)
13DE6  6000 021A                 Bra       L3064

                      P_tGet1Resource:
13DEA  50F8 0B9A                 ST.B      (RMgrCurOnly)

                      P_tGetResource:
13DEE  6100 0166                 Bsr       P550
13DF2  6100 00A8                 Bsr       P539
13DF6  6A04                      BPL.B     L3031
13DF8  6100 008E                 Bsr       P538
13DFC  3418           L3031:     Move      (A0)+, D2
13DFE  2618                      Move.L    (A0)+, D3
13E00  4290                      Clr.L     (A0)
13E02  6100 011A      L3032:     Bsr       P546
13E06  6B0A                      BMI.B     L3033
13E08  6100 0126                 Bsr       P547
13E0C  6100 0102                 Bsr       P545
13E10  6708                      BEQ.B     L3034
13E12  6100 00B6      L3033:     Bsr       P541
13E16  67EA                      BEQ.B     L3032
13E18  6010                      Bra.B     L3035
13E1A  6100 028C      L3034:     Bsr       P554
13E1E  6100 0310                 Bsr       P_CheckLoad
13E22  2D48 000E                 Move.L    A0, $E(A6)
13E26  21C8 0B84                 Move.L    A0, (RMgrLastResHand)
13E2A  6000 01D2      L3035:     Bra       L3063

                      P_tGet1NamedResource:
13E2E  50F8 0B9A                 ST.B      (RMgrCurOnly)

                      P_tGetNamedResource:
13E32  6100 0122                 Bsr       P550
13E36  6164                      Bsr.B     P539
13E38  2250                      Move.L    (A0), A1
13E3A  42AE 0010                 Clr.L     $10(A6)
13E3E  262E 000C      L3036:     Move.L    $C(A6), D3
13E42  6100 00DA                 Bsr       P546
13E46  6B1E                      BMI.B     L3039
13E48  6100 00E6                 Bsr       P547
13E4C  6100 0278      L3037:     Bsr       P556
13E50  6B0E                      BMI.B     L3038
13E52  7000                      MoveQ.L   #$0, D0
13E54  1018                      Move.B    (A0)+, D0
13E56  4840                      Swap      D0
13E58  1019                      Move.B    (A1)+, D0
13E5A  A03C                      _CmpString
13E5C  5349                      SubQ      #$1, A1
13E5E  6712                      BEQ.B     L3040
13E60  6100 027E      L3038:     Bsr       P557
13E64  67E6                      BEQ.B     L3037
13E66  6162           L3039:     Bsr.B     P541
13E68  67D4                      BEQ.B     L3036
13E6A  31FC FF40 0A60            Move      #$-C0, (ResErr)
13E70  6010                      Bra.B     L3041
13E72  6100 0234      L3040:     Bsr       P554
13E76  6100 02B8                 Bsr       P_CheckLoad
13E7A  2D48 0010                 Move.L    A0, $10(A6)
13E7E  21C8 0B84                 Move.L    A0, (RMgrLastResHand)
13E82  7008           L3041:     MoveQ.L   #$8, D0
13E84  6000 0186                 Bra       L3067

                      P538:
13E88  4A38 0B9A                 Tst.B     (RMgrCurOnly)
13E8C  660E                      BNE.B     P539
13E8E  2878 0A50                 Move.L    (TopMapHndl), A4
13E92  2654                      Move.L    (A4), A3
13E94  3C2B 0014                 Move      $14(A3), D6
13E98  244B                      Move.L    A3, A2
13E9A  4E75                      Rts

                      P539:
13E9C  3C38 0A5A                 Move      (CurMap), D6

                      P540:
13EA0  4A46                      Tst       D6
13EA2  6B00 00A6                 BMI       L3054
13EA6  6604                      BNE.B     L3042
13EA8  3C38 0A58                 Move      (SysMap), D6
13EAC  2878 0A50      L3042:     Move.L    (TopMapHndl), A4
13EB0  7000                      MoveQ.L   #$0, D0
13EB2  600A                      Bra.B     L3044
13EB4  202B 0010      L3043:     Move.L    $10(A3), D0
13EB8  6700 0090                 BEQ       L3054
13EBC  C18C                      Exg.L     D0, A4
13EBE  2654           L3044:     Move.L    (A4), A3
13EC0  BC6B 0014                 Cmp       $14(A3), D6
13EC4  66EE                      BNE.B     L3043
13EC6  244B                      Move.L    A3, A2
13EC8  4E75                      Rts

                      P541:
13ECA  4A38 0B9A                 Tst.B     (RMgrCurOnly)
13ECE  6704                      BEQ.B     L3045
13ED0  99CC                      SubA.L    A4, A4
13ED2  6006                      Bra.B     L3046
13ED4  2654           L3045:     Move.L    (A4), A3
13ED6  286B 0010                 Move.L    $10(A3), A4
13EDA  200C           L3046:     Move.L    A4, D0
13EDC  676C                      BEQ.B     L3054
13EDE  2654                      Move.L    (A4), A3
13EE0  3C2B 0014                 Move      $14(A3), D6
13EE4  6060                      Bra.B     L3053

                      P542:
13EE6  2654                      Move.L    (A4), A3
13EE8  D6EB 0018                 AddA      $18(A3), A3
13EEC  244B                      Move.L    A3, A2
13EEE  3A1A                      Move      (A2)+, D5
13EF0  4E75                      Rts

                      P543:
13EF2  6112                      Bsr.B     P544
13EF4  6B0E                      BMI.B     L3049
13EF6  5C4B                      AddQ      #$6, A3
13EF8  D845                      Add       D5, D4
13EFA  6004                      Bra.B     L3048
13EFC  504B           L3047:     AddQ      #$8, A3
13EFE  D853                      Add       (A3), D4
13F00  51CD FFFA      L3048:     DBF       D5, L3047
13F04  4E75           L3049:     Rts

                      P544:
13F06  61DE                      Bsr.B     P542
13F08  2612                      Move.L    (A2), D3
13F0A  6124                      Bsr.B     P547
13F0C  4A45                      Tst       D5
13F0E  4E75                      Rts

                      P545:
13F10  700C                      MoveQ.L   #$C, D0
13F12  B452           L3050:     Cmp       (A2), D2
13F14  D4C0                      AddA      D0, A2
13F16  57CC FFFA                 DBEQ      D4, L3050
13F1A  6728                      BEQ.B     L3052
13F1C  602C                      Bra.B     L3054

                      P546:
13F1E  61C6                      Bsr.B     P542
13F20  6B28                      BMI.B     L3054
13F22  7008                      MoveQ.L   #$8, D0
13F24  B692           L3051:     Cmp.L     (A2), D3
13F26  D4C0                      AddA      D0, A2
13F28  57CD FFFA                 DBEQ      D5, L3051
13F2C  6716                      BEQ.B     L3052
13F2E  601A                      Bra.B     L3054

                      P547:
13F30  382A 0004                 Move      $4(A2), D4
13F34  2F00                      Move.L    D0, -(A7)
13F36  7000                      MoveQ.L   #$0, D0
13F38  302A 0006                 Move      $6(A2), D0
13F3C  2440                      Move.L    D0, A2
13F3E  201F                      Move.L    (A7)+, D0
13F40  D5CB                      AddA.L    A3, A2
13F42  4E75                      Rts
13F44  94C0           L3052:     SubA      D0, A2
13F46  7000           L3053:     MoveQ.L   #$0, D0
13F48  4E75                      Rts
13F4A  70FF           L3054:     MoveQ.L   #$-1, D0
13F4C  4E75                      Rts

                      P548:
13F4E  4278 0B9E                 Clr       (ROMMapInsert)

                      P549:
13F52  4238 0B9A                 Clr.B     (RMgrCurOnly)

                      P550:
13F56  4278 0A60                 Clr       (ResErr)
13F5A  205F                      Move.L    (A7)+, A0
13F5C  4E56 FFCE                 Link      A6, #$-32
13F60  426E FFE4                 Clr       $-1C(A6)
13F64  426E FFE8                 Clr       $-18(A6)
13F68  1D78 0BA4 FFE9            Move.B    (RMgrPerm), $-17(A6)
13F6E  48E7 7F78                 MoveM.L   D1-D7/A1-A4, -(A7)
13F72  99CC                      SubA.L    A4, A4
13F74  2F08                      Move.L    A0, -(A7)
13F76  41EE 0008                 Lea.L     $8(A6), A0
13F7A  4A38 0B9E                 Tst.B     (ROMMapInsert)
13F7E  6704                      BEQ.B     L3055
13F80  7200                      MoveQ.L   #$0, D1
13F82  6102                      Bsr.B     P551
13F84  4E75           L3055:     Rts

                      P551:
13F86  48E7 80E0                 MoveM.L   D0/A0-A2, -(A7)
13F8A  2278 0A54                 Move.L    (SysMapHndl), A1
13F8E  2478 0B06                 Move.L    (ROMMapHandle), A2
13F92  B5C9                      CmpA.L    A1, A2
13F94  6762                      BEQ.B     L3062
13F96  3038 0A5A                 Move      (CurMap), D0
13F9A  4A81                      Tst.L     D1
13F9C  6710                      BEQ.B     L3056
13F9E  C34A                      Exg.L     A1, A2
13FA0  0C40 0001                 Cmp       #$1, D0
13FA4  6614                      BNE.B     L3057
13FA6  31F8 0A58 0A5A            Move      (SysMap), (CurMap)
13FAC  600C                      Bra.B     L3057
13FAE  B078 0A58      L3056:     Cmp       (SysMap), D0
13FB2  6606                      BNE.B     L3057
13FB4  31FC 0001 0A5A            Move      #$1, (CurMap)
13FBA  2078 0A50      L3057:     Move.L    (TopMapHndl), A0
13FBE  2050           L3058:     Move.L    (A0), A0
13FC0  2028 0010                 Move.L    $10(A0), D0
13FC4  670E                      BEQ.B     L3060
13FC6  B089                      Cmp.L     A1, D0
13FC8  6704                      BEQ.B     L3059
13FCA  2040                      Move.L    D0, A0
13FCC  60F0                      Bra.B     L3058
13FCE  214A 0010      L3059:     Move.L    A2, $10(A0)
13FD2  600A                      Bra.B     L3061
13FD4  B3F8 0A50      L3060:     CmpA.L    (TopMapHndl), A1
13FD8  6604                      BNE.B     L3061
13FDA  21CA 0A50                 Move.L    A2, (TopMapHndl)
13FDE  2078 0B06      L3061:     Move.L    (ROMMapHandle), A0
13FE2  2050                      Move.L    (A0), A0
13FE4  2178 0A54 0010            Move.L    (SysMapHndl), $10(A0)
13FEA  1038 0A5E                 Move.B    (ResLoad), D0
13FEE  11F8 0B9F 0A5E            Move.B    (TmpResLoad), (ResLoad)
13FF4  11C0 0B9F                 Move.B    D0, (TmpResLoad)
13FF8  4CDF 0701      L3062:     MoveM.L   (A7)+, D0/A0-A2
13FFC  4E75                      Rts
13FFE  7006           L3063:     MoveQ.L   #$6, D0
14000  600A                      Bra.B     L3067
14002  7004           L3064:     MoveQ.L   #$4, D0
14004  6006                      Bra.B     L3067
14006  7002           L3065:     MoveQ.L   #$2, D0
14008  6002                      Bra.B     L3067
1400A  7000           L3066:     MoveQ.L   #$0, D0
1400C  4A38 0B9E      L3067:     Tst.B     (ROMMapInsert)
14010  6706                      BEQ.B     L3068
14012  72FF                      MoveQ.L   #$-1, D1
14014  6100 FF70                 Bsr       P551
14018  4238 0B9A      L3068:     Clr.B     (RMgrCurOnly)
1401C  4278 0B9E                 Clr       (ROMMapInsert)
14020  4238 0BA4                 Clr.B     (RMgrPerm)
14024  4CDF 1EFE                 MoveM.L   (A7)+, D1-D7/A1-A4
14028  4E5E                      Unlk      A6
1402A  205F                      Move.L    (A7)+, A0
1402C  DFC0                      AddA.L    D0, A7
1402E  2F08                      Move.L    A0, -(A7)
14030  91C8                      SubA.L    A0, A0
14032  3038 0A60                 Move      (ResErr), D0
14036  6708                      BEQ.B     L3069
14038  2F38 0AF2                 Move.L    (ResErrProc), -(A7)
1403C  6602                      BNE.B     L3069
1403E  584F                      AddQ      #$4, A7
14040  4E75           L3069:     Rts

                      P552:
14042  2009                      Move.L    A1, D0
14044  6700 FF04                 BEQ       L3054
14048  B3F8 0B84                 CmpA.L    (RMgrLastResHand), A1
1404C  673C                      BEQ.B     P553
1404E  6100 FE38      L3070:     Bsr       P538
14052  2F08                      Move.L    A0, -(A7)
14054  6100 FEB0      L3071:     Bsr       P544
14058  6B18                      BMI.B     L3074
1405A  204B                      Move.L    A3, A0
1405C  5048                      AddQ      #$8, A0
1405E  5448           L3072:     AddQ      #$2, A0
14060  504A           L3073:     AddQ      #$8, A2
14062  B3DA                      CmpA.L    (A2)+, A1
14064  57CC FFFA                 DBEQ      D4, L3073
14068  6714                      BEQ.B     L3075
1406A  2618                      Move.L    (A0)+, D3
1406C  3818                      Move      (A0)+, D4
1406E  51CD FFEE                 DBF       D5, L3072
14072  6100 FE56      L3074:     Bsr       P541
14076  67DC                      BEQ.B     L3071
14078  205F                      Move.L    (A7)+, A0
1407A  6000 FECE                 Bra       L3054
1407E  94FC 000C      L3075:     SubA      #$C, A2
14082  6124                      Bsr.B     P554
14084  205F                      Move.L    (A7)+, A0
14086  6000 FEBE                 Bra       L3053

                      P553:
1408A  4CF8 1E08 0B80            MoveM.L   (RMgrHiVars_LastResType), D3/A1-A4
14090  4CB8 0070 0B94            MoveM     ($B94), D4-D6
14096  D5D4                      AddA.L    (A4), A2
14098  D7D4                      AddA.L    (A4), A3
1409A  B3EA 0008                 CmpA.L    $8(A2), A1
1409E  6700 FEA6                 BEQ       L3053
140A2  42B8 0B84                 Clr.L     (RMgrLastResHand)
140A6  60A6                      Bra.B     L3070

                      P554:
140A8  31F8 0A06 0B9C            Move      (MinusOne), (RMgrNextResIndex)

                      P555:
140AE  2014                      Move.L    (A4), D0
140B0  95C0                      SubA.L    D0, A2
140B2  97C0                      SubA.L    D0, A3
140B4  48F8 1E08 0B80            MoveM.L   D3/A1-A4, (RMgrHiVars_LastResType)
140BA  48B8 0070 0B94            MoveM     D4-D6, ($B94)
140C0  D5C0                      AddA.L    D0, A2
140C2  D7C0                      AddA.L    D0, A3
140C4  4E75                      Rts

                      P556:
140C6  302A 0002                 Move      $2(A2), D0
140CA  6B0C                      BMI.B     L3076
140CC  2054                      Move.L    (A4), A0
140CE  D0E8 001A                 AddA      $1A(A0), A0
140D2  D0C0                      AddA      D0, A0
140D4  6000 FE70                 Bra       L3053
140D8  41FA F27A      L3076:     Lea.L     DT67, A0
140DC  6000 FE6C                 Bra       L3054

                      P557:
140E0  D4FC 000C                 AddA      #$C, A2
140E4  5344                      SubQ      #$1, D4
140E6  6A00 FE5E                 BPL       L3053
140EA  5345                      SubQ      #$1, D5
140EC  6B00 FE5C                 BMI       L3054
140F0  3013                      Move      (A3), D0
140F2  9045                      Sub       D5, D0
140F4  E740                      AsL       #$3, D0
140F6  2633 0002                 Move.L    $2(A3,D0.W), D3
140FA  3833 0006                 Move      $6(A3,D0.W), D4
140FE  7001                      MoveQ.L   #$1, D0
14100  4E75                      Rts

                      P558:
14102  2F09                      Move.L    A1, -(A7)
14104  202A 0004                 Move.L    $4(A2), D0
14108  C0B8 031A                 And.L     (Lo3Bytes), D0
1410C  D0B8 02AE                 Add.L     (ROMBase), D0
14110  2240                      Move.L    D0, A1
14112  2078 0B06                 Move.L    (ROMMapHandle), A0
14116  A126                      _HandleZone
14118  D1E9 FFFC                 AddA.L    $-4(A1), A0
1411C  2548 0008                 Move.L    A0, $8(A2)
14120  4A38 0A5E                 Tst.B     (ResLoad)
14124  6706                      BEQ.B     L3077
14126  2089                      Move.L    A1, (A0)
14128  6100 008E                 Bsr       P561
1412C  225F           L3077:     Move.L    (A7)+, A1
1412E  4E75                      Rts

                      P_CheckLoad:
14130  2078 07F0                 Move.L    ($7F0), A0
14134  4ED0                      Jmp       (A0)

                      P_tA0FC_mvCheckLoad:
14136  122A 0004                 Move.B    $4(A2), D1
1413A  B9F8 0B06                 CmpA.L    (ROMMapHandle), A4
1413E  67C2                      BEQ.B     P558
14140  2F38 0118                 Move.L    (TheZone), -(A7)
14144  0801 0006                 BTst.B    #$6, D1
14148  6706                      BEQ.B     L3078
1414A  21F8 02A6 0118            Move.L    (SysZone), (TheZone)
14150  206A 0008      L3078:     Move.L    $8(A2), A0
14154  97D4                      SubA.L    (A4), A3
14156  4A38 0A5E                 Tst.B     (ResLoad)
1415A  6742                      BEQ.B     L3083
1415C  2008                      Move.L    A0, D0
1415E  661A                      BNE.B     L3080
14160  6106                      Bsr.B     P560
14162  A122                      _NewHandle
14164  671E                      BEQ.B     L3081
14166  602E                      Bra.B     L3082

                      P560:
14168  6162                      Bsr.B     P562
1416A  2400                      Move.L    D0, D2
1416C  95D4                      SubA.L    (A4), A2
1416E  0801 0004                 BTst.B    #$4, D1
14172  6702                      BEQ.B     L3079
14174  A040                      _ResrvMem
14176  2002           L3079:     Move.L    D2, D0
14178  4E75                      Rts
1417A  4A90           L3080:     Tst.L     (A0)
1417C  662A                      BNE.B     L3085
1417E  61E8                      Bsr.B     P560
14180  A027                      _ReallocHandle
14182  6B12                      BMI.B     L3082
14184  D5D4           L3081:     AddA.L    (A4), A2
14186  2548 0008                 Move.L    A0, $8(A2)
1418A  6156                      Bsr.B     P563
1418C  612A                      Bsr.B     P561
1418E  3038 0A60                 Move      (ResErr), D0
14192  6714                      BEQ.B     L3085
14194  95D4                      SubA.L    (A4), A2
14196  31C0 0A60      L3082:     Move      D0, (ResErr)
1419A  91C8                      SubA.L    A0, A0
1419C  6008                      Bra.B     L3084
1419E  2008           L3083:     Move.L    A0, D0
141A0  6606                      BNE.B     L3085
141A2  95D4                      SubA.L    (A4), A2
141A4  A166                      _NewEmptyHandle
141A6  D5D4           L3084:     AddA.L    (A4), A2
141A8  2008           L3085:     Move.L    A0, D0
141AA  6704                      BEQ.B     L3086
141AC  2548 0008                 Move.L    A0, $8(A2)
141B0  D7D4           L3086:     AddA.L    (A4), A3
141B2  21DF 0118                 Move.L    (A7)+, (TheZone)
141B6  4E75                      Rts

                      P561:
141B8  E709                      LsL.B     #$3, D1
141BA  6A04                      BPL.B     L3087
141BC  7281                      MoveQ.L   #$-7F, D1
141BE  6002                      Bra.B     L3088
141C0  7280           L3087:     MoveQ.L   #$-80, D1
141C2  E411           L3088:     RXR.B     #$2, D1
141C4  0210 001F                 And.B     #$1F, (A0)
141C8  8310                      Or.B      D1, (A0)
141CA  4E75                      Rts

                      P562:
141CC  48E7 60C0                 MoveM.L   D1-D2/A0-A1, -(A7)
141D0  6124                      Bsr.B     P564
141D2  598F                      SubQ      #$4, A7
141D4  220F                      Move.L    A7, D1
141D6  7004                      MoveQ.L   #$4, D0
141D8  6170                      Bsr.B     P567
141DA  201F                      Move.L    (A7)+, D0
141DC  4CDF 0306                 MoveM.L   (A7)+, D1-D2/A0-A1
141E0  4E75                      Rts

                      P563:
141E2  48E7 E0C0                 MoveM.L   D0-D2/A0-A1, -(A7)
141E6  2002                      Move.L    D2, D0
141E8  610C                      Bsr.B     P564
141EA  5882                      AddQ      #$4, D2
141EC  2211                      Move.L    (A1), D1
141EE  615A                      Bsr.B     P567
141F0  4CDF 0307      L3089:     MoveM.L   (A7)+, D0-D2/A0-A1
141F4  4E75                      Rts

                      P564:
141F6  022A 00FD 0004            And.B     #$-3, $4(A2)
141FC  2054                      Move.L    (A4), A0
141FE  242A 0004                 Move.L    $4(A2), D2
14202  C4B8 031A                 And.L     (Lo3Bytes), D2
14206  D490                      Add.L     (A0), D2
14208  226A 0008                 Move.L    $8(A2), A1
1420C  4E75                      Rts

                      P565:
1420E  48E7 E0C0                 MoveM.L   D0-D2/A0-A1, -(A7)
14212  61E2                      Bsr.B     P564
14214  2049                      Move.L    A1, A0
14216  A025                      _GetHandleSize
14218  4A80                      Tst.L     D0
1421A  6A02                      BPL.B     L3090
1421C  7000                      MoveQ.L   #$0, D0
1421E  2F00           L3090:     Move.L    D0, -(A7)
14220  220F                      Move.L    A7, D1
14222  7004                      MoveQ.L   #$4, D0
14224  612E                      Bsr.B     P569
14226  5882                      AddQ      #$4, D2
14228  2211                      Move.L    (A1), D1
1422A  201F                      Move.L    (A7)+, D0
1422C  6126                      Bsr.B     P569
1422E  60C0                      Bra.B     L3089

                      P566:
14230  41EE FFE6                 Lea.L     $-1A(A6), A0
14234  30C6                      Move      D6, (A0)+
14236  5C48                      AddQ      #$6, A0
14238  20C1                      Move.L    D1, (A0)+
1423A  20C0                      Move.L    D0, (A0)+
1423C  5848                      AddQ      #$4, A0
1423E  30FC 0001                 Move      #$1, (A0)+
14242  20C2                      Move.L    D2, (A0)+
14244  41EE FFCE                 Lea.L     $-32(A6), A0
14248  4E75                      Rts

                      P567:
1424A  611C                      Bsr.B     P570
1424C  61E2                      Bsr.B     P566
1424E  A002                      _Read
14250  6008                      Bra.B     L3091

                      P568:
14252  7400                      MoveQ.L   #$0, D2

                      P569:
14254  6112                      Bsr.B     P570
14256  61D8                      Bsr.B     P566
14258  A003                      _Write
1425A  31C0 0A60      L3091:     Move      D0, (ResErr)
1425E  D7D4           L3092:     AddA.L    (A4), A3
14260  D5D4                      AddA.L    (A4), A2
14262  4CDF 0303                 MoveM.L   (A7)+, D0-D1/A0-A1
14266  4E75                      Rts

                      P570:
14268  48E7 C080                 MoveM.L   D0-D1/A0, -(A7)
1426C  206F 000C                 Move.L    $C(A7), A0
14270  2F49 000C                 Move.L    A1, $C(A7)
14274  97D4                      SubA.L    (A4), A3
14276  95D4                      SubA.L    (A4), A2
14278  4ED0                      Jmp       (A0)

                      P571:
1427A  61EC                      Bsr.B     P570
1427C  6100 00A6                 Bsr       P577
14280  66DC                      BNE.B     L3092
14282  61AC                      Bsr.B     P566
14284  6108                      Bsr.B     P572
14286  2140 001C                 Move.L    D0, $1C(A0)
1428A  A012                      _SetEOF
1428C  60CC                      Bra.B     L3091

                      P572:
1428E  48E7 4040                 MoveM.L   D1/A1, -(A7)
14292  2254                      Move.L    (A4), A1
14294  2019                      Move.L    (A1)+, D0
14296  2219                      Move.L    (A1)+, D1
14298  D099                      Add.L     (A1)+, D0
1429A  D299                      Add.L     (A1)+, D1
1429C  B081                      Cmp.L     D1, D0
1429E  6A02                      BPL.B     L3093
142A0  2001                      Move.L    D1, D0
142A2  4CDF 0202      L3093:     MoveM.L   (A7)+, D1/A1
142A6  4E75                      Rts

                      P573:
142A8  206A 0008                 Move.L    $8(A2), A0
142AC  A025                      _GetHandleSize
142AE  5880                      AddQ      #$4, D0
142B0  2200                      Move.L    D0, D1
142B2  4E75                      Rts

                      P574:
142B4  48E7 41E0                 MoveM.L   D1/D7/A0-A2, -(A7)
142B8  2E2A 0004                 Move.L    $4(A2), D7
142BC  CEB8 031A                 And.L     (Lo3Bytes), D7
142C0  2054                      Move.L    (A4), A0
142C2  2028 0004                 Move.L    $4(A0), D0
142C6  9090                      Sub.L     (A0), D0
142C8  2240                      Move.L    D0, A1
142CA  6B12                      BMI.B     L3095
142CC  B3C7                      CmpA.L    D7, A1
142CE  6B0E                      BMI.B     L3095
142D0  6100 F5AE                 Bsr       P524
142D4  6B04                      BMI.B     L3094
142D6  B3C0                      CmpA.L    D0, A1
142D8  6A14                      BPL.B     L3097
142DA  2009           L3094:     Move.L    A1, D0
142DC  600A                      Bra.B     L3096
142DE  6100 F5A0      L3095:     Bsr       P524
142E2  6A0A                      BPL.B     L3097
142E4  61A8                      Bsr.B     P572
142E6  9090                      Sub.L     (A0), D0
142E8  9087           L3096:     Sub.L     D7, D0
142EA  7EFF                      MoveQ.L   #$-1, D7
142EC  6002                      Bra.B     L3098
142EE  9087           L3097:     Sub.L     D7, D0
142F0  4CDF 0782      L3098:     MoveM.L   (A7)+, D1/D7/A0-A2
142F4  4E75                      Rts

                      P575:
142F6  61B0                      Bsr.B     P573
142F8  61BA                      Bsr.B     P574
142FA  B280                      Cmp.L     D0, D1
142FC  6F00 FF7C                 BLE       P571

                      P576:
14300  61A6                      Bsr.B     P573
14302  618A                      Bsr.B     P572
14304  2054                      Move.L    (A4), A0
14306  9090                      Sub.L     (A0), D0
14308  1F2A 0004                 Move.B    $4(A2), -(A7)
1430C  2540 0004                 Move.L    D0, $4(A2)
14310  155F 0004                 Move.B    (A7)+, $4(A2)
14314  D081                      Add.L     D1, D0
14316  2140 0008                 Move.L    D0, $8(A0)
1431A  0028 0060 0016            Or.B      #$60, $16(A0)
14320  6000 FF58                 Bra       P571

                      P577:
14324  2054                      Move.L    (A4), A0
14326  0828 0007 0016            BTst.B    #$7, $16(A0)
1432C  4E75                      Rts

                      P578:
1432E  6100 FF38                 Bsr       P570
14332  2F02                      Move.L    D2, -(A7)
14334  7246                      MoveQ.L   #$46, D1
14336  E541                      AsL       #$2, D1
14338  204C                      Move.L    A4, A0
1433A  A025                      _GetHandleSize
1433C  2400                      Move.L    D0, D2
1433E  D081                      Add.L     D1, D0
14340  A024                      _SetHandleSize
14342  C142                      Exg.L     D0, D2
14344  A024                      _SetHandleSize
14346  3002                      Move      D2, D0
14348  6B22                      BMI.B     L3100
1434A  61D8                      Bsr.B     P577
1434C  661E                      BNE.B     L3100
1434E  2009                      Move.L    A1, D0
14350  670A                      BEQ.B     L3099
14352  2049                      Move.L    A1, A0
14354  A025                      _GetHandleSize
14356  2400                      Move.L    D0, D2
14358  6B12                      BMI.B     L3100
1435A  D280                      Add.L     D0, D1
1435C  6100 FED2      L3099:     Bsr       P566
14360  43E8 001C                 Lea.L     $1C(A0), A1
14364  A011                      _GetEOF
14366  2411                      Move.L    (A1), D2
14368  D391                      Add.L     D1, (A1)
1436A  A012                      _SetEOF
1436C  241F           L3100:     Move.L    (A7)+, D2
1436E  6000 FEEA                 Bra       L3091

                      P579:
14372  48E7 C0C0                 MoveM.L   D0-D1/A0-A1, -(A7)
14376  2054                      Move.L    (A4), A0
14378  6100 FF14                 Bsr       P572
1437C  B0B8 031A                 Cmp.L     (Lo3Bytes), D0
14380  6C3E                      BGE.B     L3105
14382  2248                      Move.L    A0, A1
14384  D2E8 0018                 AddA      $18(A0), A1
14388  3019                      Move      (A1)+, D0
1438A  6B14                      BMI.B     L3102
1438C  7200                      MoveQ.L   #$0, D1
1438E  D269 0004      L3101:     Add       $4(A1), D1
14392  5241                      AddQ      #$1, D1
14394  5049                      AddQ      #$8, A1
14396  51C8 FFF6                 DBF       D0, L3101
1439A  C2FC 000C                 MulU      #$C, D1
1439E  D3C1                      AddA.L    D1, A1
143A0  3228 001A      L3102:     Move      $1A(A0), D1
143A4  6E10                      BGT.B     L3103
143A6  93C8                      SubA.L    A0, A1
143A8  2209                      Move.L    A1, D1
143AA  C2B8 031A                 And.L     (Lo3Bytes), D1
143AE  B2A8 000C                 Cmp.L     $C(A0), D1
143B2  6E0C                      BGT.B     L3105
143B4  6006                      Bra.B     L3104
143B6  D0C1           L3103:     AddA      D1, A0
143B8  B1C9                      CmpA.L    A1, A0
143BA  6B04                      BMI.B     L3105
143BC  7000           L3104:     MoveQ.L   #$0, D0
143BE  6006                      Bra.B     L3106
143C0  31FC FF39 0A60 L3105:     Move      #$-C7, (ResErr)
143C6  4CDF 0303      L3106:     MoveM.L   (A7)+, D0-D1/A0-A1
143CA  4E75                      Rts

                      P_tLoadResource:
143CC  48E7 8080                 MoveM.L   D0/A0, -(A7)
143D0  487A 0030                 Pea.L     E_761
143D4  6100 FB7C                 Bsr       P549
143D8  226E 0014                 Move.L    $14(A6), A1
143DC  4A91                      Tst.L     (A1)
143DE  661E                      BNE.B     L3108
143E0  6100 FC60                 Bsr       P552
143E4  6708                      BEQ.B     L3107
143E6  31FC FF40 0A60            Move      #$-C0, (ResErr)
143EC  6010                      Bra.B     L3108
143EE  1F38 0A5E      L3107:     Move.B    (ResLoad), -(A7)
143F2  50F8 0A5E                 ST.B      (ResLoad)
143F6  6100 FD38                 Bsr       P_CheckLoad
143FA  11DF 0A5E                 Move.B    (A7)+, (ResLoad)
143FE  6000 FC0A      L3108:     Bra       L3066

                      E_761:
14402  4CDF 0101                 MoveM.L   (A7)+, D0/A0
14406  2E9F                      Move.L    (A7)+, (A7)
14408  4E75                      Rts

                      P_tReleaseResource:
1440A  6100 0094                 Bsr       P581
1440E  082A 0001 0004            BTst.B    #$1, $4(A2)
14414  661A                      BNE.B     L3111
14416  2049                      Move.L    A1, A0
14418  A023                      _DisposeHandle
1441A  0C83 464F 4E54 L3109:     Cmp.L     #$464F4E54, D3
14420  6606                      BNE.B     L3110
14422  21F8 0A06 0B4C            Move.L    (MinusOne), (LastSPExtra)
14428  42AA 0008      L3110:     Clr.L     $8(A2)
1442C  42B8 0B84                 Clr.L     (RMgrLastResHand)
14430  6000 FBD0      L3111:     Bra       L3064

                      P_tDetachResource:
14434  616A                      Bsr.B     P581
14436  082A 0001 0004            BTst.B    #$1, $4(A2)
1443C  6606                      BNE.B     L3112
1443E  0891 0005                 BClr.B    #$5, (A1)
14442  60D6                      Bra.B     L3109
14444  31FC FF3A 0A60 L3112:     Move      #$-C6, (ResErr)
1444A  60E4                      Bra.B     L3111

                      P_tChangedResource:
1444C  6152                      Bsr.B     P581
1444E  1E11                      Move.B    (A1), D7
14450  0891 0006                 BClr.B    #$6, (A1)
14454  082A 0003 0004            BTst.B    #$3, $4(A2)
1445A  661A                      BNE.B     L3113
1445C  6100 FED0                 Bsr       P578
14460  6B1A                      BMI.B     L3114
14462  08EA 0001 0004            BSet.B    #$1, $4(A2)
14468  6100 FE8C                 Bsr       P575
1446C  2054                      Move.L    (A4), A0
1446E  08E8 0005 0016            BSet.B    #$5, $16(A0)
14474  6006                      Bra.B     L3114
14476  31FC FF3A 0A60 L3113:     Move      #$-C6, (ResErr)
1447C  1287           L3114:     Move.B    D7, (A1)
1447E  6000 FB82                 Bra       L3064

                      P_tWriteResource:
14482  611C                      Bsr.B     P581
14484  6100 FE9E                 Bsr       P577
14488  660C                      BNE.B     L3115
1448A  082A 0001 0004            BTst.B    #$1, $4(A2)
14490  6704                      BEQ.B     L3115
14492  6100 FD7A                 Bsr       P565
14496  6000 FB6A      L3115:     Bra       L3064

                      P580:
1449A  2F78 0A06 000C            Move.L    (MinusOne), $C(A7)

                      P581:
144A0  201F                      Move.L    (A7)+, D0
144A2  6100 FAAE                 Bsr       P549
144A6  2F00                      Move.L    D0, -(A7)
144A8  2008                      Move.L    A0, D0
144AA  6708                      BEQ.B     L3116
144AC  2250                      Move.L    (A0), A1
144AE  6100 00C0                 Bsr       P582
144B2  6706                      BEQ.B     L3117
144B4  584F           L3116:     AddQ      #$4, A7
144B6  6000 FB4A                 Bra       L3064
144BA  4E75           L3117:     Rts

                      P_tHomeResFile:
144BC  3F7C FFFF 0008            Move      #$-1, $8(A7)
144C2  61DC                      Bsr.B     P581
144C4  BC78 0A58                 Cmp       (SysMap), D6
144C8  6602                      BNE.B     L3118
144CA  7C00                      MoveQ.L   #$0, D6
144CC  3D46 000C      L3118:     Move      D6, $C(A6)
144D0  6000 FB30                 Bra       L3064

                      E_767:
144D4  225F                      Move.L    (A7)+, A1
144D6  205F                      Move.L    (A7)+, A0
144D8  0810 0005                 BTst.B    #$5, (A0)
144DC  6704                      BEQ.B     L3119
144DE  2F08                      Move.L    A0, -(A7)
144E0  A9B0                      _WriteResource
144E2  4ED1           L3119:     Jmp       (A1)

                      P_tSetResPurge:
144E4  2078 0118                 Move.L    (TheZone), A0
144E8  201F                      Move.L    (A7)+, D0
144EA  4A1F                      Tst.B     (A7)+
144EC  487A FFE6                 Pea.L     E_767
144F0  6602                      BNE.B     L3120
144F2  4297                      Clr.L     (A7)
144F4  215F 0028      L3120:     Move.L    (A7)+, $28(A0)
144F8  2F00                      Move.L    D0, -(A7)
144FA  4238 0B9A      L3121:     Clr.B     (RMgrCurOnly)
144FE  4278 0B9E                 Clr       (ROMMapInsert)
14502  4E75                      Rts

                      P_tSetResLoad:
14504  205F                      Move.L    (A7)+, A0
14506  11DF 0A5E                 Move.B    (A7)+, (ResLoad)
1450A  2F08                      Move.L    A0, -(A7)
1450C  60EC                      Bra.B     L3121

                      P_tCurResFile:
1450E  3F78 0A5A 0004            Move      (CurMap), $4(A7)
14514  60E4                      Bra.B     L3121

                      P_tResError:
14516  3F78 0A60 0004            Move      (ResErr), $4(A7)
1451C  60DC                      Bra.B     L3121

                      P_tAddReference:
1451E  205F                      Move.L    (A7)+, A0
14520  DEFC 000A                 AddA      #$A, A7
14524  2F08                      Move.L    A0, -(A7)
14526  31FC FF3D 0A60            Move      #$-C3, (ResErr)
1452C  60CC                      Bra.B     L3121

                      P_tRmveReference:
1452E  2E9F                      Move.L    (A7)+, (A7)
14530  31FC FF3B 0A60            Move      #$-C5, (ResErr)
14536  60C2                      Bra.B     L3121

                      P_tGetResAttrs:
14538  6100 FA18                 Bsr       P549
1453C  2250                      Move.L    (A0), A1
1453E  6130                      Bsr.B     P582
14540  6B06                      BMI.B     L3122
14542  1D6A 0004 000D            Move.B    $4(A2), $D(A6)
14548  6000 FAB8      L3122:     Bra       L3064

                      P_tSetResAttrs:
1454C  6100 FA04                 Bsr       P549
14550  226E 000A                 Move.L    $A(A6), A1
14554  611A                      Bsr.B     P582
14556  6B14                      BMI.B     L3123
14558  B9F8 0B06                 CmpA.L    (ROMMapHandle), A4
1455C  670E                      BEQ.B     L3123
1455E  156E 0009 0004            Move.B    $9(A6), $4(A2)
14564  2054                      Move.L    (A4), A0
14566  08E8 0005 0016            BSet.B    #$5, $16(A0)
1456C  6000 FA90      L3123:     Bra       L3063

                      P582:
14570  6100 FAD0                 Bsr       P552
14574  6706                      BEQ.B     L3124
14576  31FC FF40 0A60            Move      #$-C0, (ResErr)
1457C  4E75           L3124:     Rts

                      P_tGetResInfo:
1457E  6100 F9D2                 Bsr       P549
14582  226E 0014                 Move.L    $14(A6), A1
14586  61E8                      Bsr.B     P582
14588  6706                      BEQ.B     L3125
1458A  45F8 0A06                 Lea.L     (MinusOne), A2
1458E  7600                      MoveQ.L   #$0, D3
14590  41EE 0010      L3125:     Lea.L     $10(A6), A0
14594  2250                      Move.L    (A0), A1
14596  2009                      Move.L    A1, D0
14598  6702                      BEQ.B     L3126
1459A  3292                      Move      (A2), (A1)
1459C  2260           L3126:     Move.L    -(A0), A1
1459E  2009                      Move.L    A1, D0
145A0  6702                      BEQ.B     L3127
145A2  2283                      Move.L    D3, (A1)
145A4  2260           L3127:     Move.L    -(A0), A1
145A6  2009                      Move.L    A1, D0
145A8  670A                      BEQ.B     L3128
145AA  4211                      Clr.B     (A1)
145AC  6100 FB18                 Bsr       P556
145B0  6B02                      BMI.B     L3128
145B2  6106                      Bsr.B     P583
145B4  7010           L3128:     MoveQ.L   #$10, D0
145B6  6000 FA54                 Bra       L3067

                      P583:
145BA  7000                      MoveQ.L   #$0, D0
145BC  1010                      Move.B    (A0), D0
145BE  5240                      AddQ      #$1, D0
145C0  A02E                      _BlockMove
145C2  4E75                      Rts

                      P_tSetResInfo:
145C4  6100 F98C                 Bsr       P549
145C8  226E 000E                 Move.L    $E(A6), A1
145CC  61A2                      Bsr.B     P582
145CE  6B38                      BMI.B     L3131
145D0  082A 0003 0004            BTst.B    #$3, $4(A2)
145D6  662A                      BNE.B     L3130
145D8  202E 0008                 Move.L    $8(A6), D0
145DC  6716                      BEQ.B     L3129
145DE  93C9                      SubA.L    A1, A1
145E0  6100 FD4C                 Bsr       P578
145E4  6B22                      BMI.B     L3131
145E6  2040                      Move.L    D0, A0
145E8  6100 0224                 Bsr       P590
145EC  6100 018C                 Bsr       P586
145F0  6100 FC88                 Bsr       P571
145F4  2054           L3129:     Move.L    (A4), A0
145F6  08E8 0005 0016            BSet.B    #$5, $16(A0)
145FC  34AE 000C                 Move      $C(A6), (A2)
14600  6006                      Bra.B     L3131
14602  31FC FF3A 0A60 L3130:     Move      #$-C6, (ResErr)
14608  700A           L3131:     MoveQ.L   #$A, D0
1460A  6000 FA00                 Bra       L3067

                      P_tAddResource:
1460E  6100 F93E                 Bsr       P548
14612  31FC FF3E 0A60            Move      #$-C2, (ResErr)
14618  226E 0012                 Move.L    $12(A6), A1
1461C  2009                      Move.L    A1, D0
1461E  673C                      BEQ.B     L3132
14620  6100 FA20                 Bsr       P552
14624  6736                      BEQ.B     L3132
14626  6100 F874                 Bsr       P539
1462A  6100 FD02                 Bsr       P578
1462E  6B2C                      BMI.B     L3132
14630  262E 000E                 Move.L    $E(A6), D3
14634  612C                      Bsr.B     P584
14636  34EE 000C                 Move      $C(A6), (A2)+
1463A  34FC FFFF                 Move      #$-1, (A2)+
1463E  24FC 0200 0000            Move.L    #$2000000, (A2)+
14644  206E 0012                 Move.L    $12(A6), A0
14648  08D0 0005                 BSet.B    #$5, (A0)
1464C  2488                      Move.L    A0, (A2)
1464E  518A                      SubQ      #$8, A2
14650  206E 0008                 Move.L    $8(A6), A0
14654  6100 0124                 Bsr       P586
14658  6100 FCA6                 Bsr       P576
1465C  700E           L3132:     MoveQ.L   #$E, D0
1465E  6000 F9AC                 Bra       L3067

                      P584:
14662  08EB 0005 0016            BSet.B    #$5, $16(A3)
14668  6100 F8B4                 Bsr       P546
1466C  673C                      BEQ.B     L3134
1466E  7014                      MoveQ.L   #$14, D0
14670  6100 0140                 Bsr       P587
14674  6100 F870                 Bsr       P542
14678  6B04                      BMI.B     L3133
1467A  6100 F8B4                 Bsr       P547
1467E  264A           L3133:     Move.L    A2, A3
14680  2454                      Move.L    (A4), A2
14682  D4EA 001A                 AddA      $1A(A2), A2
14686  94FC 0014                 SubA      #$14, A2
1468A  7008                      MoveQ.L   #$8, D0
1468C  204B                      Move.L    A3, A0
1468E  224A                      Move.L    A2, A1
14690  6100 0166                 Bsr       P589
14694  2054                      Move.L    (A4), A0
14696  D0E8 0018                 AddA      $18(A0), A0
1469A  5250                      AddQ      #$1, (A0)
1469C  26C3                      Move.L    D3, (A3)+
1469E  425B                      Clr       (A3)+
146A0  93C8                      SubA.L    A0, A1
146A2  3689                      Move      A1, (A3)
146A4  508A                      AddQ      #$8, A2
146A6  3A18                      Move      (A0)+, D5
146A8  6032                      Bra.B     P585
146AA  700C           L3134:     MoveQ.L   #$C, D0
146AC  6100 0104                 Bsr       P587
146B0  2254                      Move.L    (A4), A1
146B2  D2E9 001A                 AddA      $1A(A1), A1
146B6  92C0                      SubA      D0, A1
146B8  6100 F864                 Bsr       P546
146BC  2F0A                      Move.L    A2, -(A7)
146BE  526A 0004                 AddQ      #$1, $4(A2)
146C2  700C                      MoveQ.L   #$C, D0
146C4  C0EA 0004                 MulU      $4(A2), D0
146C8  346A 0006                 Move      $6(A2), A2
146CC  D5CB                      AddA.L    A3, A2
146CE  D4C0                      AddA      D0, A2
146D0  204A                      Move.L    A2, A0
146D2  700C                      MoveQ.L   #$C, D0
146D4  6100 0122                 Bsr       P589
146D8  205F                      Move.L    (A7)+, A0
146DA  6004                      Bra.B     L3135

                      P585:
146DC  D168 0006                 Add       D0, $6(A0)
146E0  5048           L3135:     AddQ      #$8, A0
146E2  51CD FFF8                 DBF       D5, P585
146E6  4E75                      Rts

                      P_tRmveResource:
146E8  6100 F868                 Bsr       P549
146EC  31FC FF3C 0A60            Move      #$-C4, (ResErr)
146F2  2250                      Move.L    (A0), A1
146F4  6100 F94C                 Bsr       P552
146F8  6B78                      BMI.B     L3139
146FA  082A 0003 0004            BTst.B    #$3, $4(A2)
14700  6670                      BNE.B     L3139
14702  BC78 0A5A                 Cmp       (CurMap), D6
14706  666A                      BNE.B     L3139
14708  0891 0005                 BClr.B    #$5, (A1)
1470C  7060                      MoveQ.L   #$60, D0
1470E  42B8 0B84                 Clr.L     (RMgrLastResHand)
14712  2054                      Move.L    (A4), A0
14714  8128 0016                 Or.B      D0, $16(A0)
14718  6100 00F4                 Bsr       P590
1471C  7EF4                      MoveQ.L   #$-C, D7
1471E  204A                      Move.L    A2, A0
14720  90C7                      SubA      D7, A0
14722  6100 F7FA                 Bsr       P546
14726  2254                      Move.L    (A4), A1
14728  D2E9 001A                 AddA      $1A(A1), A1
1472C  2007                      Move.L    D7, D0
1472E  6100 00C8                 Bsr       P589
14732  204A                      Move.L    A2, A0
14734  5048                      AddQ      #$8, A0
14736  5345                      SubQ      #$1, D5
14738  6B02                      BMI.B     L3136
1473A  61A0                      Bsr.B     P585
1473C  536A 0004      L3136:     SubQ      #$1, $4(A2)
14740  6A1E                      BPL.B     L3137
14742  504A                      AddQ      #$8, A2
14744  204A                      Move.L    A2, A0
14746  D2C0                      AddA      D0, A1
14748  70F8                      MoveQ.L   #$-8, D0
1474A  DE80                      Add.L     D0, D7
1474C  6100 00AA                 Bsr       P589
14750  2054                      Move.L    (A4), A0
14752  D0E8 0018                 AddA      $18(A0), A0
14756  5350                      SubQ      #$1, (A0)
14758  3A18                      Move      (A0)+, D5
1475A  6B04                      BMI.B     L3137
1475C  6100 FF7E                 Bsr       P585
14760  2007           L3137:     Move.L    D7, D0
14762  614E                      Bsr.B     P587
14764  0C46 0001                 Cmp       #$1, D6
14768  6704                      BEQ.B     L3138
1476A  6100 FB0E                 Bsr       P571
1476E  4278 0A60      L3138:     Clr       (ResErr)
14772  42B8 0B84      L3139:     Clr.L     (RMgrLastResHand)
14776  6000 F88A                 Bra       L3064

                      P586:
1477A  42B8 0B84                 Clr.L     (RMgrLastResHand)
1477E  48E7 E0C0                 MoveM.L   D0-D2/A0-A1, -(A7)
14782  74FF                      MoveQ.L   #$-1, D2
14784  4A10                      Tst.B     (A0)
14786  6720                      BEQ.B     L3140
14788  2254                      Move.L    (A4), A1
1478A  2229 000C                 Move.L    $C(A1), D1
1478E  2401                      Move.L    D1, D2
14790  7000                      MoveQ.L   #$0, D0
14792  1010                      Move.B    (A0), D0
14794  5280                      AddQ      #$1, D0
14796  614A                      Bsr.B     P588
14798  7000                      MoveQ.L   #$0, D0
1479A  2254                      Move.L    (A4), A1
1479C  3029 001A                 Move      $1A(A1), D0
147A0  9480                      Sub.L     D0, D2
147A2  D3C1                      AddA.L    D1, A1
147A4  6100 FE14                 Bsr       P583
147A8  3542 0002      L3140:     Move      D2, $2(A2)
147AC  4CDF 0307                 MoveM.L   (A7)+, D0-D2/A0-A1
147B0  4E75                      Rts

                      P587:
147B2  48E7 C1C0                 MoveM.L   D0-D1/D7/A0-A1, -(A7)
147B6  2054                      Move.L    (A4), A0
147B8  2228 000C                 Move.L    $C(A0), D1
147BC  4A80                      Tst.L     D0
147BE  6B04                      BMI.B     L3141
147C0  6120                      Bsr.B     P588
147C2  2054                      Move.L    (A4), A0
147C4  2248           L3141:     Move.L    A0, A1
147C6  7E00                      MoveQ.L   #$0, D7
147C8  3E28 001A                 Move      $1A(A0), D7
147CC  D1C7                      AddA.L    D7, A0
147CE  D169 001A                 Add       D0, $1A(A1)
147D2  D3C1                      AddA.L    D1, A1
147D4  6122                      Bsr.B     P589
147D6  4A80                      Tst.L     D0
147D8  6A02                      BPL.B     L3142
147DA  6106                      Bsr.B     P588
147DC  4CDF 0383      L3142:     MoveM.L   (A7)+, D0-D1/D7/A0-A1
147E0  4E75                      Rts

                      P588:
147E2  6100 FA84                 Bsr       P570
147E6  2054                      Move.L    (A4), A0
147E8  D0A8 000C                 Add.L     $C(A0), D0
147EC  2140 000C                 Move.L    D0, $C(A0)
147F0  204C                      Move.L    A4, A0
147F2  A024                      _SetHandleSize
147F4  6000 FA68                 Bra       L3092

                      P589:
147F8  48E7 80C0                 MoveM.L   D0/A0-A1, -(A7)
147FC  C189                      Exg.L     D0, A1
147FE  9088                      Sub.L     A0, D0
14800  C0B8 031A                 And.L     (Lo3Bytes), D0
14804  D3C8                      AddA.L    A0, A1
14806  A02E                      _BlockMove
14808  4CDF 0301                 MoveM.L   (A7)+, D0/A0-A1
1480C  4E75                      Rts

                      P590:
1480E  48E7 E0C0                 MoveM.L   D0-D2/A0-A1, -(A7)
14812  342A 0002                 Move      $2(A2), D2
14816  6B40                      BMI.B     L3145
14818  2054                      Move.L    (A4), A0
1481A  2248                      Move.L    A0, A1
1481C  7000                      MoveQ.L   #$0, D0
1481E  3028 001A                 Move      $1A(A0), D0
14822  D1C0                      AddA.L    D0, A0
14824  D0C2                      AddA      D2, A0
14826  D3E9 000C                 AddA.L    $C(A1), A1
1482A  7000                      MoveQ.L   #$0, D0
1482C  1010                      Move.B    (A0), D0
1482E  5280                      AddQ      #$1, D0
14830  D1C0                      AddA.L    D0, A0
14832  4480                      Neg.L     D0
14834  2200                      Move.L    D0, D1
14836  61C0                      Bsr.B     P589
14838  61A8                      Bsr.B     P588
1483A  48E7 1C30                 MoveM.L   D3-D5/A2-A3, -(A7)
1483E  6100 F6B2                 Bsr       P543
14842  B46A 0002      L3143:     Cmp       $2(A2), D2
14846  6C04                      BGE.B     L3144
14848  D36A 0002                 Add       D1, $2(A2)
1484C  D4FC 000C      L3144:     AddA      #$C, A2
14850  51CC FFF0                 DBF       D4, L3143
14854  4CDF 0C38                 MoveM.L   (A7)+, D3-D5/A2-A3
14858  4CDF 0307      L3145:     MoveM.L   (A7)+, D0-D2/A0-A1
1485C  3578 0A06 0002            Move      (MinusOne), $2(A2)
14862  4E75                      Rts

                      P_tSizeResource:
14864  6100 FC34                 Bsr       P580
14868  4A91                      Tst.L     (A1)
1486A  6706                      BEQ.B     L3146
1486C  2049                      Move.L    A1, A0
1486E  A025                      _GetHandleSize
14870  600C                      Bra.B     L3147
14872  1F2A 0004      L3146:     Move.B    $4(A2), -(A7)
14876  6100 F954                 Bsr       P562
1487A  155F 0004                 Move.B    (A7)+, $4(A2)
1487E  2D40 000C      L3147:     Move.L    D0, $C(A6)
14882  6000 F77E                 Bra       L3064

                      P_tMaxSizeRsrc:
14886  6100 FC12                 Bsr       P580
1488A  4A91                      Tst.L     (A1)
1488C  6606                      BNE.B     L3148
1488E  6100 FA24                 Bsr       P574
14892  6004                      Bra.B     L3149
14894  2049           L3148:     Move.L    A1, A0
14896  A025                      _GetHandleSize
14898  60E4           L3149:     Bra.B     L3147

                      P_tRsrcMapEntry:
1489A  6100 FBFE                 Bsr       P580
1489E  200A                      Move.L    A2, D0
148A0  9094                      Sub.L     (A4), D0
148A2  C0B8 031A                 And.L     (Lo3Bytes), D0
148A6  60D6                      Bra.B     L3147

                      DT_mMaxIAppend:
148A8  000A 0014 002A            DC.B      '     *'
148AE  0034                      DC.B      ' 4'

                      DT69:
148B0  0000                      DC.B      '  '

                      P_tInitDialogs:
148B2  6100 039C                 Bsr       P594
148B6  21EE 0008 0A8C            Move.L    $8(A6), (ResumeProc)
148BC  4278 0A9A                 Clr       (ACount)
148C0  50F8 0A98                 ST.B      (ANumber)
148C4  41F8 0A9C                 Lea.L     (DABeeper), A0
148C8  43FA 0016                 Lea.L     E_784, A1
148CC  20C9                      Move.L    A1, (A0)+
148CE  4298                      Clr.L     (A0)+
148D0  4298                      Clr.L     (A0)+
148D2  4298                      Clr.L     (A0)+
148D4  4298                      Clr.L     (A0)+
148D6  4278 0AFA                 Clr       (DlgFont)
148DA  7004                      MoveQ.L   #$4, D0
148DC  6000 037E                 Bra       L3179

                      E_784:
148E0  225F                      Move.L    (A7)+, A1
148E2  341F                      Move      (A7)+, D2
148E4  6710           L3150:     BEQ.B     L3151
148E6  3F3C 0003                 Move      #$3, -(A7)
148EA  A9C8                      _SysBeep
148EC  307C 0006                 Move      #$6, A0
148F0  A03B                      _Delay
148F2  5342                      SubQ      #$1, D2
148F4  60EE                      Bra.B     L3150
148F6  4ED1           L3151:     Jmp       (A1)

                      E_785:
148F8  6100 0356                 Bsr       P594
148FC  286E 0010                 Move.L    $10(A6), A4
14900  6100 03D8                 Bsr       P596
14904  426E 0014                 Clr       $14(A6)
14908  206E 000C                 Move.L    $C(A6), A0
1490C  0C50 0003                 Cmp       #$3, (A0)
14910  664C                      BNE.B     L3154
14912  0C28 0003 0005            Cmp.B     #$3, $5(A0)
14918  6708                      BEQ.B     L3152
1491A  0C28 000D 0005            Cmp.B     #$D, $5(A0)
14920  663C                      BNE.B     L3154
14922  362C 00A8      L3152:     Move      $A8(A4), D3
14926  226E 0008                 Move.L    $8(A6), A1
1492A  3283                      Move      D3, (A1)
1492C  5343                      SubQ      #$1, D3
1492E  6100 0C14                 Bsr       P617
14932  6100 0776                 Bsr       P605
14936  0240 0007                 And       #$7, D0
1493A  0C40 0004                 Cmp       #$4, D0
1493E  661A                      BNE.B     L3153
14940  102A 000C                 Move.B    $C(A2), D0
14944  6B18                      BMI.B     L3154
14946  2F08                      Move.L    A0, -(A7)
14948  4267                      Clr       -(A7)
1494A  2F08                      Move.L    A0, -(A7)
1494C  3F3C 000A                 Move      #$A, -(A7)
14950  A95D                      _HiliteControl
14952  307C 0008                 Move      #$8, A0
14956  A03B                      _Delay
14958  A95D                      _HiliteControl
1495A  522E 0014      L3153:     AddQ      #$1, $14(A6)
1495E  6100 03B8      L3154:     Bsr       P598
14962  700C                      MoveQ.L   #$C, D0
14964  6000 02F6                 Bra       L3179

                      P_tStopAlert:
14968  7000                      MoveQ.L   #$0, D0
1496A  600A                      Bra.B     L3155

                      P_tNoteAlert:
1496C  7001                      MoveQ.L   #$1, D0
1496E  6006                      Bra.B     L3155

                      P_tCautionAlert:
14970  7002                      MoveQ.L   #$2, D0
14972  6002                      Bra.B     L3155

                      P_tAlert:
14974  70FF                      MoveQ.L   #$-1, D0
14976  6100 02D8      L3155:     Bsr       P594
1497A  3600                      Move      D0, D3
1497C  302E 000C                 Move      $C(A6), D0
14980  6100 0410                 Bsr       P599
14984  3038 0A9A                 Move      (ACount), D0
14988  322E 000C                 Move      $C(A6), D1
1498C  B278 0A98                 Cmp       (ANumber), D1
14990  6706                      BEQ.B     L3156
14992  31C1 0A98                 Move      D1, (ANumber)
14996  7000                      MoveQ.L   #$0, D0
14998  31C0 0A9A      L3156:     Move      D0, (ACount)
1499C  3829 000A                 Move      $A(A1), D4
149A0  5340           L3157:     SubQ      #$1, D0
149A2  6D04                      BLT.B     L3158
149A4  E84C                      LsR       #$4, D4
149A6  60F8                      Bra.B     L3157
149A8  0244 000F      L3158:     And       #$F, D4
149AC  2004                      Move.L    D4, D0
149AE  0240 0003                 And       #$3, D0
149B2  6100 00C6                 Bsr       P592
149B6  0804 0002                 BTst.B    #$2, D4
149BA  660A                      BNE.B     L3159
149BC  3D78 0A06 000E            Move      (MinusOne), $E(A6)
149C2  6000 008A                 Bra       L3161
149C6  203C 0000 01FF L3159:     Move.L    #$1FF, D0
149CC  A032                      _FlushEvents
149CE  3029 0008                 Move      $8(A1), D0
149D2  6100 0094                 Bsr       P591
149D6  2252                      Move.L    (A2), A1
149D8  594F                      SubQ      #$4, A7
149DA  42A7                      Clr.L     -(A7)
149DC  4851                      Pea.L     (A1)
149DE  487A FED0                 Pea.L     DT69
149E2  50E7                      ST.B      -(A7)
149E4  3F3C 0001                 Move      #$1, -(A7)
149E8  2F38 0A06                 Move.L    (MinusOne), -(A7)
149EC  4267                      Clr       -(A7)
149EE  42A7                      Clr.L     -(A7)
149F0  2F08                      Move.L    A0, -(A7)
149F2  A97D                      _NewDialog
149F4  2857                      Move.L    (A7), A4
149F6  486E FFD4                 Pea.L     $-2C(A6)
149FA  A874                      _GetPort
149FC  A873                      _SetPort
149FE  4A43                      Tst       D3
14A00  6B12                      BMI.B     L3160
14A02  594F                      SubQ      #$4, A7
14A04  3F03                      Move      D3, -(A7)
14A06  A9BB                      _GetIcon
14A08  201F                      Move.L    (A7)+, D0
14A0A  6708                      BEQ.B     L3160
14A0C  487A FE9A                 Pea.L     DT_mMaxIAppend
14A10  2F00                      Move.L    D0, -(A7)
14A12  A94B                      _PlotIcon
14A14  E644           L3160:     AsR       #$3, D4
14A16  5244                      AddQ      #$1, D4
14A18  3944 00A8                 Move      D4, $A8(A4)
14A1C  2F0C                      Move.L    A4, -(A7)
14A1E  3F04                      Move      D4, -(A7)
14A20  486E FFC4                 Pea.L     $-3C(A6)
14A24  2F17                      Move.L    (A7), -(A7)
14A26  486E FFD8                 Pea.L     $-28(A6)
14A2A  A98D                      _GetDialogItem
14A2C  41EE FFD8                 Lea.L     $-28(A6), A0
14A30  7003                      MoveQ.L   #$3, D0
14A32  7210                      MoveQ.L   #$10, D1
14A34  7404                      MoveQ.L   #$4, D2
14A36  6100 0AD0                 Bsr       P614
14A3A  2F2E 0008                 Move.L    $8(A6), -(A7)
14A3E  486E 000E                 Pea.L     $E(A6)
14A42  A991                      _ModalDialog
14A44  2F2E FFD4                 Move.L    $-2C(A6), -(A7)
14A48  A873                      _SetPort
14A4A  2F0C                      Move.L    A4, -(A7)
14A4C  A983                      _DisposeDialog
14A4E  0892 0007      L3161:     BClr.B    #$7, (A2)
14A52  3238 0A9A                 Move      (ACount), D1
14A56  5241                      AddQ      #$1, D1
14A58  0C41 0004                 Cmp       #$4, D1
14A5C  6D02                      BLT.B     L3162
14A5E  7203                      MoveQ.L   #$3, D1
14A60  31C1 0A9A      L3162:     Move      D1, (ACount)
14A64  7006                      MoveQ.L   #$6, D0
14A66  605E                      Bra.B     L3164

                      P591:
14A68  594F                      SubQ      #$4, A7
14A6A  2F3C 4449 544C            Move.L    #$4449544C, -(A7)
14A70  3F00                      Move      D0, -(A7)
14A72  A9A0                      _GetResource
14A74  205F                      Move.L    (A7)+, A0
14A76  A9E1                      _HandToHand
14A78  4E75                      Rts

                      P592:
14A7A  48E7 E0E0                 MoveM.L   D0-D2/A0-A2, -(A7)
14A7E  2238 0A9C                 Move.L    (DABeeper), D1
14A82  6706                      BEQ.B     L3163
14A84  3F00                      Move      D0, -(A7)
14A86  2041                      Move.L    D1, A0
14A88  4E90                      Jsr       (A0)
14A8A  4CDF 0707      L3163:     MoveM.L   (A7)+, D0-D2/A0-A2
14A8E  4E75                      Rts

                      P_tGetNewDialog:
14A90  6100 01BE                 Bsr       P594
14A94  302E 0010                 Move      $10(A6), D0
14A98  6100 0300                 Bsr       P600
14A9C  594F                      SubQ      #$4, A7
14A9E  2F2E 000C                 Move.L    $C(A6), -(A7)
14AA2  2F09                      Move.L    A1, -(A7)
14AA4  4869 0014                 Pea.L     $14(A1)
14AA8  5089                      AddQ      #$8, A1
14AAA  2F19                      Move.L    (A1)+, -(A7)
14AAC  2F2E 0008                 Move.L    $8(A6), -(A7)
14AB0  3F19                      Move      (A1)+, -(A7)
14AB2  2F19                      Move.L    (A1)+, -(A7)
14AB4  3019                      Move      (A1)+, D0
14AB6  61B0                      Bsr.B     P591
14AB8  2F08                      Move.L    A0, -(A7)
14ABA  A97D                      _NewDialog
14ABC  0892 0007                 BClr.B    #$7, (A2)
14AC0  2D5F 0012                 Move.L    (A7)+, $12(A6)
14AC4  700A                      MoveQ.L   #$A, D0
14AC6  607E           L3164:     Bra.B     L3166

                      P_tNewDialog:
14AC8  6100 0186                 Bsr       P594
14ACC  4AAE 0022                 Tst.L     $22(A6)
14AD0  660C                      BNE.B     L3165
14AD2  203C 0000 00AA            Move.L    #$AA, D0
14AD8  A11E                      _NewPtr
14ADA  2D48 0022                 Move.L    A0, $22(A6)
14ADE  41EE 000C      L3165:     Lea.L     $C(A6), A0
14AE2  701E                      MoveQ.L   #$1E, D0
14AE4  9FC0                      SubA.L    D0, A7
14AE6  224F                      Move.L    A7, A1
14AE8  A02E                      _BlockMove
14AEA  A913                      _NewWindow
14AEC  285F                      Move.L    (A7)+, A4
14AEE  2D4C 0026                 Move.L    A4, $26(A6)
14AF2  266E 0008                 Move.L    $8(A6), A3
14AF6  397C 0002 006C            Move      #$2, $6C(A4)
14AFC  294B 009C                 Move.L    A3, $9C(A4)
14B00  3978 0A06 00A4            Move      (MinusOne), $A4(A4)
14B06  3978 0AFA 0044            Move      (DlgFont), $44(A4)
14B0C  594F                      SubQ      #$4, A7
14B0E  2F0F                      Move.L    A7, -(A7)
14B10  A874                      _GetPort
14B12  2F0C                      Move.L    A4, -(A7)
14B14  A873                      _SetPort
14B16  397C 0001 00A8            Move      #$1, $A8(A4)
14B1C  594F                      SubQ      #$4, A7
14B1E  486C 0010                 Pea.L     $10(A4)
14B22  2F17                      Move.L    (A7), -(A7)
14B24  A9D2                      _TENew
14B26  2957 00A0                 Move.L    (A7), $A0(A4)
14B2A  225F                      Move.L    (A7)+, A1
14B2C  2451                      Move.L    (A1), A2
14B2E  206A 003E                 Move.L    $3E(A2), A0
14B32  A023                      _DisposeHandle
14B34  A873                      _SetPort
14B36  6100 01A2                 Bsr       P596
14B3A  7800                      MoveQ.L   #$0, D4
14B3C  6100 055A                 Bsr       P604
14B40  6100 01D6                 Bsr       P598
14B44  701E                      MoveQ.L   #$1E, D0
14B46  6050           L3166:     Bra.B     L3170

                      P593:
14B48  3612                      Move      (A2), D3
14B4A  5D43                      SubQ      #$6, D3
14B4C  670C                      BEQ.B     L3167
14B4E  5543                      SubQ      #$2, D3
14B50  6708                      BEQ.B     L3167
14B52  594F                      SubQ      #$4, A7
14B54  A924                      _FrontWindow
14B56  285F                      Move.L    (A7)+, A4
14B58  4E75                      Rts
14B5A  286A 0002      L3167:     Move.L    $2(A2), A4
14B5E  4E75                      Rts

                      P_tIsDialogEvent:
14B60  6100 00EE                 Bsr       P594
14B64  426E 000C                 Clr       $C(A6)
14B68  246E 0008                 Move.L    $8(A6), A2
14B6C  61DA                      Bsr.B     P593
14B6E  0C6C 0002 006C            Cmp       #$2, $6C(A4)
14B74  6620                      BNE.B     L3169
14B76  3612                      Move      (A2), D3
14B78  5343                      SubQ      #$1, D3
14B7A  6616                      BNE.B     L3168
14B7C  554F                      SubQ      #$2, A7
14B7E  2F2A 000A                 Move.L    $A(A2), -(A7)
14B82  486E FFEC                 Pea.L     $-14(A6)
14B86  A92C                      _FindWindow
14B88  575F                      SubQ      #$3, (A7)+
14B8A  660A                      BNE.B     L3169
14B8C  B9EE FFEC                 CmpA.L    $-14(A6), A4
14B90  6604                      BNE.B     L3169
14B92  522E 000C      L3168:     AddQ      #$1, $C(A6)
14B96  7004           L3169:     MoveQ.L   #$4, D0
14B98  603E           L3170:     Bra.B     L3172

                      P_tDialogSelect:
14B9A  6100 00B4                 Bsr       P594
14B9E  426E 0014                 Clr       $14(A6)
14BA2  266E 000C                 Move.L    $C(A6), A3
14BA6  4293                      Clr.L     (A3)
14BA8  246E 0010                 Move.L    $10(A6), A2
14BAC  619A                      Bsr.B     P593
14BAE  268C                      Move.L    A4, (A3)
14BB0  6100 0128                 Bsr       P596
14BB4  206E 0010                 Move.L    $10(A6), A0
14BB8  43EE FFB4                 Lea.L     $-4C(A6), A1
14BBC  7010                      MoveQ.L   #$10, D0
14BBE  A02E                      _BlockMove
14BC0  6100 0768                 Bsr       P608
14BC4  4A43                      Tst       D3
14BC6  6B04                      BMI.B     L3171
14BC8  522E 0014                 AddQ      #$1, $14(A6)
14BCC  206E 0008      L3171:     Move.L    $8(A6), A0
14BD0  3083                      Move      D3, (A0)
14BD2  6100 0144                 Bsr       P598
14BD6  700C                      MoveQ.L   #$C, D0
14BD8  6064           L3172:     Bra.B     L3177

                      P_tModalDialog:
14BDA  6100 0074                 Bsr       P594
14BDE  A9B4           L3173:     _SystemTask
14BE0  594F                      SubQ      #$4, A7
14BE2  A924                      _FrontWindow
14BE4  205F                      Move.L    (A7)+, A0
14BE6  4A68 00A4                 Tst       $A4(A0)
14BEA  6B06                      BMI.B     L3174
14BEC  2F28 00A0                 Move.L    $A0(A0), -(A7)
14BF0  A9DA                      _TEIdle
14BF2  5D4F           L3174:     SubQ      #$6, A7
14BF4  3F3C 017F                 Move      #$17F, -(A7)
14BF8  486E FFB4                 Pea.L     $-4C(A6)
14BFC  A970                      _GetNextEvent
14BFE  262E 000C                 Move.L    $C(A6), D3
14C02  6606                      BNE.B     L3175
14C04  41FA FCF2                 Lea.L     E_785, A0
14C08  2608                      Move.L    A0, D3
14C0A  A924           L3175:     _FrontWindow
14C0C  486E FFB4                 Pea.L     $-4C(A6)
14C10  2F2E 0008                 Move.L    $8(A6), -(A7)
14C14  2043                      Move.L    D3, A0
14C16  4E90                      Jsr       (A0)
14C18  4A1F                      Tst.B     (A7)+
14C1A  6620                      BNE.B     L3176
14C1C  554F                      SubQ      #$2, A7
14C1E  486E FFB4                 Pea.L     $-4C(A6)
14C22  A97F                      _IsDialogEvent
14C24  4A5F                      Tst       (A7)+
14C26  6718                      BEQ.B     L3178
14C28  554F                      SubQ      #$2, A7
14C2A  486E FFB4                 Pea.L     $-4C(A6)
14C2E  486E FFE4                 Pea.L     $-1C(A6)
14C32  2F2E 0008                 Move.L    $8(A6), -(A7)
14C36  A980                      _DialogSelect
14C38  4A5F                      Tst       (A7)+
14C3A  6FA2                      BLE.B     L3173
14C3C  7008           L3176:     MoveQ.L   #$8, D0
14C3E  601C           L3177:     Bra.B     L3179
14C40  302E FFB4      L3178:     Move      $-4C(A6), D0
14C44  5340                      SubQ      #$1, D0
14C46  6696                      BNE.B     L3173
14C48  7001                      MoveQ.L   #$1, D0
14C4A  6100 FE2E                 Bsr       P592
14C4E  608E                      Bra.B     L3173

                      P594:
14C50  205F                      Move.L    (A7)+, A0
14C52  4E56 FFB4                 Link      A6, #$-4C
14C56  48E7 1F38                 MoveM.L   D3-D7/A2-A4, -(A7)
14C5A  4ED0                      Jmp       (A0)
14C5C  4CDF 1CF8      L3179:     MoveM.L   (A7)+, D3-D7/A2-A4
14C60  4E5E                      Unlk      A6
14C62  205F                      Move.L    (A7)+, A0
14C64  DFC0                      AddA.L    D0, A7
14C66  4ED0                      Jmp       (A0)

                      P_tDrawDialog:
14C68  61E6                      Bsr.B     P594
14C6A  286E 0008                 Move.L    $8(A6), A4
14C6E  616A                      Bsr.B     P596
14C70  2F0C                      Move.L    A4, -(A7)
14C72  A969                      _DrawControls
14C74  7801                      MoveQ.L   #$1, D4
14C76  6100 0420                 Bsr       P604
14C7A  6100 009C                 Bsr       P598
14C7E  6044                      Bra.B     L3180

                      P_tUpdtDialog:
14C80  61CE                      Bsr.B     P594
14C82  286E 000C                 Move.L    $C(A6), A4
14C86  6152                      Bsr.B     P596
14C88  2F0C                      Move.L    A4, -(A7)
14C8A  2F2E 0008                 Move.L    $8(A6), -(A7)
14C8E  A953                      _UpdtControl
14C90  7803                      MoveQ.L   #$3, D4
14C92  6100 0404                 Bsr       P604
14C96  6100 0080                 Bsr       P598
14C9A  6000 0296                 Bra       L3209

                      P_tCloseDialog:
14C9E  61B0                      Bsr.B     P594
14CA0  286E 0008                 Move.L    $8(A6), A4
14CA4  6134                      Bsr.B     P596
14CA6  2F2C 001C                 Move.L    $1C(A4), -(A7)
14CAA  A8DD                      _SetEmptyRgn
14CAC  7802                      MoveQ.L   #$2, D4
14CAE  6100 03E8                 Bsr       P604
14CB2  6164                      Bsr.B     P598
14CB4  206C 00A0                 Move.L    $A0(A4), A0
14CB8  2050                      Move.L    (A0), A0
14CBA  206C 00A0                 Move.L    $A0(A4), A0
14CBE  A023                      _DisposeHandle
14CC0  2F0C                      Move.L    A4, -(A7)
14CC2  A92D                      _CloseWindow
14CC4  7004           L3180:     MoveQ.L   #$4, D0
14CC6  6094           L3181:     Bra.B     L3179

                      P595:
14CC8  266C 009C                 Move.L    $9C(A4), A3
14CCC  4A93                      Tst.L     (A3)
14CCE  6604                      BNE.B     L3182
14CD0  2F0B                      Move.L    A3, -(A7)
14CD2  A9A2                      _LoadResource
14CD4  08D3 0007      L3182:     BSet.B    #$7, (A3)
14CD8  4E75                      Rts

                      P596:
14CDA  486E FFD4                 Pea.L     $-2C(A6)
14CDE  A874                      _GetPort
14CE0  2F0C                      Move.L    A4, -(A7)
14CE2  A873                      _SetPort
14CE4  61E2                      Bsr.B     P595
14CE6  610A                      Bsr.B     P597
14CE8  6704                      BEQ.B     L3183
14CEA  6100 0790                 Bsr       P610
14CEE  721A           L3183:     MoveQ.L   #$1A, D1
14CF0  4E75                      Rts

                      P597:
14CF2  362C 00A4                 Move      $A4(A4), D3
14CF6  6B06                      BMI.B     L3184
14CF8  6100 084A                 Bsr       P617
14CFC  6016                      Bra.B     L3186
14CFE  76FF           L3184:     MoveQ.L   #$-1, D3
14D00  6100 0838      L3185:     Bsr       P616
14D04  6710                      BEQ.B     L3187
14D06  082A 0004 000C            BTst.B    #$4, $C(A2)
14D0C  67F2                      BEQ.B     L3185
14D0E  6100 07CA                 Bsr       P612
14D12  67EC                      BEQ.B     L3185
14D14  74FE           L3186:     MoveQ.L   #$-2, D2
14D16  4E75           L3187:     Rts

                      P598:
14D18  2F2E FFD4                 Move.L    $-2C(A6), -(A7)
14D1C  A873                      _SetPort
14D1E  0893 0007                 BClr.B    #$7, (A3)
14D22  4E75                      Rts

                      P_tDisposeDialog:
14D24  206F 0004                 Move.L    $4(A7), A0
14D28  2F28 009C                 Move.L    $9C(A0), -(A7)
14D2C  2F08                      Move.L    A0, -(A7)
14D2E  A982                      _CloseDialog
14D30  205F                      Move.L    (A7)+, A0
14D32  A023                      _DisposeHandle
14D34  225F                      Move.L    (A7)+, A1
14D36  205F                      Move.L    (A7)+, A0
14D38  A01F                      _DisposePtr
14D3A  4ED1                      Jmp       (A1)

                      E_799:
14D3C  2052                      Move.L    (A2), A0
14D3E  3028 0012                 Move      $12(A0), D0
14D42  6006                      Bra.B     L3188

                      E_800:
14D44  2052                      Move.L    (A2), A0
14D46  3028 0008                 Move      $8(A0), D0
14D4A  594F           L3188:     SubQ      #$4, A7
14D4C  2F3C 4449 544C            Move.L    #$4449544C, -(A7)
14D52  3F00                      Move      D0, -(A7)
14D54  A9A0           L3189:     _GetResource
14D56  245F                      Move.L    (A7)+, A2
14D58  4E75                      Rts

                      P_tCouldDialog:
14D5A  6100 FEF4                 Bsr       P594
14D5E  45FA 003A                 Lea.L     P600, A2
14D62  49FA FFD8                 Lea.L     E_799, A4
14D66  600C                      Bra.B     L3190

                      P_tCouldAlert:
14D68  6100 FEE6                 Bsr       P594
14D6C  45FA 0024                 Lea.L     P599, A2
14D70  49FA FFD2                 Lea.L     E_800, A4
14D74  302E 0008      L3190:     Move      $8(A6), D0
14D78  4E92                      Jsr       (A2)
14D7A  6772                      BEQ.B     L3193
14D7C  0212 003F                 And.B     #$3F, (A2)
14D80  4E94                      Jsr       (A4)
14D82  0892 0006                 BClr.B    #$6, (A2)
14D86  264A                      Move.L    A2, A3
14D88  78FE                      MoveQ.L   #$-2, D4
14D8A  6168                      Bsr.B     P601
14D8C  0892 0006                 BClr.B    #$6, (A2)
14D90  605C                      Bra.B     L3193

                      P599:
14D92  207C 414C 5254            Move.L    #$414C5254, A0
14D98  6006                      Bra.B     L3191

                      P600:
14D9A  207C 444C 4F47            Move.L    #$444C4F47, A0
14DA0  594F           L3191:     SubQ      #$4, A7
14DA2  2F08                      Move.L    A0, -(A7)
14DA4  3F00                      Move      D0, -(A7)
14DA6  A9A0                      _GetResource
14DA8  2457                      Move.L    (A7), A2
14DAA  08D2 0007                 BSet.B    #$7, (A2)
14DAE  2252                      Move.L    (A2), A1
14DB0  4A9F                      Tst.L     (A7)+
14DB2  4E75                      Rts

                      P_tFreeDialog:
14DB4  6100 FE9A                 Bsr       P594
14DB8  45FA FFE0                 Lea.L     P600, A2
14DBC  49FA FF7E                 Lea.L     E_799, A4
14DC0  600C                      Bra.B     L3192

                      P_tFreeAlert:
14DC2  6100 FE8C                 Bsr       P594
14DC6  45FA FFCA                 Lea.L     P599, A2
14DCA  49FA FF78                 Lea.L     E_800, A4
14DCE  302E 0008      L3192:     Move      $8(A6), D0
14DD2  4E92                      Jsr       (A2)
14DD4  6718                      BEQ.B     L3193
14DD6  0892 0007                 BClr.B    #$7, (A2)
14DDA  6100 034A                 Bsr       P606
14DDE  4E94                      Jsr       (A4)
14DE0  6100 0344                 Bsr       P606
14DE4  264A                      Move.L    A2, A3
14DE6  78FF                      MoveQ.L   #$-1, D4
14DE8  610A                      Bsr.B     P601
14DEA  6100 033A                 Bsr       P606
14DEE  7002           L3193:     MoveQ.L   #$2, D0
14DF0  6000 FED4      L3194:     Bra       L3181

                      P601:
14DF4  08D3 0007                 BSet.B    #$7, (A3)
14DF8  6100 029E                 Bsr       P604
14DFC  0893 0007                 BClr.B    #$7, (A3)
14E00  594F                      SubQ      #$4, A7
14E02  2F3C 5744 4546            Move.L    #$57444546, -(A7)
14E08  4267                      Clr       -(A7)
14E0A  6000 FF48                 Bra       L3189

                      P_tParamText:
14E0E  43F8 0AB0                 Lea.L     (TEScrpLength), A1
14E12  7403                      MoveQ.L   #$3, D2
14E14  222F 0004      L3195:     Move.L    $4(A7), D1
14E18  2061                      Move.L    -(A1), A0
14E1A  670E                      BEQ.B     L3197
14E1C  2008                      Move.L    A0, D0
14E1E  6702                      BEQ.B     L3196
14E20  A023                      _DisposeHandle
14E22  2041           L3196:     Move.L    D1, A0
14E24  6100 0704                 Bsr       P615
14E28  2288                      Move.L    A0, (A1)
14E2A  2E9F           L3197:     Move.L    (A7)+, (A7)
14E2C  51CA FFE6                 DBF       D2, L3195
14E30  4E75                      Rts

                      P_tErrorSound:
14E32  205F                      Move.L    (A7)+, A0
14E34  21DF 0A9C                 Move.L    (A7)+, (DABeeper)
14E38  4ED0                      Jmp       (A0)

                      P_tGetDialogItem:
14E3A  6100 FE14                 Bsr       P594
14E3E  286E 0016                 Move.L    $16(A6), A4
14E42  6100 FE96                 Bsr       P596
14E46  362E 0014                 Move      $14(A6), D3
14E4A  5343                      SubQ      #$1, D3
14E4C  6100 06F6                 Bsr       P617
14E50  6724                      BEQ.B     L3199
14E52  202E 0008                 Move.L    $8(A6), D0
14E56  670A                      BEQ.B     L3198
14E58  41EA 0004                 Lea.L     $4(A2), A0
14E5C  2240                      Move.L    D0, A1
14E5E  22D8                      Move.L    (A0)+, (A1)+
14E60  22D8                      Move.L    (A0)+, (A1)+
14E62  206E 0010      L3198:     Move.L    $10(A6), A0
14E66  7000                      MoveQ.L   #$0, D0
14E68  102A 000C                 Move.B    $C(A2), D0
14E6C  3080                      Move      D0, (A0)
14E6E  2A12                      Move.L    (A2), D5
14E70  206E 000C                 Move.L    $C(A6), A0
14E74  2085                      Move.L    D5, (A0)
14E76  6100 FEA0      L3199:     Bsr       P598
14E7A  7012                      MoveQ.L   #$12, D0
14E7C  6000 FF72      L3200:     Bra       L3194

                      P_tSetDialogItem:
14E80  6100 FDCE                 Bsr       P594
14E84  286E 0014                 Move.L    $14(A6), A4
14E88  6100 FE50                 Bsr       P596
14E8C  362E 0012                 Move      $12(A6), D3
14E90  5343                      SubQ      #$1, D3
14E92  6100 06B0                 Bsr       P617
14E96  6716                      BEQ.B     L3201
14E98  206E 0008                 Move.L    $8(A6), A0
14E9C  43EA 0004                 Lea.L     $4(A2), A1
14EA0  22D8                      Move.L    (A0)+, (A1)+
14EA2  22D8                      Move.L    (A0)+, (A1)+
14EA4  24AE 000C                 Move.L    $C(A6), (A2)
14EA8  156E 0011 000C            Move.B    $11(A6), $C(A2)
14EAE  6100 FE68      L3201:     Bsr       P598
14EB2  7010                      MoveQ.L   #$10, D0
14EB4  60C6           L3202:     Bra.B     L3200

                      P_tGetDialogItemText:
14EB6  7200                      MoveQ.L   #$0, D1
14EB8  5301                      SubQ      #$1, D1
14EBA  6100 FD94                 Bsr       P594
14EBE  226E 0008                 Move.L    $8(A6), A1
14EC2  206E 000C                 Move.L    $C(A6), A0
14EC6  A025                      _GetHandleSize
14EC8  B081                      Cmp.L     D1, D0
14ECA  6F02                      BLE.B     L3203
14ECC  2001                      Move.L    D1, D0
14ECE  12C0           L3203:     Move.B    D0, (A1)+
14ED0  2050                      Move.L    (A0), A0
14ED2  A02E                      _BlockMove
14ED4  605C                      Bra.B     L3209

                      P_tSetDialogItemText:
14ED6  6100 FD78                 Bsr       P594
14EDA  206E 0008                 Move.L    $8(A6), A0
14EDE  7000                      MoveQ.L   #$0, D0
14EE0  1018                      Move.B    (A0)+, D0
14EE2  226E 000C                 Move.L    $C(A6), A1
14EE6  2C09                      Move.L    A1, D6
14EE8  A9E2                      _PtrToXHand
14EEA  2878 09D6                 Move.L    (WindowList), A4
14EEE  0C6C 0002 006C L3204:     Cmp       #$2, $6C(A4)
14EF4  6634                      BNE.B     L3208
14EF6  6100 FDE2                 Bsr       P596
14EFA  76FF                      MoveQ.L   #$-1, D3
14EFC  6100 063C      L3205:     Bsr       P616
14F00  6724                      BEQ.B     L3207
14F02  BC92                      Cmp.L     (A2), D6
14F04  66F6                      BNE.B     L3205
14F06  B66C 00A4                 Cmp       $A4(A4), D3
14F0A  6606                      BNE.B     L3206
14F0C  2F2C 00A0                 Move.L    $A0(A4), -(A7)
14F10  A9D0                      _TECalText
14F12  4A2C 006E      L3206:     Tst.B     $6E(A4)
14F16  670E                      BEQ.B     L3207
14F18  486E FFD8                 Pea.L     $-28(A6)
14F1C  2F17                      Move.L    (A7), -(A7)
14F1E  A8A3                      _EraseRect
14F20  6100 02C2                 Bsr       P607
14F24  A92A                      _ValidRect
14F26  6100 FDF0      L3207:     Bsr       P598
14F2A  286C 0090      L3208:     Move.L    $90(A4), A4
14F2E  200C                      Move.L    A4, D0
14F30  66BC                      BNE.B     L3204
14F32  7008           L3209:     MoveQ.L   #$8, D0
14F34  6000 FF7E      L3210:     Bra       L3202

                      P_tSelectDialogItemText:
14F38  6100 FD16                 Bsr       P594
14F3C  286E 000E                 Move.L    $E(A6), A4
14F40  6100 FD98                 Bsr       P596
14F44  362E 000C                 Move      $C(A6), D3
14F48  5343                      SubQ      #$1, D3
14F4A  6100 05F8                 Bsr       P617
14F4E  242E 0008                 Move.L    $8(A6), D2
14F52  4842                      Swap      D2
14F54  6100 04F2                 Bsr       P609
14F58  6100 FDBE                 Bsr       P598
14F5C  700A                      MoveQ.L   #$A, D0
14F5E  60D4                      Bra.B     L3210

                      P602:
14F60  7EFD                      MoveQ.L   #$-3, D7
14F62  122A 000C                 Move.B    $C(A2), D1
14F66  0801 0004                 BTst.B    #$4, D1
14F6A  660E                      BNE.B     L3211
14F6C  7EFC                      MoveQ.L   #$-4, D7
14F6E  302C 00A8                 Move      $A8(A4), D0
14F72  5340                      SubQ      #$1, D0
14F74  B640                      Cmp       D0, D3
14F76  6702                      BEQ.B     L3211
14F78  7E00                      MoveQ.L   #$0, D7
14F7A  205F           L3211:     Move.L    (A7)+, A0
14F7C  2F2A 0008                 Move.L    $8(A2), -(A7)
14F80  2F2A 0004                 Move.L    $4(A2), -(A7)
14F84  2F08                      Move.L    A0, -(A7)
14F86  486F 0004                 Pea.L     $4(A7)
14F8A  3F07                      Move      D7, -(A7)
14F8C  3F07                      Move      D7, -(A7)
14F8E  A8A9                      _InsetRect
14F90  4E75                      Rts

                      P_tHideDialogItem:
14F92  6100 FCBC                 Bsr       P594
14F96  286E 000A                 Move.L    $A(A6), A4
14F9A  6100 FD3E                 Bsr       P596
14F9E  362E 0008                 Move      $8(A6), D3
14FA2  5343                      SubQ      #$1, D3
14FA4  6100 059E                 Bsr       P617
14FA8  670A                      BEQ.B     L3212
14FAA  302A 0006                 Move      $6(A2), D0
14FAE  0C40 2000                 Cmp       #$2000, D0
14FB2  6D0A                      BLT.B     L3213
14FB4  6100 FD62      L3212:     Bsr       P598
14FB8  7006                      MoveQ.L   #$6, D0
14FBA  6000 FF78                 Bra       L3210
14FBE  61A0           L3213:     Bsr.B     P602
14FC0  B66C 00A4                 Cmp       $A4(A4), D3
14FC4  6606                      BNE.B     L3214
14FC6  76FF                      MoveQ.L   #$-1, D3
14FC8  6100 047E                 Bsr       P609
14FCC  2F0F           L3214:     Move.L    A7, -(A7)
14FCE  A8A3                      _EraseRect
14FD0  066A 4000 0006            Add       #$4000, $6(A2)
14FD6  066A 4000 000A            Add       #$4000, $A(A2)
14FDC  6166                      Bsr.B     P603
14FDE  6708                      BEQ.B     L3215
14FE0  2F12                      Move.L    (A2), -(A7)
14FE2  2F2A 0004                 Move.L    $4(A2), -(A7)
14FE6  A959                      _MoveControl
14FE8  2F0F           L3215:     Move.L    A7, -(A7)
14FEA  A928                      _InvalRect
14FEC  504F                      AddQ      #$8, A7
14FEE  60C4           L3216:     Bra.B     L3212

                      P_tShowDialogItem:
14FF0  6100 FC5E                 Bsr       P594
14FF4  286E 000A                 Move.L    $A(A6), A4
14FF8  6100 FCE0                 Bsr       P596
14FFC  362E 0008                 Move      $8(A6), D3
15000  5343                      SubQ      #$1, D3
15002  6100 0540                 Bsr       P617
15006  67E6                      BEQ.B     L3216
15008  302A 0006                 Move      $6(A2), D0
1500C  0C40 2000                 Cmp       #$2000, D0
15010  6DDC                      BLT.B     L3216
15012  046A 4000 0006            Sub       #$4000, $6(A2)
15018  046A 4000 000A            Sub       #$4000, $A(A2)
1501E  6100 FF40                 Bsr       P602
15022  6120                      Bsr.B     P603
15024  671C                      BEQ.B     L3217
15026  2052                      Move.L    (A2), A0
15028  2250                      Move.L    (A0), A1
1502A  1F29 0010                 Move.B    $10(A1), -(A7)
1502E  4229 0010                 Clr.B     $10(A1)
15032  2F08                      Move.L    A0, -(A7)
15034  2F2A 0004                 Move.L    $4(A2), -(A7)
15038  A959                      _MoveControl
1503A  2052                      Move.L    (A2), A0
1503C  2250                      Move.L    (A0), A1
1503E  135F 0010                 Move.B    (A7)+, $10(A1)
15042  60A4           L3217:     Bra.B     L3215

                      P603:
15044  4A6C 00A4                 Tst       $A4(A4)
15048  6A10                      BPL.B     L3219
1504A  2F0A                      Move.L    A2, -(A7)
1504C  6100 FCA4                 Bsr       P597
15050  6706                      BEQ.B     L3218
15052  7400                      MoveQ.L   #$0, D2
15054  6100 03F2                 Bsr       P609
15058  245F           L3218:     Move.L    (A7)+, A2
1505A  122A 000C      L3219:     Move.B    $C(A2), D1
1505E  0801 0002                 BTst.B    #$2, D1
15062  4E75                      Rts

                      P_tFindDialogItem:
15064  6100 FBEA                 Bsr       P594
15068  286E 000C                 Move.L    $C(A6), A4
1506C  6100 FC5A                 Bsr       P595
15070  76FF                      MoveQ.L   #$-1, D3
15072  3D43 0010                 Move      D3, $10(A6)
15076  6100 04C2      L3220:     Bsr       P616
1507A  6714                      BEQ.B     L3221
1507C  554F                      SubQ      #$2, A7
1507E  2F2E 0008                 Move.L    $8(A6), -(A7)
15082  486E FFD8                 Pea.L     $-28(A6)
15086  A8AD                      _PtInRect
15088  4A1F                      Tst.B     (A7)+
1508A  67EA                      BEQ.B     L3220
1508C  3D43 0010                 Move      D3, $10(A6)
15090  0893 0007      L3221:     BClr.B    #$7, (A3)
15094  6000 FE9C                 Bra       L3209

                      P604:
15098  48E7 FFF8                 MoveM.L   D0-D7/A0-A4, -(A7)
1509C  76FF                      MoveQ.L   #$-1, D3

                      E_815:
1509E  6100 049A                 Bsr       P616
150A2  660E                      BNE.B     L3222
150A4  4CDF 1FFF                 MoveM.L   (A7)+, D0-D7/A0-A4
150A8  4E75                      Rts

                      P605:
150AA  2052                      Move.L    (A2), A0
150AC  102A 000C                 Move.B    $C(A2), D0
150B0  4E75                      Rts
150B2  61F6           L3222:     Bsr.B     P605
150B4  487A FFE8                 Pea.L     E_815
150B8  0C44 0002                 Cmp       #$2, D4
150BC  6E00 0100                 BGT       L3240
150C0  6700 0228                 BEQ       L3258
150C4  4A44                      Tst       D4
150C6  6772                      BEQ.B     L3230
150C8  6E00 011A                 BGT       P607
150CC  0800 0002                 BTst.B    #$2, D0
150D0  6608                      BNE.B     L3223
150D2  EE50                      RXR       #$7, D0
150D4  6B28                      BMI.B     L3225
150D6  652E                      BCS.B     L3226
150D8  4E75                      Rts
150DA  0240 0003      L3223:     And       #$3, D0
150DE  0C40 0003                 Cmp       #$3, D0
150E2  6612                      BNE.B     L3224
150E4  487A 000A                 Pea.L     E_816
150E8  223C 434E 544C            Move.L    #$434E544C, D1
150EE  601C                      Bra.B     L3227

                      E_816:
150F0  2252                      Move.L    (A2), A1
150F2  3029 0010                 Move      $10(A1), D0
150F6  223C 4344 4546 L3224:     Move.L    #$43444546, D1
150FC  6012                      Bra.B     L3228
150FE  223C 4943 4F4E L3225:     Move.L    #$49434F4E, D1
15104  6006                      Bra.B     L3227
15106  223C 5049 4354 L3226:     Move.L    #$50494354, D1
1510C  302A 000E      L3227:     Move      $E(A2), D0
15110  594F           L3228:     SubQ      #$4, A7
15112  2F01                      Move.L    D1, -(A7)
15114  3F00                      Move      D0, -(A7)
15116  A9A0                      _GetResource
15118  245F                      Move.L    (A7)+, A2
1511A  0C44 FFFF                 Cmp       #$-1, D4
1511E  6706                      BEQ.B     P606
15120  0892 0006                 BClr.B    #$6, (A2)
15124  4E75                      Rts

                      P606:
15126  554F                      SubQ      #$2, A7
15128  2F0A                      Move.L    A2, -(A7)
1512A  A9A6                      _GetResAttrs
1512C  301F                      Move      (A7)+, D0
1512E  0800 0005                 BTst.B    #$5, D0
15132  6704                      BEQ.B     L3229
15134  08D2 0006                 BSet.B    #$6, (A2)
15138  4E75           L3229:     Rts
1513A  2208           L3230:     Move.L    A0, D1
1513C  6702                      BEQ.B     L3231
1513E  4E75                      Rts
15140  0800 0002      L3231:     BTst.B    #$2, D0
15144  6636                      BNE.B     L3236
15146  EA50                      RXR       #$5, D0
15148  650A                      BCS.B     L3232
1514A  6B08                      BMI.B     L3232
1514C  E450                      RXR       #$2, D0
1514E  6B12                      BMI.B     L3233
15150  6518                      BCS.B     L3234
15152  4E75                      Rts
15154  41EA 000D      L3232:     Lea.L     $D(A2), A0
15158  7000                      MoveQ.L   #$0, D0
1515A  1018                      Move.B    (A0)+, D0
1515C  A9E3                      _PtrToHand
1515E  2F08                      Move.L    A0, -(A7)
15160  6058                      Bra.B     L3239
15162  203C 4943 4F4E L3233:     Move.L    #$49434F4E, D0
15168  6006                      Bra.B     L3235
1516A  203C 5049 4354 L3234:     Move.L    #$50494354, D0
15170  594F           L3235:     SubQ      #$4, A7
15172  2F00                      Move.L    D0, -(A7)
15174  3F2A 000E                 Move      $E(A2), -(A7)
15178  A9A0                      _GetResource
1517A  603E                      Bra.B     L3239
1517C  0240 0003      L3236:     And       #$3, D0
15180  0C40 0003                 Cmp       #$3, D0
15184  6614                      BNE.B     L3237
15186  594F                      SubQ      #$4, A7
15188  3F2A 000E                 Move      $E(A2), -(A7)
1518C  2F0C                      Move.L    A4, -(A7)
1518E  A9BE                      _GetNewControl
15190  2F17                      Move.L    (A7), -(A7)
15192  2F2A 0004                 Move.L    $4(A2), -(A7)
15196  A959                      _MoveControl
15198  601A                      Bra.B     L3238
1519A  594F           L3237:     SubQ      #$4, A7
1519C  2F0C                      Move.L    A4, -(A7)
1519E  486E FFD8                 Pea.L     $-28(A6)
151A2  486A 000D                 Pea.L     $D(A2)
151A6  50E7                      ST.B      -(A7)
151A8  42A7                      Clr.L     -(A7)
151AA  3F3C 0001                 Move      #$1, -(A7)
151AE  3F00                      Move      D0, -(A7)
151B0  42A7                      Clr.L     -(A7)
151B2  A954                      _NewControl
151B4  486E FFD8      L3238:     Pea.L     $-28(A6)
151B8  A92A                      _ValidRect
151BA  249F           L3239:     Move.L    (A7)+, (A2)
151BC  4E75                      Rts
151BE  2F2A 0008      L3240:     Move.L    $8(A2), -(A7)
151C2  2F2A 0004                 Move.L    $4(A2), -(A7)
151C6  2F0F                      Move.L    A7, -(A7)
151C8  2F3C FFFC FFFC            Move.L    #$FFFCFFFC, -(A7)
151CE  A8A9                      _InsetRect
151D0  554F                      SubQ      #$2, A7
151D2  486F 0002                 Pea.L     $2(A7)
151D6  2F2E 0008                 Move.L    $8(A6), -(A7)
151DA  A8E9                      _RectInRgn
151DC  4A1F                      Tst.B     (A7)+
151DE  504F                      AddQ      #$8, A7
151E0  6612                      BNE.B     L3241
151E2  4E75                      Rts

                      P607:
151E4  6100 FEC4                 Bsr       P605
151E8  0200 007F                 And.B     #$7F, D0
151EC  671C                      BEQ.B     L3242
151EE  6100 02EE                 Bsr       P613
151F2  6724                      BEQ.B     L3243
151F4  6100 FEB4      L3241:     Bsr       P605
151F8  0800 0002                 BTst.B    #$2, D0
151FC  6636                      BNE.B     L3246
151FE  EA50                      RXR       #$5, D0
15200  6534                      BCS.B     L3247
15202  6B32                      BMI.B     L3247
15204  E450                      RXR       #$2, D0
15206  6B12                      BMI.B     L3244
15208  651E                      BCS.B     L3245
1520A  2012           L3242:     Move.L    (A2), D0
1520C  670A                      BEQ.B     L3243
1520E  2F0C                      Move.L    A4, -(A7)
15210  3F03                      Move      D3, -(A7)
15212  5257                      AddQ      #$1, (A7)
15214  2040                      Move.L    D0, A0
15216  4E90                      Jsr       (A0)
15218  4E75           L3243:     Rts
1521A  486E FFD8      L3244:     Pea.L     $-28(A6)
1521E  2F12                      Move.L    (A2), -(A7)
15220  2F17                      Move.L    (A7), -(A7)
15222  A9A2                      _LoadResource
15224  A94B                      _PlotIcon
15226  4E75                      Rts
15228  2F12           L3245:     Move.L    (A2), -(A7)
1522A  2F17                      Move.L    (A7), -(A7)
1522C  A9A2                      _LoadResource
1522E  486E FFD8                 Pea.L     $-28(A6)
15232  A8F6                      _DrawPicture
15234  4E75           L3246:     Rts
15236  5BC6           L3247:     SMI.B     D6
15238  B66C 00A4                 Cmp       $A4(A4), D3
1523C  6622                      BNE.B     L3250
1523E  486E FFD8                 Pea.L     $-28(A6)
15242  2F17                      Move.L    (A7), -(A7)
15244  A8A3                      _EraseRect
15246  2F2C 00A0                 Move.L    $A0(A4), -(A7)
1524A  A9D3                      _TEUpdate
1524C  4A06           L3248:     Tst.B     D6
1524E  660E                      BNE.B     L3249
15250  41EE FFD8                 Lea.L     $-28(A6), A0
15254  7001                      MoveQ.L   #$1, D0
15256  7201                      MoveQ.L   #$1, D1
15258  7403                      MoveQ.L   #$3, D2
1525A  6100 02AC                 Bsr       P614
1525E  4E75           L3249:     Rts
15260  48E7 3E38      L3250:     MoveM.L   D2-D6/A2-A4, -(A7)
15264  2052                      Move.L    (A2), A0
15266  A9E1                      _HandToHand
15268  2448                      Move.L    A0, A2
1526A  7600                      MoveQ.L   #$0, D3
1526C  204A           L3251:     Move.L    A2, A0
1526E  A025                      _GetHandleSize
15270  2850                      Move.L    (A0), A4
15272  D9C3                      AddA.L    D3, A4
15274  2A00                      Move.L    D0, D5
15276  9A83                      Sub.L     D3, D5
15278  6008                      Bra.B     L3254
1527A  0C1C 005E      L3252:     Cmp.B     #$5E, (A4)+
1527E  6724                      BEQ.B     L3255
15280  5243           L3253:     AddQ      #$1, D3
15282  51CD FFF6      L3254:     DBF       D5, L3252
15286  08D2 0007                 BSet.B    #$7, (A2)
1528A  2F12                      Move.L    (A2), -(A7)
1528C  204A                      Move.L    A2, A0
1528E  A025                      _GetHandleSize
15290  2F00                      Move.L    D0, -(A7)
15292  486E FFD8                 Pea.L     $-28(A6)
15296  4267                      Clr       -(A7)
15298  A9CE                      _TETextBox
1529A  204A                      Move.L    A2, A0
1529C  A023                      _DisposeHandle
1529E  4CDF 1C7C                 MoveM.L   (A7)+, D2-D6/A2-A4
152A2  60A8                      Bra.B     L3248
152A4  47F8 0A9C      L3255:     Lea.L     (DABeeper), A3
152A8  1C3C 002F                 Move.B    #$2F, D6
152AC  588B           L3256:     AddQ      #$4, A3
152AE  5246                      AddQ      #$1, D6
152B0  0C06 0034                 Cmp.B     #$34, D6
152B4  67CA                      BEQ.B     L3253
152B6  BC14                      Cmp.B     (A4), D6
152B8  66F2                      BNE.B     L3256
152BA  7000                      MoveQ.L   #$0, D0
152BC  2813                      Move.L    (A3), D4
152BE  670A                      BEQ.B     L3257
152C0  2044                      Move.L    D4, A0
152C2  08D0 0007                 BSet.B    #$7, (A0)
152C6  2050                      Move.L    (A0), A0
152C8  1018                      Move.B    (A0)+, D0
152CA  594F           L3257:     SubQ      #$4, A7
152CC  2F0A                      Move.L    A2, -(A7)
152CE  2F03                      Move.L    D3, -(A7)
152D0  42A7                      Clr.L     -(A7)
152D2  2F3C 0000 0002            Move.L    #$2, -(A7)
152D8  2F08                      Move.L    A0, -(A7)
152DA  2F00                      Move.L    D0, -(A7)
152DC  A9E0                      _Munger
152DE  201F                      Move.L    (A7)+, D0
152E0  4A84                      Tst.L     D4
152E2  6788                      BEQ.B     L3251
152E4  2044                      Move.L    D4, A0
152E6  A02A                      _HUnlock
152E8  6082                      Bra.B     L3251
152EA  E658           L3258:     ROR       #$3, D0
152EC  6500 FF46                 BCS       L3246
152F0  E450                      RXR       #$2, D0
152F2  6506                      BCS.B     L3260
152F4  6B04                      BMI.B     L3260
152F6  4292           L3259:     Clr.L     (A2)
152F8  4E75                      Rts
152FA  A023           L3260:     _DisposeHandle
152FC  60F8                      Bra.B     L3259

                      E_817:
152FE  2F08                      Move.L    A0, -(A7)
15300  A955                      _DisposeControl
15302  60F2                      Bra.B     L3259
15304  206E FFB6      L3261:     Move.L    $-4A(A6), A0
15308  4A68 00A4                 Tst       $A4(A0)
1530C  6B42                      BMI.B     L3264
1530E  2F28 00A0                 Move.L    $A0(A0), -(A7)
15312  2F08                      Move.L    A0, -(A7)
15314  A873                      _SetPort
15316  082E 0000 FFC3            BTst.B    #$0, $-3D(A6)
1531C  6704                      BEQ.B     L3262
1531E  A9D8                      _TEActivate
15320  6002                      Bra.B     L3263
15322  A9D9           L3262:     _TEDeactivate
15324  2F0C           L3263:     Move.L    A4, -(A7)
15326  A873                      _SetPort
15328  6026                      Bra.B     L3264

                      P608:
1532A  302E FFB4                 Move      $-4C(A6), D0
1532E  5340                      SubQ      #$1, D0
15330  6700 008A                 BEQ       L3272
15334  5540                      SubQ      #$2, D0
15336  672A                      BEQ.B     L3266
15338  5540                      SubQ      #$2, D0
1533A  6726                      BEQ.B     L3266
1533C  5340                      SubQ      #$1, D0
1533E  6714                      BEQ.B     L3265
15340  5540                      SubQ      #$2, D0
15342  67C0                      BEQ.B     L3261
15344  4A6C 00A4                 Tst       $A4(A4)
15348  6B06                      BMI.B     L3264
1534A  2F2C 00A0                 Move.L    $A0(A4), -(A7)
1534E  A9DA                      _TEIdle
15350  76FF           L3264:     MoveQ.L   #$-1, D3
15352  4E75                      Rts
15354  2F0C           L3265:     Move.L    A4, -(A7)
15356  2F17                      Move.L    (A7), -(A7)
15358  2F17                      Move.L    (A7), -(A7)
1535A  A922                      _BeginUpDate
1535C  A981                      _DrawDialog
1535E  A923                      _EndUpDate
15360  60EE                      Bra.B     L3264
15362  122E FFB9      L3266:     Move.B    $-47(A6), D1
15366  0C01 0009                 Cmp.B     #$9, D1
1536A  6710                      BEQ.B     L3267
1536C  362C 00A4                 Move      $A4(A4), D3
15370  6BDE                      BMI.B     L3264
15372  3F01                      Move      D1, -(A7)
15374  2F2C 00A0                 Move.L    $A0(A4), -(A7)
15378  A9DC                      _TEKey
1537A  602E                      Bra.B     L3269
1537C  4245           L3267:     Clr       D5
1537E  362C 00A4                 Move      $A4(A4), D3
15382  6100 01C0                 Bsr       P617
15386  6100 01B2      L3268:     Bsr       P616
1538A  6720                      BEQ.B     L3270
1538C  B66C 00A4                 Cmp       $A4(A4), D3
15390  67BE                      BEQ.B     L3264
15392  082A 0004 000C            BTst.B    #$4, $C(A2)
15398  67EC                      BEQ.B     L3268
1539A  6100 013E                 Bsr       P612
1539E  67E6                      BEQ.B     L3268
153A0  243C 0000 7FFF            Move.L    #$7FFF, D2
153A6  6100 00A0                 Bsr       P609
153AA  6062           L3269:     Bra.B     L3274
153AC  4A45           L3270:     Tst       D5
153AE  6BA0                      BMI.B     L3264
153B0  7AFF                      MoveQ.L   #$-1, D5
153B2  76FF                      MoveQ.L   #$-1, D3
153B4  4A6C 00A4                 Tst       $A4(A4)
153B8  6ACC                      BPL.B     L3268
153BA  6094           L3271:     Bra.B     L3264
153BC  2D6E FFBE FFE4 L3272:     Move.L    $-42(A6), $-1C(A6)
153C2  486E FFE4                 Pea.L     $-1C(A6)
153C6  A871                      _GlobalToLocal
153C8  76FF                      MoveQ.L   #$-1, D3
153CA  6100 016E      L3273:     Bsr       P616
153CE  67EA                      BEQ.B     L3271
153D0  554F                      SubQ      #$2, A7
153D2  2F2E FFE4                 Move.L    $-1C(A6), -(A7)
153D6  486E FFD8                 Pea.L     $-28(A6)
153DA  A8AD                      _PtInRect
153DC  4A1F                      Tst.B     (A7)+
153DE  67EA                      BEQ.B     L3273
153E0  082A 0002 000C            BTst.B    #$2, $C(A2)
153E6  6728                      BEQ.B     L3275
153E8  554F                      SubQ      #$2, A7
153EA  2F2E FFE4                 Move.L    $-1C(A6), -(A7)
153EE  2F0C                      Move.L    A4, -(A7)
153F0  486E FFE8                 Pea.L     $-18(A6)
153F4  A96C                      _FindControl
153F6  301F                      Move      (A7)+, D0
153F8  67C0                      BEQ.B     L3271
153FA  554F                      SubQ      #$2, A7
153FC  2F2E FFE8                 Move.L    $-18(A6), -(A7)
15400  2F2E FFE4                 Move.L    $-1C(A6), -(A7)
15404  2F38 0A06                 Move.L    (MinusOne), -(A7)
15408  A968                      _TrackControl
1540A  4A5F                      Tst       (A7)+
1540C  67AC                      BEQ.B     L3271
1540E  602A           L3274:     Bra.B     L3277
15410  082A 0004 000C L3275:     BTst.B    #$4, $C(A2)
15416  6722                      BEQ.B     L3277
15418  B66C 00A4                 Cmp       $A4(A4), D3
1541C  6704                      BEQ.B     L3276
1541E  7400                      MoveQ.L   #$0, D2
15420  6126                      Bsr.B     P609
15422  4A6C 00A4      L3276:     Tst       $A4(A4)
15426  6B12                      BMI.B     L3277
15428  2F2E FFE4                 Move.L    $-1C(A6), -(A7)
1542C  082E 0001 FFC2            BTst.B    #$1, $-3E(A6)
15432  56E7                      SNE.B     -(A7)
15434  2F2C 00A0                 Move.L    $A0(A4), -(A7)
15438  A9D4                      _TEClick
1543A  082A 0007 000C L3277:     BTst.B    #$7, $C(A2)
15440  6600 FF78                 BNE       L3271
15444  5243                      AddQ      #$1, D3
15446  4E75                      Rts

                      P609:
15448  4A6C 00A4                 Tst       $A4(A4)
1544C  6B1E                      BMI.B     L3278
1544E  206C 00A0                 Move.L    $A0(A4), A0
15452  2050                      Move.L    (A0), A0
15454  2F28 0008                 Move.L    $8(A0), -(A7)
15458  2F10                      Move.L    (A0), -(A7)
1545A  486F 0004                 Pea.L     $4(A7)
1545E  A87F                      _SubPt
15460  2F2C 00A0                 Move.L    $A0(A4), -(A7)
15464  A9DD                      _TEScroll
15466  2F2C 00A0                 Move.L    $A0(A4), -(A7)
1546A  A9D9                      _TEDeactivate
1546C  6114           L3278:     Bsr.B     P611
1546E  4A6C 00A4                 Tst       $A4(A4)
15472  6B06                      BMI.B     L3279
15474  2F2C 00A0                 Move.L    $A0(A4), -(A7)
15478  A9D8                      _TEActivate
1547A  4E75           L3279:     Rts

                      P610:
1547C  B66C 00A4                 Cmp       $A4(A4), D3
15480  6756                      BEQ.B     L3282

                      P611:
15482  2012                      Move.L    (A2), D0
15484  6F52                      BLE.B     L3282
15486  3943 00A4                 Move      D3, $A4(A4)
1548A  6B4C                      BMI.B     L3282
1548C  206C 00A0                 Move.L    $A0(A4), A0
15490  2250                      Move.L    (A0), A1
15492  2340 003E                 Move.L    D0, $3E(A1)
15496  70FE                      MoveQ.L   #$-2, D0
15498  B480                      Cmp.L     D0, D2
1549A  6704                      BEQ.B     L3280
1549C  2342 0020                 Move.L    D2, $20(A1)
154A0  41D1           L3280:     Lea.L     (A1), A0
154A2  20EE FFD8                 Move.L    $-28(A6), (A0)+
154A6  20EE FFDC                 Move.L    $-24(A6), (A0)+
154AA  20EE FFD8                 Move.L    $-28(A6), (A0)+
154AE  20EE FFDC                 Move.L    $-24(A6), (A0)+
154B2  50E9 0032                 ST.B      $32(A1)
154B6  41D1                      Lea.L     (A1), A0
154B8  7002                      MoveQ.L   #$2, D0
154BA  D058                      Add       (A0)+, D0
154BC  D069 0018                 Add       $18(A1), D0
154C0  3218                      Move      (A0)+, D1
154C2  B058                      Cmp       (A0)+, D0
154C4  6D04                      BLT.B     L3281
154C6  9250                      Sub       (A0), D1
154C8  9350                      Sub       D1, (A0)
154CA  50E7           L3281:     ST.B      -(A7)
154CC  2F2C 00A0                 Move.L    $A0(A4), -(A7)
154D0  A813                      _TEAutoView
154D2  2F2C 00A0                 Move.L    $A0(A4), -(A7)
154D6  A9D0                      _TECalText
154D8  4E75           L3282:     Rts

                      P612:
154DA  7000                      MoveQ.L   #$0, D0
154DC  6006                      Bra.B     L3283

                      P613:
154DE  203C FFFC FFFC            Move.L    #$FFFCFFFC, D0
154E4  2F2A 0008      L3283:     Move.L    $8(A2), -(A7)
154E8  2F2A 0004                 Move.L    $4(A2), -(A7)
154EC  2F0F                      Move.L    A7, -(A7)
154EE  2F00                      Move.L    D0, -(A7)
154F0  A8A9                      _InsetRect
154F2  4267                      Clr       -(A7)
154F4  486F 0002                 Pea.L     $2(A7)
154F8  486C 0010                 Pea.L     $10(A4)
154FC  486F 000A                 Pea.L     $A(A7)
15500  A8AA                      _SectRect
15502  101F                      Move.B    (A7)+, D0
15504  504F                      AddQ      #$8, A7
15506  4E75                      Rts

                      P614:
15508  2F08                      Move.L    A0, -(A7)
1550A  3F02                      Move      D2, -(A7)
1550C  3F02                      Move      D2, -(A7)
1550E  2F08                      Move.L    A0, -(A7)
15510  3F01                      Move      D1, -(A7)
15512  3F01                      Move      D1, -(A7)
15514  2F08                      Move.L    A0, -(A7)
15516  4442                      Neg       D2
15518  3F02                      Move      D2, -(A7)
1551A  3F02                      Move      D2, -(A7)
1551C  3F00                      Move      D0, -(A7)
1551E  3F00                      Move      D0, -(A7)
15520  A89B                      _PenSize
15522  A8A9                      _InsetRect
15524  A8B0                      _FrameRoundRect
15526  A8A9                      _InsetRect
15528  4E75                      Rts

                      P615:
1552A  48E7 E060                 MoveM.L   D0-D2/A1-A2, -(A7)
1552E  2F08                      Move.L    A0, -(A7)
15530  A906                      _NewString
15532  205F                      Move.L    (A7)+, A0
15534  4CDF 0606                 MoveM.L   (A7)+, D1-D2/A1-A2
15538  4E75                      Rts

                      P616:
1553A  5243                      AddQ      #$1, D3
1553C  6706                      BEQ.B     P617
1553E  2F02                      Move.L    D2, -(A7)
15540  7001                      MoveQ.L   #$1, D0
15542  6008                      Bra.B     L3284

                      P617:
15544  2F02                      Move.L    D2, -(A7)
15546  7E00                      MoveQ.L   #$0, D7
15548  3003                      Move      D3, D0
1554A  6D0E                      BLT.B     L3285
1554C  7400           L3284:     MoveQ.L   #$0, D2
1554E  220B                      Move.L    A3, D1
15550  6708                      BEQ.B     L3285
15552  2453                      Move.L    (A3), A2
15554  321A                      Move      (A2)+, D1
15556  B243                      Cmp       D3, D1
15558  6C12                      BGE.B     L3287
1555A  95CA           L3285:     SubA.L    A2, A2
1555C  6016                      Bra.B     L3288
1555E  1432 700D      L3286:     Move.B    $D(A2,D7.W), D2
15562  DE42                      Add       D2, D7
15564  0647 000F                 Add       #$F, D7
15568  0247 FFFE                 And       #$-2, D7
1556C  51C8 FFF0      L3287:     DBF       D0, L3286
15570  D4C7                      AddA      D7, A2
15572  6106                      Bsr.B     P618
15574  241F           L3288:     Move.L    (A7)+, D2
15576  200A                      Move.L    A2, D0
15578  4E75                      Rts

                      P618:
1557A  41EA 0004                 Lea.L     $4(A2), A0
1557E  43EE FFD8                 Lea.L     $-28(A6), A1
15582  22D8                      Move.L    (A0)+, (A1)+
15584  22D8                      Move.L    (A0)+, (A1)+
15586  4E75                      Rts

                      P_tMunger:
15588  4E56 FFF8                 Link      A6, #$-8
1558C  48E7 3F38                 MoveM.L   D2-D7/A2-A4, -(A7)
15590  246E 001C                 Move.L    $1C(A6), A2
15594  204A                      Move.L    A2, A0
15596  A025                      _GetHandleSize
15598  2A00                      Move.L    D0, D5
1559A  2D40 FFF8                 Move.L    D0, $-8(A6)
1559E  42AE FFFC                 Clr.L     $-4(A6)
155A2  613A                      Bsr.B     P619
155A4  2D42 0020                 Move.L    D2, $20(A6)
155A8  7218                      MoveQ.L   #$18, D1
155AA  4CDF 1CFC      L3289:     MoveM.L   (A7)+, D2-D7/A2-A4
155AE  4E5E                      Unlk      A6
155B0  205F                      Move.L    (A7)+, A0
155B2  DEC1                      AddA      D1, A7
155B4  4ED0                      Jmp       (A0)

                      P_tXMunger:
155B6  4E56 FFF8                 Link      A6, #$-8
155BA  48E7 3F38                 MoveM.L   D2-D7/A2-A4, -(A7)
155BE  246E 001C                 Move.L    $1C(A6), A2
155C2  204A                      Move.L    A2, A0
155C4  A025                      _GetHandleSize
155C6  2D40 FFF8                 Move.L    D0, $-8(A6)
155CA  2A2E 0024                 Move.L    $24(A6), D5
155CE  2D6E 0020 FFFC            Move.L    $20(A6), $-4(A6)
155D4  6108                      Bsr.B     P619
155D6  2D42 0028                 Move.L    D2, $28(A6)
155DA  7220                      MoveQ.L   #$20, D1
155DC  60CC                      Bra.B     L3289

                      P619:
155DE  242E 0018                 Move.L    $18(A6), D2
155E2  266E 0014                 Move.L    $14(A6), A3
155E6  286E 000C                 Move.L    $C(A6), A4
155EA  262E 0010                 Move.L    $10(A6), D3
155EE  6700 009C                 BEQ       L3303
155F2  6A04                      BPL.B     L3291
155F4  2605           L3290:     Move.L    D5, D3
155F6  9682                      Sub.L     D2, D3
155F8  2005           L3291:     Move.L    D5, D0
155FA  9083                      Sub.L     D3, D0
155FC  6D30                      BLT.B     L3295
155FE  9082                      Sub.L     D2, D0
15600  6DF2                      BLT.B     L3290
15602  200B                      Move.L    A3, D0
15604  6766                      BEQ.B     L3301
15606  2C12                      Move.L    (A2), D6
15608  2E05                      Move.L    D5, D7
1560A  9E83                      Sub.L     D3, D7
1560C  DE86                      Add.L     D6, D7
1560E  DC82                      Add.L     D2, D6
15610  2203           L3292:     Move.L    D3, D1
15612  5381                      SubQ      #$1, D1
15614  2046                      Move.L    D6, A0
15616  224B                      Move.L    A3, A1
15618  BE86           L3293:     Cmp.L     D6, D7
1561A  6512                      BCS.B     L3295
1561C  B308                      CmpM.B    (A0)+, (A1)+
1561E  660A                      BNE.B     L3294
15620  51C9 FFF6                 DBF       D1, L3293
15624  2406                      Move.L    D6, D2
15626  9492                      Sub.L     (A2), D2
15628  603E                      Bra.B     L3300
1562A  5286           L3294:     AddQ      #$1, D6
1562C  60E2                      Bra.B     L3292
1562E  74FF           L3295:     MoveQ.L   #$-1, D2
15630  6058                      Bra.B     L3302

                      P620:
15632  B3C8                      CmpA.L    A0, A1
15634  670E                      BEQ.B     L3297
15636  5380                      SubQ      #$1, D0
15638  6F06                      BLE.B     L3296
1563A  5280                      AddQ      #$1, D0
1563C  A02E                      _BlockMove
1563E  4E75                      Rts
15640  6D02           L3296:     BLT.B     L3297
15642  1290                      Move.B    (A0), (A1)
15644  7000           L3297:     MoveQ.L   #$0, D0
15646  4E75                      Rts

                      P621:
15648  2F00                      Move.L    D0, -(A7)
1564A  90AE FFF8                 Sub.L     $-8(A6), D0
1564E  670A                      BEQ.B     L3298
15650  6E0C                      BGT.B     L3299
15652  4480                      Neg.L     D0
15654  B0AE FFFC                 Cmp.L     $-4(A6), D0
15658  6E04                      BGT.B     L3299
1565A  584F           L3298:     AddQ      #$4, A7
1565C  60E6                      Bra.B     L3297
1565E  201F           L3299:     Move.L    (A7)+, D0
15660  D0AE FFFC                 Add.L     $-4(A6), D0
15664  A024                      _SetHandleSize
15666  4E75                      Rts
15668  200C           L3300:     Move.L    A4, D0
1566A  671E                      BEQ.B     L3302
1566C  282E 0008      L3301:     Move.L    $8(A6), D4
15670  6648                      BNE.B     L3306
15672  2005                      Move.L    D5, D0
15674  9083                      Sub.L     D3, D0
15676  2A00                      Move.L    D0, D5
15678  9082                      Sub.L     D2, D0
1567A  2252                      Move.L    (A2), A1
1567C  D3C2                      AddA.L    D2, A1
1567E  2049                      Move.L    A1, A0
15680  D1C3                      AddA.L    D3, A0
15682  61AE                      Bsr.B     P620
15684  204A                      Move.L    A2, A0
15686  2005                      Move.L    D5, D0
15688  61BE                      Bsr.B     P621
1568A  602C           L3302:     Bra.B     L3305
1568C  282E 0008      L3303:     Move.L    $8(A6), D4
15690  6726                      BEQ.B     L3305
15692  2005                      Move.L    D5, D0
15694  D084                      Add.L     D4, D0
15696  204A                      Move.L    A2, A0
15698  61AE                      Bsr.B     P621
1569A  661C                      BNE.B     L3305
1569C  2252                      Move.L    (A2), A1
1569E  D3C2                      AddA.L    D2, A1
156A0  2049                      Move.L    A1, A0
156A2  D3C4                      AddA.L    D4, A1
156A4  2005                      Move.L    D5, D0
156A6  9082                      Sub.L     D2, D0
156A8  6188                      Bsr.B     P620
156AA  2252           L3304:     Move.L    (A2), A1
156AC  D3C2                      AddA.L    D2, A1
156AE  204C                      Move.L    A4, A0
156B0  2004                      Move.L    D4, D0
156B2  6100 FF7E                 Bsr       P620
156B6  D484                      Add.L     D4, D2
156B8  4E75           L3305:     Rts
156BA  2204           L3306:     Move.L    D4, D1
156BC  9283                      Sub.L     D3, D1
156BE  67EA                      BEQ.B     L3304
156C0  6E02                      BGT.B     L3307
156C2  6114                      Bsr.B     P622
156C4  204A           L3307:     Move.L    A2, A0
156C6  2005                      Move.L    D5, D0
156C8  D081                      Add.L     D1, D0
156CA  6100 FF7C                 Bsr       P621
156CE  66E8                      BNE.B     L3305
156D0  4A81                      Tst.L     D1
156D2  6BD6                      BMI.B     L3304
156D4  6102                      Bsr.B     P622
156D6  60D2                      Bra.B     L3304

                      P622:
156D8  2252                      Move.L    (A2), A1
156DA  D3C2                      AddA.L    D2, A1
156DC  2049                      Move.L    A1, A0
156DE  D1C3                      AddA.L    D3, A0
156E0  D3C4                      AddA.L    D4, A1
156E2  2005                      Move.L    D5, D0
156E4  9083                      Sub.L     D3, D0
156E6  9082                      Sub.L     D2, D0
156E8  6000 FF48                 Bra       P620

                      P_tHandToHand:
156EC  1F10                      Move.B    (A0), -(A7)
156EE  2F08                      Move.L    A0, -(A7)
156F0  0890 0006                 BClr.B    #$6, (A0)
156F4  2248                      Move.L    A0, A1
156F6  A025                      _GetHandleSize
156F8  4A80                      Tst.L     D0
156FA  6B08                      BMI.B     L3308
156FC  2200                      Move.L    D0, D1
156FE  A122                      _NewHandle
15700  2251                      Move.L    (A1), A1
15702  6114                      Bsr.B     P623
15704  225F           L3308:     Move.L    (A7)+, A1
15706  129F                      Move.B    (A7)+, (A1)
15708  4E75                      Rts

                      P_tPtrToXHand:
1570A  C149                      Exg.L     A0, A1
1570C  2200                      Move.L    D0, D1
1570E  A024                      _SetHandleSize
15710  6006                      Bra.B     P623

                      P_tPtrToHand:
15712  2248                      Move.L    A0, A1
15714  2200                      Move.L    D0, D1
15716  A122                      _NewHandle

                      P623:
15718  6610                      BNE.B     L3309
1571A  7400                      MoveQ.L   #$0, D2

                      P624:
1571C  2F08                      Move.L    A0, -(A7)
1571E  2050                      Move.L    (A0), A0
15720  D1C2                      AddA.L    D2, A0
15722  C149                      Exg.L     A0, A1
15724  2001                      Move.L    D1, D0
15726  A02E                      _BlockMove
15728  205F                      Move.L    (A7)+, A0
1572A  4E75           L3309:     Rts

                      P_tHandAndHand:
1572C  1F10                      Move.B    (A0), -(A7)
1572E  2F08                      Move.L    A0, -(A7)
15730  0890 0006                 BClr.B    #$6, (A0)
15734  A025                      _GetHandleSize
15736  4A80                      Tst.L     D0
15738  6BCA                      BMI.B     L3308
1573A  2200                      Move.L    D0, D1
1573C  C348                      Exg.L     A1, A0
1573E  A025                      _GetHandleSize
15740  2400                      Move.L    D0, D2
15742  6BC0                      BMI.B     L3308
15744  D081                      Add.L     D1, D0
15746  A024                      _SetHandleSize
15748  66BA                      BNE.B     L3308
1574A  2251                      Move.L    (A1), A1
1574C  61CE                      Bsr.B     P624
1574E  60B4                      Bra.B     L3308

                      P_tPtrAndHand:
15750  2200                      Move.L    D0, D1
15752  C348                      Exg.L     A1, A0
15754  A025                      _GetHandleSize
15756  2400                      Move.L    D0, D2
15758  D081                      Add.L     D1, D0
1575A  A024                      _SetHandleSize
1575C  66CC                      BNE.B     L3309
1575E  60BC                      Bra.B     P624

                      P_tMethodDispatch:
15760  205F                      Move.L    (A7)+, A0
15762  226F 0004                 Move.L    $4(A7), A1
15766  2251                      Move.L    (A1), A1
15768  3011                      Move      (A1), D0
1576A  3218                      Move      (A0)+, D1
1576C  B050                      Cmp       (A0), D0
1576E  6612                      BNE.B     L3312
15770  3028 0002      L3310:     Move      $2(A0), D0
15774  0880 0000                 BClr.B    #$0, D0
15778  6704                      BEQ.B     L3311
1577A  4EF0 0002                 Jmp       $2(A0,D0.W)
1577E  4EF5 0000      L3311:     Jmp       $0(A5,D0.W)
15782  3080           L3312:     Move      D0, (A0)
15784  2278 0BEC                 Move.L    (MASuperTab), A1
15788  2251                      Move.L    (A1), A1
1578A  2408                      Move.L    A0, D2
1578C  5888           L3313:     AddQ      #$4, A0
1578E  B050           L3314:     Cmp       (A0), D0
15790  54C9 FFFA                 DBCC      D1, L3313
15794  6700 0012                 BEQ       L3315
15798  3031 0000                 Move      $0(A1,D0.W), D0
1579C  66F0                      BNE.B     L3314
1579E  2242                      Move.L    D2, A1
157A0  4291                      Clr.L     (A1)
157A2  2278 0BE8                 Move.L    (MAErrProc), A1
157A6  4ED1                      Jmp       (A1)
157A8  2242           L3315:     Move.L    D2, A1
157AA  3368 0002 0002            Move      $2(A0), $2(A1)
157B0  60BE                      Bra.B     L3310

                      P_tLongMul:
157B2  6100 00CC                 Bsr       P625
157B6  7A01                      MoveQ.L   #$1, D5
157B8  4CEE 0006 000C            MoveM.L   $C(A6), D1-D2
157BE  6100 00D2                 Bsr       P627
157C2  602C                      Bra.B     L3319
157C4  4A06           L3316:     Tst.B     D6
157C6  6A04                      BPL.B     L3317
157C8  4484                      Neg.L     D4
157CA  4080                      NegX.L    D0
157CC  206E 0008      L3317:     Move.L    $8(A6), A0
157D0  20C0                      Move.L    D0, (A0)+
157D2  2084                      Move.L    D4, (A0)
157D4  3D7C 000C 0008            Move      #$C, $8(A6)
157DA  6000 0098                 Bra       L3329

                      P_tFracMul:
157DE  6100 00A0                 Bsr       P625
157E2  7AFF                      MoveQ.L   #$-1, D5
157E4  6006                      Bra.B     L3318

                      P_tFixMul:
157E6  6100 0098                 Bsr       P625
157EA  7A00                      MoveQ.L   #$0, D5
157EC  6100 009E      L3318:     Bsr       P626
157F0  7801           L3319:     MoveQ.L   #$1, D4
157F2  4844                      Swap      D4
157F4  B284                      Cmp.L     D4, D1
157F6  6604                      BNE.B     L3320
157F8  2202                      Move.L    D2, D1
157FA  6004                      Bra.B     L3321
157FC  B484           L3320:     Cmp.L     D4, D2
157FE  660E                      BNE.B     L3322
15800  7000           L3321:     MoveQ.L   #$0, D0
15802  7800                      MoveQ.L   #$0, D4
15804  3801                      Move      D1, D4
15806  4844                      Swap      D4
15808  4841                      Swap      D1
1580A  3001                      Move      D1, D0
1580C  6024                      Bra.B     L3323
1580E  3802           L3322:     Move      D2, D4
15810  C8C1                      MulU      D1, D4
15812  4842                      Swap      D2
15814  3602                      Move      D2, D3
15816  C6C1                      MulU      D1, D3
15818  4841                      Swap      D1
1581A  3002                      Move      D2, D0
1581C  C0C1                      MulU      D1, D0
1581E  4842                      Swap      D2
15820  C4C1                      MulU      D1, D2
15822  D483                      Add.L     D3, D2
15824  7600                      MoveQ.L   #$0, D3
15826  3602                      Move      D2, D3
15828  4843                      Swap      D3
1582A  3403                      Move      D3, D2
1582C  4842                      Swap      D2
1582E  D883                      Add.L     D3, D4
15830  D182                      AddX.L    D2, D0
15832  4A85           L3323:     Tst.L     D5
15834  670C                      BEQ.B     L3324
15836  6A8C                      BPL.B     L3316
15838  D884                      Add.L     D4, D4
1583A  D180                      AddX.L    D0, D0
1583C  D884                      Add.L     D4, D4
1583E  D180                      AddX.L    D0, D0
15840  600A                      Bra.B     L3325
15842  4840           L3324:     Swap      D0
15844  4A40                      Tst       D0
15846  665C                      BNE.B     L3332
15848  4844                      Swap      D4
1584A  3004                      Move      D4, D0
1584C  4A84           L3325:     Tst.L     D4
1584E  6A04                      BPL.B     L3326
15850  5280                      AddQ      #$1, D0
15852  6550                      BCS.B     L3332
15854  4A80           L3326:     Tst.L     D0
15856  6B4C                      BMI.B     L3332
15858  4A06                      Tst.B     D6
1585A  6702                      BEQ.B     L3327
1585C  4480                      Neg.L     D0
1585E  3D7C 0008 0008 L3327:     Move      #$8, $8(A6)
15864  2D40 0010                 Move.L    D0, $10(A6)
15868  600A                      Bra.B     L3329
1586A  3D7C 0004 0008 L3328:     Move      #$4, $8(A6)
15870  2D40 000C                 Move.L    D0, $C(A6)
15874  4CDF 027F      L3329:     MoveM.L   (A7)+, D0-D6/A1
15878  4E5E                      Unlk      A6
1587A  205F                      Move.L    (A7)+, A0
1587C  DED7                      AddA      (A7), A7
1587E  4ED0                      Jmp       (A0)

                      P625:
15880  205F                      Move.L    (A7)+, A0
15882  4E56 0000                 Link      A6, #$0
15886  48E7 FE40                 MoveM.L   D0-D6/A1, -(A7)
1588A  4ED0                      Jmp       (A0)

                      P626:
1588C  4CEE 0006 0008            MoveM.L   $8(A6), D1-D2

                      P627:
15892  4A81                      Tst.L     D1
15894  5BC6                      SMI.B     D6
15896  6A02                      BPL.B     L3330
15898  4481                      Neg.L     D1
1589A  4A82           L3330:     Tst.L     D2
1589C  6A04                      BPL.B     L3331
1589E  4482                      Neg.L     D2
158A0  4606                      Not.B     D6
158A2  4E75           L3331:     Rts
158A4  7001           L3332:     MoveQ.L   #$1, D0
158A6  E298                      ROR.L     #$1, D0
158A8  4A06                      Tst.B     D6
158AA  66B2                      BNE.B     L3327
158AC  5380                      SubQ      #$1, D0
158AE  60AE                      Bra.B     L3327

                      P_tFracDiv:
158B0  61CE                      Bsr.B     P625
158B2  761F                      MoveQ.L   #$1F, D3
158B4  6004                      Bra.B     L3333

                      P_tFixDiv:
158B6  61C8                      Bsr.B     P625
158B8  7611                      MoveQ.L   #$11, D3
158BA  61D0           L3333:     Bsr.B     P626
158BC  7000                      MoveQ.L   #$0, D0
158BE  4A81                      Tst.L     D1
158C0  6606                      BNE.B     L3335
158C2  60E0                      Bra.B     L3332
158C4  5243           L3334:     AddQ      #$1, D3
158C6  D281                      Add.L     D1, D1
158C8  6AFA           L3335:     BPL.B     L3334
158CA  4A82                      Tst.L     D2
158CC  6790                      BEQ.B     L3327
158CE  6004                      Bra.B     L3337
158D0  5343           L3336:     SubQ      #$1, D3
158D2  D482                      Add.L     D2, D2
158D4  6AFA           L3337:     BPL.B     L3336
158D6  4A43                      Tst       D3
158D8  6F84                      BLE.B     L3327
158DA  0C43 001F                 Cmp       #$1F, D3
158DE  6F08                      BLE.B     L3339
158E0  60C2                      Bra.B     L3332
158E2  D080           L3338:     Add.L     D0, D0
158E4  D482                      Add.L     D2, D2
158E6  6504                      BCS.B     L3340
158E8  B481           L3339:     Cmp.L     D1, D2
158EA  6504                      BCS.B     L3341
158EC  9481           L3340:     Sub.L     D1, D2
158EE  5240                      AddQ      #$1, D0
158F0  51CB FFF0      L3341:     DBF       D3, L3338
158F4  E288                      LsR.L     #$1, D0
158F6  6400 FF5C                 BCC       L3326
158FA  5280                      AddQ      #$1, D0
158FC  6000 FF56                 Bra       L3326

                      P_tFracSqrt:
15900  6100 FF7E                 Bsr       P625
15904  262E 0008                 Move.L    $8(A6), D3
15908  7000                      MoveQ.L   #$0, D0
1590A  7201                      MoveQ.L   #$1, D1
1590C  E499                      ROR.L     #$2, D1
1590E  7400                      MoveQ.L   #$0, D2
15910  781F                      MoveQ.L   #$1F, D4
15912  9681           L3342:     Sub.L     D1, D3
15914  9580                      SubX.L    D0, D2
15916  6404                      BCC.B     L3343
15918  D681                      Add.L     D1, D3
1591A  D580                      AddX.L    D0, D2
1591C  0A3C 0010      L3343:     Eor.B     #$10, CCR
15920  D180                      AddX.L    D0, D0
15922  D683                      Add.L     D3, D3
15924  D582                      AddX.L    D2, D2
15926  D683                      Add.L     D3, D3
15928  D582                      AddX.L    D2, D2
1592A  51CC FFE6                 DBF       D4, L3342
1592E  E288                      LsR.L     #$1, D0
15930  6400 FF38                 BCC       L3328
15934  5280                      AddQ      #$1, D0
15936  6000 FF32                 Bra       L3328

                      P_tFixRatio:
1593A  6100 FF44                 Bsr       P625
1593E  4CAE 0006 0008            MoveM     $8(A6), D1-D2
15944  B441                      Cmp       D1, D2
15946  6724                      BEQ.B     L3347
15948  6100 FF48                 Bsr       P627
1594C  4A81                      Tst.L     D1
1594E  6606                      BNE.B     L3344
15950  70FF                      MoveQ.L   #$-1, D0
15952  E288                      LsR.L     #$1, D0
15954  600C                      Bra.B     L3345
15956  85C1           L3344:     DivS      D1, D2
15958  3002                      Move      D2, D0
1595A  4840                      Swap      D0
1595C  4242                      Clr       D2
1595E  84C1                      DivU      D1, D2
15960  3002                      Move      D2, D0
15962  4A06           L3345:     Tst.B     D6
15964  6702                      BEQ.B     L3346
15966  4480                      Neg.L     D0
15968  6000 FF00      L3346:     Bra       L3328
1596C  7001           L3347:     MoveQ.L   #$1, D0
1596E  4840                      Swap      D0
15970  6000 FEF8                 Bra       L3328

                      P_tLoWord:
15974  3F6F 0006 0008            Move      $6(A7), $8(A7)
1597A  6006                      Bra.B     L3348

                      P_tHiWord:
1597C  3F6F 0004 0008            Move      $4(A7), $8(A7)
15982  2E9F           L3348:     Move.L    (A7)+, (A7)
15984  4E75                      Rts

                      P_tFixRound:
15986  7201                      MoveQ.L   #$1, D1
15988  E259                      ROR       #$1, D1
1598A  202F 0004                 Move.L    $4(A7), D0
1598E  6A02                      BPL.B     L3349
15990  4481                      Neg.L     D1
15992  D081           L3349:     Add.L     D1, D0
15994  6808                      BVC.B     L3351
15996  6A02                      BPL.B     L3350
15998  5341                      SubQ      #$1, D1
1599A  4841           L3350:     Swap      D1
1599C  2001                      Move.L    D1, D0
1599E  4840           L3351:     Swap      D0
159A0  3F40 0008                 Move      D0, $8(A7)
159A4  60DC                      Bra.B     L3348

                      P_tFracCos:
159A6  6100 FED8                 Bsr       P625
159AA  7C02                      MoveQ.L   #$2, D6
159AC  6006                      Bra.B     L3352

                      P_tFracSin:
159AE  6100 FED0                 Bsr       P625
159B2  7C00                      MoveQ.L   #$0, D6
159B4  262E 0008      L3352:     Move.L    $8(A6), D3
159B8  6A08                      BPL.B     L3354
159BA  4A86                      Tst.L     D6
159BC  6602                      BNE.B     L3353
159BE  5846                      AddQ      #$4, D6
159C0  4483           L3353:     Neg.L     D3
159C2  2A3C 0000 C910 L3354:     Move.L    #$C910, D5
159C8  86C5                      DivU      D5, D3
159CA  DC83                      Add.L     D3, D6
159CC  4243                      Clr       D3
159CE  4843                      Swap      D3
159D0  0806 0000                 BTst.B    #$0, D6
159D4  6704                      BEQ.B     L3355
159D6  9645                      Sub       D5, D3
159D8  4443                      Neg       D3
159DA  4843           L3355:     Swap      D3
159DC  E68B                      LsR.L     #$3, D3
159DE  2F0A                      Move.L    A2, -(A7)
159E0  9FFC 0000 0010            SubA.L    #$10, A7
159E6  2F03                      Move.L    D3, -(A7)
159E8  2F03                      Move.L    D3, -(A7)
159EA  6100 FDF2                 Bsr       P_tFracMul
159EE  2A1F                      Move.L    (A7)+, D5
159F0  1F3C 0066                 Move.B    #$66, -(A7)
159F4  0D1F                      BTst.L    D6, (A7)+
159F6  6608                      BNE.B     L3356
159F8  45FA 0040                 Lea.L     DT70, A2
159FC  7804                      MoveQ.L   #$4, D4
159FE  6006                      Bra.B     L3357
15A00  45FA 0044      L3356:     Lea.L     DT71, A2
15A04  7808                      MoveQ.L   #$8, D4
15A06  2F32 4004      L3357:     Move.L    $4(A2,D4.W), -(A7)
15A0A  2F05           L3358:     Move.L    D5, -(A7)
15A0C  6100 FDD0                 Bsr       P_tFracMul
15A10  2032 4000                 Move.L    $0(A2,D4.W), D0
15A14  D197                      Add.L     D0, (A7)
15A16  5944                      SubQ      #$4, D4
15A18  6AF0                      BPL.B     L3358
15A1A  1F3C 0066                 Move.B    #$66, -(A7)
15A1E  0D1F                      BTst.L    D6, (A7)+
15A20  6606                      BNE.B     L3359
15A22  2F03                      Move.L    D3, -(A7)
15A24  4EBA FDB8                 Jsr       P_tFracMul
15A28  201F           L3359:     Move.L    (A7)+, D0
15A2A  245F                      Move.L    (A7)+, A2
15A2C  1F3C 00F0                 Move.B    #$-10, -(A7)
15A30  0D1F                      BTst.L    D6, (A7)+
15A32  6702                      BEQ.B     L3360
15A34  4480                      Neg.L     D0
15A36  6000 FE32      L3360:     Bra       L3328

                      DT70:
15A3A  7FFF D609 AAB3            DC.B      '      '
15A40  314D 10A2 08E5            DC.B      '1M    '

                      DT71:
15A46  4000 0000 8000            DC.B      '@     '
15A4C  11A7 2AA7 F29A            DC.B      '  *   '
15A52  FA6E 2A42                 DC.B      ' n*B'

                      P_tFixATan2:
15A56  6100 FE28                 Bsr       P625
15A5A  7C00                      MoveQ.L   #$0, D6
15A5C  262E 000C                 Move.L    $C(A6), D3
15A60  6A08                      BPL.B     L3361
15A62  5446                      AddQ      #$2, D6
15A64  4483                      Neg.L     D3
15A66  6A02                      BPL.B     L3361
15A68  5343                      SubQ      #$1, D3
15A6A  202E 0008      L3361:     Move.L    $8(A6), D0
15A6E  6A08                      BPL.B     L3362
15A70  5246                      AddQ      #$1, D6
15A72  4480                      Neg.L     D0
15A74  6A02                      BPL.B     L3362
15A76  5340                      SubQ      #$1, D0
15A78  2F0A           L3362:     Move.L    A2, -(A7)
15A7A  9FFC 0000 0020            SubA.L    #$20, A7
15A80  B083                      Cmp.L     D3, D0
15A82  6F14                      BLE.B     L3365
15A84  5846                      AddQ      #$4, D6
15A86  2F03                      Move.L    D3, -(A7)
15A88  6704                      BEQ.B     L3363
15A8A  2F00                      Move.L    D0, -(A7)
15A8C  6010                      Bra.B     L3366
15A8E  2003           L3363:     Move.L    D3, D0
15A90  DFFC 0000 0024 L3364:     AddA.L    #$24, A7
15A96  603E                      Bra.B     L3368
15A98  2F00           L3365:     Move.L    D0, -(A7)
15A9A  67F4                      BEQ.B     L3364
15A9C  2F03                      Move.L    D3, -(A7)
15A9E  6100 FE10      L3366:     Bsr       P_tFracDiv
15AA2  2617                      Move.L    (A7), D3
15AA4  2F17                      Move.L    (A7), -(A7)
15AA6  6100 FD36                 Bsr       P_tFracMul
15AAA  2A1F                      Move.L    (A7)+, D5
15AAC  45FA 0052                 Lea.L     DT72, A2
15AB0  2F2A 0014                 Move.L    $14(A2), -(A7)
15AB4  7810                      MoveQ.L   #$10, D4
15AB6  2F05           L3367:     Move.L    D5, -(A7)
15AB8  6100 FD24                 Bsr       P_tFracMul
15ABC  2032 4000                 Move.L    $0(A2,D4.W), D0
15AC0  D197                      Add.L     D0, (A7)
15AC2  5944                      SubQ      #$4, D4
15AC4  6AF0                      BPL.B     L3367
15AC6  2F03                      Move.L    D3, -(A7)
15AC8  4EBA FD14                 Jsr       P_tFracMul
15ACC  201F                      Move.L    (A7)+, D0
15ACE  740E                      MoveQ.L   #$E, D2
15AD0  E4A8                      LsR.L     D2, D0
15AD2  6402                      BCC.B     L3368
15AD4  5280                      AddQ      #$1, D0
15AD6  245F           L3368:     Move.L    (A7)+, A2
15AD8  2A3C 0001 9220            Move.L    #$19220, D5
15ADE  0806 0002                 BTst.B    #$2, D6
15AE2  6704                      BEQ.B     L3369
15AE4  9085                      Sub.L     D5, D0
15AE6  4480                      Neg.L     D0
15AE8  0806 0001      L3369:     BTst.B    #$1, D6
15AEC  6706                      BEQ.B     L3370
15AEE  E38D                      LsL.L     #$1, D5
15AF0  9085                      Sub.L     D5, D0
15AF2  4480                      Neg.L     D0
15AF4  0806 0000      L3370:     BTst.B    #$0, D6
15AF8  6702                      BEQ.B     L3371
15AFA  4480                      Neg.L     D0
15AFC  6000 FD60      L3371:     Bra       L3327

                      DT72:
15B00  3FFF A073 EAB6            DC.B      '?  s  '
15B06  4EBE 0C62 F72C            DC.B      'N  b ,'
15B0C  F88C 77F2 035E            DC.B      '  w  ^'
15B12  92FE FF3F FE62            DC.B      '   ? b'

                      P_tFix2X:
15B18  323C 400E                 Move      #$400E, D1
15B1C  6004                      Bra.B     L3372

                      P_tFrac2X:
15B1E  323C 4000                 Move      #$4000, D1
15B22  205F           L3372:     Move.L    (A7)+, A0
15B24  201F                      Move.L    (A7)+, D0
15B26  6604                      BNE.B     L3373
15B28  7200                      MoveQ.L   #$0, D1
15B2A  6010                      Bra.B     L3375
15B2C  6A08           L3373:     BPL.B     L3374
15B2E  0641 8000                 Add       #$-8000, D1
15B32  4480                      Neg.L     D0
15B34  6B06                      BMI.B     L3375
15B36  5341           L3374:     SubQ      #$1, D1
15B38  E388                      LsL.L     #$1, D0
15B3A  6AFA                      BPL.B     L3374
15B3C  2257           L3375:     Move.L    (A7), A1
15B3E  3281                      Move      D1, (A1)
15B40  2340 0002                 Move.L    D0, $2(A1)
15B44  42A9 0006                 Clr.L     $6(A1)
15B48  4ED0                      Jmp       (A0)

                      P_tX2Fix:
15B4A  323C 400E                 Move      #$400E, D1
15B4E  6004                      Bra.B     L3376

                      P_tX2Frac:
15B50  323C 4000                 Move      #$4000, D1
15B54  4CDF 0300      L3376:     MoveM.L   (A7)+, A0-A1
15B58  3011                      Move      (A1), D0
15B5A  0880 000F                 BClr.B    #$F, D0
15B5E  9240                      Sub       D0, D1
15B60  6D3A                      BLT.B     L3385
15B62  2029 0002                 Move.L    $2(A1), D0
15B66  4A41                      Tst       D1
15B68  6606                      BNE.B     L3377
15B6A  4A69 0006                 Tst       $6(A1)
15B6E  600E                      Bra.B     L3378
15B70  0C41 0020      L3377:     Cmp       #$20, D1
15B74  6D0C                      BLT.B     L3379
15B76  661E                      BNE.B     L3383
15B78  7000                      MoveQ.L   #$0, D0
15B7A  4A69 0002                 Tst       $2(A1)
15B7E  6B06           L3378:     BMI.B     L3380
15B80  6008                      Bra.B     L3381
15B82  E2A8           L3379:     LsR.L     D1, D0
15B84  6404                      BCC.B     L3381
15B86  5280           L3380:     AddQ      #$1, D0
15B88  6512                      BCS.B     L3385
15B8A  4A51           L3381:     Tst       (A1)
15B8C  6B0A                      BMI.B     L3384
15B8E  4A80                      Tst.L     D0
15B90  6B0A                      BMI.B     L3385
15B92  2E80           L3382:     Move.L    D0, (A7)
15B94  4ED0                      Jmp       (A0)
15B96  7000           L3383:     MoveQ.L   #$0, D0
15B98  4480           L3384:     Neg.L     D0
15B9A  6FF6                      BLE.B     L3382
15B9C  4A51           L3385:     Tst       (A1)
15B9E  6A04           L3386:     BPL.B     L3387
15BA0  7001                      MoveQ.L   #$1, D0
15BA2  6004                      Bra.B     L3388
15BA4  4280           L3387:     Clr.L     D0
15BA6  5580                      SubQ      #$2, D0
15BA8  E298           L3388:     ROR.L     #$1, D0
15BAA  60E6                      Bra.B     L3382

                      P_tFix2Long:
15BAC  7210                      MoveQ.L   #$10, D1
15BAE  6002                      Bra.B     L3389

                      P_tFrac2Fix:
15BB0  720E                      MoveQ.L   #$E, D1
15BB2  205F           L3389:     Move.L    (A7)+, A0
15BB4  201F                      Move.L    (A7)+, D0
15BB6  6A0C                      BPL.B     L3391
15BB8  4480                      Neg.L     D0
15BBA  E2A8                      LsR.L     D1, D0
15BBC  6402                      BCC.B     L3390
15BBE  5240                      AddQ      #$1, D0
15BC0  4480           L3390:     Neg.L     D0
15BC2  60CE                      Bra.B     L3382
15BC4  E2A8           L3391:     LsR.L     D1, D0
15BC6  64CA                      BCC.B     L3382
15BC8  5240                      AddQ      #$1, D0
15BCA  60C6                      Bra.B     L3382

                      P_tLong2Fix:
15BCC  7210                      MoveQ.L   #$10, D1
15BCE  6002                      Bra.B     L3392

                      P_tFix2Frac:
15BD0  720E                      MoveQ.L   #$E, D1
15BD2  205F           L3392:     Move.L    (A7)+, A0
15BD4  2E9F                      Move.L    (A7)+, (A7)
15BD6  2017                      Move.L    (A7), D0
15BD8  E3A0                      AsL.L     D1, D0
15BDA  68B6                      BVC.B     L3382
15BDC  2217                      Move.L    (A7), D1
15BDE  60BE                      Bra.B     L3386

                      P_tSystemEvent:
15BE0  2F0B                      Move.L    A3, -(A7)
15BE2  266F 0008                 Move.L    $8(A7), A3
15BE6  426F 000C                 Clr       $C(A7)
15BEA  594F                      SubQ      #$4, A7
15BEC  2F0F                      Move.L    A7, -(A7)
15BEE  A874                      _GetPort
15BF0  3013                      Move      (A3), D0
15BF2  0C40 000C                 Cmp       #$C, D0
15BF6  6428                      BCC.B     E_848
15BF8  D040                      Add       D0, D0
15BFA  41FA 0008                 Lea.L     DT73, A0
15BFE  D0F0 0000                 AddA      $0(A0,D0.W), A0
15C02  4ED0                      Jmp       (A0)

                      DT73:
15C04  001C 001C 0024            DC.B      '     $'
15C0A  0024 0024 0024            DC.B      ' $ $ $'
15C10  0078 0084 0078            DC.B      ' x   x'
15C16  001C 0024 0024            DC.B      '   $ $'
15C1C  522F 0010      L3393:     AddQ      #$1, $10(A7)

                      E_848:
15C20  A873                      _SetPort
15C22  265F                      Move.L    (A7)+, A3
15C24  2E9F                      Move.L    (A7)+, (A7)
15C26  4E75                      Rts

                      E_849:
15C28  594F                      SubQ      #$4, A7
15C2A  A924                      _FrontWindow
15C2C  205F                      Move.L    (A7)+, A0
15C2E  6110                      Bsr.B     P628
15C30  66EE                      BNE.B     E_848
15C32  3013                      Move      (A3), D0
15C34  3229 0024                 Move      $24(A1), D1
15C38  0101                      BTst.L    D0, D1
15C3A  67E4                      BEQ.B     E_848
15C3C  611E                      Bsr.B     P629
15C3E  60DC                      Bra.B     L3393

                      P628:
15C40  3028 006C                 Move      $6C(A0), D0
15C44  6A12                      BPL.B     L3394
15C46  4640                      Not       D0
15C48  E540                      AsL       #$2, D0
15C4A  2078 011C                 Move.L    (UTableBase), A0
15C4E  2070 0000                 Move.L    $0(A0,D0.W), A0
15C52  2250                      Move.L    (A0), A1
15C54  7000                      MoveQ.L   #$0, D0
15C56  4E75                      Rts
15C58  70FF           L3394:     MoveQ.L   #$-1, D0
15C5A  4E75                      Rts

                      P629:
15C5C  7040                      MoveQ.L   #$40, D0

                      P630:
15C5E  4E56 FFE0                 Link      A6, #$-20
15C62  41EE FFF8                 Lea.L     $-8(A6), A0
15C66  30E9 0018                 Move      $18(A1), (A0)+
15C6A  30C0                      Move      D0, (A0)+
15C6C  208B                      Move.L    A3, (A0)
15C6E  41EE FFE0                 Lea.L     $-20(A6), A0
15C72  A204                      _ControlImmed
15C74  4E5E                      Unlk      A6
15C76  4E75                      Rts

                      P631:
15C78  7041                      MoveQ.L   #$41, D0
15C7A  60E2                      Bra.B     P630

                      E_850:
15C7C  206B 0002                 Move.L    $2(A3), A0
15C80  61BE                      Bsr.B     P628
15C82  669C                      BNE.B     E_848
15C84  61D6                      Bsr.B     P629
15C86  6094                      Bra.B     L3393

                      E_851:
15C88  9EFC 0018                 SubA      #$18, A7
15C8C  204F                      Move.L    A7, A0
15C8E  316B 0004 0016            Move      $4(A3), $16(A0)
15C94  A00F                      _MountVol
15C96  DEFC 0018                 AddA      #$18, A7
15C9A  3740 0002                 Move      D0, $2(A3)
15C9E  6080                      Bra.B     E_848

                      P_tSystemClick:
15CA0  48E7 9818                 MoveM.L   D0/D3-D4/A3-A4, -(A7)
15CA4  2F0F                      Move.L    A7, -(A7)
15CA6  A874                      _GetPort
15CA8  286F 0018                 Move.L    $18(A7), A4
15CAC  266C 007E                 Move.L    $7E(A4), A3
15CB0  282F 001C                 Move.L    $1C(A7), D4
15CB4  200C                      Move.L    A4, D0
15CB6  6700 005A                 BEQ       L3396
15CBA  204C                      Move.L    A4, A0
15CBC  6182                      Bsr.B     P628
15CBE  6646                      BNE.B     L3395
15CC0  2609                      Move.L    A1, D3
15CC2  7000                      MoveQ.L   #$0, D0
15CC4  102C 007E                 Move.B    $7E(A4), D0
15CC8  42A7                      Clr.L     -(A7)
15CCA  3F00                      Move      D0, -(A7)
15CCC  2F0C                      Move.L    A4, -(A7)
15CCE  3F3C 0001                 Move      #$1, -(A7)
15CD2  2044                      Move.L    D4, A0
15CD4  2F28 000A                 Move.L    $A(A0), -(A7)
15CD8  2F0B                      Move.L    A3, -(A7)
15CDA  A9A2                      _LoadResource
15CDC  2053                      Move.L    (A3), A0
15CDE  08D3 0007                 BSet.B    #$7, (A3)
15CE2  4E90                      Jsr       (A0)
15CE4  0893 0007                 BClr.B    #$7, (A3)
15CE8  201F                      Move.L    (A7)+, D0
15CEA  671A                      BEQ.B     L3395
15CEC  5540                      SubQ      #$2, D0
15CEE  674A                      BEQ.B     L3398
15CF0  5540                      SubQ      #$2, D0
15CF2  6758                      BEQ.B     L3399
15CF4  42A7                      Clr.L     -(A7)
15CF6  A924                      _FrontWindow
15CF8  201F                      Move.L    (A7)+, D0
15CFA  B08C                      Cmp.L     A4, D0
15CFC  6636                      BNE.B     L3397
15CFE  2644                      Move.L    D4, A3
15D00  2243                      Move.L    D3, A1
15D02  6100 FF58                 Bsr       P629
15D06  A873           L3395:     _SetPort
15D08  4CDF 1818                 MoveM.L   (A7)+, D3-D4/A3-A4
15D0C  205F                      Move.L    (A7)+, A0
15D0E  504F                      AddQ      #$8, A7
15D10  4ED0                      Jmp       (A0)
15D12  4AB8 0A6C      L3396:     Tst.L     (DeskHook)
15D16  67EE                      BEQ.B     L3395
15D18  2F38 09DE                 Move.L    (WMgrPort), -(A7)
15D1C  A873                      _SetPort
15D1E  2F38 09EE                 Move.L    (GrayRgn), -(A7)
15D22  A879                      _SetClip
15D24  42A7                      Clr.L     -(A7)
15D26  A90B                      _ClipAbove
15D28  2044                      Move.L    D4, A0
15D2A  2278 0A6C                 Move.L    (DeskHook), A1
15D2E  70FF                      MoveQ.L   #$-1, D0
15D30  4E91                      Jsr       (A1)
15D32  60D2                      Bra.B     L3395
15D34  2F0C           L3397:     Move.L    A4, -(A7)
15D36  A91F                      _SelectWindow
15D38  60CC                      Bra.B     L3395
15D3A  2F0C           L3398:     Move.L    A4, -(A7)
15D3C  2044                      Move.L    D4, A0
15D3E  2F28 000A                 Move.L    $A(A0), -(A7)
15D42  2055                      Move.L    (A5), A0
15D44  4868 FF8C                 Pea.L     $-74(A0)
15D48  A925                      _DragWindow
15D4A  60BA                      Bra.B     L3395
15D4C  4267           L3399:     Clr       -(A7)
15D4E  2F0C                      Move.L    A4, -(A7)
15D50  2044                      Move.L    D4, A0
15D52  2F28 000A                 Move.L    $A(A0), -(A7)
15D56  A91E                      _TrackGoAway
15D58  4A1F                      Tst.B     (A7)+
15D5A  67AA                      BEQ.B     L3395
15D5C  2243                      Move.L    D3, A1
15D5E  2038 0A88                 Move.L    (CloseOrnHook), D0
15D62  6608                      BNE.B     L3400
15D64  3F29 0018                 Move      $18(A1), -(A7)
15D68  A9B7                      _CloseDeskAcc
15D6A  609A                      Bra.B     L3395
15D6C  2040           L3400:     Move.L    D0, A0
15D6E  4E90                      Jsr       (A0)
15D70  6094                      Bra.B     L3395

                      P_tSystemTask:
15D72  48E7 1010                 MoveM.L   D3/A3, -(A7)
15D76  08F8 0007 0A62            BSet.B    #$7, (TaskLock)
15D7C  6600 006A                 BNE       L3405
15D80  594F                      SubQ      #$4, A7
15D82  2F0F                      Move.L    A7, -(A7)
15D84  A874                      _GetPort
15D86  42A7                      Clr.L     -(A7)
15D88  A924                      _FrontWindow
15D8A  201F                      Move.L    (A7)+, D0
15D8C  6716                      BEQ.B     L3401
15D8E  2040                      Move.L    D0, A0
15D90  6100 FEAE                 Bsr       P628
15D94  660E                      BNE.B     L3401
15D96  0829 0007 0005            BTst.B    #$7, $5(A1)
15D9C  6606                      BNE.B     L3401
15D9E  7042                      MoveQ.L   #$42, D0
15DA0  6100 FEBC                 Bsr       P630
15DA4  2678 011C      L3401:     Move.L    (UTableBase), A3
15DA8  3638 01D2                 Move      (UnitTableEntryCount), D3
15DAC  201B           L3402:     Move.L    (A3)+, D0
15DAE  672E                      BEQ.B     L3404
15DB0  2040                      Move.L    D0, A0
15DB2  2250                      Move.L    (A0), A1
15DB4  3029 0004                 Move      $4(A1), D0
15DB8  0240 20A0                 And       #$20A0, D0
15DBC  0C40 2020                 Cmp       #$2020, D0
15DC0  661C                      BNE.B     L3404
15DC2  7000                      MoveQ.L   #$0, D0
15DC4  3029 0022                 Move      $22(A1), D0
15DC8  6710                      BEQ.B     L3403
15DCA  D0A9 001A                 Add.L     $1A(A1), D0
15DCE  B0B8 016A                 Cmp.L     (Ticks), D0
15DD2  6E0A                      BGT.B     L3404
15DD4  2378 016A 001A            Move.L    (Ticks), $1A(A1)
15DDA  6100 FE9C      L3403:     Bsr       P631
15DDE  5343           L3404:     SubQ      #$1, D3
15DE0  6ECA                      BGT.B     L3402
15DE2  A873                      _SetPort
15DE4  4238 0A62                 Clr.B     (TaskLock)
15DE8  4CDF 0808      L3405:     MoveM.L   (A7)+, D3/A3
15DEC  4E75                      Rts

                      P_tSystemMenu:
15DEE  48E7 0030                 MoveM.L   A2-A3, -(A7)
15DF2  222F 000C                 Move.L    $C(A7), D1
15DF6  4841                      Swap      D1
15DF8  3038 0A20                 Move      (MBarEnable), D0
15DFC  6702                      BEQ.B     L3406
15DFE  3200                      Move      D0, D1
15E00  2478 011C      L3406:     Move.L    (UTableBase), A2
15E04  3438 01D2                 Move      (UnitTableEntryCount), D2
15E08  201A           L3407:     Move.L    (A2)+, D0
15E0A  671E                      BEQ.B     L3408
15E0C  2040                      Move.L    D0, A0
15E0E  2250                      Move.L    (A0), A1
15E10  0829 0005 0005            BTst.B    #$5, $5(A1)
15E16  6712                      BEQ.B     L3408
15E18  B269 0026                 Cmp       $26(A1), D1
15E1C  660C                      BNE.B     L3408
15E1E  266F 000C                 Move.L    $C(A7), A3
15E22  7043                      MoveQ.L   #$43, D0
15E24  6100 FE38                 Bsr       P630
15E28  6004                      Bra.B     L3409
15E2A  5342           L3408:     SubQ      #$1, D2
15E2C  6EDA                      BGT.B     L3407
15E2E  4CDF 0C00      L3409:     MoveM.L   (A7)+, A2-A3
15E32  2E9F                      Move.L    (A7)+, (A7)
15E34  4E75                      Rts

                      P_tSysEdit:
15E36  426F 0006                 Clr       $6(A7)
15E3A  514F                      SubQ      #$8, A7
15E3C  486F 0004                 Pea.L     $4(A7)
15E40  A874                      _GetPort
15E42  A924                      _FrontWindow
15E44  201F                      Move.L    (A7)+, D0
15E46  6718                      BEQ.B     L3410
15E48  2040                      Move.L    D0, A0
15E4A  6100 FDF4                 Bsr       P628
15E4E  6610                      BNE.B     L3410
15E50  302F 0008                 Move      $8(A7), D0
15E54  0640 0044                 Add       #$44, D0
15E58  6100 FE04                 Bsr       P630
15E5C  522F 000A                 AddQ      #$1, $A(A7)
15E60  A873           L3410:     _SetPort
15E62  6062                      Bra.B     L3412

                      P_tOpenDeskAcc:
15E64  426F 0008                 Clr       $8(A7)
15E68  9EFC 0020                 SubA      #$20, A7
15E6C  2F6F 0024 0012            Move.L    $24(A7), $12(A7)
15E72  426F 0016                 Clr       $16(A7)
15E76  3F7C 0040 001A            Move      #$40, $1A(A7)
15E7C  42AF 001C                 Clr.L     $1C(A7)
15E80  204F                      Move.L    A7, A0
15E82  A000                      _Open
15E84  6624                      BNE.B     L3411
15E86  302F 0018                 Move      $18(A7), D0
15E8A  3F40 0028                 Move      D0, $28(A7)
15E8E  4640                      Not       D0
15E90  E540                      AsL       #$2, D0
15E92  2278 011C                 Move.L    (UTableBase), A1
15E96  2271 0000                 Move.L    $0(A1,D0.W), A1
15E9A  2251                      Move.L    (A1), A1
15E9C  2029 001E                 Move.L    $1E(A1), D0
15EA0  6708                      BEQ.B     L3411
15EA2  2F00                      Move.L    D0, -(A7)
15EA4  2F00                      Move.L    D0, -(A7)
15EA6  A91F                      _SelectWindow
15EA8  A915                      _ShowWindow
15EAA  DEFC 0020      L3411:     AddA      #$20, A7
15EAE  2E9F                      Move.L    (A7)+, (A7)
15EB0  4E75                      Rts

                      P_tCloseDeskAcc:
15EB2  302F 0004                 Move      $4(A7), D0
15EB6  9EFC 001E                 SubA      #$1E, A7
15EBA  3F40 0018                 Move      D0, $18(A7)
15EBE  204F                      Move.L    A7, A0
15EC0  A001                      _Close
15EC2  DEFC 001E                 AddA      #$1E, A7
15EC6  205F           L3412:     Move.L    (A7)+, A0
15EC8  544F                      AddQ      #$2, A7
15ECA  4ED0                      Jmp       (A0)

                      P_tGetPattern:
15ECC  203C 5041 5420            Move.L    #$50415420, D0
15ED2  594F           L3413:     SubQ      #$4, A7
15ED4  2F00                      Move.L    D0, -(A7)
15ED6  3F2F 000C                 Move      $C(A7), -(A7)
15EDA  A9A0                      _GetResource
15EDC  201F                      Move.L    (A7)+, D0
15EDE  205F                      Move.L    (A7)+, A0
15EE0  544F                      AddQ      #$2, A7
15EE2  2E80                      Move.L    D0, (A7)
15EE4  4ED0                      Jmp       (A0)

                      P_tGetCursor:
15EE6  203C 4355 5253            Move.L    #$43555253, D0
15EEC  60E4                      Bra.B     L3413

                      P_tGetString:
15EEE  203C 5354 5220            Move.L    #$53545220, D0
15EF4  60DC                      Bra.B     L3413

                      P_tGetIcon:
15EF6  203C 4943 4F4E            Move.L    #$49434F4E, D0
15EFC  60D4                      Bra.B     L3413

                      P_tGetPicture:
15EFE  203C 5049 4354            Move.L    #$50494354, D0
15F04  60CC                      Bra.B     L3413

                      P_tGetNewWindow:
15F06  4E56 0000                 Link      A6, #$0
15F0A  2F0B                      Move.L    A3, -(A7)
15F0C  42AE 0012                 Clr.L     $12(A6)
15F10  594F                      SubQ      #$4, A7
15F12  2F3C 5749 4E44            Move.L    #$57494E44, -(A7)
15F18  3F2E 0010                 Move      $10(A6), -(A7)
15F1C  A9A0                      _GetResource
15F1E  265F                      Move.L    (A7)+, A3
15F20  200B                      Move.L    A3, D0
15F22  672C                      BEQ.B     L3414
15F24  2053                      Move.L    (A3), A0
15F26  594F                      SubQ      #$4, A7
15F28  2F2E 000C                 Move.L    $C(A6), -(A7)
15F2C  2F08                      Move.L    A0, -(A7)
15F2E  4868 0012                 Pea.L     $12(A0)
15F32  2F28 0008                 Move.L    $8(A0), -(A7)
15F36  2F2E 0008                 Move.L    $8(A6), -(A7)
15F3A  3F28 000C                 Move      $C(A0), -(A7)
15F3E  2F28 000E                 Move.L    $E(A0), -(A7)
15F42  08D3 0007                 BSet.B    #$7, (A3)
15F46  A913                      _NewWindow
15F48  2D5F 0012                 Move.L    (A7)+, $12(A6)
15F4C  2F0B                      Move.L    A3, -(A7)
15F4E  A9A3                      _ReleaseResource
15F50  265F           L3414:     Move.L    (A7)+, A3
15F52  4E5E                      Unlk      A6
15F54  205F                      Move.L    (A7)+, A0
15F56  DEFC 000A                 AddA      #$A, A7
15F5A  4ED0                      Jmp       (A0)

                      P_tGetNewControl:
15F5C  4E56 0000                 Link      A6, #$0
15F60  2F0B                      Move.L    A3, -(A7)
15F62  42AE 000E                 Clr.L     $E(A6)
15F66  594F                      SubQ      #$4, A7
15F68  2F3C 434E 544C            Move.L    #$434E544C, -(A7)
15F6E  3F2E 000C                 Move      $C(A6), -(A7)
15F72  A9A0                      _GetResource
15F74  265F                      Move.L    (A7)+, A3
15F76  200B                      Move.L    A3, D0
15F78  6728                      BEQ.B     L3415
15F7A  2053                      Move.L    (A3), A0
15F7C  594F                      SubQ      #$4, A7
15F7E  2F2E 0008                 Move.L    $8(A6), -(A7)
15F82  2F08                      Move.L    A0, -(A7)
15F84  4868 0016                 Pea.L     $16(A0)
15F88  43E8 0008                 Lea.L     $8(A0), A1
15F8C  2F19                      Move.L    (A1)+, -(A7)
15F8E  2F19                      Move.L    (A1)+, -(A7)
15F90  3F19                      Move      (A1)+, -(A7)
15F92  2F19                      Move.L    (A1)+, -(A7)
15F94  08D3 0007                 BSet.B    #$7, (A3)
15F98  A954                      _NewControl
15F9A  2D5F 000E                 Move.L    (A7)+, $E(A6)
15F9E  2F0B                      Move.L    A3, -(A7)
15FA0  A9A3                      _ReleaseResource
15FA2  265F           L3415:     Move.L    (A7)+, A3
15FA4  4E5E                      Unlk      A6
15FA6  205F                      Move.L    (A7)+, A0
15FA8  5C4F                      AddQ      #$6, A7
15FAA  4ED0                      Jmp       (A0)

                      P_tGetRMenu:
15FAC  4E56 0000                 Link      A6, #$0
15FB0  2F0B                      Move.L    A3, -(A7)
15FB2  3F38 0A5E                 Move      (ResLoad), -(A7)
15FB6  7000                      MoveQ.L   #$0, D0
15FB8  6156                      Bsr.B     P632
15FBA  6748                      BEQ.B     L3418
15FBC  2013                      Move.L    (A3), D0
15FBE  671E                      BEQ.B     L3416
15FC0  42A7                      Clr.L     -(A7)
15FC2  2053                      Move.L    (A3), A0
15FC4  2F28 0006                 Move.L    $6(A0), -(A7)
15FC8  42A7                      Clr.L     -(A7)
15FCA  486F 0008                 Pea.L     $8(A7)
15FCE  42A7                      Clr.L     -(A7)
15FD0  A9A8                      _GetResInfo
15FD2  201F                      Move.L    (A7)+, D0
15FD4  0C80 4D44 4546            Cmp.L     #$4D444546, D0
15FDA  6728                      BEQ.B     L3418
15FDC  6006                      Bra.B     L3417
15FDE  7001           L3416:     MoveQ.L   #$1, D0
15FE0  612E                      Bsr.B     P632
15FE2  6720                      BEQ.B     L3418
15FE4  594F           L3417:     SubQ      #$4, A7
15FE6  2F3C 4D44 4546            Move.L    #$4D444546, -(A7)
15FEC  2053                      Move.L    (A3), A0
15FEE  3F28 0006                 Move      $6(A0), -(A7)
15FF2  31FC FFFF 0B9E            Move      #$-1, (ROMMapInsert)
15FF8  A9A0                      _GetResource
15FFA  2053                      Move.L    (A3), A0
15FFC  215F 0006                 Move.L    (A7)+, $6(A0)
16000  2F0B                      Move.L    A3, -(A7)
16002  A948                      _CalcMenuSize
16004  A99B           L3418:     _SetResLoad
16006  265F                      Move.L    (A7)+, A3
16008  4E5E                      Unlk      A6
1600A  205F                      Move.L    (A7)+, A0
1600C  544F                      AddQ      #$2, A7
1600E  4ED0                      Jmp       (A0)

                      P632:
16010  1F00                      Move.B    D0, -(A7)
16012  A99B                      _SetResLoad
16014  594F                      SubQ      #$4, A7
16016  2F3C 4D45 4E55            Move.L    #$4D454E55, -(A7)
1601C  3F2E 0008                 Move      $8(A6), -(A7)
16020  A9A0                      _GetResource
16022  265F                      Move.L    (A7)+, A3
16024  2D4B 000A                 Move.L    A3, $A(A6)
16028  4E75                      Rts

                      P_tGetNewMBar:
1602A  4E56 0000                 Link      A6, #$0
1602E  48E7 1010                 MoveM.L   D3/A3, -(A7)
16032  42AE 000A                 Clr.L     $A(A6)
16036  594F                      SubQ      #$4, A7
16038  A93B                      _GetMenuBar
1603A  A934                      _ClearMenuBar
1603C  594F                      SubQ      #$4, A7
1603E  2F3C 4D42 4152            Move.L    #$4D424152, -(A7)
16044  3F2E 0008                 Move      $8(A6), -(A7)
16048  A9A0                      _GetResource
1604A  265F                      Move.L    (A7)+, A3
1604C  200B                      Move.L    A3, D0
1604E  672A                      BEQ.B     L3420
16050  7600                      MoveQ.L   #$0, D3
16052  594F           L3419:     SubQ      #$4, A7
16054  2053                      Move.L    (A3), A0
16056  3003                      Move      D3, D0
16058  D040                      Add       D0, D0
1605A  3F30 0002                 Move      $2(A0,D0.W), -(A7)
1605E  6100 FF4C                 Bsr       P_tGetRMenu
16062  4267                      Clr       -(A7)
16064  A935                      _InsertMenu
16066  2053                      Move.L    (A3), A0
16068  5243                      AddQ      #$1, D3
1606A  B650                      Cmp       (A0), D3
1606C  6DE4                      BLT.B     L3419
1606E  594F                      SubQ      #$4, A7
16070  A93B                      _GetMenuBar
16072  2D5F 000A                 Move.L    (A7)+, $A(A6)
16076  2F0B                      Move.L    A3, -(A7)
16078  A9A3                      _ReleaseResource
1607A  2F17           L3420:     Move.L    (A7), -(A7)
1607C  A93C                      _SetMenuBar
1607E  205F                      Move.L    (A7)+, A0
16080  A023                      _DisposeHandle
16082  4CDF 0808                 MoveM.L   (A7)+, D3/A3
16086  4E5E                      Unlk      A6
16088  205F                      Move.L    (A7)+, A0
1608A  544F                      AddQ      #$2, A7
1608C  4ED0                      Jmp       (A0)

                      P_tTEGetText:
1608E  6100 0676                 Bsr       P653
16092  24AB 003E                 Move.L    $3E(A3), (A2)
16096  6000 016E                 Bra       L3431

                      P_tTEInit:
1609A  7000                      MoveQ.L   #$0, D0
1609C  31C0 0AB0                 Move      D0, (TEScrpLength)
160A0  A122                      _NewHandle
160A2  21C8 0AB4                 Move.L    A0, (TEScrpHandle)
160A6  41FA 047C                 Lea.L     P_TEDoText, A0
160AA  21C8 0A70                 Move.L    A0, (TEDoText)
160AE  41FA 0880                 Lea.L     P_TERecal, A0
160B2  21C8 0A74                 Move.L    A0, (TERecal)
160B6  41FA 07EA                 Lea.L     P_TEWdBreak, A0
160BA  21C8 0AF6                 Move.L    A0, (TEWdBreak)
160BE  4E75                      Rts

                      P_tTEDispose:
160C0  4E56 0000                 Link      A6, #$0
160C4  48E7 3F38                 MoveM.L   D2-D7/A2-A4, -(A7)
160C8  286E 0008                 Move.L    $8(A6), A4
160CC  2654                      Move.L    (A4), A3
160CE  206B 003E                 Move.L    $3E(A3), A0
160D2  A023                      _DisposeHandle
160D4  204C                      Move.L    A4, A0
160D6  A023                      _DisposeHandle
160D8  7004                      MoveQ.L   #$4, D0
160DA  6000 00DC                 Bra       L3429

                      P_tTETextBox:
160DE  4E56 0000                 Link      A6, #$0
160E2  48E7 3F38                 MoveM.L   D2-D7/A2-A4, -(A7)
160E6  7068                      MoveQ.L   #$68, D0
160E8  0680 0000 0080            Add.L     #$80, D0
160EE  D0AE 000E                 Add.L     $E(A6), D0
160F2  6100 0A54                 Bsr       P670
160F6  6600 0088                 BNE       L3425
160FA  206E 0012                 Move.L    $12(A6), A0
160FE  202E 000E                 Move.L    $E(A6), D0
16102  6D00 007C                 BLT       L3425
16106  670A                      BEQ.B     L3422
16108  0C18 000D      L3421:     Cmp.B     #$D, (A0)+
1610C  6774                      BEQ.B     L3426
1610E  5380                      SubQ      #$1, D0
16110  66F6                      BNE.B     L3421
16112  554F           L3422:     SubQ      #$2, A7
16114  2F2E 0012                 Move.L    $12(A6), -(A7)
16118  4267                      Clr       -(A7)
1611A  3F2E 0010                 Move      $10(A6), -(A7)
1611E  A886                      _TextWidth
16120  361F                      Move      (A7)+, D3
16122  206E 000A                 Move.L    $A(A6), A0
16126  3028 0006                 Move      $6(A0), D0
1612A  9068 0002                 Sub       $2(A0), D0
1612E  5540                      SubQ      #$2, D0
16130  B043                      Cmp       D3, D0
16132  6F4E                      BLE.B     L3426
16134  2F08                      Move.L    A0, -(A7)
16136  A8A3                      _EraseRect
16138  514F                      SubQ      #$8, A7
1613A  2F0F                      Move.L    A7, -(A7)
1613C  A88B                      _GetFontInfo
1613E  301F                      Move      (A7)+, D0
16140  5C4F                      AddQ      #$6, A7
16142  206E 000A                 Move.L    $A(A6), A0
16146  2F10                      Move.L    (A0), -(A7)
16148  D157                      Add       D0, (A7)
1614A  526F 0002                 AddQ      #$1, $2(A7)
1614E  A893                      _MoveTo
16150  4A6E 0008                 Tst       $8(A6)
16154  671E                      BEQ.B     L3424
16156  206E 000A                 Move.L    $A(A6), A0
1615A  3028 0006                 Move      $6(A0), D0
1615E  9068 0002                 Sub       $2(A0), D0
16162  9043                      Sub       D3, D0
16164  5340                      SubQ      #$1, D0
16166  4A6E 0008                 Tst       $8(A6)
1616A  6B02                      BMI.B     L3423
1616C  E240                      AsR       #$1, D0
1616E  3F00           L3423:     Move      D0, -(A7)
16170  4267                      Clr       -(A7)
16172  A894                      _Move
16174  2F2E 0012      L3424:     Move.L    $12(A6), -(A7)
16178  4267                      Clr       -(A7)
1617A  3F2E 0010                 Move      $10(A6), -(A7)
1617E  A885                      _DrawText
16180  6034           L3425:     Bra.B     L3428
16182  594F           L3426:     SubQ      #$4, A7
16184  2F2E 000A                 Move.L    $A(A6), -(A7)
16188  2F17                      Move.L    (A7), -(A7)
1618A  2F17                      Move.L    (A7), -(A7)
1618C  A8A3                      _EraseRect
1618E  A9D2                      _TENew
16190  285F                      Move.L    (A7)+, A4
16192  2054                      Move.L    (A4), A0
16194  316E 0008 003A            Move      $8(A6), $3A(A0)
1619A  202E 000E                 Move.L    $E(A6), D0
1619E  6712                      BEQ.B     L3427
161A0  2F2E 0012                 Move.L    $12(A6), -(A7)
161A4  2F00                      Move.L    D0, -(A7)
161A6  2F0C                      Move.L    A4, -(A7)
161A8  A9CF                      _TESetText
161AA  2F2E 000A                 Move.L    $A(A6), -(A7)
161AE  2F0C                      Move.L    A4, -(A7)
161B0  A9D3                      _TEUpdate
161B2  2F0C           L3427:     Move.L    A4, -(A7)
161B4  A9CD                      _TEDispose
161B6  700E           L3428:     MoveQ.L   #$E, D0
161B8  6000 0074      L3429:     Bra       L3433

                      P_tTESetText:
161BC  6100 0538                 Bsr       P649
161C0  201A                      Move.L    (A2)+, D0
161C2  3740 0020                 Move      D0, $20(A3)
161C6  3740 0022                 Move      D0, $22(A3)
161CA  3740 003C                 Move      D0, $3C(A3)
161CE  205A                      Move.L    (A2)+, A0
161D0  226B 003E                 Move.L    $3E(A3), A1
161D4  0891 0007                 BClr.B    #$7, (A1)
161D8  A9E2                      _PtrToXHand
161DA  206B 003E                 Move.L    $3E(A3), A0
161DE  A029                      _HLock
161E0  6104                      Bsr.B     P633
161E2  6000 09C4      L3430:     Bra       L3521

                      P633:
161E6  2F2B 0020                 Move.L    $20(A3), -(A7)
161EA  426B 0020                 Clr       $20(A3)
161EE  3E3C 8002                 Move      #$-7FFE, D7
161F2  42AB 0060                 Clr.L     $60(A3)
161F6  6100 0732                 Bsr       P_doTERecal
161FA  275F 0020                 Move.L    (A7)+, $20(A3)
161FE  4E75                      Rts

                      P_tTECalText:
16200  6100 0504                 Bsr       P653
16204  61E0                      Bsr.B     P633
16206  7004           L3431:     MoveQ.L   #$4, D0
16208  286E 0008      L3432:     Move.L    $8(A6), A4
1620C  2654                      Move.L    (A4), A3
1620E  3800                      Move      D0, D4
16210  206B 003E                 Move.L    $3E(A3), A0
16214  10AE FFF4                 Move.B    $-C(A6), (A0)
16218  2F2E FFF6                 Move.L    $-A(A6), -(A7)
1621C  2F17                      Move.L    (A7), -(A7)
1621E  A879                      _SetClip
16220  A8D9                      _DisposeRgn
16222  18AE FFFE                 Move.B    $-2(A6), (A4)
16226  2F2E FFFA                 Move.L    $-6(A6), -(A7)
1622A  A873                      _SetPort
1622C  3004                      Move      D4, D0
1622E  4CDF 1CFC      L3433:     MoveM.L   (A7)+, D2-D7/A2-A4
16232  4E5E                      Unlk      A6
16234  205F                      Move.L    (A7)+, A0
16236  DEC0                      AddA      D0, A7
16238  4ED0                      Jmp       (A0)

                      P_tTESetSelect:
1623A  6100 04BA                 Bsr       P649
1623E  6100 07F0                 Bsr       P666
16242  6100 00B8                 Bsr       P635
16246  376E 000E 0022            Move      $E(A6), $22(A3)
1624C  376E 0012 0020            Move      $12(A6), $20(A3)
16252  6100 0524                 Bsr       P654
16256  6100 07B8                 Bsr       P665
1625A  6100 00A0                 Bsr       P635
1625E  6100 0A6A                 Bsr       P674
16262  6000 FF7E                 Bra       L3430

                      P_tTENew:
16266  4E56 0000                 Link      A6, #$0
1626A  48E7 3F38                 MoveM.L   D2-D7/A2-A4, -(A7)
1626E  42AE 0010                 Clr.L     $10(A6)
16272  7068                      MoveQ.L   #$68, D0
16274  A322                      _NewHandleClear
16276  6B62                      BMI.B     L3434
16278  2848                      Move.L    A0, A4
1627A  08D4 0007                 BSet.B    #$7, (A4)
1627E  2654                      Move.L    (A4), A3
16280  7000                      MoveQ.L   #$0, D0
16282  A122                      _NewHandle
16284  2748 003E                 Move.L    A0, $3E(A3)
16288  41D3                      Lea.L     (A3), A0
1628A  246E 000C                 Move.L    $C(A6), A2
1628E  20DA                      Move.L    (A2)+, (A0)+
16290  20DA                      Move.L    (A2)+, (A0)+
16292  246E 0008                 Move.L    $8(A6), A2
16296  20DA                      Move.L    (A2)+, (A0)+
16298  20DA                      Move.L    (A2)+, (A0)+
1629A  514F                      SubQ      #$8, A7
1629C  2F0F                      Move.L    A7, -(A7)
1629E  A88B                      _GetFontInfo
162A0  301F                      Move      (A7)+, D0
162A2  3740 001A                 Move      D0, $1A(A3)
162A6  D05F                      Add       (A7)+, D0
162A8  544F                      AddQ      #$2, A7
162AA  D05F                      Add       (A7)+, D0
162AC  3740 0018                 Move      D0, $18(A3)
162B0  2455                      Move.L    (A5), A2
162B2  2452                      Move.L    (A2), A2
162B4  274A 0052                 Move.L    A2, $52(A3)
162B8  276A 0044 004A            Move.L    $44(A2), $4A(A3)
162BE  276A 0048 004E            Move.L    $48(A2), $4E(A3)
162C4  2778 0AF6 0026            Move.L    (TEWdBreak), $26(A3)
162CA  41FA 0A7A                 Lea.L     E_897, A0
162CE  2748 002A                 Move.L    A0, $2A(A3)
162D2  0894 0007                 BClr.B    #$7, (A4)
162D6  2D4C 0010                 Move.L    A4, $10(A6)
162DA  7008           L3434:     MoveQ.L   #$8, D0
162DC  6000 FF50                 Bra       L3433

                      P_tTEUpdate:
162E0  6100 041C                 Bsr       P651
162E4  205A                      Move.L    (A2)+, A0
162E6  6100 090E                 Bsr       P672
162EA  6000 0932                 Bra       L3525

                      P634:
162EE  3006                      Move      D6, D0
162F0  3206                      Move      D6, D1
162F2  4A85                      Tst.L     D5
162F4  6A04                      BPL.B     L3435
162F6  6100 0556                 Bsr       P658
162FA  4E75           L3435:     Rts

                      P635:
162FC  4A2B 0024                 Tst.B     $24(A3)
16300  67F8                      BEQ.B     L3435
16302  4CAB 0018 0020            MoveM     $20(A3), D3-D4
16308  7E01                      MoveQ.L   #$1, D7
1630A  6000 0212                 Bra       P_doTEDoText

                      P_tTEClick:
1630E  6100 03EA                 Bsr       P650
16312  276E 000E 001C            Move.L    $E(A6), $1C(A3)
16318  6100 00DA                 Bsr       P636
1631C  6100 0712                 Bsr       P666
16320  594F                      SubQ      #$4, A7
16322  A975                      _TickCount
16324  2017                      Move.L    (A7), D0
16326  90AB 002E                 Sub.L     $2E(A3), D0
1632A  B0B8 02F0                 Cmp.L     (DoubleTime), D0
1632E  5FC5                      SLE.B     D5
16330  BC6B 0032                 Cmp       $32(A3), D6
16334  57C1                      SEQ.B     D1
16336  CA01                      And.B     D1, D5
16338  E09D                      ROR.L     #$8, D5
1633A  3746 0032                 Move      D6, $32(A3)
1633E  275F 002E                 Move.L    (A7)+, $2E(A3)
16342  4A2E 000C                 Tst.B     $C(A6)
16346  6718                      BEQ.B     L3438
16348  4CAB 0003 0020            MoveM     $20(A3), D0-D1
1634E  B046                      Cmp       D6, D0
16350  6406                      BCC.B     L3436
16352  3440                      Move      D0, A2
16354  3840                      Move      D0, A4
16356  6004                      Bra.B     L3437
16358  3441           L3436:     Move      D1, A2
1635A  3841                      Move      D1, A4
1635C  3A06           L3437:     Move      D6, D5
1635E  6044                      Bra.B     L3441
16360  619A           L3438:     Bsr.B     P635
16362  7404                      MoveQ.L   #$4, D2
16364  6188                      Bsr.B     P634
16366  48AB 0003 0020            MoveM     D0-D1, $20(A3)
1636C  3440                      Move      D0, A2
1636E  3841                      Move      D1, A4
16370  3A06                      Move      D6, D5
16372  176B 0046 0047            Move.B    $46(A3), $47(A3)
16378  6100 0696                 Bsr       P665
1637C  6100 FF7E                 Bsr       P635
16380  202B 002A      L3439:     Move.L    $2A(A3), D0
16384  6706                      BEQ.B     L3440
16386  2040                      Move.L    D0, A0
16388  4E90                      Jsr       (A0)
1638A  675E                      BEQ.B     L3445
1638C  4267           L3440:     Clr       -(A7)
1638E  A977                      _WaitMouseUp
16390  4A5F                      Tst       (A7)+
16392  6756                      BEQ.B     L3445
16394  486B 001C                 Pea.L     $1C(A3)
16398  A972                      _GetMouse
1639A  6158                      Bsr.B     P636
1639C  BA46                      Cmp       D6, D5
1639E  67E0                      BEQ.B     L3439
163A0  6100 068E                 Bsr       P666
163A4  7408           L3441:     MoveQ.L   #$8, D2
163A6  6100 FF46                 Bsr       P634
163AA  41EB 0022                 Lea.L     $22(A3), A0
163AE  B8C6                      CmpA      D6, A4
163B0  6512                      BCS.B     L3442
163B2  3620                      Move      -(A0), D3
163B4  30C0                      Move      D0, (A0)+
163B6  3800                      Move      D0, D4
163B8  4843                      Swap      D3
163BA  4844                      Swap      D4
163BC  360C                      Move      A4, D3
163BE  3818                      Move      (A0)+, D4
163C0  310C                      Move      A4, -(A0)
163C2  6014                      Bra.B     L3443
163C4  B4C6           L3442:     CmpA      D6, A2
163C6  621E                      BHI.B     L3444
163C8  3618                      Move      (A0)+, D3
163CA  3101                      Move      D1, -(A0)
163CC  3801                      Move      D1, D4
163CE  4843                      Swap      D3
163D0  4844                      Swap      D4
163D2  3620                      Move      -(A0), D3
163D4  380A                      Move      A2, D4
163D6  30CA                      Move      A2, (A0)+
163D8  7E01           L3443:     MoveQ.L   #$1, D7
163DA  6100 0142                 Bsr       P_doTEDoText
163DE  4843                      Swap      D3
163E0  4844                      Swap      D4
163E2  6100 013A                 Bsr       P_doTEDoText
163E6  3A06           L3444:     Move      D6, D5
163E8  6096                      Bra.B     L3439
163EA  6100 0624      L3445:     Bsr       P665
163EE  700A                      MoveQ.L   #$A, D0
163F0  6000 FE16                 Bra       L3432

                      P636:
163F4  302B 001C                 Move      $1C(A3), D0
163F8  6100 02E0                 Bsr       P647
163FC  6C08                      BGE.B     L3446
163FE  D040                      Add       D0, D0
16400  6A0A                      BPL.B     L3447
16402  7C00                      MoveQ.L   #$0, D6
16404  4E75                      Rts
16406  3C2B 003C      L3446:     Move      $3C(A3), D6
1640A  4E75                      Rts
1640C  4CB3 0018 0060 L3447:     MoveM     $60(A3,D0.W), D3-D4
16412  7E00                      MoveQ.L   #$0, D7
16414  6100 0108                 Bsr       P_doTEDoText
16418  3C00                      Move      D0, D6
1641A  4E75                      Rts
1641C  48E7 3F38      L3448:     MoveM.L   D2-D7/A2-A4, -(A7)
16420  45F3 0060                 Lea.L     $60(A3,D0.W), A2
16424  3803                      Move      D3, D4
16426  3612                      Move      (A2), D3
16428  7800                      MoveQ.L   #$0, D4
1642A  3803                      Move      D3, D4
1642C  5244                      AddQ      #$1, D4
1642E  6100 016A                 Bsr       P640
16432  3A2E FFFA                 Move      $-6(A6), D5
16436  6100 020A      L3449:     Bsr       P644
1643A  554F                      SubQ      #$2, A7
1643C  2F2B 001C                 Move.L    $1C(A3), -(A7)
16440  486B 0010                 Pea.L     $10(A3)
16444  A8AD                      _PtInRect
16446  4A1F                      Tst.B     (A7)+
16448  6610                      BNE.B     L3450
1644A  3A2E FFF6                 Move      $-A(A6), D5
1644E  5244                      AddQ      #$1, D4
16450  B86A 0002                 Cmp       $2(A2), D4
16454  63E0                      BLS.B     L3449
16456  7801                      MoveQ.L   #$1, D4
16458  602A                      Bra.B     L3452
1645A  51EB 0046      L3450:     SF.B      $46(A3)
1645E  0C6B 7FFE 0016            Cmp       #$7FFE, $16(A3)
16464  660E                      BNE.B     L3451
16466  206B 003E                 Move.L    $3E(A3), A0
1646A  2050                      Move.L    (A0), A0
1646C  0C30 000D 48FF            Cmp.B     #$D, $-1(A0,D4.L)
16472  6710                      BEQ.B     L3452
16474  302E FFF6      L3451:     Move      $-A(A6), D0
16478  906B 001E                 Sub       $1E(A3), D0
1647C  906B 001E                 Sub       $1E(A3), D0
16480  D045                      Add       D5, D0
16482  6D06                      BLT.B     L3453
16484  5344           L3452:     SubQ      #$1, D4
16486  50EB 0046                 ST.B      $46(A3)
1648A  3004           L3453:     Move      D4, D0
1648C  6034                      Bra.B     L3456
1648E  6100 01FE      L3454:     Bsr       P645
16492  6152                      Bsr.B     P638
16494  6138           L3455:     Bsr.B     P637
16496  632A                      BLS.B     L3456
16498  486B 0010                 Pea.L     $10(A3)
1649C  A8A3                      _EraseRect
1649E  2F2E FFF0                 Move.L    $-10(A6), -(A7)
164A2  302B 001A                 Move      $1A(A3), D0
164A6  D157                      Add       D0, (A7)
164A8  A893                      _MoveTo
164AA  206B 003E                 Move.L    $3E(A3), A0
164AE  2050                      Move.L    (A0), A0
164B0  D1C3                      AddA.L    D3, A0
164B2  2F08                      Move.L    A0, -(A7)
164B4  4267                      Clr       -(A7)
164B6  3F04                      Move      D4, -(A7)
164B8  9757                      Sub       D3, (A7)
164BA  A885                      _DrawText
164BC  544A                      AddQ      #$2, A2
164BE  3612                      Move      (A2), D3
164C0  60D2                      Bra.B     L3455
164C2  4CDF 1CFC      L3456:     MoveM.L   (A7)+, D2-D7/A2-A4
164C6  4E5E                      Unlk      A6
164C8  2055                      Move.L    (A5), A0
164CA  2050                      Move.L    (A0), A0
164CC  4E75                      Rts

                      P637:
164CE  6100 00CA                 Bsr       P640
164D2  3805                      Move      D5, D4
164D4  B86A 0002                 Cmp       $2(A2), D4
164D8  6504                      BCS.B     L3457
164DA  382A 0002                 Move      $2(A2), D4
164DE  6100 0162      L3457:     Bsr       P644
164E2  BA43                      Cmp       D3, D5
164E4  4E75                      Rts

                      P638:
164E6  205F                      Move.L    (A7)+, A0
164E8  48E7 3F38                 MoveM.L   D2-D7/A2-A4, -(A7)
164EC  2F08                      Move.L    A0, -(A7)
164EE  B843                      Cmp       D3, D4
164F0  6402                      BCC.B     L3458
164F2  C943                      Exg.L     D4, D3
164F4  B86B 003C      L3458:     Cmp       $3C(A3), D4
164F8  6504                      BCS.B     L3459
164FA  382B 003C                 Move      $3C(A3), D4
164FE  45EB 0060      L3459:     Lea.L     $60(A3), A2
16502  C8BA 03A0                 And.L     (PCrel $168A4 ), D4
16506  3A04                      Move      D4, D5
16508  C6BA 039A                 And.L     (PCrel $168A4 ), D3
1650C  670E                      BEQ.B     L3462
1650E  B66A 0002      L3460:     Cmp       $2(A2), D3
16512  6304                      BLS.B     L3461
16514  544A                      AddQ      #$2, A2
16516  60F6                      Bra.B     L3460
16518  6602           L3461:     BNE.B     L3462
1651A  544A                      AddQ      #$2, A2
1651C  4E75           L3462:     Rts

                      P_doTEDoText:
1651E  2F38 0A70                 Move.L    (TEDoText), -(A7)
16522  4E75                      Rts

                      P_TEDoText:
16524  4E56 FFF0                 Link      A6, #$-10
16528  4A47                      Tst       D7
1652A  6700 FEF0                 BEQ       L3448
1652E  6E4A                      BGT.B     L3466
16530  0C47 FFFF                 Cmp       #$-1, D7
16534  6700 FF58                 BEQ       L3454
16538  61AC                      Bsr.B     P638
1653A  4A43                      Tst       D3
1653C  6726                      BEQ.B     L3465
1653E  B652                      Cmp       (A2), D3
16540  6622                      BNE.B     L3465
16542  302B 003C                 Move      $3C(A3), D0
16546  671C                      BEQ.B     L3465
16548  B640                      Cmp       D0, D3
1654A  6510                      BCS.B     L3463
1654C  206B 003E                 Move.L    $3E(A3), A0
16550  2050                      Move.L    (A0), A0
16552  0C30 000D 38FF            Cmp.B     #$D, $-1(A0,D3.L)
16558  670A                      BEQ.B     L3465
1655A  6006                      Bra.B     L3464
1655C  4A2B 0047      L3463:     Tst.B     $47(A3)
16560  6602                      BNE.B     L3465
16562  554A           L3464:     SubQ      #$2, A2
16564  6100 FF68      L3465:     Bsr       P637
16568  302E FFF2                 Move      $-E(A6), D0
1656C  3740 0016                 Move      D0, $16(A3)
16570  5340                      SubQ      #$1, D0
16572  3740 0012                 Move      D0, $12(A3)
16576  6000 FF4A                 Bra       L3456
1657A  6100 0112      L3466:     Bsr       P645
1657E  6100 FF66                 Bsr       P638
16582  6100 FF4A      L3467:     Bsr       P637
16586  630E                      BLS.B     L3468
16588  202B 0056                 Move.L    $56(A3), D0
1658C  6100 015A                 Bsr       P648
16590  544A                      AddQ      #$2, A2
16592  3612                      Move      (A2), D3
16594  60EC                      Bra.B     L3467
16596  6000 FF2A      L3468:     Bra       L3456

                      P640:
1659A  41EB 0060                 Lea.L     $60(A3), A0
1659E  200A                      Move.L    A2, D0
165A0  9088                      Sub.L     A0, D0
165A2  E280                      AsR.L     #$1, D0
165A4  322B 0018                 Move      $18(A3), D1
165A8  C0C1                      MulU      D1, D0
165AA  41EB 0008                 Lea.L     $8(A3), A0
165AE  43D6                      Lea.L     (A6), A1
165B0  2320                      Move.L    -(A0), -(A1)
165B2  2320                      Move.L    -(A0), -(A1)
165B4  D151                      Add       D0, (A1)
165B6  3351 0004                 Move      (A1), $4(A1)
165BA  D369 0004                 Add       D1, $4(A1)
165BE  4A6B 003A                 Tst       $3A(A3)
165C2  671E                      BEQ.B     L3470
165C4  6128                      Bsr.B     P641
165C6  322B 0006                 Move      $6(A3), D1
165CA  926B 0002                 Sub       $2(A3), D1
165CE  9240                      Sub       D0, D1
165D0  5341                      SubQ      #$1, D1
165D2  4A6B 003A                 Tst       $3A(A3)
165D6  6B02                      BMI.B     L3469
165D8  E241                      AsR       #$1, D1
165DA  D36E FFFA      L3469:     Add       D1, $-6(A6)
165DE  D36E FFFE                 Add       D1, $-2(A6)
165E2  526E FFFA      L3470:     AddQ      #$1, $-6(A6)
165E6  3D6E FFFA FFFE            Move      $-6(A6), $-2(A6)
165EC  4E75                      Rts

                      P641:
165EE  3C12                      Move      (A2), D6
165F0  3E2A 0002                 Move      $2(A2), D7

                      P_XTrimMeasure:
165F4  2F38 07F4                 Move.L    ($7F4), -(A7)
165F8  4E75                      Rts

                      P_tA0FD_mXTrimMeasure:
165FA  BC6B 003C                 Cmp       $3C(A3), D6
165FE  673E                      BEQ.B     L3473
16600  BE46                      Cmp       D6, D7
16602  633A                      BLS.B     L3473
16604  5347           L3471:     SubQ      #$1, D7
16606  BE46                      Cmp       D6, D7
16608  6712                      BEQ.B     L3472
1660A  206B 003E                 Move.L    $3E(A3), A0
1660E  2050                      Move.L    (A0), A0
16610  CEBA 0292                 And.L     (PCrel $168A4 ), D7
16614  0C30 0020 7800            Cmp.B     #$20, $0(A0,D7.L)
1661A  63E8                      BLS.B     L3471
1661C  5247           L3472:     AddQ      #$1, D7

                      P643:
1661E  BE46                      Cmp       D6, D7
16620  631C                      BLS.B     L3473
16622  554F                      SubQ      #$2, A7
16624  206B 003E                 Move.L    $3E(A3), A0
16628  2050                      Move.L    (A0), A0
1662A  CCBA 0278                 And.L     (PCrel $168A4 ), D6
1662E  D1C6                      AddA.L    D6, A0
16630  2F08                      Move.L    A0, -(A7)
16632  4267                      Clr       -(A7)
16634  3F07                      Move      D7, -(A7)
16636  9D57                      Sub       D6, (A7)
16638  A886                      _TextWidth
1663A  301F                      Move      (A7)+, D0
1663C  4E75                      Rts
1663E  7000           L3473:     MoveQ.L   #$0, D0
16640  4E75                      Rts

                      P644:
16642  3C12                      Move      (A2), D6
16644  3E03                      Move      D3, D7
16646  61D6                      Bsr.B     P643
16648  41D6                      Lea.L     (A6), A0
1664A  43EE FFF8                 Lea.L     $-8(A6), A1
1664E  2320                      Move.L    -(A0), -(A1)
16650  2320                      Move.L    -(A0), -(A1)
16652  D169 0002                 Add       D0, $2(A1)
16656  3E04                      Move      D4, D7
16658  61C4                      Bsr.B     P643
1665A  D16E FFF6                 Add       D0, $-A(A6)
1665E  41EE FFF8                 Lea.L     $-8(A6), A0
16662  43EB 0018                 Lea.L     $18(A3), A1
16666  2320                      Move.L    -(A0), -(A1)
16668  2320                      Move.L    -(A0), -(A1)
1666A  31E9 0002 09FA            Move      $2(A1), (scratch8)
16670  2F29 0004                 Move.L    $4(A1), -(A7)
16674  B652                      Cmp       (A2), D3
16676  6606                      BNE.B     L3474
16678  337C 8002 0002            Move      #$-7FFE, $2(A1)
1667E  B86A 0002      L3474:     Cmp       $2(A2), D4
16682  6606                      BNE.B     L3475
16684  337C 7FFE 0006            Move      #$7FFE, $6(A1)
1668A  A893           L3475:     _MoveTo
1668C  4E75                      Rts

                      P645:
1668E  41EB 0008                 Lea.L     $8(A3), A0

                      P646:
16692  3010                      Move      (A0), D0
16694  6144                      Bsr.B     P647
16696  6C3E                      BGE.B     L3480
16698  D040                      Add       D0, D0
1669A  6D14                      BLT.B     L3477
1669C  B673 0060                 Cmp       $60(A3,D0.W), D3
166A0  6404                      BCC.B     L3476
166A2  3633 0060                 Move      $60(A3,D0.W), D3
166A6  B873 0060      L3476:     Cmp       $60(A3,D0.W), D4
166AA  6404                      BCC.B     L3477
166AC  3833 0060                 Move      $60(A3,D0.W), D4
166B0  3028 0004      L3477:     Move      $4(A0), D0
166B4  D06B 0018                 Add       $18(A3), D0
166B8  5340                      SubQ      #$1, D0
166BA  611E                      Bsr.B     P647
166BC  6C16                      BGE.B     L3479
166BE  D040                      Add       D0, D0
166C0  B673 0060                 Cmp       $60(A3,D0.W), D3
166C4  6504                      BCS.B     L3478
166C6  3633 0060                 Move      $60(A3,D0.W), D3
166CA  B873 0060      L3478:     Cmp       $60(A3,D0.W), D4
166CE  6504                      BCS.B     L3479
166D0  3833 0060                 Move      $60(A3,D0.W), D4
166D4  4E75           L3479:     Rts
166D6  3803           L3480:     Move      D3, D4
166D8  4E75                      Rts

                      P647:
166DA  9053                      Sub       (A3), D0
166DC  48C0                      Ext.L     D0
166DE  81EB 0018                 DivS      $18(A3), D0
166E2  B06B 005E                 Cmp       $5E(A3), D0
166E6  4E75                      Rts

                      P648:
166E8  486B 0010                 Pea.L     $10(A3)
166EC  6704                      BEQ.B     L3481
166EE  2040                      Move.L    D0, A0
166F0  4ED0                      Jmp       (A0)
166F2  A8A4           L3481:     _InvertRect
166F4  4E75                      Rts

                      P649:
166F6  720C                      MoveQ.L   #$C, D1
166F8  600E                      Bra.B     L3482

                      P650:
166FA  720A                      MoveQ.L   #$A, D1
166FC  600A                      Bra.B     L3482

                      P651:
166FE  7208                      MoveQ.L   #$8, D1
16700  6006                      Bra.B     L3482

                      P652:
16702  7206                      MoveQ.L   #$6, D1
16704  6002                      Bra.B     L3482

                      P653:
16706  7204                      MoveQ.L   #$4, D1
16708  205F           L3482:     Move.L    (A7)+, A0
1670A  4E56 FFF4                 Link      A6, #$-C
1670E  48E7 3F38                 MoveM.L   D2-D7/A2-A4, -(A7)
16712  2F08                      Move.L    A0, -(A7)
16714  707F                      MoveQ.L   #$7F, D0
16716  6100 0430                 Bsr       P670
1671A  6706                      BEQ.B     L3483
1671C  3001                      Move      D1, D0
1671E  6000 FB0E                 Bra       L3433
16722  286E 0008      L3483:     Move.L    $8(A6), A4
16726  2654                      Move.L    (A4), A3
16728  1D54 FFFE                 Move.B    (A4), $-2(A6)
1672C  486E FFFA                 Pea.L     $-6(A6)
16730  A874                      _GetPort
16732  204C                      Move.L    A4, A0
16734  A029                      _HLock
16736  246B 0052                 Move.L    $52(A3), A2
1673A  2F0A                      Move.L    A2, -(A7)
1673C  A873                      _SetPort
1673E  594F                      SubQ      #$4, A7
16740  A8D8                      _NewRgn
16742  2D57 FFF6                 Move.L    (A7), $-A(A6)
16746  2F17                      Move.L    (A7), -(A7)
16748  A87A                      _GetClip
1674A  486B 0008                 Pea.L     $8(A3)
1674E  A87B                      _ClipRect
16750  2F2A 001C                 Move.L    $1C(A2), -(A7)
16754  2F17                      Move.L    (A7), -(A7)
16756  A8E4                      _SectRgn
16758  2055                      Move.L    (A5), A0
1675A  2050                      Move.L    (A0), A0
1675C  216B 004A 0044            Move.L    $4A(A3), $44(A0)
16762  216B 004E 0048            Move.L    $4E(A3), $48(A0)
16768  206B 003E                 Move.L    $3E(A3), A0
1676C  1D50 FFF4                 Move.B    (A0), $-C(A6)
16770  A029                      _HLock
16772  A025                      _GetHandleSize
16774  3740 003C                 Move      D0, $3C(A3)

                      P654:
16778  302B 003C                 Move      $3C(A3), D0
1677C  322B 0022                 Move      $22(A3), D1
16780  9240                      Sub       D0, D1
16782  6304                      BLS.B     L3484
16784  3740 0022                 Move      D0, $22(A3)
16788  322B 0020      L3484:     Move      $20(A3), D1
1678C  926B 0022                 Sub       $22(A3), D1
16790  6304                      BLS.B     L3485
16792  936B 0020                 Sub       D1, $20(A3)
16796  6106           L3485:     Bsr.B     P655
16798  45EE 000C                 Lea.L     $C(A6), A2
1679C  4E75                      Rts

                      P655:
1679E  45EB 0020                 Lea.L     $20(A3), A2
167A2  2012                      Move.L    (A2), D0
167A4  B052                      Cmp       (A2), D0
167A6  6404                      BCC.B     L3486
167A8  4840                      Swap      D0
167AA  2480                      Move.L    D0, (A2)
167AC  4E75           L3486:     Rts

                      P_tTECopy:
167AE  6100 FF56                 Bsr       P653
167B2  61EA                      Bsr.B     P655
167B4  9052                      Sub       (A2), D0
167B6  31C0 0AB0                 Move      D0, (TEScrpLength)
167BA  206B 003E                 Move.L    $3E(A3), A0
167BE  2050                      Move.L    (A0), A0
167C0  7000                      MoveQ.L   #$0, D0
167C2  3012                      Move      (A2), D0
167C4  D1C0                      AddA.L    D0, A0
167C6  2278 0AB4                 Move.L    (TEScrpHandle), A1
167CA  3038 0AB0                 Move      (TEScrpLength), D0
167CE  A9E2                      _PtrToXHand
167D0  6000 FA34      L3487:     Bra       L3431

                      P_tTECut:
167D4  6100 FF30                 Bsr       P653
167D8  2F0C                      Move.L    A4, -(A7)
167DA  A9D5                      _TECopy
167DC  2F0C                      Move.L    A4, -(A7)
167DE  A9D7                      _TEDelete
167E0  60EE                      Bra.B     L3487

                      P_tTEDelete:
167E2  6100 FF22                 Bsr       P653
167E6  6100 0248                 Bsr       P666
167EA  610C                      Bsr.B     P656
167EC  612A                      Bsr.B     P657
167EE  6100 0220                 Bsr       P665
167F2  6100 04D6                 Bsr       P674
167F6  60D8                      Bra.B     L3487

                      P656:
167F8  61A4                      Bsr.B     P655
167FA  3E00                      Move      D0, D7
167FC  9E52                      Sub       (A2), D7
167FE  6716                      BEQ.B     L3488
16800  6100 0330                 Bsr       P669
16804  3F07                      Move      D7, -(A7)
16806  4267                      Clr       -(A7)
16808  42A7                      Clr.L     -(A7)
1680A  42A7                      Clr.L     -(A7)
1680C  A9E0                      _Munger
1680E  588F                      AddQ      #$4, A7
16810  9F6B 003C                 Sub       D7, $3C(A3)
16814  349A                      Move      (A2)+, (A2)
16816  4E75           L3488:     Rts

                      P657:
16818  3F2B 005E                 Move      $5E(A3), -(A7)
1681C  6100 010C                 Bsr       P_doTERecal
16820  3602                      Move      D2, D3
16822  301F                      Move      (A7)+, D0
16824  C0EB 0018                 MulU      $18(A3), D0
16828  D053                      Add       (A3), D0
1682A  41EB 0018                 Lea.L     $18(A3), A0
1682E  313C 7FF0                 Move      #$7FF0, -(A0)
16832  3100                      Move      D0, -(A0)
16834  302B 005E                 Move      $5E(A3), D0
16838  C0EB 0018                 MulU      $18(A3), D0
1683C  D053                      Add       (A3), D0
1683E  313C 8002                 Move      #$-7FFE, -(A0)
16842  3100                      Move      D0, -(A0)
16844  2F08                      Move.L    A0, -(A7)
16846  A8A3                      _EraseRect
16848  7EFF                      MoveQ.L   #$-1, D7
1684A  6000 FCD2                 Bra       P_doTEDoText

                      P658:
1684E  2F38 07F8                 Move.L    ($7F8), -(A7)
16852  4E75                      Rts

                      P_tTEFindWord:
16854  4842                      Swap      D2
16856  3400                      Move      D0, D2
16858  3200                      Move      D0, D1
1685A  6702                      BEQ.B     L3489
1685C  6116                      Bsr.B     P659
1685E  0882 0011      L3489:     BClr.B    #$11, D2
16862  B26B 003C      L3490:     Cmp       $3C(A3), D1
16866  640A                      BCC.B     L3491
16868  3241                      Move      D1, A1
1686A  611E                      Bsr.B     P660
1686C  6604                      BNE.B     L3491
1686E  5241                      AddQ      #$1, D1
16870  60F0                      Bra.B     L3490
16872  4E75           L3491:     Rts

                      P659:
16874  08C2 0011                 BSet.B    #$11, D2
16878  5340           L3492:     SubQ      #$1, D0
1687A  3240                      Move      D0, A1
1687C  610C                      Bsr.B     P660
1687E  6606                      BNE.B     L3493
16880  4A40                      Tst       D0
16882  6704                      BEQ.B     L3494
16884  60F2                      Bra.B     L3492
16886  5240           L3493:     AddQ      #$1, D0
16888  4E75           L3494:     Rts

                      P660:
1688A  48E7 80C0                 MoveM.L   D0/A0-A1, -(A7)
1688E  3009                      Move      A1, D0
16890  206B 003E                 Move.L    $3E(A3), A0
16894  2050                      Move.L    (A0), A0
16896  226B 0026                 Move.L    $26(A3), A1
1689A  4E91                      Jsr       (A1)
1689C  4CDF 0301                 MoveM.L   (A7)+, D0/A0-A1
168A0  4E75                      Rts

                      P_TEWdBreak:
168A2  0280 0000 FFFF            And.L     #$FFFF, D0
168A8  0C30 0020 0800            Cmp.B     #$20, $0(A0,D0.L)
168AE  53C0                      SLS.B     D0
168B0  4A00                      Tst.B     D0
168B2  4E75                      Rts

                      P661:
168B4  48E7 0300                 MoveM.L   D6-D7, -(A7)
168B8  6100 FD3A                 Bsr       P_XTrimMeasure
168BC  4CDF 00C0                 MoveM.L   (A7)+, D6-D7
168C0  4E75                      Rts

                      P662:
168C2  2F38 07FC                 Move.L    ($7FC), -(A7)
168C6  4E75                      Rts

                      P_tTEFindLine:
168C8  48E7 7F60                 MoveM.L   D1-D7/A1-A2, -(A7)
168CC  382B 0006                 Move      $6(A3), D4
168D0  986B 0002                 Sub       $2(A3), D4
168D4  5344                      SubQ      #$1, D4
168D6  95CA                      SubA.L    A2, A2
168D8  3E06                      Move      D6, D7
168DA  3007           L3495:     Move      D7, D0
168DC  740C                      MoveQ.L   #$C, D2
168DE  6100 FF6E                 Bsr       P658
168E2  3E01                      Move      D1, D7
168E4  4A2B 0048                 Tst.B     $48(A3)
168E8  6606                      BNE.B     L3496
168EA  61C8                      Bsr.B     P661
168EC  B044                      Cmp       D4, D0
168EE  6C20                      BGE.B     L3497
168F0  3A07           L3496:     Move      D7, D5
168F2  524A                      AddQ      #$1, A2
168F4  BE6B 003C                 Cmp       $3C(A3), D7
168F8  671C                      BEQ.B     L3498
168FA  206B 003E                 Move.L    $3E(A3), A0
168FE  2050                      Move.L    (A0), A0
16900  CEBA FFA2                 And.L     (PCrel $168A4 ), D7
16904  0C30 000D 7800            Cmp.B     #$D, $0(A0,D7.L)
1690A  6704                      BEQ.B     L3497
1690C  5247                      AddQ      #$1, D7
1690E  60CA                      Bra.B     L3495
16910  300A           L3497:     Move      A2, D0
16912  670A                      BEQ.B     L3499
16914  5245                      AddQ      #$1, D5
16916  3005           L3498:     Move      D5, D0
16918  4CDF 06FE                 MoveM.L   (A7)+, D1-D7/A1-A2
1691C  4E75                      Rts
1691E  5347           L3499:     SubQ      #$1, D7
16920  6192                      Bsr.B     P661
16922  B840                      Cmp       D0, D4
16924  6FF8                      BLE.B     L3499
16926  3A07                      Move      D7, D5
16928  60EC                      Bra.B     L3498

                      P_doTERecal:
1692A  2F38 0A74                 Move.L    (TERecal), -(A7)
1692E  4E75                      Rts

                      P_TERecal:
16930  4E56 0000                 Link      A6, #$0
16934  48E7 3E20                 MoveM.L   D2-D6/A2, -(A7)
16938  204C                      Move.L    A4, A0
1693A  A025                      _GetHandleSize
1693C  2A00                      Move.L    D0, D5
1693E  45EB 005E                 Lea.L     $5E(A3), A2
16942  425A                      Clr       (A2)+
16944  3D6B 003C FFF2            Move      $3C(A3), $-E(A6)
1694A  7410                      MoveQ.L   #$10, D2
1694C  302B 0020                 Move      $20(A3), D0
16950  6100 FEFC                 Bsr       P658
16954  3600                      Move      D0, D3
16956  3C1A           L3500:     Move      (A2)+, D6
16958  3D46 FFEA                 Move      D6, $-16(A6)
1695C  B652                      Cmp       (A2), D3
1695E  6508                      BCS.B     L3501
16960  672C                      BEQ.B     L3504
16962  526B 005E                 AddQ      #$1, $5E(A3)
16966  60EE                      Bra.B     L3500
16968  6100 FF58      L3501:     Bsr       P662
1696C  B640                      Cmp       D0, D3
1696E  640C                      BCC.B     L3503
16970  4A38 0BA5      L3502:     Tst.B     (WordRedraw)
16974  6E06                      BGT.B     L3503
16976  6D2E                      BLT.B     L3506
16978  362B 0020                 Move      $20(A3), D3
1697C  4A6B 003A      L3503:     Tst       $3A(A3)
16980  6624                      BNE.B     L3506
16982  3D43 FFEA                 Move      D3, $-16(A6)
16986  671E                      BEQ.B     L3506
16988  536E FFEA                 SubQ      #$1, $-16(A6)
1698C  6018                      Bra.B     L3506
1698E  6100 FF32      L3504:     Bsr       P662
16992  B640                      Cmp       D0, D3
16994  66E6                      BNE.B     L3503
16996  3D43 FFEA                 Move      D3, $-16(A6)
1699A  60D4                      Bra.B     L3502
1699C  BC6B 003C      L3505:     Cmp       $3C(A3), D6
169A0  642C                      BCC.B     L3510
169A2  6100 FF1E                 Bsr       P662
169A6  3600           L3506:     Move      D0, D3
169A8  B66B 0022                 Cmp       $22(A3), D3
169AC  6306                      BLS.B     L3507
169AE  9752                      Sub       D3, (A2)
169B0  BE52                      Cmp       (A2), D7
169B2  6708                      BEQ.B     L3508
169B4  6132           L3507:     Bsr.B     P664
169B6  34C3                      Move      D3, (A2)+
169B8  3C03                      Move      D3, D6
169BA  60E0                      Bra.B     L3505
169BC  3D43 FFF2      L3508:     Move      D3, $-E(A6)
169C0  D752                      Add       D3, (A2)
169C2  6124           L3509:     Bsr.B     P664
169C4  9F52                      Sub       D7, (A2)
169C6  3C1A                      Move      (A2)+, D6
169C8  BC6B 003C                 Cmp       $3C(A3), D6
169CC  65F4                      BCS.B     L3509
169CE  6118           L3510:     Bsr.B     P664
169D0  3506                      Move      D6, -(A2)
169D2  536B 005E                 SubQ      #$1, $5E(A3)
169D6  4A6B 003C                 Tst       $3C(A3)
169DA  6604                      BNE.B     L3511
169DC  426B 005E                 Clr       $5E(A3)
169E0  4CDF 047C      L3511:     MoveM.L   (A7)+, D2-D6/A2
169E4  4E5E                      Unlk      A6
169E6  4E75                      Rts

                      P664:
169E8  526B 005E                 AddQ      #$1, $5E(A3)
169EC  204C                      Move.L    A4, A0
169EE  7068                      MoveQ.L   #$68, D0
169F0  D06B 005E                 Add       $5E(A3), D0
169F4  D06B 005E                 Add       $5E(A3), D0
169F8  BA80                      Cmp.L     D0, D5
169FA  6C12                      BGE.B     L3512
169FC  95CB                      SubA.L    A3, A2
169FE  5080                      AddQ      #$8, D0
16A00  2A00                      Move.L    D0, D5
16A02  0894 0007                 BClr.B    #$7, (A4)
16A06  A024                      _SetHandleSize
16A08  A029                      _HLock
16A0A  2654                      Move.L    (A4), A3
16A0C  D5CB                      AddA.L    A3, A2
16A0E  4E75           L3512:     Rts

                      P665:
16A10  4A2B 0024                 Tst.B     $24(A3)
16A14  67F8                      BEQ.B     L3512
16A16  302B 0020                 Move      $20(A3), D0
16A1A  B06B 0022                 Cmp       $22(A3), D0
16A1E  66EE                      BNE.B     L3512
16A20  50EB 0039                 ST.B      $39(A3)
16A24  4A2B 0038                 Tst.B     $38(A3)
16A28  66E4                      BNE.B     L3512
16A2A  50EB 0038                 ST.B      $38(A3)
16A2E  6014           L3513:     Bra.B     P667

                      P666:
16A30  4A2B 0024                 Tst.B     $24(A3)
16A34  67D8                      BEQ.B     L3512
16A36  51EB 0039                 SF.B      $39(A3)
16A3A  4A2B 0038                 Tst.B     $38(A3)
16A3E  67CE                      BEQ.B     L3512
16A40  51EB 0038                 SF.B      $38(A3)

                      P667:
16A44  48E7 FF00                 MoveM.L   D0-D7, -(A7)
16A48  362B 0020                 Move      $20(A3), D3
16A4C  3803                      Move      D3, D4
16A4E  7EFE                      MoveQ.L   #$-2, D7
16A50  6100 FACC                 Bsr       P_doTEDoText
16A54  202B 005A                 Move.L    $5A(A3), D0
16A58  6100 FC8E                 Bsr       P648
16A5C  4CDF 00FF                 MoveM.L   (A7)+, D0-D7
16A60  4E75                      Rts

                      P_tTEActivate:
16A62  6100 FCA2                 Bsr       P653
16A66  4A2B 0024                 Tst.B     $24(A3)
16A6A  6616                      BNE.B     L3515
16A6C  302B 0020                 Move      $20(A3), D0
16A70  B06B 0022                 Cmp       $22(A3), D0
16A74  6604                      BNE.B     L3514
16A76  50EB 0039                 ST.B      $39(A3)
16A7A  50EB 0024      L3514:     ST.B      $24(A3)
16A7E  6100 F87C                 Bsr       P635
16A82  603A           L3515:     Bra.B     L3516

                      P_tTEDeactivate:
16A84  6100 FC80                 Bsr       P653
16A88  4A2B 0024                 Tst.B     $24(A3)
16A8C  6730                      BEQ.B     L3516
16A8E  61A0                      Bsr.B     P666
16A90  6100 F86A                 Bsr       P635
16A94  51EB 0024                 SF.B      $24(A3)
16A98  6024                      Bra.B     L3516

                      P_tTEIdle:
16A9A  6100 FC6A                 Bsr       P653
16A9E  4A2B 0039                 Tst.B     $39(A3)
16AA2  671A                      BEQ.B     L3516
16AA4  594F                      SubQ      #$4, A7
16AA6  A975                      _TickCount
16AA8  205F                      Move.L    (A7)+, A0
16AAA  B1EB 0034                 CmpA.L    $34(A3), A0
16AAE  650E                      BCS.B     L3516
16AB0  D1F8 02F4                 AddA.L    (CaretTime), A0
16AB4  2748 0034                 Move.L    A0, $34(A3)
16AB8  618A                      Bsr.B     P667
16ABA  462B 0038                 Not.B     $38(A3)
16ABE  6000 F746      L3516:     Bra       L3431

                      P_tTEPaste:
16AC2  6100 FC42                 Bsr       P653
16AC6  2278 0AB4                 Move.L    (TEScrpHandle), A1
16ACA  08D1 0007                 BSet.B    #$7, (A1)
16ACE  2C11                      Move.L    (A1), D6
16AD0  7A00                      MoveQ.L   #$0, D5
16AD2  3A38 0AB0                 Move      (TEScrpLength), D5
16AD6  610A                      Bsr.B     P668
16AD8  2278 0AB4                 Move.L    (TEScrpHandle), A1
16ADC  0891 0007                 BClr.B    #$7, (A1)
16AE0  60DC                      Bra.B     L3516

                      P668:
16AE2  3007                      Move      D7, D0
16AE4  48C0                      Ext.L     D0
16AE6  4480                      Neg.L     D0
16AE8  D085                      Add.L     D5, D0
16AEA  615C                      Bsr.B     P670
16AEC  6642                      BNE.B     L3517
16AEE  6100 FF40                 Bsr       P666
16AF2  6100 F808                 Bsr       P635
16AF6  6100 FCA6                 Bsr       P655
16AFA  3E00                      Move      D0, D7
16AFC  9E52                      Sub       (A2), D7
16AFE  6132                      Bsr.B     P669
16B00  3F07                      Move      D7, -(A7)
16B02  4267                      Clr       -(A7)
16B04  2F06                      Move.L    D6, -(A7)
16B06  2F05                      Move.L    D5, -(A7)
16B08  A9E0                      _Munger
16B0A  588F                      AddQ      #$4, A7
16B0C  206B 003E                 Move.L    $3E(A3), A0
16B10  A029                      _HLock
16B12  9F6B 003C                 Sub       D7, $3C(A3)
16B16  DB6B 003C                 Add       D5, $3C(A3)
16B1A  9E45                      Sub       D5, D7
16B1C  6100 FCFA                 Bsr       P657
16B20  41EB 0020                 Lea.L     $20(A3), A0
16B24  DB50                      Add       D5, (A0)
16B26  3098                      Move      (A0)+, (A0)
16B28  6100 FEE6                 Bsr       P665
16B2C  6100 019C                 Bsr       P674
16B30  4E75           L3517:     Rts

                      P669:
16B32  225F                      Move.L    (A7)+, A1
16B34  206B 003E                 Move.L    $3E(A3), A0
16B38  A02A                      _HUnlock
16B3A  598F                      SubQ      #$4, A7
16B3C  2F08                      Move.L    A0, -(A7)
16B3E  3F2B 0020                 Move      $20(A3), -(A7)
16B42  4267                      Clr       -(A7)
16B44  42A7                      Clr.L     -(A7)
16B46  4ED1                      Jmp       (A1)

                      P670:
16B48  2400                      Move.L    D0, D2
16B4A  6B10                      BMI.B     L3518
16B4C  E882                      AsR.L     #$4, D2
16B4E  D082                      Add.L     D2, D0
16B50  0680 0000 0080            Add.L     #$80, D0
16B56  A122                      _NewHandle
16B58  6604                      BNE.B     L3519
16B5A  A023                      _DisposeHandle
16B5C  7000           L3518:     MoveQ.L   #$0, D0
16B5E  4E75           L3519:     Rts

                      P671:
16B60  2005                      Move.L    D5, D0
16B62  61E4                      Bsr.B     P670
16B64  6618                      BNE.B     L3520
16B66  61CA                      Bsr.B     P669
16B68  42A7                      Clr.L     -(A7)
16B6A  2F06                      Move.L    D6, -(A7)
16B6C  2F05                      Move.L    D5, -(A7)
16B6E  A9E0                      _Munger
16B70  588F                      AddQ      #$4, A7
16B72  206B 003E                 Move.L    $3E(A3), A0
16B76  A029                      _HLock
16B78  DB6B 003C                 Add       D5, $3C(A3)
16B7C  9E45                      Sub       D5, D7
16B7E  4E75           L3520:     Rts

                      P_tTEInsert:
16B80  6100 FB74                 Bsr       P649
16B84  6100 FEAA                 Bsr       P666
16B88  6100 F772                 Bsr       P635
16B8C  7E00                      MoveQ.L   #$0, D7
16B8E  4CDA 0060                 MoveM.L   (A2)+, D5-D6
16B92  61CC                      Bsr.B     P671
16B94  6100 FC82                 Bsr       P657
16B98  DB6B 0020                 Add       D5, $20(A3)
16B9C  DB6B 0022                 Add       D5, $22(A3)
16BA0  6100 FE6E                 Bsr       P665
16BA4  6100 F756                 Bsr       P635
16BA8  700C           L3521:     MoveQ.L   #$C, D0
16BAA  6000 F65C                 Bra       L3432

                      P_tTEKey:
16BAE  6100 FB52                 Bsr       P652
16BB2  50EB 0047                 ST.B      $47(A3)
16BB6  A856                      _ObscureCursor
16BB8  3212                      Move      (A2), D1
16BBA  0C01 0008                 Cmp.B     #$8, D1
16BBE  670C                      BEQ.B     L3522
16BC0  2C0A                      Move.L    A2, D6
16BC2  5246                      AddQ      #$1, D6
16BC4  7A01                      MoveQ.L   #$1, D5
16BC6  6100 FF1A                 Bsr       P668
16BCA  601A                      Bra.B     L3524
16BCC  302B 0020      L3522:     Move      $20(A3), D0
16BD0  B06B 0022                 Cmp       $22(A3), D0
16BD4  660C                      BNE.B     L3523
16BD6  4A40                      Tst       D0
16BD8  670C                      BEQ.B     L3524
16BDA  6100 FE54                 Bsr       P666
16BDE  536B 0020                 SubQ      #$1, $20(A3)
16BE2  2F0C           L3523:     Move.L    A4, -(A7)
16BE4  A9D7                      _TEDelete
16BE6  7006           L3524:     MoveQ.L   #$6, D0
16BE8  6000 F61E                 Bra       L3432

                      P_tTESetAlignment:
16BEC  6100 FB14                 Bsr       P652
16BF0  3752 003A                 Move      (A2), $3A(A3)
16BF4  60F0                      Bra.B     L3524

                      P672:
16BF6  7600                      MoveQ.L   #$0, D3
16BF8  78FF                      MoveQ.L   #$-1, D4
16BFA  6100 FA96                 Bsr       P646
16BFE  7EFF                      MoveQ.L   #$-1, D7
16C00  6100 F91C                 Bsr       P_doTEDoText
16C04  6100 F6F6                 Bsr       P635
16C08  4A2B 0038                 Tst.B     $38(A3)
16C0C  6744                      BEQ.B     L3526
16C0E  6000 FE1E                 Bra       L3513

                      P_tTEScroll:
16C12  6100 FAEA                 Bsr       P651
16C16  6100 FE18                 Bsr       P666
16C1A  261A                      Move.L    (A2)+, D3
16C1C  6106                      Bsr.B     P673
16C1E  7008           L3525:     MoveQ.L   #$8, D0
16C20  6000 F5E6                 Bra       L3432

                      P673:
16C24  4A83                      Tst.L     D3
16C26  672A                      BEQ.B     L3526
16C28  4853                      Pea.L     (A3)
16C2A  2F03                      Move.L    D3, -(A7)
16C2C  A8A8                      _OffsetRect
16C2E  594F                      SubQ      #$4, A7
16C30  A8D8                      _NewRgn
16C32  245F                      Move.L    (A7)+, A2
16C34  486B 0008                 Pea.L     $8(A3)
16C38  2F03                      Move.L    D3, -(A7)
16C3A  2F0A                      Move.L    A2, -(A7)
16C3C  A8EF                      _ScrollRect
16C3E  6100 FDD0                 Bsr       P665
16C42  2F0A                      Move.L    A2, -(A7)
16C44  A879                      _SetClip
16C46  2052                      Move.L    (A2), A0
16C48  41E8 0002                 Lea.L     $2(A0), A0
16C4C  61A8                      Bsr.B     P672
16C4E  2F0A                      Move.L    A2, -(A7)
16C50  A8D9                      _DisposeRgn
16C52  4E75           L3526:     Rts

                      P_tTEPinScroll:
16C54  6100 FAA8                 Bsr       P651
16C58  6100 FDD6                 Bsr       P666
16C5C  3012                      Move      (A2), D0
16C5E  6A18                      BPL.B     L3527
16C60  322B 0018                 Move      $18(A3), D1
16C64  C2EB 005E                 MulU      $5E(A3), D1
16C68  D253                      Add       (A3), D1
16C6A  926B 000C                 Sub       $C(A3), D1
16C6E  6F14                      BLE.B     L3528
16C70  D041                      Add       D1, D0
16C72  6A12                      BPL.B     L3529
16C74  D152                      Add       D0, (A2)
16C76  600E                      Bra.B     L3529
16C78  3213           L3527:     Move      (A3), D1
16C7A  926B 0008                 Sub       $8(A3), D1
16C7E  6A04                      BPL.B     L3528
16C80  D041                      Add       D1, D0
16C82  6B02                      BMI.B     L3529
16C84  9152           L3528:     Sub       D0, (A2)
16C86  302A 0002      L3529:     Move      $2(A2), D0
16C8A  6A14                      BPL.B     L3530
16C8C  322B 0006                 Move      $6(A3), D1
16C90  926B 000E                 Sub       $E(A3), D1
16C94  6F18                      BLE.B     L3531
16C96  D041                      Add       D1, D0
16C98  6A18                      BPL.B     L3532
16C9A  D16A 0002                 Add       D0, $2(A2)
16C9E  6012                      Bra.B     L3532
16CA0  322B 0002      L3530:     Move      $2(A3), D1
16CA4  926B 000A                 Sub       $A(A3), D1
16CA8  6A04                      BPL.B     L3531
16CAA  D041                      Add       D1, D0
16CAC  6B04                      BMI.B     L3532
16CAE  916A 0002      L3531:     Sub       D0, $2(A2)
16CB2  261A           L3532:     Move.L    (A2)+, D3
16CB4  6100 FF6E                 Bsr       P673
16CB8  6100 FD56                 Bsr       P665
16CBC  6000 FF60                 Bra       L3525

                      P_tTESelView:
16CC0  6100 FA44                 Bsr       P653
16CC4  6104                      Bsr.B     P674
16CC6  6000 F53E                 Bra       L3431

                      P674:
16CCA  082B 0006 0042            BTst.B    #$6, $42(A3)
16CD0  6758                      BEQ.B     L3533
16CD2  6100 FACA                 Bsr       P655
16CD6  362B 0020                 Move      $20(A3), D3
16CDA  3803                      Move      D3, D4
16CDC  7EFE                      MoveQ.L   #$-2, D7
16CDE  6100 F83E                 Bsr       P_doTEDoText
16CE2  2E2B 0010                 Move.L    $10(A3), D7
16CE6  45F8 0A02                 Lea.L     (OneOne), A2
16CEA  41EB 0010                 Lea.L     $10(A3), A0
16CEE  2520                      Move.L    -(A0), -(A2)
16CF0  2520                      Move.L    -(A0), -(A2)
16CF2  302B 0018                 Move      $18(A3), D0
16CF6  916A 0004                 Sub       D0, $4(A2)
16CFA  536A 0006                 SubQ      #$1, $6(A2)
16CFE  554F                      SubQ      #$2, A7
16D00  2F07                      Move.L    D7, -(A7)
16D02  2F0A                      Move.L    A2, -(A7)
16D04  A8AD                      _PtInRect
16D06  4A1F                      Tst.B     (A7)+
16D08  6620                      BNE.B     L3533
16D0A  2F1A                      Move.L    (A2)+, -(A7)
16D0C  2F12                      Move.L    (A2), -(A7)
16D0E  2F22                      Move.L    -(A2), -(A7)
16D10  486F 0004                 Pea.L     $4(A7)
16D14  A87F                      _SubPt
16D16  486F 0004                 Pea.L     $4(A7)
16D1A  A87E                      _AddPt
16D1C  2F07                      Move.L    D7, -(A7)
16D1E  486F 0004                 Pea.L     $4(A7)
16D22  A87F                      _SubPt
16D24  2F0C                      Move.L    A4, -(A7)
16D26  6100 FF2C                 Bsr       P_tTEPinScroll
16D2A  4E75           L3533:     Rts

                      P_tTEAutoView:
16D2C  6100 F9D4                 Bsr       P652
16D30  4A1A                      Tst.B     (A2)+
16D32  6708                      BEQ.B     L3534
16D34  08EB 0006 0042            BSet.B    #$6, $42(A3)
16D3A  6006                      Bra.B     L3535
16D3C  08AB 0006 0042 L3534:     BClr.B    #$6, $42(A3)
16D42  6000 FEA2      L3535:     Bra       L3524

                      E_897:
16D46  48E7 FFF8                 MoveM.L   D0-D7/A0-A4, -(A7)
16D4A  082B 0006 0042            BTst.B    #$6, $42(A3)
16D50  673C                      BEQ.B     L3536
16D52  3A2B 0018                 Move      $18(A3), D5
16D56  7800                      MoveQ.L   #$0, D4
16D58  41EB 0010                 Lea.L     $10(A3), A0
16D5C  45F8 0A02                 Lea.L     (OneOne), A2
16D60  2520                      Move.L    -(A0), -(A2)
16D62  2520                      Move.L    -(A0), -(A2)
16D64  2F0A                      Move.L    A2, -(A7)
16D66  3F3C FFF8                 Move      #$-8, -(A7)
16D6A  3005                      Move      D5, D0
16D6C  E240                      AsR       #$1, D0
16D6E  4440                      Neg       D0
16D70  3F00                      Move      D0, -(A7)
16D72  A8A9                      _InsetRect
16D74  594F                      SubQ      #$4, A7
16D76  2F0F                      Move.L    A7, -(A7)
16D78  A972                      _GetMouse
16D7A  3C1F                      Move      (A7)+, D6
16D7C  3E1F                      Move      (A7)+, D7
16D7E  BC5A                      Cmp       (A2)+, D6
16D80  6D16                      BLT.B     L3538
16D82  BE5A                      Cmp       (A2)+, D7
16D84  6D16                      BLT.B     L3540
16D86  BC5A                      Cmp       (A2)+, D6
16D88  6E0C                      BGT.B     L3537
16D8A  BE5A                      Cmp       (A2)+, D7
16D8C  6E0C                      BGT.B     L3539
16D8E  7001           L3536:     MoveQ.L   #$1, D0
16D90  4CDF 1FFF                 MoveM.L   (A7)+, D0-D7/A0-A4
16D94  4E75                      Rts
16D96  4445           L3537:     Neg       D5
16D98  6004           L3538:     Bra.B     L3541
16D9A  4445           L3539:     Neg       D5
16D9C  C945           L3540:     Exg.L     D4, D5
16D9E  3F04           L3541:     Move      D4, -(A7)
16DA0  3F05                      Move      D5, -(A7)
16DA2  2F2E 0008                 Move.L    $8(A6), -(A7)
16DA6  6100 FEAC                 Bsr       P_tTEPinScroll
16DAA  60E2                      Bra.B     L3536

                      P_tInfoScrap:
16DAC  4A78 096A                 Tst       (ScrapState)
16DB0  6C06                      BGE.B     L3542
16DB2  594F                      SubQ      #$4, A7
16DB4  A9FC                      _ZeroScrap
16DB6  584F                      AddQ      #$4, A7
16DB8  205F           L3542:     Move.L    (A7)+, A0
16DBA  43F8 0960                 Lea.L     (ScrapSize), A1
16DBE  2E89                      Move.L    A1, (A7)
16DC0  4ED0                      Jmp       (A0)

                      P675:
16DC2  225F                      Move.L    (A7)+, A1
16DC4  4E56 FFA8                 Link      A6, #$-58
16DC8  48E7 3F38                 MoveM.L   D2-D7/A2-A4, -(A7)
16DCC  2F09                      Move.L    A1, -(A7)

                      P676:
16DCE  4CF8 0470 0960            MoveM.L   (ScrapSize), D4-D6/A2
16DD4  49F8 0964                 Lea.L     (ScrapHandle), A4
16DD8  41EE FFB0                 Lea.L     $-50(A6), A0
16DDC  2648                      Move.L    A0, A3
16DDE  214A 0012                 Move.L    A2, $12(A0)
16DE2  3178 0210 0016            Move      (BootDrive), $16(A0)
16DE8  4268 001A                 Clr       $1A(A0)
16DEC  42A8 001C                 Clr.L     $1C(A0)
16DF0  4A46                      Tst       D6
16DF2  6662                      BNE.B     L3546

                      P677:
16DF4  A000                      _Open
16DF6  6760                      BEQ.B     L3547
16DF8  0C40 FFCF                 Cmp       #$-31, D0
16DFC  6758                      BEQ.B     L3546
16DFE  0C40 FFD5                 Cmp       #$-2B, D0
16E02  6654                      BNE.B     L3547
16E04  A008                      _Create
16E06  6650                      BNE.B     L3547
16E08  A00C                      _GetFileInfo
16E0A  217C 434C 4950            Move.L    #$434C4950, $20(A0)
       0020
16E12  217C 4D41 4353            Move.L    #$4D414353, $24(A0)
       0024
16E1A  08E8 0004 0028            BSet.B    #$4, $28(A0)
16E20  A00D                      _SetFileInfo
16E22  6634                      BNE.B     L3547
16E24  60CE                      Bra.B     P677

                      P_tUnloadScrap:
16E26  619A                      Bsr.B     P675
16E28  6618                      BNE.B     L3544
16E2A  4A46                      Tst       D6
16E2C  6F12                      BLE.B     L3543
16E2E  61C4                      Bsr.B     P677
16E30  2004                      Move.L    D4, D0
16E32  6142                      Bsr.B     P678
16E34  A003                      _Write
16E36  660A                      BNE.B     L3544
16E38  2045                      Move.L    D5, A0
16E3A  A023                      _DisposeHandle
16E3C  429C                      Clr.L     (A4)+
16E3E  429C                      Clr.L     (A4)+
16E40  7000           L3543:     MoveQ.L   #$0, D0
16E42  48C0           L3544:     Ext.L     D0
16E44  2D40 0008                 Move.L    D0, $8(A6)
16E48  7000                      MoveQ.L   #$0, D0
16E4A  4CDF 1CFC      L3545:     MoveM.L   (A7)+, D2-D7/A2-A4
16E4E  4E5E                      Unlk      A6
16E50  205F                      Move.L    (A7)+, A0
16E52  DEC0                      AddA      D0, A7
16E54  4ED0                      Jmp       (A0)
16E56  7000           L3546:     MoveQ.L   #$0, D0
16E58  4E75           L3547:     Rts

                      P_tLoadScrap:
16E5A  6100 FF66                 Bsr       P675
16E5E  66E2                      BNE.B     L3544
16E60  4A46                      Tst       D6
16E62  66DC                      BNE.B     L3543
16E64  2004                      Move.L    D4, D0
16E66  A122                      _NewHandle
16E68  66D8                      BNE.B     L3544
16E6A  28C8                      Move.L    A0, (A4)+
16E6C  529C                      AddQ      #$1, (A4)+
16E6E  2004                      Move.L    D4, D0
16E70  6106                      Bsr.B     P679
16E72  A002                      _Read
16E74  60CC                      Bra.B     L3544

                      P678:
16E76  2045                      Move.L    D5, A0

                      P679:
16E78  2750 0020                 Move.L    (A0), $20(A3)
16E7C  2740 0024                 Move.L    D0, $24(A3)
16E80  377C 0001 002C            Move      #$1, $2C(A3)
16E86  42AB 002E                 Clr.L     $2E(A3)
16E8A  204B                      Move.L    A3, A0
16E8C  4E75                      Rts

                      P_tZeroScrap:
16E8E  6100 FF32                 Bsr       P675
16E92  66AE                      BNE.B     L3544
16E94  21C0 0960                 Move.L    D0, (ScrapSize)
16E98  506C 0004                 AddQ      #$8, $4(A4)
16E9C  6A04                      BPL.B     L3548
16E9E  446C 0004                 Neg       $4(A4)
16EA2  4A46           L3548:     Tst       D6
16EA4  6710                      BEQ.B     L3551
16EA6  6E04                      BGT.B     L3549
16EA8  A122                      _NewHandle
16EAA  6004                      Bra.B     L3550
16EAC  2045           L3549:     Move.L    D5, A0
16EAE  A024                      _SetHandleSize
16EB0  28C8           L3550:     Move.L    A0, (A4)+
16EB2  389C                      Move      (A4)+, (A4)
16EB4  608C                      Bra.B     L3544
16EB6  42A8 001C      L3551:     Clr.L     $1C(A0)
16EBA  A012                      _SetEOF
16EBC  6084                      Bra.B     L3544

                      P680:
16EBE  4A46                      Tst       D6
16EC0  670A                      BEQ.B     L3552
16EC2  2445                      Move.L    D5, A2
16EC4  2052                      Move.L    (A2), A0
16EC6  D1C3                      AddA.L    D3, A0
16EC8  A02E                      _BlockMove
16ECA  608A                      Bra.B     L3546
16ECC  61A8           L3552:     Bsr.B     P678
16ECE  2143 002E                 Move.L    D3, $2E(A0)
16ED2  2149 0020                 Move.L    A1, $20(A0)
16ED6  A002                      _Read
16ED8  4E75                      Rts

                      P_tGetScrap:
16EDA  6100 FEE6                 Bsr       P675
16EDE  664C                      BNE.B     L3556
16EE0  6100 0056                 Bsr       P681
16EE4  6B46                      BMI.B     L3556
16EE6  7600                      MoveQ.L   #$0, D3
16EE8  B684           L3553:     Cmp.L     D4, D3
16EEA  6C1C                      BGE.B     L3554
16EEC  7008                      MoveQ.L   #$8, D0
16EEE  43EE FFA8                 Lea.L     $-58(A6), A1
16EF2  61CA                      Bsr.B     P680
16EF4  6636                      BNE.B     L3556
16EF6  5083                      AddQ      #$8, D3
16EF8  2E19                      Move.L    (A1)+, D7
16EFA  BEAE 000C                 Cmp.L     $C(A6), D7
16EFE  670C                      BEQ.B     L3555
16F00  D699                      Add.L     (A1)+, D3
16F02  5283                      AddQ      #$1, D3
16F04  0183                      BClr.L    D0, D3
16F06  60E0                      Bra.B     L3553
16F08  709A           L3554:     MoveQ.L   #$-66, D0
16F0A  6022                      Bra.B     L3557
16F0C  246E 0008      L3555:     Move.L    $8(A6), A2
16F10  2483                      Move.L    D3, (A2)
16F12  2011                      Move.L    (A1), D0
16F14  2D40 0014                 Move.L    D0, $14(A6)
16F18  222E 0010                 Move.L    $10(A6), D1
16F1C  6714                      BEQ.B     L3558
16F1E  2041                      Move.L    D1, A0
16F20  A024                      _SetHandleSize
16F22  6608                      BNE.B     L3556
16F24  2011                      Move.L    (A1), D0
16F26  2250                      Move.L    (A0), A1
16F28  6194                      Bsr.B     P680
16F2A  6706                      BEQ.B     L3558
16F2C  48C0           L3556:     Ext.L     D0
16F2E  2D40 0014      L3557:     Move.L    D0, $14(A6)
16F32  700C           L3558:     MoveQ.L   #$C, D0
16F34  6000 FF14                 Bra       L3545

                      P681:
16F38  4A46                      Tst       D6
16F3A  6C0C                      BGE.B     L3559
16F3C  594F                      SubQ      #$4, A7
16F3E  A9FC                      _ZeroScrap
16F40  201F                      Move.L    (A7)+, D0
16F42  6BE8                      BMI.B     L3556
16F44  6100 FE88                 Bsr       P676
16F48  4E75           L3559:     Rts

                      P_tPutScrap:
16F4A  6100 FE76                 Bsr       P675
16F4E  61E8                      Bsr.B     P681
16F50  6BDA                      BMI.B     L3556
16F52  6100 FF22                 Bsr       P678
16F56  7008                      MoveQ.L   #$8, D0
16F58  41EE 000C                 Lea.L     $C(A6), A0
16F5C  6114                      Bsr.B     P682
16F5E  206E 0008                 Move.L    $8(A6), A0
16F62  202E 0010                 Move.L    $10(A6), D0
16F66  72FE                      MoveQ.L   #$-2, D1
16F68  5280                      AddQ      #$1, D0
16F6A  C081                      And.L     D1, D0
16F6C  6104                      Bsr.B     P682
16F6E  2904                      Move.L    D4, -(A4)
16F70  60BA                      Bra.B     L3556

                      P682:
16F72  2744 002E                 Move.L    D4, $2E(A3)
16F76  D880                      Add.L     D0, D4
16F78  4A46                      Tst       D6
16F7A  6706                      BEQ.B     L3560
16F7C  2245                      Move.L    D5, A1
16F7E  A9EF                      _PtrAndHand
16F80  4E75                      Rts
16F82  2748 0020      L3560:     Move.L    A0, $20(A3)
16F86  2740 0024                 Move.L    D0, $24(A3)
16F8A  204B                      Move.L    A3, A0
16F8C  A003                      _Write
16F8E  4E75                      Rts

                      P_tInitPack:
16F90  598F                      SubQ      #$4, A7
16F92  2F3C 5041 434B            Move.L    #$5041434B, -(A7)
16F98  3F2F 000C                 Move      $C(A7), -(A7)
16F9C  31FC FF00 0B9E            Move      #$-100, (ROMMapInsert)
16FA2  A9A0                      _GetResource
16FA4  302F 0008                 Move      $8(A7), D0
16FA8  612C                      Bsr.B     P683
16FAA  209F                      Move.L    (A7)+, (A0)
16FAC  205F                      Move.L    (A7)+, A0
16FAE  548F                      AddQ      #$2, A7
16FB0  4ED0                      Jmp       (A0)

                      P_tInitAllPacks:
16FB2  205F                      Move.L    (A7)+, A0
16FB4  700F                      MoveQ.L   #$F, D0
16FB6  3F00           L3561:     Move      D0, -(A7)
16FB8  2F08                      Move.L    A0, -(A7)
16FBA  41FA FFD4                 Lea.L     P_tInitPack, A0
16FBE  51C8 FFF6                 DBF       D0, L3561
16FC2  2F08                      Move.L    A0, -(A7)
16FC4  4278 0A4A                 Clr       (FPState)
16FC8  41FA 0008                 Lea.L     E_906, A0
16FCC  21C8 0A4C                 Move.L    A0, (FPHaltVector)
16FD0  4E75                      Rts

                      E_906:
16FD2  7010                      MoveQ.L   #$10, D0
16FD4  A9C9                      _SysError

                      P683:
16FD6  41F8 0BC8                 Lea.L     (App2Packs), A0
16FDA  5140                      SubQ      #$8, D0
16FDC  6C06                      BGE.B     L3562
16FDE  41F8 0AB8                 Lea.L     (AppPacks), A0
16FE2  5040                      AddQ      #$8, D0
16FE4  E548           L3562:     LsL       #$2, D0
16FE6  D0C0                      AddA      D0, A0
16FE8  4E75                      Rts

                      P684:
16FEA  48E7 8080                 MoveM.L   D0/A0, -(A7)
16FEE  202F 0008                 Move.L    $8(A7), D0
16FF2  41FA 0040                 Lea.L     P_tPack1, A0
16FF6  9088                      Sub.L     A0, D0
16FF8  E248                      LsR       #$1, D0
16FFA  61DA                      Bsr.B     P683
16FFC  4A90                      Tst.L     (A0)
16FFE  6720                      BEQ.B     L3564
17000  2050                      Move.L    (A0), A0
17002  4A90                      Tst.L     (A0)
17004  660E                      BNE.B     L3563
17006  2F08                      Move.L    A0, -(A7)
17008  31FC FFFF 0B9E            Move      #$-1, (ROMMapInsert)
1700E  A9A2                      _LoadResource
17010  4A90                      Tst.L     (A0)
17012  670C                      BEQ.B     L3564
17014  2F50 0008      L3563:     Move.L    (A0), $8(A7)
17018  4CDF 0101                 MoveM.L   (A7)+, D0/A0
1701C  4217                      Clr.B     (A7)
1701E  4E75                      Rts
17020  202F 0008      L3564:     Move.L    $8(A7), D0
17024  41FA 000E                 Lea.L     P_tPack1, A0
17028  9088                      Sub.L     A0, D0
1702A  E248                      LsR       #$1, D0
1702C  0640 0011                 Add       #$11, D0
17030  A9C9                      _SysError

                      P_tPack0:
17032  61B6                      Bsr.B     P684

                      P_tPack1:
17034  61B4                      Bsr.B     P684

                      P_tPack2:
17036  61B2                      Bsr.B     P684

                      P_tPack3:
17038  61B0                      Bsr.B     P684

                      P_tFP68K:
1703A  61AE                      Bsr.B     P684

                      P_tElems68K:
1703C  61AC                      Bsr.B     P684

                      P_tPack6:
1703E  61AA                      Bsr.B     P684

                      P_tDECSTR68K:
17040  61A8                      Bsr.B     P684

                      P_tPack8:
17042  61A6                      Bsr.B     P684

                      P_tPack9:
17044  61A4                      Bsr.B     P684

                      P_tPack10:
17046  61A2                      Bsr.B     P684

                      P_tPack11:
17048  61A0                      Bsr.B     P684

                      P_tPack12:
1704A  619E                      Bsr.B     P684

                      P_tPack13:
1704C  619C                      Bsr.B     P684

                      P_tPack14:
1704E  619A                      Bsr.B     P684

                      P_tPack15:
17050  6198                      Bsr.B     P684

                      P_tSecondsToDate:
17052  48E7 F880                 MoveM.L   D0-D4/A0, -(A7)
17056  7200                      MoveQ.L   #$0, D1
17058  E288                      LsR.L     #$1, D0
1705A  E291                      RXR.L     #$1, D1
1705C  80FC A8C0                 DivU      #$-5740, D0
17060  4840                      Swap      D0
17062  3200                      Move      D0, D1
17064  E399                      ROL.L     #$1, D1
17066  4240                      Clr       D0
17068  4840                      Swap      D0
1706A  2400                      Move.L    D0, D2
1706C  E582                      AsL.L     #$2, D2
1706E  84FC 05B5                 DivU      #$5B5, D2
17072  0642 0770                 Add       #$770, D2
17076  30C2                      Move      D2, (A0)+
17078  763B                      MoveQ.L   #$3B, D3
1707A  0242 0003                 And       #$3, D2
1707E  6602                      BNE.B     L3565
17080  5243                      AddQ      #$1, D3
17082  4242           L3565:     Clr       D2
17084  4842                      Swap      D2
17086  E44A                      LsR       #$2, D2
17088  7801                      MoveQ.L   #$1, D4
1708A  B443                      Cmp       D3, D2
1708C  6D04                      BLT.B     L3566
1708E  5444                      AddQ      #$2, D4
17090  9443                      Sub       D3, D2
17092  EF8A           L3566:     LsL.L     #$7, D2
17094  7647                      MoveQ.L   #$47, D3
17096  D483                      Add.L     D3, D2
17098  84FC 0F4F                 DivU      #$F4F, D2
1709C  D444                      Add       D4, D2
1709E  4842                      Swap      D2
170A0  EE4A                      LsR       #$7, D2
170A2  5242                      AddQ      #$1, D2
170A4  20C2                      Move.L    D2, (A0)+
170A6  82FC 0E10                 DivU      #$E10, D1
170AA  30C1                      Move      D1, (A0)+
170AC  4241                      Clr       D1
170AE  4841                      Swap      D1
170B0  82FC 003C                 DivU      #$3C, D1
170B4  4841                      Swap      D1
170B6  20C1                      Move.L    D1, (A0)+
170B8  5A40                      AddQ      #$5, D0
170BA  80FC 0007                 DivU      #$7, D0
170BE  4840                      Swap      D0
170C0  5240                      AddQ      #$1, D0
170C2  3080                      Move      D0, (A0)
170C4  4CDF 011F                 MoveM.L   (A7)+, D0-D4/A0
170C8  4E75                      Rts

                      P_tDateToSeconds:
170CA  48E7 7800                 MoveM.L   D1-D4, -(A7)
170CE  7000                      MoveQ.L   #$0, D0
170D0  5088                      AddQ      #$8, A0
170D2  2210                      Move.L    (A0), D1
170D4  3001                      Move      D1, D0
170D6  4841                      Swap      D1
170D8  3420                      Move      -(A0), D2
170DA  763C                      MoveQ.L   #$3C, D3
170DC  C4C3                      MulU      D3, D2
170DE  D441                      Add       D1, D2
170E0  C4C3                      MulU      D3, D2
170E2  D082                      Add.L     D2, D0
170E4  3220                      Move      -(A0), D1
170E6  5341                      SubQ      #$1, D1
170E8  3420                      Move      -(A0), D2
170EA  3620                      Move      -(A0), D3
170EC  3803                      Move      D3, D4
170EE  0443 0770                 Sub       #$770, D3
170F2  C6FC 05B5                 MulU      #$5B5, D3
170F6  5683                      AddQ      #$3, D3
170F8  E48B                      LsR.L     #$2, D3
170FA  D243                      Add       D3, D1
170FC  5342                      SubQ      #$1, D2
170FE  0C42 0001                 Cmp       #$1, D2
17102  6F0E                      BLE.B     L3568
17104  5542                      SubQ      #$2, D2
17106  763B                      MoveQ.L   #$3B, D3
17108  0244 0003                 And       #$3, D4
1710C  6602                      BNE.B     L3567
1710E  5243                      AddQ      #$1, D3
17110  D243           L3567:     Add       D3, D1
17112  C4FC 0F4D      L3568:     MulU      #$F4D, D2
17116  0642 0034                 Add       #$34, D2
1711A  EE4A                      LsR       #$7, D2
1711C  D242                      Add       D2, D1
1711E  C2FC A8C0                 MulU      #$-5740, D1
17122  D281                      Add.L     D1, D1
17124  D081                      Add.L     D1, D0
17126  4CDF 001E                 MoveM.L   (A7)+, D1-D4
1712A  4E75                      Rts

                      P_tSCSIDispatch:
1712C  205F                      Move.L    (A7)+, A0
1712E  301F                      Move      (A7)+, D0
17130  2F08                      Move.L    A0, -(A7)
17132  41FA 000A                 Lea.L     E_926, A0
17136  3200                      Move      D0, D1
17138  E548                      LsL       #$2, D0
1713A  4EF0 0000                 Jmp       $0(A0,D0.W)

                      E_926:
1713E  6000 003C                 Bra       P_SCSIReset

                      E_927:
17142  6000 0046                 Bra       P_SCSIGet

                      E_928:
17146  6000 0050                 Bra       P_SCSISelect

                      E_929:
1714A  6000 0062                 Bra       P_SCSICmd

                      E_930:
1714E  6000 0106                 Bra       P_SCSIComplete

                      E_931:
17152  6000 0074                 Bra       P_SCSIRead

                      E_932:
17156  6000 00F4                 Bra       P_SCSIWrite

                      E_933:
1715A  6000 000C                 Bra       P_SCSIInstall

                      E_934:
1715E  6000 0068                 Bra       P_SCSIRead

                      E_935:
17162  6000 00E8                 Bra       P_SCSIWrite

                      E_936:
17166  6002                      Bra.B     P_SCSIStat

                      P_SCSIInstall:
17168  4E75                      Rts

                      P_SCSIStat:
1716A  6100 0128                 Bsr       P685
1716E  1F6B 0050 0008            Move.B    $50(A3), $8(A7)
17174  1F6B 0040 0009            Move.B    $40(A3), $9(A7)
1717A  6008                      Bra.B     L3572

                      P_SCSIReset:
1717C  6100 0116                 Bsr       P685
17180  6100 0364                 Bsr       P693
17184  7000           L3572:     MoveQ.L   #$0, D0
17186  6000 0128                 Bra       L3595

                      P_SCSIGet:
1718A  6100 0108                 Bsr       P685
1718E  6100 012C                 Bsr       P686
17192  3D40 0008                 Move      D0, $8(A6)
17196  60EC                      Bra.B     L3572

                      P_SCSISelect:
17198  6100 00FA                 Bsr       P685
1719C  302E 0008                 Move      $8(A6), D0
171A0  6100 0164                 Bsr       P687
171A4  3D40 000A                 Move      D0, $A(A6)
171A8  7002                      MoveQ.L   #$2, D0
171AA  6000 0104                 Bra       L3595

                      P_SCSICmd:
171AE  6100 00E4                 Bsr       P685
171B2  246E 000A                 Move.L    $A(A6), A2
171B6  342E 0008                 Move      $8(A6), D2
171BA  6100 0190                 Bsr       P688
171BE  3D40 000E                 Move      D0, $E(A6)
171C2  7006                      MoveQ.L   #$6, D0
171C4  6000 00EA                 Bra       L3595

                      P_SCSIRead:
171C8  6100 00CA                 Bsr       P685
171CC  0C41 0008      L3577:     Cmp       #$8, D1
171D0  6D04                      BLT.B     L3578
171D2  08C4 000F                 BSet.B    #$F, D4
171D6  226E 0008      L3578:     Move.L    $8(A6), A1
171DA  3011           L3579:     Move      (A1), D0
171DC  2469 0002                 Move.L    $2(A1), A2
171E0  2429 0006                 Move.L    $6(A1), D2
171E4  5340                      SubQ      #$1, D0
171E6  6720                      BEQ.B     P_SCSI_scInc
171E8  5340                      SubQ      #$1, D0
171EA  6728                      BEQ.B     P_SCSI_scNoInc
171EC  5340                      SubQ      #$1, D0
171EE  672C                      BEQ.B     P_SCSI_scAdd
171F0  5340                      SubQ      #$1, D0
171F2  672C                      BEQ.B     P_SCSI_scMove
171F4  5340                      SubQ      #$1, D0
171F6  672E                      BEQ.B     P_SCSI_scLoop
171F8  5340                      SubQ      #$1, D0
171FA  6740                      BEQ.B     P_SCSI_scNOp
171FC  5340                      SubQ      #$1, D0
171FE  6732                      BEQ.B     P_SCSI_scStop
17200  5340                      SubQ      #$1, D0
17202  6732                      BEQ.B     P_SCSI_scComp
17204  7004                      MoveQ.L   #$4, D0
17206  603A                      Bra.B     L3588

                      P_SCSI_scInc:
17208  6100 0192                 Bsr       P689
1720C  6634                      BNE.B     L3588
1720E  D5A9 0002                 Add.L     D2, $2(A1)
17212  6028                      Bra.B     P_SCSI_scNOp

                      P_SCSI_scNoInc:
17214  6100 0186                 Bsr       P689
17218  6628                      BNE.B     L3588
1721A  6020                      Bra.B     P_SCSI_scNOp

                      P_SCSI_scAdd:
1721C  D592                      Add.L     D2, (A2)
1721E  601C                      Bra.B     P_SCSI_scNOp

                      P_SCSI_scMove:
17220  2042                      Move.L    D2, A0
17222  2092                      Move.L    (A2), (A0)
17224  6016                      Bra.B     P_SCSI_scNOp

                      P_SCSI_scLoop:
17226  5382                      SubQ      #$1, D2
17228  6708                      BEQ.B     P_SCSI_scStop
1722A  2342 0006                 Move.L    D2, $6(A1)
1722E  D3CA                      AddA.L    A2, A1
17230  60A8                      Bra.B     L3579

                      P_SCSI_scStop:
17232  7000                      MoveQ.L   #$0, D0
17234  600C                      Bra.B     L3588

                      P_SCSI_scComp:
17236  183C 0001                 Move.B    #$1, D4
1723A  60CC                      Bra.B     P_SCSI_scInc

                      P_SCSI_scNOp:
1723C  D2FC 000A                 AddA      #$A, A1
17240  6098                      Bra.B     L3579
17242  3D40 000C      L3588:     Move      D0, $C(A6)
17246  7004                      MoveQ.L   #$4, D0
17248  6000 0066                 Bra       L3595

                      P_SCSIWrite:
1724C  6100 0046                 Bsr       P685
17250  50C4                      ST.B      D4
17252  6000 FF78                 Bra       L3577

                      P_SCSIComplete:
17256  613C                      Bsr.B     P685
17258  2C38 016A                 Move.L    (Ticks), D6
1725C  DCAE 0008                 Add.L     $8(A6), D6
17260  7400           L3591:     MoveQ.L   #$0, D2
17262  6100 0200                 Bsr       P690
17266  6712                      BEQ.B     L3593
17268  0C00 0005                 Cmp.B     #$5, D0
1726C  6604                      BNE.B     L3592
1726E  6100 02F6                 Bsr       P697
17272  BCB8 016A      L3592:     Cmp.L     (Ticks), D6
17276  6F14                      BLE.B     L3594
17278  60E6                      Bra.B     L3591
1727A  226E 0010      L3593:     Move.L    $10(A6), A1
1727E  3282                      Move      D2, (A1)
17280  6100 0218                 Bsr       P691
17284  6606                      BNE.B     L3594
17286  226E 000C                 Move.L    $C(A6), A1
1728A  3282                      Move      D2, (A1)
1728C  3D40 0014      L3594:     Move      D0, $14(A6)
17290  700C                      MoveQ.L   #$C, D0
17292  601C                      Bra.B     L3595

                      P685:
17294  205F                      Move.L    (A7)+, A0
17296  4E56 0000                 Link      A6, #$0
1729A  48E7 3F38                 MoveM.L   D2-D7/A2-A4, -(A7)
1729E  267C 0058 0000            Move.L    #$580000, A3
172A4  287C 0058 0001            Move.L    #$580001, A4
172AA  7E00                      MoveQ.L   #$0, D7
172AC  7800                      MoveQ.L   #$0, D4
172AE  4ED0                      Jmp       (A0)
172B0  4CDF 1CFC      L3595:     MoveM.L   (A7)+, D2-D7/A2-A4
172B4  4E5E                      Unlk      A6
172B6  205F                      Move.L    (A7)+, A0
172B8  DEC0                      AddA      D0, A7
172BA  4ED0                      Jmp       (A0)

                      P686:
172BC  18BC 0080                 Move.B    #$-80, (A4)
172C0  197C 0001 0020            Move.B    #$1, $20(A4)
172C6  082B 0006 0010            BTst.B    #$6, $10(A3)
172CC  6700 002E                 BEQ       L3596
172D0  6100 020C                 Bsr       P692
172D4  082B 0005 0010            BTst.B    #$5, $10(A3)
172DA  6600 0020                 BNE       L3596
172DE  7000                      MoveQ.L   #$0, D0
172E0  7400                      MoveQ.L   #$0, D2
172E2  1013                      Move.B    (A3), D0
172E4  143C 0080                 Move.B    #$-80, D2
172E8  B500                      Eor.B     D2, D0
172EA  B440                      Cmp       D0, D2
172EC  6D0E                      BLT.B     L3596
172EE  082B 0005 0010            BTst.B    #$5, $10(A3)
172F4  6600 0006                 BNE       L3596
172F8  4240                      Clr       D0
172FA  4E75                      Rts
172FC  1947 0020      L3596:     Move.B    D7, $20(A4)
17300  103C 0002                 Move.B    #$2, D0
17304  4E75                      Rts

                      P687:
17306  7201                      MoveQ.L   #$1, D1
17308  E129                      LsL.B     D0, D1
1730A  197C 0004 0010            Move.B    #$4, $10(A4)
17310  6100 01CC                 Bsr       P692
17314  143C 0080                 Move.B    #$-80, D2
17318  1947 0030                 Move.B    D7, $30(A4)
1731C  8202                      Or.B      D2, D1
1731E  1881                      Move.B    D1, (A4)
17320  197C 000D 0010            Move.B    #$D, $10(A4)
17326  1947 0020                 Move.B    D7, $20(A4)
1732A  1947 0040                 Move.B    D7, $40(A4)
1732E  197C 0005 0010            Move.B    #$5, $10(A4)
17334  6100 01A8                 Bsr       P692
17338  727D                      MoveQ.L   #$7D, D1
1733A  6100 01D4                 Bsr       P694
1733E  6606                      BNE.B     L3597
17340  6100 019C                 Bsr       P692
17344  4240                      Clr       D0
17346  1947 0010      L3597:     Move.B    D7, $10(A4)
1734A  4E75                      Rts

                      P688:
1734C  197C 0002 0030            Move.B    #$2, $30(A4)
17352  223C 0000 BA94            Move.L    #$BA94, D1
17358  6100 01F6                 Bsr       P696
1735C  663C                      BNE.B     L3599
1735E  6100 0262                 Bsr       P698
17362  6636                      BNE.B     L3599
17364  5342                      SubQ      #$1, D2
17366  223C 0000 BA94 L3598:     Move.L    #$BA94, D1
1736C  189A                      Move.B    (A2)+, (A4)
1736E  197C 0001 0010            Move.B    #$1, $10(A4)
17374  6100 01DA                 Bsr       P696
17378  6600 0020                 BNE       L3599
1737C  197C 0011 0010            Move.B    #$11, $10(A4)
17382  223C 0000 BA94            Move.L    #$BA94, D1
17388  6100 01B0                 Bsr       P695
1738C  6600 000C                 BNE       L3599
17390  1947 0010                 Move.B    D7, $10(A4)
17394  51CA FFD0                 DBF       D2, L3598
17398  4240                      Clr       D0
1739A  4E75           L3599:     Rts

                      P689:
1739C  48E7 2060                 MoveM.L   D2/A1-A2, -(A7)
173A0  7001                      MoveQ.L   #$1, D0
173A2  4A04                      Tst.B     D4
173A4  6A02                      BPL.B     L3600
173A6  7000                      MoveQ.L   #$0, D0
173A8  1940 0030      L3600:     Move.B    D0, $30(A4)
173AC  223C 0001 7528            Move.L    #$17528, D1
173B2  6100 019C                 Bsr       P696
173B6  6600 00A4                 BNE       L3614
173BA  6100 0206                 Bsr       P698
173BE  6600 009C                 BNE       L3614
173C2  197C 0002 0020            Move.B    #$2, $20(A4)
173C8  4A04                      Tst.B     D4
173CA  6B06                      BMI.B     L3601
173CC  1947 0070                 Move.B    D7, $70(A4)
173D0  600A                      Bra.B     L3602
173D2  197C 0001 0010 L3601:     Move.B    #$1, $10(A4)
173D8  1947 0050                 Move.B    D7, $50(A4)
173DC  204B           L3602:     Move.L    A3, A0
173DE  224C                      Move.L    A4, A1
173E0  3C3C 0200                 Move      #$200, D6
173E4  D0C6                      AddA      D6, A0
173E6  D2C6                      AddA      D6, A1
173E8  7000                      MoveQ.L   #$0, D0
173EA  7606                      MoveQ.L   #$6, D3
173EC  4A44                      Tst       D4
173EE  6B36                      BMI.B     L3607
173F0  4A04                      Tst.B     D4
173F2  6716                      BEQ.B     L3605
173F4  6B22                      BMI.B     L3606
173F6  072B 0050      L3603:     BTst.L    D3, $50(A3)
173FA  67FA                      BEQ.B     L3603
173FC  1210                      Move.B    (A0), D1
173FE  B21A                      Cmp.B     (A2)+, D1
17400  6702                      BEQ.B     L3604
17402  7006                      MoveQ.L   #$6, D0
17404  5382           L3604:     SubQ      #$1, D2
17406  66EE                      BNE.B     L3603
17408  604A                      Bra.B     L3613
1740A  072B 0050      L3605:     BTst.L    D3, $50(A3)
1740E  67FA                      BEQ.B     L3605
17410  14D0                      Move.B    (A0), (A2)+
17412  5382                      SubQ      #$1, D2
17414  66F4                      BNE.B     L3605
17416  603C                      Bra.B     L3613
17418  072B 0050      L3606:     BTst.L    D3, $50(A3)
1741C  67FA                      BEQ.B     L3606
1741E  129A                      Move.B    (A2)+, (A1)
17420  5382                      SubQ      #$1, D2
17422  66F4                      BNE.B     L3606
17424  6028                      Bra.B     L3612
17426  072B 0050      L3607:     BTst.L    D3, $50(A3)
1742A  67FA                      BEQ.B     L3607
1742C  4A04                      Tst.B     D4
1742E  6710                      BEQ.B     L3610
17430  6B16                      BMI.B     L3611
17432  1210           L3608:     Move.B    (A0), D1
17434  B21A                      Cmp.B     (A2)+, D1
17436  6702                      BEQ.B     L3609
17438  7006                      MoveQ.L   #$6, D0
1743A  5382           L3609:     SubQ      #$1, D2
1743C  66F4                      BNE.B     L3608
1743E  6014                      Bra.B     L3613
17440  14D0           L3610:     Move.B    (A0), (A2)+
17442  5382                      SubQ      #$1, D2
17444  66FA                      BNE.B     L3610
17446  600C                      Bra.B     L3613
17448  129A           L3611:     Move.B    (A2)+, (A1)
1744A  5382                      SubQ      #$1, D2
1744C  66FA                      BNE.B     L3611
1744E  072B 0050      L3612:     BTst.L    D3, $50(A3)
17452  67FA                      BEQ.B     L3612
17454  1947 0020      L3613:     Move.B    D7, $20(A4)
17458  1947 0010                 Move.B    D7, $10(A4)
1745C  4A40           L3614:     Tst       D0
1745E  4CDF 0604                 MoveM.L   (A7)+, D2/A1-A2
17462  4E75                      Rts

                      P690:
17464  197C 0003 0030            Move.B    #$3, $30(A4)
1746A  223C 0000 BA94            Move.L    #$BA94, D1
17470  6100 00DE                 Bsr       P696
17474  6622                      BNE.B     L3615
17476  6100 014A                 Bsr       P698
1747A  661C                      BNE.B     L3615
1747C  1413                      Move.B    (A3), D2
1747E  197C 0010 0010            Move.B    #$10, $10(A4)
17484  223C 0000 BA94            Move.L    #$BA94, D1
1748A  6100 00AE                 Bsr       P695
1748E  6600 0008                 BNE       L3615
17492  1947 0010                 Move.B    D7, $10(A4)
17496  4240                      Clr       D0
17498  4E75           L3615:     Rts

                      P691:
1749A  197C 0007 0030            Move.B    #$7, $30(A4)
174A0  223C 0000 BA94            Move.L    #$BA94, D1
174A6  6100 00A8                 Bsr       P696
174AA  6600 0026                 BNE       L3616
174AE  6100 0112                 Bsr       P698
174B2  661E                      BNE.B     L3616
174B4  7400                      MoveQ.L   #$0, D2
174B6  223C 0000 BA94            Move.L    #$BA94, D1
174BC  1413                      Move.B    (A3), D2
174BE  197C 0010 0010            Move.B    #$10, $10(A4)
174C4  6100 0074                 Bsr       P695
174C8  6600 0008                 BNE       L3616
174CC  1947 0010                 Move.B    D7, $10(A4)
174D0  4240                      Clr       D0
174D2  4E75           L3616:     Rts

                      E_937:
174D4  102B 0040                 Move.B    $40(A3), D0
174D8  0200 000C                 And.B     #$C, D0
174DC  4E75                      Rts

                      P692:
174DE  7030                      MoveQ.L   #$30, D0
174E0  51C8 FFFE      L3617:     DBF       D0, L3617
174E4  4E75                      Rts

                      P693:
174E6  40E7                      Move      SR, -(A7)
174E8  007C 0300                 Or        #$300, SR
174EC  197C 0080 0010            Move.B    #$-80, $10(A4)
174F2  303C 0064                 Move      #$64, D0
174F6  51C8 FFFE      L3618:     DBF       D0, L3618
174FA  1947 0010                 Move.B    D7, $10(A4)
174FE  46DF                      Move      (A7)+, SR
17500  203C 0001 7528            Move.L    #$17528, D0
17506  5380           L3619:     SubQ      #$1, D0
17508  6EFC                      BGT.B     L3619
1750A  1947 0020                 Move.B    D7, $20(A4)
1750E  4E75                      Rts

                      P694:
17510  4240                      Clr       D0
17512  082B 0006 0040 L3620:     BTst.B    #$6, $40(A3)
17518  6606                      BNE.B     L3621
1751A  5381                      SubQ      #$1, D1
1751C  66F4                      BNE.B     L3620
1751E  7002                      MoveQ.L   #$2, D0
17520  4A40           L3621:     Tst       D0
17522  4E75                      Rts

                      E_938:
17524  4240                      Clr       D0
17526  082B 0006 0040 L3622:     BTst.B    #$6, $40(A3)
1752C  6700 0008                 BEQ       L3623
17530  5381                      SubQ      #$1, D1
17532  66F2                      BNE.B     L3622
17534  7002                      MoveQ.L   #$2, D0
17536  4A40           L3623:     Tst       D0
17538  4E75                      Rts

                      P695:
1753A  4240                      Clr       D0
1753C  082B 0005 0040 L3624:     BTst.B    #$5, $40(A3)
17542  6700 0008                 BEQ       L3625
17546  5381                      SubQ      #$1, D1
17548  66F2                      BNE.B     L3624
1754A  7002                      MoveQ.L   #$2, D0
1754C  4A40           L3625:     Tst       D0
1754E  4E75                      Rts

                      P696:
17550  4240                      Clr       D0
17552  082B 0005 0040 L3626:     BTst.B    #$5, $40(A3)
17558  6600 0008                 BNE       L3627
1755C  5381                      SubQ      #$1, D1
1755E  66F2                      BNE.B     L3626
17560  7002                      MoveQ.L   #$2, D0
17562  4A40           L3627:     Tst       D0
17564  4E75                      Rts

                      P697:
17566  61E8                      Bsr.B     P696
17568  6656                      BNE.B     L3631
1756A  082B 0003 0050            BTst.B    #$3, $50(A3)
17570  664C                      BNE.B     L3630
17572  162B 0030                 Move.B    $30(A3), D3
17576  142B 0040                 Move.B    $40(A3), D2
1757A  E482                      AsR.L     #$2, D2
1757C  0202 0007                 And.B     #$7, D2
17580  1942 0030                 Move.B    D2, $30(A4)
17584  082B 0002 0040            BTst.B    #$2, $40(A3)
1758A  670A                      BEQ.B     L3628
1758C  1413                      Move.B    (A3), D2
1758E  197C 0010 0010            Move.B    #$10, $10(A4)
17594  6010                      Bra.B     L3629
17596  197C 0001 0010 L3628:     Move.B    #$1, $10(A4)
1759C  18BC 0001                 Move.B    #$1, (A4)
175A0  197C 0011 0010            Move.B    #$11, $10(A4)
175A6  6192           L3629:     Bsr.B     P695
175A8  6616                      BNE.B     L3631
175AA  1947 0010                 Move.B    D7, $10(A4)
175AE  1943 0030                 Move.B    D3, $30(A4)
175B2  6100 FF2A                 Bsr       P692
175B6  082B 0003 0050            BTst.B    #$3, $50(A3)
175BC  67A8                      BEQ.B     P697
175BE  4240           L3630:     Clr       D0
175C0  4E75           L3631:     Rts

                      P698:
175C2  4240                      Clr       D0
175C4  082B 0003 0050            BTst.B    #$3, $50(A3)
175CA  6602                      BNE.B     L3632
175CC  7005                      MoveQ.L   #$5, D0
175CE  4A40           L3632:     Tst       D0
175D0  4E75                      Rts

                      P_tInsTime:
175D2  2278 0B30                 Move.L    (TimeVars), A1
175D6  43E9 0008                 Lea.L     $8(A1), A1
175DA  A96F                      _Enqueue
175DC  7000                      MoveQ.L   #$0, D0
175DE  4E75                      Rts

                      P_tRmvTime:
175E0  2278 0B30                 Move.L    (TimeVars), A1
175E4  43E9 0008                 Lea.L     $8(A1), A1
175E8  A96E                      _Dequeue
175EA  2278 0B30                 Move.L    (TimeVars), A1
175EE  2029 0004                 Move.L    $4(A1), D0
175F2  B088                      Cmp.L     A0, D0
175F4  6602                      BNE.B     L3633
175F6  6142                      Bsr.B     P699
175F8  4E75           L3633:     Rts

                      P_tPrimeTime:
175FA  2140 000A                 Move.L    D0, $A(A0)
175FE  2078 0B30                 Move.L    (TimeVars), A0
17602  40E7                      Move      SR, -(A7)
17604  46FC 2700                 Move      #$2700, SR
17608  2228 0004                 Move.L    $4(A0), D1
1760C  6726                      BEQ.B     L3634
1760E  2241                      Move.L    D1, A1
17610  B0A9 000A                 Cmp.L     $A(A1), D0
17614  6C20                      BGE.B     L3635
17616  7200                      MoveQ.L   #$0, D1
17618  2278 01D4                 Move.L    (VIA), A1
1761C  1229 1200                 Move.B    $1200(A1), D1
17620  E059                      ROR       #$8, D1
17622  1341 1000                 Move.B    D1, $1000(A1)
17626  82FC 030C                 DivU      #$30C, D1
1762A  48C1                      Ext.L     D1
1762C  9390                      Sub.L     D1, (A0)
1762E  6100 0086                 Bsr       P_VIAInt5_Timer2
17632  6002                      Bra.B     L3635
17634  6104           L3634:     Bsr.B     P699
17636  46DF           L3635:     Move      (A7)+, SR
17638  4E75                      Rts

                      P699:
                      ; initialize state, then start VIA timer T2 @sc
1763A  2278 01D4                 Move.L    (VIA), A1
1763E  137C 0020 1C00            Move.B    #$20, $1C00(A1)
17644  2F02                      Move.L    D2, -(A7)
17646  74FF                      MoveQ.L   #$-1, D2
17648  0882 001F                 BClr.B    #$1F, D2
1764C  7200                      MoveQ.L   #$0, D1
1764E  2278 0B30                 Move.L    (TimeVars), A1
17652  2029 000A                 Move.L    $A(A1), D0
17656  6718                      BEQ.B     L3638
17658  2040           L3636:     Move.L    D0, A0
1765A  4AA8 000A                 Tst.L     $A(A0)
1765E  670C                      BEQ.B     L3637
17660  B4A8 000A                 Cmp.L     $A(A0), D2
17664  6D06                      BLT.B     L3637
17666  2428 000A                 Move.L    $A(A0), D2
1766A  2208                      Move.L    A0, D1
1766C  2010           L3637:     Move.L    (A0), D0
1766E  66E8                      BNE.B     L3636
17670  2341 0004      L3638:     Move.L    D1, $4(A1)
17674  241F                      Move.L    (A7)+, D2
17676  6102                      Bsr.B     P700
17678  4E75                      Rts

                      P700:
                      ; setup and start VIA timer T2 @sc
                      ; D1 = pointer to a timer struct? to TimeVars? @sc
                      ; $A(struct) = timeout in milliseconds @sc
1767A  4A81                      Tst.L     D1              ; D1 is a pointer to the timer parameters @sc
1767C  6736                      BEQ.B     L3640
1767E  2241                      Move.L    D1, A1
17680  2229 000A                 Move.L    $A(A1), D1      ; get the desired timeout delay (in milliseconds) @sc
17684  7054                      MoveQ.L   #$54, D0
17686  B280                      Cmp.L     D0, D1
17688  6F02                      BLE.B     L3639           ; if the desired delay is more than 84 ms, then just do 84 ms @sc
1768A  2200                      Move.L    D0, D1
1768C  2278 0B30      L3639:     Move.L    (TimeVars), A1
17690  2281                      Move.L    D1, (A1)        ; save the actual delay value @sc
17692  C2FC 030C                 MulU      #$30C, D1       ; convert milliseconds to VIA clock cycles @sc
17696  2278 01D4                 Move.L    (VIA), A1
1769A  E059                      ROR       #$8, D1
1769C  1341 1200                 Move.B    D1, $1200(A1)   ; store high byte of delay in T2C-H @sc
176A0  E059                      ROR       #$8, D1
176A2  1341 1000                 Move.B    D1, $1000(A1)   ; store low byte of delay in T2C-L @sc
176A6  137C 00A0 1C00            Move.B    #$-60, $1C00(A1) ; enable the timer 2 timeout interrupt @sc
176AC  41FA 0008                 Lea.L     P_VIAInt5_Timer2, A0
176B0  21C8 01A6                 Move.L    A0, (Lvl1DT.5)  ; install the interrupt handler @sc
176B4  4E75           L3640:     Rts

                      P_VIAInt5_Timer2:
176B6  48E7 C0C0                 MoveM.L   D0-D1/A0-A1, -(A7)
176BA  2278 0B30                 Move.L    (TimeVars), A1
176BE  2029 000A                 Move.L    $A(A1), D0      ; get (pointer to?) the total wait time @sc
176C2  672E                      BEQ.B     L3643
176C4  2211                      Move.L    (A1), D1        ; get the duration of the last T2 interval @sc
176C6  2040           L3641:     Move.L    D0, A0
176C8  4AA8 000A                 Tst.L     $A(A0)
176CC  6704                      BEQ.B     L3642
176CE  93A8 000A                 Sub.L     D1, $A(A0)      ; subtract last time from total @sc
176D2  2010           L3642:     Move.L    (A0), D0
176D4  66F0                      BNE.B     L3641
176D6  2069 0004                 Move.L    $4(A1), A0
176DA  2F08                      Move.L    A0, -(A7)
176DC  6100 FF5C                 Bsr       P699
176E0  205F                      Move.L    (A7)+, A0
176E2  4AA8 000A                 Tst.L     $A(A0)
176E6  6E0A                      BGT.B     L3643
176E8  42A8 000A                 Clr.L     $A(A0)
176EC  2068 0006                 Move.L    $6(A0), A0
176F0  4E90                      Jsr       (A0)            ; user callback for timeout? @sc
176F2  4CDF 0303      L3643:     MoveM.L   (A7)+, D0-D1/A0-A1
176F6  4E75                      Rts
                      ; Resources in ROM
176F8  0011                      DC.W      $0011           ; ?
176FA  0148                      DC.W      $0148           ; resource map size
                      ; Resource map
176FC  0000 0100                 DC.L      $00000100       ; reserved for Offset to resource data
17700  0000 8838                 DC.L      $00008838       ; reserved for Offset to resource map
17704  0000 8738                 DC.L      $00008738       ; reserved for Length of resource data
17708  0000 0148                 DC.L      $00000148       ; reserved for Length of resource map
1770C  0000 CC1C                 DC.L      $0000CC1C       ; reserved for handle to next resource map
17710  0002                      DC.W      $0002           ; reserved for file reference number
17712  8000                      DC.W      $8000           ; Resource file attributes
17714  001C                      DC.W      $001C           ; Offset to type list
17716  0122                      DC.W      $0122           ; Offset to resource name list
                      ; Type list
17718  0006                      DC.W      $0006           ; Number of resource types - 1
1771A  4452 5652                 DC.L      $44525652       ; Resource type DRVR
1771E  0004                      DC.W      $0004           ; Number of resources of this type - 1
17720  003A                      DC.W      $003A           ; Offset to reference list
17722  5345 5244                 DC.L      $53455244       ; Resource type SERD
17726  0000                      DC.W      $0000           ; Number of resources of this type - 1
17728  0076                      DC.W      $0076           ; Offset to reference list
1772A  4D44 4546                 DC.L      $4D444546       ; Resource type MDEF
1772E  0000                      DC.W      $0000           ; Number of resources of this type - 1
17730  0082                      DC.W      $0082           ; Offset to reference list
17732  5744 4546                 DC.L      $57444546       ; Resource type WDEF
17736  0000                      DC.W      $0000           ; Number of resources of this type - 1
17738  008E                      DC.W      $008E           ; Offset to reference list
1773A  5041 434B                 DC.L      $5041434B       ; Resource type PACK
1773E  0002                      DC.W      $0002           ; Number of resources of this type - 1
17740  009A                      DC.W      $009A           ; Offset to reference list
17742  4355 5253                 DC.L      $43555253       ; Resource type CURS
17746  0003                      DC.W      $0003           ; Number of resources of this type - 1
17748  00BE                      DC.W      $00BE           ; Offset to reference list
1774A  464F 4E54                 DC.L      $464F4E54       ; Resource type FONT
1774E  0001                      DC.W      $0001           ; Number of resources of this type - 1
17750  00EE                      DC.W      $00EE           ; Offset to reference list
                      ; end of Type list
                      ; Reference list
                      ; Resource type 'DRVR'
17752  0002                      DC.W      $0002           ; Resource ID
17754  0017                      DC.W      $0017           ; Offset to name
17756  5801 784C                 DC.L      $5801784C       ; Attributes + Offset to data block
1775A  0000 0000                 DC.L      $00000000       ; reserved for handle
1775E  0003                      DC.W      $0003           ; Resource ID
17760  0010                      DC.W      $0010           ; Offset to name
17762  5801 79C0                 DC.L      $580179C0       ; Attributes + Offset to data block
17766  0000 0000                 DC.L      $00000000       ; reserved for handle
1776A  0004                      DC.W      $0004           ; Resource ID
1776C  000A                      DC.W      $000A           ; Offset to name
1776E  5801 7D30                 DC.L      $58017D30       ; Attributes + Offset to data block
17772  0000 0000                 DC.L      $00000000       ; reserved for handle
17776  000A                      DC.W      $000A           ; Resource ID
17778  0005                      DC.W      $0005           ; Offset to name
1777A  5801 9DA0                 DC.L      $58019DA0       ; Attributes + Offset to data block
1777E  0000 0000                 DC.L      $00000000       ; reserved for handle
17782  0009                      DC.W      $0009           ; Resource ID
17784  0000                      DC.W      $0000           ; Offset to name
17786  5801 A6FA                 DC.L      $5801A6FA       ; Attributes + Offset to data block
1778A  0000 0000                 DC.L      $00000000       ; reserved for handle
                      ; end of Resource type 'DRVR'
                      ; Resource type 'SERD'
1778E  0000                      DC.W      $0000           ; Resource ID
17790  FFFF                      DC.W      $FFFF           ; Offset to name
17792  5801 B6D0                 DC.L      $5801B6D0       ; Attributes + Offset to data block
17796  0000 0000                 DC.L      $00000000       ; reserved for handle
                      ; end of Resource type 'SERD'
                      ; Resource type 'MDEF'
1779A  0000                      DC.W      $0000           ; Resource ID
1779C  FFFF                      DC.W      $FFFF           ; Offset to name
1779E  5801 BF40                 DC.L      $5801BF40       ; Attributes + Offset to data block
177A2  0000 0000                 DC.L      $00000000       ; reserved for handle
                      ; end of Resource type 'MDEF'
                      ; Resource type 'WDEF'
177A6  0000                      DC.W      $0000           ; Resource ID
177A8  FFFF                      DC.W      $FFFF           ; Offset to name
177AA  5801 C346                 DC.L      $5801C346       ; Attributes + Offset to data block
177AE  0000 0000                 DC.L      $00000000       ; reserved for handle
                      ; end of Resource type 'WDEF'
                      ; Resource type 'PACK'
177B2  0007                      DC.W      $0007           ; Resource ID
177B4  FFFF                      DC.W      $FFFF           ; Offset to name
177B6  5801 C9E0                 DC.L      $5801C9E0       ; Attributes + Offset to data block
177BA  0000 0000                 DC.L      $00000000       ; reserved for handle
177BE  0005                      DC.W      $0005           ; Resource ID
177C0  FFFF                      DC.W      $FFFF           ; Offset to name
177C2  5801 CF2E                 DC.L      $5801CF2E       ; Attributes + Offset to data block
177C6  0000 0000                 DC.L      $00000000       ; reserved for handle
177CA  0004                      DC.W      $0004           ; Resource ID
177CC  FFFF                      DC.W      $FFFF           ; Offset to name
177CE  5801 DF94                 DC.L      $5801DF94       ; Attributes + Offset to data block
177D2  0000 0000                 DC.L      $00000000       ; reserved for handle
                      ; end of Resource type 'PACK'
                      ; Resource type 'CURS'
177D6  0002                      DC.W      $0002           ; Resource ID
177D8  FFFF                      DC.W      $FFFF           ; Offset to name
177DA  5801 F154                 DC.L      $5801F154       ; Attributes + Offset to data block
177DE  0000 0000                 DC.L      $00000000       ; reserved for handle
177E2  0003                      DC.W      $0003           ; Resource ID
177E4  FFFF                      DC.W      $FFFF           ; Offset to name
177E6  5801 F1A0                 DC.L      $5801F1A0       ; Attributes + Offset to data block
177EA  0000 0000                 DC.L      $00000000       ; reserved for handle
177EE  0001                      DC.W      $0001           ; Resource ID
177F0  FFFF                      DC.W      $FFFF           ; Offset to name
177F2  5801 F1EC                 DC.L      $5801F1EC       ; Attributes + Offset to data block
177F6  0000 0000                 DC.L      $00000000       ; reserved for handle
177FA  0004                      DC.W      $0004           ; Resource ID
177FC  FFFF                      DC.W      $FFFF           ; Offset to name
177FE  5801 F238                 DC.L      $5801F238       ; Attributes + Offset to data block
17802  0000 0000                 DC.L      $00000000       ; reserved for handle
                      ; end of Resource type 'CURS'
                      ; Resource type 'FONT'
17806  0000                      DC.W      $0000           ; Resource ID
17808  001E                      DC.W      $001E           ; Offset to name
1780A  5801 F284                 DC.L      $5801F284       ; Attributes + Offset to data block
1780E  0000 0000                 DC.L      $00000000       ; reserved for handle
17812  000C                      DC.W      $000C           ; Resource ID
17814  FFFF                      DC.W      $FFFF           ; Offset to name
17816  5801 F28C                 DC.L      $5801F28C       ; Attributes + Offset to data block
1781A  0000 0000                 DC.L      $00000000       ; reserved for handle
                      ; end of Resource type 'FONT'
                      ; end of Reference list
                      ; Resource name list
                      ; Name of resource type ''DRVR'' 9
1781E  04                        DC.B      $04             ; length
                      ; Name
1781F  2E4D 5050                 DC.B      '.MPP'
                      ; end of Name
                      ; Name of resource type ''DRVR'' 10
17823  04                        DC.B      $04             ; length
                      ; Name
17824  2E41 5450                 DC.B      '.ATP'
                      ; end of Name
                      ; Name of resource type ''DRVR'' 4
17828  05                        DC.B      $05             ; length
                      ; Name
17829  2E53 6F6E 79              DC.B      '.Sony'
                      ; end of Name
                      ; Name of resource type ''DRVR'' 3
1782E  06                        DC.B      $06             ; length
                      ; Name
1782F  2E53 6F75 6E64            DC.B      '.Sound'
                      ; end of Name
                      ; Name of resource type ''DRVR'' 2
17835  06                        DC.B      $06             ; length
                      ; Name
17836  2E50 7269 6E74            DC.B      '.Print'
                      ; end of Name
                      ; Name of resource type ''FONT'' 0
1783C  07                        DC.B      $07             ; length
                      ; Name
1783D  4368 6963 6167            DC.B      'Chicag'
17843  6F                        DC.B      'o'
                      ; end of Name
                      ; end of Resource name list
                      ; end of Resource map

                      ; Resources data

                      ; resource header
17844  C000 0174                 DC.L      $C0000174       ; Length
17848  0000 0054                 DC.L      $00000054       ; ?
                      ; resource : 'DRVR' 2 '.Print'
                      ; Printer Driver Shell
1784C  4F00                      DC.W      $4F00           ; flags
1784E  0000                      DC.W      $0000           ; number of ticks between periodic actions
17850  0000                      DC.W      $0000           ; desk accessory event mask
17852  0000                      DC.W      $0000           ; menu ID
17854  0024                      DC.W      $0024           ; offset to open routine
17856  0028                      DC.W      $0028           ; offset to prime routine
17858  002C                      DC.W      $002C           ; offset to control routine
1785A  0030                      DC.W      $0030           ; offset to status routine
1785C  0034                      DC.W      $0034           ; offset to close routine
1785E  06                        DC.B      $06             ; length of driver name
                      ; Name
1785F  2E50 7269 6E74            DC.B      '.Print'
                      ; end of Name
17865  20                        DC.B      $20             ; align to word
17866  00                        DC.B      $00
17867  00                        DC.B      $00
17868  44                        DC.B      $44
17869  52                        DC.B      $52
1786A  56                        DC.B      $56
1786B  52                        DC.B      $52
1786C  00                        DC.B      $00
1786D  02                        DC.B      $02
1786E  00                        DC.B      $00
1786F  19                        DC.B      $19
17870  7208           E_939:     MoveQ.L   #$8, D1
17872  6010                      Bra.B     L3644
17874  720A           E_940:     MoveQ.L   #$A, D1
17876  600C                      Bra.B     L3644
17878  720C           E_941:     MoveQ.L   #$C, D1
1787A  6008                      Bra.B     L3644
1787C  720E           E_942:     MoveQ.L   #$E, D1
1787E  6004                      Bra.B     L3644
17880  7210           E_943:     MoveQ.L   #$10, D1
17882  4E71                      Nop
17884  594F           L3644:     SubQ      #$4, A7
17886  48E7 00C0                 MoveM.L   A0-A1, -(A7)
1788A  3F01                      Move      D1, -(A7)
1788C  3F38 0A5A                 Move      (CurMap), -(A7)
17890  2F09                      Move.L    A1, -(A7)
17892  2078 0A50                 Move.L    (TopMapHndl), A0
17896  2050                      Move.L    (A0), A0
17898  31E8 0014 0A5A            Move      $14(A0), (CurMap)
1789E  594F                      SubQ      #$4, A7
178A0  3F3C E000                 Move      #$-2000, -(A7)
178A4  A9BA                      _GetString
178A6  245F                      Move.L    (A7)+, A2
178A8  08D2 0007                 BSet.B    #$7, (A2)
178AC  2252                      Move.L    (A2), A1
178AE  6100 00AC                 Bsr       P702
178B2  3F00                      Move      D0, -(A7)
178B4  3038 0210                 Move      (BootDrive), D0
178B8  6100 00A4                 Bsr       P703
178BC  554F                      SubQ      #$2, A7
178BE  2F09                      Move.L    A1, -(A7)
178C0  A997                      _OpenResFile
178C2  2F0A                      Move.L    A2, -(A7)
178C4  A9A3                      _ReleaseResource
178C6  4A5F                      Tst       (A7)+
178C8  6B00 0068                 BMI       L3646
178CC  301F                      Move      (A7)+, D0
178CE  6100 008E                 Bsr       P703
178D2  594F                      SubQ      #$4, A7
178D4  2F3C 4452 5652            Move.L    #$44525652, -(A7)
178DA  3F3C E000                 Move      #$-2000, -(A7)
178DE  A9A0                      _GetResource
178E0  201F                      Move.L    (A7)+, D0
178E2  6700 0058                 BEQ       L3647
178E6  2440                      Move.L    D0, A2
178E8  3038 0A60                 Move      (ResErr), D0
178EC  6B00 004E                 BMI       L3647
178F0  2F0A                      Move.L    A2, -(A7)
178F2  A992                      _DetachResource
178F4  6100 0084                 Bsr       P704
178F8  6606                      BNE.B     L3645
178FA  303C FF40                 Move      #$-C0, D0
178FE  603C                      Bra.B     L3647
17900  274A 0008      L3645:     Move.L    A2, $8(A3)
17904  205F                      Move.L    (A7)+, A0
17906  2252                      Move.L    (A2), A1
17908  1151 0004                 Move.B    (A1), $4(A0)
1790C  08E8 0006 0005            BSet.B    #$6, $5(A0)
17912  208A                      Move.L    A2, (A0)
17914  31DF 0A5A                 Move      (A7)+, (CurMap)
17918  321F                      Move      (A7)+, D1
1791A  08D2 0007                 BSet.B    #$7, (A2)
1791E  2052                      Move.L    (A2), A0
17920  3230 1000                 Move      $0(A0,D1.W), D1
17924  41F0 1000                 Lea.L     $0(A0,D1.W), A0
17928  2F48 0008                 Move.L    A0, $8(A7)
1792C  4CDF 0300                 MoveM.L   (A7)+, A0-A1
17930  4E75                      Rts
17932  301F           L3646:     Move      (A7)+, D0
17934  6100 0028                 Bsr       P703
17938  303C FF3F                 Move      #$-C1, D0
1793C  31C0 0944      L3647:     Move      D0, (PrintErr)
17940  205F                      Move.L    (A7)+, A0
17942  31DF 0A5A                 Move      (A7)+, (CurMap)
17946  321F                      Move      (A7)+, D1
17948  4CDF 0300                 MoveM.L   (A7)+, A0-A1
1794C  584F                      AddQ      #$4, A7
1794E  0828 0009 0006            BTst.B    #$9, $6(A0)
17954  6604                      BNE.B     L3648
17956  2F38 08FC                 Move.L    (JIODone), -(A7)
1795A  4E75           L3648:     Rts
1795C  7000           P702:      MoveQ.L   #$0, D0
1795E  9EFC 0040      P703:      SubA      #$40, A7
17962  204F                      Move.L    A7, A0
17964  3140 0016                 Move      D0, $16(A0)
17968  42A8 0012                 Clr.L     $12(A0)
1796C  A015                      _SetVol
1796E  A014                      _GetVol
17970  3028 0016                 Move      $16(A0), D0
17974  DEFC 0040                 AddA      #$40, A7
17978  4E75                      Rts
1797A  48E7 C060      P704:      MoveM.L   D0-D1/A1-A2, -(A7)
1797E  3278 0A5E                 Move      (ResLoad), A1
17982  4278 0A5E                 Clr       (ResLoad)
17986  594F                      SubQ      #$4, A7
17988  2F3C 4452 5652            Move.L    #$44525652, -(A7)
1798E  3F3C 0002                 Move      #$2, -(A7)
17992  A9A0                      _GetResource
17994  201F                      Move.L    (A7)+, D0
17996  6712                      BEQ.B     L3649
17998  594F                      SubQ      #$4, A7
1799A  2F00                      Move.L    D0, -(A7)
1799C  A9C5                      _RsrcMapEntry
1799E  201F                      Move.L    (A7)+, D0
179A0  6708                      BEQ.B     L3649
179A2  2078 0A54                 Move.L    (SysMapHndl), A0
179A6  2210                      Move.L    (A0), D1
179A8  D081                      Add.L     D1, D0
179AA  2640           L3649:     Move.L    D0, A3
179AC  48B8 0200 0A5E            MoveM     A1, (ResLoad)
179B2  4CDF 0603                 MoveM.L   (A7)+, D0-D1/A1-A2
179B6  4E75                      Rts
                      ; end of resource : 'DRVR' 2 '.Print'

                      ; resource header
179B8  C000 0370                 DC.L      $C0000370       ; Length
179BC  0000 0058                 DC.L      $00000058       ; ?
                      ; resource : 'DRVR' 3 '.Sound'
                      ; Sound Driver
179C0  4E00                      DC.W      $4E00           ; flags
179C2  0000                      DC.W      $0000           ; number of ticks between periodic actions
179C4  0000                      DC.W      $0000           ; desk accessory event mask
179C6  0000                      DC.W      $0000           ; menu ID
179C8  001A                      DC.W      $001A           ; offset to open routine
179CA  00DA                      DC.W      $00DA           ; offset to prime routine
179CC  00BA                      DC.W      $00BA           ; offset to control routine
179CE  00CE                      DC.W      $00CE           ; offset to status routine
179D0  0034                      DC.W      $0034           ; offset to close routine
179D2  06                        DC.B      $06             ; length of driver name
                      ; Name
179D3  2E53 6F75 6E64            DC.B      '.Sound'
                      ; end of Name
179D9  20                        DC.B      $20             ; align to word

                      E_Sound_Open:
179DA  21C9 027A                 Move.L    A1, (SoundDCE)
179DE  611A                      Bsr.B     P705
179E0  1038 0208                 Move.B    (SPVolCtl), D0
179E4  6100 0070                 Bsr       P710
179E8  4238 027E                 Clr.B     (SoundActive)
179EC  7000           L3650:     MoveQ.L   #$0, D0
179EE  4E75                      Rts
179F0  4278 0280      L3651:     Clr       (CurPitch)

                      E_Sound_Close:
179F4  611C                      Bsr.B     P707
179F6  6102                      Bsr.B     P705
179F8  60F2                      Bra.B     L3650
179FA  6128           P705:      Bsr.B     P708
179FC  2078 01D4      P706:      Move.L    (VIA), A0
17A00  4A38 0B3F                 Tst.B     (T1Arbitrate)
17A04  660A                      BNE.B     L3652
17A06  0228 003F 1600            And.B     #$3F, $1600(A0)
17A0C  50F8 0B3F                 ST.B      (T1Arbitrate)
17A10  4E75           L3652:     Rts
17A12  4A38 027E      P707:      Tst.B     (SoundActive)
17A16  670A                      BEQ.B     L3653
17A18  41F8 026A                 Lea.L     (SoundVBL_qLink), A0
17A1C  A034                      _VRemove
17A1E  4238 027E                 Clr.B     (SoundActive)
17A22  4E75           L3653:     Rts
17A24  2078 0266      P708:      Move.L    (SoundBase), A0
17A28  1010                      Move.B    (A0), D0
17A2A  11C0 027F      P709:      Move.B    D0, (SoundLevel)
17A2E  1200                      Move.B    D0, D1
17A30  E148                      LsL       #$8, D0
17A32  1001                      Move.B    D1, D0
17A34  3200                      Move      D0, D1
17A36  4840                      Swap      D0
17A38  3001                      Move      D1, D0
17A3A  2078 0266                 Move.L    (SoundBase), A0
17A3E  722D                      MoveQ.L   #$2D, D1
17A40  01C8 0000      L3654:     MoveP.L   D0, $0(A0)
17A44  01C8 0008                 MoveP.L   D0, $8(A0)
17A48  D0FC 0010                 AddA      #$10, A0
17A4C  51C9 FFF2                 DBF       D1, L3654
17A50  0188 0000                 MoveP     D0, $0(A0)
17A54  4E75                      Rts
17A56  40E7           P710:      Move      SR, -(A7)
17A58  007C 0300                 Or        #$300, SR
17A5C  1239 00EF FFFE            Move.B    ($EFFFFE), D1
17A62  0241 00F8                 And       #$F8, D1
17A66  0240 0007                 And       #$7, D0
17A6A  11C0 0260                 Move.B    D0, (SdVolume)
17A6E  8240                      Or        D0, D1
17A70  13C1 00EF FFFE            Move.B    D1, ($EFFFFE)
17A76  46DF                      Move      (A7)+, SR
17A78  4E75                      Rts

                      E_Sound_Control:
17A7A  3028 001A                 Move      $1A(A0), D0
17A7E  670E                      BEQ.B     E_Sound_Status
17A80  5540                      SubQ      #$2, D0
17A82  670E                      BEQ.B     L3655
17A84  6D00 FF6A                 BLT       L3651
17A88  3028 001C                 Move      $1C(A0), D0
17A8C  619C                      Bsr.B     P709

                      E_Sound_Status:
17A8E  6000 00C8                 Bra       L3661
17A92  3028 001C      L3655:     Move      $1C(A0), D0
17A96  61BE                      Bsr.B     P710
17A98  60F4                      Bra.B     E_Sound_Status

                      E_Sound_Prime:
17A9A  08B9 0007 00EF            BClr.B    #$7, (VIA_Base)
       E1FE
17AA2  2268 0020                 Move.L    $20(A0), A1
17AA6  4A59                      Tst       (A1)+
17AA8  6700 01C8                 BEQ       L3664
17AAC  6A00 00B6                 BPL       L3662
17AB0  4C99 0007      L3958:     MoveM     (A1)+, D0-D2
17AB4  4A42                      Tst       D2
17AB6  6700 0090                 BEQ       L3660
17ABA  2F08                      Move.L    A0, -(A7)
17ABC  4A38 0B3F                 Tst.B     (T1Arbitrate)
17AC0  670C                      BEQ.B     L3656
17AC2  08B8 0007 0B3F            BClr.B    #$7, (T1Arbitrate)
17AC8  6720                      BEQ.B     L3657
17ACA  4238 0B3F                 Clr.B     (T1Arbitrate)
17ACE  2078 01D4      L3656:     Move.L    (VIA), A0
17AD2  0028 00C0 1600            Or.B      #$-40, $1600(A0)
17AD8  B078 0280                 Cmp       (CurPitch), D0
17ADC  670C                      BEQ.B     L3657
17ADE  1140 0800                 Move.B    D0, $800(A0)
17AE2  E058                      ROR       #$8, D0
17AE4  1140 0A00                 Move.B    D0, $A00(A0)
17AE8  E058                      ROR       #$8, D0
17AEA  31C0 0280      L3657:     Move      D0, (CurPitch)
17AEE  3001                      Move      D1, D0
17AF0  6100 FF38                 Bsr       P709
17AF4  3002                      Move      D2, D0
17AF6  43FA 0032                 Lea.L     P_SoundVBL_taskSquareWave, A1
17AFA  610C                      Bsr.B     P712
17AFC  205F                      Move.L    (A7)+, A0
17AFE  5CA8 0028                 AddQ      #$6, $28(A0)
17B02  7000           L3658:     MoveQ.L   #$0, D0
17B04  4E75                      Rts
17B06  7001           P711:      MoveQ.L   #$1, D0
17B08  41F8 026A      P712:      Lea.L     (SoundVBL_qLink), A0
17B0C  2208                      Move.L    A0, D1
17B0E  4298                      Clr.L     (A0)+
17B10  30FC 0001                 Move      #$1, (A0)+
17B14  20C9                      Move.L    A1, (A0)+
17B16  30C0                      Move      D0, (A0)+
17B18  4250                      Clr       (A0)
17B1A  4A38 027E                 Tst.B     (SoundActive)
17B1E  6608                      BNE.B     L3659
17B20  50F8 027E                 ST.B      (SoundActive)
17B24  2041                      Move.L    D1, A0
17B26  A033                      _VInstall
17B28  4E75           L3659:     Rts

                      P_SoundVBL_taskSquareWave:
17B2A  2278 027A                 Move.L    (SoundDCE), A1
17B2E  2069 0008                 Move.L    $8(A1), A0
17B32  2028 0028                 Move.L    $28(A0), D0
17B36  2268 0020                 Move.L    $20(A0), A1
17B3A  D3C0                      AddA.L    D0, A1
17B3C  5489                      AddQ      #$2, A1
17B3E  5840                      AddQ      #$4, D0
17B40  B0A8 0024                 Cmp.L     $24(A0), D0
17B44  6D00 FF6A                 BLT       L3958
17B48  6100 FEB2      L3660:     Bsr       P706
17B4C  4278 0280                 Clr       (CurPitch)
17B50  6100 FEC0      L3959:     Bsr       P707
17B54  6100 FECE                 Bsr       P708
17B58  7000           L3661:     MoveQ.L   #$0, D0
17B5A  2278 027A                 Move.L    (SoundDCE), A1
17B5E  2078 08FC                 Move.L    (JIODone), A0
17B62  4ED0                      Jmp       (A0)
17B64  21D9 0262      L3662:     Move.L    (A1)+, (SoundPtr)
17B68  43FA 000C                 Lea.L     P_SoundVBL_task4Tone, A1
17B6C  6198           L3663:     Bsr.B     P711
17B6E  6092                      Bra.B     L3658
17B70  4CDF 7FFF      L3960:     MoveM.L   (A7)+, D0-D7/A0-A6
17B74  60DA                      Bra.B     L3959

                      P_SoundVBL_task4Tone:
17B76  48E7 FFFE                 MoveM.L   D0-D7/A0-A6, -(A7)
17B7A  2C78 0262                 Move.L    (SoundPtr), A6
17B7E  4A56                      Tst       (A6)
17B80  67EE                      BEQ.B     L3960
17B82  31FC 0001 0274            Move      #$1, (SoundVBL.Count)
17B88  535E                      SubQ      #$1, (A6)+
17B8A  4CD6 3FFC                 MoveM.L   (A6), D2-D7/A0-A5
17B8E  2C78 0266                 Move.L    (SoundBase), A6
17B92  223C 00FF 0000            Move.L    #$FF0000, D1
17B98  2008                      Move.L    A0, D0
17B9A  6608                      BNE.B     L3961
17B9C  2006                      Move.L    D6, D0
17B9E  6604                      BNE.B     L3961
17BA0  2004                      Move.L    D4, D0
17BA2  675E                      BEQ.B     L3963
17BA4  DCFC 0172      L3961:     AddA      #$172, A6
17BA8  3F3C 0002                 Move      #$2, -(A7)
17BAC  3F3C 00B9                 Move      #$B9, -(A7)
17BB0  4241           L3962:     Clr       D1
17BB2  D682                      Add.L     D2, D3
17BB4  DA84                      Add.L     D4, D5
17BB6  DE86                      Add.L     D6, D7
17BB8  D3C8                      AddA.L    A0, A1
17BBA  2003                      Move.L    D3, D0
17BBC  C081                      And.L     D1, D0
17BBE  4840                      Swap      D0
17BC0  1232 0000                 Move.B    $0(A2,D0.W), D1
17BC4  2005                      Move.L    D5, D0
17BC6  C081                      And.L     D1, D0
17BC8  4840                      Swap      D0
17BCA  1033 0000                 Move.B    $0(A3,D0.W), D0
17BCE  D240                      Add       D0, D1
17BD0  2007                      Move.L    D7, D0
17BD2  C081                      And.L     D1, D0
17BD4  4840                      Swap      D0
17BD6  1034 0000                 Move.B    $0(A4,D0.W), D0
17BDA  D240                      Add       D0, D1
17BDC  2009                      Move.L    A1, D0
17BDE  C081                      And.L     D1, D0
17BE0  4840                      Swap      D0
17BE2  1035 0000                 Move.B    $0(A5,D0.W), D0
17BE6  D240                      Add       D0, D1
17BE8  E449                      LsR       #$2, D1
17BEA  1C81                      Move.B    D1, (A6)
17BEC  544E                      AddQ      #$2, A6
17BEE  5357                      SubQ      #$1, (A7)
17BF0  66BE                      BNE.B     L3962
17BF2  2C78 0266                 Move.L    (SoundBase), A6
17BF6  3EBC 00B9                 Move      #$B9, (A7)
17BFA  536F 0002                 SubQ      #$1, $2(A7)
17BFE  66B0                      BNE.B     L3962
17C00  605E                      Bra.B     L3965
17C02  DCFC 008C      L3963:     AddA      #$8C, A6
17C06  3F3C 0002                 Move      #$2, -(A7)
17C0A  3F3C 012C                 Move      #$12C, -(A7)
17C0E  2005                      Move.L    D5, D0
17C10  C081                      And.L     D1, D0
17C12  4840                      Swap      D0
17C14  1033 0000                 Move.B    $0(A3,D0.W), D0
17C18  3F00                      Move      D0, -(A7)
17C1A  2007                      Move.L    D7, D0
17C1C  C081                      And.L     D1, D0
17C1E  4840                      Swap      D0
17C20  1034 0000                 Move.B    $0(A4,D0.W), D0
17C24  D157                      Add       D0, (A7)
17C26  2009                      Move.L    A1, D0
17C28  C081                      And.L     D1, D0
17C2A  4840                      Swap      D0
17C2C  1035 0000                 Move.B    $0(A5,D0.W), D0
17C30  D157                      Add       D0, (A7)
17C32  4241           L3964:     Clr       D1
17C34  D682                      Add.L     D2, D3
17C36  2003                      Move.L    D3, D0
17C38  C081                      And.L     D1, D0
17C3A  4840                      Swap      D0
17C3C  1232 0000                 Move.B    $0(A2,D0.W), D1
17C40  D257                      Add       (A7), D1
17C42  E449                      LsR       #$2, D1
17C44  1C81                      Move.B    D1, (A6)
17C46  544E                      AddQ      #$2, A6
17C48  536F 0002                 SubQ      #$1, $2(A7)
17C4C  66E4                      BNE.B     L3964
17C4E  2C78 0266                 Move.L    (SoundBase), A6
17C52  3F7C 0046 0002            Move      #$46, $2(A7)
17C58  536F 0004                 SubQ      #$1, $4(A7)
17C5C  66D4                      BNE.B     L3964
17C5E  544F                      AddQ      #$2, A7
17C60  584F           L3965:     AddQ      #$4, A7
17C62  2C78 0262                 Move.L    (SoundPtr), A6
17C66  544E                      AddQ      #$2, A6
17C68  48D6 03FC                 MoveM.L   D2-D7/A0-A1, (A6)
17C6C  4CDF 7FFF                 MoveM.L   (A7)+, D0-D7/A0-A6
17C70  4E75           L3966:     Rts
17C72  2278 027A      L3664:     Move.L    (SoundDCE), A1
17C76  42A9 0010                 Clr.L     $10(A1)
17C7A  43FA 0006                 Lea.L     P_SoundVBL_taskFreeForm, A1
17C7E  6000 FEEC                 Bra       L3663

                      P_SoundVBL_taskFreeForm:
17C82  6170                      Bsr.B     P772
17C84  67EA                      BEQ.B     L3966
17C86  2629 0010                 Move.L    $10(A1), D3
17C8A  31FC 0001 0274            Move      #$1, (SoundVBL.Count)
17C90  2F0C                      Move.L    A4, -(A7)
17C92  2268 0020                 Move.L    $20(A0), A1
17C96  5449                      AddQ      #$2, A1
17C98  2219                      Move.L    (A1)+, D1
17C9A  2649                      Move.L    A1, A3
17C9C  D7E8 0024                 AddA.L    $24(A0), A3
17CA0  D3C0                      AddA.L    D0, A1
17CA2  2478 0266                 Move.L    (SoundBase), A2
17CA6  D4FC 0040                 AddA      #$40, A2
17CAA  49EA 02A4                 Lea.L     $2A4(A2), A4
17CAE  4267                      Clr       -(A7)
17CB0  343C 0151                 Move      #$151, D2
17CB4  7000           L3967:     MoveQ.L   #$0, D0
17CB6  1491           L3968:     Move.B    (A1), (A2)
17CB8  544A                      AddQ      #$2, A2
17CBA  D681                      Add.L     D1, D3
17CBC  4843                      Swap      D3
17CBE  D2C3                      AddA      D3, A1
17CC0  D043                      Add       D3, D0
17CC2  4243                      Clr       D3
17CC4  4843                      Swap      D3
17CC6  B7C9                      CmpA.L    A1, A3
17CC8  5FCA FFEC                 DBLE      D2, L3968
17CCC  D1A8 0028                 Add.L     D0, $28(A0)
17CD0  4A5F                      Tst       (A7)+
17CD2  673E                      BEQ.B     L3975
17CD4  4A42                      Tst       D2
17CD6  6B12                      BMI.B     L3972
17CD8  7000           L3969:     MoveQ.L   #$0, D0
17CDA  1480           L3970:     Move.B    D0, (A2)
17CDC  544A                      AddQ      #$2, A2
17CDE  B9CA                      CmpA.L    A2, A4
17CE0  6E04                      BGT.B     L3971
17CE2  2478 0266                 Move.L    (SoundBase), A2
17CE6  51CA FFF2      L3971:     DBF       D2, L3970
17CEA  2278 027A      L3972:     Move.L    (SoundDCE), A1
17CEE  2343 0010                 Move.L    D3, $10(A1)
17CF2  285F                      Move.L    (A7)+, A4
17CF4  2278 027A      P772:      Move.L    (SoundDCE), A1
17CF8  2029 0008                 Move.L    $8(A1), D0
17CFC  6710                      BEQ.B     L3973
17CFE  2040                      Move.L    D0, A0
17D00  2028 0028                 Move.L    $28(A0), D0
17D04  B0A8 0024                 Cmp.L     $24(A0), D0
17D08  6D06                      BLT.B     L3974
17D0A  6100 FE44                 Bsr       L3959
17D0E  7000           L3973:     MoveQ.L   #$0, D0
17D10  4E75           L3974:     Rts
17D12  4A42           L3975:     Tst       D2
17D14  6B06                      BMI.B     L3976
17D16  0642 0020                 Add       #$20, D2
17D1A  60BC                      Bra.B     L3969
17D1C  3F3C 0001      L3976:     Move      #$1, -(A7)
17D20  2478 0266                 Move.L    (SoundBase), A2
17D24  741F                      MoveQ.L   #$1F, D2
17D26  608C                      Bra.B     L3967
                      ; end of resource : 'DRVR' 3 '.Sound'

                      ; resource header
17D28  C000 2070                 DC.L      $C0002070       ; Length
17D2C  0000 005C                 DC.L      $0000005C       ; ?
                      ; resource : 'DRVR' 4 '.Sony'
                      ; Disk Driver
17D30  4F00                      DC.W      $4F00           ; flags
17D32  0000                      DC.W      $0000           ; number of ticks between periodic actions
17D34  0000                      DC.W      $0000           ; desk accessory event mask
17D36  0000                      DC.W      $0000           ; menu ID
17D38  006E                      DC.W      $006E           ; offset to open routine
17D3A  033A                      DC.W      $033A           ; offset to prime routine
17D3C  01E2                      DC.W      $01E2           ; offset to control routine
17D3E  02EC                      DC.W      $02EC           ; offset to status routine
17D40  0018                      DC.W      $0018           ; offset to close routine
17D42  05                        DC.B      $05             ; length of driver name
                      ; Name
17D43  2E53 6F6E 79              DC.B      '.Sony'
                      ; end of Name

                      E_Sony_Close:
17D48  70E8                      MoveQ.L   #$-18, D0
17D4A  4E75                      Rts
                      ; Jump Table
17D4C  0D44 0324 0ED6 DT77:      DC.B      ' D $  '
17D52  0F9C 11F4 09DA            DC.B      '      '
17D58  0E9E 0B0C 01CC            DC.B      '      '
17D5E  0A8E 0596 0C9E            DC.B      '      '
17D64  0878 0900 133E            DC.B      ' x   >'
                      ; Jump Table, part 2
17D6A  0BE8 1966 1F20            DC.B      '   f  '
17D70  0800 0200 4000 DT78:      DC.B      '    @ '
17D76  0800 0000 012C            DC.B      '     ,'
17D7C  05DC 0FA0 0005            DC.B      '      '
17D82  0078 0064 001E            DC.B      ' x d  '
17D88  1D4C 0000 3840            DC.B      ' L  8@'
17D8E  FC00                      DC.B      '  '
17D90  7400           P713:      MoveQ.L   #$0, D2
17D92  3418                      Move      (A0)+, D2
17D94  D480                      Add.L     D0, D2
17D96  22C2                      Move.L    D2, (A1)+
17D98  51C9 FFF6                 DBF       D1, P713
17D9C  4E75                      Rts

                      E_Sony_Open:
17D9E  203C 0000 0310            Move.L    #$310, D0
17DA4  A71E                      _NewPtrSysClear
17DA6  21C8 0134                 Move.L    A0, (SonyVars)
17DAA  2089                      Move.L    A1, (A0)
17DAC  2478 011C                 Move.L    (UTableBase), A2
17DB0  256A 0010 0004            Move.L    $10(A2), $4(A2)
17DB6  137C 0001 0007            Move.B    #$1, $7(A1)
17DBC  50E8 0019                 ST.B      $19(A0)
17DC0  2448                      Move.L    A0, A2
17DC2  41FA FF88                 Lea.L     DT77, A0
17DC6  43F8 0222                 Lea.L     (DiskVars_JFigTrkSpd), A1
17DCA  720E                      MoveQ.L   #$E, D1
17DCC  2008                      Move.L    A0, D0
17DCE  61C0                      Bsr.B     P713
17DD0  43F8 0B40                 Lea.L     (JDiskSel), A1
17DD4  7202                      MoveQ.L   #$2, D1
17DD6  61B8                      Bsr.B     P713
17DD8  50EA 0018                 ST.B      $18(A2)
17DDC  43EA 002A                 Lea.L     $2A(A2), A1
17DE0  41FA FF8E                 Lea.L     DT78, A0
17DE4  7020                      MoveQ.L   #$20, D0
17DE6  A02E                      _BlockMove
17DE8  41EA 0004                 Lea.L     $4(A2), A0
17DEC  317C 0001 0004            Move      #$1, $4(A0)
17DF2  43FA 0D4C                 Lea.L     Sony_CheckForNewDisks, A1
17DF6  2149 0006                 Move.L    A1, $6(A0)
17DFA  317C 001E 000A            Move      #$1E, $A(A0)
17E00  A033                      _VInstall
17E02  41EA 0118                 Lea.L     $118(A2), A0
17E06  A058                      _InsTime
17E08  2278 0134                 Move.L    (SonyVars), A1
17E0C  337C 0007 0012            Move      #$7, $12(A1)    ; drive number @sc
17E12  6100 0B16                 Bsr       Sony_JumpDiskSel
17E16  6100 0818                 Bsr       P720
17E1A  5AE9 00FC                 SPL.B     $FC(A1)
17E1E  7401                      MoveQ.L   #$1, D2
17E20  3342 0012      L3665:     Move      D2, $12(A1)     ; drive number @sc
17E24  6100 0786                 Bsr       Sony_SetupRegs
17E28  50F1 1004                 ST.B      $4(A1,D1.W)
17E2C  0C42 0003                 Cmp       #$3, D2
17E30  6F06                      BLE.B     L3666
17E32  4A29 00FC                 Tst.B     $FC(A1)
17E36  6B4A                      BMI.B     L3669
17E38  6100 0AF0      L3666:     Bsr       Sony_JumpDiskSel
17E3C  0C42 0003                 Cmp       #$3, D2
17E40  6D10                      BLT.B     L3667
17E42  6100 07EC                 Bsr       P720
17E46  6B3A                      BMI.B     L3669
17E48  33BC 0001 100A            Move      #$1, $A(A1,D1.W)
17E4E  76FE                      MoveQ.L   #$-2, D3
17E50  601E                      Bra.B     L3668
17E52  700D           L3667:     MoveQ.L   #$D, D0
17E54  6100 07A8                 Bsr       Sony_ReadDriveRegAdr ; read INSTALLED, 0=yes @sc
17E58  6B28                      BMI.B     L3669
17E5A  7009                      MoveQ.L   #$9, D0
17E5C  6100 07A0                 Bsr       Sony_ReadDriveRegAdr ; read SIDES, 0=single, 1=double @sc
17E60  5BF1 1005                 SMI.B     $5(A1,D1.W)
17E64  700F                      MoveQ.L   #$F, D0
17E66  6100 0796                 Bsr       Sony_ReadDriveRegAdr ; read PRESENT/HD @sc
17E6A  5BF1 1013                 SMI.B     $13(A1,D1.W)
17E6E  76FB                      MoveQ.L   #$-5, D3
17E70  13BC 0001 1004 L3668:     Move.B    #$1, $4(A1,D1.W)
17E76  3002                      Move      D2, D0
17E78  4840                      Swap      D0
17E7A  3003                      Move      D3, D0
17E7C  41F1 1006                 Lea.L     $6(A1,D1.W), A0
17E80  A04E                      _AddDrive
17E82  5242           L3669:     AddQ      #$1, D2
17E84  0C42 0006                 Cmp       #$6, D2
17E88  6F96                      BLE.B     L3665
17E8A  2478 02A6                 Move.L    (SysZone), A2
17E8E  41FA 0014                 Lea.L     DT79, A0
17E92  236A 0010 0124            Move.L    $10(A2), $124(A1)
17E98  2548 0010                 Move.L    A0, $10(A2)
17E9C  4229 0019                 Clr.B     $19(A1)
17EA0  7000                      MoveQ.L   #$0, D0
17EA2  4E75                      Rts
17EA4  2278 0134      DT79:      Move.L    (SonyVars), A1
17EA8  6114                      Bsr.B     P853
17EAA  660A                      BNE.B     L4816
17EAC  2229 0124                 Move.L    $124(A1), D1
17EB0  6704                      BEQ.B     L4816
17EB2  2041                      Move.L    D1, A0
17EB4  4ED0                      Jmp       (A0)
17EB6  205F           L4816:     Move.L    (A7)+, A0
17EB8  584F                      AddQ      #$4, A7
17EBA  2E80                      Move.L    D0, (A7)
17EBC  4ED0                      Jmp       (A0)
17EBE  42A7           P853:      Clr.L     -(A7)
17EC0  2029 010A                 Move.L    $10A(A1), D0
17EC4  6710                      BEQ.B     L4494
17EC6  2040                      Move.L    D0, A0
17EC8  A021                      _GetPtrSize
17ECA  2E80                      Move.L    D0, (A7)
17ECC  A01F                      _DisposePtr
17ECE  42A9 010A                 Clr.L     $10A(A1)
17ED2  4229 0101                 Clr.B     $101(A1)
17ED6  201F           L4494:     Move.L    (A7)+, D0
17ED8  4E75                      Rts

                      E_1116:
17EDA  4231 1003                 Clr.B     $3(A1,D1.W)
                      Sony_ReturnErrUnimplementedControl:
17EDE  70EF                      MoveQ.L   #$-11, D0
                      Sony_ReturnResult:
17EE0  4A40                      Tst       D0
17EE2  6704                      BEQ.B     L3671
17EE4  31C0 0142                 Move      D0, (DskErr)
17EE8  2278 0134      L3671:     Move.L    (SonyVars), A1
17EEC  4229 0019                 Clr.B     $19(A1)
17EF0  2251                      Move.L    (A1), A1
17EF2  2F38 08FC                 Move.L    (JIODone), -(A7)
17EF6  4E75                      Rts
                      ; odd Jump Table
                      ; series of one key word followed by two jump offsets
                      ; first offset is for status handlers, and second is for control handlers @sc
17EF8  0007 FFE2 00C6 DT166:     DC.B      '      '
17EFE  0006 1DF8 11EE            DC.B      '      '
17F04  0005 1DF4 14D6            DC.B      '      '
17F0A  0015 1DDE FFE6            DC.B      '      '
17F10  0000                      DC.B      '  '

                      E_Sony_Control:
17F12  2F38 0242                 Move.L    (DiskVars.JControl), -(A7)
17F16  4E75                      Rts

                      P_Sony_Control:
17F18  3028 001A                 Move      $1A(A0), D0     ; get the control code @sc
17F1C  0C40 0001                 Cmp       #$1, D0         ; KillIO? @sc
17F20  6604                      BNE.B     L4496
17F22  70FF                      MoveQ.L   #$-1, D0
17F24  4E75                      Rts
17F26  2278 0134      L4496:     Move.L    (SonyVars), A1
17F2A  0C40 0008                 Cmp       #$8, D0         ; set tag buffer @sc
17F2E  660A                      BNE.B     L4497
17F30  2368 001C 00F4            Move.L    $1C(A0), $F4(A1) ; get the tag data @sc
17F36  6000 00BE                 Bra       L4506
17F3A  0C40 0009      L4497:     Cmp       #$9, D0
17F3E  6646                      BNE.B     L4501
17F40  D0FC 001C                 AddA      #$1C, A0
17F44  1218                      Move.B    (A0)+, D1
17F46  1018                      Move.B    (A0)+, D0
17F48  6728                      BEQ.B     L4499
17F4A  6A06                      BPL.B     L4498
17F4C  6100 FF70                 Bsr       P853
17F50  6020                      Bra.B     L4499
17F52  4AA9 010A      L4498:     Tst.L     $10A(A1)
17F56  661A                      BNE.B     L4499
17F58  0C78 0002 0108            Cmp       #$2, (MemTop)
17F5E  6F12                      BLE.B     L4499
17F60  203C 0000 1890            Move.L    #$1890, D0
17F66  A71E                      _NewPtrSysClear
17F68  6608                      BNE.B     L4499
17F6A  2348 010A                 Move.L    A0, $10A(A1)
17F6E  4269 0102                 Clr       $102(A1)
17F72  4AA9 010A      L4499:     Tst.L     $10A(A1)
17F76  56E9 0101                 SNE.B     $101(A1)
17F7A  6706                      BEQ.B     L4500
17F7C  4A01                      Tst.B     D1
17F7E  56E9 0101                 SNE.B     $101(A1)
17F82  6000 0072      L4500:     Bra       L4506
17F86  3400           L4501:     Move      D0, D2          ; other control code @sc
17F88  6100 00B6                 Bsr       P_Sony_ChooseDriveFromPB
17F8C  6600 FF52                 BNE       Sony_ReturnResult
17F90  4A31 1004                 Tst.B     $4(A1,D1.W)
17F94  6A06                      BPL.B     L4502
17F96  70C0                      MoveQ.L   #$-40, D0       ; noDrvErr - drive isn't connected @sc
17F98  6000 FF46                 Bra       Sony_ReturnResult
17F9C  47FA FF5A      L4502:     Lea.L     DT166, A3
17FA0  284B                      Move.L    A3, A4
17FA2  381C           L4503:     Move      (A4)+, D4       ; use jump table to find the control handler @sc
17FA4  6700 FF38                 BEQ       Sony_ReturnErrUnimplementedControl
17FA8  B444                      Cmp       D4, D2
17FAA  6704                      BEQ.B     L4504
17FAC  584C                      AddQ      #$4, A4
17FAE  60F2                      Bra.B     L4503
17FB0  0C69 0002 0012 L4504:     Cmp       #$2, $12(A1)    ; drive number @sc
17FB6  6E02                      BGT.B     L4505
17FB8  544C                      AddQ      #$2, A4
17FBA  D6D4           L4505:     AddA      (A4), A3
17FBC  4ED3                      Jmp       (A3)

                      Sony_EjectOrSwitchDisk:
17FBE  6100 0882                 Bsr       Sony_CheckDriveNumber
17FC2  7000                      MoveQ.L   #$0, D0
17FC4  6100 0922                 Bsr       Sony_MotorOff
17FC8  6100 0960                 Bsr       Sony_JumpDiskSel
17FCC  303C 07D0                 Move      #$7D0, D0       ; amount of time to wait - in tenths of milliseconds (200.0 ms) @sc
17FD0  6100 0802                 Bsr       E_Sony_WakeUp   ; continue below after timer delay @sc
17FD4  700D                      MoveQ.L   #$D, D0
17FD6  6100 05EC                 Bsr       P_Sony_AdrDisk  ; write EJECT @sc
17FDA  4A28 0E00                 Tst.B     $E00(A0)        ; LSTRB on @sc
17FDE  4A31 1013                 Tst.B     $13(A1,D1.W)    ; needs to wait for a replacement disk? @sc
17FE2  6B18                      BMI.B     L4915
17FE4  3029 0042                 Move      $42(A1), D0
17FE8  6100 07EA                 Bsr       E_Sony_WakeUp   ; continue below after timer delay @sc
17FEC  4A28 0C00                 Tst.B     $C00(A0)        ; LSTRB off @sc
17FF0  13A9 0048 1003 L4914:     Move.B    $48(A1), $3(A1,D1.W)
17FF6  7000           L4506:     MoveQ.L   #$0, D0
17FF8  6000 FEE6                 Bra       Sony_ReturnResult
17FFC  4A28 0C00      L4915:     Tst.B     $C00(A0)        ; LSTRB off @sc
18000  760F                      MoveQ.L   #$F, D3
18002  303C 03E8      L4916:     Move      #$3E8, D0
18006  6100 07CC                 Bsr       E_Sony_WakeUp
1800A  7002                      MoveQ.L   #$2, D0
1800C  6100 05F0                 Bsr       Sony_ReadDriveRegAdr ; read CSTIN, 0 = disk inserted @sc
18010  5BCB FFF0                 DBMI      D3, L4916       ; wait for a disk to be inserted @sc
18014  700A                      MoveQ.L   #$A, D0
18016  6100 07BC                 Bsr       E_Sony_WakeUp
1801A  60D4                      Bra.B     L4914

                      E_Sony_Status:
1801C  70EE                      MoveQ.L   #$-12, D0
1801E  0C68 0008 001A            Cmp       #$8, $1A(A0)
18024  6600 FEBA                 BNE       Sony_ReturnResult
18028  6116                      Bsr.B     P_Sony_ChooseDriveFromPB
1802A  6600 FEB4                 BNE       Sony_ReturnResult
1802E  41E8 001C                 Lea.L     $1C(A0), A0
18032  700B                      MoveQ.L   #$B, D0
18034  D2C1                      AddA      D1, A1
18036  30D9           L3672:     Move      (A1)+, (A0)+
18038  5340                      SubQ      #$1, D0
1803A  6EFA                      BGT.B     L3672
1803C  6000 FEA2                 Bra       Sony_ReturnResult
                      P_Sony_ChooseDriveFromPB:
18040  2278 0134                 Move.L    (SonyVars), A1
18044  50E9 0019                 ST.B      $19(A1)
18048  3028 0016                 Move      $16(A0), D0     ; get drive number from PB @sc
1804C  6718                      BEQ.B     L3673
1804E  0C40 0006                 Cmp       #$6, D0
18052  6E12                      BGT.B     L3673
18054  3369 0012 0112            Move      $12(A1), $112(A1) ; drive number @sc
1805A  3340 0012                 Move      D0, $12(A1)     ; drive number @sc
1805E  6100 0554                 Bsr       Sony_SetupSonyVars
18062  7000                      MoveQ.L   #$0, D0
18064  4E75                      Rts
18066  70C8           L3673:     MoveQ.L   #$-38, D0       ; nsDrvErr - no such drive @sc
18068  4E75                      Rts

                      E_Sony_Prime:
1806A  2F38 0226                 Move.L    (DiskVars.JDiskPrime), -(A7)
1806E  4E75                      Rts

                      P_Sony_DiskPrime:
                      ; read or write, A0 points to IO param block @sc
18070  007C 0100                 Or        #$100, SR
18074  3628 0006                 Move      $6(A0), D3      ; read/write check? ioTrap: 2=read, 3=write @sc
18078  0828 0006 002D            BTst.B    #$6, $2D(A0)
1807E  56F8 012C                 SNE.B     (DskVerify)
18082  61BC                      Bsr.B     P_Sony_ChooseDriveFromPB
18084  6600 0082                 BNE       L4512           ; return @sc
18088  3343 0032                 Move      D3, $32(A1)     ; save read/write flag? @sc
1808C  70C0                      MoveQ.L   #$-40, D0
1808E  4A31 1004                 Tst.B     $4(A1,D1.W)     ; drive installed? @sc
18092  6B74                      BMI.B     L4512
18094  6100 0894                 Bsr       Sony_JumpDiskSel
18098  0C69 0002 0012            Cmp       #$2, $12(A1)    ; drive number @sc
1809E  6E00 1436                 BGT       L4702
180A2  7002                      MoveQ.L   #$2, D0
180A4  6100 0558                 Bsr       Sony_ReadDriveRegAdr ; read CSTIN, 0 = disk inserted @sc
180A8  6A0C                      BPL.B     L4507
180AA  4231 1003                 Clr.B     $3(A1,D1.W)     ; disk inserted=0:no disk @sc
180AE  4A28 1000                 Tst.B     $1000(A0)
180B2  70BF                      MoveQ.L   #$-41, D0       ; offLinErr - no disk in drive @sc
180B4  6052                      Bra.B     L4512           ; return @sc
180B6  0C31 0002 1003 L4507:     Cmp.B     #$2, $3(A1,D1.W) ; disk inserted==2:MacOS Read? @sc
180BC  6724                      BEQ.B     L4508
180BE  6100 0846                 Bsr       Sony_MotorOn1
180C2  6100 078E                 Bsr       E_Sony_Recal
180C6  6B34                      BMI.B     L4510
180C8  6100 091A                 Bsr       E_Sony_MakeSpdTbl
180CC  662E                      BNE.B     L4510
180CE  7006                      MoveQ.L   #$6, D0
180D0  6100 052C                 Bsr       Sony_ReadDriveRegAdr ; read WRTPRT, 0 = locked @sc
180D4  5AF1 1002                 SPL.B     $2(A1,D1.W)     ; write protect=FF @sc
180D8  13BC 0002 1003            Move.B    #$2, $3(A1,D1.W) ; disk inserted=MacOS Read @sc
180DE  4231 1012                 Clr.B     $12(A1,D1.W)    ; disk format=0:single sided @sc
180E2  6100 0420      L4508:     Bsr       P856
180E6  6728                      BEQ.B     L4513
180E8  3378 0302 0026            Move      (BufTgFBkNum), $26(A1)
180EE  4A31 1002                 Tst.B     $2(A1,D1.W)     ; disk inserted? 0==no disk @sc
180F2  6A1C                      BPL.B     L4513
180F4  70D4                      MoveQ.L   #$-2C, D0
180F6  3429 003A      L4509:     Move      $3A(A1), D2
180FA  6002                      Bra.B     L4511
180FC  7400           L4510:     MoveQ.L   #$0, D2
180FE  3F00           L4511:     Move      D0, -(A7)
18100  3002                      Move      D2, D0
18102  6100 07E4                 Bsr       Sony_MotorOff
18106  301F                      Move      (A7)+, D0
18108  027C F8FF      L4512:     And       #$-701, SR
1810C  6000 FDD2                 Bra       Sony_ReturnResult
18110  3C31 1000      L4513:     Move      $0(A1,D1.W), D6 ; get current track @sc
18114  6100 0536                 Bsr       P_Sony_SetSpeed
18118  6100 07F0                 Bsr       Sony_MotorOn2
1811C  2451           L4514:     Move.L    (A1), A2
1811E  206A 0008                 Move.L    $8(A2), A0
18122  202A 0010                 Move.L    $10(A2), D0     ; the offset, after adjusting for the positioning mode @sc
18126  7E09                      MoveQ.L   #$9, D7
18128  EEA8                      LsR.L     D7, D0          ; divide by 512 to get sector number @sc
1812A  7800                      MoveQ.L   #$0, D4
1812C  4A31 1012                 Tst.B     $12(A1,D1.W)    ; disk format? 0==single sided @sc
18130  6702                      BEQ.B     L4515
18132  7801                      MoveQ.L   #$1, D4
18134  7464           L4515:     MoveQ.L   #$64, D2
18136  E74A                      LsL       #$3, D2
18138  E96A                      LsL       D4, D2          ; number of sectors on a disk: 800 for 400K, 1600 for 800K @sc
1813A  B082                      Cmp.L     D2, D0
1813C  6D04                      BLT.B     L4518
1813E  70CE           L4516:     MoveQ.L   #$-32, D0
18140  60B4           L4517:     Bra.B     L4509           ; return error -50 = bad positioning information @sc
                      ; determine which of the five 'speed bands' the desired sector is in @sc
18142  7607           L4518:     MoveQ.L   #$7, D3
18144  E94B                      LsL       #$4, D3
18146  E96B                      LsL       D4, D3
18148  7A10                      MoveQ.L   #$10, D5
1814A  E96D                      LsL       D4, D5
1814C  D645           L4519:     Add       D5, D3
1814E  9483                      Sub.L     D3, D2
18150  B082                      Cmp.L     D2, D0
18152  6DF8                      BLT.B     L4519
18154  E84B                      LsR       #$4, D3
18156  7AFF                      MoveQ.L   #$-1, D5
18158  D443           L4520:     Add       D3, D2
1815A  5245                      AddQ      #$1, D5
1815C  B042                      Cmp       D2, D0
1815E  6CF8                      BGE.B     L4520
18160  E86B                      LsR       D4, D3
18162  7C0C                      MoveQ.L   #$C, D6
18164  9C43                      Sub       D3, D6
18166  E94E                      LsL       #$4, D6
18168  DA46                      Add       D6, D5
1816A  2C04                      Move.L    D4, D6          ; D6 = side number: 0 for 400K, 1 for 800K @sc
1816C  9443                      Sub       D3, D2          ; D2 = starting sector number for side 1 of track @sc
1816E  B082                      Cmp.L     D2, D0
18170  6C04                      BGE.B     L4521
18172  9443                      Sub       D3, D2          ; D2 = starting sector number for side 0 of track @sc
18174  7C00                      MoveQ.L   #$0, D6         ; D6 = side 0 @sc
18176  4A06           L4521:     Tst.B     D6
18178  670E                      BEQ.B     L4522
1817A  08C5 000B                 BSet.B    #$B, D5
1817E  4A31 1005                 Tst.B     $5(A1,D1.W)     ; drive sides? 00=single sided @sc
18182  6604                      BNE.B     L4522
18184  70B2                      MoveQ.L   #$-4E, D0       ; return error -78, tried to read side two of a single-sided drive @sc
18186  60B8                      Bra.B     L4517
18188  3345 0016      L4522:     Move      D5, $16(A1)
1818C  9042                      Sub       D2, D0          ; D0 = offset of desired sector in side of track @sc
1818E  9640                      Sub       D0, D3
18190  3340 0020                 Move      D0, $20(A1)
18194  2A28 0024                 Move.L    $24(A0), D5     ; get requested number of bytes @sc
18198  2428 0028                 Move.L    $28(A0), D2     ; get actual number of bytes processed so far @sc
1819C  9A82                      Sub.L     D2, D5
1819E  EEAD                      LsR.L     D7, D5          ; divide by 512 to get number of sectors needed @sc
181A0  679C                      BEQ.B     L4516           ; return error -50 = bad positioning information @sc
181A2  B645                      Cmp       D5, D3
181A4  5DC6                      SLT.B     D6
181A6  6F02                      BLE.B     L4523
181A8  3605                      Move      D5, D3          ; D3 = number of sectors to read from this track @sc
181AA  7A00           L4523:     MoveQ.L   #$0, D5
181AC  3800                      Move      D0, D4          ; D4 = offset of desired sector in side of track @sc
181AE  3F03                      Move      D3, -(A7)
181B0  01C5           L4524:     BSet.L    D0, D5          ; D5 = bitmask of desired sectors @sc
181B2  5240                      AddQ      #$1, D0
181B4  5343                      SubQ      #$1, D3
181B6  66F8                      BNE.B     L4524
181B8  361F                      Move      (A7)+, D3
181BA  2345 0022                 Move.L    D5, $22(A1)     ; store the bitmask of desired sectors @sc
181BE  2668 0020                 Move.L    $20(A0), A3     ; A3 = pointer to data buffer @sc
181C2  D7C2                      AddA.L    D2, A3          ; offset by actual number of bytes processed so far @sc
181C4  234B 001C                 Move.L    A3, $1C(A1)     ; store pointer to data buffer @sc
181C8  EEAA                      LsR.L     D7, D2          ; divide by 512 @sc
181CA  3342 0028                 Move      D2, $28(A1)     ; store actual number of sectors processed so far @sc
181CE  1369 002C 002D            Move.B    $2C(A1), $2D(A1)
181D4  4229 0100                 Clr.B     $100(A1)
181D8  6100 032A                 Bsr       P856            ; perform the actual read/write? @sc
181DC  6716                      BEQ.B     L4526
181DE  6100 00DC                 Bsr       P855
181E2  660C                      BNE.B     L4525
181E4  2005                      Move.L    D5, D0          ; D0 = bitmask of desired sectors @sc
181E6  4680                      Not.L     D0
181E8  C1A9 0106                 And.L     D0, $106(A1)
181EC  6100 00B4                 Bsr       P854
181F0  6000 00EA      L4525:     Bra       E_Sony_ReSeek
181F4  4A38 012C      L4526:     Tst.B     (DskVerify)
181F8  66F6                      BNE.B     L4525
181FA  6100 00C0                 Bsr       P855
181FE  6600 008C                 BNE       L4532
18202  2405                      Move.L    D5, D2          ; D2 = bitmask of desired sectors @sc
18204  C4A9 0106                 And.L     $106(A1), D2    ; clear the sector mask for the successful sectors?? @sc
18208  677E                      BEQ.B     L4531
1820A  7E02                      MoveQ.L   #$2, D7
1820C  E187                      AsL.L     #$8, D7
1820E  3004                      Move      D4, D0          ; offset of desired sector in track @sc
18210  C0FC 020C                 MulU      #$20C, D0       ; multiply by 524: number of bytes per sector, including tags @sc
18214  2869 010A                 Move.L    $10A(A1), A4
18218  D8C0                      AddA      D0, A4          ; A4 = pointer to the sector data? @sc
1821A  0902           L4527:     BTst.L    D4, D2
1821C  6744                      BEQ.B     L4530           ; should we read this sector? @sc
1821E  0985                      BClr.L    D4, D5          ; clear sector mask @sc
18220  48E7 00C0                 MoveM.L   A0-A1, -(A7)
18224  4AA9 00F4                 Tst.L     $F4(A1)         ; do we have a pointer to another tag buffer? @sc
18228  6716                      BEQ.B     L4528
1822A  3004                      Move      D4, D0
1822C  9069 0020                 Sub       $20(A1), D0
18230  D069 0028                 Add       $28(A1), D0
18234  C0FC 000C                 MulU      #$C, D0         ; multiply by 12 - size of tags @sc
18238  2269 00F4                 Move.L    $F4(A1), A1
1823C  D3C0                      AddA.L    D0, A1
1823E  6004                      Bra.B     L4529
18240  43F8 02FC      L4528:     Lea.L     (BufTgFNum), A1
18244  204C           L4529:     Move.L    A4, A0
18246  22D8                      Move.L    (A0)+, (A1)+
18248  22D8                      Move.L    (A0)+, (A1)+
1824A  22D8                      Move.L    (A0)+, (A1)+
1824C  224B                      Move.L    A3, A1
1824E  2007                      Move.L    D7, D0
18250  A02E                      _BlockMove                ; move 512 bytes from A0 to A1 (user's data buffer) @sc
18252  4CDF 0300                 MoveM.L   (A7)+, A0-A1
18256  5269 0110                 AddQ      #$1, $110(A1)   ; $110(A1) = number of sectors processed? @sc
1825A  DFAA 0010                 Add.L     D7, $10(A2)     ; offset the current disk driver position? @sc
1825E  DFA8 0028                 Add.L     D7, $28(A0)     ; increase ioActCount by number of bytes processed @sc
18262  D7C7           L4530:     AddA.L    D7, A3          ; offset destination buffer pointer @sc
18264  D9C7                      AddA.L    D7, A4          ; offset disk driver buffer pointer @sc
18266  D8FC 000C                 AddA      #$C, A4         ;   by an extra 12, for tags @sc
1826A  5244                      AddQ      #$1, D4         ; increment current sector in track @sc
1826C  5343                      SubQ      #$1, D3         ; decrement number of sectors to read in this track @sc
1826E  66AA                      BNE.B     L4527
18270  2345 0022                 Move.L    D5, $22(A1)     ; save sector mask @sc
18274  6612                      BNE.B     L4531           ; must wrap around? @sc
18276  2028 0028                 Move.L    $28(A0), D0     ; get actual number of bytes @sc
1827A  B0A8 0024                 Cmp.L     $24(A0), D0     ; compared to desired number of bytes @sc
1827E  6D00 FE9C                 BLT       L4514           ; process the remaining tracks? @sc
18282  7000                      MoveQ.L   #$0, D0         ; success! @sc
18284  6000 FE70                 Bra       L4509           ; turn off drive motor, and return the result @sc
18288  6118           L4531:     Bsr.B     P854
1828A  6050                      Bra.B     E_Sony_ReSeek
1828C  6114           L4532:     Bsr.B     P854
1828E  664C                      BNE.B     E_Sony_ReSeek
18290  3369 0012 0102            Move      $12(A1), $102(A1) ; drive number @sc
18296  3369 0016 0104            Move      $16(A1), $104(A1) ; sector/track/side/something number? @sc
1829C  42A9 0106                 Clr.L     $106(A1)
182A0  603A                      Bra.B     E_Sony_ReSeek
                      ; check that we're at the right sector?? @sc
182A2  4A29 0101      P854:      Tst.B     $101(A1)
182A6  6710                      BEQ.B     L4534
182A8  0829 000A 0032            BTst.B    #$A, $32(A1)
182AE  6602                      BNE.B     L4533
182B0  4A06                      Tst.B     D6
182B2  57E9 0100      L4533:     SEQ.B     $100(A1)
182B6  4E75                      Rts
182B8  7C01           L4534:     MoveQ.L   #$1, D6
182BA  60F6                      Bra.B     L4533
                      ; check that we're at the right track?? @sc
182BC  4A29 0101      P855:      Tst.B     $101(A1)
182C0  6716                      BEQ.B     L4535
182C2  3029 0102                 Move      $102(A1), D0
182C6  6710                      BEQ.B     L4535
182C8  B069 0012                 Cmp       $12(A1), D0     ; drive number @sc
182CC  660A                      BNE.B     L4535
182CE  3029 0016                 Move      $16(A1), D0
182D2  9069 0104                 Sub       $104(A1), D0
182D6  6702                      BEQ.B     L4536
182D8  70FF           L4535:     MoveQ.L   #$-1, D0
182DA  4E75           L4536:     Rts

                      E_Sony_ReSeek:
182DC  2F38 024A                 Move.L    (DiskVars.JReSeek), -(A7)
182E0  4E75                      Rts

                      P_Sony_ReSeek:
182E2  1369 0030 0031            Move.B    $30(A1), $31(A1)
182E8  3C29 0016      L4817:     Move      $16(A1), D6
182EC  6100 042A                 Bsr       E_Sony_Seek
182F0  6B5C                      BMI.B     L4539
182F2  1369 002A 002B            Move.B    $2A(A1), $2B(A1)
182F8  E84E                      LsR       #$4, D6
182FA  E74E                      LsL       #$3, D6
182FC  45F1 101A                 Lea.L     $1A(A1,D1.W), A2
18300  45F2 6004                 Lea.L     $4(A2,D6.W), A2
18304  2438 016A                 Move.L    (Ticks), D2
18308  2012                      Move.L    (A2), D0
1830A  670A                      BEQ.B     L4538
1830C  9082                      Sub.L     D2, D0
1830E  4480                      Neg.L     D0
18310  B0A9 0044                 Cmp.L     $44(A1), D0
18314  6D3C                      BLT.B     L4540
18316  2482           L4538:     Move.L    D2, (A2)
18318  47FA 0006                 Lea.L     DT167, A3
1831C  6000 074E                 Bra       L4614
18320  6B2C           DT167:     BMI.B     L4539
18322  3022                      Move      -(A2), D0
18324  41FA 06AA                 Lea.L     DT_Sony_SpeedCheckTbl, A0
18328  E24E                      LsR       #$1, D6
1832A  D0C6                      AddA      D6, A0
1832C  B858                      Cmp       (A0)+, D4
1832E  6E06                      BGT.B     L4818
18330  4440                      Neg       D0
18332  B850                      Cmp       (A0), D4
18334  6E1C                      BGT.B     L4540
18336  4A31 1013      L4818:     Tst.B     $13(A1,D1.W)    ; interface? $FF=800K @sc
1833A  6B06                      BMI.B     L4819
1833C  9162                      Sub       D0, -(A2)
1833E  42AA 0004                 Clr.L     $4(A2)
18342  5271 1018      L4819:     AddQ      #$1, $18(A1,D1.W)
18346  5329 0031                 SubQ      #$1, $31(A1)
1834A  6A9C                      BPL.B     L4817
1834C  70B1                      MoveQ.L   #$-4F, D0       ; error -79, can't adjust disk speed @sc
1834E  6000 0232      L4539:     Bra       L4559
18352  1369 002E 002F L4540:     Move.B    $2E(A1), $2F(A1)
18358  3C01           L4541:     Move      D1, D6
1835A  6100 08A8                 Bsr       P879
1835E  6B00 01DA                 BMI       L4555
18362  B269 0016                 Cmp       $16(A1), D1
18366  6600 0216                 BNE       L4558
1836A  3342 00FE                 Move      D2, $FE(A1)
1836E  31C2 02FA                 Move      D2, (TagData)
18372  2029 0022                 Move.L    $22(A1), D0
18376  0500                      BTst.L    D2, D0
18378  6600 0090                 BNE       L4545
1837C  4A29 0100                 Tst.B     $100(A1)
18380  6700 01DA                 BEQ       L4557           ; can't find sector??? @sc
18384  2029 0106                 Move.L    $106(A1), D0
18388  0500                      BTst.L    D2, D0
1838A  6600 01D0                 BNE       L4557
1838E  41FA 0958                 Lea.L     P_Sony_RdData, A0
18392  B1F8 022E                 CmpA.L    (DiskVars.JRdData), A0
18396  56E9 0100                 SNE.B     $100(A1)
1839A  6600 01C0                 BNE       L4557
1839E  3202                      Move      D2, D1
183A0  C4FC 020C                 MulU      #$20C, D2
183A4  2069 010A                 Move.L    $10A(A1), A0
183A8  D1C2                      AddA.L    D2, A0
183AA  D0FC 000C                 AddA      #$C, A0
183AE  6100 092E                 Bsr       E_Sony_RdData
183B2  2278 0134                 Move.L    (SonyVars), A1
183B6  5AE9 0100                 SPL.B     $100(A1)
183BA  6B28                      BMI.B     L4542
183BC  5269 010E                 AddQ      #$1, $10E(A1)
183C0  3429 00FE                 Move      $FE(A1), D2
183C4  2069 010A                 Move.L    $10A(A1), A0
183C8  3202                      Move      D2, D1
183CA  C2FC 020C                 MulU      #$20C, D1
183CE  D1C1                      AddA.L    D1, A0
183D0  45F8 02FC                 Lea.L     (BufTgFNum), A2
183D4  20DA                      Move.L    (A2)+, (A0)+
183D6  20DA                      Move.L    (A2)+, (A0)+
183D8  20DA                      Move.L    (A2)+, (A0)+
183DA  2829 0106                 Move.L    $106(A1), D4
183DE  05C4                      BSet.L    D2, D4
183E0  2344 0106                 Move.L    D4, $106(A1)
183E4  08F8 0007 015F L4542:     BSet.B    #$7, (IntFlag)
183EA  6612                      BNE.B     L4543
183EC  3029 003E                 Move      $3E(A1), D0
183F0  6100 03FC                 Bsr       P867
183F4  6100 0116                 Bsr       P857
183F8  6100 03E2                 Bsr       P866
183FC  6008                      Bra.B     L4544
183FE  6100 010C      L4543:     Bsr       P857
18402  027C F8FF                 And       #$-701, SR
18406  6000 FF4A      L4544:     Bra       L4540
1840A  0C03 001F      L4545:     Cmp.B     #$1F, D3
1840E  5EF1 6012                 SGT.B     $12(A1,D6.W)
18412  9469 0020                 Sub       $20(A1), D2
18416  3202                      Move      D2, D1
18418  E181                      AsL.L     #$8, D1
1841A  D281                      Add.L     D1, D1
1841C  D2A9 001C                 Add.L     $1C(A1), D1
18420  2041                      Move.L    D1, A0
18422  3229 0028                 Move      $28(A1), D1
18426  D242                      Add       D2, D1
18428  3001                      Move      D1, D0
1842A  D241                      Add       D1, D1
1842C  D240                      Add       D0, D1
1842E  E541                      AsL       #$2, D1
18430  3341 00F8                 Move      D1, $F8(A1)
18434  6100 00CE                 Bsr       P856
18438  6728                      BEQ.B     L4548
1843A  2629 00F4                 Move.L    $F4(A1), D3
1843E  6710                      BEQ.B     L4546
18440  2243                      Move.L    D3, A1
18442  D2C1                      AddA      D1, A1
18444  45F8 02FC                 Lea.L     (BufTgFNum), A2
18448  24D9                      Move.L    (A1)+, (A2)+
1844A  24D9                      Move.L    (A1)+, (A2)+
1844C  24D9                      Move.L    (A1)+, (A2)+
1844E  6008                      Bra.B     L4547
18450  D069 0026      L4546:     Add       $26(A1), D0
18454  31C0 0302                 Move      D0, (BufTgFBkNum)
18458  6100 0ADC      L4547:     Bsr       E_Sony_WrData
1845C  6B00 00DC                 BMI       L4555
18460  6022                      Bra.B     L4549
18462  6100 087A      L4548:     Bsr       E_Sony_RdData
18466  6B00 00D2                 BMI       L4555
1846A  2278 0134                 Move.L    (SonyVars), A1
1846E  2029 00F4                 Move.L    $F4(A1), D0
18472  6710                      BEQ.B     L4549
18474  2040                      Move.L    D0, A0
18476  D0E9 00F8                 AddA      $F8(A1), A0
1847A  45F8 02FC                 Lea.L     (BufTgFNum), A2
1847E  20DA                      Move.L    (A2)+, (A0)+
18480  20DA                      Move.L    (A2)+, (A0)+
18482  20DA                      Move.L    (A2)+, (A0)+
18484  6100 012E      L4549:     Bsr       Sony_SetupSonyVars
18488  2829 0022                 Move.L    $22(A1), D4
1848C  3429 00FE                 Move      $FE(A1), D2
18490  0584                      BClr.L    D2, D4
18492  2344 0022                 Move.L    D4, $22(A1)
18496  2451                      Move.L    (A1), A2
18498  206A 0008                 Move.L    $8(A2), A0
1849C  7602                      MoveQ.L   #$2, D3
1849E  E183                      AsL.L     #$8, D3
184A0  D7AA 0010                 Add.L     D3, $10(A2)
184A4  D7A8 0028                 Add.L     D3, $28(A0)
184A8  2628 0024                 Move.L    $24(A0), D3
184AC  96A8 0028                 Sub.L     $28(A0), D3
184B0  08F8 0007 015F            BSet.B    #$7, (IntFlag)
184B6  6714                      BEQ.B     L4550
184B8  614A                      Bsr.B     P856
184BA  6722                      BEQ.B     L4551
184BC  4A84                      Tst.L     D4
184BE  660C                      BNE.B     L4550
184C0  6100 004A                 Bsr       P857
184C4  7007                      MoveQ.L   #$7, D0
184C6  6100 030C                 Bsr       E_Sony_WakeUp
184CA  601A                      Bra.B     L4552
184CC  3029 003E      L4550:     Move      $3E(A1), D0
184D0  6100 031C                 Bsr       P867
184D4  6100 0036                 Bsr       P857
184D8  6100 0302                 Bsr       P866
184DC  6008                      Bra.B     L4552
184DE  6100 002C      L4551:     Bsr       P857
184E2  027C F8FF                 And       #$-701, SR
184E6  2004           L4552:     Move.L    D4, D0
184E8  6600 FE68                 BNE       L4540
184EC  4A83                      Tst.L     D3
184EE  6E00 FC2C                 BGT       L4514
184F2  4A31 1012                 Tst.B     $12(A1,D1.W)    ; disk format? 00=single side @sc
184F6  6708                      BEQ.B     L4553
184F8  4A31 1005                 Tst.B     $5(A1,D1.W)     ; drive sides? 00=single side @sc
184FC  6602                      BNE.B     L4553
184FE  70B2                      MoveQ.L   #$-4E, D0       ; error -78, tried to read side two of a single-sided drive @sc
18500  6000 FBF4      L4553:     Bra       L4509

                      P856:
                      ; perform a disk read or write?? @sc
18504  0C29 0002 0033            Cmp.B     #$2, $33(A1)
1850A  4E75                      Rts

                      P857:
1850C  285F                      Move.L    (A7)+, A4
1850E  487A 0014                 Pea.L     DT168
18512  2F38 013E                 Move.L    (PollProc), -(A7)
18516  6718                      BEQ.B     L4554
18518  2278 0134                 Move.L    (SonyVars), A1
1851C  48E9 110D 00D0            MoveM.L   D0/D2-D3/A0/A4, $D0(A1)
18522  4E75                      Rts

                      DT168:
18524  6100 008E                 Bsr       Sony_SetupSonyVars
18528  4CE9 110D 00D0            MoveM.L   $D0(A1), D0/D2-D3/A0/A4
1852E  4ED4                      Jmp       (A4)

                      L4554:
18530  2E78 013A                 Move.L    (PollStack), A7
18534  6100 007E                 Bsr       Sony_SetupSonyVars
18538  4ED4                      Jmp       (A4)

                      L4555:
                      ; Disk error? @sc
1853A  61D0                      Bsr.B     P857
1853C  027C F8FF                 And       #$-701, SR
18540  5269 00FA                 AddQ      #$1, $FA(A1)
18544  5271 1014                 AddQ      #$1, $14(A1,D1.W) ; increment drive error count @sc
18548  4A29 002D                 Tst.B     $2D(A1)
1854C  6704                      BEQ.B     L4556
1854E  61B4                      Bsr.B     P856
18550  6630                      BNE.B     L4559
18552  5329 002B      L4556:     SubQ      #$1, $2B(A1)
18556  6A00 FDFA                 BPL       L4540
1855A  6026                      Bra.B     L4559
1855C  2278 0134      L4557:     Move.L    (SonyVars), A1
18560  3029 003E                 Move      $3E(A1), D0
18564  6100 0288                 Bsr       P867
18568  61A2                      Bsr.B     P857
1856A  6100 0270                 Bsr       P866
1856E  52B8 0156                 AddQ      #$1, (RndSeed)
18572  70AF                      MoveQ.L   #$-51, D0       ; error -81, can't find sector @sc
18574  5329 002F                 SubQ      #$1, $2F(A1)
18578  6B08                      BMI.B     L4559
1857A  6000 FDDC                 Bra       L4541
1857E  618C           L4558:     Bsr.B     P857
18580  70B0                      MoveQ.L   #$-50, D0       ; error -80, drive seek error @sc
18582  027C F8FF      L4559:     And       #$-701, SR
18586  5329 002D                 SubQ      #$1, $2D(A1)
1858A  6F0E                      BLE.B     L4560
1858C  6100 02C4                 Bsr       E_Sony_Recal
18590  6B08                      BMI.B     L4560
18592  6100 0450                 Bsr       E_Sony_MakeSpdTbl
18596  6A00 FD44                 BPL       E_Sony_ReSeek
1859A  6000 FF64      L4560:     Bra       L4553
DT80 = . - $2

1859E  004A 008C 0128            DC.B      ' J   ('
185A4  0144 0160 017C            DC.B      ' D ` |'
185AA  017C                      DC.B      ' |'
                      Sony_SetupRegs:
185AC  2078 01E0                 Move.L    (IWM), A0
185B0  2478 01D4                 Move.L    (VIA), A2
                      Sony_SetupSonyVars:
185B4  2278 0134                 Move.L    (SonyVars), A1
185B8  3229 0012                 Move      $12(A1), D1     ; drive number @sc
185BC  D241                      Add       D1, D1
185BE  323B 10DC                 Move      DT80(D1.W), D1
185C2  4E75                      Rts

                      P_Sony_AdrDisk:
                      ; disk register to select in D0 @sc
                      ; {CA1,CA0,SEL,CA2} <= D0
185C4  61E6                      Bsr.B     Sony_SetupRegs
185C6  4A28 0200                 Tst.B     $200(A0)        ; CA0 on @sc
185CA  4A28 0600                 Tst.B     $600(A0)        ; CA1 on @sc
185CE  E208                      LsR.B     #$1, D0
185D0  6406                      BCC.B     L3674
185D2  4A28 0A00                 Tst.B     $A00(A0)        ; CA2 on @sc
185D6  6004                      Bra.B     L3675
185D8  4A28 0800      L3674:     Tst.B     $800(A0)        ; CA2 off @sc
185DC  E208           L3675:     LsR.B     #$1, D0
185DE  6408                      BCC.B     L3676
185E0  08EA 0005 1E00            BSet.B    #$5, $1E00(A2)  ; SEL on @sc
185E6  6006                      Bra.B     L3677
185E8  08AA 0005 1E00 L3676:     BClr.B    #$5, $1E00(A2)  ; SEL off @sc
185EE  E208           L3677:     LsR.B     #$1, D0
185F0  6502                      BCS.B     L3678
185F2  4A10                      Tst.B     (A0)            ; CA0 off @sc
185F4  E208           L3678:     LsR.B     #$1, D0
185F6  6504                      BCS.B     L3679
185F8  4A28 0400                 Tst.B     $400(A0)        ; CA1 off @sc
185FC  4E75           L3679:     Rts

                      Sony_ReadDriveRegAdr:
                      ; read the drive register whose address is in D0 @sc
185FE  61C4                      Bsr.B     P_Sony_AdrDisk

                      Sony_ReadDriveReg:
18600  40E7                      Move      SR, -(A7)
18602  007C 0300                 Or        #$300, SR
18606  4A28 1A00                 Tst.B     $1A00(A0)       ; Q6 on @sc
1860A  1028 1C00                 Move.B    $1C00(A0), D0   ; Q7 off, read IWM status, drive register data is in bit 7 @sc
1860E  4A28 1800                 Tst.B     $1800(A0)       ; Q6 off @sc
18612  46DF                      Move      (A7)+, SR
18614  4A00                      Tst.B     D0
18616  4E75                      Rts

                      Sony_WriteDriveRegAdr:
                      ; write to a drive register @sc
                      ; register address is in D0[3:1] @sc
                      ; value to write is in D0[0] @sc
18618  61AA                      Bsr.B     P_Sony_AdrDisk
                      Sony_WriteDriveReg:
1861A  40E7                      Move      SR, -(A7)
1861C  007C 0300                 Or        #$300, SR
18620  4A28 0E00                 Tst.B     $E00(A0)        ; LSTRB on @sc
18624  4E71                      Nop
18626  4E71                      Nop
18628  4A28 0C00                 Tst.B     $C00(A0)        ; LSTRB off @sc
1862C  46DF                      Move      (A7)+, SR
1862E  4E75                      Rts

                      P720:
                      ; special handler for drive numbers 3 and above @sc
18630  700D                      MoveQ.L   #$D, D0
18632  61CA                      Bsr.B     Sony_ReadDriveRegAdr ; read INSTALLED, 0 = yes @sc
18634  6A12                      BPL.B     L3680
18636  4A10                      Tst.B     (A0)            ; CA0 off @sc
18638  61C6                      Bsr.B     Sony_ReadDriveReg ; read SIDES, 0 = single, 1 = double @sc
1863A  6A0C                      BPL.B     L3680           ; return -1 if single @sc
1863C  4A28 0200                 Tst.B     $200(A0)        ; CA0 on @sc
18640  4A28 0400                 Tst.B     $400(A0)        ; CA1 off @sc
18644  61BA                      Bsr.B     Sony_ReadDriveReg ; Which register is this, disk switched? @sc
18646  6002                      Bra.B     L3681
18648  70FF           L3680:     MoveQ.L   #$-1, D0
1864A  4E75           L3681:     Rts

                      P_Sony_SetSpeed:
1864C  6100 FF66                 Bsr       Sony_SetupSonyVars
18650  3406                      Move      D6, D2
18652  E84A                      LsR       #$4, D2
18654  E74A                      LsL       #$3, D2
18656  D441                      Add       D1, D2
18658  3431 201A                 Move      $1A(A1,D2.W), D2
1865C  4A31 1013                 Tst.B     $13(A1,D1.W)    ; interface? 00=400K @sc
18660  6B04                      BMI.B     L4561
18662  4A42                      Tst       D2
18664  6A02                      BPL.B     L4562
18666  7400           L4561:     MoveQ.L   #$0, D2
18668  0C42 01B8      L4562:     Cmp       #$1B8, D2
1866C  6F04                      BLE.B     L4563
1866E  343C 01B8                 Move      #$1B8, D2
18672  3038 0138      L4563:     Move      (PWMValue), D0
18676  6A06                      BPL.B     L4564
18678  3029 0038                 Move      $38(A1), D0
1867C  6016                      Bra.B     L4566
1867E  9042           L4564:     Sub       D2, D0
18680  6700 FF32                 BEQ       Sony_SetupSonyVars
18684  6A02                      BPL.B     L4565
18686  4440                      Neg       D0
18688  EB48           L4565:     LsL       #$5, D0
1868A  B069 0036                 Cmp       $36(A1), D0
1868E  6E04                      BGT.B     L4566
18690  3029 0036                 Move      $36(A1), D0
18694  D069 0014      L4566:     Add       $14(A1), D0
18698  B069 0038                 Cmp       $38(A1), D0
1869C  6D04                      BLT.B     L4567
1869E  3029 0038                 Move      $38(A1), D0
186A2  3340 0014      L4567:     Move      D0, $14(A1)
186A6  31C2 0138      P860:      Move      D2, (PWMValue)
186AA  48E7 1E20                 MoveM.L   D3-D6/A2, -(A7)
186AE  0442 01B8                 Sub       #$1B8, D2
186B2  4442                      Neg       D2
186B4  48C2                      Ext.L     D2
186B6  84FC 000A                 DivU      #$A, D2
186BA  701E                      MoveQ.L   #$1E, D0
186BC  1200           L4568:     Move.B    D0, D1
186BE  1600                      Move.B    D0, D3
186C0  E208                      LsR.B     #$1, D0
186C2  B103                      Eor.B     D0, D3
186C4  E20B                      LsR.B     #$1, D3
186C6  6404                      BCC.B     L4569
186C8  08C0 0005                 BSet.B    #$5, D0
186CC  51CA FFEE      L4569:     DBF       D2, L4568
186D0  4842                      Swap      D2
186D2  1A3B 2038                 Move.B    DT169(D2.W), D5
186D6  E145                      AsL       #$8, D5
186D8  1A3B 2033                 Move.B    DT170(D2.W), D5
186DC  7624                      MoveQ.L   #$24, D3
186DE  2078 0B0A                 Move.L    (PWMBuf1), A0
186E2  2478 0312                 Move.L    (PWMBuf2), A2
186E6  7409           L4570:     MoveQ.L   #$9, D2
186E8  3805                      Move      D5, D4
186EA  E34C           L4571:     LsL       #$1, D4
186EC  6404                      BCC.B     L4572
186EE  1C00                      Move.B    D0, D6
186F0  6002                      Bra.B     L4573
186F2  1C01           L4572:     Move.B    D1, D6
186F4  1086           L4573:     Move.B    D6, (A0)
186F6  1486                      Move.B    D6, (A2)
186F8  5448                      AddQ      #$2, A0
186FA  544A                      AddQ      #$2, A2
186FC  51CA FFEC                 DBF       D2, L4571
18700  51CB FFE4                 DBF       D3, L4570
18704  4CDF 0478                 MoveM.L   (A7)+, D3-D6/A2
18708  6000 FEAA                 Bra       Sony_SetupSonyVars
1870C  00             DT169:     DC.B      ' '
1870D  2021 2494 AAB5 DT170:     DC.B      ' !$   '
18713  B77B FF40 00              DC.B      ' { @ '

                      E_Sony_Seek:
18718  0886 000B                 BClr.B    #$B, D6
1871C  6100 FF2E                 Bsr       P_Sony_SetSpeed
18720  2F38 0236                 Move.L    (DiskVars.JSeek), -(A7)
18724  4E75                      Rts

                      P_Sony_Seek:
18726  2C5F                      Move.L    (A7)+, A6
18728  6100 FE8A                 Bsr       Sony_SetupSonyVars
1872C  3E31 1000                 Move      $0(A1,D1.W), D7 ; current track number @sc
18730  6A08                      BPL.B     L4574
18732  6100 011E                 Bsr       E_Sony_Recal
18736  3E00                      Move      D0, D7
18738  6032                      Bra.B     L4578
1873A  BE46           L4574:     Cmp       D6, D7
1873C  6740                      BEQ.B     L4579
1873E  7000           L4575:     MoveQ.L   #$0, D0
18740  7201                      MoveQ.L   #$1, D1
18742  3407                      Move      D7, D2
18744  9446                      Sub       D6, D2
18746  6724                      BEQ.B     L4578
18748  6B04                      BMI.B     L4576
1874A  7001                      MoveQ.L   #$1, D0
1874C  72FF                      MoveQ.L   #$-1, D1
1874E  DE41           L4576:     Add       D1, D7
18750  6100 FEC6                 Bsr       Sony_WriteDriveRegAdr ; write DIRTN = step direction @sc
18754  3387 1000                 Move      D7, $0(A1,D1.W) ; set current track number @sc
18758  7004                      MoveQ.L   #$4, D0
1875A  6100 FEA2                 Bsr       Sony_ReadDriveRegAdr ; read STEP, 1 = step done @sc
1875E  6B04                      BMI.B     L4577
18760  7EB5                      MoveQ.L   #$-4B, D7       ; error -75, can't step error @sc
18762  6008                      Bra.B     L4578
18764  6100 FEB4      L4577:     Bsr       Sony_WriteDriveReg ; write STEP, perform step @sc
18768  6122                      Bsr.B     P862
1876A  60D2                      Bra.B     L4575
1876C  6100 FE46      L4578:     Bsr       Sony_SetupSonyVars
18770  3387 1000                 Move      D7, $0(A1,D1.W) ; set current track number @sc
18774  3029 0034                 Move      $34(A1), D0
18778  7405                      MoveQ.L   #$5, D2
1877A  6100 0036                 Bsr       P864
1877E  3029 0014      L4579:     Move      $14(A1), D0
18782  7400                      MoveQ.L   #$0, D2
18784  6100 002C                 Bsr       P864
18788  3007                      Move      D7, D0
1878A  4ED6                      Jmp       (A6)
1878C  3029 003C      P862:      Move      $3C(A1), D0
18790  610E                      Bsr.B     P863
18792  7A50                      MoveQ.L   #$50, D5
18794  7004           L4580:     MoveQ.L   #$4, D0
18796  6100 FE66                 Bsr       Sony_ReadDriveRegAdr ; read STEP, 1 = step done @sc
1879A  5BCD FFF8                 DBMI      D5, L4580
1879E  4E75                      Rts
187A0  4A31 1013      P863:      Tst.B     $13(A1,D1.W)    ; interface? 00=400K @sc
187A4  6A02                      BPL.B     L4581
187A6  4E75                      Rts
187A8  584F           L4581:     AddQ      #$4, A7
187AA  4A40                      Tst       D0
187AC  6702                      BEQ.B     L4582
187AE  6024                      Bra.B     E_Sony_WakeUp
187B0  4E75           L4582:     Rts
187B2  61EC           P864:      Bsr.B     P863
187B4  285F                      Move.L    (A7)+, A4
187B6  3A3C 03E8                 Move      #$3E8, D5
187BA  3002                      Move      D2, D0
187BC  6702                      BEQ.B     L4584
187BE  6114           L4583:     Bsr.B     E_Sony_WakeUp
187C0  700B           L4584:     MoveQ.L   #$B, D0
187C2  6100 FE3A                 Bsr       Sony_ReadDriveRegAdr ; read READY, 0 = ready @sc
187C6  6A06                      BPL.B     L4585
187C8  700A                      MoveQ.L   #$A, D0
187CA  51CD FFF2                 DBF       D5, L4583
187CE  4269 0014      L4585:     Clr       $14(A1)
187D2  4ED4                      Jmp       (A4)

                      E_Sony_WakeUp:
187D4  2F38 0246                 Move.L    (DiskVars.JWakeUp), -(A7)
187D8  4E75                      Rts

                      P_Sony_WakeUp:
187DA  6112                      Bsr.B     P867
187DC  21DF 0124      P866:      Move.L    (A7)+, (DskRtnAdr) ; pops the return address off the stack. will return to grandparent caller @sc
187E0  7000                      MoveQ.L   #$0, D0
187E2  48E9 78F8 00D0            MoveM.L   D3-D7/A3-A6, $D0(A1) ; saves the register state @sc
187E8  027C F8FF                 And       #$-701, SR
187EC  4E75                      Rts

                      P867:
187EE  2278 0134                 Move.L    (SonyVars), A1
187F2  9169 0014                 Sub       D0, $14(A1)     ; D0 = amount of time to wait, in tenths of milliseconds @sc
187F6  6E04                      BGT.B     L4586
187F8  4269 0014                 Clr       $14(A1)         ; clamp at 0 @sc
187FC  41E9 0118      L4586:     Lea.L     $118(A1), A0    ; A0 = pointer to timer param object? @sc
18800  43FA 0026                 Lea.L     DT171, A1
18804  2149 0006                 Move.L    A1, $6(A0)      ; address of callback @sc
18808  0280 0000 FFFF            And.L     #$FFFF, D0
1880E  0C40 000A                 Cmp       #$A, D0
18812  6402                      BCC.B     L4587
18814  700A                      MoveQ.L   #$A, D0
18816  80FC 000A      L4587:     DivU      #$A, D0         ; divide delay by 10 to get milliseconds @sc
1881A  48C0                      Ext.L     D0
1881C  2278 0568                 Move.L    ($568), A1      ; $568 is the trap table address for P_tPrimeTime @sc
18820  4E91                      Jsr       (A1)            ; use the time manager to wake itself later? @sc
18822  6100 FD90                 Bsr       Sony_SetupSonyVars
18826  4E75                      Rts

                      DT171:
                      ; timeout callback? - return to previously saved context? @sc
18828  48E7 FFFE                 MoveM.L   D0-D7/A0-A6, -(A7)
1882C  6100 FD7E                 Bsr       Sony_SetupRegs
18830  4CE9 78F8 00D0            MoveM.L   $D0(A1), D3-D7/A3-A6
18836  7000                      MoveQ.L   #$0, D0
18838  6100 02E8                 Bsr       L4625
1883C  4CDF 7FFF                 MoveM.L   (A7)+, D0-D7/A0-A6
18840  4E75                      Rts

                      Sony_CheckDriveNumber:
18842  3029 0102                 Move      $102(A1), D0
18846  B069 0012                 Cmp       $12(A1), D0     ; check drive number @sc
1884A  6604                      BNE.B     L4588
1884C  4269 0102                 Clr       $102(A1)
18850  4E75           L4588:     Rts

                      E_Sony_Recal:
18852  2F38 023E                 Move.L    (DiskVars.JRecal), -(A7)
18856  4E75                      Rts

                      P_Sony_Recal:
18858  2A5F                      Move.L    (A7)+, A5
1885A  6100 FD50                 Bsr       Sony_SetupRegs
1885E  61E2                      Bsr.B     Sony_CheckDriveNumber
18860  723F                      MoveQ.L   #$3F, D1
18862  4A28 1A00                 Tst.B     $1A00(A0)
18866  1028 1C00                 Move.B    $1C00(A0), D0
1886A  4A28 1800                 Tst.B     $1800(A0)
1886E  C001                      And.B     D1, D0
18870  B001                      Cmp.B     D1, D0
18872  6734                      BEQ.B     L4591
18874  7402                      MoveQ.L   #$2, D2
18876  4842                      Swap      D2
18878  721F           L4589:     MoveQ.L   #$1F, D1
1887A  70B3                      MoveQ.L   #$-4D, D0       ; error -77, can't initialize disk controller @sc
1887C  5382                      SubQ      #$1, D2
1887E  6B62                      BMI.B     L4596
18880  4A28 1000                 Tst.B     $1000(A0)
18884  4A28 1A00                 Tst.B     $1A00(A0)
18888  1028 1C00                 Move.B    $1C00(A0), D0
1888C  0800 0005                 BTst.B    #$5, D0
18890  66E6                      BNE.B     L4589
18892  C001                      And.B     D1, D0
18894  B001                      Cmp.B     D1, D0
18896  670A                      BEQ.B     L4590
18898  1141 1E00                 Move.B    D1, $1E00(A0)
1889C  4A28 1C00                 Tst.B     $1C00(A0)
188A0  60D6                      Bra.B     L4589
188A2  4A28 1800      L4590:     Tst.B     $1800(A0)
188A6  6162                      Bsr.B     Sony_MotorOn2
188A8  7E50           L4591:     MoveQ.L   #$50, D7
188AA  3029 003C      L4592:     Move      $3C(A1), D0
188AE  4A31 1013                 Tst.B     $13(A1,D1.W)    ; interface? 00=400K @sc
188B2  6A02                      BPL.B     L4593
188B4  E248                      LsR       #$1, D0
188B6  6100 FF1C      L4593:     Bsr       E_Sony_WakeUp
188BA  700A                      MoveQ.L   #$A, D0
188BC  6100 FD40                 Bsr       Sony_ReadDriveRegAdr ; read TK0, 0 = at track 0 @sc
188C0  6A1A                      BPL.B     L4594
188C2  7001                      MoveQ.L   #$1, D0
188C4  6100 FD52                 Bsr       Sony_WriteDriveRegAdr ; write DIRTN = towards track 0 @sc
188C8  7004                      MoveQ.L   #$4, D0
188CA  6100 FD32                 Bsr       Sony_ReadDriveRegAdr ; read STEP, 1 = step done @sc
188CE  6A10                      BPL.B     L4595
188D0  70B4                      MoveQ.L   #$-4C, D0       ; error -76, can't find track 0 @sc
188D2  5347                      SubQ      #$1, D7
188D4  670C                      BEQ.B     L4596
188D6  6100 FD42                 Bsr       Sony_WriteDriveReg ; write STEP, performs step @sc
188DA  60CE                      Bra.B     L4592
188DC  7000           L4594:     MoveQ.L   #$0, D0
188DE  6002                      Bra.B     L4596
188E0  70B5           L4595:     MoveQ.L   #$-4B, D0       ; error -75, can't step error @sc
188E2  3380 1000      L4596:     Move      D0, $0(A1,D1.W) ; set current track number @sc
188E6  4ED5                      Jmp       (A5)

                      Sony_MotorOff:
188E8  6100 FCCA                 Bsr       Sony_SetupSonyVars
188EC  3340 001A                 Move      D0, $1A(A1)
188F0  6708                      BEQ.B     L4597
188F2  3369 0012 0116            Move      $12(A1), $116(A1) ; drive number @sc
188F8  4E75                      Rts
188FA  7009           L4597:     MoveQ.L   #$9, D0         ; drive motor off @sc
188FC  6100 FD1A                 Bsr       Sony_WriteDriveRegAdr
18900  4A28 1000                 Tst.B     $1000(A0)       ; ENABLE off @sc
18904  4E75                      Rts

                      Sony_MotorOn1:
18906  7000                      MoveQ.L   #$0, D0
18908  6004                      Bra.B     L4598

                      Sony_MotorOn2:
1890A  3029 0038                 Move      $38(A1), D0
1890E  3400           L4598:     Move      D0, D2
18910  6118                      Bsr.B     Sony_JumpDiskSel
18912  7008                      MoveQ.L   #$8, D0
18914  6100 FCE8                 Bsr       Sony_ReadDriveRegAdr ; read MOTORON, 0 = on @sc
18918  6A0E                      BPL.B     L4599
1891A  6100 FCFE                 Bsr       Sony_WriteDriveReg ; write MOTORON = on @sc
1891E  3002                      Move      D2, D0
18920  343C 02EE                 Move      #$2EE, D2
18924  6000 FE8C                 Bra       P864
18928  4E75           L4599:     Rts

                      Sony_JumpDiskSel:
1892A  6100 FC80                 Bsr       Sony_SetupRegs
                      E_Sony_DiskSel:
1892E  2F38 0B40                 Move.L    (JDiskSel), -(A7)
18932  4E75                      Rts
                      P_Sony_DiskSel:
18934  4A69 001A                 Tst       $1A(A1)
18938  670E                      BEQ.B     L4600
1893A  3029 0116                 Move      $116(A1), D0
1893E  B069 0012                 Cmp       $12(A1), D0     ; $12(A1) = drive number, 1-based @sc
18942  6704                      BEQ.B     L4600
18944  7000                      MoveQ.L   #$0, D0
18946  61A0                      Bsr.B     Sony_MotorOff
18948  4269 001A      L4600:     Clr       $1A(A1)
1894C  0C41 004A                 Cmp       #$4A, D1        ; D1 is the SonyVars offset for current drive: $4A for drive 1, $8C for drive 2 @sc
18950  660A                      BNE.B     L4601
18952  4A28 1400                 Tst.B     $1400(A0)       ; select internal drive @sc
18956  4A28 1200                 Tst.B     $1200(A0)       ; enable drive 1 @sc
1895A  4E75                      Rts
1895C  4A28 0A00      L4601:     Tst.B     $A00(A0)        ; CA2 on @sc
18960  4A28 0600                 Tst.B     $600(A0)        ; CA1 on @sc
18964  4A28 0200                 Tst.B     $200(A0)        ; CA0 on @sc
18968  08AA 0005 1E00            BClr.B    #$5, $1E00(A2)  ; SEL off @sc
1896E  4A28 1600                 Tst.B     $1600(A0)       ; select external drive @sc
18972  4A29 00FC                 Tst.B     $FC(A1)
18976  6706                      BEQ.B     L4602
18978  4A28 1200                 Tst.B     $1200(A0)       ; enable drive @sc
1897C  4E75                      Rts
1897E  0C41 008C      L4602:     Cmp       #$8C, D1        ; true for drive 2 @sc
18982  663A                      BNE.B     L4606
18984  4A28 1200                 Tst.B     $1200(A0)       ; enable drive 2 @sc
18988  7004                      MoveQ.L   #$4, D0
1898A  40E7           L4603:     Move      SR, -(A7)
1898C  007C 0300                 Or        #$300, SR
18990  4A28 1A00                 Tst.B     $1A00(A0)       ; Q6 on @sc
18994  4A28 1C00      L4604:     Tst.B     $1C00(A0)       ; Q7 off, read status - drive installed, 0 = yes @sc
18998  5AC8 000A                 DBPL      D0, L4605
1899C  4A28 1800                 Tst.B     $1800(A0)       ; Q6 off @sc
189A0  46DF                      Move      (A7)+, SR
189A2  4E75                      Rts
189A4  4A28 0E00      L4605:     Tst.B     $E00(A0)        ; LSTRB on, EJECT?? @sc
189A8  2E97                      Move.L    (A7), (A7)
189AA  4A28 0C00                 Tst.B     $C00(A0)        ; LSTRB off @sc
189AE  2E97                      Move.L    (A7), (A7)
189B0  4A28 0400                 Tst.B     $400(A0)        ; CA1 off @sc
189B4  2E97                      Move.L    (A7), (A7)
189B6  4A28 0600                 Tst.B     $600(A0)        ; CA1 on @sc
189BA  2E97                      Move.L    (A7), (A7)
189BC  60D6                      Bra.B     L4604
189BE  4A28 1000      L4606:     Tst.B     $1000(A0)       ; disable drive @sc
189C2  3029 0012                 Move      $12(A1), D0     ; drive number @sc
189C6  2E97                      Move.L    (A7), (A7)
189C8  4A28 1200                 Tst.B     $1200(A0)       ; enable drive @sc
189CC  5740                      SubQ      #$3, D0
189CE  60BA                      Bra.B     L4603

                      DT_Sony_SpeedCheckTbl:
                      ; acceptable disk RPM speed ranges @sc
189D0  11E9 1135 138A            DC.B      '   5  '
189D6  12C6 157F 14A7            DC.B      '      '
189DC  17E2 16F2 1ADE            DC.B      '      '
189E2  19D0                      DC.B      '  '

                      E_Sony_MakeSpdTbl:
189E4  2F38 024E                 Move.L    (DiskVars.JMakeSpdTbl), -(A7)
189E8  4E75                      Rts

                      P_Sony_MakeSpdTbl:
189EA  4A31 1013                 Tst.B     $13(A1,D1.W)    ; interface? 00=400K @sc
189EE  6A08                      BPL.B     L4607
189F0  303C 1F40                 Move      #$1F40, D0
189F4  6000 FDDE                 Bra       E_Sony_WakeUp
189F8  285F           L4607:     Move.L    (A7)+, A4
189FA  343C 0080                 Move      #$80, D2
189FE  615E                      Bsr.B     P874            ; get current drive speed in D4 @sc
18A00  6B58                      BMI.B     L4613
18A02  2604                      Move.L    D4, D3
18A04  343C 0100                 Move      #$100, D2
18A08  6154                      Bsr.B     P874            ; get current drive speed in D4 @sc
18A0A  6B4E                      BMI.B     L4613
18A0C  2A04                      Move.L    D4, D5
18A0E  9A83                      Sub.L     D3, D5
18A10  6E02                      BGT.B     L4608
18A12  7A01                      MoveQ.L   #$1, D5
18A14  E38B           L4608:     LsL.L     #$1, D3
18A16  7C04                      MoveQ.L   #$4, D6
18A18  4BFA FFB6                 Lea.L     DT_Sony_SpeedCheckTbl, A5
18A1C  6100 FB96                 Bsr       Sony_SetupSonyVars
18A20  47F1 101A                 Lea.L     $1A(A1,D1.W), A3
18A24  7400           L4609:     MoveQ.L   #$0, D2
18A26  341D                      Move      (A5)+, D2
18A28  2E02                      Move.L    D2, D7
18A2A  D45D                      Add       (A5)+, D2
18A2C  E24A                      LsR       #$1, D2
18A2E  D484           L4610:     Add.L     D4, D2
18A30  9483                      Sub.L     D3, D2
18A32  EF8A                      LsL.L     #$7, D2
18A34  6E02                      BGT.B     L4611
18A36  7401                      MoveQ.L   #$1, D2
18A38  84C5           L4611:     DivU      D5, D2
18A3A  5242                      AddQ      #$1, D2
18A3C  0C42 018F                 Cmp       #$18F, D2
18A40  6F04                      BLE.B     L4612
18A42  343C 018F                 Move      #$18F, D2
18A46  36C2           L4612:     Move      D2, (A3)+
18A48  CF42                      Exg.L     D7, D2
18A4A  4640                      Not       D0
18A4C  66E0                      BNE.B     L4610
18A4E  594B                      SubQ      #$4, A3
18A50  9E5B                      Sub       (A3)+, D7
18A52  36C7                      Move      D7, (A3)+
18A54  429B                      Clr.L     (A3)+
18A56  51CE FFCC                 DBF       D6, L4609
18A5A  4A40           L4613:     Tst       D0
18A5C  4ED4                      Jmp       (A4)

                      P874:
18A5E  265F                      Move.L    (A7)+, A3
18A60  6100 FC44                 Bsr       P860
18A64  3029 0038                 Move      $38(A1), D0
18A68  6100 FD6A                 Bsr       E_Sony_WakeUp
18A6C  7800           L4614:     MoveQ.L   #$0, D4
18A6E  7A03                      MoveQ.L   #$3, D5
18A70  6118           L4615:     Bsr.B     E_Sony_FigTrkSpd ; get time for 15 TACH edges in D0 @sc
18A72  6B14                      BMI.B     L4616
18A74  D880                      Add.L     D0, D4
18A76  51CD FFF8                 DBF       D5, L4615       ; sum the times from 4 trials @sc
18A7A  E68C                      LsR.L     #$3, D4         ; divide sum by 8 @sc
18A7C  203C 0400 0000            Move.L    #$4000000, D0
18A82  80C4                      DivU      D4, D0          ; D0 = $4000000 / sum @sc
18A84  3800                      Move      D0, D4
18A86  7000                      MoveQ.L   #$0, D0
18A88  4ED3           L4616:     Jmp       (A3)

                      E_Sony_FigTrkSpd:
18A8A  2F38 0222                 Move.L    (DiskVars_JFigTrkSpd), -(A7)
18A8E  4E75                      Rts

                      P_Sony_FigTrkSpd:
18A90  40E7                      Move      SR, -(A7)
18A92  48E7 7FFE                 MoveM.L   D1-D7/A0-A6, -(A7)
18A96  7004                      MoveQ.L   #$4, D0
18A98  6100 014A                 Bsr       E_Sony_SetUpPoll
18A9C  700E                      MoveQ.L   #$E, D0
18A9E  6100 FB24                 Bsr       P_Sony_AdrDisk  ; prepare to read the TACH disk register @sc
18AA2  41F9 00DF E1FF            Lea.L     (IWM_Base), A0
18AA8  4A28 1A00                 Tst.B     $1A00(A0)       ; Q6 on @sc
18AAC  72FF                      MoveQ.L   #$-1, D1
18AAE  7605                      MoveQ.L   #$5, D3
18AB0  2478 01D4                 Move.L    (VIA), A2
18AB4  47EA 1A00                 Lea.L     $1A00(A2), A3   ; VIA IFR address @sc
18AB8  43E8 1C00                 Lea.L     $1C00(A0), A1   ; Q7 off address @sc
18ABC  6116                      Bsr.B     P876            ; start T2 timer @sc
18ABE  614A                      Bsr.B     P877            ; wait for TACH rising edge @sc
18AC0  671C                      BEQ.B     L4618
18AC2  4A28 1800      L4617:     Tst.B     $1800(A0)       ; Exit. Q6 off @sc
18AC6  6100 FA44                 Bsr       P857
18ACA  4CDF 7FFE                 MoveM.L   (A7)+, D1-D7/A0-A6
18ACE  46DF                      Move      (A7)+, SR
18AD0  4A80                      Tst.L     D0
18AD2  4E75                      Rts

                      P876:
18AD4  1541 1000                 Move.B    D1, $1000(A2)   ; load T2L-L @sc
18AD8  1541 1200                 Move.B    D1, $1200(A2)   ; load T2C-H and start the timer @sc
18ADC  4E75                      Rts

                      L4618:
18ADE  61F4                      Bsr.B     P876            ; start T2 timer @sc
18AE0  740E                      MoveQ.L   #$E, D2
18AE2  6126           L4619:     Bsr.B     P877            ; wait for TACH rising edge @sc
18AE4  66DC                      BNE.B     L4617           ; TACH error @sc
18AE6  51CA FFFA                 DBF       D2, L4619       ; do 15 TACH edges @sc
18AEA  142A 1200                 Move.B    $1200(A2), D2   ; read T2C-H @sc
18AEE  122A 1000                 Move.B    $1000(A2), D1   ; read T2C-L @sc
18AF2  B42A 1200                 Cmp.B     $1200(A2), D2   ; check for MSB change of counter during read @sc
18AF6  6702                      BEQ.B     L4620
18AF8  7200                      MoveQ.L   #$0, D1
18AFA  0713           L4620:     BTst.L    D3, (A3)        ; check for T2 timeout @sc
18AFC  66C4                      BNE.B     L4617           ; TACH error @sc
18AFE  E14A                      LsL       #$8, D2
18B00  8401                      Or.B      D1, D2          ; put 16-bit time remaining in D2 @sc
18B02  4642                      Not       D2              ; ones complement: gets time needed for all those TACH edges @sc
18B04  7000                      MoveQ.L   #$0, D0
18B06  3002                      Move      D2, D0
18B08  60B8                      Bra.B     L4617           ; put time in D0 and return @sc

                      P877:
                      ; wait for 2 successive zeroes followed by two successive ones on TACH @sc
18B0A  21DF 0124                 Move.L    (A7)+, (DskRtnAdr)
18B0E  4A15           L4621:     Tst.B     (A5)            ; check SCC wrReg @sc
18B10  6B02                      BMI.B     L4622
18B12  1F16                      Move.B    (A6), -(A7)     ; push SCC data on the stack @sc
18B14  4A11           L4622:     Tst.B     (A1)            ; read IWM; Q7 off @sc
18B16  6B04                      BMI.B     L4623
18B18  4A11                      Tst.B     (A1)            ; read IWM; Q7 off @sc
18B1A  6A0E                      BPL.B     L4626
18B1C  0713           L4623:     BTst.L    D3, (A3)        ; check for timer 2 timeout @sc
18B1E  67EE                      BEQ.B     L4621
18B20  70C0           L4624:     MoveQ.L   #$-40, D0       ; error -64, drive isn't connected @sc
18B22  2F38 0124      L4625:     Move.L    (DskRtnAdr), -(A7) ; finish the continuation of the suspended disk routine, after the timer? @sc
18B26  4A40                      Tst       D0
18B28  4E75                      Rts
18B2A  4A15           L4626:     Tst.B     (A5)
18B2C  6B02                      BMI.B     L4627
18B2E  1F16                      Move.B    (A6), -(A7)
18B30  0713           L4627:     BTst.L    D3, (A3)        ; check for timer 2 timeout @sc
18B32  66EC                      BNE.B     L4624
18B34  4A11                      Tst.B     (A1)            ; read IWM; Q7 off @sc
18B36  6AF2                      BPL.B     L4626
18B38  4A11                      Tst.B     (A1)            ; read IWM; Q7 off @sc
18B3A  6AEE                      BPL.B     L4626
18B3C  7000                      MoveQ.L   #$0, D0
18B3E  60E2                      Bra.B     L4625

                      Sony_CheckForNewDisks:
18B40  40E7                      Move      SR, -(A7)
18B42  007C 0100                 Or        #$100, SR
18B46  2278 0134                 Move.L    (SonyVars), A1
18B4A  3169 0040 000A            Move      $40(A1), $A(A0)
18B50  4A29 0019                 Tst.B     $19(A1)
18B54  662E                      BNE.B     L4823           ; return @sc
18B56  4A69 001A                 Tst       $1A(A1)
18B5A  670C                      BEQ.B     L4820
18B5C  5369 001A                 SubQ      #$1, $1A(A1)
18B60  6622                      BNE.B     L4823           ; return @sc
18B62  7009                      MoveQ.L   #$9, D0
18B64  6100 FAB2                 Bsr       Sony_WriteDriveRegAdr ; write MOTORON = off @sc
18B68  7601           L4820:     MoveQ.L   #$1, D3         ; start with drive 1 @sc
18B6A  611C           L4821:     Bsr.B     Sony_CheckForDiskInserted
18B6C  5243                      AddQ      #$1, D3
18B6E  0C43 0006                 Cmp       #$6, D3
18B72  6E0C                      BGT.B     L4822
18B74  4A29 00FC                 Tst.B     $FC(A1)
18B78  67F0                      BEQ.B     L4821
18B7A  0C43 0003                 Cmp       #$3, D3
18B7E  6FEA                      BLE.B     L4821
18B80  4A28 1000      L4822:     Tst.B     $1000(A0)
18B84  46DF           L4823:     Move      (A7)+, SR
18B86  4E75                      Rts

                      Sony_CheckForDiskInserted:
18B88  3343 0012                 Move      D3, $12(A1)     ; drive number @sc
18B8C  6100 FA1E                 Bsr       Sony_SetupRegs
18B90  4A31 1004                 Tst.B     $4(A1,D1.W)     ; drive installed? 0=unknown,1=yes,ff=not installed @sc
18B94  6B46                      BMI.B     L4828           ; return @sc
18B96  4A31 1003                 Tst.B     $3(A1,D1.W)     ; disk in place? 0=no,1=in,3=MacOS Read,FC-FF=just ejected @sc
18B9A  6E40                      BGT.B     L4828           ; return @sc
18B9C  6706                      BEQ.B     L4824
18B9E  5231 1003                 AddQ      #$1, $3(A1,D1.W) ; update counter for ejected disk? @sc
18BA2  6B30                      BMI.B     L4827           ; set FF and return @sc
18BA4  6100 FD88      L4824:     Bsr       E_Sony_DiskSel
18BA8  0C69 0002 0012            Cmp       #$2, $12(A1)    ; drive number @sc
18BAE  6F0E                      BLE.B     L4825
18BB0  4A10                      Tst.B     (A0)            ; CA0 off @sc
18BB2  4A28 0800                 Tst.B     $800(A0)        ; CA2 off @sc
18BB6  6100 FA48                 Bsr       Sony_ReadDriveReg
18BBA  6B0A                      BMI.B     L4826
18BBC  6016                      Bra.B     L4827           ; set FF and return @sc
18BBE  7002           L4825:     MoveQ.L   #$2, D0
18BC0  6100 FA3C                 Bsr       Sony_ReadDriveRegAdr ; read CSTIN, 0 = disk inserted @sc
18BC4  6B0E                      BMI.B     L4827
18BC6  307C 0007      L4826:     Move      #$7, A0
18BCA  2003                      Move.L    D3, D0
18BCC  A02F                      _PostEvent
18BCE  6604                      BNE.B     L4827           ; set FF and return @sc
18BD0  5231 1003                 AddQ      #$1, $3(A1,D1.W) ; set disk in place = 1? @sc
18BD4  50F1 1000      L4827:     ST.B      $0(A1,D1.W)     ; current track @sc
18BD8  2078 01E0                 Move.L    (IWM), A0
18BDC  4E75           L4828:     Rts

                      DT_Sony_SectorAdrTbl:
                      ; header and trailer for sector address block @sc
18BDE  D5AA 96DE AAFF            DC.B      '      '

                      E_Sony_SetUpPoll:
18BE4  2F38 023A                 Move.L    (DiskVars.JSetUpPoll), -(A7)
18BE8  4E75                      Rts

                      P_Sony_SetUpPoll:
18BEA  4DF9 009F FFFE            Lea.L     ($9FFFFE), A6
18BF0  4BF9 00EF FFFE            Lea.L     ($EFFFFE), A5
18BF6  007C 0300                 Or        #$300, SR
18BFA  21CF 013A                 Move.L    A7, (PollStack)
18BFE  D1B8 013A                 Add.L     D0, (PollStack)
18C02  4E75                      Rts
18C04  7008           P879:      MoveQ.L   #$8, D0
18C06  61DC                      Bsr.B     E_Sony_SetUpPoll
18C08  7001                      MoveQ.L   #$1, D0
18C0A  0829 0003 0016            BTst.B    #$3, $16(A1)
18C10  6702                      BEQ.B     L4628
18C12  7003                      MoveQ.L   #$3, D0
18C14  6100 F9AE      L4628:     Bsr       P_Sony_AdrDisk

                      E_Sony_RdAddr:
18C18  45FA FFC4                 Lea.L     DT_Sony_SectorAdrTbl, A2
18C1C  2F38 022A                 Move.L    (DiskVars.JRdAddr), -(A7)
18C20  4E75                      Rts

                      P_Sony_RdAddr:
18C22  7603                      MoveQ.L   #$3, D3
18C24  747F                      MoveQ.L   #$7F, D2
18C26  7A00                      MoveQ.L   #$0, D5
18C28  287C 00DF F9FF            Move.L    #$DFF9FF, A4    ; address for Q6L @sc
18C2E  21DF 0124                 Move.L    (A7)+, (DskRtnAdr)
18C32  4A15           L4629:     Tst.B     (A5)
18C34  6B02                      BMI.B     L4630
18C36  1F16                      Move.B    (A6), -(A7)     ; push SCC Channel A data on stack if waitRq is zero @sc
18C38  1A14           L4630:     Move.B    (A4), D5        ; get a disk byte @sc
18C3A  51CA 0008                 DBF       D2, L4631
18C3E  70BE                      MoveQ.L   #$-42, D0       ; error -66, no nybble error, disk is probably blank @sc
18C40  6000 008A                 Bra       L4644
18C44  6AEC           L4631:     BPL.B     L4629           ; if it's not a valid disk byte, keep trying @sc
18C46  5343                      SubQ      #$1, D3
18C48  66E8                      BNE.B     L4629           ; keep going until we've gotten 3 valid disk bytes @sc
18C4A  303C 05DC                 Move      #$5DC, D0
18C4E  4A31 1013                 Tst.B     $13(A1,D1.W)    ; interface? 00=400K @sc
18C52  6704                      BEQ.B     L4632
18C54  303C 05BC                 Move      #$5BC, D0
18C58  47FA 01D4      L4632:     Lea.L     DT175, A3       ; GCR decode table @sc
18C5C  204A           L4633:     Move.L    A2, A0          ; begin looking for magic preamble header: D5 AA 96 @sc
18C5E  7203                      MoveQ.L   #$3, D1
18C60  1A14           L4634:     Move.B    (A4), D5
18C62  6AFC                      BPL.B     L4634           ; wait for a disk byte @sc
18C64  4A15                      Tst.B     (A5)            ; check SCC waitRq @sc
18C66  6B02                      BMI.B     L4635
18C68  1F16                      Move.B    (A6), -(A7)     ; push SCC Channel A data on stack if waitRq is zero @sc
18C6A  51C8 0006      L4635:     DBF       D0, L4636
18C6E  70BD                      MoveQ.L   #$-43, D0       ; error -67, can't find an address mark @sc
18C70  605A                      Bra.B     L4644
18C72  BA18           L4636:     Cmp.B     (A0)+, D5
18C74  66E6                      BNE.B     L4633           ; keep going until we find the expected byte @sc
18C76  5341                      SubQ      #$1, D1
18C78  66E6                      BNE.B     L4634           ; keep going for 3 bytes @sc
18C7A  1A14           L4637:     Move.B    (A4), D5
18C7C  6AFC                      BPL.B     L4637           ; wait for 1st disk byte - low six bits of track number @sc
18C7E  1233 5000                 Move.B    $0(A3,D5.W), D1 ; decode it using the lookup table @sc
18C82  1801                      Move.B    D1, D4
18C84  EC59                      ROR       #$6, D1
18C86  1A14           L4638:     Move.B    (A4), D5
18C88  6AFC                      BPL.B     L4638           ; wait for 2nd disk byte: sector number within this track @sc
18C8A  1433 5000                 Move.B    $0(A3,D5.W), D2 ; decode it using the lookup table @sc
18C8E  B504                      Eor.B     D2, D4
18C90  1A14           L4639:     Move.B    (A4), D5
18C92  6AFC                      BPL.B     L4639           ; wait for 3rd disk byte - upper five bits of track number, and head/side in the highest bit @sc
18C94  1233 5000                 Move.B    $0(A3,D5.W), D1
18C98  B304                      Eor.B     D1, D4
18C9A  ED59                      ROL       #$6, D1
18C9C  4A15                      Tst.B     (A5)
18C9E  6B02                      BMI.B     L4640
18CA0  1F16                      Move.B    (A6), -(A7)
18CA2  1A14           L4640:     Move.B    (A4), D5
18CA4  6AFC                      BPL.B     L4640           ; wait for 4th disk byte - format: $02:Mac400K $12:Mac400K? $22:Mac800K @sc
18CA6  1633 5000                 Move.B    $0(A3,D5.W), D3
18CAA  B704                      Eor.B     D3, D4
18CAC  1A14           L4641:     Move.B    (A4), D5
18CAE  6AFC                      BPL.B     L4641           ; wait for 5th disk byte - checksum @sc
18CB0  1A33 5000                 Move.B    $0(A3,D5.W), D5
18CB4  BB04                      Eor.B     D5, D4
18CB6  6618                      BNE.B     L4645           ; checksum failure @sc
18CB8  7801                      MoveQ.L   #$1, D4
18CBA  1A14           L4642:     Move.B    (A4), D5
18CBC  6AFC                      BPL.B     L4642           ; wait for trailer disk byte @sc
18CBE  4A15                      Tst.B     (A5)
18CC0  6B02                      BMI.B     L4643
18CC2  1F16                      Move.B    (A6), -(A7)
18CC4  BA18           L4643:     Cmp.B     (A0)+, D5
18CC6  660C                      BNE.B     L4646           ; BtSlp (trailer mismatch) error @sc
18CC8  51CC FFF0                 DBF       D4, L4642       ; keep going for 2 bytes - final trailer byte is not checked? @sc
18CCC  6000 FE54      L4644:     Bra       L4625           ; done @sc
18CD0  70BB           L4645:     MoveQ.L   #$-45, D0       ; error -69, bad checksum error - bad address mark @sc
18CD2  60F8                      Bra.B     L4644
18CD4  70BA           L4646:     MoveQ.L   #$-46, D0       ; error -70, bad BtSlp error - bad address mark @sc
18CD6  60F4                      Bra.B     L4644
18CD8  D5AA ADDE AAFF DT174:     DC.B      '      '

                      E_Sony_RdData:
18CDE  43FA FFF8                 Lea.L     DT174, A1
18CE2  2F38 022E                 Move.L    (DiskVars.JRdData), -(A7)
18CE6  4E75                      Rts

                      P_Sony_RdData:
18CE8  21DF 0124                 Move.L    (A7)+, (DskRtnAdr)
18CEC  7430                      MoveQ.L   #$30, D2
18CEE  7600                      MoveQ.L   #$0, D3
18CF0  70C0                      MoveQ.L   #$-40, D0       ; error -64, drive not installed @sc
18CF2  283C 01FE 000A            Move.L    #$1FE000A, D4   ; $1FE.000A = 510 bytes data, 10 bytes tags @sc
18CF8  7A00                      MoveQ.L   #$0, D5
18CFA  7C00                      MoveQ.L   #$0, D6
18CFC  7E00                      MoveQ.L   #$0, D7
18CFE  2449           L4647:     Move.L    A1, A2          ; put header/trailer table pointer into A2 @sc
18D00  7203                      MoveQ.L   #$3, D1
18D02  1614           L4648:     Move.B    (A4), D3        ; read a byte from disk @sc
18D04  6AFC                      BPL.B     L4648
18D06  4A15                      Tst.B     (A5)
18D08  6B02                      BMI.B     L4649
18D0A  1F16                      Move.B    (A6), -(A7)
18D0C  51CA 0006      L4649:     DBF       D2, L4650
18D10  70B9                      MoveQ.L   #$-47, D0       ; error -71, can't find data mark @sc
18D12  60B8                      Bra.B     L4644
18D14  B61A           L4650:     Cmp.B     (A2)+, D3       ; compare the disk byte against the expected header @sc
18D16  66E6                      BNE.B     L4647
18D18  5341                      SubQ      #$1, D1
18D1A  66E6                      BNE.B     L4648
18D1C  1614           L4651:     Move.B    (A4), D3        ; read a byte from disk @sc
18D1E  6AFC                      BPL.B     L4651
18D20  43F8 02FB                 Lea.L     (TagData.1), A1
18D24  12F3 3000                 Move.B    $0(A3,D3.W), (A1)+ ; convert a byte of tags. Assuming A3 is a pointer to the nibble decode table @sc
18D28  4A15           L4652:     Tst.B     (A5)
18D2A  6B02                      BMI.B     L4653
18D2C  1F16                      Move.B    (A6), -(A7)
18D2E  1614           L4653:     Move.B    (A4), D3        ; read a byte from disk @sc
18D30  6AF6                      BPL.B     L4652
18D32  1233 3000                 Move.B    $0(A3,D3.W), D1
18D36  E519                      ROL.B     #$2, D1
18D38  1401                      Move.B    D1, D2
18D3A  C400                      And.B     D0, D2
18D3C  1614           L4654:     Move.B    (A4), D3        ; read a byte from disk @sc
18D3E  6AFC                      BPL.B     L4654
18D40  8433 3000                 Or.B      $0(A3,D3.W), D2
18D44  1607                      Move.B    D7, D3
18D46  D607                      Add.B     D7, D3
18D48  E31F                      ROL.B     #$1, D7
18D4A  BF02                      Eor.B     D7, D2
18D4C  12C2                      Move.B    D2, (A1)+       ; store a decoded byte @sc
18D4E  DB02                      AddX.B    D2, D5
18D50  E519                      ROL.B     #$2, D1
18D52  1401                      Move.B    D1, D2
18D54  C400                      And.B     D0, D2
18D56  1614           L4655:     Move.B    (A4), D3        ; read a byte from disk @sc
18D58  6AFC                      BPL.B     L4655
18D5A  8433 3000                 Or.B      $0(A3,D3.W), D2
18D5E  BB02                      Eor.B     D5, D2
18D60  12C2                      Move.B    D2, (A1)+       ; store a decoded byte @sc
18D62  DD02                      AddX.B    D2, D6
18D64  E519                      ROL.B     #$2, D1
18D66  C200                      And.B     D0, D1
18D68  4A15                      Tst.B     (A5)
18D6A  6B02                      BMI.B     L4656
18D6C  1F16                      Move.B    (A6), -(A7)
18D6E  1614           L4656:     Move.B    (A4), D3
18D70  6AFC                      BPL.B     L4656
18D72  8233 3000                 Or.B      $0(A3,D3.W), D1
18D76  BD01                      Eor.B     D6, D1
18D78  12C1                      Move.B    D1, (A1)+       ; store a decoded byte @sc
18D7A  DF01                      AddX.B    D1, D7
18D7C  5744                      SubQ      #$3, D4         ; decrement count of remaining bytes @sc
18D7E  6AA8                      BPL.B     L4652           ; branch if more bytes remain @sc
18D80  4844                      Swap      D4              ; done with tag bytes @sc
18D82  4A38 012C                 Tst.B     (DskVerify)
18D86  6708                      BEQ.B     L4658
18D88  6062                      Bra.B     L4663
18D8A  4A15           L4657:     Tst.B     (A5)
18D8C  6B02                      BMI.B     L4658
18D8E  1F16                      Move.B    (A6), -(A7)
18D90  1614           L4658:     Move.B    (A4), D3        ; READ DATA start - read a byte from disk @sc
18D92  6AF6                      BPL.B     L4657
18D94  1233 3000                 Move.B    $0(A3,D3.W), D1
18D98  E519                      ROL.B     #$2, D1
18D9A  1401                      Move.B    D1, D2
18D9C  C400                      And.B     D0, D2
18D9E  1614           L4659:     Move.B    (A4), D3        ; read a byte from disk @sc
18DA0  6AFC                      BPL.B     L4659
18DA2  8433 3000                 Or.B      $0(A3,D3.W), D2
18DA6  1607                      Move.B    D7, D3
18DA8  D607                      Add.B     D7, D3
18DAA  E31F                      ROL.B     #$1, D7
18DAC  BF02                      Eor.B     D7, D2
18DAE  10C2                      Move.B    D2, (A0)+       ; store a decoded byte @sc
18DB0  DB02                      AddX.B    D2, D5
18DB2  E519                      ROL.B     #$2, D1
18DB4  1401                      Move.B    D1, D2
18DB6  C400                      And.B     D0, D2
18DB8  1614           L4660:     Move.B    (A4), D3        ; read a byte from disk @sc
18DBA  6AFC                      BPL.B     L4660
18DBC  8433 3000                 Or.B      $0(A3,D3.W), D2
18DC0  BB02                      Eor.B     D5, D2
18DC2  10C2                      Move.B    D2, (A0)+       ; store a decoded byte @sc
18DC4  DD02                      AddX.B    D2, D6
18DC6  4A44                      Tst       D4
18DC8  677E                      BEQ.B     L4668           ; end of data? @sc
18DCA  E519                      ROL.B     #$2, D1
18DCC  C200                      And.B     D0, D1
18DCE  4A15                      Tst.B     (A5)
18DD0  6B02                      BMI.B     L4661
18DD2  1F16                      Move.B    (A6), -(A7)
18DD4  1614           L4661:     Move.B    (A4), D3        ; read a byte from disk @sc
18DD6  6AFC                      BPL.B     L4661
18DD8  8233 3000                 Or.B      $0(A3,D3.W), D1
18DDC  BD01                      Eor.B     D6, D1
18DDE  10C1                      Move.B    D1, (A0)+       ; store a decoded byte @sc
18DE0  DF01                      AddX.B    D1, D7
18DE2  5744                      SubQ      #$3, D4
18DE4  60A4                      Bra.B     L4657
18DE6  4A15           L4662:     Tst.B     (A5)
18DE8  6B02                      BMI.B     L4663
18DEA  1F16                      Move.B    (A6), -(A7)
18DEC  1614           L4663:     Move.B    (A4), D3        ; READ VERIFY - read a byte from disk @sc
18DEE  6AF6                      BPL.B     L4662
18DF0  1233 3000                 Move.B    $0(A3,D3.W), D1
18DF4  E519                      ROL.B     #$2, D1
18DF6  1401                      Move.B    D1, D2
18DF8  C400                      And.B     D0, D2
18DFA  1614           L4664:     Move.B    (A4), D3        ; read a byte from disk @sc
18DFC  6AFC                      BPL.B     L4664
18DFE  8433 3000                 Or.B      $0(A3,D3.W), D2
18E02  1607                      Move.B    D7, D3
18E04  D607                      Add.B     D7, D3
18E06  E31F                      ROL.B     #$1, D7
18E08  BF02                      Eor.B     D7, D2
18E0A  B418                      Cmp.B     (A0)+, D2
18E0C  6632                      BNE.B     L4667
18E0E  DB02                      AddX.B    D2, D5
18E10  E519                      ROL.B     #$2, D1
18E12  1401                      Move.B    D1, D2
18E14  C400                      And.B     D0, D2
18E16  1614           L4665:     Move.B    (A4), D3        ; read a byte from disk @sc
18E18  6AFC                      BPL.B     L4665
18E1A  8433 3000                 Or.B      $0(A3,D3.W), D2
18E1E  BB02                      Eor.B     D5, D2
18E20  B418                      Cmp.B     (A0)+, D2
18E22  667E                      BNE.B     L4674
18E24  DD02                      AddX.B    D2, D6
18E26  4A44                      Tst       D4
18E28  671E                      BEQ.B     L4668
18E2A  E519                      ROL.B     #$2, D1
18E2C  C200                      And.B     D0, D1
18E2E  4A15           DT175:     Tst.B     (A5)
18E30  6B02                      BMI.B     L4666
18E32  1F16                      Move.B    (A6), -(A7)
18E34  1614           L4666:     Move.B    (A4), D3        ; read a byte from disk @sc
18E36  6AFC                      BPL.B     L4666
18E38  8233 3000                 Or.B      $0(A3,D3.W), D1
18E3C  BD01                      Eor.B     D6, D1
18E3E  B218                      Cmp.B     (A0)+, D1
18E40  6660           L4667:     BNE.B     L4674
18E42  DF01                      AddX.B    D1, D7
18E44  5744                      SubQ      #$3, D4
18E46  609E                      Bra.B     L4662
18E48  4A15           L4668:     Tst.B     (A5)            ; CHECKSUM - read and verify the data checksum @sc
18E4A  6B02                      BMI.B     L4669
18E4C  1F16                      Move.B    (A6), -(A7)
18E4E  1614           L4669:     Move.B    (A4), D3        ; read a byte from disk - first checksum byte? @sc
18E50  6AFC                      BPL.B     L4669
18E52  1233 3000                 Move.B    $0(A3,D3.W), D1
18E56  6B46                      BMI.B     L4673           ; invalid disk byte? @sc
18E58  E519                      ROL.B     #$2, D1
18E5A  1401                      Move.B    D1, D2
18E5C  C400                      And.B     D0, D2
18E5E  1614           L4670:     Move.B    (A4), D3        ; read a byte from disk - second checksum byte? @sc
18E60  6AFC                      BPL.B     L4670
18E62  1633 3000                 Move.B    $0(A3,D3.W), D3
18E66  6B36                      BMI.B     L4673           ; invalid disk byte? @sc
18E68  8403                      Or.B      D3, D2
18E6A  BA02                      Cmp.B     D2, D5
18E6C  6630                      BNE.B     L4673           ; test the checksum @sc
18E6E  E519                      ROL.B     #$2, D1
18E70  1401                      Move.B    D1, D2
18E72  C400                      And.B     D0, D2
18E74  1614           L4671:     Move.B    (A4), D3        ; read a byte from disk - third checksum byte @sc
18E76  6AFC                      BPL.B     L4671
18E78  1633 3000                 Move.B    $0(A3,D3.W), D3
18E7C  6B20                      BMI.B     L4673           ; invalid disk byte? @sc
18E7E  8403                      Or.B      D3, D2
18E80  BC02                      Cmp.B     D2, D6
18E82  661A                      BNE.B     L4673           ; test the checksum @sc
18E84  E519                      ROL.B     #$2, D1
18E86  C200                      And.B     D0, D1
18E88  4A15                      Tst.B     (A5)
18E8A  6B02                      BMI.B     L4672
18E8C  1F16                      Move.B    (A6), -(A7)
18E8E  1614           L4672:     Move.B    (A4), D3        ; read a byte from disk - fourth checksum byte @sc
18E90  6AFC                      BPL.B     L4672
18E92  1633 3000                 Move.B    $0(A3,D3.W), D3
18E96  6B06                      BMI.B     L4673           ; invalid disk byte? @sc
18E98  8203                      Or.B      D3, D1
18E9A  BE01                      Cmp.B     D1, D7
18E9C  6708                      BEQ.B     L4675           ; test the checksum @sc
18E9E  70B8           L4673:     MoveQ.L   #$-48, D0       ; error -72, bad data checksum, bad data mark @sc
18EA0  601A                      Bra.B     L4678
18EA2  70BC           L4674:     MoveQ.L   #$-44, D0       ; error -68, read-verify failed @sc
18EA4  6016                      Bra.B     L4678
18EA6  7801           L4675:     MoveQ.L   #$1, D4
18EA8  1614           L4676:     Move.B    (A4), D3        ; read a trailer byte from disk @sc
18EAA  6AFC                      BPL.B     L4676
18EAC  4A15                      Tst.B     (A5)
18EAE  6B02                      BMI.B     L4677
18EB0  1F16                      Move.B    (A6), -(A7)
18EB2  B61A           L4677:     Cmp.B     (A2)+, D3       ; compare the disk byte against the expected trailer @sc
18EB4  660A                      BNE.B     L4679
18EB6  51CC FFF0                 DBF       D4, L4676
18EBA  7000                      MoveQ.L   #$0, D0
18EBC  6000 FC64      L4678:     Bra       L4625
18EC0  70B7           L4679:     MoveQ.L   #$-49, D0       ; error -73, bad DBtSlp, bad data mark @sc
18EC2  60F8                      Bra.B     L4678
                      ; GCR decode table begins here, starting with disk byte $96 @sc
18EC4  0001 FFFF 0203            DC.B      '      '
18ECA  FF04 0506 FFFF            DC.B      '      '
18ED0  FFFF FFFF 0708            DC.B      '      '
18ED6  FFFF FF09 0A0B            DC.B      '      '
18EDC  0C0D FFFF 0E0F            DC.B      '      '
18EE2  1011 1213 FF14            DC.B      '      '
18EE8  1516 1718 191A            DC.B      '      '
18EEE  FFFF FFFF FFFF            DC.B      '      '
18EF4  FFFF FFFF FF1B            DC.B      '      '
18EFA  FF1C 1D1E FFFF            DC.B      '      '
18F00  FF1F FFFF 2021            DC.B      '     !'
18F06  FF22 2324 2526            DC.B      ' "#$%&'
18F0C  2728 FFFF FFFF            DC.B      ''(    '
18F12  FF29 2A2B FF2C            DC.B      ' )*+ ,'
18F18  2D2E 2F30 3132            DC.B      '-./012'
18F1E  FFFF 3334 3536            DC.B      '  3456'
18F24  3738 FF39 3A3B            DC.B      '78 9:;'
18F2A  3C3D 3E3F                 DC.B      '<=>?'
18F2E  FF3F CFF3 FCFF DT176:     DC.B      ' ?    '
18F34  D5AA                      DC.B      '  '

                      E_Sony_WrData:
18F36  45FA FFF6                 Lea.L     DT176, A2
18F3A  2F38 0232                 Move.L    (DiskVars.JWrData), -(A7)
18F3E  4E75                      Rts

                      P_Sony_WrData:
18F40  21DF 0124                 Move.L    (A7)+, (DskRtnAdr)
18F44  43F8 02FB                 Lea.L     (TagData.1), A1
18F48  283C 0201 0009            Move.L    #$2010009, D4   ; $201.0009 = $201 bytes of data, $9 (+3) bytes of tags @sc
18F4E  7400                      MoveQ.L   #$0, D2
18F50  7600                      MoveQ.L   #$0, D3
18F52  267C 00DF FBFF            Move.L    #$DFFBFF, A3
18F58  4A13                      Tst.B     (A3)
18F5A  7006                      MoveQ.L   #$6, D0         ; do 6 times @sc
18F5C  7A00                      MoveQ.L   #$0, D5
18F5E  13DA 00DF FFFF            Move.B    (A2)+, ($DFFFFF) ; write first sync byte @sc
18F64  7C00                      MoveQ.L   #$0, D6
18F66  7E00                      MoveQ.L   #$0, D7
18F68  121A           L4680:     Move.B    (A2)+, D1
18F6A  4A14           L4681:     Tst.B     (A4)
18F6C  6AFC                      BPL.B     L4681
18F6E  1681                      Move.B    D1, (A3)        ; write data (from A2) - 10-bit sync bytes, and D5 @sc
18F70  4A15                      Tst.B     (A5)
18F72  6B02                      BMI.B     L4682
18F74  1F16                      Move.B    (A6), -(A7)
18F76  5340           L4682:     SubQ      #$1, D0
18F78  66EE                      BNE.B     L4680           ; end of sync byte loop @sc
18F7A  121A                      Move.B    (A2)+, D1       ; get one more byte from A2 - $AA @sc
18F7C  45FA 010C                 Lea.L     DT_Sony_NiblTbl, A2
18F80  4A14           L4683:     Tst.B     (A4)
18F82  6AFC                      BPL.B     L4683
18F84  1681                      Move.B    D1, (A3)        ; write data (from A2?) @sc
18F86  720B                      MoveQ.L   #$B, D1
18F88  1419                      Move.B    (A1)+, D2       ; get a byte to write from A1 to D2 @sc
18F8A  602C                      Bra.B     L4689
18F8C  2248           L4684:     Move.L    A0, A1          ; start writing data instead of tags @sc
18F8E  DF02           L4685:     AddX.B    D2, D7
18F90  BD02                      Eor.B     D6, D2
18F92  1602                      Move.B    D2, D3
18F94  EC4B                      LsR       #$6, D3
18F96  4A14           L4686:     Tst.B     (A4)
18F98  6AFC                      BPL.B     L4686
18F9A  16B2 3000                 Move.B    $0(A2,D3.W), (A3) ; GCR encode D3 @sc
18F9E  5744                      SubQ      #$3, D4         ; 3 longwords = 12 bytes of tags to write @sc
18FA0  1607                      Move.B    D7, D3
18FA2  D607                      Add.B     D7, D3
18FA4  E31F                      ROL.B     #$1, D7
18FA6  0200 003F                 And.B     #$3F, D0
18FAA  4A15           L4687:     Tst.B     (A5)
18FAC  6B02                      BMI.B     L4688
18FAE  1F16                      Move.B    (A6), -(A7)
18FB0  4A14           L4688:     Tst.B     (A4)
18FB2  6AF6                      BPL.B     L4687
18FB4  16B2 0000                 Move.B    $0(A2,D0.W), (A3) ; GCR encode D0 @sc
18FB8  1019           L4689:     Move.B    (A1)+, D0       ; get a byte to write from A1 to D0 @sc
18FBA  DB00                      AddX.B    D0, D5
18FBC  BF00                      Eor.B     D7, D0
18FBE  1600                      Move.B    D0, D3
18FC0  E55B                      ROL       #$2, D3         ; save upper 2 bits in D3 @sc
18FC2  0201 003F                 And.B     #$3F, D1
18FC6  4A14           L4690:     Tst.B     (A4)
18FC8  6AFC                      BPL.B     L4690
18FCA  16B2 1000                 Move.B    $0(A2,D1.W), (A3) ; GCR encode D1 @sc
18FCE  1219                      Move.B    (A1)+, D1       ; get a byte to write from A1 to D1 @sc
18FD0  DD01                      AddX.B    D1, D6
18FD2  BB01                      Eor.B     D5, D1
18FD4  1601                      Move.B    D1, D3
18FD6  E55B                      ROL       #$2, D3         ; save 2 more upper bits in D3 @sc
18FD8  0202 003F                 And.B     #$3F, D2        ; mask lower 6 bits @sc
18FDC  4A15                      Tst.B     (A5)
18FDE  6B02                      BMI.B     L4691
18FE0  1F16                      Move.B    (A6), -(A7)
18FE2  4A14           L4691:     Tst.B     (A4)
18FE4  6AFC                      BPL.B     L4691
18FE6  16B2 2000                 Move.B    $0(A2,D2.W), (A3) ; GCR encode D2 @sc
18FEA  1419                      Move.B    (A1)+, D2       ; get a byte to write from A1 to D2 @sc
18FEC  4A44                      Tst       D4
18FEE  669E                      BNE.B     L4685           ; end of loop? @sc
18FF0  4844                      Swap      D4
18FF2  6698                      BNE.B     L4684           ; switch to data instead of tags @sc
18FF4  4203                      Clr.B     D3
18FF6  EC4B                      LsR       #$6, D3
18FF8  4A14           L4692:     Tst.B     (A4)
18FFA  6AFC                      BPL.B     L4692
18FFC  16B2 3000                 Move.B    $0(A2,D3.W), (A3) ; GCR encode D3 @sc
19000  1605                      Move.B    D5, D3
19002  E55B                      ROL       #$2, D3
19004  1606                      Move.B    D6, D3
19006  E55B                      ROL       #$2, D3
19008  0200 003F                 And.B     #$3F, D0
1900C  4A14           L4693:     Tst.B     (A4)
1900E  6AFC                      BPL.B     L4693
19010  16B2 0000                 Move.B    $0(A2,D0.W), (A3) ; GCR encode D0 @sc
19014  0201 003F                 And.B     #$3F, D1
19018  4A15                      Tst.B     (A5)
1901A  6B02                      BMI.B     L4694
1901C  1F16                      Move.B    (A6), -(A7)
1901E  4A14           L4694:     Tst.B     (A4)
19020  6AFC                      BPL.B     L4694
19022  16B2 1000                 Move.B    $0(A2,D1.W), (A3) ; GCR encode D1 @sc
19026  1607                      Move.B    D7, D3
19028  EC4B                      LsR       #$6, D3
1902A  4A14           L4695:     Tst.B     (A4)
1902C  6AFC                      BPL.B     L4695
1902E  16B2 3000                 Move.B    $0(A2,D3.W), (A3) ; GCR encode D3 @sc
19032  0205 003F                 And.B     #$3F, D5
19036  4A14           L4696:     Tst.B     (A4)
19038  6AFC                      BPL.B     L4696
1903A  16B2 5000                 Move.B    $0(A2,D5.W), (A3) ; GCR encode D5 @sc
1903E  0206 003F                 And.B     #$3F, D6
19042  4A15                      Tst.B     (A5)
19044  6B02                      BMI.B     L4697
19046  1F16                      Move.B    (A6), -(A7)
19048  4A14           L4697:     Tst.B     (A4)
1904A  6AFC                      BPL.B     L4697
1904C  16B2 6000                 Move.B    $0(A2,D6.W), (A3) ; GCR encode D6 @sc
19050  0207 003F                 And.B     #$3F, D7
19054  4A14           L4698:     Tst.B     (A4)
19056  6AFC                      BPL.B     L4698
19058  16B2 7000                 Move.B    $0(A2,D7.W), (A3) ; GCR encode D7 @sc
1905C  45FA 0028                 Lea.L     DT177, A2       ; trailer pointer @sc
19060  7403                      MoveQ.L   #$3, D2
19062  1214           L4699:     Move.B    (A4), D1
19064  6AFC                      BPL.B     L4699
19066  169A                      Move.B    (A2)+, (A3)     ; write trailer bytes from DT177 @sc
19068  4A15                      Tst.B     (A5)
1906A  6B02                      BMI.B     L4700
1906C  1F16                      Move.B    (A6), -(A7)
1906E  51CA FFF2      L4700:     DBF       D2, L4699
19072  7000                      MoveQ.L   #$0, D0
19074  0801 0006                 BTst.B    #$6, D1
19078  6602                      BNE.B     L4701
1907A  70B6                      MoveQ.L   #$-4A, D0       ; error -74, write underrun @sc
1907C  4A39 00DF FDFF L4701:     Tst.B     ($DFFDFF)
19082  6000 FA9E                 Bra       L4625
19086  DEAA FFFF      DT177:     DC.B      '    '

                      DT_Sony_NiblTbl:
1908A  9697 9A9B 9D9E            DC.B      '      '
19090  9FA6 A7AB ACAD            DC.B      '      '
19096  AEAF B2B3 B4B5            DC.B      '      '
1909C  B6B7 B9BA BBBC            DC.B      '      '
190A2  BDBE BFCB CDCE            DC.B      '      '
190A8  CFD3 D6D7 D9DA            DC.B      '      '
190AE  DBDC DDDE DFE5            DC.B      '      '
190B4  E6E7 E9EA EBEC            DC.B      '      '
190BA  EDEE EFF2 F3F4            DC.B      '      '
190C0  F5F6 F7F9 FAFB            DC.B      '      '
190C6  FCFD FEFF                 DC.B      '    '
190CA  FF3F CFF3 FCFF DT194:     DC.B      ' ?    '
190D0  D5AA 9600 0000            DC.B      '      '
190D6  0000 DEAA FFFF            DC.B      '      '
190DC  3FCF F3FC FFD5            DC.B      '?     '
190E2  AAAD 0000                 DC.B      '    '

                      E_1118:
190E6  9EFC 0200                 SubA      #$200, A7
190EA  234F 001C                 Move.L    A7, $1C(A1)
190EE  4A31 1005                 Tst.B     $5(A1,D1.W)     ; drive sides? 00=single sided @sc
190F2  5BE9 0032                 SMI.B     $32(A1)
190F6  6A0C                      BPL.B     L4917
190F8  0C68 0001 001C            Cmp       #$1, $1C(A0)
190FE  6604                      BNE.B     L4917
19100  4229 0032                 Clr.B     $32(A1)
19104  4A29 0032      L4917:     Tst.B     $32(A1)
19108  56F1 1012                 SNE.B     $12(A1,D1.W)    ; disk format, 00=single sided @sc
1910C  337C 0007 0022            Move      #$7, $22(A1)
19112  6100 03BC                 Bsr       P918
19116  2278 0134                 Move.L    (SonyVars), A1
1911A  2069 001C                 Move.L    $1C(A1), A0
1911E  43FA FFAA                 Lea.L     DT194, A1
19122  700B                      MoveQ.L   #$B, D0
19124  721A           L4918:     MoveQ.L   #$1A, D1
19126  2449                      Move.L    A1, A2
19128  10DA           L4919:     Move.B    (A2)+, (A0)+
1912A  51C9 FFFC                 DBF       D1, L4919
1912E  51C8 FFF4                 DBF       D0, L4918
19132  6100 F480                 Bsr       Sony_SetupSonyVars
19136  4269 0016                 Clr       $16(A1)
1913A  6140           L4920:     Bsr.B     P910
1913C  661E                      BNE.B     L4921
1913E  6100 00A6                 Bsr       P911
19142  6618                      BNE.B     L4921
19144  6100 F46E                 Bsr       Sony_SetupSonyVars
19148  08A9 0003 0016            BClr.B    #$3, $16(A1)
1914E  5269 0016                 AddQ      #$1, $16(A1)
19152  0C69 0050 0016            Cmp       #$50, $16(A1)
19158  6DE0                      BLT.B     L4920
1915A  7000                      MoveQ.L   #$0, D0
1915C  3429 003A      L4921:     Move      $3A(A1), D2
19160  DEFC 0200                 AddA      #$200, A7
19164  6000 EF98                 Bra       L4511
19168  11BC 1162 1359 DT197:     DC.B      '   b Y'
1916E  12F7 1549 14DD            DC.B      '   I  '
19174  17A6 172E 1A9A            DC.B      '   .  '
1917A  1A14                      DC.B      '  '
1917C  1369 0030 0031 P910:      Move.B    $30(A1), $31(A1)
19182  3C29 0016      L4963:     Move      $16(A1), D6
19186  6100 032E                 Bsr       P916
1918A  6100 F428                 Bsr       Sony_SetupSonyVars
1918E  3C31 1000                 Move      $0(A1,D1.W), D6 ; current track number @sc
19192  6B50                      BMI.B     L4923
19194  4A31 1013                 Tst.B     $13(A1,D1.W)    ; interface? 00=400K @sc
19198  6B48                      BMI.B     L4922
1919A  700F                      MoveQ.L   #$F, D0
1919C  C006                      And.B     D6, D0
1919E  6642                      BNE.B     L4922
191A0  E84E                      LsR       #$4, D6
191A2  E74E                      LsL       #$3, D6
191A4  45F1 101A                 Lea.L     $1A(A1,D1.W), A2
191A8  45F2 6004                 Lea.L     $4(A2,D6.W), A2
191AC  2438 016A                 Move.L    (Ticks), D2
191B0  2482                      Move.L    D2, (A2)
191B2  47FA 0006                 Lea.L     DT195, A3
191B6  6000 F8B4                 Bra       L4614

                      DT195:
191BA  6B22                      BMI.B     L4965
191BC  3022                      Move      -(A2), D0
191BE  E248                      LsR       #$1, D0
191C0  41FA FFA6                 Lea.L     DT197, A0
191C4  E24E                      LsR       #$1, D6
191C6  D0C6                      AddA      D6, A0
191C8  B858                      Cmp       (A0)+, D4
191CA  6E06                      BGT.B     L4964
191CC  4440                      Neg       D0
191CE  B850                      Cmp       (A0), D4
191D0  6E10                      BGT.B     L4922
191D2  9162           L4964:     Sub       D0, -(A2)
191D4  42AA 0004                 Clr.L     $4(A2)
191D8  5329 0031                 SubQ      #$1, $31(A1)
191DC  6AA4                      BPL.B     L4963
191DE  70B1           L4965:     MoveQ.L   #$-4F, D0       ; error -79, can't adjust disk speed @sc
191E0  6002                      Bra.B     L4923
191E2  7000           L4922:     MoveQ.L   #$0, D0
191E4  4E75           L4923:     Rts

                      P911:
191E6  6100 F3CC                 Bsr       Sony_SetupSonyVars
191EA  3C29 0016                 Move      $16(A1), D6
191EE  3206                      Move      D6, D1
191F0  0881 000B                 BClr.B    #$B, D1
191F4  E849                      LsR       #$4, D1
191F6  700C                      MoveQ.L   #$C, D0
191F8  9041                      Sub       D1, D0
191FA  3340 0020                 Move      D0, $20(A1)
191FE  6100 0162                 Bsr       P913
19202  6100 007E      L4924:     Bsr       P912
19206  670C                      BEQ.B     L4925
19208  6100 02A4                 Bsr       P915
1920C  027C F8FF                 And       #$-701, SR
19210  6000 005C                 Bra       L4929
19214  6100 FA02      L4925:     Bsr       E_Sony_RdAddr   ; get the sector address info @sc
19218  6B06                      BMI.B     L4926
1921A  4A02                      Tst.B     D2
1921C  6702                      BEQ.B     L4926
1921E  70AE                      MoveQ.L   #$-52, D0       ; error -82, ??? @sc
19220  6100 028C      L4926:     Bsr       P915
19224  027C F8FF                 And       #$-701, SR
19228  41E9 0022                 Lea.L     $22(A1), A0
1922C  3038 0142                 Move      (DskErr), D0
19230  6B46                      BMI.B     L4931
19232  243C 0000 05E0            Move.L    #$5E0, D2
19238  9440                      Sub       D0, D2
1923A  84FC 0005                 DivU      #$5, D2
1923E  31FC FFAD 0142            Move      #$-53, (DskErr) ; error -83, ??? @sc
19244  9450                      Sub       (A0), D2
19246  6B2C                      BMI.B     L4930
19248  48C2                      Ext.L     D2
1924A  84E9 0020                 DivU      $20(A1), D2
1924E  6706                      BEQ.B     L4927
19250  5342                      SubQ      #$1, D2
19252  6702                      BEQ.B     L4927
19254  5250                      AddQ      #$1, (A0)
19256  6100 F35C      L4927:     Bsr       Sony_SetupSonyVars
1925A  08E9 0003 0016            BSet.B    #$3, $16(A1)
19260  6608                      BNE.B     L4928
19262  4A29 0032                 Tst.B     $32(A1)
19266  6600 FF7E                 BNE       P911
1926A  4278 0142      L4928:     Clr       (DskErr)
1926E  3038 0142      L4929:     Move      (DskErr), D0
19272  4E75                      Rts
19274  5242           L4930:     AddQ      #$1, D2
19276  67DE                      BEQ.B     L4927
19278  5350           L4931:     SubQ      #$1, (A0)
1927A  0C50 0004                 Cmp       #$4, (A0)
1927E  6DEE                      BLT.B     L4929
19280  6080                      Bra.B     L4924

                      P912:
19282  21DF 0124                 Move.L    (A7)+, (DskRtnAdr)
19286  7001                      MoveQ.L   #$1, D0
19288  2278 0134                 Move.L    (SonyVars), A1
1928C  4A29 0032                 Tst.B     $32(A1)
19290  6708                      BEQ.B     L4932
19292  0806 000B                 BTst.B    #$B, D6
19296  6702                      BEQ.B     L4932
19298  7003                      MoveQ.L   #$3, D0
1929A  6100 F328      L4932:     Bsr       P_Sony_AdrDisk
1929E  7004                      MoveQ.L   #$4, D0
192A0  6100 F942                 Bsr       E_Sony_SetUpPoll
192A4  267C 00DF FBFF            Move.L    #$DFFBFF, A3
192AA  287C 00DF F9FF            Move.L    #$DFF9FF, A4
192B0  2069 001C                 Move.L    $1C(A1), A0
192B4  3029 0020                 Move      $20(A1), D0
192B8  3229 0022                 Move      $22(A1), D1
192BC  5541                      SubQ      #$2, D1
192BE  43FA FE0A                 Lea.L     DT194, A1
192C2  363C 00C7                 Move      #$C7, D3
192C6  4A13                      Tst.B     (A3)
192C8  13C3 00DF FFFF            Move.B    D3, ($DFFFFF)
192CE  2449           L4933:     Move.L    A1, A2
192D0  7402                      MoveQ.L   #$2, D2
192D2  181A           L4934:     Move.B    (A2)+, D4
192D4  4A14           L4935:     Tst.B     (A4)
192D6  6AFC                      BPL.B     L4935
192D8  1684                      Move.B    D4, (A3)
192DA  181A                      Move.B    (A2)+, D4
192DC  4A15                      Tst.B     (A5)
192DE  6B02                      BMI.B     L4936
192E0  1F16                      Move.B    (A6), -(A7)
192E2  4A14           L4936:     Tst.B     (A4)
192E4  6AFC                      BPL.B     L4936
192E6  1684                      Move.B    D4, (A3)
192E8  51CA FFE8                 DBF       D2, L4934
192EC  51CB FFE0                 DBF       D3, L4933
192F0  3601           L4937:     Move      D1, D3
192F2  2449           L4938:     Move.L    A1, A2
192F4  7405                      MoveQ.L   #$5, D2
192F6  4A14           L4939:     Tst.B     (A4)
192F8  6AFC                      BPL.B     L4939
192FA  169A                      Move.B    (A2)+, (A3)
192FC  4A15                      Tst.B     (A5)
192FE  6B02                      BMI.B     L4940
19300  1F16                      Move.B    (A6), -(A7)
19302  51CA FFF2      L4940:     DBF       D2, L4939
19306  51CB FFEA                 DBF       D3, L4938
1930A  741A                      MoveQ.L   #$1A, D2
1930C  4A14           L4941:     Tst.B     (A4)
1930E  6AFC                      BPL.B     L4941
19310  1698                      Move.B    (A0)+, (A3)
19312  4A15                      Tst.B     (A5)
19314  6B02                      BMI.B     L4942
19316  1F16                      Move.B    (A6), -(A7)
19318  51CA FFF2      L4942:     DBF       D2, L4941
1931C  343C 02BE                 Move      #$2BE, D2
19320  4A14           L4943:     Tst.B     (A4)
19322  6AFC                      BPL.B     L4943
19324  16BC 0096                 Move.B    #$-6A, (A3)
19328  4A15                      Tst.B     (A5)
1932A  6B02                      BMI.B     L4944
1932C  1F16                      Move.B    (A6), -(A7)
1932E  51CA FFF0      L4944:     DBF       D2, L4943
19332  7403                      MoveQ.L   #$3, D2
19334  504A                      AddQ      #$8, A2
19336  4A14           L4945:     Tst.B     (A4)
19338  6AFC                      BPL.B     L4945
1933A  169A                      Move.B    (A2)+, (A3)
1933C  51CA FFF8                 DBF       D2, L4945
19340  5340                      SubQ      #$1, D0
19342  6EAC                      BGT.B     L4937
19344  1014                      Move.B    (A4), D0
19346  7400                      MoveQ.L   #$0, D2
19348  0800 0006                 BTst.B    #$6, D0
1934C  6604                      BNE.B     L4946
1934E  70B6                      MoveQ.L   #$-4A, D0       ; error -74, write underrun @sc
19350  6002                      Bra.B     L4947
19352  7000           L4946:     MoveQ.L   #$0, D0
19354  4A39 00DF FDFF L4947:     Tst.B     ($DFFDFF)
1935A  2F38 0124                 Move.L    (DskRtnAdr), -(A7)
1935E  4A40                      Tst       D0
19360  4E75                      Rts

                      P913:
19362  48E7 FFC0                 MoveM.L   D0-D7/A0-A1, -(A7)
19366  2278 0134                 Move.L    (SonyVars), A1
1936A  2069 001C                 Move.L    $1C(A1), A0
1936E  7602                      MoveQ.L   #$2, D3
19370  4A29 0032                 Tst.B     $32(A1)
19374  6702                      BEQ.B     L4948
19376  7622                      MoveQ.L   #$22, D3        ; 800K format byte? @sc
19378  2278 025A      L4948:     Move.L    (DiskVars.NiblTbl), A1
1937C  1E31 3000                 Move.B    $0(A1,D3.W), D7
19380  1A03                      Move.B    D3, D5
19382  763F                      MoveQ.L   #$3F, D3
19384  C606                      And.B     D6, D3
19386  1431 3000                 Move.B    $0(A1,D3.W), D2
1938A  B705                      Eor.B     D3, D5
1938C  EC4E                      LsR       #$6, D6
1938E  BD05                      Eor.B     D6, D5
19390  1C31 6000                 Move.B    $0(A1,D6.W), D6
19394  3200                      Move      D0, D1
19396  5341                      SubQ      #$1, D1
19398  E249                      LsR       #$1, D1
1939A  5241                      AddQ      #$1, D1
1939C  4841                      Swap      D1
1939E  4241                      Clr       D1
193A0  1631 1000      L4949:     Move.B    $0(A1,D1.W), D3 ; current track @sc
193A4  7800                      MoveQ.L   #$0, D4
193A6  1805                      Move.B    D5, D4
193A8  B304                      Eor.B     D1, D4
193AA  D0FC 0009                 AddA      #$9, A0
193AE  10C2                      Move.B    D2, (A0)+
193B0  10C3                      Move.B    D3, (A0)+
193B2  10C6                      Move.B    D6, (A0)+
193B4  10C7                      Move.B    D7, (A0)+
193B6  10F1 4000                 Move.B    $0(A1,D4.W), (A0)+
193BA  D0FC 000C                 AddA      #$C, A0
193BE  10C3                      Move.B    D3, (A0)+
193C0  5241                      AddQ      #$1, D1
193C2  4841                      Swap      D1
193C4  5340                      SubQ      #$1, D0
193C6  66D8                      BNE.B     L4949
193C8  4CDF 03FF                 MoveM.L   (A7)+, D0-D7/A0-A1
193CC  4E75                      Rts

                      E_1119:
193CE  9EFC 0200                 SubA      #$200, A7
193D2  234F 001C                 Move.L    A7, $1C(A1)
193D6  6100 00F8                 Bsr       P918
193DA  7404                      MoveQ.L   #$4, D2
193DC  383C 007F                 Move      #$7F, D4
193E0  7C4F                      MoveQ.L   #$4F, D6
193E2  E34C           L4950:     LsL       #$1, D4
193E4  5244                      AddQ      #$1, D4
193E6  760F                      MoveQ.L   #$F, D3
193E8  48E7 3E00      L4951:     MoveM.L   D2-D6, -(A7)
193EC  6100 00C8                 Bsr       P916
193F0  4CDF 007C                 MoveM.L   (A7)+, D2-D6
193F4  6100 F1BE                 Bsr       Sony_SetupSonyVars
193F8  3031 1000                 Move      $0(A1,D1.W), D0 ; current track @sc
193FC  6B0E                      BMI.B     L4952
193FE  6110                      Bsr.B     P914
19400  660A                      BNE.B     L4952
19402  5346                      SubQ      #$1, D6
19404  51CB FFE2                 DBF       D3, L4951
19408  51CA FFD8                 DBF       D2, L4950
1940C  6000 FD4E      L4952:     Bra       L4921

                      P914:
19410  48E7 3E00                 MoveM.L   D2-D6, -(A7)
19414  007C 0300                 Or        #$300, SR
19418  41E9 0022                 Lea.L     $22(A1), A0
1941C  3084                      Move      D4, (A0)
1941E  760C                      MoveQ.L   #$C, D3
19420  9642                      Sub       D2, D3
19422  E54B                      LsL       #$2, D3
19424  3143 0002                 Move      D3, $2(A0)
19428  20D8                      Move.L    (A0)+, (A0)+
1942A  08A9 0003 0016            BClr.B    #$3, $16(A1)
19430  2C01           L4953:     Move.L    D1, D6
19432  6100 F7D0                 Bsr       P879
19436  6A08                      BPL.B     L4954
19438  6174                      Bsr.B     P915
1943A  027C F8FF                 And       #$-701, SR
1943E  6062                      Bra.B     L4959
19440  41E9 0020      L4954:     Lea.L     $20(A1), A0
19444  30C2                      Move      D2, (A0)+
19446  3018                      Move      (A0)+, D0
19448  0580                      BClr.L    D2, D0
1944A  660C                      BNE.B     L4955
1944C  6160                      Bsr.B     P915
1944E  027C F8FF                 And       #$-701, SR
19452  41E9 0024                 Lea.L     $24(A1), A0
19456  6028                      Bra.B     L4956
19458  0C03 001F      L4955:     Cmp.B     #$1F, D3
1945C  5EF1 6012                 SGT.B     $12(A1,D6.W)
19460  2069 001C                 Move.L    $1C(A1), A0
19464  4238 012C                 Clr.B     (DskVerify)
19468  6100 F874                 Bsr       E_Sony_RdData
1946C  6140                      Bsr.B     P915
1946E  4A40                      Tst       D0
19470  6630                      BNE.B     L4959
19472  41E9 0020                 Lea.L     $20(A1), A0
19476  3418                      Move      (A0)+, D2
19478  3010                      Move      (A0), D0
1947A  0580                      BClr.L    D2, D0
1947C  30C0                      Move      D0, (A0)+
1947E  6708                      BEQ.B     L4957
19480  5350           L4956:     SubQ      #$1, (A0)
19482  66AC                      BNE.B     L4953
19484  70AC                      MoveQ.L   #$-54, D0       ; error -84, ??? @sc
19486  601A                      Bra.B     L4959
19488  6100 F12A      L4957:     Bsr       Sony_SetupSonyVars
1948C  4A31 1012                 Tst.B     $12(A1,D1.W)    ; format? 00=400K @sc
19490  670E                      BEQ.B     L4958
19492  08E9 0003 0016            BSet.B    #$3, $16(A1)
19498  6606                      BNE.B     L4958
1949A  5448                      AddQ      #$2, A0
1949C  2110                      Move.L    (A0), -(A0)
1949E  6090                      Bra.B     L4953
194A0  7000           L4958:     MoveQ.L   #$0, D0
194A2  027C F8FF      L4959:     And       #$-701, SR
194A6  4CDF 007C                 MoveM.L   (A7)+, D2-D6
194AA  4A40                      Tst       D0
194AC  4E75                      Rts

                      P915:
194AE  31C0 0142                 Move      D0, (DskErr)
194B2  6000 F058                 Bra       P857
194B6  41FA F260      P916:      Lea.L     E_Sony_Seek, A0
194BA  4238 0142      L4960:     Clr.B     (DskErr)
194BE  6108                      Bsr.B     P917
194C0  4A38 0142      L4961:     Tst.B     (DskErr)
194C4  67FA                      BEQ.B     L4961
194C6  4E75                      Rts

                      P917:
194C8  4E90                      Jsr       (A0)
194CA  50F8 0142                 ST.B      (DskErr)
194CE  4E75                      Rts

                      P918:
194D0  41FA F438                 Lea.L     Sony_MotorOn2, A0
194D4  60E4                      Bra.B     L4960
194D6  027C F8FF      L4702:     And       #$-701, SR
194DA  3029 0112                 Move      $112(A1), D0
194DE  B069 0012                 Cmp       $12(A1), D0     ; drive number @sc
194E2  6706                      BEQ.B     L4703
194E4  700A                      MoveQ.L   #$A, D0
194E6  6100 F2EC                 Bsr       E_Sony_WakeUp
194EA  2078 01E0      L4703:     Move.L    (IWM), A0
194EE  4A10                      Tst.B     (A0)
194F0  4A28 0800                 Tst.B     $800(A0)
194F4  0C31 0002 1003            Cmp.B     #$2, $3(A1,D1.W) ; disk in place? 2==MacOS Read @sc
194FA  6C48                      BGE.B     L4704
194FC  41FA 000A                 Lea.L     DT178, A0
19500  2348 0198                 Move.L    A0, $198(A1)
19504  6000 07E2                 Bra       L4806

                      DT178:
19508  6600 013E                 BNE       L4718
1950C  6100 F09E                 Bsr       Sony_SetupRegs
19510  13BC 0008 1003            Move.B    #$8, $3(A1,D1.W) ; disk in place, 8=???? @sc
19516  23A9 01A2 1016            Move.L    $1A2(A1), $16(A1,D1.W)
1951C  2029 01A6                 Move.L    $1A6(A1), D0
19520  4840                      Swap      D0
19522  2380 1012                 Move.L    D0, $12(A1,D1.W) ; disk format? 00=400K @sc
19526  4231 1014                 Clr.B     $14(A1,D1.W)
1952A  E048                      LsR       #$8, D0
1952C  1380 101A                 Move.B    D0, $1A(A1,D1.W)
19530  0800 0003                 BTst.B    #$3, D0
19534  56F1 1002                 SNE.B     $2(A1,D1.W)     ; write protect? $FF=protected @sc
19538  0800 0004                 BTst.B    #$4, D0
1953C  6706                      BEQ.B     L4704
1953E  13BC 0002 1003            Move.B    #$2, $3(A1,D1.W) ; disk in place, 2=MacOS Read @sc
19544  2451           L4704:     Move.L    (A1), A2
19546  2A2A 0010                 Move.L    $10(A2), D5
1954A  7209                      MoveQ.L   #$9, D1
1954C  E2AD                      LsR.L     D1, D5
1954E  206A 0008                 Move.L    $8(A2), A0
19552  2A69 00F4                 Move.L    $F4(A1), A5
19556  2868 0020                 Move.L    $20(A0), A4
1955A  2628 0024                 Move.L    $24(A0), D3
1955E  70CE                      MoveQ.L   #$-32, D0       ; error -50, bad positioning info @sc
19560  0243 01FF                 And       #$1FF, D3
19564  6600 00E2                 BNE       L4718
19568  2628 0024                 Move.L    $24(A0), D3
1956C  4A38 012C                 Tst.B     (DskVerify)
19570  6714                      BEQ.B     L4705
19572  6100 EF90                 Bsr       P856
19576  660E                      BNE.B     L4705
19578  2143 0028                 Move.L    D3, $28(A0)
1957C  D7AA 0010                 Add.L     D3, $10(A2)
19580  7000                      MoveQ.L   #$0, D0
19582  6000 00C4                 Bra       L4718
19586  1369 0033 019C L4705:     Move.B    $33(A1), $19C(A1)
1958C  5529 019C                 SubQ      #$2, $19C(A1)
19590  7209           L4706:     MoveQ.L   #$9, D1
19592  E2AB                      LsR.L     D1, D3
19594  7000                      MoveQ.L   #$0, D0
19596  5300                      SubQ      #$1, D0
19598  B680                      Cmp.L     D0, D3
1959A  6D02                      BLT.B     L4707
1959C  2600                      Move.L    D0, D3
1959E  3403           L4707:     Move      D3, D2
195A0  4843                      Swap      D3
195A2  3602                      Move      D2, D3
195A4  137C 0003 002D            Move.B    #$3, $2D(A1)
195AA  4229 01BF                 Clr.B     $1BF(A1)
195AE  6100 00CC      L4708:     Bsr       P883
195B2  6100 00F8                 Bsr       E_Sony_SendCmd
195B6  6624                      BNE.B     L4711
195B8  6100 009E      L4709:     Bsr       P882
195BC  6A12                      BPL.B     L4710
195BE  137C 0002 01BE            Move.B    #$2, $1BE(A1)
195C4  42A9 01BA                 Clr.L     $1BA(A1)
195C8  137C 0040 01BA            Move.B    #$40, $1BA(A1)
195CE  600C                      Bra.B     L4711
195D0  6100 0184      L4710:     Bsr       P885
195D4  67E2                      BEQ.B     L4709
195D6  DA84                      Add.L     D4, D5
195D8  4A40                      Tst       D0
195DA  673C                      BEQ.B     L4716
195DC  5329 002D      L4711:     SubQ      #$1, $2D(A1)
195E0  6D28                      BLT.B     L4714
195E2  671A                      BEQ.B     L4712
195E4  0C29 0002 01BE            Cmp.B     #$2, $1BE(A1)
195EA  661C                      BNE.B     L4713
195EC  0829 001E 01BA            BTst.B    #$1E, $1BA(A1)
195F2  6614                      BNE.B     L4713
195F4  4A29 01BF                 Tst.B     $1BF(A1)
195F8  6704                      BEQ.B     L4712
195FA  4229 002D                 Clr.B     $2D(A1)
195FE  6100 0666      L4712:     Bsr       E_Sony_DCDReset
19602  6606                      BNE.B     L4714
19604  50E9 01BF                 ST.B      $1BF(A1)
19608  60A4           L4713:     Bra.B     L4708
1960A  70ED           L4714:     MoveQ.L   #$-13, D0       ; error -19, read error, driver can't respond to read calls @sc
1960C  0C29 0002 0033            Cmp.B     #$2, $33(A1)
19612  6702                      BEQ.B     L4715
19614  70EC                      MoveQ.L   #$-14, D0       ; error -20, write error, can't respond to write calls @sc
19616  6030           L4715:     Bra.B     L4718
19618  7209           L4716:     MoveQ.L   #$9, D1
1961A  4243                      Clr       D3
1961C  4843                      Swap      D3
1961E  0C29 0002 0033            Cmp.B     #$2, $33(A1)
19624  6704                      BEQ.B     L4717
19626  D7B8 0300                 Add.L     D3, (BufTgFFlg)
1962A  E3AB           L4717:     LsL.L     D1, D3
1962C  2651                      Move.L    (A1), A3
1962E  D7AB 0010                 Add.L     D3, $10(A3)
19632  206B 0008                 Move.L    $8(A3), A0
19636  D7A8 0028                 Add.L     D3, $28(A0)
1963A  2628 0024                 Move.L    $24(A0), D3
1963E  96A8 0028                 Sub.L     $28(A0), D3
19642  6E00 FF4C                 BGT       L4706
19646  7000                      MoveQ.L   #$0, D0
19648  2078 01E0      L4718:     Move.L    (IWM), A0
1964C  4A28 1000                 Tst.B     $1000(A0)
19650  027C F8FF                 And       #$-701, SR
19654  6000 E88A                 Bra       Sony_ReturnResult

                      P882:
19658  265F                      Move.L    (A7)+, A3
1965A  7064           L4719:     MoveQ.L   #$64, D0
1965C  4A28 1A00      L4720:     Tst.B     $1A00(A0)
19660  4A28 1C00                 Tst.B     $1C00(A0)
19664  5AC8 FFF6                 DBPL      D0, L4720
19668  6A10                      BPL.B     L4721
1966A  5369 01C2                 SubQ      #$1, $1C2(A1)
1966E  6B0A                      BMI.B     L4721
19670  3029 01C0                 Move      $1C0(A1), D0
19674  6100 F15E                 Bsr       E_Sony_WakeUp
19678  60E0                      Bra.B     L4719
1967A  4ED3           L4721:     Jmp       (A3)

                      P883:
1967C  2005                      Move.L    D5, D0
1967E  E188                      LsL.L     #$8, D0
19680  2340 019E                 Move.L    D0, $19E(A1)
19684  1343 019D                 Move.B    D3, $19D(A1)
19688  337C 000A 01C0            Move      #$A, $1C0(A1)
1968E  337C 2710 01C2            Move      #$2710, $1C2(A1)
19694  2C3C 0000 0200            Move.L    #$200, D6
1969A  7E00                      MoveQ.L   #$0, D7
1969C  4A29 019C                 Tst.B     $19C(A1)
196A0  6602                      BNE.B     L4722
196A2  CD47                      Exg.L     D6, D7
196A4  0229 003F 019C L4722:     And.B     #$3F, $19C(A1)
196AA  4E75                      Rts
                      E_Sony_SendCmd:
196AC  2F38 0B44                 Move.L    (JSendCmd), -(A7)
196B0  4E75                      Rts
                      P_Sony_SendCmd:
196B2  2078 01E0                 Move.L    (IWM), A0
196B6  47E8 1800                 Lea.L     $1800(A0), A3
196BA  2346 01B6                 Move.L    D6, $1B6(A1)
196BE  DFA9 01B6                 Add.L     D7, $1B6(A1)
196C2  1229 019C                 Move.B    $19C(A1), D1
196C6  0C01 0003                 Cmp.B     #$3, D1
196CA  6C2E                      BGE.B     L4724
196CC  4A01                      Tst.B     D1
196CE  6606                      BNE.B     L4723
196D0  0647 0014                 Add       #$14, D7
196D4  6024                      Bra.B     L4724
196D6  0646 0014      L4723:     Add       #$14, D6
196DA  200D                      Move.L    A5, D0
196DC  661C                      BNE.B     L4724
196DE  D2FC 01A2                 AddA      #$1A2, A1
196E2  22F8 02FC                 Move.L    (BufTgFNum), (A1)+
196E6  22F8 0300                 Move.L    (BufTgFFlg), (A1)+
196EA  22F8 0304                 Move.L    (BufTgDate), (A1)+
196EE  22F8 038A                 Move.L    (BufTgHD20), (A1)+
196F2  22F8 038E                 Move.L    (BufTgHD20.1), (A1)+
196F6  2278 0134                 Move.L    (SonyVars), A1
196FA  5C46           L4724:     AddQ      #$6, D6
196FC  8CFC 0007                 DivU      #$7, D6
19700  0246 007F                 And       #$7F, D6
19704  5C47                      AddQ      #$6, D7
19706  8EFC 0007                 DivU      #$7, D7
1970A  0247 007F                 And       #$7F, D7
1970E  7800                      MoveQ.L   #$0, D4
19710  601E                      Bra.B     L4726
19712  4A01           L4725:     Tst.B     D1
19714  673E                      BEQ.B     L4728
19716  0029 0040 019C            Or.B      #$40, $19C(A1)
1971C  1343 019D                 Move.B    D3, $19D(A1)
19720  52A9 01A6                 AddQ      #$1, $1A6(A1)
19724  337C 0007 01C0            Move      #$7, $1C0(A1)
1972A  337C 2710 01C2            Move      #$2710, $1C2(A1)
19730  0C01 0003      L4726:     Cmp.B     #$3, D1
19734  6C16                      BGE.B     L4727
19736  4A01                      Tst.B     D1
19738  6712                      BEQ.B     L4727
1973A  200D                      Move.L    A5, D0
1973C  670E                      BEQ.B     L4727
1973E  D2FC 01A2                 AddA      #$1A2, A1
19742  22DD                      Move.L    (A5)+, (A1)+
19744  22DD                      Move.L    (A5)+, (A1)+
19746  22DD                      Move.L    (A5)+, (A1)+
19748  2278 0134                 Move.L    (SonyVars), A1
1974C  6100 02D2      L4727:     Bsr       P887
19750  6600 00AC                 BNE       L4733
19754  4E75           L4728:     Rts
19756  2078 01E0      P885:      Move.L    (IWM), A0
1975A  47E8 1800                 Lea.L     $1800(A0), A3
1975E  1229 019C                 Move.B    $19C(A1), D1
19762  0201 003F                 And.B     #$3F, D1
19766  6100 00A6                 Bsr       P886
1976A  6600 0092                 BNE       L4733
1976E  2029 019C                 Move.L    $19C(A1), D0
19772  103C 0030                 Move.B    #$30, D0
19776  0429 0080 019C            Sub.B     #$-80, $19C(A1)
1977C  B229 019C                 Cmp.B     $19C(A1), D1
19780  667C                      BNE.B     L4733
19782  0C01 0003                 Cmp.B     #$3, D1
19786  6C4C                      BGE.B     L4731
19788  103C 0031                 Move.B    #$31, D0
1978C  B629 019D                 Cmp.B     $19D(A1), D3
19790  6710                      BEQ.B     L4729
19792  4840                      Swap      D0
19794  1003                      Move.B    D3, D0
19796  4840                      Swap      D0
19798  E098                      ROR.L     #$8, D0
1979A  1029 019D                 Move.B    $19D(A1), D0
1979E  E198                      ROL.L     #$8, D0
197A0  605C                      Bra.B     L4733
197A2  4A01           L4729:     Tst.B     D1
197A4  662E                      BNE.B     L4731
197A6  200D                      Move.L    A5, D0
197A8  670E                      BEQ.B     L4730
197AA  D2FC 01A2                 AddA      #$1A2, A1
197AE  2AD9                      Move.L    (A1)+, (A5)+
197B0  2AD9                      Move.L    (A1)+, (A5)+
197B2  2AD9                      Move.L    (A1)+, (A5)+
197B4  2278 0134                 Move.L    (SonyVars), A1
197B8  D2FC 01A2      L4730:     AddA      #$1A2, A1
197BC  21D9 02FC                 Move.L    (A1)+, (BufTgFNum)
197C0  21D9 0300                 Move.L    (A1)+, (BufTgFFlg)
197C4  21D9 0304                 Move.L    (A1)+, (BufTgDate)
197C8  21D9 038A                 Move.L    (A1)+, (BufTgHD20)
197CC  21D9 038E                 Move.L    (A1)+, (BufTgHD20.1)
197D0  2278 0134                 Move.L    (SonyVars), A1
197D4  7401           L4731:     MoveQ.L   #$1, D2
197D6  2029 019E                 Move.L    $19E(A1), D0
197DA  0800 0018                 BTst.B    #$18, D0
197DE  6622                      BNE.B     L4734
197E0  0C29 000A 019E            Cmp.B     #$A, $19E(A1)
197E6  671A                      BEQ.B     L4734
197E8  D9E9 01B6                 AddA.L    $1B6(A1), A4
197EC  5284                      AddQ      #$1, D4
197EE  5303                      SubQ      #$1, D3
197F0  6600 FF20                 BNE       L4725
197F4  7000                      MoveQ.L   #$0, D0
197F6  5243           L4732:     AddQ      #$1, D3
197F8  027C FFFB                 And       #$-5, SR
197FC  4E75                      Rts
197FE  7402           L4733:     MoveQ.L   #$2, D2
19800  E098                      ROR.L     #$8, D0
19802  2340 01BA      L4734:     Move.L    D0, $1BA(A1)
19806  1342 01BE                 Move.B    D2, $1BE(A1)
1980A  7001                      MoveQ.L   #$1, D0
1980C  60E8                      Bra.B     L4732
1980E  40E7           P886:      Move      SR, -(A7)
19810  48E7 7F4E                 MoveM.L   D1-D7/A1/A4-A6, -(A7)
19814  D2FC 019C                 AddA      #$19C, A1
19818  7A00                      MoveQ.L   #$0, D5
1981A  4A28 1A00                 Tst.B     $1A00(A0)
1981E  7020                      MoveQ.L   #$20, D0
19820  4A28 1C00                 Tst.B     $1C00(A0)
19824  6B00 01E8                 BMI       L4770
19828  4CF8 6000 01D8            MoveM.L   (SCCRd), A5-A6
1982E  544D                      AddQ      #$2, A5
19830  544E                      AddQ      #$2, A6
19832  007C 0700                 Or        #$700, SR
19836  4A28 0200                 Tst.B     $200(A0)
1983A  4A28 0400                 Tst.B     $400(A0)
1983E  4A13                      Tst.B     (A3)
19840  7021                      MoveQ.L   #$21, D0
19842  7C01                      MoveQ.L   #$1, D6
19844  4846                      Swap      D6
19846  5386           L4735:     SubQ      #$1, D6
19848  6700 01C4                 BEQ       L4770
1984C  0C13 00AA                 Cmp.B     #$-56, (A3)
19850  66F4                      BNE.B     L4735
19852  3C3C 0050                 Move      #$50, D6
19856  1213           L4736:     Move.B    (A3), D1
19858  5BCE FFFC                 DBMI      D6, L4736
1985C  6A58                      BPL.B     L4745
1985E  0C01 00BF                 Cmp.B     #$-41, D1
19862  6604                      BNE.B     L4737
19864  7E06                      MoveQ.L   #$6, D7
19866  4847                      Swap      D7
19868  4841           L4737:     Swap      D1
1986A  1213           L4738:     Move.B    (A3), D1
1986C  5BCE FFFC                 DBMI      D6, L4738
19870  6A44                      BPL.B     L4745
19872  4841                      Swap      D1
19874  1413           L4739:     Move.B    (A3), D2
19876  5BCE FFFC                 DBMI      D6, L4739
1987A  6A3A                      BPL.B     L4745
1987C  4842                      Swap      D2
1987E  1413           L4740:     Move.B    (A3), D2
19880  5BCE FFFC                 DBMI      D6, L4740
19884  6A30                      BPL.B     L4745
19886  4842                      Swap      D2
19888  1613           L4741:     Move.B    (A3), D3
1988A  5BCE FFFC                 DBMI      D6, L4741
1988E  6A26                      BPL.B     L4745
19890  4843                      Swap      D3
19892  1613           L4742:     Move.B    (A3), D3
19894  5BCE FFFC                 DBMI      D6, L4742
19898  6A1C                      BPL.B     L4745
1989A  4843                      Swap      D3
1989C  1813           L4743:     Move.B    (A3), D4
1989E  5BCE FFFC                 DBMI      D6, L4743
198A2  6A12                      BPL.B     L4745
198A4  4844                      Swap      D4
198A6  1813           L4744:     Move.B    (A3), D4
198A8  5BCE FFFC                 DBMI      D6, L4744
198AC  6A08                      BPL.B     L4745
198AE  51CF 000C                 DBF       D7, L4746
198B2  6000 00EC                 Bra       L4763
198B6  7022           L4745:     MoveQ.L   #$22, D0
198B8  6000 0154                 Bra       L4770
198BC  7C03           L4746:     MoveQ.L   #$3, D6
198BE  4846                      Swap      D6
198C0  3C3C 0050                 Move      #$50, D6
198C4  E20C           L4747:     LsR.B     #$1, D4
198C6  D301                      AddX.B    D1, D1
198C8  DA01                      Add.B     D1, D5
198CA  12C1                      Move.B    D1, (A1)+
198CC  1213           L4748:     Move.B    (A3), D1
198CE  5BCE FFFC                 DBMI      D6, L4748
198D2  6AE2                      BPL.B     L4745
198D4  4841                      Swap      D1
198D6  1CBC 0003                 Move.B    #$3, (A6)
198DA  E20C                      LsR.B     #$1, D4
198DC  D301                      AddX.B    D1, D1
198DE  DA01                      Add.B     D1, D5
198E0  12C1                      Move.B    D1, (A1)+
198E2  1213           L4749:     Move.B    (A3), D1
198E4  5BCE FFFC                 DBMI      D6, L4749
198E8  6ACC                      BPL.B     L4745
198EA  4841                      Swap      D1
198EC  4A47                      Tst       D7
198EE  6702                      BEQ.B     L4750
198F0  4A15                      Tst.B     (A5)
198F2  56C0           L4750:     SNE.B     D0
198F4  E20C                      LsR.B     #$1, D4
198F6  D502                      AddX.B    D2, D2
198F8  DA02                      Add.B     D2, D5
198FA  12C2                      Move.B    D2, (A1)+
198FC  1413           L4751:     Move.B    (A3), D2
198FE  5BCE FFFC                 DBMI      D6, L4751
19902  6AB2                      BPL.B     L4745
19904  4842                      Swap      D2
19906  E20C                      LsR.B     #$1, D4
19908  D502                      AddX.B    D2, D2
1990A  DA02                      Add.B     D2, D5
1990C  12C2                      Move.B    D2, (A1)+
1990E  1413           L4752:     Move.B    (A3), D2
19910  5BCE FFFC                 DBMI      D6, L4752
19914  6AA0                      BPL.B     L4745
19916  4842                      Swap      D2
19918  4A00                      Tst.B     D0
1991A  6702                      BEQ.B     L4753
1991C  4A10                      Tst.B     (A0)
1991E  E20C           L4753:     LsR.B     #$1, D4
19920  D703                      AddX.B    D3, D3
19922  DA03                      Add.B     D3, D5
19924  12C3                      Move.B    D3, (A1)+
19926  1613           L4754:     Move.B    (A3), D3
19928  5BCE FFFC                 DBMI      D6, L4754
1992C  6A88           L4755:     BPL.B     L4745
1992E  4843                      Swap      D3
19930  4846                      Swap      D6
19932  51CE 0004                 DBF       D6, L4756
19936  224C                      Move.L    A4, A1
19938  4846           L4756:     Swap      D6
1993A  E20C                      LsR.B     #$1, D4
1993C  D703                      AddX.B    D3, D3
1993E  DA03                      Add.B     D3, D5
19940  12C3                      Move.B    D3, (A1)+
19942  1613           L4757:     Move.B    (A3), D3
19944  5BCE FFFC                 DBMI      D6, L4757
19948  6AE2                      BPL.B     L4755
1994A  4843                      Swap      D3
1994C  E20C                      LsR.B     #$1, D4
1994E  4844                      Swap      D4
19950  D904                      AddX.B    D4, D4
19952  DA04                      Add.B     D4, D5
19954  12C4                      Move.B    D4, (A1)+
19956  1813           L4758:     Move.B    (A3), D4
19958  5BCE FFFC                 DBMI      D6, L4758
1995C  6ACE                      BPL.B     L4755
1995E  4844                      Swap      D4
19960  3C3C 0050                 Move      #$50, D6
19964  1813           L4759:     Move.B    (A3), D4
19966  5BCE FFFC                 DBMI      D6, L4759
1996A  6AC0                      BPL.B     L4755
1996C  4A00                      Tst.B     D0
1996E  56CF FF54                 DBNE      D7, L4747
19972  672C                      BEQ.B     L4763
19974  4A15                      Tst.B     (A5)
19976  027C F8FF                 And       #$-701, SR
1997A  5347                      SubQ      #$1, D7
1997C  7010                      MoveQ.L   #$10, D0
1997E  51C8 FFFE      L4760:     DBF       D0, L4760
19982  007C 0700                 Or        #$700, SR
19986  4A28 0200                 Tst.B     $200(A0)
1998A  4A13                      Tst.B     (A3)
1998C  4240                      Clr       D0
1998E  5340           L4761:     SubQ      #$1, D0
19990  670A                      BEQ.B     L4762
19992  0C13 00AA                 Cmp.B     #$-56, (A3)
19996  66F6                      BNE.B     L4761
19998  6000 FF2A                 Bra       L4747
1999C  7024           L4762:     MoveQ.L   #$24, D0
1999E  606E                      Bra.B     L4770
199A0  4847           L4763:     Swap      D7
199A2  E20C                      LsR.B     #$1, D4
199A4  D301                      AddX.B    D1, D1
199A6  DA01                      Add.B     D1, D5
199A8  5347                      SubQ      #$1, D7
199AA  6B02                      BMI.B     L4764
199AC  12C1                      Move.B    D1, (A1)+
199AE  4841           L4764:     Swap      D1
199B0  E20C                      LsR.B     #$1, D4
199B2  D301                      AddX.B    D1, D1
199B4  DA01                      Add.B     D1, D5
199B6  5347                      SubQ      #$1, D7
199B8  6B02                      BMI.B     L4765
199BA  12C1                      Move.B    D1, (A1)+
199BC  E20C           L4765:     LsR.B     #$1, D4
199BE  D502                      AddX.B    D2, D2
199C0  DA02                      Add.B     D2, D5
199C2  5347                      SubQ      #$1, D7
199C4  6B02                      BMI.B     L4766
199C6  12C2                      Move.B    D2, (A1)+
199C8  4842           L4766:     Swap      D2
199CA  E20C                      LsR.B     #$1, D4
199CC  D502                      AddX.B    D2, D2
199CE  DA02                      Add.B     D2, D5
199D0  5347                      SubQ      #$1, D7
199D2  6B02                      BMI.B     L4767
199D4  12C2                      Move.B    D2, (A1)+
199D6  E20C           L4767:     LsR.B     #$1, D4
199D8  D703                      AddX.B    D3, D3
199DA  DA03                      Add.B     D3, D5
199DC  5347                      SubQ      #$1, D7
199DE  6B02                      BMI.B     L4768
199E0  12C3                      Move.B    D3, (A1)+
199E2  4843           L4768:     Swap      D3
199E4  E20C                      LsR.B     #$1, D4
199E6  D703                      AddX.B    D3, D3
199E8  DA03                      Add.B     D3, D5
199EA  5347                      SubQ      #$1, D7
199EC  6B02                      BMI.B     L4769
199EE  12C3                      Move.B    D3, (A1)+
199F0  E20C           L4769:     LsR.B     #$1, D4
199F2  4844                      Swap      D4
199F4  D904                      AddX.B    D4, D4
199F6  DA04                      Add.B     D4, D5
199F8  4A28 0600                 Tst.B     $600(A0)
199FC  4A28 1A00                 Tst.B     $1A00(A0)
19A00  7025                      MoveQ.L   #$25, D0
19A02  4A28 1C00                 Tst.B     $1C00(A0)
19A06  6A06                      BPL.B     L4770
19A08  1005                      Move.B    D5, D0
19A0A  6702                      BEQ.B     L4770
19A0C  7026                      MoveQ.L   #$26, D0
19A0E  4A15           L4770:     Tst.B     (A5)
19A10  4A28 0600                 Tst.B     $600(A0)
19A14  4A10                      Tst.B     (A0)
19A16  4CDF 72FE                 MoveM.L   (A7)+, D1-D7/A1/A4-A6
19A1A  46DF                      Move      (A7)+, SR
19A1C  4A00                      Tst.B     D0
19A1E  4E75                      Rts
19A20  40E7           P887:      Move      SR, -(A7)
19A22  48E7 7F4E                 MoveM.L   D1-D7/A1/A4-A6, -(A7)
19A26  D2FC 019C                 AddA      #$19C, A1
19A2A  4CF8 6000 01D8            MoveM.L   (SCCRd), A5-A6
19A30  544D                      AddQ      #$2, A5
19A32  544E                      AddQ      #$2, A6
19A34  1801                      Move.B    D1, D4
19A36  4844                      Swap      D4
19A38  4846                      Swap      D6
19A3A  3C07                      Move      D7, D6
19A3C  4846                      Swap      D6
19A3E  7A00                      MoveQ.L   #$0, D5
19A40  50C4                      ST.B      D4
19A42  1219                      Move.B    (A1)+, D1
19A44  DA01                      Add.B     D1, D5
19A46  E211                      RXR.B     #$1, D1
19A48  0001 0080                 Or.B      #$-80, D1
19A4C  E214                      RXR.B     #$1, D4
19A4E  4841                      Swap      D1
19A50  1219                      Move.B    (A1)+, D1
19A52  DA01                      Add.B     D1, D5
19A54  E211                      RXR.B     #$1, D1
19A56  0001 0080                 Or.B      #$-80, D1
19A5A  E214                      RXR.B     #$1, D4
19A5C  4841                      Swap      D1
19A5E  1419                      Move.B    (A1)+, D2
19A60  DA02                      Add.B     D2, D5
19A62  E212                      RXR.B     #$1, D2
19A64  0002 0080                 Or.B      #$-80, D2
19A68  E214                      RXR.B     #$1, D4
19A6A  4842                      Swap      D2
19A6C  1419                      Move.B    (A1)+, D2
19A6E  DA02                      Add.B     D2, D5
19A70  E212                      RXR.B     #$1, D2
19A72  0002 0080                 Or.B      #$-80, D2
19A76  E214                      RXR.B     #$1, D4
19A78  4842                      Swap      D2
19A7A  1619                      Move.B    (A1)+, D3
19A7C  DA03                      Add.B     D3, D5
19A7E  E213                      RXR.B     #$1, D3
19A80  0003 0080                 Or.B      #$-80, D3
19A84  E214                      RXR.B     #$1, D4
19A86  4843                      Swap      D3
19A88  1619                      Move.B    (A1)+, D3
19A8A  DA03                      Add.B     D3, D5
19A8C  E213                      RXR.B     #$1, D3
19A8E  0003 0080                 Or.B      #$-80, D3
19A92  E214                      RXR.B     #$1, D4
19A94  4843                      Swap      D3
19A96  4844                      Swap      D4
19A98  4A28 1A00                 Tst.B     $1A00(A0)
19A9C  7010                      MoveQ.L   #$10, D0
19A9E  4A28 1C00                 Tst.B     $1C00(A0)
19AA2  6A00 01B2                 BPL       L4802
19AA6  4A28 0200                 Tst.B     $200(A0)
19AAA  7011                      MoveQ.L   #$11, D0
19AAC  7E14                      MoveQ.L   #$14, D7
19AAE  4847                      Swap      D7
19AB0  5387           L4771:     SubQ      #$1, D7
19AB2  6700 01A2                 BEQ       L4802
19AB6  4A28 1C00                 Tst.B     $1C00(A0)
19ABA  6BF4                      BMI.B     L4771
19ABC  4A28 0400                 Tst.B     $400(A0)
19AC0  41E8 1A00                 Lea.L     $1A00(A0), A0
19AC4  007C 0700                 Or        #$700, SR
19AC8  7E02                      MoveQ.L   #$2, D7
19ACA  0C04 0004                 Cmp.B     #$4, D4
19ACE  6D04                      BLT.B     L4772
19AD0  7EFF                      MoveQ.L   #$-1, D7
19AD2  224C                      Move.L    A4, A1
19AD4  7004           L4772:     MoveQ.L   #$4, D0
19AD6  51C8 FFFE      L4773:     DBF       D0, L4773
19ADA  2006                      Move.L    D6, D0
19ADC  0680 0081 0081            Add.L     #$810081, D0
19AE2  117C 00AA 0400            Move.B    #$-56, $400(A0)
19AE8  4A13           L4774:     Tst.B     (A3)
19AEA  6AFC                      BPL.B     L4774
19AEC  1080                      Move.B    D0, (A0)
19AEE  4840                      Swap      D0
19AF0  4A13           L4775:     Tst.B     (A3)
19AF2  6AFC                      BPL.B     L4775
19AF4  1080                      Move.B    D0, (A0)
19AF6  7080                      MoveQ.L   #$-80, D0
19AF8  6000 00B4                 Bra       L4785
19AFC  1819           L4776:     Move.B    (A1)+, D4
19AFE  DA04                      Add.B     D4, D5
19B00  E214                      RXR.B     #$1, D4
19B02  8800                      Or.B      D0, D4
19B04  4844                      Swap      D4
19B06  E414                      RXR.B     #$2, D4
19B08  4A13           L4777:     Tst.B     (A3)
19B0A  6AFC                      BPL.B     L4777
19B0C  1084                      Move.B    D4, (A0)
19B0E  50C4                      ST.B      D4
19B10  1CBC 0003                 Move.B    #$3, (A6)
19B14  4A13           L4778:     Tst.B     (A3)
19B16  6AFC                      BPL.B     L4778
19B18  1081                      Move.B    D1, (A0)
19B1A  1219                      Move.B    (A1)+, D1
19B1C  DA01                      Add.B     D1, D5
19B1E  E211                      RXR.B     #$1, D1
19B20  8200                      Or.B      D0, D1
19B22  E214                      RXR.B     #$1, D4
19B24  4841                      Swap      D1
19B26  4A15                      Tst.B     (A5)
19B28  6704                      BEQ.B     L4779
19B2A  08C6 001F                 BSet.B    #$1F, D6
19B2E  4A13           L4779:     Tst.B     (A3)
19B30  6AFC                      BPL.B     L4779
19B32  1081                      Move.B    D1, (A0)
19B34  1219                      Move.B    (A1)+, D1
19B36  DA01                      Add.B     D1, D5
19B38  E211                      RXR.B     #$1, D1
19B3A  8200                      Or.B      D0, D1
19B3C  E214                      RXR.B     #$1, D4
19B3E  4841                      Swap      D1
19B40  4A46                      Tst       D6
19B42  6604                      BNE.B     L4780
19B44  0886 001F                 BClr.B    #$1F, D6
19B48  4A13           L4780:     Tst.B     (A3)
19B4A  6AFC                      BPL.B     L4780
19B4C  1082                      Move.B    D2, (A0)
19B4E  1419                      Move.B    (A1)+, D2
19B50  DA02                      Add.B     D2, D5
19B52  E212                      RXR.B     #$1, D2
19B54  8400                      Or.B      D0, D2
19B56  E214                      RXR.B     #$1, D4
19B58  4842                      Swap      D2
19B5A  0806 001F                 BTst.B    #$1F, D6
19B5E  6704                      BEQ.B     L4781
19B60  4A28 E600                 Tst.B     $-1A00(A0)
19B64  4A13           L4781:     Tst.B     (A3)
19B66  6AFC                      BPL.B     L4781
19B68  1082                      Move.B    D2, (A0)
19B6A  1419                      Move.B    (A1)+, D2
19B6C  DA02                      Add.B     D2, D5
19B6E  E212                      RXR.B     #$1, D2
19B70  8400                      Or.B      D0, D2
19B72  E214                      RXR.B     #$1, D4
19B74  4842                      Swap      D2
19B76  4A13           L4782:     Tst.B     (A3)
19B78  6AFC                      BPL.B     L4782
19B7A  1083                      Move.B    D3, (A0)
19B7C  1619                      Move.B    (A1)+, D3
19B7E  DA03                      Add.B     D3, D5
19B80  E213                      RXR.B     #$1, D3
19B82  8600                      Or.B      D0, D3
19B84  E214                      RXR.B     #$1, D4
19B86  4843                      Swap      D3
19B88  51CF 0004                 DBF       D7, L4783
19B8C  224C                      Move.L    A4, A1
19B8E  4A13           L4783:     Tst.B     (A3)
19B90  6AFC                      BPL.B     L4783
19B92  1083                      Move.B    D3, (A0)
19B94  1619                      Move.B    (A1)+, D3
19B96  DA03                      Add.B     D3, D5
19B98  E213                      RXR.B     #$1, D3
19B9A  8600                      Or.B      D0, D3
19B9C  E214                      RXR.B     #$1, D4
19B9E  4843                      Swap      D3
19BA0  4844                      Swap      D4
19BA2  4A13           L4784:     Tst.B     (A3)
19BA4  6AFC                      BPL.B     L4784
19BA6  1084                      Move.B    D4, (A0)
19BA8  0886 001F                 BClr.B    #$1F, D6
19BAC  6606                      BNE.B     L4786
19BAE  51CE FF4C      L4785:     DBF       D6, L4776
19BB2  603C                      Bra.B     L4790
19BB4  4200           L4786:     Clr.B     D0
19BB6  4A13           L4787:     Tst.B     (A3)
19BB8  6AFC                      BPL.B     L4787
19BBA  1080                      Move.B    D0, (A0)
19BBC  027C F8FF                 And       #$-701, SR
19BC0  303C 0010                 Move      #$10, D0
19BC4  51C8 FFFE      L4788:     DBF       D0, L4788
19BC8  5346                      SubQ      #$1, D6
19BCA  4A28 0200                 Tst.B     $200(A0)
19BCE  4A28 FE00                 Tst.B     $-200(A0)
19BD2  4A10                      Tst.B     (A0)
19BD4  4A28 E800                 Tst.B     $-1800(A0)
19BD8  303C 0010                 Move      #$10, D0
19BDC  51C8 FFFE      L4789:     DBF       D0, L4789
19BE0  7080                      MoveQ.L   #$-80, D0
19BE2  007C 0700                 Or        #$700, SR
19BE6  117C 00AA 0400            Move.B    #$-56, $400(A0)
19BEC  6000 FF0E                 Bra       L4776
19BF0  4405           L4790:     Neg.B     D5
19BF2  E215                      RXR.B     #$1, D5
19BF4  8A00                      Or.B      D0, D5
19BF6  4844                      Swap      D4
19BF8  E414                      RXR.B     #$2, D4
19BFA  4A13           L4791:     Tst.B     (A3)
19BFC  6AFC                      BPL.B     L4791
19BFE  1084                      Move.B    D4, (A0)
19C00  4A13           L4792:     Tst.B     (A3)
19C02  6AFC                      BPL.B     L4792
19C04  1081                      Move.B    D1, (A0)
19C06  4841                      Swap      D1
19C08  4A13           L4793:     Tst.B     (A3)
19C0A  6AFC                      BPL.B     L4793
19C0C  1081                      Move.B    D1, (A0)
19C0E  4A13           L4794:     Tst.B     (A3)
19C10  6AFC                      BPL.B     L4794
19C12  1082                      Move.B    D2, (A0)
19C14  4842                      Swap      D2
19C16  4A13           L4795:     Tst.B     (A3)
19C18  6AFC                      BPL.B     L4795
19C1A  1082                      Move.B    D2, (A0)
19C1C  4A13           L4796:     Tst.B     (A3)
19C1E  6AFC                      BPL.B     L4796
19C20  1083                      Move.B    D3, (A0)
19C22  4843                      Swap      D3
19C24  4A13           L4797:     Tst.B     (A3)
19C26  6AFC                      BPL.B     L4797
19C28  1083                      Move.B    D3, (A0)
19C2A  4A13           L4798:     Tst.B     (A3)
19C2C  6AFC                      BPL.B     L4798
19C2E  1085                      Move.B    D5, (A0)
19C30  4A13           L4799:     Tst.B     (A3)
19C32  6AFC                      BPL.B     L4799
19C34  7000                      MoveQ.L   #$0, D0
19C36  1080                      Move.B    D0, (A0)
19C38  4A13           L4800:     Tst.B     (A3)
19C3A  6AFC                      BPL.B     L4800
19C3C  1080                      Move.B    D0, (A0)
19C3E  2078 01E0                 Move.L    (IWM), A0
19C42  4A28 0600                 Tst.B     $600(A0)
19C46  7013                      MoveQ.L   #$13, D0
19C48  7EFF                      MoveQ.L   #$-1, D7
19C4A  5347           L4801:     SubQ      #$1, D7
19C4C  6708                      BEQ.B     L4802
19C4E  4A28 1C00                 Tst.B     $1C00(A0)
19C52  6AF6                      BPL.B     L4801
19C54  7000                      MoveQ.L   #$0, D0
19C56  4A28 0600      L4802:     Tst.B     $600(A0)
19C5A  4A10                      Tst.B     (A0)
19C5C  4CDF 72FE                 MoveM.L   (A7)+, D1-D7/A1/A4-A6
19C60  46DF                      Move      (A7)+, SR
19C62  4A00                      Tst.B     D0
19C64  4E75                      Rts

                      E_Sony_DCDReset:
19C66  2F38 0B48                 Move.L    (JDCDReset), -(A7)
19C6A  4E75                      Rts
                      P_Sony_DCDReset:
19C6C  265F                      Move.L    (A7)+, A3
19C6E  6100 ECBA                 Bsr       Sony_JumpDiskSel
19C72  4A28 0A00                 Tst.B     $A00(A0)        ; CA2 on @sc
19C76  4A28 0400                 Tst.B     $400(A0)        ; CA1 off @sc
19C7A  4A10                      Tst.B     (A0)            ; CA0 off @sc
19C7C  303C 03E8                 Move      #$3E8, D0
19C80  6100 EB52                 Bsr       E_Sony_WakeUp
19C84  4A28 0600                 Tst.B     $600(A0)        ; CA1 on @sc
19C88  4A28 0800                 Tst.B     $800(A0)        ; CA2 off @sc
19C8C  303C 4E20                 Move      #$4E20, D0
19C90  6100 EB42                 Bsr       E_Sony_WakeUp
19C94  337C 0064 01C0            Move      #$64, $1C0(A1)
19C9A  337C 0640 01C2            Move      #$640, $1C2(A1)
19CA0  6100 E95E      L4803:     Bsr       Sony_ReadDriveReg ; read ??? @sc
19CA4  6B10                      BMI.B     L4804
19CA6  5369 01C2                 SubQ      #$1, $1C2(A1)
19CAA  6B0E                      BMI.B     L4805
19CAC  3029 01C0                 Move      $1C0(A1), D0
19CB0  6100 EB22                 Bsr       E_Sony_WakeUp
19CB4  60EA                      Bra.B     L4803
19CB6  7000           L4804:     MoveQ.L   #$0, D0
19CB8  4ED3                      Jmp       (A3)
19CBA  4A28 1800      L4805:     Tst.B     $1800(A0)       ; Q6 off @sc
19CBE  70FF                      MoveQ.L   #$-1, D0
19CC0  4ED3                      Jmp       (A3)

                      DT196:
19CC2  660E                      BNE.B     L4962
19CC4  45E9 01F0                 Lea.L     $1F0(A1), A2
19CC8  2051                      Move.L    (A1), A0
19CCA  2068 0008                 Move.L    $8(A0), A0
19CCE  214A 001C                 Move.L    A2, $1C(A0)
19CD2  6000 F974      L4962:     Bra       L4718

                      E_1120:
19CD6  0831 0002 101A            BTst.B    #$2, $1A(A1,D1.W)
19CDC  6700 E200                 BEQ       Sony_ReturnErrUnimplementedControl
19CE0  41FA FFE0                 Lea.L     DT196, A0
19CE4  2348 0198                 Move.L    A0, $198(A1)
19CE8  7603           L4806:     MoveQ.L   #$3, D3
19CEA  6006                      Bra.B     L4807

                      E_1121:
19CEC  761A                      MoveQ.L   #$1A, D3
19CEE  6002                      Bra.B     L4807

                      E_1122:
19CF0  7619                      MoveQ.L   #$19, D3
19CF2  6100 EC36      L4807:     Bsr       Sony_JumpDiskSel
19CF6  4A10                      Tst.B     (A0)
19CF8  4A28 0800                 Tst.B     $800(A0)
19CFC  4229 01BF                 Clr.B     $1BF(A1)
19D00  1343 019C                 Move.B    D3, $19C(A1)
19D04  2278 0134      L4808:     Move.L    (SonyVars), A1
19D08  0229 003F 019C            And.B     #$3F, $19C(A1)
19D0E  99CC                      SubA.L    A4, A4
19D10  9BCD                      SubA.L    A5, A5
19D12  7601                      MoveQ.L   #$1, D3
19D14  7C00                      MoveQ.L   #$0, D6
19D16  7E00                      MoveQ.L   #$0, D7
19D18  337C 0064 01C0            Move      #$64, $1C0(A1)
19D1E  337C 4650 01C2            Move      #$4650, $1C2(A1)
19D24  0C29 0003 019C            Cmp.B     #$3, $19C(A1)
19D2A  6616                      BNE.B     L4809
19D2C  2E3C 0000 014C            Move.L    #$14C, D7
19D32  337C 000A 01C0            Move      #$A, $1C0(A1)
19D38  337C 2710 01C2            Move      #$2710, $1C2(A1)
19D3E  49E9 01C4                 Lea.L     $1C4(A1), A4
19D42  6100 F968      L4809:     Bsr       E_Sony_SendCmd
19D46  6728                      BEQ.B     L4812
19D48  0C29 0002 01BA L4810:     Cmp.B     #$2, $1BA(A1)
19D4E  6710                      BEQ.B     L4811
19D50  0829 001E 01BA            BTst.B    #$1E, $1BA(A1)
19D56  6708                      BEQ.B     L4811
19D58  08E9 0001 01BF            BSet.B    #$1, $1BF(A1)
19D5E  66A4                      BNE.B     L4808
19D60  08E9 0000 01BF L4811:     BSet.B    #$0, $1BF(A1)
19D66  661A                      BNE.B     L4813
19D68  6100 FEFC                 Bsr       E_Sony_DCDReset
19D6C  6614                      BNE.B     L4813
19D6E  6094                      Bra.B     L4808
19D70  6100 F8E6      L4812:     Bsr       P882
19D74  6BD2                      BMI.B     L4810
19D76  6100 F9DE                 Bsr       P885
19D7A  4A40                      Tst       D0
19D7C  66CA                      BNE.B     L4810
19D7E  7000                      MoveQ.L   #$0, D0
19D80  6002                      Bra.B     L4814
19D82  70EF           L4813:     MoveQ.L   #$-11, D0
19D84  0C29 0003 019C L4814:     Cmp.B     #$3, $19C(A1)
19D8A  6704                      BEQ.B     L4815
19D8C  6000 F8BA                 Bra       L4718
19D90  2069 0198      L4815:     Move.L    $198(A1), A0
19D94  4A40                      Tst       D0
19D96  4ED0                      Jmp       (A0)
                      ; end of resource : 'DRVR' 4 '.Sony'

                      ; resource header
19D98  C000 095A                 DC.L      $C000095A       ; Length
19D9C  0000 0060                 DC.L      $00000060       ; ?
                      ; resource : 'DRVR' 10 '.ATP'
                      ; AppleTalk Driver
19DA0  4400           DT82:      DC.W      $4400           ; flags
19DA2  0000                      DC.W      $0000           ; number of ticks between periodic actions
19DA4  0000                      DC.W      $0000           ; desk accessory event mask
19DA6  0000                      DC.W      $0000           ; menu ID
19DA8  0018                      DC.W      $0018           ; offset to open routine
19DAA  01D0                      DC.W      $01D0           ; offset to prime routine
19DAC  0066                      DC.W      $0066           ; offset to control routine
19DAE  01D0                      DC.W      $01D0           ; offset to status routine
19DB0  00EE                      DC.W      $00EE           ; offset to close routine
19DB2  04                        DC.B      $04             ; length of driver name
                      ; Name
19DB3  2E41 5450                 DC.B      '.ATP'
                      ; end of Name
19DB7  20                        DC.B      $20             ; align to word

                      E_ATP_Open:
19DB8  2678 02D8                 Move.L    (ABusVars), A3
19DBC  220B                      Move.L    A3, D1
19DBE  6744                      BEQ.B     L3683
19DC0  4AAB 001E                 Tst.L     $1E(A3)
19DC4  663E                      BNE.B     L3683
19DC6  303C 0212                 Move      #$212, D0
19DCA  A71E                      _NewPtrSysClear
19DCC  6002                      Bra.B     L3682
19DCE  A31E                      DC.B      '  '
19DD0  6632           L3682:     BNE.B     L3683
19DD2  08F8 0004 0291            BSet.B    #$4, (PortBUse)
19DD8  2748 001E                 Move.L    A0, $1E(A3)
19DDC  422B 001E                 Clr.B     $1E(A3)
19DE0  137C 0013 0007            Move.B    #$13, $7(A1)
19DE6  45E8 00C6                 Lea.L     $C6(A0), A2
19DEA  24C9                      Move.L    A1, (A2)+
19DEC  34F8 016C                 Move      (Ticks.LoWord), (A2)+
19DF0  204A                      Move.L    A2, A0
19DF2  584A                      AddQ      #$4, A2
19DF4  34FC 0001                 Move      #$1, (A2)+
19DF8  43FA 0472                 Lea.L     DT85, A1
19DFC  24C9                      Move.L    A1, (A2)+
19DFE  34FC 003C                 Move      #$3C, (A2)+
19E02  A033                      _VInstall
19E04  4E75           L3683:     Rts

                      E_ATP_Control:
19E06  4AB8 02D8                 Tst.L     (ABusVars)
19E0A  6606                      BNE.B     L3685
19E0C  70EF                      MoveQ.L   #$-11, D0
19E0E  6000 015A      L3684:     Bra       L3698
19E12  3428 001A      L3685:     Move      $1A(A0), D2
19E16  6B66                      BMI.B     L3689
19E18  5342                      SubQ      #$1, D2
19E1A  6602                      BNE.B     L3686
19E1C  4E75                      Rts
19E1E  70EF           L3686:     MoveQ.L   #$-11, D0
19E20  0442 00F8                 Sub       #$F8, D2
19E24  6DE8                      BLT.B     L3684
19E26  0C42 0007                 Cmp       #$7, D2
19E2A  6EE2                      BGT.B     L3684
19E2C  D442                      Add       D2, D2
19E2E  47FA 003E                 Lea.L     DT83, A3
19E32  D6C2                      AddA      D2, A3
19E34  3653                      Move      (A3), A3
19E36  45FA FF68                 Lea.L     DT82, A2
19E3A  D7CA                      AddA.L    A2, A3
19E3C  2478 02D8                 Move.L    (ABusVars), A2
19E40  246A 001E                 Move.L    $1E(A2), A2
19E44  1228 001C                 Move.B    $1C(A0), D1
19E48  0442 000A                 Sub       #$A, D2
19E4C  6A14                      BPL.B     L3688
19E4E  303C FBB5                 Move      #$-44B, D0
19E52  4A01                      Tst.B     D1
19E54  6734                      BEQ.B     L3690
19E56  7405                      MoveQ.L   #$5, D2
19E58  B232 2030      L3687:     Cmp.B     $30(A2,D2.W), D1
19E5C  57CA FFFA                 DBEQ      D2, L3687
19E60  6628                      BNE.B     L3690
19E62  2628 001E      L3688:     Move.L    $1E(A0), D3
19E66  0228 003F 001D            And.B     #$3F, $1D(A0)
19E6C  4ED3                      Jmp       (A3)
                      ; Jump Table
19E6E  05EC 0196 02EC DT83:      DC.B      '      '
19E74  021E 01D8 014E            DC.B      '     N'
19E7A  0380 0594                 DC.B      '    '
19E7E  0C78 0002 0108 L3689:     Cmp       #$2, (MemTop)
19E84  6E00 00E4                 BGT       L3698
19E88  6104                      Bsr.B     E_ATP_Close
19E8A  6000 00DA      L3690:     Bra       L3697

                      E_ATP_Close:
19E8E  2278 02D8                 Move.L    (ABusVars), A1
19E92  2009                      Move.L    A1, D0
19E94  6740                      BEQ.B     L3695
19E96  2469 001E                 Move.L    $1E(A1), A2
19E9A  200A                      Move.L    A2, D0
19E9C  6B20                      BMI.B     L3694
19E9E  6100 0818      L3691:     Bsr       P724
19EA2  66FA                      BNE.B     L3691
19EA4  7406                      MoveQ.L   #$6, D2
19EA6  41D2                      Lea.L     (A2), A0
19EA8  612E                      Bsr.B     P722
19EAA  4A6B 0010      L3692:     Tst       $10(A3)
19EAE  6EFA                      BGT.B     L3692
19EB0  7406                      MoveQ.L   #$6, D2
19EB2  41EA 0030                 Lea.L     $30(A2), A0
19EB6  6120                      Bsr.B     P722
19EB8  4A6B 0010      L3693:     Tst       $10(A3)
19EBC  6EFA                      BGT.B     L3693
19EBE  486A 00CC      L3694:     Pea.L     $CC(A2)
19EC2  4217                      Clr.B     (A7)
19EC4  205F                      Move.L    (A7)+, A0
19EC6  A034                      _VRemove
19EC8  204A                      Move.L    A2, A0
19ECA  A01F                      _DisposePtr
19ECC  42A9 001E                 Clr.L     $1E(A1)
19ED0  08B8 0004 0291            BClr.B    #$4, (PortBUse)
19ED6  4E75           L3695:     Rts
19ED8  426B 0010      P722:      Clr       $10(A3)
19EDC  5342           L3696:     SubQ      #$1, D2
19EDE  6BF6                      BMI.B     L3695
19EE0  1218                      Move.B    (A0)+, D1
19EE2  67F8                      BEQ.B     L3696
19EE4  303C 00F7                 Move      #$F7, D0
19EE8  6100 031C                 Bsr       P723
19EEC  60EE                      Bra.B     L3696
19EEE  303C FBB6      E_1064:    Move      #$-44A, D0
19EF2  7405                      MoveQ.L   #$5, D2
19EF4  4A32 2030      L4418:     Tst.B     $30(A2,D2.W)
19EF8  57CA FFFA                 DBEQ      D2, L4418
19EFC  6668                      BNE.B     L3697
19EFE  6100 07B8                 Bsr       P724
19F02  6662                      BNE.B     L3697
19F04  43FA 0512                 Lea.L     DT165, A1
19F08  2749 001E                 Move.L    A1, $1E(A3)
19F0C  303C 00F8                 Move      #$F8, D0
19F10  6100 02F4                 Bsr       P723
19F14  122B 001C                 Move.B    $1C(A3), D1
19F18  6100 07D2                 Bsr       P849
19F1C  4A40                      Tst       D0
19F1E  6646                      BNE.B     L3697
19F20  E54A                      LsL       #$2, D2
19F22  42B2 2036                 Clr.L     $36(A2,D2.W)
19F26  2583 204E                 Move.L    D3, $4E(A2,D2.W)
19F2A  E44A                      LsR       #$2, D2
19F2C  1581 2030                 Move.B    D1, $30(A2,D2.W)
19F30  1141 001C                 Move.B    D1, $1C(A0)
19F34  602E                      Bra.B     L4421
19F36  6100 0780      E_1065:    Bsr       P724
19F3A  662A                      BNE.B     L3697
19F3C  303C 00F7                 Move      #$F7, D0
19F40  6100 02C4                 Bsr       P723
19F44  6100 07A6                 Bsr       P849
19F48  4A40                      Tst       D0
19F4A  661A                      BNE.B     L3697
19F4C  4232 2030                 Clr.B     $30(A2,D2.W)
19F50  43EA 0066                 Lea.L     $66(A2), A1
19F54  7407                      MoveQ.L   #$7, D2
19F56  B211           L4419:     Cmp.B     (A1), D1
19F58  6602                      BNE.B     L4420
19F5A  4211                      Clr.B     (A1)
19F5C  D2FC 000C      L4420:     AddA      #$C, A1
19F60  51CA FFF4                 DBF       D2, L4419
19F64  7000           L4421:     MoveQ.L   #$0, D0
19F66  226A 00C6      L3697:     Move.L    $C6(A2), A1
19F6A  2078 08FC      L3698:     Move.L    (JIODone), A0
19F6E  4ED0                      Jmp       (A0)

                      E_ATP_PrimeStatus:
19F70  08A9 0007 0005            BClr.B    #$7, $5(A1)
19F76  4E75                      Rts
19F78  E54A           E_1066:    LsL       #$2, D2
19F7A  47F2 2036                 Lea.L     $36(A2,D2.W), A3
19F7E  40E7                      Move      SR, -(A7)
19F80  46FC 2600                 Move      #$2600, SR
19F84  4A93           L4422:     Tst.L     (A3)
19F86  6704                      BEQ.B     L4423
19F88  2653                      Move.L    (A3), A3
19F8A  60F8                      Bra.B     L4422
19F8C  2688           L4423:     Move.L    A0, (A3)
19F8E  226A 00C6      L4424:     Move.L    $C6(A2), A1
19F92  08A9 0007 0005            BClr.B    #$7, $5(A1)
19F98  2350 0008                 Move.L    (A0), $8(A1)
19F9C  6604                      BNE.B     L4425
19F9E  42A9 000C                 Clr.L     $C(A1)
19FA2  4290           L4425:     Clr.L     (A0)
19FA4  2029 0008                 Move.L    $8(A1), D0
19FA8  6710                      BEQ.B     L4426
19FAA  2040                      Move.L    D0, A0
19FAC  7000                      MoveQ.L   #$0, D0
19FAE  08E9 0007 0005            BSet.B    #$7, $5(A1)
19FB4  46DF                      Move      (A7)+, SR
19FB6  6000 FE4E                 Bra       E_ATP_Control
19FBA  46DF           L4426:     Move      (A7)+, SR
19FBC  4E75                      Rts
19FBE  2268 0028      E_1067:    Move.L    $28(A0), A1
19FC2  4841                      Swap      D1
19FC4  303C FBB4                 Move      #$-44C, D0
19FC8  1228 002C                 Move.B    $2C(A0), D1
19FCC  674A                      BEQ.B     L4429
19FCE  0C01 0008                 Cmp.B     #$8, D1
19FD2  627C                      BHI.B     L4433
19FD4  6100 06E2                 Bsr       P724
19FD8  6676                      BNE.B     L4433
19FDA  50EB 0061                 ST.B      $61(A3)
19FDE  47EB 0060      L4427:     Lea.L     $60(A3), A3
19FE2  7080                      MoveQ.L   #$-80, D0
19FE4  5301                      SubQ      #$1, D1
19FE6  6604                      BNE.B     L4428
19FE8  8028 001D                 Or.B      $1D(A0), D0
19FEC  16C0           L4428:     Move.B    D0, (A3)+
19FEE  521B                      AddQ      #$1, (A3)+
19FF0  36E8 002E                 Move      $2E(A0), (A3)+
19FF4  3019                      Move      (A1)+, D0
19FF6  2419                      Move.L    (A1)+, D2
19FF8  32FC FFFF                 Move      #$-1, (A1)+
19FFC  26D9                      Move.L    (A1)+, (A3)+
19FFE  47EB FF98                 Lea.L     $-68(A3), A3
1A002  4841                      Swap      D1
1A004  6100 01B6                 Bsr       P845
1A008  0C40 FFA4                 Cmp       #$-5C, D0
1A00C  673E                      BEQ.B     L4432
1A00E  4841                      Swap      D1
1A010  4A01                      Tst.B     D1
1A012  66CA                      BNE.B     L4427
1A014  6100 06D6                 Bsr       P849
1A018  4841           L4429:     Swap      D1
1A01A  1428 002D                 Move.B    $2D(A0), D2
1A01E  9428 002C                 Sub.B     $2C(A0), D2
1A022  670C                      BEQ.B     L4431
1A024  4269 0006      L4430:     Clr       $6(A1)
1A028  D2FC 000C                 AddA      #$C, A1
1A02C  5302                      SubQ      #$1, D2
1A02E  66F4                      BNE.B     L4430
1A030  3028 002E      L4431:     Move      $2E(A0), D0
1A034  40E7                      Move      SR, -(A7)
1A036  46FC 2600                 Move      #$2600, SR
1A03A  6118                      Bsr.B     P843
1A03C  6600 00DA                 BNE       L4439
1A040  2348 0008                 Move.L    A0, $8(A1)
1A044  4229 0001                 Clr.B     $1(A1)
1A048  6000 FF44                 Bra       L4424
1A04C  6100 069E      L4432:     Bsr       P849
1A050  6000 FF14      L4433:     Bra       L3697
1A054  43EA 0066      P843:      Lea.L     $66(A2), A1
1A058  7407                      MoveQ.L   #$7, D2
1A05A  B211           L4434:     Cmp.B     (A1), D1
1A05C  660E                      BNE.B     L4435
1A05E  5449                      AddQ      #$2, A1
1A060  6114                      Bsr.B     P844
1A062  5549                      SubQ      #$2, A1
1A064  6606                      BNE.B     L4435
1A066  B069 0006                 Cmp       $6(A1), D0
1A06A  6708                      BEQ.B     L4436
1A06C  D2FC 000C      L4435:     AddA      #$C, A1
1A070  51CA FFE8                 DBF       D2, L4434
1A074  4E75           L4436:     Rts
1A076  B691           P844:      Cmp.L     (A1), D3
1A078  6710                      BEQ.B     L4437
1A07A  B669 0002                 Cmp       $2(A1), D3
1A07E  660A                      BNE.B     L4437
1A080  4A51                      Tst       (A1)
1A082  6706                      BEQ.B     L4437
1A084  2F03                      Move.L    D3, -(A7)
1A086  4A5F                      Tst       (A7)+
1A088  544F                      AddQ      #$2, A7
1A08A  4E75           L4437:     Rts
1A08C  303C FBB4      E_1068:    Move      #$-44C, D0
1A090  1428 002C                 Move.B    $2C(A0), D2
1A094  0C02 0008                 Cmp.B     #$8, D2
1A098  64B6                      BCC.B     L4433
1A09A  6100 061C                 Bsr       P724
1A09E  66B0                      BNE.B     L4433
1A0A0  70A4                      MoveQ.L   #$-5C, D0
1A0A2  0C68 0242 0022            Cmp       #$242, $22(A0)
1A0A8  62A6                      BHI.B     L4433
1A0AA  47EB 0060                 Lea.L     $60(A3), A3
1A0AE  7080                      MoveQ.L   #$-80, D0
1A0B0  8028 001D                 Or.B      $1D(A0), D0
1A0B4  16C0                      Move.B    D0, (A3)+
1A0B6  16C2                      Move.B    D2, (A3)+
1A0B8  36E8 002E                 Move      $2E(A0), (A3)+
1A0BC  6100 019C                 Bsr       P847
1A0C0  6100 00FA                 Bsr       P845
1A0C4  6100 0626                 Bsr       P849
1A0C8  3028 002E                 Move      $2E(A0), D0
1A0CC  40E7                      Move      SR, -(A7)
1A0CE  46FC 2600                 Move      #$2600, SR
1A0D2  6180                      Bsr.B     P843
1A0D4  6642                      BNE.B     L4439
1A0D6  2669 0008                 Move.L    $8(A1), A3
1A0DA  303C FBB1                 Move      #$-44F, D0
1A0DE  240B                      Move.L    A3, D2
1A0E0  6738                      BEQ.B     L4440
1A0E2  1428 001D                 Move.B    $1D(A0), D2
1A0E6  852B 001D                 Or.B      D2, $1D(A3)
1A0EA  4242                      Clr       D2
1A0EC  1428 002C                 Move.B    $2C(A0), D2
1A0F0  47EB 002C                 Lea.L     $2C(A3), A3
1A0F4  B413                      Cmp.B     (A3), D2
1A0F6  6D04                      BLT.B     L4438
1A0F8  1682                      Move.B    D2, (A3)
1A0FA  5213                      AddQ      #$1, (A3)
1A0FC  2663           L4438:     Move.L    -(A3), A3
1A0FE  C4FC 000C                 MulU      #$C, D2
1A102  D6C2                      AddA      D2, A3
1A104  36E8 0022                 Move      $22(A0), (A3)+
1A108  26E8 0024                 Move.L    $24(A0), (A3)+
1A10C  36FC FFFF                 Move      #$-1, (A3)+
1A110  26A8 0012                 Move.L    $12(A0), (A3)
1A114  4229 0001                 Clr.B     $1(A1)
1A118  4240           L4439:     Clr       D0
1A11A  46DF           L4440:     Move      (A7)+, SR
1A11C  6000 FE48      L4441:     Bra       L3697
1A120  303C FBB7      E_1069:    Move      #$-449, D0
1A124  7405                      MoveQ.L   #$5, D2
1A126  4A32 2000      L4442:     Tst.B     $0(A2,D2.W)
1A12A  57CA FFFA                 DBEQ      D2, L4442
1A12E  66EC                      BNE.B     L4441
1A130  70A4                      MoveQ.L   #$-5C, D0
1A132  0C68 0242 0022            Cmp       #$242, $22(A0)
1A138  62E2                      BHI.B     L4441
1A13A  4201                      Clr.B     D1
1A13C  6100 057A                 Bsr       P724
1A140  66DA                      BNE.B     L4441
1A142  43FA 02D4                 Lea.L     DT165, A1
1A146  2749 001E                 Move.L    A1, $1E(A3)
1A14A  303C 00F8                 Move      #$F8, D0
1A14E  6100 00B6                 Bsr       P723
1A152  6706                      BEQ.B     L4443
1A154  6100 0596                 Bsr       P849
1A158  60C2                      Bra.B     L4441
1A15A  122B 001C      L4443:     Move.B    $1C(A3), D1
1A15E  43E8 001D                 Lea.L     $1D(A0), A1
1A162  0891 0004                 BClr.B    #$4, (A1)
1A166  4221                      Clr.B     -(A1)
1A168  1028 002C                 Move.B    $2C(A0), D0
1A16C  6708                      BEQ.B     L4445
1A16E  5300                      SubQ      #$1, D0
1A170  01D1           L4444:     BSet.L    D0, (A1)
1A172  5300                      SubQ      #$1, D0
1A174  6AFA                      BPL.B     L4444
1A176  4228 002E      L4445:     Clr.B     $2E(A0)
1A17A  E54A                      LsL       #$2, D2
1A17C  2588 2006                 Move.L    A0, $6(A2,D2.W)
1A180  E24A                      LsR       #$1, D2
1A182  43EA 00CA                 Lea.L     $CA(A2), A1
1A186  3591 201E                 Move      (A1), $1E(A2,D2.W)
1A18A  3151 0016                 Move      (A1), $16(A0)
1A18E  08E8 0001 001D            BSet.B    #$1, $1D(A0)
1A194  5251                      AddQ      #$1, (A1)
1A196  E24A                      LsR       #$1, D2
1A198  1581 2000                 Move.B    D1, $0(A2,D2.W)
1A19C  43F2 202A                 Lea.L     $2A(A2,D2.W), A1
1A1A0  4211                      Clr.B     (A1)
1A1A2  E34A                      LsL       #$1, D2
1A1A4  6100 0098                 Bsr       P846
1A1A8  6112                      Bsr.B     P845
1A1AA  6100 0540                 Bsr       P849
1A1AE  12A8 002D                 Move.B    $2D(A0), (A1)
1A1B2  40E7                      Move      SR, -(A7)
1A1B4  46FC 2600                 Move      #$2600, SR
1A1B8  6000 FDD4                 Bra       L4424
1A1BC  48E7 00C0      P845:      MoveM.L   A0-A1, -(A7)
1A1C0  0828 0000 001D            BTst.B    #$0, $1D(A0)
1A1C6  56EB 001D                 SNE.B     $1D(A3)
1A1CA  022B 00F8 0060            And.B     #$-8, $60(A3)
1A1D0  43EB 003A                 Lea.L     $3A(A3), A1
1A1D4  2749 001E                 Move.L    A1, $1E(A3)
1A1D8  5449                      AddQ      #$2, A1
1A1DA  41EB 004F                 Lea.L     $4F(A3), A0
1A1DE  22C8                      Move.L    A0, (A1)+
1A1E0  117C 0003 000F            Move.B    #$3, $F(A0)
1A1E6  5E48                      AddQ      #$7, A0
1A1E8  20C3                      Move.L    D3, (A0)+
1A1EA  30C3                      Move      D3, (A0)+
1A1EC  1083                      Move.B    D3, (A0)
1A1EE  32FC 0008                 Move      #$8, (A1)+
1A1F2  41EB 0060                 Lea.L     $60(A3), A0
1A1F6  22C8                      Move.L    A0, (A1)+
1A1F8  32C0                      Move      D0, (A1)+
1A1FA  22C2                      Move.L    D2, (A1)+
1A1FC  4259                      Clr       (A1)+
1A1FE  4CDF 0300                 MoveM.L   (A7)+, A0-A1
1A202  303C 00F6                 Move      #$F6, D0
1A206  48EB 030E 0022 P723:      MoveM.L   D1-D3/A0-A1, $22(A3)
1A20C  275F 0036                 Move.L    (A7)+, $36(A3)
1A210  41FA 0014                 Lea.L     DT84, A0
1A214  2748 000C                 Move.L    A0, $C(A3)
1A218  204B                      Move.L    A3, A0
1A21A  1141 001C                 Move.B    D1, $1C(A0)
1A21E  3140 001A                 Move      D0, $1A(A0)
1A222  A404                      _ControlAsync
1A224  4E75                      Rts
1A226  2648           DT84:      Move.L    A0, A3
1A228  2F28 0036                 Move.L    $36(A0), -(A7)
1A22C  4CE8 030E 0022            MoveM.L   $22(A0), D1-D3/A0-A1
1A232  2478 02D8                 Move.L    (ABusVars), A2
1A236  246A 001E                 Move.L    $1E(A2), A2
1A23A  4A40                      Tst       D0
1A23C  4E75                      Rts
1A23E  47EB 0060      P846:      Lea.L     $60(A3), A3
1A242  7040                      MoveQ.L   #$40, D0
1A244  8028 001D                 Or.B      $1D(A0), D0
1A248  0880 0004                 BClr.B    #$4, D0
1A24C  16C0                      Move.B    D0, (A3)+
1A24E  16E8 001C                 Move.B    $1C(A0), (A3)+
1A252  36F2 201E                 Move      $1E(A2,D2.W), (A3)+
1A256  2628 001E                 Move.L    $1E(A0), D3
1A25A  26A8 0012      P847:      Move.L    $12(A0), (A3)
1A25E  3028 0022                 Move      $22(A0), D0
1A262  2428 0024                 Move.L    $24(A0), D2
1A266  96FC 0064                 SubA      #$64, A3
1A26A  4E75                      Rts
1A26C  317C 003C 000A DT85:      Move      #$3C, $A(A0)
1A272  45E8 FF34                 Lea.L     $-CC(A0), A2
1A276  6100 0440                 Bsr       P724
1A27A  6666                      BNE.B     L4458
1A27C  7406                      MoveQ.L   #$6, D2
1A27E  40E7           L4453:     Move      SR, -(A7)
1A280  46FC 2600                 Move      #$2600, SR
1A284  5342           L4454:     SubQ      #$1, D2
1A286  6B54                      BMI.B     L4457
1A288  1232 2000                 Move.B    $0(A2,D2.W), D1
1A28C  67F6                      BEQ.B     L4454
1A28E  43F2 202A                 Lea.L     $2A(A2,D2.W), A1
1A292  4A11                      Tst.B     (A1)
1A294  67EE                      BEQ.B     L4454
1A296  5311                      SubQ      #$1, (A1)
1A298  66EA                      BNE.B     L4454
1A29A  3602                      Move      D2, D3
1A29C  E54B                      LsL       #$2, D3
1A29E  2072 3006                 Move.L    $6(A2,D3.W), A0
1A2A2  0C28 00FF 002F            Cmp.B     #$-1, $2F(A0)
1A2A8  6706                      BEQ.B     L4455
1A2AA  5328 002F                 SubQ      #$1, $2F(A0)
1A2AE  6514                      BCS.B     L4456
1A2B0  12A8 002D      L4455:     Move.B    $2D(A0), (A1)
1A2B4  3242                      Move      D2, A1
1A2B6  E34A                      LsL       #$1, D2
1A2B8  6184                      Bsr.B     P846
1A2BA  46DF                      Move      (A7)+, SR
1A2BC  6100 FEFE                 Bsr       P845
1A2C0  3409                      Move      A1, D2
1A2C2  60BA                      Bra.B     L4453
1A2C4  46DF           L4456:     Move      (A7)+, SR
1A2C6  4232 2000                 Clr.B     $0(A2,D2.W)
1A2CA  303C 00F7                 Move      #$F7, D0
1A2CE  6100 FF36                 Bsr       P723
1A2D2  303C FBB8                 Move      #$-448, D0
1A2D6  6100 0042                 Bsr       P848
1A2DA  60A2                      Bra.B     L4453
1A2DC  46DF           L4457:     Move      (A7)+, SR
1A2DE  6100 040C                 Bsr       P849
1A2E2  40E7           L4458:     Move      SR, -(A7)
1A2E4  46FC 2600                 Move      #$2600, SR
1A2E8  7408                      MoveQ.L   #$8, D2
1A2EA  47EA 0066                 Lea.L     $66(A2), A3
1A2EE  5342           L4459:     SubQ      #$1, D2
1A2F0  6B24                      BMI.B     L4461
1A2F2  4A1B                      Tst.B     (A3)+
1A2F4  671A                      BEQ.B     L4460
1A2F6  5213                      AddQ      #$1, (A3)
1A2F8  0C13 001E                 Cmp.B     #$1E, (A3)
1A2FC  6612                      BNE.B     L4460
1A2FE  206B 0007                 Move.L    $7(A3), A0
1A302  422B FFFF                 Clr.B     $-1(A3)
1A306  2008                      Move.L    A0, D0
1A308  6706                      BEQ.B     L4460
1A30A  303C FBB3                 Move      #$-44D, D0
1A30E  610A                      Bsr.B     P848
1A310  D6FC 000B      L4460:     AddA      #$B, A3
1A314  60D8                      Bra.B     L4459
1A316  46DF           L4461:     Move      (A7)+, SR
1A318  4E75                      Rts
1A31A  3140 0010      P848:      Move      D0, $10(A0)
1A31E  48E7 70F0                 MoveM.L   D1-D3/A0-A3, -(A7)
1A322  2228 000C                 Move.L    $C(A0), D1
1A326  6706                      BEQ.B     L4446
1A328  2241                      Move.L    D1, A1
1A32A  4A40                      Tst       D0
1A32C  4E91                      Jsr       (A1)
1A32E  4CDF 0F0E      L4446:     MoveM.L   (A7)+, D1-D3/A0-A3
1A332  4E75                      Rts
1A334  3228 002E      E_1070:    Move      $2E(A0), D1
1A338  7405                      MoveQ.L   #$5, D2
1A33A  4A32 2000      L4447:     Tst.B     $0(A2,D2.W)
1A33E  671A                      BEQ.B     L4448
1A340  3002                      Move      D2, D0
1A342  E348                      LsL       #$1, D0
1A344  B272 001E                 Cmp       $1E(A2,D0.W), D1
1A348  6610                      BNE.B     L4448
1A34A  E348                      LsL       #$1, D0
1A34C  2072 0006                 Move.L    $6(A2,D0.W), A0
1A350  43E8 001E                 Lea.L     $1E(A0), A1
1A354  6100 FD20                 Bsr       P844
1A358  670C                      BEQ.B     L4450
1A35A  51CA FFDE      L4448:     DBF       D2, L4447
1A35E  303C FBB2      L4449:     Move      #$-44E, D0
1A362  6000 FC02                 Bra       L3697
1A366  6100 0350      L4450:     Bsr       P724
1A36A  6600 FBFA                 BNE       L3697
1A36E  1232 2000                 Move.B    $0(A2,D2.W), D1
1A372  4232 2000                 Clr.B     $0(A2,D2.W)
1A376  303C 00F7                 Move      #$F7, D0
1A37A  6100 FE8A                 Bsr       P723
1A37E  6100 036C                 Bsr       P849
1A382  303C FBAF                 Move      #$-451, D0
1A386  6192                      Bsr.B     P848
1A388  6000 FBDA      L4451:     Bra       L4421
1A38C  3028 002E      E_1071:    Move      $2E(A0), D0
1A390  6100 FCC2                 Bsr       P843
1A394  66C8                      BNE.B     L4449
1A396  2069 0008                 Move.L    $8(A1), A0
1A39A  4211                      Clr.B     (A1)
1A39C  2008                      Move.L    A0, D0
1A39E  6706                      BEQ.B     L4452
1A3A0  4240                      Clr       D0
1A3A2  6100 FF76                 Bsr       P848
1A3A6  60E0           L4452:     Bra.B     L4451
1A3A8  4243           L4462:     Clr       D3
1A3AA  584F                      AddQ      #$4, A7
1A3AC  4EEC 0002                 Jmp       $2(A4)
1A3B0  D402           L4463:     Add.B     D2, D2
1A3B2  6AF4                      BPL.B     L4462
1A3B4  7405                      MoveQ.L   #$5, D2
1A3B6  B035 2030      L4464:     Cmp.B     $30(A5,D2.W), D0
1A3BA  57CA FFFA                 DBEQ      D2, L4464
1A3BE  66E8                      BNE.B     L4462
1A3C0  E54A                      LsL       #$2, D2
1A3C2  2A75 2036                 Move.L    $36(A5,D2.W), A5
1A3C6  200D                      Move.L    A5, D0
1A3C8  6708                      BEQ.B     L4465
1A3CA  362D 0022                 Move      $22(A5), D3
1A3CE  266D 0024                 Move.L    $24(A5), A3
1A3D2  4EAC 0002      L4465:     Jsr       $2(A4)
1A3D6  6100 0276                 Bsr       P851
1A3DA  265F                      Move.L    (A7)+, A3
1A3DC  6700 0166                 BEQ       L4476
1A3E0  4E75           L4466:     Rts
1A3E2  60C4           L4467:     Bra.B     L4462
1A3E4  1400           L4468:     Move.B    D0, D2
1A3E6  265F                      Move.L    (A7)+, A3
1A3E8  4EAC 0002                 Jsr       $2(A4)
1A3EC  6100 0260                 Bsr       P851
1A3F0  66EE                      BNE.B     L4466
1A3F2  2601                      Move.L    D1, D3
1A3F4  302B FFFA                 Move      $-6(A3), D0
1A3F8  1202                      Move.B    D2, D1
1A3FA  246A 001E                 Move.L    $1E(A2), A2
1A3FE  6100 FC54                 Bsr       P843
1A402  66DC                      BNE.B     L4466
1A404  4211                      Clr.B     (A1)
1A406  2029 0008                 Move.L    $8(A1), D0
1A40A  67D4                      BEQ.B     L4466
1A40C  2040                      Move.L    D0, A0
1A40E  2163 0012                 Move.L    -(A3), $12(A0)
1A412  4240                      Clr       D0
1A414  6000 FF04                 Bra       P848
1A418  7608           DT165:     MoveQ.L   #$8, D3
1A41A  534B                      SubQ      #$1, A3
1A41C  4E94                      Jsr       (A4)
1A41E  66C0           L4469:     BNE.B     L4466
1A420  2A6A 001E                 Move.L    $1E(A2), A5
1A424  2F0B                      Move.L    A3, -(A7)
1A426  514B                      SubQ      #$8, A3
1A428  102B FFFE                 Move.B    $-2(A3), D0
1A42C  141B                      Move.B    (A3)+, D2
1A42E  6A80                      BPL.B     L4463
1A430  D402                      Add.B     D2, D2
1A432  6BB0                      BMI.B     L4468
1A434  7405                      MoveQ.L   #$5, D2
1A436  B035 2000      L4470:     Cmp.B     $0(A5,D2.W), D0
1A43A  57CA FFFA                 DBEQ      D2, L4470
1A43E  66A2                      BNE.B     L4467
1A440  E54A                      LsL       #$2, D2
1A442  2A75 2006                 Move.L    $6(A5,D2.W), A5
1A446  1613                      Move.B    (A3), D3
1A448  B62D 002C                 Cmp.B     $2C(A5), D3
1A44C  6494                      BCC.B     L4467
1A44E  E543                      AsL       #$2, D3
1A450  3003                      Move      D3, D0
1A452  D640                      Add       D0, D3
1A454  D640                      Add       D0, D3
1A456  266D 0028                 Move.L    $28(A5), A3
1A45A  D6C3                      AddA      D3, A3
1A45C  361B                      Move      (A3)+, D3
1A45E  265B                      Move.L    (A3)+, A3
1A460  4EAC 0002                 Jsr       $2(A4)
1A464  6100 01E8                 Bsr       P851
1A468  265F                      Move.L    (A7)+, A3
1A46A  66B2                      BNE.B     L4469
1A46C  246A 001E                 Move.L    $1E(A2), A2
1A470  2072 2006                 Move.L    $6(A2,D2.W), A0
1A474  43E8 001E                 Lea.L     $1E(A0), A1
1A478  C343                      Exg.L     D1, D3
1A47A  6100 FBFA                 Bsr       P844
1A47E  C343                      Exg.L     D1, D3
1A480  669C                      BNE.B     L4469
1A482  E24A                      LsR       #$1, D2
1A484  2223                      Move.L    -(A3), D1
1A486  3023                      Move      -(A3), D0
1A488  B072 201E                 Cmp       $1E(A2,D2.W), D0
1A48C  6690                      BNE.B     L4469
1A48E  1023                      Move.B    -(A3), D0
1A490  0C00 0007                 Cmp.B     #$7, D0
1A494  6288                      BHI.B     L4469
1A496  4880                      Ext       D0
1A498  C0FC 000C                 MulU      #$C, D0
1A49C  2268 0028                 Move.L    $28(A0), A1
1A4A0  D2C0                      AddA      D0, A1
1A4A2  3011                      Move      (A1), D0
1A4A4  5C49                      AddQ      #$6, A1
1A4A6  9043                      Sub       D3, D0
1A4A8  32C0                      Move      D0, (A1)+
1A4AA  22C1                      Move.L    D1, (A1)+
1A4AC  43E8 001C                 Lea.L     $1C(A0), A1
1A4B0  1613                      Move.B    (A3), D3
1A4B2  534B                      SubQ      #$1, A3
1A4B4  0791                      BClr.L    D3, (A1)
1A4B6  6718                      BEQ.B     L4472
1A4B8  5228 002E                 AddQ      #$1, $2E(A0)
1A4BC  7204                      MoveQ.L   #$4, D1
1A4BE  0313                      BTst.L    D1, (A3)
1A4C0  670E                      BEQ.B     L4472
1A4C2  0791           L4471:     BClr.L    D3, (A1)
1A4C4  5203                      AddQ      #$1, D3
1A4C6  0C03 0008                 Cmp.B     #$8, D3
1A4CA  66F6                      BNE.B     L4471
1A4CC  03E8 001D                 BSet.L    D1, $1D(A0)
1A4D0  122B FFFE      L4472:     Move.B    $-2(A3), D1
1A4D4  0813 0003                 BTst.B    #$3, (A3)
1A4D8  6718                      BEQ.B     L4473
1A4DA  6100 01DC                 Bsr       P724
1A4DE  6612                      BNE.B     L4473
1A4E0  3242                      Move      D2, A1
1A4E2  6100 FD5A                 Bsr       P846
1A4E6  614E                      Bsr.B     P850
1A4E8  6100 FCD2                 Bsr       P845
1A4EC  6100 01FE                 Bsr       P849
1A4F0  3409                      Move      A1, D2
1A4F2  4A28 001C      L4473:     Tst.B     $1C(A0)
1A4F6  664A                      BNE.B     L4475
1A4F8  6100 01BE                 Bsr       P724
1A4FC  6644                      BNE.B     L4475
1A4FE  3772 201E 0062            Move      $1E(A2,D2.W), $62(A3)
1A504  E24A                      LsR       #$1, D2
1A506  4232 2000                 Clr.B     $0(A2,D2.W)
1A50A  612A                      Bsr.B     P850
1A50C  0828 0005 001D            BTst.B    #$5, $1D(A0)
1A512  6710                      BEQ.B     L4474
1A514  2628 001E                 Move.L    $1E(A0), D3
1A518  177C 00C0 0060            Move.B    #$-40, $60(A3)
1A51E  4240                      Clr       D0
1A520  6100 FC9A                 Bsr       P845
1A524  303C 00F7      L4474:     Move      #$F7, D0
1A528  6100 FCDC                 Bsr       P723
1A52C  6100 01BE                 Bsr       P849
1A530  4240                      Clr       D0
1A532  6000 FDE6                 Bra       P848
1A536  2F09           P850:      Move.L    A1, -(A7)
1A538  2278 02D8                 Move.L    (ABusVars), A1
1A53C  46E9 001C                 Move      $1C(A1), SR
1A540  225F                      Move.L    (A7)+, A1
1A542  4E75           L4475:     Rts
1A544  246A 001E      L4476:     Move.L    $1E(A2), A2
1A548  2263                      Move.L    -(A3), A1
1A54A  3023                      Move      -(A3), D0
1A54C  082B 0005 FFFE            BTst.B    #$5, $-2(A3)
1A552  673E                      BEQ.B     L4480
1A554  48E7 F850                 MoveM.L   D0-D4/A1/A3, -(A7)
1A558  2601                      Move.L    D1, D3
1A55A  122B FFFC                 Move.B    $-4(A3), D1
1A55E  3802                      Move      D2, D4
1A560  6100 FAF2                 Bsr       P843
1A564  672E                      BEQ.B     L4481
1A566  4AB2 4036                 Tst.L     $36(A2,D4.W)
1A56A  6722                      BEQ.B     L4479
1A56C  43EA 0066                 Lea.L     $66(A2), A1
1A570  7407                      MoveQ.L   #$7, D2
1A572  4A11           L4477:     Tst.B     (A1)
1A574  670E                      BEQ.B     L4478
1A576  D2FC 000C                 AddA      #$C, A1
1A57A  51CA FFF6                 DBF       D2, L4477
1A57E  4CDF 0A1F                 MoveM.L   (A7)+, D0-D4/A1/A3
1A582  4E75                      Rts
1A584  12C1           L4478:     Move.B    D1, (A1)+
1A586  4219                      Clr.B     (A1)+
1A588  22C3                      Move.L    D3, (A1)+
1A58A  32C0                      Move      D0, (A1)+
1A58C  4299                      Clr.L     (A1)+
1A58E  4CDF 0A1F      L4479:     MoveM.L   (A7)+, D0-D4/A1/A3
1A592  6076           L4480:     Bra.B     L4485
1A594  2049           L4481:     Move.L    A1, A0
1A596  4CDF 0A1F                 MoveM.L   (A7)+, D0-D4/A1/A3
1A59A  2601                      Move.L    D1, D3
1A59C  122B FFFC                 Move.B    $-4(A3), D1
1A5A0  4228 0001                 Clr.B     $1(A0)
1A5A4  2428 0008                 Move.L    $8(A0), D2
1A5A8  675E                      BEQ.B     L4484
1A5AA  4841                      Swap      D1
1A5AC  1223                      Move.B    -(A3), D1
1A5AE  2042                      Move.L    D2, A0
1A5B0  2268 0028                 Move.L    $28(A0), A1
1A5B4  3400                      Move      D0, D2
1A5B6  6100 0100                 Bsr       P724
1A5BA  664C                      BNE.B     L4484
1A5BC  177C 0080 0060            Move.B    #$-80, $60(A3)
1A5C2  50EB 0061                 ST.B      $61(A3)
1A5C6  3742 0062                 Move      D2, $62(A3)
1A5CA  6100 FF6A                 Bsr       P850
1A5CE  522B 0061      L4482:     AddQ      #$1, $61(A3)
1A5D2  102B 0061                 Move.B    $61(A3), D0
1A5D6  9028 002C                 Sub.B     $2C(A0), D0
1A5DA  6C00 0110                 BGE       P849
1A5DE  5200                      AddQ      #$1, D0
1A5E0  6608                      BNE.B     L4483
1A5E2  1028 001D                 Move.B    $1D(A0), D0
1A5E6  812B 0060                 Or.B      D0, $60(A3)
1A5EA  3019           L4483:     Move      (A1)+, D0
1A5EC  2419                      Move.L    (A1)+, D2
1A5EE  5449                      AddQ      #$2, A1
1A5F0  2759 0064                 Move.L    (A1)+, $64(A3)
1A5F4  E249                      LsR       #$1, D1
1A5F6  64D6                      BCC.B     L4482
1A5F8  4A69 FFFA                 Tst       $-6(A1)
1A5FC  67D0                      BEQ.B     L4482
1A5FE  4841                      Swap      D1
1A600  6100 FBBA                 Bsr       P845
1A604  4841                      Swap      D1
1A606  60C6                      Bra.B     L4482
1A608  4E75           L4484:     Rts
1A60A  2F32 2036      L4485:     Move.L    $36(A2,D2.W), -(A7)
1A60E  205F                      Move.L    (A7)+, A0
1A610  67F6                      BEQ.B     L4484
1A612  2149 0012                 Move.L    A1, $12(A0)
1A616  1163 002C                 Move.B    -(A3), $2C(A0)
1A61A  3140 002E                 Move      D0, $2E(A0)
1A61E  43E8 001D                 Lea.L     $1D(A0), A1
1A622  12E3                      Move.B    -(A3), (A1)+
1A624  2281                      Move.L    D1, (A1)
1A626  47F2 204E                 Lea.L     $4E(A2,D2.W), A3
1A62A  B749                      CmpM      (A1)+, (A3)+
1A62C  6706                      BEQ.B     L4486
1A62E  4A6B FFFE                 Tst       $-2(A3)
1A632  66D4                      BNE.B     L4484
1A634  7002           L4486:     MoveQ.L   #$2, D0
1A636  B709           L4487:     CmpM.B    (A1)+, (A3)+
1A638  6706                      BEQ.B     L4488
1A63A  4A2B FFFF                 Tst.B     $-1(A3)
1A63E  66C8                      BNE.B     L4484
1A640  5340           L4488:     SubQ      #$1, D0
1A642  66F2                      BNE.B     L4487
1A644  9751                      Sub       D3, (A1)
1A646  2590 2036                 Move.L    (A0), $36(A2,D2.W)
1A64A  6000 FCCE                 Bra       P848
1A64E  665A           P851:      BNE.B     L4493
1A650  7200                      MoveQ.L   #$0, D1
1A652  41EA 0002                 Lea.L     $2(A2), A0
1A656  102A 0007                 Move.B    $7(A2), D0
1A65A  1218                      Move.B    (A0)+, D1
1A65C  5318                      SubQ      #$1, (A0)+
1A65E  6744                      BEQ.B     L4492
1A660  48E7 3800                 MoveM.L   D2-D4, -(A7)
1A664  3218                      Move      (A0)+, D1
1A666  3818                      Move      (A0)+, D4
1A668  6728                      BEQ.B     L4491
1A66A  7408                      MoveQ.L   #$8, D2
1A66C  4243                      Clr       D3
1A66E  613C                      Bsr.B     P852
1A670  5643                      AddQ      #$3, D3
1A672  E35B                      ROL       #$1, D3
1A674  7408                      MoveQ.L   #$8, D2
1A676  6134                      Bsr.B     P852
1A678  0241 03FF                 And       #$3FF, D1
1A67C  0441 0015                 Sub       #$15, D1
1A680  6708                      BEQ.B     L4489
1A682  204B                      Move.L    A3, A0
1A684  90C1                      SubA      D1, A0
1A686  3401                      Move      D1, D2
1A688  6122                      Bsr.B     P852
1A68A  4A43           L4489:     Tst       D3
1A68C  6602                      BNE.B     L4490
1A68E  5343                      SubQ      #$1, D3
1A690  B644           L4490:     Cmp       D4, D3
1A692  4CDF 001C      L4491:     MoveM.L   (A7)+, D2-D4
1A696  6612                      BNE.B     L4493
1A698  222A 000A                 Move.L    $A(A2), D1
1A69C  122A 000D                 Move.B    $D(A2), D1
1A6A0  102A 000F                 Move.B    $F(A2), D0
1A6A4  E149           L4492:     LsL       #$8, D1
1A6A6  1200                      Move.B    D0, D1
1A6A8  4240                      Clr       D0
1A6AA  4E75           L4493:     Rts
1A6AC  1018           P852:      Move.B    (A0)+, D0
1A6AE  D640                      Add       D0, D3
1A6B0  E35B                      ROL       #$1, D3
1A6B2  5342                      SubQ      #$1, D2
1A6B4  66F6                      BNE.B     P852
1A6B6  4E75                      Rts
1A6B8  2678 02DC      P724:      Move.L    (ABusVars.dce), A3
1A6BC  302B 0018                 Move      $18(A3), D0
1A6C0  47EA 00DA                 Lea.L     $DA(A2), A3
1A6C4  4A6B 0018                 Tst       $18(A3)
1A6C8  671A                      BEQ.B     L3699
1A6CA  47EA 0142                 Lea.L     $142(A2), A3
1A6CE  4A6B 0018                 Tst       $18(A3)
1A6D2  6710                      BEQ.B     L3699
1A6D4  47EA 01AA                 Lea.L     $1AA(A2), A3
1A6D8  4A6B 0018                 Tst       $18(A3)
1A6DC  6706                      BEQ.B     L3699
1A6DE  303C FBB0                 Move      #$-450, D0
1A6E2  4E75                      Rts
1A6E4  3740 0018      L3699:     Move      D0, $18(A3)
1A6E8  4240                      Clr       D0
1A6EA  4E75                      Rts
1A6EC  426B 0018      P849:      Clr       $18(A3)
1A6F0  4E75                      Rts
                      ; end of resource : 'DRVR' 10 '.ATP'

                      ; resource header
1A6F2  C000 0FD6                 DC.L      $C0000FD6       ; Length
1A6F6  0000 0064                 DC.L      $00000064       ; ?
                      ; resource : 'DRVR' 9 '.MPP'
                      ; AppleTalk Driver
                      Driver_MPP:
1A6FA  5C00                      DC.W      $5C00           ; flags
1A6FC  0000                      DC.W      $0000           ; number of ticks between periodic actions
1A6FE  0000                      DC.W      $0000           ; desk accessory event mask
1A700  0000                      DC.W      $0000           ; menu ID
1A702  07FC                      DC.W      $07FC           ; offset to open routine
1A704  0290                      DC.W      $0290           ; offset to prime routine
1A706  001A                      DC.W      $001A           ; offset to control routine
1A708  0284                      DC.W      $0284           ; offset to status routine
1A70A  0774                      DC.W      $0774           ; offset to close routine
1A70C  04                        DC.B      $04             ; length of driver name
                      ; Name
1A70D  2E4D 5050                 DC.B      '.MPP'
                      ; end of Name
1A711  2028 13                   DC.B      ' ( '

                      E_MPP_Control:
1A714  2638 0B14                 Move.L    (AtalkHk1), D3
1A718  6F04                      BLE.B     L3700
1A71A  2443                      Move.L    D3, A2
1A71C  4E92                      Jsr       (A2)
1A71E  2478 02D8      L3700:     Move.L    (ABusVars), A2
1A722  200A                      Move.L    A2, D0
1A724  6606                      BNE.B     L3701
1A726  70EF                      MoveQ.L   #$-11, D0
1A728  6000 025A                 Bra       L3707
1A72C  3628 001A      L3701:     Move      $1A(A0), D3
1A730  6B48                      BMI.B     L3703
1A732  5343                      SubQ      #$1, D3
1A734  6602                      BNE.B     L3702
1A736  4E75                      Rts
1A738  70EF           L3702:     MoveQ.L   #$-11, D0
1A73A  0443 00F1                 Sub       #$F1, D3
1A73E  6D00 0244                 BLT       L3707
1A742  0C43 000D                 Cmp       #$D, D3
1A746  6E00 023C                 BGT       L3707
1A74A  1228 001C                 Move.B    $1C(A0), D1
1A74E  2268 001E                 Move.L    $1E(A0), A1
1A752  0C43 0007                 Cmp       #$7, D3
1A756  6E2E                      BGT.B     L3704
1A758  47FA 0010                 Lea.L     DT87, A3
1A75C  D6C3                      AddA      D3, A3
1A75E  D6C3                      AddA      D3, A3
1A760  3653                      Move      (A3), A3
1A762  487A FF96                 Pea.L     Driver_MPP
1A766  D7DF                      AddA.L    (A7)+, A3
1A768  4ED3                      Jmp       (A3)
                      ; Jump Table
1A76A  0096 0272 025E DT87:      DC.B      '   r ^'
1A770  022E 011E 0100            DC.B      ' .    '
1A776  00B6 00A0                 DC.B      '    '
1A77A  222A 008E      L3703:     Move.L    $8E(A2), D1
1A77E  6A06                      BPL.B     L3704
1A780  2641                      Move.L    D1, A3
1A782  4EAB 0002                 Jsr       $2(A3)
1A786  242A 008A      L3704:     Move.L    $8A(A2), D2
1A78A  6A10                      BPL.B     L3705
1A78C  2642                      Move.L    D2, A3
1A78E  4ED3                      Jmp       (A3)
1A790  242A 008E      E_1048:    Move.L    $8E(A2), D2
1A794  6A06                      BPL.B     L3705
1A796  2642                      Move.L    D2, A3
1A798  4ED3                      Jmp       (A3)
1A79A  4240           E_1049:    Clr       D0
1A79C  6000 01E2      L3705:     Bra       L3706
1A7A0  47FA 0B42      P725:      Lea.L     DT103, A3
1A7A4  254B 008A                 Move.L    A3, $8A(A2)
1A7A8  08EA 0007 008A            BSet.B    #$7, $8A(A2)
1A7AE  4ED3                      Jmp       (A3)
1A7B0  6106           E_1050:    Bsr.B     P835
1A7B2  1141 001C                 Move.B    D1, $1C(A0)
1A7B6  6052                      Bra.B     L4330
1A7B8  70A5           P835:      MoveQ.L   #$-5B, D0
1A7BA  40E7                      Move      SR, -(A7)
1A7BC  46FC 2600                 Move      #$2600, SR
1A7C0  4A01                      Tst.B     D1
1A7C2  6706                      BEQ.B     L4326
1A7C4  6B30                      BMI.B     L4329
1A7C6  6144                      Bsr.B     P836
1A7C8  672C                      BEQ.B     L4329
1A7CA  740D           L4326:     MoveQ.L   #$D, D2
1A7CC  4A32 2036      L4327:     Tst.B     $36(A2,D2.W)
1A7D0  57CA FFFA                 DBEQ      D2, L4327
1A7D4  6620                      BNE.B     L4329
1A7D6  4A01                      Tst.B     D1
1A7D8  6610                      BNE.B     L4328
1A7DA  6100 038C                 Bsr       P731
1A7DE  0200 00F0                 And.B     #$-10, D0
1A7E2  8002                      Or.B      D2, D0
1A7E4  08C0 0007                 BSet.B    #$7, D0
1A7E8  1200                      Move.B    D0, D1
1A7EA  1581 2036      L4328:     Move.B    D1, $36(A2,D2.W)
1A7EE  E54A                      LsL       #$2, D2
1A7F0  2589 2044                 Move.L    A1, $44(A2,D2.W)
1A7F4  4240                      Clr       D0
1A7F6  46DF           L4329:     Move      (A7)+, SR
1A7F8  4E75                      Rts
1A7FA  70A5           E_1051:    MoveQ.L   #$-5B, D0
1A7FC  4A01                      Tst.B     D1
1A7FE  670A                      BEQ.B     L4330
1A800  610A                      Bsr.B     P836
1A802  6606                      BNE.B     L4330
1A804  4232 2036                 Clr.B     $36(A2,D2.W)
1A808  4240                      Clr       D0
1A80A  6090           L4330:     Bra.B     L3705
1A80C  740D           P836:      MoveQ.L   #$D, D2
1A80E  B232 2036      L4331:     Cmp.B     $36(A2,D2.W), D1
1A812  57CA FFFA                 DBEQ      D2, L4331
1A816  4E75                      Rts
1A818  1628 001D      E_1052:    Move.B    $1D(A0), D3
1A81C  6102                      Bsr.B     DT88
1A81E  60EA                      Bra.B     L4330
1A820  6002           DT88:      Bra.B     L4332
1A822  6094           E_1063:    Bra.B     P835
1A824  70A5           L4332:     MoveQ.L   #$-5B, D0
1A826  4A01                      Tst.B     D1
1A828  6768                      BEQ.B     L4336
1A82A  61E0                      Bsr.B     P836
1A82C  6664                      BNE.B     L4336
1A82E  2F09                      Move.L    A1, -(A7)
1A830  5449                      AddQ      #$2, A1
1A832  2659                      Move.L    (A1)+, A3
1A834  5E4B                      AddQ      #$7, A3
1A836  1741 0007                 Move.B    D1, $7(A3)
1A83A  3013                      Move      (A3), D0
1A83C  6756                      BEQ.B     L4337
1A83E  B06A 001A                 Cmp       $1A(A2), D0
1A842  6750                      BEQ.B     L4337
1A844  376A 001A 0002            Move      $1A(A2), $2(A3)
1A84A  1752 0005                 Move.B    (A2), $5(A3)
1A84E  122B 0004                 Move.B    $4(A3), D1
1A852  204B                      Move.L    A3, A0
1A854  4263                      Clr       -(A3)
1A856  4A03                      Tst.B     D3
1A858  6716                      BEQ.B     L4335
1A85A  7009                      MoveQ.L   #$9, D0
1A85C  4243                      Clr       D3
1A85E  6128                      Bsr.B     P837
1A860  3019           L4333:     Move      (A1)+, D0
1A862  6706                      BEQ.B     L4334
1A864  2059                      Move.L    (A1)+, A0
1A866  6120                      Bsr.B     P837
1A868  60F6                      Bra.B     L4333
1A86A  3683           L4334:     Move      D3, (A3)
1A86C  6602                      BNE.B     L4335
1A86E  5353                      SubQ      #$1, (A3)
1A870  7602           L4335:     MoveQ.L   #$2, D3
1A872  7010                      MoveQ.L   #$10, D0
1A874  142A 0019                 Move.B    $19(A2), D2
1A878  662A                      BNE.B     L4338
1A87A  1401                      Move.B    D1, D2
1A87C  4A6A 001A                 Tst       $1A(A2)
1A880  6722                      BEQ.B     L4338
1A882  70A3                      MoveQ.L   #$-5D, D0
1A884  584F                      AddQ      #$4, A7
1A886  4E75                      Rts
1A888  1418           P837:      Move.B    (A0)+, D2
1A88A  D642                      Add       D2, D3
1A88C  E35B                      ROL       #$1, D3
1A88E  5340                      SubQ      #$1, D0
1A890  66F6                      BNE.B     P837
1A892  4E75           L4336:     Rts
1A894  204B           L4337:     Move.L    A3, A0
1A896  5048                      AddQ      #$8, A0
1A898  1690                      Move.B    (A0), (A3)
1A89A  3720                      Move      -(A0), -(A3)
1A89C  5548                      SubQ      #$2, A0
1A89E  1410                      Move.B    (A0), D2
1A8A0  7601                      MoveQ.L   #$1, D3
1A8A2  7008                      MoveQ.L   #$8, D0
1A8A4  225F           L4338:     Move.L    (A7)+, A1
1A8A6  3280                      Move      D0, (A1)
1A8A8  4241                      Clr       D1
1A8AA  2049                      Move.L    A1, A0
1A8AC  4A50           L4339:     Tst       (A0)
1A8AE  6708                      BEQ.B     L4340
1A8B0  6B1C                      BMI.B     L4341
1A8B2  D250                      Add       (A0), D1
1A8B4  5C48                      AddQ      #$6, A0
1A8B6  60F4                      Bra.B     L4339
1A8B8  3701           L4340:     Move      D1, -(A3)
1A8BA  5753                      SubQ      #$3, (A3)
1A8BC  9240                      Sub       D0, D1
1A8BE  0C41 024A                 Cmp       #$24A, D1
1A8C2  620A                      BHI.B     L4341
1A8C4  1703                      Move.B    D3, -(A3)
1A8C6  554B                      SubQ      #$2, A3
1A8C8  1682                      Move.B    D2, (A3)
1A8CA  6000 00C6                 Bra       P726
1A8CE  70A4           L4341:     MoveQ.L   #$-5C, D0
1A8D0  60C0                      Bra.B     L4336
1A8D2  760B           DT89:      MoveQ.L   #$B, D3
1A8D4  342A 001A                 Move      $1A(A2), D2
1A8D8  4E94                      Jsr       (A4)
1A8DA  66B6                      BNE.B     L4336
1A8DC  B46A 0008                 Cmp       $8(A2), D2
1A8E0  6708                      BEQ.B     L4347
1A8E2  6020                      Bra.B     L4349
1A8E4  7603           DT90:      MoveQ.L   #$3, D3
1A8E6  4E94                      Jsr       (A4)
1A8E8  66A8                      BNE.B     L4336
1A8EA  740D           L4347:     MoveQ.L   #$D, D2
1A8EC  102B FFFD                 Move.B    $-3(A3), D0
1A8F0  6712                      BEQ.B     L4349
1A8F2  B032 2036      L4348:     Cmp.B     $36(A2,D2.W), D0
1A8F6  57CA FFFA                 DBEQ      D2, L4348
1A8FA  6608                      BNE.B     L4349
1A8FC  E54A                      LsL       #$2, D2
1A8FE  2A72 2044                 Move.L    $44(A2,D2.W), A5
1A902  4ED5                      Jmp       (A5)
1A904  4EEC 0002      L4349:     Jmp       $2(A4)
1A908  5323           DT91:      SubQ      #$1, -(A3)
1A90A  66F8                      BNE.B     L4349
1A90C  7604                      MoveQ.L   #$4, D3
1A90E  4EAC 0002                 Jsr       $2(A4)
1A912  6612                      BNE.B     L4350
1A914  1423                      Move.B    -(A3), D2
1A916  5123                      SubQ      #$8, -(A3)
1A918  660C                      BNE.B     L4350
1A91A  1542 0019                 Move.B    D2, $19(A2)
1A91E  50EA 00B8                 ST.B      $B8(A2)
1A922  3563 001A                 Move      -(A3), $1A(A2)
1A926  4E75           L4350:     Rts
1A928  70A2           E_1053:    MoveQ.L   #$-5E, D0
1A92A  4A01                      Tst.B     D1
1A92C  6F1C                      BLE.B     L4344
1A92E  611C                      Bsr.B     P838
1A930  6718                      BEQ.B     L4344
1A932  7403                      MoveQ.L   #$3, D2
1A934  47F2 2022      L4342:     Lea.L     $22(A2,D2.W), A3
1A938  4A13                      Tst.B     (A3)
1A93A  5BCA FFF8                 DBMI      D2, L4342
1A93E  6A0A                      BPL.B     L4344
1A940  E54A                      LsL       #$2, D2
1A942  2589 2026                 Move.L    A1, $26(A2,D2.W)
1A946  1681                      Move.B    D1, (A3)
1A948  4240           L4343:     Clr       D0
1A94A  6034           L4344:     Bra.B     L3706
1A94C  7403           P838:      MoveQ.L   #$3, D2
1A94E  B232 2022      L4345:     Cmp.B     $22(A2,D2.W), D1
1A952  57CA FFFA                 DBEQ      D2, L4345
1A956  4E75                      Rts
1A958  70A2           E_1054:    MoveQ.L   #$-5E, D0
1A95A  7403                      MoveQ.L   #$3, D2
1A95C  B232 2022      L4346:     Cmp.B     $22(A2,D2.W), D1
1A960  57CA FFFA                 DBEQ      D2, L4346
1A964  66E4                      BNE.B     L4344
1A966  50F2 2022                 ST.B      $22(A2,D2.W)
1A96A  60DC                      Bra.B     L4343
1A96C  2069 0002      E_1055:    Move.L    $2(A1), A0
1A970  70A2                      MoveQ.L   #$-5E, D0
1A972  4A28 0002                 Tst.B     $2(A0)
1A976  6FD2                      BLE.B     L4344
1A978  1410                      Move.B    (A0), D2
1A97A  6116                      Bsr.B     P726
1A97C  6002                      Bra.B     L3706

                      E_MPP_Status:
1A97E  70EE                      MoveQ.L   #$-12, D0
1A980  2278 02DC      L3706:     Move.L    (ABusVars.dce), A1
1A984  2F38 08FC      L3707:     Move.L    (JIODone), -(A7)
1A988  4E75                      Rts

                      E_MPP_Prime:
1A98A  08A9 0007 0005            BClr.B    #$7, $5(A1)
1A990  4E75                      Rts
1A992  422A 00B0      P726:      Clr.B     $B0(A2)
1A996  2549 00A2                 Move.L    A1, $A2(A2)
1A99A  255F 00A6      P727:      Move.L    (A7)+, $A6(A2)
1A99E  2638 0B18                 Move.L    (ATalkHk2), D3
1A9A2  6F04                      BLE.B     L3708
1A9A4  2643                      Move.L    D3, A3
1A9A6  4E93                      Jsr       (A3)
1A9A8  1542 00AC      L3708:     Move.B    D2, $AC(A2)
1A9AC  47EA 00B3                 Lea.L     $B3(A2), A3
1A9B0  161B                      Move.B    (A3)+, D3
1A9B2  1413                      Move.B    (A3), D2
1A9B4  D51B                      Add.B     D2, (A3)+
1A9B6  6110                      Bsr.B     P728
1A9B8  6F20                      BLE.B     L3711
1A9BA  D603                      Add.B     D3, D3
1A9BC  5203                      AddQ      #$1, D3
1A9BE  0243 000F                 And       #$F, D3
1A9C2  422B FFFF                 Clr.B     $-1(A3)
1A9C6  601C                      Bra.B     L3712
1A9C8  7000           P728:      MoveQ.L   #$0, D0
1A9CA  7207                      MoveQ.L   #$7, D1
1A9CC  0302           L3709:     BTst.L    D1, D2
1A9CE  6702                      BEQ.B     L3710
1A9D0  5240                      AddQ      #$1, D0
1A9D2  51C9 FFF8      L3710:     DBF       D1, L3709
1A9D6  5500                      SubQ      #$2, D0
1A9D8  4E75                      Rts
1A9DA  1413           L3711:     Move.B    (A3), D2
1A9DC  61EA                      Bsr.B     P728
1A9DE  6C04                      BGE.B     L3712
1A9E0  E20B                      LsR.B     #$1, D3
1A9E2  50D3                      ST.B      (A3)
1A9E4  1413           L3712:     Move.B    (A3), D2
1A9E6  D51B                      Add.B     D2, (A3)+
1A9E8  7020                      MoveQ.L   #$20, D0
1A9EA  16C0                      Move.B    D0, (A3)+
1A9EC  1680                      Move.B    D0, (A3)
1A9EE  5B4B                      SubQ      #$5, A3
1A9F0  16C3                      Move.B    D3, (A3)+
1A9F2  16C3                      Move.B    D3, (A3)+
1A9F4  4CF8 0300 01D8            MoveM.L   (SCCRd), A0-A1
1A9FA  40E7           L4351:     Move      SR, -(A7)
1A9FC  3600           L3713:     Move      D0, D3
1A9FE  0810 0004                 BTst.B    #$4, (A0)
1AA02  672E                      BEQ.B     L3717
1AA04  6100 0162                 Bsr       P731
1AA08  C02A 00B2                 And.B     $B2(A2), D0
1AA0C  0240 000F                 And       #$F, D0
1AA10  3600                      Move      D0, D3
1AA12  6708                      BEQ.B     L3715
1AA14  6170           L3714:     Bsr.B     P729
1AA16  671A                      BEQ.B     L3717
1AA18  5340                      SubQ      #$1, D0
1AA1A  66F8                      BNE.B     L3714
1AA1C  46FC 2600      L3715:     Move      #$2600, SR
1AA20  12BC 000E                 Move.B    #$E, (A1)
1AA24  7003                      MoveQ.L   #$3, D0
1AA26  5643                      AddQ      #$3, D3
1AA28  12BC 0041                 Move.B    #$41, (A1)
1AA2C  6158           L3716:     Bsr.B     P729
1AA2E  57C8 FFFC                 DBEQ      D0, L3716
1AA32  6700 0090      L3717:     BEQ       L3726
1AA36  12BC 000A                 Move.B    #$A, (A1)
1AA3A  142A 00AC                 Move.B    $AC(A2), D2
1AA3E  4A10                      Tst.B     (A0)
1AA40  6B00 0082                 BMI       L3726
1AA44  12BC 0005                 Move.B    #$5, (A1)
1AA48  7084                      MoveQ.L   #$-7C, D0
1AA4A  12BC 0062                 Move.B    #$62, (A1)
1AA4E  4A2A 00B0                 Tst.B     $B0(A2)
1AA52  6702                      BEQ.B     L3718
1AA54  7081                      MoveQ.L   #$-7F, D0
1AA56  12BC 0005      L3718:     Move.B    #$5, (A1)
1AA5A  4E71                      Nop
1AA5C  12AA 00F7                 Move.B    $F7(A2), (A1)
1AA60  6100 01C0                 Bsr       P735
1AA64  5202                      AddQ      #$1, D2
1AA66  672A                      BEQ.B     L3721
1AA68  422A 00AE                 Clr.B     $AE(A2)
1AA6C  6100 00E0                 Bsr       P730
1AA70  4A2A 00B0                 Tst.B     $B0(A2)
1AA74  6708                      BEQ.B     L3719
1AA76  4A2A 00AF                 Tst.B     $AF(A2)
1AA7A  6728                      BEQ.B     L3725
1AA7C  601C                      Bra.B     L3723
1AA7E  4A2A 00AE      L3719:     Tst.B     $AE(A2)
1AA82  6720                      BEQ.B     L3725
1AA84  6010                      Bra.B     L3722
1AA86  723C           P729:      MoveQ.L   #$3C, D1
1AA88  51C9 FFFE      L3720:     DBF       D1, L3720
1AA8C  0810 0004                 BTst.B    #$4, (A0)
1AA90  4E75                      Rts
1AA92  61F2           L3721:     Bsr.B     P729
1AA94  670E                      BEQ.B     L3725
1AA96  6100 0114      L3722:     Bsr       P734
1AA9A  7000           L3723:     MoveQ.L   #$0, D0
1AA9C  46DF           L3724:     Move      (A7)+, SR
1AA9E  206A 00A6                 Move.L    $A6(A2), A0
1AAA2  4ED0                      Jmp       (A0)
1AAA4  46D7           L3725:     Move      (A7), SR
1AAA6  08EA 0000 00B4            BSet.B    #$0, $B4(A2)
1AAAC  102A 00B2                 Move.B    $B2(A2), D0
1AAB0  D000                      Add.B     D0, D0
1AAB2  5200                      AddQ      #$1, D0
1AAB4  1540 00B2                 Move.B    D0, $B2(A2)
1AAB8  70A1                      MoveQ.L   #$-5F, D0
1AABA  532A 00B7                 SubQ      #$1, $B7(A2)
1AABE  67DC                      BEQ.B     L3724
1AAC0  6000 FF3A                 Bra       L3713
1AAC4  9640           L3726:     Sub       D0, D3
1AAC6  5943                      SubQ      #$4, D3
1AAC8  6D14                      BLT.B     L3727
1AACA  70A1                      MoveQ.L   #$-5F, D0
1AACC  532A 00B6                 SubQ      #$1, $B6(A2)
1AAD0  67CA                      BEQ.B     L3724
1AAD2  08EA 0000 00B2            BSet.B    #$0, $B2(A2)
1AAD8  08EA 0000 00B5            BSet.B    #$0, $B5(A2)
1AADE  46FC 2600      L3727:     Move      #$2600, SR
1AAE2  12BC 000F                 Move.B    #$F, (A1)
1AAE6  7088                      MoveQ.L   #$-78, D0
1AAE8  1280                      Move.B    D0, (A1)
1AAEA  542A 00B1                 AddQ      #$2, $B1(A2)
1AAEE  7000                      MoveQ.L   #$0, D0
1AAF0  46DF                      Move      (A7)+, SR
1AAF2  4E75                      Rts
1AAF4  2478 02D8      DT92:      Move.L    (ABusVars), A2
1AAF8  4A2A 00B1                 Tst.B     $B1(A2)
1AAFC  660C                      BNE.B     L4352
1AAFE  0801 0003                 BTst.B    #$3, D1
1AB02  6762                      BEQ.B     L4355
1AB04  2678 02C2                 Move.L    (ExtStsDT.1), A3
1AB08  4ED3                      Jmp       (A3)
1AB0A  422A 00B1      L4352:     Clr.B     $B1(A2)
1AB0E  12BC 000F      L4353:     Move.B    #$F, (A1)
1AB12  7008                      MoveQ.L   #$8, D0
1AB14  1280                      Move.B    D0, (A1)
1AB16  46EA 001C                 Move      $1C(A2), SR
1AB1A  6000 FEDE                 Bra       L4351
1AB1E  317C 0014 000A DT93:      Move      #$14, $A(A0)
1AB24  2478 02D8                 Move.L    (ABusVars), A2
1AB28  532A 00B8                 SubQ      #$1, $B8(A2)
1AB2C  6604                      BNE.B     L4354
1AB2E  422A 0019                 Clr.B     $19(A2)
1AB32  4A2A 00B1      L4354:     Tst.B     $B1(A2)
1AB36  672E                      BEQ.B     L4355
1AB38  532A 00B1                 SubQ      #$1, $B1(A2)
1AB3C  6628                      BNE.B     L4355
1AB3E  4CF8 0300 01D8            MoveM.L   (SCCRd), A0-A1
1AB44  46FC 2600                 Move      #$2600, SR
1AB48  6100 0228                 Bsr       P742
1AB4C  60C0                      Bra.B     L4353
1AB4E  48E7 00E0      P730:      MoveM.L   A0-A2, -(A7)
1AB52  727D                      MoveQ.L   #$7D, D1
1AB54  0810 0000      L3728:     BTst.B    #$0, (A0)
1AB58  56C9 FFFA                 DBNE      D1, L3728
1AB5C  6704                      BEQ.B     L3729
1AB5E  6100 0110                 Bsr       P739
1AB62  4CDF 0700      L3729:     MoveM.L   (A7)+, A0-A2
1AB66  4E75           L4355:     Rts
1AB68  302A 00AA      P731:      Move      $AA(A2), D0
1AB6C  C0FC 0305                 MulU      #$305, D0
1AB70  5240                      AddQ      #$1, D0
1AB72  3F00                      Move      D0, -(A7)
1AB74  E148                      LsL       #$8, D0
1AB76  101F                      Move.B    (A7)+, D0
1AB78  3540 00AA                 Move      D0, $AA(A2)
1AB7C  4E75                      Rts
1AB7E  056B 03D0      DT94:      DC.B      ' k  '
1AB82  721E           P732:      MoveQ.L   #$1E, D1
1AB84  0810 0002      L3730:     BTst.B    #$2, (A0)
1AB88  56C9 FFFA                 DBNE      D1, L3730
1AB8C  6704                      BEQ.B     L3731
1AB8E  1343 0004                 Move.B    D3, $4(A1)
1AB92  4A41           L3731:     Tst       D1
1AB94  4E75                      Rts
1AB96  47FA FFE6      P733:      Lea.L     DT94, A3
1AB9A  7604                      MoveQ.L   #$4, D3
1AB9C  6100 00C6                 Bsr       P738
1ABA0  7628                      MoveQ.L   #$28, D3
1ABA2  51CB FFFE      L3732:     DBF       D3, L3732
1ABA6  12BC 0080                 Move.B    #$-80, (A1)
1ABAA  4E75                      Rts
1ABAC  48EA 7300 00DE P734:      MoveM.L   A0-A1/A4-A6, $DE(A2)
1ABB2  2F38 0124                 Move.L    (DskRtnAdr), -(A7)
1ABB6  2F38 013A                 Move.L    (PollStack), -(A7)
1ABBA  21CF 013A                 Move.L    A7, (PollStack)
1ABBE  2A6A 00F2                 Move.L    $F2(A2), A5
1ABC2  4DE8 0006                 Lea.L     $6(A0), A6
1ABC6  286A 00A2                 Move.L    $A2(A2), A4
1ABCA  61CA                      Bsr.B     P733
1ABCC  361C                      Move      (A4)+, D3
1ABCE  265C                      Move.L    (A4)+, A3
1ABD0  135B 0004                 Move.B    (A3)+, $4(A1)
1ABD4  5343                      SubQ      #$1, D3
1ABD6  1692                      Move.B    (A2), (A3)
1ABD8  701E           L3733:     MoveQ.L   #$1E, D0
1ABDA  0810 0002      L3734:     BTst.B    #$2, (A0)
1ABDE  56C8 FFFA                 DBNE      D0, L3734
1ABE2  6604                      BNE.B     L3735
1ABE4  6178                      Bsr.B     P737
1ABE6  6018                      Bra.B     L3738
1ABE8  135B 0004      L3735:     Move.B    (A3)+, $4(A1)
1ABEC  4A15                      Tst.B     (A5)
1ABEE  6B02                      BMI.B     L3736
1ABF0  1F16                      Move.B    (A6), -(A7)
1ABF2  5343           L3736:     SubQ      #$1, D3
1ABF4  6EE2                      BGT.B     L3733
1ABF6  361C                      Move      (A4)+, D3
1ABF8  6704                      BEQ.B     L3737
1ABFA  265C                      Move.L    (A4)+, A3
1ABFC  60DA                      Bra.B     L3733
1ABFE  613A           L3737:     Bsr.B     P736
1AC00  2638 013E      L3738:     Move.L    (PollProc), D3
1AC04  6708                      BEQ.B     L3739
1AC06  2843                      Move.L    D3, A4
1AC08  4E94                      Jsr       (A4)
1AC0A  2478 02D8                 Move.L    (ABusVars), A2
1AC0E  4CEA 7300 00DE L3739:     MoveM.L   $DE(A2), A0-A1/A4-A6
1AC14  2E78 013A                 Move.L    (PollStack), A7
1AC18  21DF 013A                 Move.L    (A7)+, (PollStack)
1AC1C  21DF 0124                 Move.L    (A7)+, (DskRtnAdr)
1AC20  4E75                      Rts
1AC22  6100 FF72      P735:      Bsr       P733
1AC26  1342 0004                 Move.B    D2, $4(A1)
1AC2A  1612                      Move.B    (A2), D3
1AC2C  6100 FF54                 Bsr       P732
1AC30  672C                      BEQ.B     P737
1AC32  1600                      Move.B    D0, D3
1AC34  6100 FF4C                 Bsr       P732
1AC38  6724                      BEQ.B     P737
1AC3A  12BC 00C0      P736:      Move.B    #$-40, (A1)
1AC3E  E34B                      LsL       #$1, D3
1AC40  0810 0006      L3740:     BTst.B    #$6, (A0)
1AC44  67FA                      BEQ.B     L3740
1AC46  0810 0002      L3741:     BTst.B    #$2, (A0)
1AC4A  67FA                      BEQ.B     L3741
1AC4C  12BC 0005                 Move.B    #$5, (A1)
1AC50  7600                      MoveQ.L   #$0, D3
1AC52  12BC 0062                 Move.B    #$62, (A1)
1AC56  162A 00B9                 Move.B    $B9(A2), D3
1AC5A  51CB FFFE      L3742:     DBF       D3, L3742
1AC5E  47EA 00F6      P737:      Lea.L     $F6(A2), A3
1AC62  7606                      MoveQ.L   #$6, D3
1AC64  129B           P738:      Move.B    (A3)+, (A1)
1AC66  5343                      SubQ      #$1, D3
1AC68  66FA                      BNE.B     P738
1AC6A  4E75                      Rts
1AC6C  2478 02D8      DT95:      Move.L    (ABusVars), A2
1AC70  47EA 0001      P739:      Lea.L     $1(A2), A3
1AC74  16E8 0004                 Move.B    $4(A0), (A3)+
1AC78  7228                      MoveQ.L   #$28, D1
1AC7A  0810 0000      L3743:     BTst.B    #$0, (A0)
1AC7E  56C9 FFFA                 DBNE      D1, L3743
1AC82  6746                      BEQ.B     L3748
1AC84  16E8 0004                 Move.B    $4(A0), (A3)+
1AC88  0810 0000      L3744:     BTst.B    #$0, (A0)
1AC8C  56C9 FFFA                 DBNE      D1, L3744
1AC90  6738                      BEQ.B     L3748
1AC92  1028 0004                 Move.B    $4(A0), D0
1AC96  16C0                      Move.B    D0, (A3)+
1AC98  6B5A                      BMI.B     L3750
1AC9A  7403                      MoveQ.L   #$3, D2
1AC9C  B032 2022      L3745:     Cmp.B     $22(A2,D2.W), D0
1ACA0  57CA FFFA                 DBEQ      D2, L3745
1ACA4  E54A                      LsL       #$2, D2
1ACA6  7028                      MoveQ.L   #$28, D0
1ACA8  0810 0000      L3746:     BTst.B    #$0, (A0)
1ACAC  56C8 FFFA                 DBNE      D0, L3746
1ACB0  6718                      BEQ.B     L3748
1ACB2  16A8 0004                 Move.B    $4(A0), (A3)
1ACB6  7203                      MoveQ.L   #$3, D1
1ACB8  C21B                      And.B     (A3)+, D1
1ACBA  E149                      LsL       #$8, D1
1ACBC  48EA 3000 00BA            MoveM.L   A4-A5, $BA(A2)
1ACC2  0810 0000      L3747:     BTst.B    #$0, (A0)
1ACC6  56C8 FFFA                 DBNE      D0, L3747
1ACCA  6778           L3748:     BEQ.B     L3757
1ACCC  1228 0004                 Move.B    $4(A0), D1
1ACD0  16C1                      Move.B    D1, (A3)+
1ACD2  5541                      SubQ      #$2, D1
1ACD4  4A42                      Tst       D2
1ACD6  6B0A                      BMI.B     L3749
1ACD8  2A72 2026                 Move.L    $26(A2,D2.W), A5
1ACDC  49FA 00E6                 Lea.L     DT96, A4
1ACE0  4ED5                      Jmp       (A5)
1ACE2  12BC 0001      L3749:     Move.B    #$1, (A1)
1ACE6  70A0                      MoveQ.L   #$-60, D0
1ACE8  C010                      And.B     (A0), D0
1ACEA  6600 00C8                 BNE       L3762
1ACEE  4243                      Clr       D3
1ACF0  6000 00D4                 Bra       L3766
1ACF4  747F           L3750:     MoveQ.L   #$7F, D2
1ACF6  C400                      And.B     D0, D2
1ACF8  0C02 0005                 Cmp.B     #$5, D2
1ACFC  6E46                      BGT.B     L3757
1ACFE  6148                      Bsr.B     P741
1AD00  6614                      BNE.B     L3751
1AD02  0C2A 00FF 0001            Cmp.B     #$-1, $1(A2)
1AD08  57C1                      SEQ.B     D1
1AD0A  670C                      BEQ.B     L3752
1AD0C  4A2A 00AD                 Tst.B     $AD(A2)
1AD10  6606                      BNE.B     L3752
1AD12  50EA 00AF                 ST.B      $AF(A2)
1AD16  4E75           L3751:     Rts
1AD18  5302           L3752:     SubQ      #$1, D2
1AD1A  671E                      BEQ.B     L3756
1AD1C  5702                      SubQ      #$3, D2
1AD1E  6708                      BEQ.B     L3753
1AD20  5302                      SubQ      #$1, D2
1AD22  57EA 00AE                 SEQ.B     $AE(A2)
1AD26  4E75                      Rts
1AD28  4A01           L3753:     Tst.B     D1
1AD2A  660A                      BNE.B     L3755
1AD2C  7014                      MoveQ.L   #$14, D0
1AD2E  51C8 FFFE      L3754:     DBF       D0, L3754
1AD32  7085                      MoveQ.L   #$-7B, D0
1AD34  6106                      Bsr.B     P740
1AD36  6000 FE16      L3755:     Bra       P730
1AD3A  7082           L3756:     MoveQ.L   #$-7E, D0
1AD3C  142A 0002      P740:      Move.B    $2(A2), D2
1AD40  6000 FEE0                 Bra       P735
1AD44  612C           L3757:     Bsr.B     P742
1AD46  602A                      Bra.B     P742
1AD48  4240           P741:      Clr       D0
1AD4A  7210                      MoveQ.L   #$10, D1
1AD4C  0810 0000      L3758:     BTst.B    #$0, (A0)
1AD50  56C9 FFFA                 DBNE      D1, L3758
1AD54  6766                      BEQ.B     L3763
1AD56  6152                      Bsr.B     P744
1AD58  6B5A                      BMI.B     L3762
1AD5A  4A28 0004                 Tst.B     $4(A0)
1AD5E  7210                      MoveQ.L   #$10, D1
1AD60  0810 0000      L3759:     BTst.B    #$0, (A0)
1AD64  56C9 FFFA                 DBNE      D1, L3759
1AD68  6752                      BEQ.B     L3763
1AD6A  613E                      Bsr.B     P744
1AD6C  6A46                      BPL.B     L3762
1AD6E  E309                      LsL.B     #$1, D1
1AD70  6B4C                      BMI.B     L3764
1AD72  6136           P742:      Bsr.B     P744
1AD74  0801 0005                 BTst.B    #$5, D1
1AD78  6706                      BEQ.B     L3760
1AD7A  08B8 0007 015F            BClr.B    #$7, (IntFlag)
1AD80  72D0           L3760:     MoveQ.L   #$-30, D1
1AD82  611C                      Bsr.B     P743
1AD84  7202                      MoveQ.L   #$2, D1
1AD86  4A28 0004      L3761:     Tst.B     $4(A0)
1AD8A  51C9 FFFA                 DBF       D1, L3761
1AD8E  72DD                      MoveQ.L   #$-23, D1
1AD90  610E                      Bsr.B     P743
1AD92  12BC 0030                 Move.B    #$30, (A1)
1AD96  3E97                      Move      (A7), (A7)
1AD98  12BC 0020                 Move.B    #$20, (A1)
1AD9C  4A40                      Tst       D0
1AD9E  4E75                      Rts
1ADA0  12BC 0003      P743:      Move.B    #$3, (A1)
1ADA4  4E71                      Nop
1ADA6  1281                      Move.B    D1, (A1)
1ADA8  4E75                      Rts
1ADAA  12BC 0001      P744:      Move.B    #$1, (A1)
1ADAE  4E71                      Nop
1ADB0  1210                      Move.B    (A0), D1
1ADB2  4E75                      Rts
1ADB4  0801 0005      L3762:     BTst.B    #$5, D1
1ADB8  6606                      BNE.B     L3765
1ADBA  70FF                      MoveQ.L   #$-1, D0
1ADBC  5340           L3763:     SubQ      #$1, D0
1ADBE  5340           L3764:     SubQ      #$1, D0
1ADC0  5340           L3765:     SubQ      #$1, D0
1ADC2  60AE                      Bra.B     P742
1ADC4  6076           DT96:      Bra.B     L4358
1ADC6  2A6A 00F2      L3766:     Move.L    $F2(A2), A5
1ADCA  284F                      Move.L    A7, A4
1ADCC  7010           L3767:     MoveQ.L   #$10, D0
1ADCE  5341                      SubQ      #$1, D1
1ADD0  6B1E                      BMI.B     L3770
1ADD2  0810 0000      L3768:     BTst.B    #$0, (A0)
1ADD6  56C8 FFFA                 DBNE      D0, L3768
1ADDA  6714                      BEQ.B     L3770
1ADDC  1028 0004                 Move.B    $4(A0), D0
1ADE0  4A15                      Tst.B     (A5)
1ADE2  6B04                      BMI.B     L3769
1ADE4  1F28 0006                 Move.B    $6(A0), -(A7)
1ADE8  5343           L3769:     SubQ      #$1, D3
1ADEA  6BE0                      BMI.B     L3767
1ADEC  16C0                      Move.B    D0, (A3)+
1ADEE  60DC                      Bra.B     L3767
1ADF0  6100 FF56      L3770:     Bsr       P741
1ADF4  2578 013A 00C6            Move.L    (PollStack), $C6(A2)
1ADFA  21CC 013A                 Move.L    A4, (PollStack)
1ADFE  2238 013E                 Move.L    (PollProc), D1
1AE02  6724                      BEQ.B     L3771
1AE04  48EA 480D 00DE            MoveM.L   D0/D2-D3/A3/A6, $DE(A2)
1AE0A  4DE8 0006                 Lea.L     $6(A0), A6
1AE0E  2041                      Move.L    D1, A0
1AE10  2578 0124 00C2            Move.L    (DskRtnAdr), $C2(A2)
1AE16  4E90                      Jsr       (A0)
1AE18  2478 02D8                 Move.L    (ABusVars), A2
1AE1C  21EA 00C2 0124            Move.L    $C2(A2), (DskRtnAdr)
1AE22  4CEA 480D 00DE            MoveM.L   $DE(A2), D0/D2-D3/A3/A6
1AE28  2E78 013A      L3771:     Move.L    (PollStack), A7
1AE2C  21EA 00C6 013A            Move.L    $C6(A2), (PollStack)
1AE32  4CEA 3000 00BA L4356:     MoveM.L   $BA(A2), A4-A5
1AE38  4A40                      Tst       D0
1AE3A  4E75           L4357:     Rts
1AE3C  9243           L4358:     Sub       D3, D1
1AE3E  7010           L4359:     MoveQ.L   #$10, D0
1AE40  0810 0000      L4360:     BTst.B    #$0, (A0)
1AE44  56C8 FFFA                 DBNE      D0, L4360
1AE48  6718                      BEQ.B     L4361
1AE4A  16E8 0004                 Move.B    $4(A0), (A3)+
1AE4E  5343                      SubQ      #$1, D3
1AE50  66EC                      BNE.B     L4359
1AE52  12BC 0001                 Move.B    #$1, (A1)
1AE56  70A0                      MoveQ.L   #$-60, D0
1AE58  C010                      And.B     (A0), D0
1AE5A  67DE                      BEQ.B     L4357
1AE5C  6B08                      BMI.B     L4362
1AE5E  70FF                      MoveQ.L   #$-1, D0
1AE60  6006                      Bra.B     L4363
1AE62  70FD           L4361:     MoveQ.L   #$-3, D0
1AE64  6002                      Bra.B     L4363
1AE66  70FC           L4362:     MoveQ.L   #$-4, D0
1AE68  6100 FF08      L4363:     Bsr       P742
1AE6C  60C4                      Bra.B     L4356

                      E_MPP_Close:
1AE6E  2878 011C                 Move.L    (UTableBase), A4
1AE72  D8FC 0028                 AddA      #$28, A4
1AE76  2478 02D8                 Move.L    (ABusVars), A2
1AE7A  200A                      Move.L    A2, D0
1AE7C  6700 0056                 BEQ       L3774
1AE80  50EA 001E                 ST.B      $1E(A2)
1AE84  9EFC 0032                 SubA      #$32, A7
1AE88  204F                      Move.L    A7, A0
1AE8A  317C FFF5 0018            Move      #$-B, $18(A0)
1AE90  A001                      _Close
1AE92  DEFC 0032                 AddA      #$32, A7
1AE96  40E7                      Move      SR, -(A7)
1AE98  46FC 2600                 Move      #$2600, SR
1AE9C  41FA 004C                 Lea.L     DT97, A0
1AEA0  6138                      Bsr.B     P745
1AEA2  41EA 007C                 Lea.L     $7C(A2), A0
1AEA6  A034                      _VRemove
1AEA8  41EA 00D2                 Lea.L     $D2(A2), A0
1AEAC  47F8 01BA                 Lea.L     (Lvl2DT.2), A3
1AEB0  26D8                      Move.L    (A0)+, (A3)+
1AEB2  26D8                      Move.L    (A0)+, (A3)+
1AEB4  21D8 02BE                 Move.L    (A0)+, (ExtStsDT)
1AEB8  2064                      Move.L    -(A4), A0
1AEBA  202A 00CE                 Move.L    $CE(A2), D0
1AEBE  6704                      BEQ.B     L3772
1AEC0  2940 FFFC                 Move.L    D0, $-4(A4)
1AEC4  202A 00CA      L3772:     Move.L    $CA(A2), D0
1AEC8  6704                      BEQ.B     L3773
1AECA  2940 FFF8                 Move.L    D0, $-8(A4)
1AECE  46DF           L3773:     Move      (A7)+, SR
1AED0  204A                      Move.L    A2, A0
1AED2  A01F                      _DisposePtr
1AED4  50F8 0291      L3774:     ST.B      (PortBUse)
1AED8  4E75           L3775:     Rts
1AEDA  2678 01DC      P745:      Move.L    (SCCWr), A3
1AEDE  3018           L3776:     Move      (A0)+, D0
1AEE0  67F6                      BEQ.B     L3775
1AEE2  1680                      Move.B    D0, (A3)
1AEE4  E058                      ROR       #$8, D0
1AEE6  1680                      Move.B    D0, (A3)
1AEE8  60F4                      Bra.B     L3776
1AEEA  4A09 000A 1000 DT97:      DC.B      'J     '
1AEF0  080F 0101 0000            DC.B      '      '

                      E_MPP_Open:
1AEF6  709F                      MoveQ.L   #$-61, D0
1AEF8  4A38 0291                 Tst.B     (PortBUse)
1AEFC  6ADA                      BPL.B     L3775
1AEFE  709E                      MoveQ.L   #$-62, D0
1AF00  1238 01FB                 Move.B    (SPConfig), D1
1AF04  0201 000F                 And.B     #$F, D1
1AF08  5301                      SubQ      #$1, D1
1AF0A  6ECC                      BGT.B     L3775
1AF0C  42B8 02D8                 Clr.L     (ABusVars)
1AF10  203C 0000 00FC            Move.L    #$FC, D0
1AF16  A71E                      _NewPtrSysClear
1AF18  66BE                      BNE.B     L3775
1AF1A  11FC 0001 0291            Move.B    #$1, (PortBUse)
1AF20  2448                      Move.L    A0, A2
1AF22  21CA 02D8                 Move.L    A2, (ABusVars)
1AF26  21C9 02DC                 Move.L    A1, (ABusVars.dce)
1AF2A  2078 011C                 Move.L    (UTableBase), A0
1AF2E  2668 0020                 Move.L    $20(A0), A3
1AF32  200B                      Move.L    A3, D0
1AF34  6710                      BEQ.B     L3777
1AF36  2653                      Move.L    (A3), A3
1AF38  4A2B 0007                 Tst.B     $7(A3)
1AF3C  6608                      BNE.B     L3777
1AF3E  2540 00CE                 Move.L    D0, $CE(A2)
1AF42  42A8 0020                 Clr.L     $20(A0)
1AF46  2668 001C      L3777:     Move.L    $1C(A0), A3
1AF4A  200B                      Move.L    A3, D0
1AF4C  6710                      BEQ.B     L3778
1AF4E  2653                      Move.L    (A3), A3
1AF50  4A2B 0007                 Tst.B     $7(A3)
1AF54  6608                      BNE.B     L3778
1AF56  2540 00CA                 Move.L    D0, $CA(A2)
1AF5A  42A8 001C                 Clr.L     $1C(A0)
1AF5E  7003           L3778:     MoveQ.L   #$3, D0
1AF60  50F2 0022      L3779:     ST.B      $22(A2,D0.W)
1AF64  51C8 FFFA                 DBF       D0, L3779
1AF68  43FA 01B0                 Lea.L     DT101, A1
1AF6C  41F9 00EF FFFE            Lea.L     ($EFFFFE), A0
1AF72  2548 00F2                 Move.L    A0, $F2(A2)
1AF76  2559 00F6                 Move.L    (A1)+, $F6(A2)
1AF7A  3559 00FA                 Move      (A1)+, $FA(A2)
1AF7E  3559 001C                 Move      (A1)+, $1C(A2)
1AF82  1559 00B9                 Move.B    (A1)+, $B9(A2)
1AF86  40E7                      Move      SR, -(A7)
1AF88  46FC 2600                 Move      #$2600, SR
1AF8C  47F8 01BA                 Lea.L     (Lvl2DT.2), A3
1AF90  43EA 00D2                 Lea.L     $D2(A2), A1
1AF94  41FA FCD6                 Lea.L     DT95, A0
1AF98  22D3                      Move.L    (A3), (A1)+
1AF9A  26C8                      Move.L    A0, (A3)+
1AF9C  41FA FDA6                 Lea.L     L3757, A0
1AFA0  22D3                      Move.L    (A3), (A1)+
1AFA2  26C8                      Move.L    A0, (A3)+
1AFA4  41FA FB4E                 Lea.L     DT92, A0
1AFA8  22B8 02BE                 Move.L    (ExtStsDT), (A1)
1AFAC  21C8 02BE                 Move.L    A0, (ExtStsDT)
1AFB0  41EA 007C                 Lea.L     $7C(A2), A0
1AFB4  317C 0001 0004            Move      #$1, $4(A0)
1AFBA  43FA FB62                 Lea.L     DT93, A1
1AFBE  2149 0006                 Move.L    A1, $6(A0)
1AFC2  317C 0014 000A            Move      #$14, $A(A0)
1AFC8  A033                      _VInstall
1AFCA  6100 011A                 Bsr       P749
1AFCE  3578 016C 00AA            Move      (Ticks.LoWord), $AA(A2)
1AFD4  46DF                      Move      (A7)+, SR
1AFD6  1038 01FA                 Move.B    (SPATalkB), D0
1AFDA  6E04                      BGT.B     L3781
1AFDC  6100 FB8A      L3780:     Bsr       P731
1AFE0  0240 007F      L3781:     And       #$7F, D0
1AFE4  67F6                      BEQ.B     L3780
1AFE6  7813                      MoveQ.L   #$13, D4
1AFE8  1480                      Move.B    D0, (A2)
1AFEA  422A 00AD                 Clr.B     $AD(A2)
1AFEE  2278 01DC                 Move.L    (SCCWr), A1
1AFF2  12BC 0006                 Move.B    #$6, (A1)
1AFF6  422A 00AF                 Clr.B     $AF(A2)
1AFFA  1292                      Move.B    (A2), (A1)
1AFFC  50EA 00B0      L3782:     ST.B      $B0(A2)
1B000  1412                      Move.B    (A2), D2
1B002  6100 00D8                 Bsr       P748
1B006  4A2A 00B0      L3783:     Tst.B     $B0(A2)
1B00A  66FA                      BNE.B     L3783
1B00C  4A2A 00AF                 Tst.B     $AF(A2)
1B010  66CA                      BNE.B     L3780
1B012  51CC FFE8                 DBF       D4, L3782
1B016  11D2 01FA                 Move.B    (A2), (SPATalkB)
1B01A  50EA 00AD                 ST.B      $AD(A2)
1B01E  41F8 01F8                 Lea.L     (SysParam_SPValid), A0
1B022  70FF                      MoveQ.L   #$-1, D0
1B024  A038                      _WriteParam
1B026  47FA F8BC                 Lea.L     DT90, A3
1B02A  41EA 0036                 Lea.L     $36(A2), A0
1B02E  210B                      Move.L    A3, -(A0)
1B030  47FA F8A0                 Lea.L     DT89, A3
1B034  210B                      Move.L    A3, -(A0)
1B036  41EA 0026                 Lea.L     $26(A2), A0
1B03A  113C 0001                 Move.B    #$1, -(A0)
1B03E  113C 0002                 Move.B    #$2, -(A0)
1B042  41FA F8C4                 Lea.L     DT91, A0
1B046  2548 0078                 Move.L    A0, $78(A2)
1B04A  157C 0001 0043            Move.B    #$1, $43(A2)
1B050  6100 0046                 Bsr       P746
1B054  41FA F7CA                 Lea.L     DT88, A0
1B058  2548 0096                 Move.L    A0, $96(A2)
1B05C  47FA 00E2                 Lea.L     DT102, A3
1B060  254B 008E                 Move.L    A3, $8E(A2)
1B064  9EFC 0032                 SubA      #$32, A7
1B068  41FA 006C                 Lea.L     DT98, A0
1B06C  2F48 0012                 Move.L    A0, $12(A7)
1B070  204F                      Move.L    A7, A0
1B072  4228 001B                 Clr.B     $1B(A0)
1B076  A000                      _Open
1B078  DEFC 0032                 AddA      #$32, A7
1B07C  7607                      MoveQ.L   #$7, D3
1B07E  6100 F720                 Bsr       P725
1B082  4A6A 001A                 Tst       $1A(A2)
1B086  6602                      BNE.B     L3784
1B088  610E                      Bsr.B     P746
1B08A  2278 02DC      L3784:     Move.L    (ABusVars.dce), A1
1B08E  137C 0013 0007            Move.B    #$13, $7(A1)
1B094  7000                      MoveQ.L   #$0, D0
1B096  4E75                      Rts
1B098  4267           P746:      Clr       -(A7)
1B09A  594F                      SubQ      #$4, A7
1B09C  3F3C 0009                 Move      #$9, -(A7)
1B0A0  224F                      Move.L    A7, A1
1B0A2  3F3C 0501                 Move      #$501, -(A7)
1B0A6  3F3C 0101                 Move      #$101, -(A7)
1B0AA  3F3C 0006                 Move      #$6, -(A7)
1B0AE  3F3C 0001                 Move      #$1, -(A7)
1B0B2  50C2                      ST.B      D2
1B0B4  3F02                      Move      D2, -(A7)
1B0B6  47EF 0001                 Lea.L     $1(A7), A3
1B0BA  274B 000B                 Move.L    A3, $B(A3)
1B0BE  610C                      Bsr.B     P747
1B0C0  4A2A 00B0      L3785:     Tst.B     $B0(A2)
1B0C4  67FA                      BEQ.B     L3785
1B0C6  DEFC 0012                 AddA      #$12, A7
1B0CA  4E75                      Rts
1B0CC  6100 F8C4      P747:      Bsr       P726
1B0D0  50EA 00B0                 ST.B      $B0(A2)
1B0D4  4E75                      Rts
1B0D6  042E 4154 5020 DT98:      DC.B      ' .ATP '
1B0DC  6100 F8BC      P748:      Bsr       P727
1B0E0  422A 00B0                 Clr.B     $B0(A2)
1B0E4  4E75                      Rts
1B0E6  41FA 000E      P749:      Lea.L     DT99, A0
1B0EA  6100 FDEE                 Bsr       P745
1B0EE  41FA 0022                 Lea.L     DT100, A0
1B0F2  6000 FDE6                 Bra       P745
1B0F6  4009 2004 E00A DT99:      DC.B      '@     '
1B0FC  0006 7E07 060C            DC.B      '  ~   '
1B102  000D C00E DD03            DC.B      '      '
1B108  0002 080F 0901            DC.B      '      '
1B10E  0A09 0000                 DC.B      '    '
1B112  700B 210E 6005 DT100:     DC.B      'p ! ` '
1B118  0000                      DC.B      '  '
1B11A  0560 0E41 03DD DT101:     DC.B      ' ` A  '
1B120  2100 4600 434F            DC.B      '! F CO'
1B126  5059 5249 4748            DC.B      'PYRIGH'
1B12C  5420 2843 2920            DC.B      'T (C) '
1B132  4150 504C 4520            DC.B      'APPLE '
1B138  434F 4D50 5554            DC.B      'COMPUT'
1B13E  4552                      DC.B      'ER'
1B140  604C           DT102:     Bra.B     L4366
1B142  604C           E_1062:    Bra.B     L4414
1B144  266A 009E      E_1107:    Move.L    $9E(A2), A3
1B148  4A5B                      Tst       (A3)+
1B14A  663C                      BNE.B     L4913
1B14C  767C                      MoveQ.L   #$7C, D3
1B14E  4EAC 0002                 Jsr       $2(A4)
1B152  6632                      BNE.B     L4912
1B154  206A 009E                 Move.L    $9E(A2), A0
1B158  1028 0006                 Move.B    $6(A0), D0
1B15C  B012                      Cmp.B     (A2), D0
1B15E  660A                      BNE.B     L4911
1B160  3028 0004                 Move      $4(A0), D0
1B164  B06A 001A                 Cmp       $1A(A2), D0
1B168  671C                      BEQ.B     L4912
1B16A  30BC 00F2      L4911:     Move      #$F2, (A0)
1B16E  90FC 001A                 SubA      #$1A, A0
1B172  43FA 016A                 Lea.L     DT193, A1
1B176  2149 000C                 Move.L    A1, $C(A0)
1B17A  2278 02DC                 Move.L    (ABusVars.dce), A1
1B17E  3169 0018 0018            Move      $18(A1), $18(A0)
1B184  A404                      _ControlAsync
1B186  4E75           L4912:     Rts
1B188  4243           L4913:     Clr       D3
1B18A  4EEC 0002                 Jmp       $2(A4)
1B18E  6022           L4366:     Bra.B     L4367
1B190  47EA 009A      L4414:     Lea.L     $9A(A2), A3
1B194  2078 02A6                 Move.L    (SysZone), A0
1B198  2213           L4415:     Move.L    (A3), D1
1B19A  6714                      BEQ.B     L4417
1B19C  C2B8 031A                 And.L     (Lo3Bytes), D1
1B1A0  2241                      Move.L    D1, A1
1B1A2  B3D0                      CmpA.L    (A0), A1
1B1A4  6500 0006                 BCS       L4416
1B1A8  2691                      Move.L    (A1), (A3)
1B1AA  60EC                      Bra.B     L4415
1B1AC  2649           L4416:     Move.L    A1, A3
1B1AE  60E8                      Bra.B     L4415
1B1B0  4E75           L4417:     Rts
1B1B2  242A 009A      L4367:     Move.L    $9A(A2), D2
1B1B6  6700 00F4                 BEQ       L4377
1B1BA  40E7                      Move      SR, -(A7)
1B1BC  46EA 001C                 Move      $1C(A2), SR
1B1C0  48E7 002C                 MoveM.L   A2/A4-A5, -(A7)
1B1C4  2848                      Move.L    A0, A4
1B1C6  303A 0106                 Move      DT162, D0
1B1CA  A146                      _GetTrapAddress
1B1CC  2448                      Move.L    A0, A2
1B1CE  4243                      Clr       D3
1B1D0  2642           L4368:     Move.L    D2, A3
1B1D2  D6FC 0009                 AddA      #$9, A3
1B1D6  4BEC 0023                 Lea.L     $23(A4), A5
1B1DA  224B                      Move.L    A3, A1
1B1DC  204D                      Move.L    A5, A0
1B1DE  0C2D 003D 0001            Cmp.B     #$3D, $1(A5)
1B1E4  6706                      BEQ.B     L4369
1B1E6  6100 00E8                 Bsr       P840
1B1EA  6620                      BNE.B     L4371
1B1EC  4240           L4369:     Clr       D0
1B1EE  101D                      Move.B    (A5)+, D0
1B1F0  DAC0                      AddA      D0, A5
1B1F2  224B                      Move.L    A3, A1
1B1F4  1019                      Move.B    (A1)+, D0
1B1F6  D2C0                      AddA      D0, A1
1B1F8  204D                      Move.L    A5, A0
1B1FA  0C2D 003D 0001            Cmp.B     #$3D, $1(A5)
1B200  6706                      BEQ.B     L4370
1B202  6100 00CC                 Bsr       P840
1B206  6604                      BNE.B     L4371
1B208  2F0B           L4370:     Move.L    A3, -(A7)
1B20A  5243                      AddQ      #$1, D3
1B20C  242B FFF7      L4371:     Move.L    $-9(A3), D2
1B210  66BE                      BNE.B     L4368
1B212  4A43                      Tst       D3
1B214  6700 0090                 BEQ       L4376
1B218  43EC 001F                 Lea.L     $1F(A4), A1
1B21C  4BEC 001E                 Lea.L     $1E(A4), A5
1B220  335D 0007                 Move      (A5)+, $7(A1)
1B224  135D 000B                 Move.B    (A5)+, $B(A1)
1B228  135D 000D                 Move.B    (A5)+, $D(A1)
1B22C  137C 0002 000F            Move.B    #$2, $F(A1)
1B232  2949 0032                 Move.L    A1, $32(A4)
1B236  2478 02D8                 Move.L    (ABusVars), A2
1B23A  196C 001E 0026 L4372:     Move.B    $1E(A4), $26(A4)
1B240  4242                      Clr       D2
1B242  4241                      Clr       D1
1B244  47EC 0036                 Lea.L     $36(A4), A3
1B248  43EC 001C                 Lea.L     $1C(A4), A1
1B24C  36FC 0002                 Move      #$2, (A3)+
1B250  26C9                      Move.L    A1, (A3)+
1B252  2A57           L4373:     Move.L    (A7), A5
1B254  4240                      Clr       D0
1B256  1015                      Move.B    (A5), D0
1B258  D035 0001                 Add.B     $1(A5,D0.W), D0
1B25C  1BBC 0001 0002            Move.B    #$1, $2(A5,D0.W)
1B262  1BBC 002A 0003            Move.B    #$2A, $3(A5,D0.W)
1B268  0640 0009                 Add       #$9, D0
1B26C  D440                      Add       D0, D2
1B26E  0C42 0248                 Cmp       #$248, D2
1B272  6C18                      BGE.B     L4374
1B274  584F                      AddQ      #$4, A7
1B276  36C0                      Move      D0, (A3)+
1B278  5B4D                      SubQ      #$5, A5
1B27A  26CD                      Move.L    A5, (A3)+
1B27C  3AAA 001A                 Move      $1A(A2), (A5)
1B280  5241                      AddQ      #$1, D1
1B282  5343                      SubQ      #$1, D3
1B284  6706                      BEQ.B     L4374
1B286  0C41 000F                 Cmp       #$F, D1
1B28A  66C6                      BNE.B     L4373
1B28C  425B           L4374:     Clr       (A3)+
1B28E  0041 0030                 Or        #$30, D1
1B292  1281                      Move.B    D1, (A1)
1B294  3A43                      Move      D3, A5
1B296  422C 002F                 Clr.B     $2F(A4)
1B29A  611A                      Bsr.B     P839
1B29C  4A2C 002F      L4375:     Tst.B     $2F(A4)
1B2A0  67FA                      BEQ.B     L4375
1B2A2  360D                      Move      A5, D3
1B2A4  6694                      BNE.B     L4372
1B2A6  4CDF 3400      L4376:     MoveM.L   (A7)+, A2/A4-A5
1B2AA  46DF                      Move      (A7)+, SR
1B2AC  2078 08FC      L4377:     Move.L    (JIODone), A0
1B2B0  2278 02DC                 Move.L    (ABusVars.dce), A1
1B2B4  4ED0                      Jmp       (A0)
1B2B6  7202           P839:      MoveQ.L   #$2, D1
1B2B8  43EC 0030                 Lea.L     $30(A4), A1
1B2BC  206A 0096                 Move.L    $96(A2), A0
1B2C0  4203                      Clr.B     D3
1B2C2  4E90                      Jsr       (A0)
1B2C4  206A 009E                 Move.L    $9E(A2), A0
1B2C8  50E8 0015                 ST.B      $15(A0)
1B2CC  4E75                      Rts
1B2CE  A03C           DT162:     DC.B      ' <'
1B2D0  7000           P840:      MoveQ.L   #$0, D0
1B2D2  1018                      Move.B    (A0)+, D0
1B2D4  4840                      Swap      D0
1B2D6  1019                      Move.B    (A1)+, D0
1B2D8  4E92                      Jsr       (A2)
1B2DA  4A40                      Tst       D0
1B2DC  4E75                      Rts
1B2DE  4268 001A      DT193:     Clr       $1A(A0)
1B2E2  4E75                      Rts
1B2E4  5F43           DT103:     SubQ      #$7, D3
1B2E6  6B26                      BMI.B     L4364
1B2E8  D643                      Add       D3, D3
1B2EA  47FA 0014                 Lea.L     DT161, A3
1B2EE  D6C3                      AddA      D3, A3
1B2F0  3613                      Move      (A3), D3
1B2F2  47FA FFF0                 Lea.L     DT103, A3
1B2F6  D6C3                      AddA      D3, A3
1B2F8  2F0B                      Move.L    A3, -(A7)
1B2FA  266A 0092                 Move.L    $92(A2), A3
1B2FE  4E75                      Rts
                      ; Jump Table
1B300  0044 0082 017C DT161:     DC.B      ' D   |'
1B306  0120 008A 0262            DC.B      '     b'
1B30C  002E                      DC.B      ' .'
1B30E  266A 0092      L4364:     Move.L    $92(A2), A3
1B312  6000 0232      E_1056:    Bra       L4365
1B316  740D B032 2036            DC.B      't  2 6'
1B31C  57CA FFFA 6604            DC.B      'W   f '
1B322  4232 2036 4E75            DC.B      'B2 6Nu'
1B328  7047           E_1057:    MoveQ.L   #$47, D0
1B32A  6132                      Bsr.B     P841
1B32C  6626                      BNE.B     L4378
1B32E  317C 0001 0008            Move      #$1, $8(A0)
1B334  43FA 01CC                 Lea.L     DT163, A1
1B338  2149 000A                 Move.L    A1, $A(A0)
1B33C  43FA 0264                 Lea.L     DT164, A1
1B340  266A 0096                 Move.L    $96(A2), A3
1B344  4241                      Clr       D1
1B346  4EAB 0002                 Jsr       $2(A3)
1B34A  4A40                      Tst       D0
1B34C  6608                      BNE.B     L4379
1B34E  1081                      Move.B    D1, (A0)
1B350  2548 0092                 Move.L    A0, $92(A2)
1B354  4E75           L4378:     Rts
1B356  3200           L4379:     Move      D0, D1
1B358  A01F                      _DisposePtr
1B35A  3001                      Move      D1, D0
1B35C  4E75                      Rts
1B35E  A71E           P841:      _NewPtrSysClear
1B360  6002                      Bra.B     L4380
1B362  A31E                      DC.B      '  '
1B364  4E75           L4380:     Rts
1B366  2428 0022      E_1058:    Move.L    $22(A0), D2
1B36A  6000 0106                 Bra       L4394
1B36E  2608           E_1059:    Move.L    A0, D3
1B370  4AAA 008E                 Tst.L     $8E(A2)
1B374  6B44                      BMI.B     L4382
1B376  4E71                      Nop
1B378  203C 0000 0098            Move.L    #$98, D0
1B37E  08EA 0007 008E            BSet.B    #$7, $8E(A2)
1B384  61D8                      Bsr.B     P841
1B386  6646                      BNE.B     L4383
1B388  D0FC 001A                 AddA      #$1A, A0
1B38C  2548 009E                 Move.L    A0, $9E(A2)
1B390  48E7 4050                 MoveM.L   D1/A1/A3, -(A7)
1B394  7202                      MoveQ.L   #$2, D1
1B396  226A 008E                 Move.L    $8E(A2), A1
1B39A  5849                      AddQ      #$4, A1
1B39C  266A 0096                 Move.L    $96(A2), A3
1B3A0  4EAB 0002                 Jsr       $2(A3)
1B3A4  4CDF 0A02                 MoveM.L   (A7)+, D1/A1/A3
1B3A8  4A40                      Tst       D0
1B3AA  6706                      BEQ.B     L4381
1B3AC  303C FBFB                 Move      #$-405, D0
1B3B0  601C                      Bra.B     L4383
1B3B2  08EA 0007 008E L4381:     BSet.B    #$7, $8E(A2)
1B3B8  2043                      Move.L    D3, A0
1B3BA  4A28 0022      L4382:     Tst.B     $22(A0)
1B3BE  6712                      BEQ.B     L4384
1B3C0  D2FC 0009                 AddA      #$9, A1
1B3C4  6162                      Bsr.B     P842
1B3C6  6700 00A8                 BEQ       L4393
1B3CA  303C FBFD                 Move      #$-403, D0
1B3CE  6000 0178      L4383:     Bra       L4396
1B3D2  4242           L4384:     Clr       D2
1B3D4  1229 0007                 Move.B    $7(A1), D1
1B3D8  5242           L4385:     AddQ      #$1, D2
1B3DA  41EA 009A                 Lea.L     $9A(A2), A0
1B3DE  4A90           L4386:     Tst.L     (A0)
1B3E0  6714                      BEQ.B     L4387
1B3E2  2050                      Move.L    (A0), A0
1B3E4  B228 0007                 Cmp.B     $7(A0), D1
1B3E8  66F4                      BNE.B     L4386
1B3EA  4A02                      Tst.B     D2
1B3EC  67F0                      BEQ.B     L4386
1B3EE  B428 0008                 Cmp.B     $8(A0), D2
1B3F2  67E4                      BEQ.B     L4385
1B3F4  60E8                      Bra.B     L4386
1B3F6  1352 0006      L4387:     Move.B    (A2), $6(A1)
1B3FA  1342 0008                 Move.B    D2, $8(A1)
1B3FE  4291                      Clr.L     (A1)
1B400  2089                      Move.L    A1, (A0)
1B402  6020                      Bra.B     L4390
1B404  303C FBFC      E_1060:    Move      #$-404, D0
1B408  611E                      Bsr.B     P842
1B40A  67C2                      BEQ.B     L4383
1B40C  40E7                      Move      SR, -(A7)
1B40E  46FC 2600                 Move      #$2600, SR
1B412  41EA 009A                 Lea.L     $9A(A2), A0
1B416  B690           L4388:     Cmp.L     (A0), D3
1B418  6704                      BEQ.B     L4389
1B41A  2050                      Move.L    (A0), A0
1B41C  60F8                      Bra.B     L4388
1B41E  2243           L4389:     Move.L    D3, A1
1B420  2091                      Move.L    (A1), (A0)
1B422  46DF                      Move      (A7)+, SR
1B424  6000 0120      L4390:     Bra       L4365
1B428  48E7 C0F0      P842:      MoveM.L   D0-D1/A0-A3, -(A7)
1B42C  2649                      Move.L    A1, A3
1B42E  45EA 009A                 Lea.L     $9A(A2), A2
1B432  4283                      Clr.L     D3
1B434  4A92           L4391:     Tst.L     (A2)
1B436  6722                      BEQ.B     L4392
1B438  4240                      Clr       D0
1B43A  1013                      Move.B    (A3), D0
1B43C  D033 0001                 Add.B     $1(A3,D0.W), D0
1B440  5440                      AddQ      #$2, D0
1B442  3200                      Move      D0, D1
1B444  4840                      Swap      D0
1B446  3001                      Move      D1, D0
1B448  2452                      Move.L    (A2), A2
1B44A  224A                      Move.L    A2, A1
1B44C  D2FC 0009                 AddA      #$9, A1
1B450  204B                      Move.L    A3, A0
1B452  A03C                      _CmpString
1B454  4A40                      Tst       D0
1B456  66DC                      BNE.B     L4391
1B458  260A                      Move.L    A2, D3
1B45A  4CDF 0F03      L4392:     MoveM.L   (A7)+, D0-D1/A0-A3
1B45E  4E75                      Rts
1B460  4268 002A      E_1061:    Clr       $2A(A0)
1B464  2768 0022 0016            Move.L    $22(A0), $16(A3)
1B46A  3768 0026 001A            Move      $26(A0), $1A(A3)
1B470  4282           L4393:     Clr.L     D2
1B472  7621           L4394:     MoveQ.L   #$21, D3
1B474  E04A                      LsR       #$8, D2
1B476  660C                      BNE.B     L4395
1B478  50C2                      ST.B      D2
1B47A  102A 0019                 Move.B    $19(A2), D0
1B47E  6704                      BEQ.B     L4395
1B480  7611                      MoveQ.L   #$11, D3
1B482  1400                      Move.B    D0, D2
1B484  2748 0012      L4395:     Move.L    A0, $12(A3)
1B488  4842                      Swap      D2
1B48A  3742 0002                 Move      D2, $2(A3)
1B48E  41EB 0004                 Lea.L     $4(A3), A0
1B492  E749                      LsL       #$3, D1
1B494  0241 03FF                 And       #$3FF, D1
1B498  3141 000A                 Move      D1, $A(A0)
1B49C  A033                      _VInstall
1B49E  2009                      Move.L    A1, D0
1B4A0  43EB 001E                 Lea.L     $1E(A3), A1
1B4A4  41EB 0037                 Lea.L     $37(A3), A0
1B4A8  22C8                      Move.L    A0, (A1)+
1B4AA  117C 0002 000D            Move.B    #$2, $D(A0)
1B4B0  3142 0007                 Move      D2, $7(A0)
1B4B4  4842                      Swap      D2
1B4B6  1142 000B                 Move.B    D2, $B(A0)
1B4BA  117C 0002 000F            Move.B    #$2, $F(A0)
1B4C0  32FC 0007                 Move      #$7, (A1)+
1B4C4  41EB 0030                 Lea.L     $30(A3), A0
1B4C8  22C8                      Move.L    A0, (A1)+
1B4CA  10C3                      Move.B    D3, (A0)+
1B4CC  522B 0001                 AddQ      #$1, $1(A3)
1B4D0  10EB 0001                 Move.B    $1(A3), (A0)+
1B4D4  30EA 001A                 Move      $1A(A2), (A0)+
1B4D8  10D2                      Move.B    (A2), (A0)+
1B4DA  1213                      Move.B    (A3), D1
1B4DC  1081                      Move.B    D1, (A0)
1B4DE  2040                      Move.L    D0, A0
1B4E0  4242                      Clr       D2
1B4E2  1410                      Move.B    (A0), D2
1B4E4  D430 2001                 Add.B     $1(A0,D2.W), D2
1B4E8  D430 2002                 Add.B     $2(A0,D2.W), D2
1B4EC  5602                      AddQ      #$3, D2
1B4EE  32C2                      Move      D2, (A1)+
1B4F0  22C8                      Move.L    A0, (A1)+
1B4F2  4251                      Clr       (A1)
1B4F4  43EB 001C      L4397:     Lea.L     $1C(A3), A1
1B4F8  206A 0096                 Move.L    $96(A2), A0
1B4FC  4203                      Clr.B     D3
1B4FE  4E90                      Jsr       (A0)
1B500  4E75                      Rts
1B502  2478 02D8      DT163:     Move.L    (ABusVars), A2
1B506  266A 0092                 Move.L    $92(A2), A3
1B50A  226B 0012                 Move.L    $12(A3), A1
1B50E  5329 001D                 SubQ      #$1, $1D(A1)
1B512  6716                      BEQ.B     L4398
1B514  4240                      Clr       D0
1B516  1029 001C                 Move.B    $1C(A1), D0
1B51A  E748                      LsL       #$3, D0
1B51C  3140 000A                 Move      D0, $A(A0)
1B520  376B 0002 003E            Move      $2(A3), $3E(A3)
1B526  1213                      Move.B    (A3), D1
1B528  60CA                      Bra.B     L4397
1B52A  3029 001A      L4398:     Move      $1A(A1), D0
1B52E  2269 001E                 Move.L    $1E(A1), A1
1B532  0C40 00FD                 Cmp       #$FD, D0
1B536  6700 FE9A                 BEQ       L4384
1B53A  0C40 00FA                 Cmp       #$FA, D0
1B53E  6606                      BNE.B     L4365
1B540  303C FBFF                 Move      #$-401, D0
1B544  6002                      Bra.B     L4396
1B546  4240           L4365:     Clr       D0
1B548  3200           L4396:     Move      D0, D1
1B54A  41EB 0004                 Lea.L     $4(A3), A0
1B54E  A034                      _VRemove
1B550  3001                      Move      D1, D0
1B552  42AB 0012                 Clr.L     $12(A3)
1B556  2278 02DC                 Move.L    (ABusVars.dce), A1
1B55A  2078 08FC                 Move.L    (JIODone), A0
1B55E  4ED0                      Jmp       (A0)
1B560  0C6D 00FD 001A L4399:     Cmp       #$FD, $1A(A5)
1B566  6722                      BEQ.B     L4400
1B568  7604                      MoveQ.L   #$4, D3
1B56A  4EAC 0002                 Jsr       $2(A4)
1B56E  662A                      BNE.B     L4401
1B570  1423                      Move.B    -(A3), D2
1B572  266A 0092                 Move.L    $92(A2), A3
1B576  226B 0012                 Move.L    $12(A3), A1
1B57A  1342 0026                 Move.B    D2, $26(A1)
1B57E  B429 0025                 Cmp.B     $25(A1), D2
1B582  67C2                      BEQ.B     L4365
1B584  303C FBFE                 Move      #$-402, D0
1B588  60BE                      Bra.B     L4396
1B58A  4EAC 0002      L4400:     Jsr       $2(A4)
1B58E  660A                      BNE.B     L4401
1B590  266A 0092                 Move.L    $92(A2), A3
1B594  303C FBFD                 Move      #$-403, D0
1B598  60AE                      Bra.B     L4396
1B59A  4E75           L4401:     Rts
1B59C  4243           L4402:     Clr       D3
1B59E  4EEC 0002                 Jmp       $2(A4)
1B5A2  7602           DT164:     MoveQ.L   #$2, D3
1B5A4  4E94                      Jsr       (A4)
1B5A6  66F2                      BNE.B     L4401
1B5A8  2A6A 0092                 Move.L    $92(A2), A5
1B5AC  202D 0012                 Move.L    $12(A5), D0
1B5B0  67EA                      BEQ.B     L4402
1B5B2  1423                      Move.B    -(A3), D2
1B5B4  B42D 0001                 Cmp.B     $1(A5), D2
1B5B8  66E2                      BNE.B     L4402
1B5BA  1423                      Move.B    -(A3), D2
1B5BC  C18D                      Exg.L     D0, A5
1B5BE  0C6D 00FB 001A            Cmp       #$FB, $1A(A5)
1B5C4  669A                      BNE.B     L4399
1B5C6  2A40                      Move.L    D0, A5
1B5C8  266D 0016                 Move.L    $16(A5), A3
1B5CC  362D 001A                 Move      $1A(A5), D3
1B5D0  4EAC 0002                 Jsr       $2(A4)
1B5D4  66C4                      BNE.B     L4401
1B5D6  0402 0030                 Sub.B     #$30, D2
1B5DA  6FBE                      BLE.B     L4401
1B5DC  0C02 000F                 Cmp.B     #$F, D2
1B5E0  6EB8                      BGT.B     L4401
1B5E2  220B                      Move.L    A3, D1
1B5E4  266A 0092                 Move.L    $92(A2), A3
1B5E8  4240                      Clr       D0
1B5EA  4A43                      Tst       D3
1B5EC  6A2C                      BPL.B     L4405
1B5EE  4242                      Clr       D2
1B5F0  206B 0016                 Move.L    $16(A3), A0
1B5F4  5A48           L4403:     AddQ      #$5, A0
1B5F6  B288                      Cmp.L     A0, D1
1B5F8  6F1C                      BLE.B     L4404
1B5FA  1018                      Move.B    (A0)+, D0
1B5FC  D0C0                      AddA      D0, A0
1B5FE  B288                      Cmp.L     A0, D1
1B600  6F14                      BLE.B     L4404
1B602  1018                      Move.B    (A0)+, D0
1B604  D0C0                      AddA      D0, A0
1B606  B288                      Cmp.L     A0, D1
1B608  6F0C                      BLE.B     L4404
1B60A  1018                      Move.B    (A0)+, D0
1B60C  D0C0                      AddA      D0, A0
1B60E  B288                      Cmp.L     A0, D1
1B610  6D04                      BLT.B     L4404
1B612  5242                      AddQ      #$1, D2
1B614  60DE                      Bra.B     L4403
1B616  4A42           L4404:     Tst       D2
1B618  6780                      BEQ.B     L4401
1B61A  48E7 000E      L4405:     MoveM.L   A4-A6, -(A7)
1B61E  4241                      Clr       D1
1B620  2A6B 0012                 Move.L    $12(A3), A5
1B624  262D 0022                 Move.L    $22(A5), D3
1B628  2A6B 0016                 Move.L    $16(A3), A5
1B62C  2C4D                      Move.L    A5, A6
1B62E  2843           L4406:     Move.L    D3, A4
1B630  B9EB 0016      L4407:     CmpA.L    $16(A3), A4
1B634  672A                      BEQ.B     L4409
1B636  204C                      Move.L    A4, A0
1B638  224D                      Move.L    A5, A1
1B63A  B308                      CmpM.B    (A0)+, (A1)+
1B63C  6610                      BNE.B     L4408
1B63E  B308                      CmpM.B    (A0)+, (A1)+
1B640  660C                      BNE.B     L4408
1B642  B308                      CmpM.B    (A0)+, (A1)+
1B644  6608                      BNE.B     L4408
1B646  B308                      CmpM.B    (A0)+, (A1)+
1B648  6604                      BNE.B     L4408
1B64A  B308                      CmpM.B    (A0)+, (A1)+
1B64C  6768                      BEQ.B     L4413
1B64E  5A4C           L4408:     AddQ      #$5, A4
1B650  1014                      Move.B    (A4), D0
1B652  D034 0001                 Add.B     $1(A4,D0.W), D0
1B656  D034 0002                 Add.B     $2(A4,D0.W), D0
1B65A  5640                      AddQ      #$3, D0
1B65C  D8C0                      AddA      D0, A4
1B65E  60D0                      Bra.B     L4407
1B660  102D 0005      L4409:     Move.B    $5(A5), D0
1B664  D035 0006                 Add.B     $6(A5,D0.W), D0
1B668  D035 0007                 Add.B     $7(A5,D0.W), D0
1B66C  5040                      AddQ      #$8, D0
1B66E  204D                      Move.L    A5, A0
1B670  DAC0                      AddA      D0, A5
1B672  BDC8                      CmpA.L    A0, A6
1B674  6708                      BEQ.B     L4410
1B676  224E                      Move.L    A6, A1
1B678  DCC0                      AddA      D0, A6
1B67A  A02E                      _BlockMove
1B67C  6002                      Bra.B     L4411
1B67E  2C4D           L4410:     Move.L    A5, A6
1B680  5241           L4411:     AddQ      #$1, D1
1B682  5302           L4412:     SubQ      #$1, D2
1B684  66A8                      BNE.B     L4406
1B686  274E 0016                 Move.L    A6, $16(A3)
1B68A  206B 0012                 Move.L    $12(A3), A0
1B68E  9DE8 0022                 SubA.L    $22(A0), A6
1B692  3028 0026                 Move      $26(A0), D0
1B696  904E                      Sub       A6, D0
1B698  4CDF 7000                 MoveM.L   (A7)+, A4-A6
1B69C  D268 002A                 Add       $2A(A0), D1
1B6A0  3141 002A                 Move      D1, $2A(A0)
1B6A4  B268 0028                 Cmp       $28(A0), D1
1B6A8  6A00 FE9C                 BPL       L4365
1B6AC  3740 001A                 Move      D0, $1A(A3)
1B6B0  6700 FE94                 BEQ       L4365
1B6B4  4E75                      Rts
1B6B6  5A4D           L4413:     AddQ      #$5, A5
1B6B8  1015                      Move.B    (A5), D0
1B6BA  D035 0001                 Add.B     $1(A5,D0.W), D0
1B6BE  D035 0002                 Add.B     $2(A5,D0.W), D0
1B6C2  5640                      AddQ      #$3, D0
1B6C4  DAC0                      AddA      D0, A5
1B6C6  60BA                      Bra.B     L4412
                      ; end of resource : 'DRVR' 9 '.MPP'

                      ; resource header
1B6C8  C000 0870                 DC.L      $C0000870       ; Length
1B6CC  0000 0068                 DC.L      $00000068       ; ?
                      ; resource : 'SERD' 0
                      ; Serial Drivers
1B6D0  600A           E_963:     Bra.B     L3786
1B6D2  0000 5345 5244            DC.B      '  SERD'
1B6D8  0000 0002                 DC.B      '    '
1B6DC  487A 0076      L3786:     Pea.L     Driver_BOut
1B6E0  487A 005A                 Pea.L     Driver_BIn
1B6E4  487A 003E                 Pea.L     Driver_AOut
1B6E8  487A 0022                 Pea.L     Driver_AIn
1B6EC  76FA                      MoveQ.L   #$-6, D3
1B6EE  3003           L3787:     Move      D3, D0
1B6F0  A53D                      _DrvrInstallResrvMemA0Result
1B6F2  08D0 0007                 BSet.B    #$7, (A0)
1B6F6  2050                      Move.L    (A0), A0
1B6F8  225F                      Move.L    (A7)+, A1
1B6FA  20C9                      Move.L    A1, (A0)+
1B6FC  30D1                      Move      (A1), (A0)+
1B6FE  30BC 0002                 Move      #$2, (A0)
1B702  5343                      SubQ      #$1, D3
1B704  0C43 FFF7                 Cmp       #$-9, D3
1B708  6CE4                      BGE.B     L3787
1B70A  4E75                      Rts

                      Driver_AIn:
1B70C  4D00                      DC.W      $4D00           ; flags
1B70E  0000                      DC.W      $0000           ; number of ticks between periodic actions
1B710  0000                      DC.W      $0000           ; desk accessory event mask
1B712  0000                      DC.W      $0000           ; menu ID
1B714  0060                      DC.W      $0060           ; offset to open routine
1B716  05B0                      DC.W      $05B0           ; offset to prime routine
1B718  0340                      DC.W      $0340           ; offset to control routine
1B71A  02FA                      DC.W      $02FA           ; offset to status routine
1B71C  02CC                      DC.W      $02CC           ; offset to close routine
1B71E  04                        DC.B      $04             ; length of driver name
                      ; Name
1B71F  2E41 496E                 DC.B      '.AIn'
                      ; end of Name
1B723  20                        DC.B      $20             ; align to word

                      Driver_AOut:
1B724  4E00                      DC.W      $4E00           ; flags
1B726  0000                      DC.W      $0000           ; number of ticks between periodic actions
1B728  0000                      DC.W      $0000           ; desk accessory event mask
1B72A  0000                      DC.W      $0000           ; menu ID
1B72C  00A2                      DC.W      $00A2           ; offset to open routine
1B72E  04DE                      DC.W      $04DE           ; offset to prime routine
1B730  0328                      DC.W      $0328           ; offset to control routine
1B732  02E2                      DC.W      $02E2           ; offset to status routine
1B734  024C                      DC.W      $024C           ; offset to close routine
1B736  05                        DC.B      $05             ; length of driver name
                      ; Name
1B737  2E41 4F75 74              DC.B      '.AOut'
                      ; end of Name

                      Driver_BIn:
1B73C  4D00                      DC.W      $4D00           ; flags
1B73E  0000                      DC.W      $0000           ; number of ticks between periodic actions
1B740  0000                      DC.W      $0000           ; desk accessory event mask
1B742  0000                      DC.W      $0000           ; menu ID
1B744  0038                      DC.W      $0038           ; offset to open routine
1B746  0586                      DC.W      $0586           ; offset to prime routine
1B748  0316                      DC.W      $0316           ; offset to control routine
1B74A  02D0                      DC.W      $02D0           ; offset to status routine
1B74C  029C                      DC.W      $029C           ; offset to close routine
1B74E  04                        DC.B      $04             ; length of driver name
                      ; Name
1B74F  2E42 496E                 DC.B      '.BIn'
                      ; end of Name
1B753  20                        DC.B      $20             ; align to word

                      Driver_BOut:
1B754  4E00                      DC.W      $4E00           ; flags
1B756  0000                      DC.W      $0000           ; number of ticks between periodic actions
1B758  0000                      DC.W      $0000           ; desk accessory event mask
1B75A  0000                      DC.W      $0000           ; menu ID
1B75C  00A0                      DC.W      $00A0           ; offset to open routine
1B75E  04B4                      DC.W      $04B4           ; offset to prime routine
1B760  02FE                      DC.W      $02FE           ; offset to control routine
1B762  02B8                      DC.W      $02B8           ; offset to status routine
1B764  0230                      DC.W      $0230           ; offset to close routine
1B766  05                        DC.B      $05             ; length of driver name
                      ; Name
1B767  2E42 4F75 74              DC.B      '.BOut'
                      ; end of Name

                      E_AIn_Open:
1B76C  6116                      Bsr.B     P891
1B76E  21C9 02D4                 Move.L    A1, (SerialVars.a.dce)
1B772  6006                      Bra.B     L4829

                      E_BIn_Open:
1B774  6114                      Bsr.B     P892
1B776  21C9 02DC                 Move.L    A1, (ABusVars.dce)
1B77A  137C 0002 0007 L4829:     Move.B    #$2, $7(A1)
1B780  7000                      MoveQ.L   #$0, D0
1B782  4E75                      Rts
1B784  7204           P891:      MoveQ.L   #$4, D1
1B786  7408                      MoveQ.L   #$8, D2
1B788  6004                      Bra.B     L4830
1B78A  7200           P892:      MoveQ.L   #$0, D1
1B78C  7400                      MoveQ.L   #$0, D2
1B78E  1038 01FB      L4830:     Move.B    (SPConfig), D0
1B792  E228                      LsR.B     D1, D0
1B794  0200 000F                 And.B     #$F, D0
1B798  670A                      BEQ.B     L4832
1B79A  5500                      SubQ      #$2, D0
1B79C  6706                      BEQ.B     L4832
1B79E  709E                      MoveQ.L   #$-62, D0
1B7A0  584F           L4831:     AddQ      #$4, A7
1B7A2  4E75                      Rts
1B7A4  3038 0290      L4832:     Move      (PortAUse), D0
1B7A8  E478                      ROR       D2, D0
1B7AA  0880 0007                 BClr.B    #$7, D0
1B7AE  660A                      BNE.B     L4833
1B7B0  0A00 0002                 Eor.B     #$2, D0
1B7B4  670E                      BEQ.B     L4834
1B7B6  709F                      MoveQ.L   #$-61, D0
1B7B8  60E6                      Bra.B     L4831
1B7BA  103C 0002      L4833:     Move.B    #$2, D0
1B7BE  E478                      ROR       D2, D0
1B7C0  31C0 0290                 Move      D0, (PortAUse)
1B7C4  4E75           L4834:     Rts

                      E_AOut_Open:
1B7C6  61BC                      Bsr.B     P891
1B7C8  45F8 02D0                 Lea.L     (SerialVars_a), A2
1B7CC  487A 05B0                 Pea.L     P_AOut_PollProc
1B7D0  487A 0698                 Pea.L     P_SCCInt_AInSpcl
1B7D4  487A 05E4                 Pea.L     P_SCCInt_AInAvail
1B7D8  487A 04B0                 Pea.L     P_SCCInt_AOutEmpty
1B7DC  4878 01C2                 Pea.L     (Lvl2DT.4)
1B7E0  487A 06E6                 Pea.L     P_SCCInt_AChng_AOut
1B7E4  4878 02C6                 Pea.L     (ExtStsDT.A)
1B7E8  7202                      MoveQ.L   #$2, D1
1B7EA  74F7                      MoveQ.L   #$-9, D2
1B7EC  7682                      MoveQ.L   #$-7E, D3
1B7EE  3838 01FC                 Move      (SPPortA), D4
1B7F2  602A                      Bra.B     L4835

                      E_BOut_Open:
1B7F4  6194                      Bsr.B     P892
1B7F6  45F8 02D8                 Lea.L     (ABusVars), A2
1B7FA  42A7                      Clr.L     -(A7)
1B7FC  487A 0666                 Pea.L     P_SCCInt_BInSpcl
1B800  487A 05B2                 Pea.L     P_SCCInt_BInAvail
1B804  487A 047E                 Pea.L     P_SCCInt_BOutEmpty
1B808  4878 01B2                 Pea.L     (Lvl2DT)
1B80C  487A 06B4                 Pea.L     P_SCCInt_BChng_BOut
1B810  4878 02BE                 Pea.L     (ExtStsDT)
1B814  7200                      MoveQ.L   #$0, D1
1B816  7417                      MoveQ.L   #$17, D2
1B818  7642                      MoveQ.L   #$42, D3
1B81A  3838 01FE                 Move      (SPPortB), D4
1B81E  7046           L4835:     MoveQ.L   #$46, D0
1B820  D080                      Add.L     D0, D0
1B822  A440                      _ResrvMemSys
1B824  7046                      MoveQ.L   #$46, D0
1B826  D080                      Add.L     D0, D0
1B828  A722                      _NewHandleSysClear
1B82A  6706                      BEQ.B     L4836
1B82C  DEFC 001C                 AddA      #$1C, A7
1B830  4E75                      Rts
1B832  2348 0014      L4836:     Move.L    A0, $14(A1)
1B836  137C 0002 0007            Move.B    #$2, $7(A1)
1B83C  2490                      Move.L    (A0), (A2)
1B83E  08D0 0007                 BSet.B    #$7, (A0)
1B842  2450                      Move.L    (A0), A2
1B844  47EA 007C                 Lea.L     $7C(A2), A3
1B848  205F                      Move.L    (A7)+, A0
1B84A  26D0                      Move.L    (A0), (A3)+
1B84C  209F                      Move.L    (A7)+, (A0)
1B84E  205F                      Move.L    (A7)+, A0
1B850  26D0                      Move.L    (A0), (A3)+
1B852  20DF                      Move.L    (A7)+, (A0)+
1B854  5848                      AddQ      #$4, A0
1B856  26D0                      Move.L    (A0), (A3)+
1B858  20DF                      Move.L    (A7)+, (A0)+
1B85A  26D0                      Move.L    (A0), (A3)+
1B85C  20DF                      Move.L    (A7)+, (A0)+
1B85E  201F                      Move.L    (A7)+, D0
1B860  6704                      BEQ.B     L4837
1B862  21C0 013E                 Move.L    D0, (PollProc)
1B866  264A           L4837:     Move.L    A2, A3
1B868  26C9                      Move.L    A1, (A3)+
1B86A  36C1                      Move      D1, (A3)+
1B86C  6100 0288                 Bsr       P897
1B870  50EA 0014                 ST.B      $14(A2)
1B874  1543 0020                 Move.B    D3, $20(A2)
1B878  1542 0029                 Move.B    D2, $29(A2)
1B87C  303C C000      L4875:     Move      #$-4000, D0
1B880  C044                      And       D4, D0
1B882  6604                      BNE.B     L4838
1B884  383C CC0A                 Move      #$-33F6, D4
1B888  303C 0C00      L4838:     Move      #$C00, D0
1B88C  C044                      And       D4, D0
1B88E  ED58                      ROL       #$6, D0
1B890  157B 003E 0077            Move.B    DT179(D0.W), $77(A2)
1B896  47EA 0021                 Lea.L     $21(A2), A3
1B89A  49FA 0038                 Lea.L     DT180, A4
1B89E  7007                      MoveQ.L   #$7, D0
1B8A0  121C           L4839:     Move.B    (A4)+, D1
1B8A2  3604                      Move      D4, D3
1B8A4  E37B                      ROL       D1, D3
1B8A6  C61C                      And.B     (A4)+, D3
1B8A8  861C                      Or.B      (A4)+, D3
1B8AA  16C3                      Move.B    D3, (A3)+
1B8AC  51C8 FFF2                 DBF       D0, L4839
1B8B0  7264                      MoveQ.L   #$64, D1
1B8B2  C21B                      And.B     (A3)+, D1
1B8B4  1541 0022                 Move.B    D1, $22(A2)
1B8B8  3684                      Move      D4, (A3)
1B8BA  7008                      MoveQ.L   #$8, D0
1B8BC  802A 0024                 Or.B      $24(A2), D0
1B8C0  1540 001F                 Move.B    D0, $1F(A2)
1B8C4  156A 0028 001E            Move.B    $28(A2), $1E(A2)
1B8CA  6154                      Bsr.B     P894
1B8CC  7000                      MoveQ.L   #$0, D0
1B8CE  4E75                      Rts
1B8D0  1F7F 3FFF      DT179:     DC.B      '  ? '
1B8D4  040F 4000 0000 DT180:     DC.B      '  @   '
1B8DA  0CC0 000B 6002            DC.B      '    ` '
1B8E0  00FF 0008 0300            DC.B      '      '
1B8E6  0CC0 010B 608A            DC.B      '    ` '
1B8EC  0209 04FF 01FF DT181:     DC.B      '      '
1B8F2  03FF 05FF 0002            DC.B      '      '
1B8F8  000A 500B 0CFF            DC.B      '  P   '
1B8FE  0DFF 03FF 05FF            DC.B      '      '
1B904  010E A80F 1000            DC.B      '      '
1B90A  1000 01FF 0A09            DC.B      '      '
1B910  4CF8 0300 01D8 P893:      MoveM.L   (SCCRd), A0-A1
1B916  D0EA 0004                 AddA      $4(A2), A0
1B91A  D2EA 0004                 AddA      $4(A2), A1
1B91E  4E75                      Rts
1B920  47FA FFCA      P894:      Lea.L     DT181, A3
1B924  7224                      MoveQ.L   #$24, D1
1B926  40E7           P895:      Move      SR, -(A7)
1B928  48E7 00E0                 MoveM.L   A0-A2, -(A7)
1B92C  61E2                      Bsr.B     P893
1B92E  007C 0300                 Or        #$300, SR
1B932  1410                      Move.B    (A0), D2
1B934  45EA 0021                 Lea.L     $21(A2), A2
1B938  301B           L4840:     Move      (A3)+, D0
1B93A  4A00                      Tst.B     D0
1B93C  6A04                      BPL.B     L4841
1B93E  101A                      Move.B    (A2)+, D0
1B940  E058                      ROR       #$8, D0
1B942  1280           L4841:     Move.B    D0, (A1)
1B944  E058                      ROR       #$8, D0
1B946  2E97                      Move.L    (A7), (A7)
1B948  1280                      Move.B    D0, (A1)
1B94A  5541                      SubQ      #$2, D1
1B94C  6EEA                      BGT.B     L4840
1B94E  4E71                      Nop
1B950  1410                      Move.B    (A0), D2
1B952  4CDF 0700                 MoveM.L   (A7)+, A0-A2
1B956  E50A                      LsL.B     #$2, D2
1B958  5BEA 001C                 SMI.B     $1C(A2)
1B95C  46DF                      Move      (A7)+, SR
1B95E  4E75                      Rts
1B960  0209 04FF 01FF DT182:     DC.B      '      '
1B966  03FF 05FF 080F            DC.B      '      '
1B96C  0101 0A09                 DC.B      '    '

                      E_AOut_Close:
1B970  42B8 013E                 Clr.L     (PollProc)
1B974  49F8 01C2                 Lea.L     (Lvl2DT.4), A4
1B978  4BF8 02C6                 Lea.L     (ExtStsDT.A), A5
1B97C  4DF8 02D0                 Lea.L     (SerialVars_a), A6
1B980  7608                      MoveQ.L   #$8, D3
1B982  600E                      Bra.B     L4842

                      E_BOut_Close:
1B984  49F8 01B2                 Lea.L     (Lvl2DT), A4
1B988  4BF8 02BE                 Lea.L     (ExtStsDT), A5
1B98C  4DF8 02D8                 Lea.L     (ABusVars), A6
1B990  7600                      MoveQ.L   #$0, D3
1B992  2456           L4842:     Move.L    (A6), A2
1B994  4A2A 007B                 Tst.B     $7B(A2)
1B998  6A0A                      BPL.B     L4843
1B99A  70F7                      MoveQ.L   #$-9, D0
1B99C  C02A 001E                 And.B     $1E(A2), D0
1B9A0  1540 0024                 Move.B    D0, $24(A2)
1B9A4  6136           L4843:     Bsr.B     P896
1B9A6  47FA FFB8                 Lea.L     DT182, A3
1B9AA  7210                      MoveQ.L   #$10, D1
1B9AC  6100 FF78                 Bsr       P895
1B9B0  47EA 007C                 Lea.L     $7C(A2), A3
1B9B4  2A9B                      Move.L    (A3)+, (A5)
1B9B6  28DB                      Move.L    (A3)+, (A4)+
1B9B8  588C                      AddQ      #$4, A4
1B9BA  28DB                      Move.L    (A3)+, (A4)+
1B9BC  2893                      Move.L    (A3), (A4)
1B9BE  2069 0014                 Move.L    $14(A1), A0
1B9C2  A023                      _DisposeHandle
1B9C4  42A9 0014                 Clr.L     $14(A1)
1B9C8  4296                      Clr.L     (A6)
1B9CA  3038 0290                 Move      (PortAUse), D0
1B9CE  E678                      ROR       D3, D0
1B9D0  50C0                      ST.B      D0
1B9D2  E678                      ROR       D3, D0
1B9D4  31C0 0290                 Move      D0, (PortAUse)

                      E_ABIn_Close:
1B9D8  7000                      MoveQ.L   #$0, D0
1B9DA  4E75                      Rts
1B9DC  48E7 C0C0      P896:      MoveM.L   D0-D1/A0-A1, -(A7)
1B9E0  6100 FF2E                 Bsr       P893
1B9E4  72FF                      MoveQ.L   #$-1, D1
1B9E6  40E7           L4844:     Move      SR, -(A7)
1B9E8  007C 0300                 Or        #$300, SR
1B9EC  1010                      Move.B    (A0), D0
1B9EE  2E97                      Move.L    (A7), (A7)
1B9F0  12BC 0001                 Move.B    #$1, (A1)
1B9F4  2E97                      Move.L    (A7), (A7)
1B9F6  1010                      Move.B    (A0), D0
1B9F8  46DF                      Move      (A7)+, SR
1B9FA  E208                      LsR.B     #$1, D0
1B9FC  55C9 FFE8                 DBCS      D1, L4844
1BA00  4CDF 0303                 MoveM.L   (A7)+, D0-D1/A0-A1
1BA04  4E75                      Rts

                      E_AInOut_Status:
1BA06  2478 02D0                 Move.L    (SerialVars_a), A2
1BA0A  6004                      Bra.B     L4845

                      E_BInOut_Status:
1BA0C  2478 02D8                 Move.L    (ABusVars), A2
1BA10  3F28 0006      L4845:     Move      $6(A0), -(A7)
1BA14  2F09                      Move.L    A1, -(A7)
1BA16  40E7                      Move      SR, -(A7)
1BA18  007C 0300                 Or        #$300, SR
1BA1C  41E8 001A                 Lea.L     $1A(A0), A0
1BA20  70EE                      MoveQ.L   #$-12, D0
1BA22  220A                      Move.L    A2, D1
1BA24  6F7A                      BLE.B     L4851
1BA26  3218                      Move      (A0)+, D1
1BA28  5541                      SubQ      #$2, D1
1BA2A  660E                      BNE.B     L4846
1BA2C  6100 02F6                 Bsr       P903
1BA30  6100 0302                 Bsr       P904
1BA34  4258                      Clr       (A0)+
1BA36  3080                      Move      D0, (A0)
1BA38  6064                      Bra.B     L4850
1BA3A  5D41           L4846:     SubQ      #$6, D1
1BA3C  6662                      BNE.B     L4851
1BA3E  30EA 0018                 Move      $18(A2), (A0)+
1BA42  422A 0018                 Clr.B     $18(A2)
1BA46  20EA 001A                 Move.L    $1A(A2), (A0)+
1BA4A  6052                      Bra.B     L4850

                      E_AInOut_Control:
1BA4C  2478 02D0                 Move.L    (SerialVars_a), A2
1BA50  6004                      Bra.B     L4847

                      E_BInOut_Control:
1BA52  2478 02D8                 Move.L    (ABusVars), A2
1BA56  3F28 0006      L4847:     Move      $6(A0), -(A7)
1BA5A  2F09                      Move.L    A1, -(A7)
1BA5C  40E7                      Move      SR, -(A7)
1BA5E  007C 0300                 Or        #$300, SR
1BA62  41E8 001A                 Lea.L     $1A(A0), A0
1BA66  3218                      Move      (A0)+, D1
1BA68  5341                      SubQ      #$1, D1
1BA6A  6612                      BNE.B     L4849
1BA6C  240A                      Move.L    A2, D2
1BA6E  6F08                      BLE.B     L4848
1BA70  426A 001A                 Clr       $1A(A2)
1BA74  42AA 002C                 Clr.L     $2C(A2)
1BA78  46DF           L4848:     Move      (A7)+, SR
1BA7A  5C4F                      AddQ      #$6, A7
1BA7C  4E75                      Rts
1BA7E  240A           L4849:     Move.L    A2, D2
1BA80  6F32                      BLE.B     L4853
1BA82  43FA 0034                 Lea.L     DT183, A1
1BA86  5F41                      SubQ      #$7, D1
1BA88  6B2A                      BMI.B     L4853
1BA8A  0C41 0013                 Cmp       #$13, D1
1BA8E  6224                      BHI.B     L4853
1BA90  D241                      Add       D1, D1
1BA92  3231 1000                 Move      $0(A1,D1.W), D1
1BA96  102A 0028                 Move.B    $28(A2), D0
1BA9A  4EB1 1000                 Jsr       $0(A1,D1.W)
1BA9E  7000           L4850:     MoveQ.L   #$0, D0
1BAA0  46DF           L4851:     Move      (A7)+, SR
1BAA2  225F                      Move.L    (A7)+, A1
1BAA4  081F 0009                 BTst.B    #$9, (A7)+
1BAA8  6702                      BEQ.B     L4852
1BAAA  4E75                      Rts
1BAAC  2F38 08FC      L4852:     Move.L    (JIODone), -(A7)
1BAB0  4E75                      Rts
1BAB2  584F           E_1089:    AddQ      #$4, A7
1BAB4  70EF           L4853:     MoveQ.L   #$-11, D0
1BAB6  60E8                      Bra.B     L4851
                      ; Jump Table
1BAB8  0028 0034 005A DT183:     DC.B      ' ( 4 Z'
1BABE  00C6 00B6 00D4            DC.B      '      '
1BAC4  0054 FFFA 0094            DC.B      ' T    '
1BACA  00A6 009A 013A            DC.B      '     :'
1BAD0  0134 0102 01F4            DC.B      ' 4    '
1BAD6  029E 0108 039A            DC.B      '      '
1BADC  011C 012C                 DC.B      '   ,'
1BAE0  3818           E_1090:    Move      (A0)+, D4
1BAE2  B86A 002A                 Cmp       $2A(A2), D4
1BAE6  6722                      BEQ.B     L4877
1BAE8  6000 FD92                 Bra       L4875
1BAEC  42AA 002C      E_1091:    Clr.L     $2C(A2)
1BAF0  2858                      Move.L    (A0)+, A4
1BAF2  3210                      Move      (A0), D1
1BAF4  6606                      BNE.B     L4876
1BAF6  49EA 0030      P897:      Lea.L     $30(A2), A4
1BAFA  7240                      MoveQ.L   #$40, D1
1BAFC  47EA 0006      L4876:     Lea.L     $6(A2), A3
1BB00  26CC                      Move.L    A4, (A3)+
1BB02  36C1                      Move      D1, (A3)+
1BB04  E449                      LsR       #$2, D1
1BB06  36C1                      Move      D1, (A3)+
1BB08  36C1                      Move      D1, (A3)+
1BB0A  4E75           L4877:     Rts
1BB0C  1F28 0007      E_1092:    Move.B    $7(A0), -(A7)
1BB10  6004                      Bra.B     L4878
1BB12  1F2A 0017      E_1093:    Move.B    $17(A2), -(A7)
1BB16  4A2A 0010      L4878:     Tst.B     $10(A2)
1BB1A  6604                      BNE.B     L4879
1BB1C  422A 001D                 Clr.B     $1D(A2)
1BB20  2558 0010      L4879:     Move.L    (A0)+, $10(A2)
1BB24  3558 0014                 Move      (A0)+, $14(A2)
1BB28  1018                      Move.B    (A0)+, D0
1BB2A  1540 0016                 Move.B    D0, $16(A2)
1BB2E  1540 007A                 Move.B    D0, $7A(A2)
1BB32  6604                      BNE.B     L4880
1BB34  6100 0220                 Bsr       E_1105
1BB38  6100 0176      L4880:     Bsr       P906
1BB3C  101F                      Move.B    (A7)+, D0
1BB3E  B02A 0017                 Cmp.B     $17(A2), D0
1BB42  6706                      BEQ.B     L4881
1BB44  1540 0017                 Move.B    D0, $17(A2)
1BB48  6714                      BEQ.B     P898
1BB4A  4E75           L4881:     Rts
1BB4C  1550 007B      E_1094:    Move.B    (A0), $7B(A2)
1BB50  4E75                      Rts
1BB52  102A 001F      E_1095:    Move.B    $1F(A2), D0
1BB56  08EA 0006 0019            BSet.B    #$6, $19(A2)
1BB5C  600A                      Bra.B     L4882
1BB5E  102A 0028      P898:      Move.B    $28(A2), D0
1BB62  08AA 0006 0019            BClr.B    #$6, $19(A2)
1BB68  1540 001E      L4882:     Move.B    D0, $1E(A2)
1BB6C  6010                      Bra.B     L4854
1BB6E  46EF 0004      E_1096:    Move      $4(A7), SR
1BB72  6100 FE68                 Bsr       P896
1BB76  007C 0300                 Or        #$300, SR
1BB7A  08C0 0004                 BSet.B    #$4, D0
1BB7E  7205           L4854:     MoveQ.L   #$5, D1
1BB80  6100 00CA      L4883:     Bsr       P899
1BB84  1681                      Move.B    D1, (A3)
1BB86  2E97                      Move.L    (A7), (A7)
1BB88  1680                      Move.B    D0, (A3)
1BB8A  4E75                      Rts
1BB8C  243C 0001 C015 E_1097:    Move.L    #$1C015, D2
1BB92  2602                      Move.L    D2, D3
1BB94  7000                      MoveQ.L   #$0, D0
1BB96  3010                      Move      (A0), D0
1BB98  2200                      Move.L    D0, D1
1BB9A  E249                      LsR       #$1, D1
1BB9C  D481                      Add.L     D1, D2
1BB9E  84C0                      DivU      D0, D2
1BBA0  3202                      Move      D2, D1
1BBA2  5542                      SubQ      #$2, D2
1BBA4  1542 0025                 Move.B    D2, $25(A2)
1BBA8  E04A                      LsR       #$8, D2
1BBAA  1542 0026                 Move.B    D2, $26(A2)
1BBAE  86C1                      DivU      D1, D3
1BBB0  3083                      Move      D3, (A0)
1BBB2  426A 002A                 Clr       $2A(A2)
1BBB6  6000 FD68                 Bra       P894
1BBBA  50EA 001D      E_1098:    ST.B      $1D(A2)
1BBBE  4E75                      Rts
1BBC0  08AA 0007 0019 E_1099:    BClr.B    #$7, $19(A2)
1BBC6  156A 007A 0016            Move.B    $7A(A2), $16(A2)
1BBCC  102A 0012                 Move.B    $12(A2), D0
1BBD0  6000 019C      L4884:     Bra       L4874
1BBD4  08EA 0007 0019 E_1100:    BSet.B    #$7, $19(A2)
1BBDA  422A 0016                 Clr.B     $16(A2)
1BBDE  102A 0013                 Move.B    $13(A2), D0
1BBE2  60EC                      Bra.B     L4884
1BBE4  102A 0020      E_1101:    Move.B    $20(A2), D0
1BBE8  7209                      MoveQ.L   #$9, D1
1BBEA  6094                      Bra.B     L4883
1BBEC  3550 0078      E_1102:    Move      (A0), $78(A2)
1BBF0  4E75                      Rts
1BBF2  1550 0078      E_1103:    Move.B    (A0), $78(A2)
1BBF6  1550 0079                 Move.B    (A0), $79(A2)
1BBFA  08AA 0007 0079            BClr.B    #$7, $79(A2)
1BC00  4E75                      Rts

                      E_AOut_Prime:
1BC02  2478 02D0                 Move.L    (SerialVars_a), A2
1BC06  6004                      Bra.B     L4855

                      E_BOut_Prime:
1BC08  2478 02D8                 Move.L    (ABusVars), A2
1BC0C  40E7           L4855:     Move      SR, -(A7)
1BC0E  007C 0300                 Or        #$300, SR
1BC12  50EA 001B                 ST.B      $1B(A2)
1BC16  614C                      Bsr.B     P900
1BC18  6620                      BNE.B     L4857
1BC1A  6130           L4885:     Bsr.B     P899
1BC1C  671C                      BEQ.B     L4857
1BC1E  102A 0076                 Move.B    $76(A2), D0
1BC22  422A 0076                 Clr.B     $76(A2)
1BC26  0240 00FF                 And       #$FF, D0
1BC2A  6606                      BNE.B     L4856
1BC2C  2078 08F4                 Move.L    (JFetch), A0
1BC30  4E90                      Jsr       (A0)
1BC32  1740 0004      L4856:     Move.B    D0, $4(A3)
1BC36  4A40                      Tst       D0
1BC38  6B06                      BMI.B     L4858
1BC3A  7000           L4857:     MoveQ.L   #$0, D0
1BC3C  46DF                      Move      (A7)+, SR
1BC3E  4E75                      Rts
1BC40  422A 001B      L4858:     Clr.B     $1B(A2)
1BC44  46DF                      Move      (A7)+, SR
1BC46  7000           L4859:     MoveQ.L   #$0, D0
1BC48  6000 FE62                 Bra       L4852
1BC4C  2678 01D8      P899:      Move.L    (SCCRd), A3
1BC50  D6EA 0004                 AddA      $4(A2), A3
1BC54  4A13                      Tst.B     (A3)
1BC56  3E97                      Move      (A7), (A7)
1BC58  0813 0002                 BTst.B    #$2, (A3)
1BC5C  D7FC 0020 0001            AddA.L    #$200001, A3
1BC62  4E75                      Rts
1BC64  4A2A 0010      P900:      Tst.B     $10(A2)
1BC68  6706                      BEQ.B     L4860
1BC6A  4A2A 001D                 Tst.B     $1D(A2)
1BC6E  660C                      BNE.B     L4861
1BC70  4A2A 0011      L4860:     Tst.B     $11(A2)
1BC74  670A                      BEQ.B     L4862
1BC76  4A2A 001C                 Tst.B     $1C(A2)
1BC7A  6704                      BEQ.B     L4862
1BC7C  7001           L4861:     MoveQ.L   #$1, D0
1BC7E  4E75                      Rts
1BC80  7000           L4862:     MoveQ.L   #$0, D0
1BC82  4E75                      Rts

                      P_SCCInt_BOutEmpty:
1BC84  2478 02D8                 Move.L    (ABusVars), A2
1BC88  6004                      Bra.B     L4889

                      P_SCCInt_AOutEmpty:
1BC8A  2478 02D0                 Move.L    (SerialVars_a), A2
1BC8E  4A2A 0076      L4889:     Tst.B     $76(A2)
1BC92  660A                      BNE.B     L4886
1BC94  4A2A 001B                 Tst.B     $1B(A2)
1BC98  670C                      BEQ.B     L4890
1BC9A  61C8                      Bsr.B     P900
1BC9C  6608                      BNE.B     L4890
1BC9E  2252           L4886:     Move.L    (A2), A1
1BCA0  40E7                      Move      SR, -(A7)
1BCA2  6000 FF76                 Bra       L4885
1BCA6  12BC 0028      L4890:     Move.B    #$28, (A1)
1BCAA  4E75                      Rts
1BCAC  422A 001D      E_1104:    Clr.B     $1D(A2)
1BCB0  61B2           P906:      Bsr.B     P900
1BCB2  6606                      BNE.B     L4887
1BCB4  4A2A 001B                 Tst.B     $1B(A2)
1BCB8  66E4                      BNE.B     L4886
1BCBA  4E75           L4887:     Rts

                      E_AIn_Prime:
1BCBC  2478 02D0                 Move.L    (SerialVars_a), A2
1BCC0  6004                      Bra.B     L4863

                      E_BIn_Prime:
1BCC2  2478 02D8                 Move.L    (ABusVars), A2
1BCC6  70ED           L4863:     MoveQ.L   #$-13, D0
1BCC8  220A                      Move.L    A2, D1
1BCCA  6F00 FDE0                 BLE       L4852
1BCCE  6154                      Bsr.B     P903
1BCD0  40E7           L4864:     Move      SR, -(A7)
1BCD2  007C 0300                 Or        #$300, SR
1BCD6  B46A 002C                 Cmp       $2C(A2), D2
1BCDA  671E                      BEQ.B     L4866
1BCDC  1033 2000                 Move.B    $0(A3,D2.W), D0
1BCE0  5242                      AddQ      #$1, D2
1BCE2  B443                      Cmp       D3, D2
1BCE4  6602                      BNE.B     L4865
1BCE6  7400                      MoveQ.L   #$0, D2
1BCE8  3542 002E      L4865:     Move      D2, $2E(A2)
1BCEC  6130                      Bsr.B     P902
1BCEE  46DF                      Move      (A7)+, SR
1BCF0  4A40                      Tst       D0
1BCF2  6ADC                      BPL.B     L4864
1BCF4  610A                      Bsr.B     P901
1BCF6  6000 FF4E                 Bra       L4859
1BCFA  50EA 001A      L4866:     ST.B      $1A(A2)
1BCFE  6006                      Bra.B     L4867
1BD00  40E7           P901:      Move      SR, -(A7)
1BD02  007C 0300                 Or        #$300, SR
1BD06  4A6A 0016      L4867:     Tst       $16(A2)
1BD0A  670C                      BEQ.B     L4868
1BD0C  6116                      Bsr.B     P903
1BD0E  6124                      Bsr.B     P904
1BD10  B06A 000C                 Cmp       $C(A2), D0
1BD14  6202                      BHI.B     L4868
1BD16  6126                      Bsr.B     P905
1BD18  7000           L4868:     MoveQ.L   #$0, D0
1BD1A  46DF                      Move      (A7)+, SR
1BD1C  4E75                      Rts
1BD1E  2F38 08F8      P902:      Move.L    (JStash), -(A7)
1BD22  4E75           L4869:     Rts
1BD24  266A 0006      P903:      Move.L    $6(A2), A3
1BD28  362A 000A                 Move      $A(A2), D3
1BD2C  4CAA 0006 002C            MoveM     $2C(A2), D1-D2
1BD32  4E75                      Rts
1BD34  3001           P904:      Move      D1, D0
1BD36  9042                      Sub       D2, D0
1BD38  6402                      BCC.B     L4870
1BD3A  D043                      Add       D3, D0
1BD3C  4E75           L4870:     Rts
1BD3E  4A2A 0017      P905:      Tst.B     $17(A2)
1BD42  670C                      BEQ.B     L4871
1BD44  08AA 0006 0019            BClr.B    #$6, $19(A2)
1BD4A  6704                      BEQ.B     L4871
1BD4C  6100 FE10                 Bsr       P898
1BD50  4A2A 0016      L4871:     Tst.B     $16(A2)
1BD54  67CC                      BEQ.B     L4869
1BD56  08AA 0007 0019 E_1105:    BClr.B    #$7, $19(A2)
1BD5C  67C4                      BEQ.B     L4869
1BD5E  102A 0012                 Move.B    $12(A2), D0
1BD62  4A2A 0076      P907:      Tst.B     $76(A2)
1BD66  6706                      BEQ.B     L4874
1BD68  422A 0076      L4872:     Clr.B     $76(A2)
1BD6C  4E75           L4873:     Rts
1BD6E  1540 0076      L4874:     Move.B    D0, $76(A2)
1BD72  6100 FED8                 Bsr       P899
1BD76  67F4                      BEQ.B     L4873
1BD78  1740 0004                 Move.B    D0, $4(A3)
1BD7C  60EA                      Bra.B     L4872

                      P_AOut_PollProc:
1BD7E  2878 013A                 Move.L    (PollStack), A4
1BD82  21DF 0128                 Move.L    (A7)+, (TwiggyVars)
1BD86  4A15           L4891:     Tst.B     (A5)
1BD88  6B04                      BMI.B     L4892
1BD8A  1F16                      Move.B    (A6), -(A7)
1BD8C  60F8                      Bra.B     L4891
1BD8E  B9CF           L4892:     CmpA.L    A7, A4
1BD90  6718                      BEQ.B     L4893
1BD92  554C                      SubQ      #$2, A4
1BD94  1014                      Move.B    (A4), D0
1BD96  47F8 02D0                 Lea.L     (SerialVars_a), A3
1BD9A  41F9 009F FFFA            Lea.L     ($9FFFFA), A0
1BDA0  43F9 00BF FFFB            Lea.L     ($BFFFFB), A1
1BDA6  611A                      Bsr.B     P908
1BDA8  60DC                      Bra.B     L4891
1BDAA  2E78 013A      L4893:     Move.L    (PollStack), A7
1BDAE  2F38 0128                 Move.L    (TwiggyVars), -(A7)
1BDB2  4E75                      Rts

                      P_SCCInt_BInAvail:
1BDB4  47F8 02D8                 Lea.L     (ABusVars), A3
1BDB8  6004                      Bra.B     L4894

                      P_SCCInt_AInAvail:
1BDBA  47F8 02D0                 Lea.L     (SerialVars_a), A3
1BDBE  1028 0004      L4894:     Move.B    $4(A0), D0
1BDC2  245B           P908:      Move.L    (A3)+, A2
1BDC4  2653                      Move.L    (A3), A3
1BDC6  C02A 0077                 And.B     $77(A2), D0
1BDCA  122A 0078                 Move.B    $78(A2), D1
1BDCE  6708                      BEQ.B     L4895
1BDD0  B001                      Cmp.B     D1, D0
1BDD2  6604                      BNE.B     L4895
1BDD4  102A 0079                 Move.B    $79(A2), D0
1BDD8  4A2A 0010      L4895:     Tst.B     $10(A2)
1BDDC  6714                      BEQ.B     L4896
1BDDE  B02A 0012                 Cmp.B     $12(A2), D0
1BDE2  6700 FEC8                 BEQ       E_1104
1BDE6  B02A 0013                 Cmp.B     $13(A2), D0
1BDEA  6606                      BNE.B     L4896
1BDEC  50EA 001D                 ST.B      $1D(A2)
1BDF0  6070                      Bra.B     L4888
1BDF2  4A2A 001A      L4896:     Tst.B     $1A(A2)
1BDF6  6710                      BEQ.B     L4897
1BDF8  224B                      Move.L    A3, A1
1BDFA  6100 FF22                 Bsr       P902
1BDFE  6A62                      BPL.B     L4888
1BE00  422A 001A                 Clr.B     $1A(A2)
1BE04  6000 FE40                 Bra       L4859
1BE08  6100 FF1A      L4897:     Bsr       P903
1BE0C  1780 1000                 Move.B    D0, $0(A3,D1.W)
1BE10  5241                      AddQ      #$1, D1
1BE12  B243                      Cmp       D3, D1
1BE14  6602                      BNE.B     L4898
1BE16  7200                      MoveQ.L   #$0, D1
1BE18  B242           L4898:     Cmp       D2, D1
1BE1A  6608                      BNE.B     L4899
1BE1C  08EA 0000 0018            BSet.B    #$0, $18(A2)
1BE22  603E                      Bra.B     L4888
1BE24  3541 002C      L4899:     Move      D1, $2C(A2)
1BE28  4A6A 0016                 Tst       $16(A2)
1BE2C  6734                      BEQ.B     L4888
1BE2E  6100 FF04                 Bsr       P904
1BE32  9640                      Sub       D0, D3
1BE34  B66A 000E                 Cmp       $E(A2), D3
1BE38  6428                      BCC.B     L4888
1BE3A  4A2A 0017                 Tst.B     $17(A2)
1BE3E  6712                      BEQ.B     E_1106
1BE40  08EA 0006 0019            BSet.B    #$6, $19(A2)
1BE46  66D0                      BNE.B     L4898
1BE48  6100 FD08                 Bsr       E_1095
1BE4C  4A2A 0016                 Tst.B     $16(A2)
1BE50  6710                      BEQ.B     L4888
1BE52  08EA 0007 0019 E_1106:    BSet.B    #$7, $19(A2)
1BE58  6608                      BNE.B     L4888
1BE5A  102A 0013                 Move.B    $13(A2), D0
1BE5E  6100 FF02                 Bsr       P907
1BE62  4E75           L4888:     Rts

                      P_SCCInt_BInSpcl:
1BE64  47F8 02D8                 Lea.L     (ABusVars), A3
1BE68  6004                      Bra.B     L4900

                      P_SCCInt_AInSpcl:
1BE6A  47F8 02D0                 Lea.L     (SerialVars_a), A3
1BE6E  12BC 0001      L4900:     Move.B    #$1, (A1)
1BE72  245B                      Move.L    (A3)+, A2
1BE74  2653                      Move.L    (A3), A3
1BE76  1210                      Move.B    (A0), D1
1BE78  7670                      MoveQ.L   #$70, D3
1BE7A  C203                      And.B     D3, D1
1BE7C  832A 0018                 Or.B      D1, $18(A2)
1BE80  1028 0004                 Move.B    $4(A0), D0
1BE84  C02A 0077                 And.B     $77(A2), D0
1BE88  142A 0014                 Move.B    $14(A2), D2
1BE8C  C401                      And.B     D1, D2
1BE8E  12BC 0030                 Move.B    #$30, (A1)
1BE92  C403                      And.B     D3, D2
1BE94  661A                      BNE.B     L4903
1BE96  162A 0078                 Move.B    $78(A2), D3
1BE9A  6710                      BEQ.B     L4902
1BE9C  B600                      Cmp.B     D0, D3
1BE9E  6604                      BNE.B     L4901
1BEA0  102A 0079                 Move.B    $79(A2), D0
1BEA4  0801 0004      L4901:     BTst.B    #$4, D1
1BEA8  6702                      BEQ.B     L4902
1BEAA  1003                      Move.B    D3, D0
1BEAC  6000 FF44      L4902:     Bra       L4896
1BEB0  4A2A 001A      L4903:     Tst.B     $1A(A2)
1BEB4  67AC                      BEQ.B     L4888
1BEB6  70A7                      MoveQ.L   #$-59, D0
1BEB8  224B           L4904:     Move.L    A3, A1
1BEBA  422A 001A                 Clr.B     $1A(A2)
1BEBE  6000 FBEC                 Bra       L4852

                      P_SCCInt_BChng_BOut:
1BEC2  47F8 02D8                 Lea.L     (ABusVars), A3
1BEC6  6004                      Bra.B     L4905

                      P_SCCInt_AChng_AOut:
1BEC8  47F8 02D0                 Lea.L     (SerialVars_a), A3
1BECC  245B           L4905:     Move.L    (A3)+, A2
1BECE  2653                      Move.L    (A3), A3
1BED0  1401                      Move.B    D1, D2
1BED2  C42A 0015                 And.B     $15(A2), D2
1BED6  6718                      BEQ.B     L4906
1BED8  48E7 8080                 MoveM.L   D0/A0, -(A7)
1BEDC  307C 000B                 Move      #$B, A0
1BEE0  E140                      AsL       #$8, D0
1BEE2  1001                      Move.B    D1, D0
1BEE4  4840                      Swap      D0
1BEE6  302B 0018                 Move      $18(A3), D0
1BEEA  A02F                      _PostEvent
1BEEC  4CDF 0101                 MoveM.L   (A7)+, D0/A0
1BEF0  4A01           L4906:     Tst.B     D1
1BEF2  6B30                      BMI.B     L4909
1BEF4  E508                      LsL.B     #$2, D0
1BEF6  5BEA 001C                 SMI.B     $1C(A2)
1BEFA  0C6A 0050 0070            Cmp       #$50, $70(A2)
1BF00  6508                      BCS.B     L4907
1BF02  7088                      MoveQ.L   #$-78, D0
1BF04  720F                      MoveQ.L   #$F, D1
1BF06  6100 FC78                 Bsr       L4883
1BF0A  2438 016A      L4907:     Move.L    (Ticks), D2
1BF0E  B4AA 0072                 Cmp.L     $72(A2), D2
1BF12  6708                      BEQ.B     L4908
1BF14  2542 0072                 Move.L    D2, $72(A2)
1BF18  426A 0070                 Clr       $70(A2)
1BF1C  526A 0070      L4908:     AddQ      #$1, $70(A2)
1BF20  6000 FD8E                 Bra       P906
1BF24  4A00           L4909:     Tst.B     D0
1BF26  6B06                      BMI.B     L4910
1BF28  1028 0004                 Move.B    $4(A0), D0
1BF2C  4E75                      Rts
1BF2E  70A6           L4910:     MoveQ.L   #$-5A, D0
1BF30  4A2A 001A                 Tst.B     $1A(A2)
1BF34  6682                      BNE.B     L4904
1BF36  4E75                      Rts
                      ; end of resource : 'SERD' 0

                      ; resource header
1BF38  C000 0406                 DC.L      $C0000406       ; Length
1BF3C  0000 006C                 DC.L      $0000006C       ; ?
                      ; resource : 'MDEF' 0
                      ; Default menu definition procedure
1BF40  600A           E_964:     Bra.B     L3788
1BF42  0000 4D44 4546            DC.B      '  MDEF'
1BF48  0000 0004                 DC.B      '    '
1BF4C  4E56 FFF8      L3788:     Link      A6, #$-8
1BF50  48E7 1F38                 MoveM.L   D3-D7/A2-A4, -(A7)
1BF54  266E 0014                 Move.L    $14(A6), A3
1BF58  302E 0018                 Move      $18(A6), D0
1BF5C  6700 0160                 BEQ       L3806
1BF60  5340                      SubQ      #$1, D0
1BF62  6600 0326                 BNE       L3823
1BF66  6100 00B4                 Bsr       P751
1BF6A  286E 0008                 Move.L    $8(A6), A4
1BF6E  3614                      Move      (A4), D3
1BF70  4254                      Clr       (A4)
1BF72  246E 0010                 Move.L    $10(A6), A2
1BF76  3838 0B26                 Move      (TopMenuItem), D4
1BF7A  2A2E 000C                 Move.L    $C(A6), D5
1BF7E  6770                      BEQ.B     L3794
1BF80  4267                      Clr       -(A7)
1BF82  2F05                      Move.L    D5, -(A7)
1BF84  2F0A                      Move.L    A2, -(A7)
1BF86  A8AD                      _PtInRect
1BF88  4A1F                      Tst.B     (A7)+
1BF8A  6642                      BNE.B     L3791
1BF8C  3E2E FFFE                 Move      $-2(A6), D7
1BF90  4845                      Swap      D5
1BF92  BA52                      Cmp       (A2), D5
1BF94  6C26                      BGE.B     L3790
1BF96  5344                      SubQ      #$1, D4
1BF98  6F56                      BLE.B     L3794
1BF9A  3003           L3789:     Move      D3, D0
1BF9C  6100 00B4                 Bsr       P754
1BFA0  31C4 0B26                 Move      D4, (TopMenuItem)
1BFA4  42A7                      Clr.L     -(A7)
1BFA6  A8D8                      _NewRgn
1BFA8  2017                      Move.L    (A7), D0
1BFAA  2F0A                      Move.L    A2, -(A7)
1BFAC  4267                      Clr       -(A7)
1BFAE  3F07                      Move      D7, -(A7)
1BFB0  2F00                      Move.L    D0, -(A7)
1BFB2  A8EF                      _ScrollRect
1BFB4  A8D9                      _DisposeRgn
1BFB6  6100 011C                 Bsr       P756
1BFBA  6040                      Bra.B     L3795
1BFBC  BA6A 0004      L3790:     Cmp       $4(A2), D5
1BFC0  6D2E                      BLT.B     L3794
1BFC2  4A78 0B28                 Tst       (AtMenuBottom)
1BFC6  6628                      BNE.B     L3794
1BFC8  4447                      Neg       D7
1BFCA  5244                      AddQ      #$1, D4
1BFCC  60CC                      Bra.B     L3789
1BFCE  613A           L3791:     Bsr.B     P750
1BFD0  3400                      Move      D0, D2
1BFD2  2053           L3792:     Move.L    (A3), A0
1BFD4  3004                      Move      D4, D0
1BFD6  6100 0282                 Bsr       P757
1BFDA  6714                      BEQ.B     L3794
1BFDC  6158                      Bsr.B     P752
1BFDE  D440                      Add       D0, D2
1BFE0  B46E 000C                 Cmp       $C(A6), D2
1BFE4  6E04                      BGT.B     L3793
1BFE6  5244                      AddQ      #$1, D4
1BFE8  60E8                      Bra.B     L3792
1BFEA  6156           L3793:     Bsr.B     P753
1BFEC  6702                      BEQ.B     L3794
1BFEE  3884                      Move      D4, (A4)
1BFF0  B654           L3794:     Cmp       (A4), D3
1BFF2  6708                      BEQ.B     L3795
1BFF4  3003                      Move      D3, D0
1BFF6  615A                      Bsr.B     P754
1BFF8  3014                      Move      (A4), D0
1BFFA  6156                      Bsr.B     P754
1BFFC  4CDF 1CF8      L3795:     MoveM.L   (A7)+, D3-D7/A2-A4
1C000  4E5E                      Unlk      A6
1C002  205F                      Move.L    (A7)+, A0
1C004  DEFC 0012                 AddA      #$12, A7
1C008  4ED0                      Jmp       (A0)
1C00A  4A78 028E      P750:      Tst       (ROM85)
1C00E  6B06                      BMI.B     L3796
1C010  3038 0BAA                 Move      (MBarHeight), D0
1C014  6604                      BNE.B     L3797
1C016  303C 0014      L3796:     Move      #$14, D0
1C01A  4E75           L3797:     Rts
1C01C  45EE FFF8      P751:      Lea.L     $-8(A6), A2
1C020  2F0A                      Move.L    A2, -(A7)
1C022  A88B                      _GetFontInfo
1C024  301A                      Move      (A2)+, D0
1C026  D05A                      Add       (A2)+, D0
1C028  0C52 000E                 Cmp       #$E, (A2)
1C02C  6602                      BNE.B     L3798
1C02E  5552                      SubQ      #$2, (A2)
1C030  544A           L3798:     AddQ      #$2, A2
1C032  D152                      Add       D0, (A2)
1C034  4E75                      Rts
1C036  302E FFFE      P752:      Move      $-2(A6), D0
1C03A  4A11                      Tst.B     (A1)
1C03C  6702                      BEQ.B     L3799
1C03E  7024                      MoveQ.L   #$24, D0
1C040  4E75           L3799:     Rts
1C042  2053           P753:      Move.L    (A3), A0
1C044  2028 000A                 Move.L    $A(A0), D0
1C048  0900                      BTst.L    D4, D0
1C04A  6704                      BEQ.B     L3800
1C04C  0800 0000                 BTst.B    #$0, D0
1C050  4E75           L3800:     Rts
1C052  48E7 1800      P754:      MoveM.L   D3-D4, -(A7)
1C056  3600                      Move      D0, D3
1C058  673E                      BEQ.B     L3803
1C05A  61AE                      Bsr.B     P750
1C05C  3400                      Move      D0, D2
1C05E  3838 0B26                 Move      (TopMenuItem), D4
1C062  3004           L3801:     Move      D4, D0
1C064  2053                      Move.L    (A3), A0
1C066  6100 01F2                 Bsr       P757
1C06A  61CA                      Bsr.B     P752
1C06C  B803                      Cmp.B     D3, D4
1C06E  6706                      BEQ.B     L3802
1C070  D440                      Add       D0, D2
1C072  5244                      AddQ      #$1, D4
1C074  60EC                      Bra.B     L3801
1C076  1228 0001      L3802:     Move.B    $1(A0), D1
1C07A  41F8 09FA                 Lea.L     (scratch8), A0
1C07E  226E 0010                 Move.L    $10(A6), A1
1C082  2099                      Move.L    (A1)+, (A0)
1C084  2151 0004                 Move.L    (A1), $4(A0)
1C088  3082                      Move      D2, (A0)
1C08A  D440                      Add       D0, D2
1C08C  3142 0004                 Move      D2, $4(A0)
1C090  4A43                      Tst       D3
1C092  6B0A                      BMI.B     L3804
1C094  2F08                      Move.L    A0, -(A7)
1C096  A8A4                      _InvertRect
1C098  4CDF 0018      L3803:     MoveM.L   (A7)+, D3-D4
1C09C  4E75                      Rts
1C09E  0C01 002D      L3804:     Cmp.B     #$2D, D1
1C0A2  67F4                      BEQ.B     L3803
1C0A4  6100 0282                 Bsr       P758
1C0A8  60EE                      Bra.B     L3803
1C0AA  3405           P755:      Move      D5, D2
1C0AC  5442                      AddQ      #$2, D2
1C0AE  DA40                      Add       D0, D5
1C0B0  4A38 0BAD                 Tst.B     (TESysJust.1)
1C0B4  6A06                      BPL.B     L3805
1C0B6  9C40                      Sub       D0, D6
1C0B8  9A40                      Sub       D0, D5
1C0BA  3406                      Move      D6, D2
1C0BC  4E75           L3805:     Rts
1C0BE  31FC 0001 0B26 L3806:     Move      #$1, (TopMenuItem)
1C0C4  610E                      Bsr.B     P756
1C0C6  6000 FF34                 Bra       L3795
1C0CA  50F8 0B28      L3807:     ST.B      (AtMenuBottom)
1C0CE  4CDF 1018      L3808:     MoveM.L   (A7)+, D3-D4/A4
1C0D2  4E75                      Rts
1C0D4  48E7 1808      P756:      MoveM.L   D3-D4/A4, -(A7)
1C0D8  4278 0B28                 Clr       (AtMenuBottom)
1C0DC  6100 FF3E                 Bsr       P751
1C0E0  3838 0B26                 Move      (TopMenuItem), D4
1C0E4  6100 FF24                 Bsr       P750
1C0E8  3600                      Move      D0, D3
1C0EA  D66E FFF8                 Add       $-8(A6), D3
1C0EE  206E 0010      L3809:     Move.L    $10(A6), A0
1C0F2  2A18                      Move.L    (A0)+, D5
1C0F4  3418                      Move      (A0)+, D2
1C0F6  3C10                      Move      (A0), D6
1C0F8  3004                      Move      D4, D0
1C0FA  2053                      Move.L    (A3), A0
1C0FC  6100 015C                 Bsr       P757
1C100  67C8                      BEQ.B     L3807
1C102  B642                      Cmp       D2, D3
1C104  6CC8                      BGE.B     L3808
1C106  2448                      Move.L    A0, A2
1C108  2849                      Move.L    A1, A4
1C10A  102C 0003                 Move.B    $3(A4), D0
1C10E  0C2A 002D 0001            Cmp.B     #$2D, $1(A2)
1C114  6700 011C                 BEQ       L3819
1C118  1014                      Move.B    (A4), D0
1C11A  670C                      BEQ.B     L3810
1C11C  7024                      MoveQ.L   #$24, D0
1C11E  906E FFFE                 Sub       $-2(A6), D0
1C122  3E00                      Move      D0, D7
1C124  E248                      LsR       #$1, D0
1C126  D640                      Add       D0, D3
1C128  302E FFFC      L3810:     Move      $-4(A6), D0
1C12C  6100 FF7C                 Bsr       P755
1C130  4A2C 0002                 Tst.B     $2(A4)
1C134  6710                      BEQ.B     L3811
1C136  3F02                      Move      D2, -(A7)
1C138  3F03                      Move      D3, -(A7)
1C13A  A893                      _MoveTo
1C13C  4240                      Clr       D0
1C13E  102C 0002                 Move.B    $2(A4), D0
1C142  3F00                      Move      D0, -(A7)
1C144  A883                      _DrawChar
1C146  4A14           L3811:     Tst.B     (A4)
1C148  6740                      BEQ.B     L3812
1C14A  7028                      MoveQ.L   #$28, D0
1C14C  6100 FF5C                 Bsr       P755
1C150  41F8 09FA                 Lea.L     (scratch8), A0
1C154  2F08                      Move.L    A0, -(A7)
1C156  3203                      Move      D3, D1
1C158  3007                      Move      D7, D0
1C15A  E248                      LsR       #$1, D0
1C15C  9240                      Sub       D0, D1
1C15E  926E FFF8                 Sub       $-8(A6), D1
1C162  5441                      AddQ      #$2, D1
1C164  30C1                      Move      D1, (A0)+
1C166  3082                      Move      D2, (A0)
1C168  5658                      AddQ      #$3, (A0)+
1C16A  20A8 FFFC                 Move.L    $-4(A0), (A0)
1C16E  0658 0020                 Add       #$20, (A0)+
1C172  0650 0020                 Add       #$20, (A0)
1C176  42A7                      Clr.L     -(A7)
1C178  2F3C 4943 4F4E            Move.L    #$49434F4E, -(A7)
1C17E  303C 0100                 Move      #$100, D0
1C182  1014                      Move.B    (A4), D0
1C184  3F00                      Move      D0, -(A7)
1C186  A9A0                      _GetResource
1C188  A94B                      _PlotIcon
1C18A  4A2C 0001      L3812:     Tst.B     $1(A4)
1C18E  6730                      BEQ.B     L3814
1C190  302E FFFC                 Move      $-4(A6), D0
1C194  D040                      Add       D0, D0
1C196  9C40                      Sub       D0, D6
1C198  3F06                      Move      D6, -(A7)
1C19A  4A38 0BAD                 Tst.B     (TESysJust.1)
1C19E  6A08                      BPL.B     L3813
1C1A0  3E85                      Move      D5, (A7)
1C1A2  5457                      AddQ      #$2, (A7)
1C1A4  DA40                      Add       D0, D5
1C1A6  DC40                      Add       D0, D6
1C1A8  3F03           L3813:     Move      D3, -(A7)
1C1AA  A893                      _MoveTo
1C1AC  3F3C 0011                 Move      #$11, -(A7)
1C1B0  A883                      _DrawChar
1C1B2  4240                      Clr       D0
1C1B4  102C 0001                 Move.B    $1(A4), D0
1C1B8  3F00                      Move      D0, -(A7)
1C1BA  A883                      _DrawChar
1C1BC  4267                      Clr       -(A7)
1C1BE  A888                      _TextFace
1C1C0  4240           L3814:     Clr       D0
1C1C2  102C 0003                 Move.B    $3(A4), D0
1C1C6  3F00                      Move      D0, -(A7)
1C1C8  A888                      _TextFace
1C1CA  1238 0BAD                 Move.B    (TESysJust.1), D1
1C1CE  4881                      Ext       D1
1C1D0  660C                      BNE.B     L3815
1C1D2  3F05                      Move      D5, -(A7)
1C1D4  3F03                      Move      D3, -(A7)
1C1D6  A893                      _MoveTo
1C1D8  2F0A                      Move.L    A2, -(A7)
1C1DA  A884                      _DrawString
1C1DC  602A                      Bra.B     L3816
1C1DE  41F8 09FA      L3815:     Lea.L     (scratch8), A0
1C1E2  5345                      SubQ      #$1, D5
1C1E4  3083                      Move      D3, (A0)
1C1E6  302E FFF8                 Move      $-8(A6), D0
1C1EA  9158                      Sub       D0, (A0)+
1C1EC  30C5                      Move      D5, (A0)+
1C1EE  3083                      Move      D3, (A0)
1C1F0  302E FFFA                 Move      $-6(A6), D0
1C1F4  D158                      Add       D0, (A0)+
1C1F6  3086                      Move      D6, (A0)
1C1F8  7000                      MoveQ.L   #$0, D0
1C1FA  101A                      Move.B    (A2)+, D0
1C1FC  2F0A                      Move.L    A2, -(A7)
1C1FE  2F00                      Move.L    D0, -(A7)
1C200  4878 09FA                 Pea.L     (scratch8)
1C204  3F01                      Move      D1, -(A7)
1C206  A9CE                      _TETextBox
1C208  4267           L3816:     Clr       -(A7)
1C20A  A888                      _TextFace
1C20C  6100 FE34                 Bsr       P753
1C210  660A                      BNE.B     L3817
1C212  3004                      Move      D4, D0
1C214  0040 8000                 Or        #$-8000, D0
1C218  6100 FE38                 Bsr       P754
1C21C  4A14           L3817:     Tst.B     (A4)
1C21E  6708                      BEQ.B     L3818
1C220  3007                      Move      D7, D0
1C222  E248                      LsR       #$1, D0
1C224  9E40                      Sub       D0, D7
1C226  D647                      Add       D7, D3
1C228  D66E FFFE      L3818:     Add       $-2(A6), D3
1C22C  5244                      AddQ      #$1, D4
1C22E  6000 FEBE                 Bra       L3809
1C232  2055           L3819:     Move.L    (A5), A0
1C234  4868 FFE8                 Pea.L     $-18(A0)
1C238  A89D                      _PenPat
1C23A  3F03                      Move      D3, -(A7)
1C23C  3F05                      Move      D5, -(A7)
1C23E  302E FFFE                 Move      $-2(A6), D0
1C242  E248                      LsR       #$1, D0
1C244  906E FFF8                 Sub       $-8(A6), D0
1C248  D640                      Add       D0, D3
1C24A  3F03                      Move      D3, -(A7)
1C24C  A893                      _MoveTo
1C24E  3F06                      Move      D6, -(A7)
1C250  3F03                      Move      D3, -(A7)
1C252  A891                      _LineTo
1C254  361F                      Move      (A7)+, D3
1C256  A89E                      _PenNormal
1C258  60C2                      Bra.B     L3817
1C25A  4A40           P757:      Tst       D0
1C25C  6F18                      BLE.B     L3821
1C25E  7200                      MoveQ.L   #$0, D1
1C260  43E8 000E                 Lea.L     $E(A0), A1
1C264  1219                      Move.B    (A1)+, D1
1C266  D2C1                      AddA      D1, A1
1C268  5340           L3820:     SubQ      #$1, D0
1C26A  6712                      BEQ.B     L3822
1C26C  1219                      Move.B    (A1)+, D1
1C26E  6706                      BEQ.B     L3821
1C270  5841                      AddQ      #$4, D1
1C272  D2C1                      AddA      D1, A1
1C274  60F2                      Bra.B     L3820
1C276  91C8           L3821:     SubA.L    A0, A0
1C278  2248                      Move.L    A0, A1
1C27A  2008                      Move.L    A0, D0
1C27C  4E75                      Rts
1C27E  4A11           L3822:     Tst.B     (A1)
1C280  67F4                      BEQ.B     L3821
1C282  2049                      Move.L    A1, A0
1C284  1219                      Move.B    (A1)+, D1
1C286  D2C1                      AddA      D1, A1
1C288  4E75                      Rts
1C28A  594F           L3823:     SubQ      #$4, A7
1C28C  2F0F                      Move.L    A7, -(A7)
1C28E  A874                      _GetPort
1C290  2F38 09DE                 Move.L    (WMgrPort), -(A7)
1C294  A873                      _SetPort
1C296  2078 09DE                 Move.L    (WMgrPort), A0
1C29A  3A28 0014                 Move      $14(A0), D5
1C29E  6100 FD6A                 Bsr       P750
1C2A2  9A40                      Sub       D0, D5
1C2A4  5945                      SubQ      #$4, D5
1C2A6  6100 FD74                 Bsr       P751
1C2AA  7C00                      MoveQ.L   #$0, D6
1C2AC  7001                      MoveQ.L   #$1, D0
1C2AE  2053                      Move.L    (A3), A0
1C2B0  61A8                      Bsr.B     P757
1C2B2  675E                      BEQ.B     L3830
1C2B4  2848                      Move.L    A0, A4
1C2B6  7E00           L3824:     MoveQ.L   #$0, D7
1C2B8  2053                      Move.L    (A3), A0
1C2BA  7000                      MoveQ.L   #$0, D0
1C2BC  1014                      Move.B    (A4), D0
1C2BE  6750                      BEQ.B     L3829
1C2C0  43F4 0001                 Lea.L     $1(A4,D0.W), A1
1C2C4  6100 FD70                 Bsr       P752
1C2C8  4A11                      Tst.B     (A1)
1C2CA  6704                      BEQ.B     L3825
1C2CC  7E28                      MoveQ.L   #$28, D7
1C2CE  7024                      MoveQ.L   #$24, D0
1C2D0  4846           L3825:     Swap      D6
1C2D2  DC40                      Add       D0, D6
1C2D4  BC45                      Cmp       D5, D6
1C2D6  6D02                      BLT.B     L3826
1C2D8  9C40                      Sub       D0, D6
1C2DA  4846           L3826:     Swap      D6
1C2DC  322E FFFC                 Move      $-4(A6), D1
1C2E0  DE41                      Add       D1, D7
1C2E2  4A29 0001                 Tst.B     $1(A1)
1C2E6  6706                      BEQ.B     L3827
1C2E8  DE41                      Add       D1, D7
1C2EA  DE41                      Add       D1, D7
1C2EC  5047                      AddQ      #$8, D7
1C2EE  7200           L3827:     MoveQ.L   #$0, D1
1C2F0  1229 0003                 Move.B    $3(A1), D1
1C2F4  3F01                      Move      D1, -(A7)
1C2F6  A888                      _TextFace
1C2F8  4267                      Clr       -(A7)
1C2FA  2F0C                      Move.L    A4, -(A7)
1C2FC  A88C                      _StringWidth
1C2FE  DE5F                      Add       (A7)+, D7
1C300  BC47                      Cmp       D7, D6
1C302  6C02                      BGE.B     L3828
1C304  3C07                      Move      D7, D6
1C306  7000           L3828:     MoveQ.L   #$0, D0
1C308  1014                      Move.B    (A4), D0
1C30A  49F4 0005                 Lea.L     $5(A4,D0.W), A4
1C30E  60A6                      Bra.B     L3824
1C310  5846           L3829:     AddQ      #$4, D6
1C312  2053           L3830:     Move.L    (A3), A0
1C314  3146 0002                 Move      D6, $2(A0)
1C318  4846                      Swap      D6
1C31A  3146 0004                 Move      D6, $4(A0)
1C31E  4267                      Clr       -(A7)
1C320  A888                      _TextFace
1C322  A873                      _SetPort
1C324  6000 FCD6                 Bra       L3795
1C328  2F08           P758:      Move.L    A0, -(A7)
1C32A  2055                      Move.L    (A5), A0
1C32C  4868 FFE8                 Pea.L     $-18(A0)
1C330  A89D                      _PenPat
1C332  3F3C 000B                 Move      #$B, -(A7)
1C336  A89C                      _PenMode
1C338  A8A2                      _PaintRect
1C33A  A89E                      _PenNormal
1C33C  4E75                      Rts
                      ; end of resource : 'MDEF' 0

                      ; resource header
1C33E  C000 069A                 DC.L      $C000069A       ; Length
1C342  0000 0070                 DC.L      $00000070       ; ?
                      ; resource : 'WDEF' 0
                      ; Default window definition function
1C346  600A           E_965:     Bra.B     L3831
1C348  0000 5744 4546            DC.B      '  WDEF'
1C34E  0000 0005                 DC.B      '    '
1C352  4E56 FFF4      L3831:     Link      A6, #$-C
1C356  48E7 1F78                 MoveM.L   D3-D7/A1-A4, -(A7)
1C35A  2055                      Move.L    (A5), A0
1C35C  2F10                      Move.L    (A0), -(A7)
1C35E  20B8 09DE                 Move.L    (WMgrPort), (A0)
1C362  47EE FFF8                 Lea.L     $-8(A6), A3
1C366  2F0B                      Move.L    A3, -(A7)
1C368  A88B                      _GetFontInfo
1C36A  3E1B                      Move      (A3)+, D7
1C36C  DE5B                      Add       (A3)+, D7
1C36E  5847                      AddQ      #$4, D7
1C370  08C7 0000                 BSet.B    #$0, D7
1C374  7213                      MoveQ.L   #$13, D1
1C376  BE41                      Cmp       D1, D7
1C378  6C0A                      BGE.B     L3832
1C37A  9247                      Sub       D7, D1
1C37C  E249                      LsR       #$1, D1
1C37E  D36E FFF8                 Add       D1, $-8(A6)
1C382  7E13                      MoveQ.L   #$13, D7
1C384  36C7           L3832:     Move      D7, (A3)+
1C386  3007                      Move      D7, D0
1C388  0440 000D                 Sub       #$D, D0
1C38C  E248                      LsR       #$1, D0
1C38E  3680                      Move      D0, (A3)
1C390  42A7                      Clr.L     -(A7)
1C392  A8D8                      _NewRgn
1C394  2D5F FFF4                 Move.L    (A7)+, $-C(A6)
1C398  41EE 0008                 Lea.L     $8(A6), A0
1C39C  2618                      Move.L    (A0)+, D3
1C39E  3018                      Move      (A0)+, D0
1C3A0  2658                      Move.L    (A0)+, A3
1C3A2  3A18                      Move      (A0)+, D5
1C3A4  3C05                      Move      D5, D6
1C3A6  0245 0003                 And       #$3, D5
1C3AA  4290                      Clr.L     (A0)
1C3AC  D040                      Add       D0, D0
1C3AE  41FA 001E                 Lea.L     DT108, A0
1C3B2  D0FB 001A                 AddA      DT108(D0.W), A0
1C3B6  4E90                      Jsr       (A0)
1C3B8  2F2E FFF4                 Move.L    $-C(A6), -(A7)
1C3BC  A8D9                      _DisposeRgn
1C3BE  A873                      _SetPort
1C3C0  4CDF 1EF8                 MoveM.L   (A7)+, D3-D7/A1-A4
1C3C4  4E5E                      Unlk      A6
1C3C6  205F                      Move.L    (A7)+, A0
1C3C8  DEFC 000C                 AddA      #$C, A7
1C3CC  4ED0                      Jmp       (A0)
                      ; Jump Table
1C3CE  00C2 0384 044E DT108:     DC.B      '     N'
1C3D4  000E 00B6 04E0            DC.B      '      '
1C3DA  058E                      DC.B      '  '
1C3DC  0806 0003      E_1041:    BTst.B    #$3, D6
1C3E0  674E                      BEQ.B     L4290
1C3E2  422B 0071                 Clr.B     $71(A3)
1C3E6  4A78 028E                 Tst       (ROM85)
1C3EA  6B44                      BMI.B     L4290
1C3EC  7010                      MoveQ.L   #$10, D0
1C3EE  A322                      _NewHandleClear
1C3F0  663E                      BNE.B     L4290
1C3F2  522B 0071                 AddQ      #$1, $71(A3)
1C3F6  2748 0082                 Move.L    A0, $82(A3)
1C3FA  2850                      Move.L    (A0), A4
1C3FC  504C                      AddQ      #$8, A4
1C3FE  2255                      Move.L    (A5), A1
1C400  28E9 FF8C                 Move.L    $-74(A1), (A4)+
1C404  28E9 FF90                 Move.L    $-70(A1), (A4)+
1C408  7003                      MoveQ.L   #$3, D0
1C40A  9164                      Sub       D0, -(A4)
1C40C  9164                      Sub       D0, -(A4)
1C40E  D164                      Add       D0, -(A4)
1C410  D164                      Add       D0, -(A4)
1C412  DF54                      Add       D7, (A4)
1C414  DF54                      Add       D7, (A4)
1C416  2850                      Move.L    (A0), A4
1C418  2F0C           P825:      Move.L    A4, -(A7)
1C41A  28AB 0010                 Move.L    $10(A3), (A4)
1C41E  296B 0014 0004            Move.L    $14(A3), $4(A4)
1C424  2F2B 0008                 Move.L    $8(A3), -(A7)
1C428  4457                      Neg       (A7)
1C42A  446F 0002                 Neg       $2(A7)
1C42E  A8A8                      _OffsetRect
1C430  4E75           L4290:     Rts
1C432  514F           P826:      SubQ      #$8, A7
1C434  284F                      Move.L    A7, A4
1C436  61E0                      Bsr.B     P825
1C438  206B 0082                 Move.L    $82(A3), A0
1C43C  2450                      Move.L    (A0), A2
1C43E  504A                      AddQ      #$8, A2
1C440  6114                      Bsr.B     P827
1C442  6604                      BNE.B     L4291
1C444  6110                      Bsr.B     P827
1C446  670A                      BEQ.B     L4292
1C448  206B 0082      L4291:     Move.L    $82(A3), A0
1C44C  2850                      Move.L    (A0), A4
1C44E  61C8                      Bsr.B     P825
1C450  7001                      MoveQ.L   #$1, D0
1C452  504F           L4292:     AddQ      #$8, A7
1C454  4E75                      Rts
1C456  2F12           P827:      Move.L    (A2), -(A7)
1C458  2F1A                      Move.L    (A2)+, -(A7)
1C45A  2F0F                      Move.L    A7, -(A7)
1C45C  2F3C FFF9 FFF9            Move.L    #$FFF9FFF9, -(A7)
1C462  A8A9                      _InsetRect
1C464  4267                      Clr       -(A7)
1C466  2F1C                      Move.L    (A4)+, -(A7)
1C468  486F 0006                 Pea.L     $6(A7)
1C46C  A8AD                      _PtInRect
1C46E  5317                      SubQ      #$1, (A7)
1C470  101F                      Move.B    (A7)+, D0
1C472  504F                      AddQ      #$8, A7
1C474  4E75                      Rts
1C476  0806 0003      P828:      BTst.B    #$3, D6
1C47A  6700 0006                 BEQ       L4293
1C47E  4A2B 0071                 Tst.B     $71(A3)
1C482  4E75           L4293:     Rts
1C484  61F0           E_1042:    Bsr.B     P828
1C486  6706                      BEQ.B     L4294
1C488  206B 0082                 Move.L    $82(A3), A0
1C48C  A023                      _DisposeHandle
1C48E  4E75           L4294:     Rts
1C490  4A2B 006E      E_1043:    Tst.B     $6E(A3)
1C494  6700 0130                 BEQ       L4302
1C498  0C43 0004                 Cmp       #$4, D3
1C49C  6C00 0152                 BGE       L4303
1C4A0  A89E                      _PenNormal
1C4A2  4A45                      Tst       D5
1C4A4  6600 0196                 BNE       L4307
1C4A8  6100 0126                 Bsr       P829
1C4AC  4878 09FA                 Pea.L     (scratch8)
1C4B0  2F17                      Move.L    (A7), -(A7)
1C4B2  2F17                      Move.L    (A7), -(A7)
1C4B4  A8A1                      _FrameRect
1C4B6  2F38 0A02                 Move.L    (OneOne), -(A7)
1C4BA  A8A9                      _InsetRect
1C4BC  A8A3                      _EraseRect
1C4BE  6100 0190                 Bsr       P832
1C4C2  4A2B 006F                 Tst.B     $6F(A3)
1C4C6  6700 0082                 BEQ       L4297
1C4CA  4878 09FA                 Pea.L     (scratch8)
1C4CE  3F3C 0001                 Move      #$1, -(A7)
1C4D2  3F2E FFFE                 Move      $-2(A6), -(A7)
1C4D6  A8A9                      _InsetRect
1C4D8  3F38 0A00                 Move      (scratch8.6), -(A7)
1C4DC  31C3 0A00                 Move      D3, (scratch8.6)
1C4E0  2038 09FA                 Move.L    (scratch8), D0
1C4E4  0280 0007 0007            And.L     #$70007, D0
1C4EA  2855                      Move.L    (A5), A4
1C4EC  2940 FF58                 Move.L    D0, $-A8(A4)
1C4F0  4878 09FA                 Pea.L     (scratch8)
1C4F4  487A 00D2                 Pea.L     DT155
1C4F8  A8A5                      _FillRect
1C4FA  6100 FF7A                 Bsr       P828
1C4FE  670C                      BEQ.B     L4295
1C500  3017                      Move      (A7), D0
1C502  0440 001A                 Sub       #$1A, D0
1C506  B044                      Cmp       D4, D0
1C508  6C02                      BGE.B     L4295
1C50A  3800                      Move      D0, D4
1C50C  31DF 0A00      L4295:     Move      (A7)+, (scratch8.6)
1C510  31C4 09FC                 Move      D4, (scratch8.2)
1C514  4878 09FA                 Pea.L     (scratch8)
1C518  487A 00AE                 Pea.L     DT155
1C51C  A8A5                      _FillRect
1C51E  42AC FF58                 Clr.L     $-A8(A4)
1C522  4A2B 0070                 Tst.B     $70(A3)
1C526  670E                      BEQ.B     L4296
1C528  6100 00A6                 Bsr       P829
1C52C  43FA 01E4                 Lea.L     DT158, A1
1C530  7000                      MoveQ.L   #$0, D0
1C532  6100 00E2                 Bsr       P831
1C536  6100 FF3E      L4296:     Bsr       P828
1C53A  670E                      BEQ.B     L4297
1C53C  6100 0092                 Bsr       P829
1C540  43FA 0190                 Lea.L     DT156, A1
1C544  7000                      MoveQ.L   #$0, D0
1C546  6100 00B8                 Bsr       P830
1C54A  2838 0A02      L4297:     Move.L    (OneOne), D4
1C54E  206B 0072      L4298:     Move.L    $72(A3), A0
1C552  2050                      Move.L    (A0), A0
1C554  49E8 0002                 Lea.L     $2(A0), A4
1C558  996C 0004                 Sub       D4, $4(A4)
1C55C  996C 0006                 Sub       D4, $6(A4)
1C560  2F0C                      Move.L    A4, -(A7)
1C562  A8A1                      _FrameRect
1C564  0C45 0003                 Cmp       #$3, D5
1C568  6704                      BEQ.B     L4299
1C56A  4A45                      Tst       D5
1C56C  6604                      BNE.B     L4300
1C56E  6100 0398      L4299:     Bsr       P833
1C572  0C45 0001      L4300:     Cmp       #$1, D5
1C576  6646                      BNE.B     L4301
1C578  21D4 09FA                 Move.L    (A4), (scratch8)
1C57C  21EC 0004 09FE            Move.L    $4(A4), (scratch8.4)
1C582  4878 09FA                 Pea.L     (scratch8)
1C586  2F17                      Move.L    (A7), -(A7)
1C588  2F17                      Move.L    (A7), -(A7)
1C58A  2F38 0A02                 Move.L    (OneOne), -(A7)
1C58E  A8A9                      _InsetRect
1C590  2F3C 0007 0007            Move.L    #$70007, -(A7)
1C596  A89B                      _PenSize
1C598  2055                      Move.L    (A5), A0
1C59A  4868 FFF8                 Pea.L     $-8(A0)
1C59E  A89D                      _PenPat
1C5A0  A8A1                      _FrameRect
1C5A2  2055                      Move.L    (A5), A0
1C5A4  4868 FFF0                 Pea.L     $-10(A0)
1C5A8  A89D                      _PenPat
1C5AA  2F3C 0002 0002            Move.L    #$20002, -(A7)
1C5B0  2F17                      Move.L    (A7), -(A7)
1C5B2  A89B                      _PenSize
1C5B4  A8A9                      _InsetRect
1C5B6  4878 09FA                 Pea.L     (scratch8)
1C5BA  A8A1                      _FrameRect
1C5BC  A89E                      _PenNormal
1C5BE  D96C 0004      L4301:     Add       D4, $4(A4)
1C5C2  D96C 0006                 Add       D4, $6(A4)
1C5C6  4E75           L4302:     Rts
                      ; Pattern
1C5C8  FF00 FF00 FF00 DT155:     DC.B      '      '
1C5CE  FF00                      DC.B      '  '
1C5D0  41F8 09FA      P829:      Lea.L     (scratch8), A0
1C5D4  226B 0072                 Move.L    $72(A3), A1
1C5D8  2251                      Move.L    (A1), A1
1C5DA  5449                      AddQ      #$2, A1
1C5DC  2099                      Move.L    (A1)+, (A0)
1C5DE  2151 0004                 Move.L    (A1), $4(A0)
1C5E2  3010                      Move      (A0), D0
1C5E4  D047                      Add       D7, D0
1C5E6  3140 0004                 Move      D0, $4(A0)
1C5EA  5368 0006                 SubQ      #$1, $6(A0)
1C5EE  4E75                      Rts
1C5F0  671C           L4303:     BEQ.B     L4304
1C5F2  6100 FE82                 Bsr       P828
1C5F6  6742                      BEQ.B     L4306
1C5F8  61D6                      Bsr.B     P829
1C5FA  43FA 00F6                 Lea.L     DT157, A1
1C5FE  7002                      MoveQ.L   #$2, D0
1C600  41F8 09FA      P830:      Lea.L     (scratch8), A0
1C604  3168 0006 0002            Move      $6(A0), $2(A0)
1C60A  72EA                      MoveQ.L   #$-16, D1
1C60C  600E                      Bra.B     L4305
1C60E  61C0           L4304:     Bsr.B     P829
1C610  43FA 0120                 Lea.L     DT159, A1
1C614  7002                      MoveQ.L   #$2, D0
1C616  41F8 09FA      P831:      Lea.L     (scratch8), A0
1C61A  7207                      MoveQ.L   #$7, D1
1C61C  D368 0002      L4305:     Add       D1, $2(A0)
1C620  322E FFFE                 Move      $-2(A6), D1
1C624  D350                      Add       D1, (A0)
1C626  5350                      SubQ      #$1, (A0)
1C628  2098                      Move.L    (A0)+, (A0)
1C62A  7210                      MoveQ.L   #$10, D1
1C62C  D358                      Add       D1, (A0)+
1C62E  D350                      Add       D1, (A0)
1C630  223C 0010 0010            Move.L    #$100010, D1
1C636  6100 02F8                 Bsr       P834
1C63A  4E75           L4306:     Rts
1C63C  283C 0002 0002 L4307:     Move.L    #$20002, D4
1C642  0C45 0003                 Cmp       #$3, D5
1C646  6700 FF06                 BEQ       L4298
1C64A  7800                      MoveQ.L   #$0, D4
1C64C  6000 FF00                 Bra       L4298
1C650  3838 0A00      P832:      Move      (scratch8.6), D4
1C654  3604                      Move      D4, D3
1C656  9678 09FC                 Sub       (scratch8.2), D3
1C65A  966B 008A                 Sub       $8A(A3), D3
1C65E  E243                      AsR       #$1, D3
1C660  7002                      MoveQ.L   #$2, D0
1C662  4A2B 0070                 Tst.B     $70(A3)
1C666  6702                      BEQ.B     L4308
1C668  7020                      MoveQ.L   #$20, D0
1C66A  B640           L4308:     Cmp       D0, D3
1C66C  6C02                      BGE.B     L4309
1C66E  3600                      Move      D0, D3
1C670  D678 09FC      L4309:     Add       (scratch8.2), D3
1C674  3F04                      Move      D4, -(A7)
1C676  6100 FDFE                 Bsr       P828
1C67A  6704                      BEQ.B     L4310
1C67C  0444 0020                 Sub       #$20, D4
1C680  2F2E FFF4      L4310:     Move.L    $-C(A6), -(A7)
1C684  2F17                      Move.L    (A7), -(A7)
1C686  A87A                      _GetClip
1C688  31C4 0A00                 Move      D4, (scratch8.6)
1C68C  4878 09FA                 Pea.L     (scratch8)
1C690  A87B                      _ClipRect
1C692  2055                      Move.L    (A5), A0
1C694  2050                      Move.L    (A0), A0
1C696  2F28 001C                 Move.L    $1C(A0), -(A7)
1C69A  2F17                      Move.L    (A7), -(A7)
1C69C  A8E4                      _SectRgn
1C69E  31DF 0A00                 Move      (A7)+, (scratch8.6)
1C6A2  3F03                      Move      D3, -(A7)
1C6A4  3038 09FA                 Move      (scratch8), D0
1C6A8  D06E FFF8                 Add       $-8(A6), D0
1C6AC  5240                      AddQ      #$1, D0
1C6AE  3F00                      Move      D0, -(A7)
1C6B0  A893                      _MoveTo
1C6B2  206B 0086                 Move.L    $86(A3), A0
1C6B6  2F10                      Move.L    (A0), -(A7)
1C6B8  A884                      _DrawString
1C6BA  2F2E FFF4                 Move.L    $-C(A6), -(A7)
1C6BE  A879                      _SetClip
1C6C0  3003                      Move      D3, D0
1C6C2  5D43                      SubQ      #$6, D3
1C6C4  D06B 008A                 Add       $8A(A3), D0
1C6C8  B044                      Cmp       D4, D0
1C6CA  6C02                      BGE.B     L4311
1C6CC  3800                      Move      D0, D4
1C6CE  5C44           L4311:     AddQ      #$6, D4
1C6D0  4E75                      Rts
1C6D2  0000 0000 BFFB DT156:     DC.B      '      '
1C6D8  2088 A08B 2088            DC.B      '      '
1C6DE  A08B 2088 BF8B            DC.B      '      '
1C6E4  2008 A00B 2008            DC.B      '      '
1C6EA  BFFB 0000 0000            DC.B      '      '
1C6F0  0000                      DC.B      '  '
1C6F2  0000 0000 0000 DT157:     DC.B      '      '
1C6F8  0180 09A0 05C0            DC.B      '      '
1C6FE  0080 1CF0 1F80            DC.B      '      '
1C704  0540 0920 0100            DC.B      ' @    '
1C70A  0000 0000 0000            DC.B      '      '
1C710  0000                      DC.B      '  '
1C712  0000 0000 BFFB DT158:     DC.B      '      '
1C718  2008 A00B 2008            DC.B      '      '
1C71E  A00B 2008 A00B            DC.B      '      '
1C724  2008 A00B 2008            DC.B      '      '
1C72A  BFFB 0000 0000            DC.B      '      '
1C730  0000                      DC.B      '  '
1C732  0000 0000 0000 DT159:     DC.B      '      '
1C738  0100 0920 0540            DC.B      '     @'
1C73E  0000 1C70 0000            DC.B      '   p  '
1C744  0540 0920 0100            DC.B      ' @    '
1C74A  0000 0000 0000            DC.B      '      '
1C750  0000                      DC.B      '  '
1C752  4267           E_1044:    Clr       -(A7)
1C754  2F03                      Move.L    D3, -(A7)
1C756  2F2B 0076                 Move.L    $76(A3), -(A7)
1C75A  A8E8                      _PtInRgn
1C75C  4A1F                      Tst.B     (A7)+
1C75E  6738                      BEQ.B     L4313
1C760  4A45                      Tst       D5
1C762  662E                      BNE.B     L4312
1C764  0806 0002                 BTst.B    #$2, D6
1C768  6E28                      BGT.B     L4312
1C76A  4A2B 006F                 Tst.B     $6F(A3)
1C76E  6722                      BEQ.B     L4312
1C770  206B 0076                 Move.L    $76(A3), A0
1C774  2050                      Move.L    (A0), A0
1C776  2028 0006                 Move.L    $6(A0), D0
1C77A  780E                      MoveQ.L   #$E, D4
1C77C  9044                      Sub       D4, D0
1C77E  B640                      Cmp       D0, D3
1C780  6D10                      BLT.B     L4312
1C782  4840                      Swap      D0
1C784  9044                      Sub       D4, D0
1C786  4843                      Swap      D3
1C788  B640                      Cmp       D0, D3
1C78A  6D06                      BLT.B     L4312
1C78C  7003                      MoveQ.L   #$3, D0
1C78E  6000 0086                 Bra       L4317
1C792  7001           L4312:     MoveQ.L   #$1, D0
1C794  6000 0080                 Bra       L4317
1C798  4A45           L4313:     Tst       D5
1C79A  6600 007E                 BNE       L4318
1C79E  6100 FE30                 Bsr       P829
1C7A2  4267                      Clr       -(A7)
1C7A4  2F03                      Move.L    D3, -(A7)
1C7A6  2F08                      Move.L    A0, -(A7)
1C7A8  A8AD                      _PtInRect
1C7AA  4A1F                      Tst.B     (A7)+
1C7AC  676C                      BEQ.B     L4318
1C7AE  4A2B 006F                 Tst.B     $6F(A3)
1C7B2  6760                      BEQ.B     L4316
1C7B4  2003                      Move.L    D3, D0
1C7B6  4840                      Swap      D0
1C7B8  D06B 0008                 Add       $8(A3), D0
1C7BC  906B 0010                 Sub       $10(A3), D0
1C7C0  D06E FFFE                 Add       $-2(A6), D0
1C7C4  6A4E                      BPL.B     L4316
1C7C6  0640 000B                 Add       #$B, D0
1C7CA  6B48                      BMI.B     L4316
1C7CC  4A2B 0070                 Tst.B     $70(A3)
1C7D0  6718                      BEQ.B     L4314
1C7D2  2003                      Move.L    D3, D0
1C7D4  D06B 000A                 Add       $A(A3), D0
1C7D8  906B 0012                 Sub       $12(A3), D0
1C7DC  0C40 0012                 Cmp       #$12, D0
1C7E0  6E08                      BGT.B     L4314
1C7E2  5140                      SubQ      #$8, D0
1C7E4  6B2E                      BMI.B     L4316
1C7E6  7004                      MoveQ.L   #$4, D0
1C7E8  602C                      Bra.B     L4317
1C7EA  6100 FC8A      L4314:     Bsr       P828
1C7EE  6724                      BEQ.B     L4316
1C7F0  3003                      Move      D3, D0
1C7F2  D06B 000A                 Add       $A(A3), D0
1C7F6  906B 0016                 Sub       $16(A3), D0
1C7FA  0C40 FFED                 Cmp       #$-13, D0
1C7FE  6D14                      BLT.B     L4316
1C800  0C40 FFF7                 Cmp       #$-9, D0
1C804  6E0E                      BGT.B     L4316
1C806  6100 FC2A                 Bsr       P826
1C80A  6704                      BEQ.B     L4315
1C80C  7006                      MoveQ.L   #$6, D0
1C80E  6006                      Bra.B     L4317
1C810  7005           L4315:     MoveQ.L   #$5, D0
1C812  6002                      Bra.B     L4317
1C814  7002           L4316:     MoveQ.L   #$2, D0
1C816  2D40 0014      L4317:     Move.L    D0, $14(A6)
1C81A  4E75           L4318:     Rts
1C81C  6100 FC58      E_1045:    Bsr       P828
1C820  6704                      BEQ.B     L4319
1C822  6100 FC0E                 Bsr       P826
1C826  41F8 09FA      L4319:     Lea.L     (scratch8), A0
1C82A  2F08                      Move.L    A0, -(A7)
1C82C  20EB 0010                 Move.L    $10(A3), (A0)+
1C830  20AB 0014                 Move.L    $14(A3), (A0)
1C834  2F2B 0008                 Move.L    $8(A3), -(A7)
1C838  4457                      Neg       (A7)
1C83A  446F 0002                 Neg       $2(A7)
1C83E  A8A8                      _OffsetRect
1C840  2F2B 0076                 Move.L    $76(A3), -(A7)
1C844  4878 09FA                 Pea.L     (scratch8)
1C848  A8DF                      _RectRgn
1C84A  283C 0002 0002            Move.L    #$20002, D4
1C850  2F2B 0072                 Move.L    $72(A3), -(A7)
1C854  4878 09FA                 Pea.L     (scratch8)
1C858  2F17                      Move.L    (A7), -(A7)
1C85A  2F38 0A06                 Move.L    (MinusOne), -(A7)
1C85E  A8A9                      _InsetRect
1C860  4A45                      Tst       D5
1C862  6636                      BNE.B     L4323
1C864  3007                      Move      D7, D0
1C866  5340                      SubQ      #$1, D0
1C868  9178 09FA                 Sub       D0, (scratch8)
1C86C  E28C                      LsR.L     #$1, D4
1C86E  A8DF           L4320:     _RectRgn
1C870  4A45                      Tst       D5
1C872  6706                      BEQ.B     L4321
1C874  0C45 0003                 Cmp       #$3, D5
1C878  661E                      BNE.B     L4322
1C87A  2F2E FFF4      L4321:     Move.L    $-C(A6), -(A7)
1C87E  4878 09FA                 Pea.L     (scratch8)
1C882  2F17                      Move.L    (A7), -(A7)
1C884  2F04                      Move.L    D4, -(A7)
1C886  A8A8                      _OffsetRect
1C888  A8DF                      _RectRgn
1C88A  2F2B 0072                 Move.L    $72(A3), -(A7)
1C88E  2F2E FFF4                 Move.L    $-C(A6), -(A7)
1C892  2F2B 0072                 Move.L    $72(A3), -(A7)
1C896  A8E5                      _UnionRgn
1C898  4E75           L4322:     Rts
1C89A  0C45 0001      L4323:     Cmp       #$1, D5
1C89E  66CE                      BNE.B     L4320
1C8A0  4878 09FA                 Pea.L     (scratch8)
1C8A4  2F3C FFF9 FFF9            Move.L    #$FFF9FFF9, -(A7)
1C8AA  A8A9                      _InsetRect
1C8AC  60C0                      Bra.B     L4320
1C8AE  2F03           E_1046:    Move.L    D3, -(A7)
1C8B0  2F38 0A06                 Move.L    (MinusOne), -(A7)
1C8B4  A8A9                      _InsetRect
1C8B6  2643                      Move.L    D3, A3
1C8B8  2F13                      Move.L    (A3), -(A7)
1C8BA  3007                      Move      D7, D0
1C8BC  5340                      SubQ      #$1, D0
1C8BE  9153                      Sub       D0, (A3)
1C8C0  2F03                      Move.L    D3, -(A7)
1C8C2  A8A1                      _FrameRect
1C8C4  3F2B 0002                 Move      $2(A3), -(A7)
1C8C8  3F2B 0004                 Move      $4(A3), -(A7)
1C8CC  0457 0010                 Sub       #$10, (A7)
1C8D0  2F17                      Move.L    (A7), -(A7)
1C8D2  A893                      _MoveTo
1C8D4  3F6B 0006 0002            Move      $6(A3), $2(A7)
1C8DA  A891                      _LineTo
1C8DC  2697                      Move.L    (A7), (A3)
1C8DE  2F17                      Move.L    (A7), -(A7)
1C8E0  A893                      _MoveTo
1C8E2  3F6B 0006 0002            Move      $6(A3), $2(A7)
1C8E8  A891                      _LineTo
1C8EA  3F2B 0006                 Move      $6(A3), -(A7)
1C8EE  0457 0010                 Sub       #$10, (A7)
1C8F2  3F13                      Move      (A3), -(A7)
1C8F4  2F17                      Move.L    (A7), -(A7)
1C8F6  A893                      _MoveTo
1C8F8  3EAB 0004                 Move      $4(A3), (A7)
1C8FC  A891                      _LineTo
1C8FE  2F03                      Move.L    D3, -(A7)
1C900  2F38 0A02                 Move.L    (OneOne), -(A7)
1C904  A8A9                      _InsetRect
1C906  4E75                      Rts
1C908  2F04           P833:      Move.L    D4, -(A7)
1C90A  A89B                      _PenSize
1C90C  302C 0006                 Move      $6(A4), D0
1C910  3F00                      Move      D0, -(A7)
1C912  3F14                      Move      (A4), -(A7)
1C914  D957                      Add       D4, (A7)
1C916  3F00                      Move      D0, -(A7)
1C918  302C 0004                 Move      $4(A4), D0
1C91C  3F00                      Move      D0, -(A7)
1C91E  3F2C 0002                 Move      $2(A4), -(A7)
1C922  D957                      Add       D4, (A7)
1C924  3F00                      Move      D0, -(A7)
1C926  A893                      _MoveTo
1C928  A891                      _LineTo
1C92A  A891                      _LineTo
1C92C  A89E                      _PenNormal
1C92E  4E75                      Rts
1C930  41F8 0A0E      P834:      Lea.L     (IconBitmap), A0
1C934  20C9                      Move.L    A1, (A0)+
1C936  30FC 0002                 Move      #$2, (A0)+
1C93A  4298                      Clr.L     (A0)+
1C93C  2081                      Move.L    D1, (A0)
1C93E  4878 0A0E                 Pea.L     (IconBitmap)
1C942  2057                      Move.L    (A7), A0
1C944  2255                      Move.L    (A5), A1
1C946  2251                      Move.L    (A1), A1
1C948  4869 0002                 Pea.L     $2(A1)
1C94C  4868 0006                 Pea.L     $6(A0)
1C950  4878 09FA                 Pea.L     (scratch8)
1C954  3F00                      Move      D0, -(A7)
1C956  42A7                      Clr.L     -(A7)
1C958  A8EC                      _CopyBits
1C95A  4E75                      Rts
1C95C  2F0B           E_1047:    Move.L    A3, -(A7)
1C95E  A873                      _SetPort
1C960  49F8 09FA                 Lea.L     (scratch8), A4
1C964  296B 0014 0004            Move.L    $14(A3), $4(A4)
1C96A  28AC 0004                 Move.L    $4(A4), (A4)
1C96E  0454 000F                 Sub       #$F, (A4)
1C972  046C 000F 0002            Sub       #$F, $2(A4)
1C978  4A2B 006F                 Tst.B     $6F(A3)
1C97C  6732                      BEQ.B     L4325
1C97E  43FA 0038                 Lea.L     DT160, A1
1C982  7000                      MoveQ.L   #$0, D0
1C984  223C 0010 0010            Move.L    #$100010, D1
1C98A  61A4                      Bsr.B     P834
1C98C  3F2C 0002      L4324:     Move      $2(A4), -(A7)
1C990  3F17                      Move      (A7), -(A7)
1C992  3F2B 0010                 Move      $10(A3), -(A7)
1C996  A893                      _MoveTo
1C998  3F2B 0014                 Move      $14(A3), -(A7)
1C99C  A891                      _LineTo
1C99E  3F2B 0012                 Move      $12(A3), -(A7)
1C9A2  3F14                      Move      (A4), -(A7)
1C9A4  A893                      _MoveTo
1C9A6  3F2B 0016                 Move      $16(A3), -(A7)
1C9AA  3F14                      Move      (A4), -(A7)
1C9AC  A891                      _LineTo
1C9AE  4E75                      Rts
1C9B0  4878 09FA      L4325:     Pea.L     (scratch8)
1C9B4  A8A3                      _EraseRect
1C9B6  60D4                      Bra.B     L4324
1C9B8  0000 0000 0000 DT160:     DC.B      '      '
1C9BE  1FE0 1020 103E            DC.B      '     >'
1C9C4  1022 1022 1022            DC.B      ' " " "'
1C9CA  1022 1FE2 0402            DC.B      ' "    '
1C9D0  0402 0402 07FE            DC.B      '      '
1C9D6  0000                      DC.B      '  '
                      ; end of resource : 'WDEF' 0

                      ; resource header
1C9D8  C000 054E                 DC.L      $C000054E       ; Length
1C9DC  0000 0074                 DC.L      $00000074       ; ?
                      ; resource : 'PACK' 7
                      ; Binary-Decimal Conversion Package
1C9E0  600A           E_966:     Bra.B     L3833
1C9E2  0000 5041 434B            DC.B      '  PACK'
1C9E8  0007 0001                 DC.B      '    '
1C9EC  536F 0004      L3833:     SubQ      #$1, $4(A7)
1C9F0  6A76                      BPL.B     L3839
1C9F2  2F57 0002                 Move.L    (A7), $2(A7)
1C9F6  544F                      AddQ      #$2, A7
1C9F8  48E7 FE40                 MoveM.L   D0-D6/A1, -(A7)
1C9FC  7200                      MoveQ.L   #$0, D1
1C9FE  7400                      MoveQ.L   #$0, D2
1CA00  7600                      MoveQ.L   #$0, D3
1CA02  7800                      MoveQ.L   #$0, D4
1CA04  7A00                      MoveQ.L   #$0, D5
1CA06  7C1F                      MoveQ.L   #$1F, D6
1CA08  43E8 0001                 Lea.L     $1(A0), A1
1CA0C  4A80                      Tst.L     D0
1CA0E  6E0E                      BGT.B     L3835
1CA10  6B06                      BMI.B     L3834
1CA12  12FC 0030                 Move.B    #$30, (A1)+
1CA16  6028                      Bra.B     L3836
1CA18  12FC 002D      L3834:     Move.B    #$2D, (A1)+
1CA1C  4480                      Neg.L     D0
1CA1E  D080           L3835:     Add.L     D0, D0
1CA20  CB05                      AbcdX.B   D5, D5
1CA22  C904                      AbcdX.B   D4, D4
1CA24  C703                      AbcdX.B   D3, D3
1CA26  C502                      AbcdX.B   D2, D2
1CA28  C301                      AbcdX.B   D1, D1
1CA2A  51CE FFF2                 DBF       D6, L3835
1CA2E  611E                      Bsr.B     P759
1CA30  1202                      Move.B    D2, D1
1CA32  611A                      Bsr.B     P759
1CA34  1203                      Move.B    D3, D1
1CA36  6116                      Bsr.B     P759
1CA38  1204                      Move.B    D4, D1
1CA3A  6112                      Bsr.B     P759
1CA3C  1205                      Move.B    D5, D1
1CA3E  610E                      Bsr.B     P759
1CA40  3009           L3836:     Move      A1, D0
1CA42  9048                      Sub       A0, D0
1CA44  5300                      SubQ      #$1, D0
1CA46  1080                      Move.B    D0, (A0)
1CA48  4CDF 027F                 MoveM.L   (A7)+, D0-D6/A1
1CA4C  4E75                      Rts
1CA4E  E859           P759:      ROR       #$4, D1
1CA50  6102                      Bsr.B     P760
1CA52  E959                      ROL       #$4, D1
1CA54  4A46           P760:      Tst       D6
1CA56  6A06                      BPL.B     L3837
1CA58  4A01                      Tst.B     D1
1CA5A  670A                      BEQ.B     L3838
1CA5C  7C00                      MoveQ.L   #$0, D6
1CA5E  0001 0030      L3837:     Or.B      #$30, D1
1CA62  12C1                      Move.B    D1, (A1)+
1CA64  9201                      Sub.B     D1, D1
1CA66  4E75           L3838:     Rts
1CA68  302F 0004      L3839:     Move      $4(A7), D0
1CA6C  2F57 0002                 Move.L    (A7), $2(A7)
1CA70  544F                      AddQ      #$2, A7
1CA72  5340                      SubQ      #$1, D0
1CA74  6A3E                      BPL.B     L3843
1CA76  48E7 7080                 MoveM.L   D1-D3/A0, -(A7)
1CA7A  7000                      MoveQ.L   #$0, D0
1CA7C  7200                      MoveQ.L   #$0, D1
1CA7E  7600                      MoveQ.L   #$0, D3
1CA80  1418                      Move.B    (A0)+, D2
1CA82  672A                      BEQ.B     L3842
1CA84  0C10 002B                 Cmp.B     #$2B, (A0)
1CA88  6708                      BEQ.B     L3840
1CA8A  0C10 002D                 Cmp.B     #$2D, (A0)
1CA8E  6608                      BNE.B     L3841
1CA90  7601                      MoveQ.L   #$1, D3
1CA92  5288           L3840:     AddQ      #$1, A0
1CA94  5302                      SubQ      #$1, D2
1CA96  6716                      BEQ.B     L3842
1CA98  720F           L3841:     MoveQ.L   #$F, D1
1CA9A  C218                      And.B     (A0)+, D1
1CA9C  D080                      Add.L     D0, D0
1CA9E  D280                      Add.L     D0, D1
1CAA0  E588                      LsL.L     #$2, D0
1CAA2  D081                      Add.L     D1, D0
1CAA4  5302                      SubQ      #$1, D2
1CAA6  66F0                      BNE.B     L3841
1CAA8  4A03                      Tst.B     D3
1CAAA  6702                      BEQ.B     L3842
1CAAC  4480                      Neg.L     D0
1CAAE  4CDF 010E      L3842:     MoveM.L   (A7)+, D1-D3/A0
1CAB2  4E75                      Rts
1CAB4  5340           L3843:     SubQ      #$1, D0
1CAB6  6B0A                      BMI.B     L3844
1CAB8  670C                      BEQ.B     L3845
1CABA  0C40 0001                 Cmp       #$1, D0
1CABE  670A                      BEQ.B     L3846
1CAC0  4E75                      Rts
1CAC2  4EFA 0010      L3844:     Jmp       L3848
1CAC6  4EFA 02A8      L3845:     Jmp       L3893
1CACA  4EFA 0002      L3846:     Jmp       L3847
1CACE  7201           L3847:     MoveQ.L   #$1, D1
1CAD0  E299                      ROR.L     #$1, D1
1CAD2  6002                      Bra.B     L3849
1CAD4  7200           L3848:     MoveQ.L   #$0, D1
1CAD6  4E56 0000      L3849:     Link      A6, #$0
1CADA  48E7 3F30                 MoveM.L   D2-D7/A2-A3, -(A7)
1CADE  4CEE 0070 000C            MoveM.L   $C(A6), D4-D6
1CAE4  CCB8 031A                 And.L     (Lo3Bytes), D6
1CAE8  2046                      Move.L    D6, A0
1CAEA  2245                      Move.L    D5, A1
1CAEC  7C00                      MoveQ.L   #$0, D6
1CAEE  1C10                      Move.B    (A0), D6
1CAF0  47F0 6000                 Lea.L     $0(A0,D6.W), A3
1CAF4  D0D1                      AddA      (A1), A0
1CAF6  2C08                      Move.L    A0, D6
1CAF8  2244                      Move.L    D4, A1
1CAFA  45E9 0004                 Lea.L     $4(A1), A2
1CAFE  2801                      Move.L    D1, D4
1CB00  0604 0030                 Add.B     #$30, D4
1CB04  7E39                      MoveQ.L   #$39, D7
1CB06  7000                      MoveQ.L   #$0, D0
1CB08  7200                      MoveQ.L   #$0, D1
1CB0A  7400                      MoveQ.L   #$0, D2
1CB0C  7600                      MoveQ.L   #$0, D3
1CB0E  7A00                      MoveQ.L   #$0, D5
1CB10  4291                      Clr.L     (A1)
1CB12  24BC 054E 3030            Move.L    #$54E3030, (A2)
1CB18  357C 3131 0004            Move      #$3131, $4(A2)
1CB1E  6100 008A      L3850:     Bsr       P762
1CB22  0C00 0020                 Cmp.B     #$20, D0
1CB26  67F6                      BEQ.B     L3850
1CB28  0C00 00CA                 Cmp.B     #$-36, D0
1CB2C  67F0                      BEQ.B     L3850
1CB2E  0C00 0009                 Cmp.B     #$9, D0
1CB32  67EA                      BEQ.B     L3850
1CB34  0C00 002B                 Cmp.B     #$2B, D0
1CB38  6708                      BEQ.B     L3851
1CB3A  0C00 002D                 Cmp.B     #$2D, D0
1CB3E  6604                      BNE.B     L3852
1CB40  5211                      AddQ      #$1, (A1)
1CB42  6166           L3851:     Bsr.B     P762
1CB44  0C00 0030      L3852:     Cmp.B     #$30, D0
1CB48  650C                      BCS.B     L3853
1CB4A  621C                      BHI.B     L3854
1CB4C  08C4 000F                 BSet.B    #$F, D4
1CB50  7CFF                      MoveQ.L   #$-1, D6
1CB52  6156                      Bsr.B     P762
1CB54  60EE                      Bra.B     L3852
1CB56  0C00 002E      L3853:     Cmp.B     #$2E, D0
1CB5A  6700 0074                 BEQ       L3864
1CB5E  4A44                      Tst       D4
1CB60  6A00 01B0                 BPL       L3885
1CB64  6000 00E4                 Bra       L3875
1CB68  0C00 0039      L3854:     Cmp.B     #$39, D0
1CB6C  630A                      BLS.B     L3855
1CB6E  4A44                      Tst       D4
1CB70  6A00 0130                 BPL       L3882
1CB74  6000 0086                 Bra       L3869
1CB78  7CFF           L3855:     MoveQ.L   #$-1, D6
1CB7A  6118           L3856:     Bsr.B     P761
1CB7C  6506                      BCS.B     L3857
1CB7E  0C00 0039                 Cmp.B     #$39, D0
1CB82  63F6                      BLS.B     L3856
1CB84  0C00 002E      L3857:     Cmp.B     #$2E, D0
1CB88  6600 0072                 BNE       L3869
1CB8C  611C                      Bsr.B     P762
1CB8E  6500 00BA                 BCS       L3875
1CB92  6062                      Bra.B     L3868
1CB94  0C02 0013      P761:      Cmp.B     #$13, D2
1CB98  6D04                      BLT.B     L3858
1CB9A  6E0A                      BGT.B     L3859
1CB9C  5241                      AddQ      #$1, D1
1CB9E  528A           L3858:     AddQ      #$1, A2
1CBA0  1480                      Move.B    D0, (A2)
1CBA2  5202                      AddQ      #$1, D2
1CBA4  6004                      Bra.B     P762
1CBA6  8112           L3859:     Or.B      D0, (A2)
1CBA8  5241                      AddQ      #$1, D1
1CBAA  4A84           P762:      Tst.L     D4
1CBAC  6A06                      BPL.B     L3860
1CBAE  1018                      Move.B    (A0)+, D0
1CBB0  6710                      BEQ.B     L3863
1CBB2  6006                      Bra.B     L3861
1CBB4  B7C8           L3860:     CmpA.L    A0, A3
1CBB6  6D08                      BLT.B     L3862
1CBB8  1018                      Move.B    (A0)+, D0
1CBBA  0C00 0030      L3861:     Cmp.B     #$30, D0
1CBBE  4E75                      Rts
1CBC0  5288           L3862:     AddQ      #$1, A0
1CBC2  08C4 0010      L3863:     BSet.B    #$10, D4
1CBC6  4A86                      Tst.L     D6
1CBC8  6A00 0148                 BPL       L3885
1CBCC  6000 007C                 Bra       L3875
1CBD0  61D8           L3864:     Bsr.B     P762
1CBD2  6710                      BEQ.B     L3866
1CBD4  6506                      BCS.B     L3865
1CBD6  0C00 0039                 Cmp.B     #$39, D0
1CBDA  6312                      BLS.B     L3867
1CBDC  4A44           L3865:     Tst       D4
1CBDE  6A00 0132                 BPL       L3885
1CBE2  6018                      Bra.B     L3869
1CBE4  08C4 000F      L3866:     BSet.B    #$F, D4
1CBE8  7CFF                      MoveQ.L   #$-1, D6
1CBEA  5341                      SubQ      #$1, D1
1CBEC  60E2                      Bra.B     L3864
1CBEE  7CFF           L3867:     MoveQ.L   #$-1, D6
1CBF0  5341                      SubQ      #$1, D1
1CBF2  61A0                      Bsr.B     P761
1CBF4  6554                      BCS.B     L3875
1CBF6  0C00 0039      L3868:     Cmp.B     #$39, D0
1CBFA  63F2                      BLS.B     L3867
1CBFC  2C08           L3869:     Move.L    A0, D6
1CBFE  5386                      SubQ      #$1, D6
1CC00  0C00 0045                 Cmp.B     #$45, D0
1CC04  6706                      BEQ.B     L3870
1CC06  0C00 0065                 Cmp.B     #$65, D0
1CC0A  663E                      BNE.B     L3875
1CC0C  619C           L3870:     Bsr.B     P762
1CC0E  0C00 002B                 Cmp.B     #$2B, D0
1CC12  670A                      BEQ.B     L3871
1CC14  0C00 002D                 Cmp.B     #$2D, D0
1CC18  6606                      BNE.B     L3872
1CC1A  08C2 001F                 BSet.B    #$1F, D2
1CC1E  618A           L3871:     Bsr.B     P762
1CC20  0C00 0030      L3872:     Cmp.B     #$30, D0
1CC24  651E                      BCS.B     L3874
1CC26  0C00 0039                 Cmp.B     #$39, D0
1CC2A  6218                      BHI.B     L3874
1CC2C  7CFF                      MoveQ.L   #$-1, D6
1CC2E  0240 000F                 And       #$F, D0
1CC32  CAFC 000A                 MulU      #$A, D5
1CC36  DA40                      Add       D0, D5
1CC38  0C45 2000                 Cmp       #$2000, D5
1CC3C  6504                      BCS.B     L3873
1CC3E  3A3C 2000                 Move      #$2000, D5
1CC42  60DA           L3873:     Bra.B     L3871
1CC44  4A86           L3874:     Tst.L     D6
1CC46  6A00 00CA                 BPL       L3885
1CC4A  5388           L3875:     SubQ      #$1, A0
1CC4C  4A02           L3876:     Tst.B     D2
1CC4E  660A                      BNE.B     L3877
1CC50  4A44                      Tst       D4
1CC52  6A2A                      BPL.B     L3881
1CC54  34BC 0130                 Move      #$130, (A2)
1CC58  6024                      Bra.B     L3881
1CC5A  4A82           L3877:     Tst.L     D2
1CC5C  6A02                      BPL.B     L3878
1CC5E  4445                      Neg       D5
1CC60  0C31 0030 2004 L3878:     Cmp.B     #$30, $4(A1,D2.W)
1CC66  660C                      BNE.B     L3880
1CC68  5302                      SubQ      #$1, D2
1CC6A  0C02 0013                 Cmp.B     #$13, D2
1CC6E  6702                      BEQ.B     L3879
1CC70  5245                      AddQ      #$1, D5
1CC72  60EC           L3879:     Bra.B     L3878
1CC74  1342 0004      L3880:     Move.B    D2, $4(A1)
1CC78  DA41                      Add       D1, D5
1CC7A  3345 0002                 Move      D5, $2(A1)
1CC7E  91EE 0014      L3881:     SubA.L    $14(A6), A0
1CC82  226E 0010                 Move.L    $10(A6), A1
1CC86  3288                      Move      A0, (A1)
1CC88  206E 0004                 Move.L    $4(A6), A0
1CC8C  226E 0008                 Move.L    $8(A6), A1
1CC90  4844                      Swap      D4
1CC92  1284                      Move.B    D4, (A1)
1CC94  4CEE 0CFC FFE0            MoveM.L   $-20(A6), D2-D7/A2-A3
1CC9A  4E5E                      Unlk      A6
1CC9C  DEFC 0014                 AddA      #$14, A7
1CCA0  4ED0                      Jmp       (A0)
1CCA2  0C00 00B0      L3882:     Cmp.B     #$-50, D0
1CCA6  6700 007C                 BEQ       L3887
1CCAA  5388                      SubQ      #$1, A0
1CCAC  7649                      MoveQ.L   #$49, D3
1CCAE  6100 0094                 Bsr       P763
1CCB2  6700 0064                 BEQ       L3886
1CCB6  0C00 004E                 Cmp.B     #$4E, D0
1CCBA  6656                      BNE.B     L3885
1CCBC  7641                      MoveQ.L   #$41, D3
1CCBE  6100 0084                 Bsr       P763
1CCC2  664E                      BNE.B     L3885
1CCC4  764E                      MoveQ.L   #$4E, D3
1CCC6  6100 007C                 Bsr       P763
1CCCA  6600 0046                 BNE       L3885
1CCCE  24FC 054E 3430            Move.L    #$54E3430, (A2)+
1CCD4  34BC 3030                 Move      #$3030, (A2)
1CCD8  2C08                      Move.L    A0, D6
1CCDA  6100 FECE                 Bsr       P762
1CCDE  0C00 0028                 Cmp.B     #$28, D0
1CCE2  662E                      BNE.B     L3885
1CCE4  7600                      MoveQ.L   #$0, D3
1CCE6  6100 FEC2      L3883:     Bsr       P762
1CCEA  6512                      BCS.B     L3884
1CCEC  0C00 0039                 Cmp.B     #$39, D0
1CCF0  6220                      BHI.B     L3885
1CCF2  C6FC 000A                 MulU      #$A, D3
1CCF6  0240 000F                 And       #$F, D0
1CCFA  D640                      Add       D0, D3
1CCFC  60E8                      Bra.B     L3883
1CCFE  0C00 0029      L3884:     Cmp.B     #$29, D0
1CD02  660E                      BNE.B     L3885
1CD04  6156                      Bsr.B     P764
1CD06  E058                      ROR       #$8, D0
1CD08  E81B                      ROR.B     #$4, D3
1CD0A  6150                      Bsr.B     P764
1CD0C  E058                      ROR       #$8, D0
1CD0E  3480                      Move      D0, (A2)
1CD10  6016                      Bra.B     L3888
1CD12  2046           L3885:     Move.L    D6, A0
1CD14  6000 FF36                 Bra       L3876
1CD18  764E           L3886:     MoveQ.L   #$4E, D3
1CD1A  6128                      Bsr.B     P763
1CD1C  66F4                      BNE.B     L3885
1CD1E  7646                      MoveQ.L   #$46, D3
1CD20  6122                      Bsr.B     P763
1CD22  66EE                      BNE.B     L3885
1CD24  34BC 0149      L3887:     Move      #$149, (A2)
1CD28  7CFF           L3888:     MoveQ.L   #$-1, D6
1CD2A  4A84                      Tst.L     D4
1CD2C  6A08                      BPL.B     L3889
1CD2E  1010                      Move.B    (A0), D0
1CD30  6600 FF4C                 BNE       L3881
1CD34  6006                      Bra.B     L3890
1CD36  B7C8           L3889:     CmpA.L    A0, A3
1CD38  6C00 FF44                 BGE       L3881
1CD3C  08C4 0010      L3890:     BSet.B    #$10, D4
1CD40  6000 FF3C                 Bra       L3881
1CD44  6100 FE64      P763:      Bsr       P762
1CD48  0C00 0061                 Cmp.B     #$61, D0
1CD4C  650A                      BCS.B     L3891
1CD4E  0C00 007A                 Cmp.B     #$7A, D0
1CD52  6204                      BHI.B     L3891
1CD54  0400 0020                 Sub.B     #$20, D0
1CD58  B003           L3891:     Cmp.B     D3, D0
1CD5A  4E75                      Rts
1CD5C  103C 000F      P764:      Move.B    #$F, D0
1CD60  C003                      And.B     D3, D0
1CD62  0C00 0009                 Cmp.B     #$9, D0
1CD66  6302                      BLS.B     L3892
1CD68  5E00                      AddQ      #$7, D0
1CD6A  0600 0030      L3892:     Add.B     #$30, D0
1CD6E  4E75                      Rts
1CD70  48E7 3C00      L3893:     MoveM.L   D2-D5, -(A7)
1CD74  4E56 0000                 Link      A6, #$0
1CD78  206E 0020                 Move.L    $20(A6), A0
1CD7C  2A10                      Move.L    (A0), D5
1CD7E  206E 0018                 Move.L    $18(A6), A0
1CD82  226E 001C                 Move.L    $1C(A6), A1
1CD86  2819                      Move.L    (A1)+, D4
1CD88  5248                      AddQ      #$1, A0
1CD8A  74B0                      MoveQ.L   #$-50, D2
1CD8C  7200                      MoveQ.L   #$0, D1
1CD8E  1219                      Move.B    (A1)+, D1
1CD90  671E                      BEQ.B     L3897
1CD92  0804 0018                 BTst.B    #$18, D4
1CD96  6706                      BEQ.B     L3894
1CD98  10FC 002D                 Move.B    #$2D, (A0)+
1CD9C  600A                      Bra.B     L3895
1CD9E  0805 0018      L3894:     BTst.B    #$18, D5
1CDA2  6606                      BNE.B     L3896
1CDA4  10FC 0020                 Move.B    #$20, (A0)+
1CDA8  5242           L3895:     AddQ      #$1, D2
1CDAA  1011           L3896:     Move.B    (A1), D0
1CDAC  0C00 003F                 Cmp.B     #$3F, D0
1CDB0  6700 00FE      L3897:     BEQ       L3916
1CDB4  0000 0020                 Or.B      #$20, D0
1CDB8  0C00 0069                 Cmp.B     #$69, D0
1CDBC  6700 0150                 BEQ       L3923
1CDC0  0C00 006E                 Cmp.B     #$6E, D0
1CDC4  6646                      BNE.B     L3901
1CDC6  10FC 004E                 Move.B    #$4E, (A0)+
1CDCA  10FC 0041                 Move.B    #$41, (A0)+
1CDCE  10FC 004E                 Move.B    #$4E, (A0)+
1CDD2  10FC 0028                 Move.B    #$28, (A0)+
1CDD6  117C 0029 0003            Move.B    #$29, $3(A0)
1CDDC  5A42                      AddQ      #$5, D2
1CDDE  7600                      MoveQ.L   #$0, D3
1CDE0  0C01 0005                 Cmp.B     #$5, D1
1CDE4  6F02                      BLE.B     L3898
1CDE6  7205                      MoveQ.L   #$5, D1
1CDE8  610C           L3898:     Bsr.B     P765
1CDEA  2003                      Move.L    D3, D0
1CDEC  6108                      Bsr.B     P765
1CDEE  E903                      AsL.B     #$4, D3
1CDF0  8680                      Or.L      D0, D3
1CDF2  7004           L3899:     MoveQ.L   #$4, D0
1CDF4  6068                      Bra.B     L3908
1CDF6  5341           P765:      SubQ      #$1, D1
1CDF8  6FF8                      BLE.B     L3899
1CDFA  1631 1000                 Move.B    $0(A1,D1.W), D3
1CDFE  0C03 0039                 Cmp.B     #$39, D3
1CE02  6F02                      BLE.B     L3900
1CE04  5F03                      SubQ      #$7, D3
1CE06  0203 000F      L3900:     And.B     #$F, D3
1CE0A  4E75                      Rts
1CE0C  0C11 0030      L3901:     Cmp.B     #$30, (A1)
1CE10  6604                      BNE.B     L3902
1CE12  7201                      MoveQ.L   #$1, D1
1CE14  7800                      MoveQ.L   #$0, D4
1CE16  0805 0018      L3902:     BTst.B    #$18, D5
1CE1A  6600 009E                 BNE       L3917
1CE1E  4A45                      Tst       D5
1CE20  6E02                      BGT.B     L3903
1CE22  7A01                      MoveQ.L   #$1, D5
1CE24  7001           L3903:     MoveQ.L   #$1, D0
1CE26  6162                      Bsr.B     P766
1CE28  3601                      Move      D1, D3
1CE2A  48C3                      Ext.L     D3
1CE2C  5383                      SubQ      #$1, D3
1CE2E  6E06                      BGT.B     L3904
1CE30  0C45 0001                 Cmp       #$1, D5
1CE34  6F0C                      BLE.B     L3905
1CE36  6160           L3904:     Bsr.B     P767
1CE38  3003                      Move      D3, D0
1CE3A  614E                      Bsr.B     P766
1CE3C  3005                      Move      D5, D0
1CE3E  9041                      Sub       D1, D0
1CE40  6168                      Bsr.B     P768
1CE42  5442           L3905:     AddQ      #$2, D2
1CE44  6E6A                      BGT.B     L3916
1CE46  10FC 0065                 Move.B    #$65, (A0)+
1CE4A  48C4                      Ext.L     D4
1CE4C  D684                      Add.L     D4, D3
1CE4E  6D06                      BLT.B     L3906
1CE50  10FC 002B                 Move.B    #$2B, (A0)+
1CE54  6006                      Bra.B     L3907
1CE56  10FC 002D      L3906:     Move.B    #$2D, (A0)+
1CE5A  4483                      Neg.L     D3
1CE5C  7000           L3907:     MoveQ.L   #$0, D0
1CE5E  43FA 00BE      L3908:     Lea.L     DT109, A1
1CE62  5440           L3909:     AddQ      #$2, D0
1CE64  B671 00FE                 Cmp       $-2(A1,D0.W), D3
1CE68  6518                      BCS.B     L3912
1CE6A  0C00 0008                 Cmp.B     #$8, D0
1CE6E  6DF2                      BLT.B     L3909
1CE70  86F1 00FE      L3910:     DivU      $-2(A1,D0.W), D3
1CE74  5242           L3911:     AddQ      #$1, D2
1CE76  6E38                      BGT.B     L3916
1CE78  0643 0030                 Add       #$30, D3
1CE7C  10C3                      Move.B    D3, (A0)+
1CE7E  4843                      Swap      D3
1CE80  48C3                      Ext.L     D3
1CE82  5540           L3912:     SubQ      #$2, D0
1CE84  6EEA                      BGT.B     L3910
1CE86  67EC                      BEQ.B     L3911
1CE88  606E                      Bra.B     L3921
1CE8A  6F0A           P766:      BLE.B     L3914
1CE8C  D440                      Add       D0, D2
1CE8E  6E20                      BGT.B     L3916
1CE90  10D9           L3913:     Move.B    (A1)+, (A0)+
1CE92  5340                      SubQ      #$1, D0
1CE94  6EFA                      BGT.B     L3913
1CE96  4E75           L3914:     Rts
1CE98  5242           P767:      AddQ      #$1, D2
1CE9A  6E14                      BGT.B     L3916
1CE9C  10FC 002E                 Move.B    #$2E, (A0)+
1CEA0  4E75                      Rts
1CEA2  5242           L3915:     AddQ      #$1, D2
1CEA4  6E0A                      BGT.B     L3916
1CEA6  10FC 0030                 Move.B    #$30, (A0)+
1CEAA  5340           P768:      SubQ      #$1, D0
1CEAC  6CF4                      BGE.B     L3915
1CEAE  4E75                      Rts
1CEB0  206E 0018      L3916:     Move.L    $18(A6), A0
1CEB4  30BC 013F                 Move      #$13F, (A0)
1CEB8  6048                      Bra.B     L3922
1CEBA  3601           L3917:     Move      D1, D3
1CEBC  D644                      Add       D4, D3
1CEBE  6F22                      BLE.B     L3919
1CEC0  4A44                      Tst       D4
1CEC2  6C0C                      BGE.B     L3918
1CEC4  3003                      Move      D3, D0
1CEC6  61C2                      Bsr.B     P766
1CEC8  61CE                      Bsr.B     P767
1CECA  7000                      MoveQ.L   #$0, D0
1CECC  9044                      Sub       D4, D0
1CECE  6020                      Bra.B     L3920
1CED0  3001           L3918:     Move      D1, D0
1CED2  61B6                      Bsr.B     P766
1CED4  3004                      Move      D4, D0
1CED6  61D2                      Bsr.B     P768
1CED8  3005                      Move      D5, D0
1CEDA  6F1C                      BLE.B     L3921
1CEDC  61BA                      Bsr.B     P767
1CEDE  61CA                      Bsr.B     P768
1CEE0  6016                      Bra.B     L3921
1CEE2  7001           L3919:     MoveQ.L   #$1, D0
1CEE4  61C4                      Bsr.B     P768
1CEE6  61B0                      Bsr.B     P767
1CEE8  7000                      MoveQ.L   #$0, D0
1CEEA  9043                      Sub       D3, D0
1CEEC  61BC                      Bsr.B     P768
1CEEE  3001                      Move      D1, D0
1CEF0  6198           L3920:     Bsr.B     P766
1CEF2  3004                      Move      D4, D0
1CEF4  D045                      Add       D5, D0
1CEF6  61B2                      Bsr.B     P768
1CEF8  206E 0018      L3921:     Move.L    $18(A6), A0
1CEFC  0642 0050                 Add       #$50, D2
1CF00  1082                      Move.B    D2, (A0)
1CF02  4E5E           L3922:     Unlk      A6
1CF04  4CDF 013C                 MoveM.L   (A7)+, D2-D5/A0
1CF08  DEFC 000C                 AddA      #$C, A7
1CF0C  4ED0                      Jmp       (A0)
1CF0E  10FC 0049      L3923:     Move.B    #$49, (A0)+
1CF12  10FC 004E                 Move.B    #$4E, (A0)+
1CF16  10BC 0046                 Move.B    #$46, (A0)
1CF1A  5642                      AddQ      #$3, D2
1CF1C  60DA                      Bra.B     L3921
1CF1E  000A 0064 03E8 DT109:     DC.B      '   d  '
1CF24  2710                      DC.B      '' '
                      ; end of resource : 'PACK' 7

                      ; resource header
1CF26  C000 1066                 DC.L      $C0001066       ; Length
1CF2A  0000 0078                 DC.L      $00000078       ; ?
                      ; resource : 'PACK' 5
                      ; Transcendental Functions Package
1CF2E  600A           E_967:     Bra.B     L3924
1CF30  0000 5041 434B            DC.B      '  PACK'
1CF36  0005 0001                 DC.B      '    '
1CF3A  4E56 FFD0      L3924:     Link      A6, #$-30
1CF3E  48E7 FFF8                 MoveM.L   D0-D7/A0-A4, -(A7)
1CF42  4283                      Clr.L     D3
1CF44  2078 0ACC                 Move.L    (AppPacks.5), A0
1CF48  1D50 FFD0                 Move.B    (A0), $-30(A6)
1CF4C  08D0 0007                 BSet.B    #$7, (A0)
1CF50  47EE 0004                 Lea.L     $4(A6), A3
1CF54  41EE 0008                 Lea.L     $8(A6), A0
1CF58  3618                      Move      (A0)+, D3
1CF5A  6A48                      BPL.B     L3929
1CF5C  2858                      Move.L    (A0)+, A4
1CF5E  2810                      Move.L    (A0), D4
1CF60  0803 000E                 BTst.B    #$E, D3
1CF64  6618                      BNE.B     L3927
1CF66  2093                      Move.L    (A3), (A0)
1CF68  36BC 000A                 Move      #$A, (A3)
1CF6C  2A0C                      Move.L    A4, D5
1CF6E  740F                      MoveQ.L   #$F, D2
1CF70  0C43 8010                 Cmp       #$-7FF0, D3
1CF74  6706                      BEQ.B     L3926
1CF76  2044           L3925:     Move.L    D4, A0
1CF78  6110                      Bsr.B     P769
1CF7A  3400                      Move      D0, D2
1CF7C  6032           L3926:     Bra.B     L3930
1CF7E  5888           L3927:     AddQ      #$4, A0
1CF80  2A10                      Move.L    (A0), D5
1CF82  2093                      Move.L    (A3), (A0)
1CF84  36BC 000E                 Move      #$E, (A3)
1CF88  60EC                      Bra.B     L3925
1CF8A  4850           P769:      Pea.L     (A0)
1CF8C  486E FFFC                 Pea.L     $-4(A6)
1CF90  3F3C 001C                 Move      #$1C, -(A7)
1CF94  A9EB                      _FP68K
1CF96  302E FFFC                 Move      $-4(A6), D0
1CF9A  6A06                      BPL.B     L3928
1CF9C  4440                      Neg       D0
1CF9E  0040 8000                 Or        #$-8000, D0
1CFA2  4E75           L3928:     Rts
1CFA4  740F           L3929:     MoveQ.L   #$F, D2
1CFA6  2850                      Move.L    (A0), A4
1CFA8  2093                      Move.L    (A3), (A0)
1CFAA  36BC 0006                 Move      #$6, (A3)
1CFAE  2A0C                      Move.L    A4, D5
1CFB0  2045           L3930:     Move.L    D5, A0
1CFB2  61D6                      Bsr.B     P769
1CFB4  3200                      Move      D0, D1
1CFB6  486E FFFE                 Pea.L     $-2(A6)
1CFBA  3F3C 0017                 Move      #$17, -(A7)
1CFBE  A9EB                      _FP68K
1CFC0  5702                      SubQ      #$3, D2
1CFC2  6C10                      BGE.B     L3931
1CFC4  2045                      Move.L    D5, A0
1CFC6  224C                      Move.L    A4, A1
1CFC8  614C                      Bsr.B     P770
1CFCA  2F04                      Move.L    D4, -(A7)
1CFCC  4854                      Pea.L     (A4)
1CFCE  4267                      Clr       -(A7)
1CFD0  A9EB                      _FP68K
1CFD2  600E                      Bra.B     L3932
1CFD4  5701           L3931:     SubQ      #$3, D1
1CFD6  6C0E                      BGE.B     L3933
1CFD8  2F05                      Move.L    D5, -(A7)
1CFDA  4854                      Pea.L     (A4)
1CFDC  3F3C 000E                 Move      #$E, -(A7)
1CFE0  A9EB                      _FP68K
1CFE2  6000 030C      L3932:     Bra       L3934
1CFE6  3003           L3933:     Move      D3, D0
1CFE8  0240 00FE                 And       #$FE, D0
1CFEC  303B 0006                 Move      DT110(D0.W), D0
1CFF0  4EFB 00F4                 Jmp       L3933(D0.W)
                      ; Jump Table
1CFF4  013A 013A 013A DT110:     DC.B      ' : : :'
1CFFA  013A 0326 0326            DC.B      ' : & &'
1D000  03D6 03D6 04E6            DC.B      '      '
1D006  0608 06F8 078E            DC.B      '      '
1D00C  08E8 093A 0A52            DC.B      '   : R'
1D012  0B3C 0C80                 DC.B      ' <  '
1D016  22D8           P770:      Move.L    (A0)+, (A1)+
1D018  22D8                      Move.L    (A0)+, (A1)+
1D01A  3290                      Move      (A0), (A1)
1D01C  5189                      SubQ      #$8, A1
1D01E  4E75                      Rts
1D020  3019           P792:      Move      (A1)+, D0
1D022  4851                      Pea.L     (A1)
1D024  4850                      Pea.L     (A0)
1D026  3F3C 000E                 Move      #$E, -(A7)
1D02A  A9EB                      _FP68K
1D02C  4852           L4182:     Pea.L     (A2)
1D02E  4850                      Pea.L     (A0)
1D030  3F3C 0004                 Move      #$4, -(A7)
1D034  A9EB                      _FP68K
1D036  5089                      AddQ      #$8, A1
1D038  5489                      AddQ      #$2, A1
1D03A  4851                      Pea.L     (A1)
1D03C  4850                      Pea.L     (A0)
1D03E  4267                      Clr       -(A7)
1D040  A9EB                      _FP68K
1D042  5340                      SubQ      #$1, D0
1D044  6EE6                      BGT.B     L4182
1D046  5089                      AddQ      #$8, A1
1D048  5489                      AddQ      #$2, A1
1D04A  4E75                      Rts
1D04C  7001           P793:      MoveQ.L   #$1, D0
1D04E  600A                      Bra.B     L4183
1D050  7002           P794:      MoveQ.L   #$2, D0
1D052  6006                      Bra.B     L4183
1D054  7000           P795:      MoveQ.L   #$0, D0
1D056  6002                      Bra.B     L4183
1D058  7004           P796:      MoveQ.L   #$4, D0
1D05A  558F           L4183:     SubQ      #$2, A7
1D05C  4857                      Pea.L     (A7)
1D05E  3F3C 0003                 Move      #$3, -(A7)
1D062  A9EB                      _FP68K
1D064  0197                      BClr.L    D0, (A7)
1D066  4857                      Pea.L     (A7)
1D068  3F3C 0001                 Move      #$1, -(A7)
1D06C  A9EB                      _FP68K
1D06E  548F           L4184:     AddQ      #$2, A7
1D070  4A00                      Tst.B     D0
1D072  4E75                      Rts
1D074  7002           P797:      MoveQ.L   #$2, D0
1D076  600E                      Bra.B     L4185
1D078  7001           P798:      MoveQ.L   #$1, D0
1D07A  600A                      Bra.B     L4185
1D07C  7003           P799:      MoveQ.L   #$3, D0
1D07E  6006                      Bra.B     L4185
1D080  7000           P800:      MoveQ.L   #$0, D0
1D082  6002                      Bra.B     L4185
1D084  7004           P801:      MoveQ.L   #$4, D0
1D086  3F00           L4185:     Move      D0, -(A7)
1D088  4857                      Pea.L     (A7)
1D08A  3F3C 0015                 Move      #$15, -(A7)
1D08E  A9EB                      _FP68K
1D090  60DC                      Bra.B     L4184
1D092  7003           P802:      MoveQ.L   #$3, D0
1D094  600E                      Bra.B     L4186
1D096  7001           P803:      MoveQ.L   #$1, D0
1D098  600A                      Bra.B     L4186
1D09A  7002           P804:      MoveQ.L   #$2, D0
1D09C  6006                      Bra.B     L4186
1D09E  7000           P805:      MoveQ.L   #$0, D0
1D0A0  6002                      Bra.B     L4186
1D0A2  7004           P806:      MoveQ.L   #$4, D0
1D0A4  3F00           L4186:     Move      D0, -(A7)
1D0A6  4857                      Pea.L     (A7)
1D0A8  3F3C 001B                 Move      #$1B, -(A7)
1D0AC  A9EB                      _FP68K
1D0AE  1017                      Move.B    (A7), D0
1D0B0  60BC                      Bra.B     L4184
1D0B2  3D7C 7FFF FFFA P807:      Move      #$7FFF, $-6(A6)
1D0B8  47EE FFE6                 Lea.L     $-1A(A6), A3
1D0BC  2729 0006                 Move.L    $6(A1), -(A3)
1D0C0  2729 0002                 Move.L    $2(A1), -(A3)
1D0C4  3711                      Move      (A1), -(A3)
1D0C6  0893 0007                 BClr.B    #$7, (A3)
1D0CA  6144                      Bsr.B     P809
1D0CC  6C16                      BGE.B     L4188
1D0CE  487A 0C9A                 Pea.L     DT134
1D0D2  4853                      Pea.L     (A3)
1D0D4  3F3C 0002                 Move      #$2, -(A7)
1D0D8  A9EB                      _FP68K
1D0DA  4A11                      Tst.B     (A1)
1D0DC  6A04                      BPL.B     L4187
1D0DE  446E FFFA                 Neg       $-6(A6)
1D0E2  611E           L4187:     Bsr.B     P808
1D0E4  612A           L4188:     Bsr.B     P809
1D0E6  6C06                      BGE.B     L4189
1D0E8  487A 0C80                 Pea.L     DT134
1D0EC  6002                      Bra.B     L4190
1D0EE  4853           L4189:     Pea.L     (A3)
1D0F0  486E FFFA      L4190:     Pea.L     $-6(A6)
1D0F4  3F3C 2010                 Move      #$2010, -(A7)
1D0F8  A9EB                      _FP68K
1D0FA  4A11                      Tst.B     (A1)
1D0FC  6A04                      BPL.B     P808
1D0FE  446E FFFA                 Neg       $-6(A6)
1D102  486E FFFA      P808:      Pea.L     $-6(A6)
1D106  4850                      Pea.L     (A0)
1D108  3F3C 2018                 Move      #$2018, -(A7)
1D10C  A9EB                      _FP68K
1D10E  4E75                      Rts
1D110  486E FFDC      P809:      Pea.L     $-24(A6)
1D114  487A 0C54                 Pea.L     DT134
1D118  3F3C 0008                 Move      #$8, -(A7)
1D11C  A9EB                      _FP68K
1D11E  4E75                      Rts
1D120  5301           E_1029:    SubQ      #$1, D1
1D122  6A0C                      BPL.B     L4192
1D124  4A41                      Tst       D1
1D126  6A00 01A0                 BPL       L4209
1D12A  7024           L4191:     MoveQ.L   #$24, D0
1D12C  6000 01B0                 Bra       L4213
1D130  0803 0002      L4192:     BTst.B    #$2, D3
1D134  660A                      BNE.B     L4193
1D136  4A01                      Tst.B     D1
1D138  671C                      BEQ.B     L4194
1D13A  4A41                      Tst       D1
1D13C  6BEC                      BMI.B     L4191
1D13E  605A                      Bra.B     L4196
1D140  4A01           L4193:     Tst.B     D1
1D142  6700 01AC                 BEQ       L3934
1D146  4854                      Pea.L     (A4)
1D148  487A 0BF8                 Pea.L     DT130
1D14C  3F3C 0008                 Move      #$8, -(A7)
1D150  A9EB                      _FP68K
1D152  62D6                      BHI.B     L4191
1D154  6504                      BCS.B     L4195
1D156  6000 0176      L4194:     Bra       L4210
1D15A  204C           L4195:     Move.L    A4, A0
1D15C  43EE FFF0                 Lea.L     $-10(A6), A1
1D160  6100 FEB4                 Bsr       P770
1D164  487A 0BD2                 Pea.L     DT129
1D168  4854                      Pea.L     (A4)
1D16A  4267                      Clr       -(A7)
1D16C  A9EB                      _FP68K
1D16E  487A 0C7C                 Pea.L     DT146
1D172  4854                      Pea.L     (A4)
1D174  3F3C 0008                 Move      #$8, -(A7)
1D178  A9EB                      _FP68K
1D17A  6F1E                      BLE.B     L4196
1D17C  4854                      Pea.L     (A4)
1D17E  487A 0C62                 Pea.L     DT145
1D182  3F3C 0008                 Move      #$8, -(A7)
1D186  A9EB                      _FP68K
1D188  6310                      BLS.B     L4196
1D18A  2049                      Move.L    A1, A0
1D18C  224C                      Move.L    A4, A1
1D18E  6100 FE86                 Bsr       P770
1D192  6100 007E                 Bsr       P810
1D196  6000 0064                 Bra       L4198
1D19A  204C           L4196:     Move.L    A4, A0
1D19C  43EE FFF0                 Lea.L     $-10(A6), A1
1D1A0  6100 FE74                 Bsr       P770
1D1A4  4851                      Pea.L     (A1)
1D1A6  3F3C 001A                 Move      #$1A, -(A7)
1D1AA  A9EB                      _FP68K
1D1AC  0851 0007                 BChg.B    #$7, (A1)
1D1B0  204C                      Move.L    A4, A0
1D1B2  6100 FEFE                 Bsr       P807
1D1B6  0851 0007                 BChg.B    #$7, (A1)
1D1BA  487A 0C26                 Pea.L     DT145
1D1BE  4854                      Pea.L     (A4)
1D1C0  3F3C 0008                 Move      #$8, -(A7)
1D1C4  A9EB                      _FP68K
1D1C6  6F00 001A                 BLE       L4197
1D1CA  487A 0B6C                 Pea.L     DT129
1D1CE  486E FFF0                 Pea.L     $-10(A6)
1D1D2  4267                      Clr       -(A7)
1D1D4  A9EB                      _FP68K
1D1D6  487A 0B88                 Pea.L     DT133
1D1DA  4854                      Pea.L     (A4)
1D1DC  3F3C 0006                 Move      #$6, -(A7)
1D1E0  A9EB                      _FP68K
1D1E2  487A 0B54      L4197:     Pea.L     DT129
1D1E6  4854                      Pea.L     (A4)
1D1E8  3F3C 0002                 Move      #$2, -(A7)
1D1EC  A9EB                      _FP68K
1D1EE  6100 0022                 Bsr       P810
1D1F2  486E FFF0                 Pea.L     $-10(A6)
1D1F6  4854                      Pea.L     (A4)
1D1F8  4267                      Clr       -(A7)
1D1FA  A9EB                      _FP68K
1D1FC  0803 0001      L4198:     BTst.B    #$1, D3
1D200  660C                      BNE.B     L4199
1D202  487A 0BFC                 Pea.L     DT147
1D206  4854                      Pea.L     (A4)
1D208  3F3C 0004                 Move      #$4, -(A7)
1D20C  A9EB                      _FP68K
1D20E  6000 00E0      L4199:     Bra       L3934
1D212  4854           P810:      Pea.L     (A4)
1D214  486E FFFA                 Pea.L     $-6(A6)
1D218  3F3C 001C                 Move      #$1C, -(A7)
1D21C  A9EB                      _FP68K
1D21E  302E FFFA                 Move      $-6(A6), D0
1D222  6A02                      BPL.B     L4200
1D224  4440                      Neg       D0
1D226  5940           L4200:     SubQ      #$4, D0
1D228  6602                      BNE.B     L4201
1D22A  4E75                      Rts
1D22C  5340           L4201:     SubQ      #$1, D0
1D22E  670A                      BEQ.B     L4202
1D230  487A 0BCE                 Pea.L     DT147
1D234  6100 FE42                 Bsr       P798
1D238  6064                      Bra.B     L4203
1D23A  204C           L4202:     Move.L    A4, A0
1D23C  43EE FFE6                 Lea.L     $-1A(A6), A1
1D240  6100 FDD4                 Bsr       P770
1D244  487A 0B1A                 Pea.L     DT133
1D248  4854                      Pea.L     (A4)
1D24A  4267                      Clr       -(A7)
1D24C  A9EB                      _FP68K
1D24E  4854                      Pea.L     (A4)
1D250  4851                      Pea.L     (A1)
1D252  3F3C 0006                 Move      #$6, -(A7)
1D256  A9EB                      _FP68K
1D258  2049                      Move.L    A1, A0
1D25A  4851                      Pea.L     (A1)
1D25C  4851                      Pea.L     (A1)
1D25E  43EE FFDC                 Lea.L     $-24(A6), A1
1D262  6100 FDB2                 Bsr       P770
1D266  3F3C 0004                 Move      #$4, -(A7)
1D26A  A9EB                      _FP68K
1D26C  204C                      Move.L    A4, A0
1D26E  43FA 0A20                 Lea.L     DT125, A1
1D272  45EE FFE6                 Lea.L     $-1A(A6), A2
1D276  6100 FDA8                 Bsr       P792
1D27A  486E FFDC                 Pea.L     $-24(A6)
1D27E  4854                      Pea.L     (A4)
1D280  3F3C 0004                 Move      #$4, -(A7)
1D284  A9EB                      _FP68K
1D286  41EE FFDC                 Lea.L     $-24(A6), A0
1D28A  43FA 0A42                 Lea.L     DT126, A1
1D28E  45EE FFE6                 Lea.L     $-1A(A6), A2
1D292  6100 FD8C                 Bsr       P792
1D296  6100 FDB4                 Bsr       P793
1D29A  486E FFDC                 Pea.L     $-24(A6)
1D29E  4854           L4203:     Pea.L     (A4)
1D2A0  3F3C 0006                 Move      #$6, -(A7)
1D2A4  A9EB                      _FP68K
1D2A6  6100 FDDC                 Bsr       P801
1D2AA  4E75                      Rts
1D2AC  41FA 0A9E      L4204:     Lea.L     DT131, A0
1D2B0  6024                      Bra.B     L4212
1D2B2  41FA 0AA2      L4205:     Lea.L     DT132, A0
1D2B6  601E                      Bra.B     L4212
1D2B8  41FA 0A7E      L4206:     Lea.L     DT129, A0
1D2BC  6018                      Bra.B     L4212
1D2BE  41FA 0A82      L4207:     Lea.L     DT130, A0
1D2C2  6012                      Bra.B     L4212
1D2C4  6100 FDB6      L4208:     Bsr       P799
1D2C8  41FA 0AAA      L4209:     Lea.L     DT135, A0
1D2CC  6008                      Bra.B     L4212
1D2CE  6100 FDAC      L4210:     Bsr       P799
1D2D2  41FA 0AAA      L4211:     Lea.L     DT136, A0
1D2D6  224C           L4212:     Move.L    A4, A1
1D2D8  6100 FD3C                 Bsr       P770
1D2DC  6012                      Bra.B     L3934
1D2DE  0080 7FFF 4000 L4213:     Or.L      #$7FFF4000, D0
1D2E4  28C0                      Move.L    D0, (A4)+
1D2E6  429C                      Clr.L     (A4)+
1D2E8  4254                      Clr       (A4)
1D2EA  518C                      SubQ      #$8, A4
1D2EC  6100 FD92                 Bsr       P800
1D2F0  486E FFFE      L3934:     Pea.L     $-2(A6)
1D2F4  3F3C 0019                 Move      #$19, -(A7)
1D2F8  A9EB                      _FP68K
1D2FA  2078 0ACC                 Move.L    (AppPacks.5), A0
1D2FE  10AE FFD0                 Move.B    $-30(A6), (A0)
1D302  4CDF 1FFF                 MoveM.L   (A7)+, D0-D7/A0-A4
1D306  4E5E                      Unlk      A6
1D308  DED7                      AddA      (A7), A7
1D30A  4E75                      Rts
1D30C  5301           E_1030:    SubQ      #$1, D1
1D30E  67A8                      BEQ.B     L4206
1D310  6E06                      BGT.B     L4214
1D312  4A41                      Tst       D1
1D314  6B96                      BMI.B     L4204
1D316  60D8                      Bra.B     L3934
1D318  0803 0001      L4214:     BTst.B    #$1, D3
1D31C  6704                      BEQ.B     L4215
1D31E  613A                      Bsr.B     P811
1D320  601E                      Bra.B     L4216
1D322  6100 0058      L4215:     Bsr       P812
1D326  6100 FD72                 Bsr       P804
1D32A  6714                      BEQ.B     L4216
1D32C  6100 FD56                 Bsr       P801
1D330  4A41                      Tst       D1
1D332  6A94                      BPL.B     L4209
1D334  6100 FD1A                 Bsr       P794
1D338  6100 FD3E                 Bsr       P798
1D33C  6000 FF6E                 Bra       L4204
1D340  6100 010E      L4216:     Bsr       P813
1D344  487A 09F2                 Pea.L     DT129
1D348  4854                      Pea.L     (A4)
1D34A  4267                      Clr       -(A7)
1D34C  A9EB                      _FP68K
1D34E  204C                      Move.L    A4, A0
1D350  43EE FFF0                 Lea.L     $-10(A6), A1
1D354  6100 FD5C                 Bsr       P807
1D358  6096                      Bra.B     L3934
1D35A  204C           P811:      Move.L    A4, A0
1D35C  43EE FFF0                 Lea.L     $-10(A6), A1
1D360  6100 FCB4                 Bsr       P770
1D364  4851                      Pea.L     (A1)
1D366  3F3C 0014                 Move      #$14, -(A7)
1D36A  A9EB                      _FP68K
1D36C  6100 FCEA                 Bsr       P796
1D370  4851                      Pea.L     (A1)
1D372  4854                      Pea.L     (A4)
1D374  3F3C 0002                 Move      #$2, -(A7)
1D378  A9EB                      _FP68K
1D37A  4E75                      Rts
1D37C  204C           P812:      Move.L    A4, A0
1D37E  43EE FFF0                 Lea.L     $-10(A6), A1
1D382  6100 FC92                 Bsr       P770
1D386  487A 0A78                 Pea.L     DT147
1D38A  2F17                      Move.L    (A7), -(A7)
1D38C  2F17                      Move.L    (A7), -(A7)
1D38E  4854                      Pea.L     (A4)
1D390  3F3C 000C                 Move      #$C, -(A7)
1D394  A9EB                      _FP68K
1D396  4854                      Pea.L     (A4)
1D398  4851                      Pea.L     (A1)
1D39A  3F3C 0002                 Move      #$2, -(A7)
1D39E  A9EB                      _FP68K
1D3A0  4851                      Pea.L     (A1)
1D3A2  3F3C 0006                 Move      #$6, -(A7)
1D3A6  A9EB                      _FP68K
1D3A8  4851                      Pea.L     (A1)
1D3AA  3F3C 0014                 Move      #$14, -(A7)
1D3AE  A9EB                      _FP68K
1D3B0  4854                      Pea.L     (A4)
1D3B2  3F3C 0006                 Move      #$6, -(A7)
1D3B6  A9EB                      _FP68K
1D3B8  6000 FC9E                 Bra       P796
1D3BC  5301           E_1031:    SubQ      #$1, D1
1D3BE  6E0E                      BGT.B     L4218
1D3C0  6700 0008                 BEQ       L4217
1D3C4  4A41                      Tst       D1
1D3C6  6B00 FEF6                 BMI       L4207
1D3CA  6000 FF24      L4217:     Bra       L3934
1D3CE  5301           L4218:     SubQ      #$1, D1
1D3D0  0803 0001                 BTst.B    #$1, D3
1D3D4  6720                      BEQ.B     L4221
1D3D6  4A01                      Tst.B     D1
1D3D8  6716                      BEQ.B     L4220
1D3DA  487A 0A24                 Pea.L     DT147
1D3DE  4854                      Pea.L     (A4)
1D3E0  3F3C 0004                 Move      #$4, -(A7)
1D3E4  A9EB                      _FP68K
1D3E6  6100 FC90      L4219:     Bsr       P798
1D3EA  6100 FC98                 Bsr       P801
1D3EE  605C                      Bra.B     L4223
1D3F0  6100 FF68      L4220:     Bsr       P811
1D3F4  601E                      Bra.B     L4222
1D3F6  4A01           L4221:     Tst.B     D1
1D3F8  66EC                      BNE.B     L4219
1D3FA  6180                      Bsr.B     P812
1D3FC  6100 FC9C                 Bsr       P804
1D400  6712                      BEQ.B     L4222
1D402  6100 FC80                 Bsr       P801
1D406  4A41                      Tst       D1
1D408  6A00 FEBE                 BPL       L4209
1D40C  6100 FC42                 Bsr       P794
1D410  6000 FEAC                 Bra       L4207
1D414  6100 003A      L4222:     Bsr       P813
1D418  487A 0932                 Pea.L     DT131
1D41C  486E FFF0                 Pea.L     $-10(A6)
1D420  3F3C 0008                 Move      #$8, -(A7)
1D424  A9EB                      _FP68K
1D426  6724                      BEQ.B     L4223
1D428  487A 090E                 Pea.L     DT129
1D42C  4854                      Pea.L     (A4)
1D42E  4267                      Clr       -(A7)
1D430  A9EB                      _FP68K
1D432  204C                      Move.L    A4, A0
1D434  43EE FFF0                 Lea.L     $-10(A6), A1
1D438  6100 FC78                 Bsr       P807
1D43C  487A 08FA                 Pea.L     DT129
1D440  4854                      Pea.L     (A4)
1D442  3F3C 0002                 Move      #$2, -(A7)
1D446  A9EB                      _FP68K
1D448  6100 FC02                 Bsr       P793
1D44C  6000 FEA2      L4223:     Bra       L3934
1D450  487A 08FA      P813:      Pea.L     DT131
1D454  4854                      Pea.L     (A4)
1D456  3F3C 0008                 Move      #$8, -(A7)
1D45A  A9EB                      _FP68K
1D45C  6602                      BNE.B     L4224
1D45E  4E75                      Rts
1D460  43EE FFDC      L4224:     Lea.L     $-24(A6), A1
1D464  204C                      Move.L    A4, A0
1D466  6100 FBAE                 Bsr       P770
1D46A  4851                      Pea.L     (A1)
1D46C  4851                      Pea.L     (A1)
1D46E  3F3C 0004                 Move      #$4, -(A7)
1D472  A9EB                      _FP68K
1D474  41EE FFE6                 Lea.L     $-1A(A6), A0
1D478  43FA 0874                 Lea.L     DT127, A1
1D47C  45EE FFDC                 Lea.L     $-24(A6), A2
1D480  6100 FB9E                 Bsr       P792
1D484  486E FFE6                 Pea.L     $-1A(A6)
1D488  4854                      Pea.L     (A4)
1D48A  3F3C 0004                 Move      #$4, -(A7)
1D48E  A9EB                      _FP68K
1D490  41EE FFE6                 Lea.L     $-1A(A6), A0
1D494  43FA 0882                 Lea.L     DT128, A1
1D498  45EE FFDC                 Lea.L     $-24(A6), A2
1D49C  6100 FB82                 Bsr       P792
1D4A0  4854                      Pea.L     (A4)
1D4A2  486E FFE6                 Pea.L     $-1A(A6)
1D4A6  3F3C 0002                 Move      #$2, -(A7)
1D4AA  A9EB                      _FP68K
1D4AC  487A 08B2                 Pea.L     DT133
1D4B0  4854                      Pea.L     (A4)
1D4B2  3F3C 0004                 Move      #$4, -(A7)
1D4B6  A9EB                      _FP68K
1D4B8  486E FFE6                 Pea.L     $-1A(A6)
1D4BC  4854                      Pea.L     (A4)
1D4BE  3F3C 0006                 Move      #$6, -(A7)
1D4C2  A9EB                      _FP68K
1D4C4  6100 FBBE                 Bsr       P801
1D4C8  6000 FB82                 Bra       P793
1D4CC  2044           E_1032:    Move.L    D4, A0
1D4CE  3410                      Move      (A0), D2
1D4D0  6700 FDE6                 BEQ       L4206
1D4D4  5301                      SubQ      #$1, D1
1D4D6  6E26                      BGT.B     L4227
1D4D8  E242                      AsR       #$1, D2
1D4DA  6504                      BCS.B     L4225
1D4DC  0894 0007                 BClr.B    #$7, (A4)
1D4E0  D542           L4225:     AddX      D2, D2
1D4E2  6A00 FE0C                 BPL       L3934
1D4E6  4A01                      Tst.B     D1
1D4E8  6A0A                      BPL.B     L4226
1D4EA  4A14                      Tst.B     (A4)
1D4EC  6A00 FDBE                 BPL       L4204
1D4F0  6000 FDC0                 Bra       L4205
1D4F4  4A14           L4226:     Tst.B     (A4)
1D4F6  6A00 FDCC                 BPL       L4208
1D4FA  6000 FDD2                 Bra       L4210
1D4FE  3002           L4227:     Move      D2, D0
1D500  6A02                      BPL.B     L4228
1D502  4440                      Neg       D0
1D504  0C40 00FF      L4228:     Cmp       #$FF, D0
1D508  6206                      BHI.B     L4229
1D50A  612C                      Bsr.B     P814
1D50C  6000 FDE2                 Bra       L3934
1D510  3F14           L4229:     Move      (A4), -(A7)
1D512  0894 0007                 BClr.B    #$7, (A4)
1D516  2F04                      Move.L    D4, -(A7)
1D518  486E FFF0                 Pea.L     $-10(A6)
1D51C  2817                      Move.L    (A7), D4
1D51E  3F3C 200E                 Move      #$200E, -(A7)
1D522  A9EB                      _FP68K
1D524  6100 0098                 Bsr       P816
1D528  301F                      Move      (A7)+, D0
1D52A  6A08                      BPL.B     L4230
1D52C  E242                      AsR       #$1, D2
1D52E  6404                      BCC.B     L4230
1D530  08D4 0007                 BSet.B    #$7, (A4)
1D534  6000 FDBA      L4230:     Bra       L3934
1D538  204C           P814:      Move.L    A4, A0
1D53A  43EE FFE6                 Lea.L     $-1A(A6), A1
1D53E  6100 FAD6                 Bsr       P770
1D542  614E                      Bsr.B     P815
1D544  4A42                      Tst       D2
1D546  6B08                      BMI.B     L4232
1D548  2049           L4231:     Move.L    A1, A0
1D54A  224C                      Move.L    A4, A1
1D54C  6000 FAC8                 Bra       P770
1D550  41FA 07E6      L4232:     Lea.L     DT129, A0
1D554  43D4                      Lea.L     (A4), A1
1D556  6100 FABE                 Bsr       P770
1D55A  6100 FB3A                 Bsr       P803
1D55E  6614                      BNE.B     L4233
1D560  6100 FB38                 Bsr       P804
1D564  660E                      BNE.B     L4233
1D566  486E FFF0                 Pea.L     $-10(A6)
1D56A  4854                      Pea.L     (A4)
1D56C  3F3C 0006                 Move      #$6, -(A7)
1D570  A9EB                      _FP68K
1D572  4E75                      Rts
1D574  6100 FADA      L4233:     Bsr       P794
1D578  6100 FAD2                 Bsr       P793
1D57C  486E FFE6                 Pea.L     $-1A(A6)
1D580  4854                      Pea.L     (A4)
1D582  3F3C 0006                 Move      #$6, -(A7)
1D586  A9EB                      _FP68K
1D588  3002                      Move      D2, D0
1D58A  6A02                      BPL.B     L4234
1D58C  4440                      Neg       D0
1D58E  6102           L4234:     Bsr.B     P815
1D590  60B6                      Bra.B     L4231
1D592  41FA 07A4      P815:      Lea.L     DT129, A0
1D596  43EE FFF0                 Lea.L     $-10(A6), A1
1D59A  6100 FA7A                 Bsr       P770
1D59E  600A                      Bra.B     L4236
1D5A0  4854           L4235:     Pea.L     (A4)
1D5A2  4854                      Pea.L     (A4)
1D5A4  3F3C 0004                 Move      #$4, -(A7)
1D5A8  A9EB                      _FP68K
1D5AA  E248           L4236:     LsR       #$1, D0
1D5AC  640A                      BCC.B     L4237
1D5AE  4854                      Pea.L     (A4)
1D5B0  4851                      Pea.L     (A1)
1D5B2  3F3C 0004                 Move      #$4, -(A7)
1D5B6  A9EB                      _FP68K
1D5B8  4A40           L4237:     Tst       D0
1D5BA  66E4                      BNE.B     L4235
1D5BC  4E75                      Rts
1D5BE  204C           P816:      Move.L    A4, A0
1D5C0  43EE FFE6                 Lea.L     $-1A(A6), A1
1D5C4  6100 FA50                 Bsr       P770
1D5C8  4851                      Pea.L     (A1)
1D5CA  3F3C 0002                 Move      #$2, -(A7)
1D5CE  6100 F95E                 Bsr       E_967
1D5D2  2F04                      Move.L    D4, -(A7)
1D5D4  4851                      Pea.L     (A1)
1D5D6  3F3C 0004                 Move      #$4, -(A7)
1D5DA  A9EB                      _FP68K
1D5DC  4851                      Pea.L     (A1)
1D5DE  3F3C 000A                 Move      #$A, -(A7)
1D5E2  6100 F94A                 Bsr       E_967
1D5E6  2049                      Move.L    A1, A0
1D5E8  224C                      Move.L    A4, A1
1D5EA  6000 FA2A                 Bra       P770
1D5EE  4A41           E_1033:    Tst       D1
1D5F0  6B14                      BMI.B     L4240
1D5F2  6100 0068                 Bsr       P817
1D5F6  6000 FCF8                 Bra       L3934
1D5FA  588F           L4238:     AddQ      #$4, A7
1D5FC  6100 FA5A      L4239:     Bsr       P796
1D600  7025                      MoveQ.L   #$25, D0
1D602  6000 FCDA                 Bra       L4213
1D606  4A02           L4240:     Tst.B     D2
1D608  67F2                      BEQ.B     L4239
1D60A  2044                      Move.L    D4, A0
1D60C  43EE FFF0                 Lea.L     $-10(A6), A1
1D610  6100 FA04                 Bsr       P770
1D614  4851                      Pea.L     (A1)
1D616  3F3C 0014                 Move      #$14, -(A7)
1D61A  A9EB                      _FP68K
1D61C  6100 FA84                 Bsr       P806
1D620  66DA                      BNE.B     L4239
1D622  487A 073C                 Pea.L     DT133
1D626  4851                      Pea.L     (A1)
1D628  3F3C 0006                 Move      #$6, -(A7)
1D62C  A9EB                      _FP68K
1D62E  4851                      Pea.L     (A1)
1D630  3F3C 0014                 Move      #$14, -(A7)
1D634  A9EB                      _FP68K
1D636  486E FFFA                 Pea.L     $-6(A6)
1D63A  3F3C 0003                 Move      #$3, -(A7)
1D63E  A9EB                      _FP68K
1D640  6100 FA16                 Bsr       P796
1D644  0894 0007                 BClr.B    #$7, (A4)
1D648  6100 0012                 Bsr       P817
1D64C  082E 0004 FFFA            BTst.B    #$4, $-6(A6)
1D652  6704                      BEQ.B     L4241
1D654  0854 0007                 BChg.B    #$7, (A4)
1D658  6000 FC96      L4241:     Bra       L3934
1D65C  5301           P817:      SubQ      #$1, D1
1D65E  661C                      BNE.B     L4244
1D660  5302                      SubQ      #$1, D2
1D662  6796                      BEQ.B     L4238
1D664  4A42                      Tst       D2
1D666  6A0A                      BPL.B     L4242
1D668  6100 FA12                 Bsr       P799
1D66C  41FA 0706                 Lea.L     DT135, A0
1D670  6004                      Bra.B     L4243
1D672  41FA 06D8      L4242:     Lea.L     DT131, A0
1D676  224C           L4243:     Move.L    A4, A1
1D678  6000 F99C                 Bra       P770
1D67C  6A08           L4244:     BPL.B     L4245
1D67E  5302                      SubQ      #$1, D2
1D680  6618                      BNE.B     L4246
1D682  6000 FF76                 Bra       L4238
1D686  5302           L4245:     SubQ      #$1, D2
1D688  6A10                      BPL.B     L4246
1D68A  487A 06AC                 Pea.L     DT129
1D68E  4854                      Pea.L     (A4)
1D690  3F3C 0008                 Move      #$8, -(A7)
1D694  A9EB                      _FP68K
1D696  6700 FF62                 BEQ       L4238
1D69A  3C02           L4246:     Move      D2, D6
1D69C  2F04                      Move.L    D4, -(A7)
1D69E  486E FFFC                 Pea.L     $-4(A6)
1D6A2  3F3C 2010                 Move      #$2010, -(A7)
1D6A6  A9EB                      _FP68K
1D6A8  6100 F9F4                 Bsr       P805
1D6AC  56C7                      SNE.B     D7
1D6AE  6100 F9A4                 Bsr       P795
1D6B2  6100 F9EE                 Bsr       P806
1D6B6  56C1                      SNE.B     D1
1D6B8  8E01                      Or.B      D1, D7
1D6BA  6612                      BNE.B     L4248
1D6BC  342E FFFC                 Move      $-4(A6), D2
1D6C0  3002                      Move      D2, D0
1D6C2  6A02                      BPL.B     L4247
1D6C4  4440                      Neg       D0
1D6C6  0C40 00FF      L4247:     Cmp       #$FF, D0
1D6CA  6F00 FE6C                 BLE       P814
1D6CE  6100 F988      L4248:     Bsr       P796
1D6D2  6100 FEEA                 Bsr       P816
1D6D6  4A06                      Tst.B     D6
1D6D8  6B00 F97E                 BMI       P796
1D6DC  4E75                      Rts
1D6DE  487A 0662      E_1034:    Pea.L     DT130
1D6E2  2F05                      Move.L    D5, -(A7)
1D6E4  3F3C 0008                 Move      #$8, -(A7)
1D6E8  A9EB                      _FP68K
1D6EA  6D00 0082                 BLT       L4256
1D6EE  6E00 0016                 BGT       L4252
1D6F2  5302                      SubQ      #$1, D2
1D6F4  6604                      BNE.B     L4250
1D6F6  6000 FBC0      L4249:     Bra       L4206
1D6FA  2044           L4250:     Move.L    D4, A0
1D6FC  4A10                      Tst.B     (A0)
1D6FE  6B00 FBC4                 BMI       L4208
1D702  6000 FBA8      L4251:     Bra       L4204
1D706  5302           L4252:     SubQ      #$1, D2
1D708  67EC                      BEQ.B     L4249
1D70A  6E0C                      BGT.B     L4253
1D70C  5301                      SubQ      #$1, D1
1D70E  675E                      BEQ.B     L4256
1D710  B541                      Eor       D2, D1
1D712  6BEE                      BMI.B     L4251
1D714  6000 FBB2                 Bra       L4209
1D718  43EE FFE6      L4253:     Lea.L     $-1A(A6), A1
1D71C  2045                      Move.L    D5, A0
1D71E  6100 F8F6                 Bsr       P770
1D722  3011                      Move      (A1), D0
1D724  0880 000F                 BClr.B    #$F, D0
1D728  0C40 3F7F                 Cmp       #$3F7F, D0
1D72C  6D1C                      BLT.B     L4254
1D72E  4851                      Pea.L     (A1)
1D730  3F3C 0006                 Move      #$6, -(A7)
1D734  6100 F7F8                 Bsr       E_967
1D738  2F04                      Move.L    D4, -(A7)
1D73A  4851                      Pea.L     (A1)
1D73C  3F3C 0004                 Move      #$4, -(A7)
1D740  A9EB                      _FP68K
1D742  4851                      Pea.L     (A1)
1D744  3F3C 000A                 Move      #$A, -(A7)
1D748  6010                      Bra.B     L4255
1D74A  2F04           L4254:     Move.L    D4, -(A7)
1D74C  4851                      Pea.L     (A1)
1D74E  3F3C 0004                 Move      #$4, -(A7)
1D752  A9EB                      _FP68K
1D754  4851                      Pea.L     (A1)
1D756  3F3C 0008                 Move      #$8, -(A7)
1D75A  6100 F8F0      L4255:     Bsr       P793
1D75E  6100 F7CE                 Bsr       E_967
1D762  2049                      Move.L    A1, A0
1D764  224C                      Move.L    A4, A1
1D766  6100 F8AE                 Bsr       P770
1D76A  6000 FB84                 Bra       L3934
1D76E  7026           L4256:     MoveQ.L   #$26, D0
1D770  6000 FB6C                 Bra       L4213
1D774  487A 05CC      E_1035:    Pea.L     DT130
1D778  2F05                      Move.L    D5, -(A7)
1D77A  3F3C 0008                 Move      #$8, -(A7)
1D77E  A9EB                      _FP68K
1D780  6DEC                      BLT.B     L4256
1D782  660E                      BNE.B     L4258
1D784  5302                      SubQ      #$1, D2
1D786  670E                      BEQ.B     L4259
1D788  4A42                      Tst       D2
1D78A  6A00 FB38                 BPL       L4208
1D78E  6000 FB2E      L4257:     Bra       L4207
1D792  5302           L4258:     SubQ      #$1, D2
1D794  6604                      BNE.B     L4260
1D796  6000 FB14      L4259:     Bra       L4204
1D79A  5301           L4260:     SubQ      #$1, D1
1D79C  6E28                      BGT.B     L4263
1D79E  6D0C                      BLT.B     L4262
1D7A0  224C           L4261:     Move.L    A4, A1
1D7A2  2044                      Move.L    D4, A0
1D7A4  6100 F870                 Bsr       P770
1D7A8  6000 FB46                 Bra       L3934
1D7AC  4A42           L4262:     Tst       D2
1D7AE  6AE6                      BPL.B     L4259
1D7B0  487A 0590                 Pea.L     DT130
1D7B4  2F04                      Move.L    D4, -(A7)
1D7B6  3F3C 0008                 Move      #$8, -(A7)
1D7BA  A9EB                      _FP68K
1D7BC  67D0                      BEQ.B     L4257
1D7BE  6E00 FAF2                 BGT       L4205
1D7C2  6000 FB0E                 Bra       L4211
1D7C6  4A02           L4263:     Tst.B     D2
1D7C8  6A26                      BPL.B     L4264
1D7CA  B541                      Eor       D2, D1
1D7CC  6BD2                      BMI.B     L4261
1D7CE  2045                      Move.L    D5, A0
1D7D0  43EE FFE6                 Lea.L     $-1A(A6), A1
1D7D4  6100 F840                 Bsr       P770
1D7D8  4851                      Pea.L     (A1)
1D7DA  224C                      Move.L    A4, A1
1D7DC  41FA 055A                 Lea.L     DT129, A0
1D7E0  6100 F834                 Bsr       P770
1D7E4  4851                      Pea.L     (A1)
1D7E6  3F3C 0006                 Move      #$6, -(A7)
1D7EA  A9EB                      _FP68K
1D7EC  6000 FB02                 Bra       L3934
1D7F0  43EE FFE6      L4264:     Lea.L     $-1A(A6), A1
1D7F4  2045                      Move.L    D5, A0
1D7F6  6100 F81E                 Bsr       P770
1D7FA  3011                      Move      (A1), D0
1D7FC  0880 000F                 BClr.B    #$F, D0
1D800  0C40 3F7F                 Cmp       #$3F7F, D0
1D804  6D2E                      BLT.B     L4266
1D806  4851                      Pea.L     (A1)
1D808  3F3C 0006                 Move      #$6, -(A7)
1D80C  6100 F720                 Bsr       E_967
1D810  2F04                      Move.L    D4, -(A7)
1D812  4851                      Pea.L     (A1)
1D814  3F3C 0004                 Move      #$4, -(A7)
1D818  A9EB                      _FP68K
1D81A  0851 0007                 BChg.B    #$7, (A1)
1D81E  0C51 4007                 Cmp       #$4007, (A1)
1D822  6D08                      BLT.B     L4265
1D824  2045                      Move.L    D5, A0
1D826  0C50 407F                 Cmp       #$407F, (A0)
1D82A  6C5C                      BGE.B     L4271
1D82C  4851           L4265:     Pea.L     (A1)
1D82E  3F3C 000E                 Move      #$E, -(A7)
1D832  6014                      Bra.B     L4267
1D834  2F04           L4266:     Move.L    D4, -(A7)
1D836  4851                      Pea.L     (A1)
1D838  3F3C 0004                 Move      #$4, -(A7)
1D83C  A9EB                      _FP68K
1D83E  0851 0007                 BChg.B    #$7, (A1)
1D842  4851                      Pea.L     (A1)
1D844  3F3C 000C                 Move      #$C, -(A7)
1D848  6100 F6E4      L4267:     Bsr       E_967
1D84C  0851 0007                 BChg.B    #$7, (A1)
1D850  2F05                      Move.L    D5, -(A7)
1D852  4851                      Pea.L     (A1)
1D854  3F3C 0006                 Move      #$6, -(A7)
1D858  A9EB                      _FP68K
1D85A  6100 F7F0      L4268:     Bsr       P793
1D85E  6100 F7F0                 Bsr       P794
1D862  2049                      Move.L    A1, A0
1D864  6100 F724                 Bsr       P769
1D868  5700                      SubQ      #$3, D0
1D86A  6606                      BNE.B     L4269
1D86C  6100 F806                 Bsr       P797
1D870  6008                      Bra.B     L4270
1D872  5500           L4269:     SubQ      #$2, D0
1D874  6704                      BEQ.B     L4270
1D876  6100 F800                 Bsr       P798
1D87A  41EE FFE6      L4270:     Lea.L     $-1A(A6), A0
1D87E  224C                      Move.L    A4, A1
1D880  6100 F794                 Bsr       P770
1D884  6000 FA6A                 Bra       L3934
1D888  2045           L4271:     Move.L    D5, A0
1D88A  6100 F78A                 Bsr       P770
1D88E  4851                      Pea.L     (A1)
1D890  3F3C 0002                 Move      #$2, -(A7)
1D894  6100 F698                 Bsr       E_967
1D898  43EE FFDC                 Lea.L     $-24(A6), A1
1D89C  2044                      Move.L    D4, A0
1D89E  6100 F776                 Bsr       P770
1D8A2  487A 0494                 Pea.L     DT129
1D8A6  4851                      Pea.L     (A1)
1D8A8  4267                      Clr       -(A7)
1D8AA  A9EB                      _FP68K
1D8AC  4851                      Pea.L     (A1)
1D8AE  43EE FFE6                 Lea.L     $-1A(A6), A1
1D8B2  4851                      Pea.L     (A1)
1D8B4  3F3C 0004                 Move      #$4, -(A7)
1D8B8  A9EB                      _FP68K
1D8BA  0851 0007                 BChg.B    #$7, (A1)
1D8BE  4851                      Pea.L     (A1)
1D8C0  3F3C 000A                 Move      #$A, -(A7)
1D8C4  6100 F668                 Bsr       E_967
1D8C8  0851 0007                 BChg.B    #$7, (A1)
1D8CC  608C                      Bra.B     L4268
1D8CE  7021           E_1036:    MoveQ.L   #$21, D0
1D8D0  7400                      MoveQ.L   #$0, D2
1D8D2  5301                      SubQ      #$1, D1
1D8D4  6700 FA1A                 BEQ       L3934
1D8D8  6B00 FA04      L4272:     BMI       L4213
1D8DC  614E                      Bsr.B     P818
1D8DE  0802 0000                 BTst.B    #$0, D2
1D8E2  6604                      BNE.B     L4273
1D8E4  6156                      Bsr.B     P819
1D8E6  6004                      Bra.B     L4274
1D8E8  6100 00B8      L4273:     Bsr       P822
1D8EC  0242 0003      L4274:     And       #$3, D2
1D8F0  5542                      SubQ      #$2, D2
1D8F2  6B04                      BMI.B     L4275
1D8F4  0854 0007                 BChg.B    #$7, (A4)
1D8F8  6100 F752      L4275:     Bsr       P793
1D8FC  6100 F786                 Bsr       P801
1D900  4854                      Pea.L     (A4)
1D902  486E FFFC                 Pea.L     $-4(A6)
1D906  3F3C 001C                 Move      #$1C, -(A7)
1D90A  A9EB                      _FP68K
1D90C  302E FFFC                 Move      $-4(A6), D0
1D910  6A02                      BPL.B     L4276
1D912  4440                      Neg       D0
1D914  5D40           L4276:     SubQ      #$6, D0
1D916  6604                      BNE.B     L4277
1D918  6100 F75E                 Bsr       P798
1D91C  6000 F9D2      L4277:     Bra       L3934
1D920  7021           E_1037:    MoveQ.L   #$21, D0
1D922  7401                      MoveQ.L   #$1, D2
1D924  5301                      SubQ      #$1, D1
1D926  66B0                      BNE.B     L4272
1D928  6000 F98E                 Bra       L4206
1D92C  487A 048C      P818:      Pea.L     DT142
1D930  4854                      Pea.L     (A4)
1D932  3F3C 000C                 Move      #$C, -(A7)
1D936  A9EB                      _FP68K
1D938  D440                      Add       D0, D2
1D93A  4E75                      Rts
1D93C  45FA 04EA      P819:      Lea.L     DT151, A2
1D940  612E                      Bsr.B     P821
1D942  4854                      Pea.L     (A4)
1D944  4852                      Pea.L     (A2)
1D946  3F3C 0004                 Move      #$4, -(A7)
1D94A  A9EB                      _FP68K
1D94C  4852                      Pea.L     (A2)
1D94E  4850                      Pea.L     (A0)
1D950  3F3C 0004                 Move      #$4, -(A7)
1D954  A9EB                      _FP68K
1D956  4850                      Pea.L     (A0)
1D958  4854                      Pea.L     (A4)
1D95A  3F3C 0002                 Move      #$2, -(A7)
1D95E  A9EB                      _FP68K
1D960  4E75                      Rts
1D962  610C           P820:      Bsr.B     P821
1D964  4852                      Pea.L     (A2)
1D966  4850                      Pea.L     (A0)
1D968  3F3C 0004                 Move      #$4, -(A7)
1D96C  A9EB                      _FP68K
1D96E  4E75                      Rts
1D970  204C           P821:      Move.L    A4, A0
1D972  43EE FFF0                 Lea.L     $-10(A6), A1
1D976  6100 F69E                 Bsr       P770
1D97A  4851                      Pea.L     (A1)
1D97C  4851                      Pea.L     (A1)
1D97E  3F3C 0004                 Move      #$4, -(A7)
1D982  A9EB                      _FP68K
1D984  C34A                      Exg.L     A1, A2
1D986  41EE FFDC                 Lea.L     $-24(A6), A0
1D98A  6100 F694                 Bsr       P792
1D98E  4850                      Pea.L     (A0)
1D990  41EE FFE6                 Lea.L     $-1A(A6), A0
1D994  6100 F68A                 Bsr       P792
1D998  4850                      Pea.L     (A0)
1D99A  3F3C 0006                 Move      #$6, -(A7)
1D99E  A9EB                      _FP68K
1D9A0  4E75                      Rts
1D9A2  45FA 04D8      P822:      Lea.L     DT152, A2
1D9A6  61BA                      Bsr.B     P820
1D9A8  4852                      Pea.L     (A2)
1D9AA  4850                      Pea.L     (A0)
1D9AC  3F3C 0004                 Move      #$4, -(A7)
1D9B0  A9EB                      _FP68K
1D9B2  487A 03DE                 Pea.L     DT138
1D9B6  4852                      Pea.L     (A2)
1D9B8  3F3C 0008                 Move      #$8, -(A7)
1D9BC  A9EB                      _FP68K
1D9BE  6E28                      BGT.B     L4278
1D9C0  487A 03DA                 Pea.L     DT139
1D9C4  4852                      Pea.L     (A2)
1D9C6  3F3C 0004                 Move      #$4, -(A7)
1D9CA  A9EB                      _FP68K
1D9CC  4852                      Pea.L     (A2)
1D9CE  4850                      Pea.L     (A0)
1D9D0  3F3C 0002                 Move      #$2, -(A7)
1D9D4  A9EB                      _FP68K
1D9D6  224C                      Move.L    A4, A1
1D9D8  6100 F63C                 Bsr       P770
1D9DC  487A 035A                 Pea.L     DT129
1D9E0  4854                      Pea.L     (A4)
1D9E2  4267                      Clr       -(A7)
1D9E4  A9EB                      _FP68K
1D9E6  4E75                      Rts
1D9E8  0894 0007      L4278:     BClr.B    #$7, (A4)
1D9EC  487A 03AE                 Pea.L     DT139
1D9F0  4854                      Pea.L     (A4)
1D9F2  3F3C 0002                 Move      #$2, -(A7)
1D9F6  A9EB                      _FP68K
1D9F8  4850                      Pea.L     (A0)
1D9FA  204C                      Move.L    A4, A0
1D9FC  224A                      Move.L    A2, A1
1D9FE  6100 F616                 Bsr       P770
1DA02  487A 0398                 Pea.L     DT139
1DA06  4851                      Pea.L     (A1)
1DA08  3F3C 0004                 Move      #$4, -(A7)
1DA0C  A9EB                      _FP68K
1DA0E  4851                      Pea.L     (A1)
1DA10  4854                      Pea.L     (A4)
1DA12  3F3C 0004                 Move      #$4, -(A7)
1DA16  A9EB                      _FP68K
1DA18  4854                      Pea.L     (A4)
1DA1A  3F3C 0002                 Move      #$2, -(A7)
1DA1E  A9EB                      _FP68K
1DA20  4851                      Pea.L     (A1)
1DA22  4854                      Pea.L     (A4)
1DA24  4267                      Clr       -(A7)
1DA26  A9EB                      _FP68K
1DA28  0854 0007                 BChg.B    #$7, (A4)
1DA2C  487A 0382                 Pea.L     DT141
1DA30  4854                      Pea.L     (A4)
1DA32  4267                      Clr       -(A7)
1DA34  A9EB                      _FP68K
1DA36  4E75                      Rts
1DA38  7021           E_1038:    MoveQ.L   #$21, D0
1DA3A  7400                      MoveQ.L   #$0, D2
1DA3C  5301                      SubQ      #$1, D1
1DA3E  6B00 F89E                 BMI       L4213
1DA42  6700 F8AC                 BEQ       L3934
1DA46  6100 FEE4                 Bsr       P818
1DA4A  6134                      Bsr.B     P823
1DA4C  E25A                      ROR       #$1, D2
1DA4E  642C                      BCC.B     L4279
1DA50  0854 0007                 BChg.B    #$7, (A4)
1DA54  204C                      Move.L    A4, A0
1DA56  43EE FFF0                 Lea.L     $-10(A6), A1
1DA5A  6100 F5BA                 Bsr       P770
1DA5E  4851                      Pea.L     (A1)
1DA60  41FA 02D6                 Lea.L     DT129, A0
1DA64  224C                      Move.L    A4, A1
1DA66  6100 F5AE                 Bsr       P770
1DA6A  4854                      Pea.L     (A4)
1DA6C  3F3C 0006                 Move      #$6, -(A7)
1DA70  A9EB                      _FP68K
1DA72  6100 F61E                 Bsr       P802
1DA76  6704                      BEQ.B     L4279
1DA78  0854 0007                 BChg.B    #$7, (A4)
1DA7C  6000 FE7A      L4279:     Bra       L4275
1DA80  45FA 044E      P823:      Lea.L     DT153, A2
1DA84  6100 FEDC                 Bsr       P820
1DA88  204C                      Move.L    A4, A0
1DA8A  43EE FFD2                 Lea.L     $-2E(A6), A1
1DA8E  6100 F586                 Bsr       P770
1DA92  4852                      Pea.L     (A2)
1DA94  4851                      Pea.L     (A1)
1DA96  3F3C 0004                 Move      #$4, -(A7)
1DA9A  A9EB                      _FP68K
1DA9C  4851                      Pea.L     (A1)
1DA9E  41EE FFE6                 Lea.L     $-1A(A6), A0
1DAA2  4850                      Pea.L     (A0)
1DAA4  3F3C 0004                 Move      #$4, -(A7)
1DAA8  A9EB                      _FP68K
1DAAA  487A 02E6                 Pea.L     DT138
1DAAE  4852                      Pea.L     (A2)
1DAB0  3F3C 0008                 Move      #$8, -(A7)
1DAB4  A9EB                      _FP68K
1DAB6  6E16                      BGT.B     L4280
1DAB8  487A 02CE                 Pea.L     DT137
1DABC  4851                      Pea.L     (A1)
1DABE  3F3C 0006                 Move      #$6, -(A7)
1DAC2  A9EB                      _FP68K
1DAC4  4851                      Pea.L     (A1)
1DAC6  4850                      Pea.L     (A0)
1DAC8  4267                      Clr       -(A7)
1DACA  A9EB                      _FP68K
1DACC  604A                      Bra.B     L4281
1DACE  4850           L4280:     Pea.L     (A0)
1DAD0  204C                      Move.L    A4, A0
1DAD2  43EE FFDC                 Lea.L     $-24(A6), A1
1DAD6  6100 F53E                 Bsr       P770
1DADA  487A 02CA                 Pea.L     DT140
1DADE  4851                      Pea.L     (A1)
1DAE0  3F3C 0002                 Move      #$2, -(A7)
1DAE4  A9EB                      _FP68K
1DAE6  487A 02A0                 Pea.L     DT137
1DAEA  4851                      Pea.L     (A1)
1DAEC  3F3C 0006                 Move      #$6, -(A7)
1DAF0  A9EB                      _FP68K
1DAF2  4852                      Pea.L     (A2)
1DAF4  4851                      Pea.L     (A1)
1DAF6  3F3C 0004                 Move      #$4, -(A7)
1DAFA  A9EB                      _FP68K
1DAFC  4851                      Pea.L     (A1)
1DAFE  4267                      Clr       -(A7)
1DB00  A9EB                      _FP68K
1DB02  487A 028E                 Pea.L     DT138
1DB06  4852                      Pea.L     (A2)
1DB08  3F3C 0004                 Move      #$4, -(A7)
1DB0C  A9EB                      _FP68K
1DB0E  4852                      Pea.L     (A2)
1DB10  4851                      Pea.L     (A1)
1DB12  4267                      Clr       -(A7)
1DB14  A9EB                      _FP68K
1DB16  2049                      Move.L    A1, A0
1DB18  4850           L4281:     Pea.L     (A0)
1DB1A  4854                      Pea.L     (A4)
1DB1C  4267                      Clr       -(A7)
1DB1E  A9EB                      _FP68K
1DB20  4E75                      Rts
1DB22  5301           E_1039:    SubQ      #$1, D1
1DB24  6C10                      BGE.B     L4282
1DB26  41FA 0292                 Lea.L     DT142, A0
1DB2A  224C                      Move.L    A4, A1
1DB2C  6100 F4E8                 Bsr       P770
1DB30  4201                      Clr.B     D1
1DB32  8354                      Or        D1, (A4)
1DB34  6002                      Bra.B     L4283
1DB36  6604           L4282:     BNE.B     L4284
1DB38  6000 F7B6      L4283:     Bra       L3934
1DB3C  0894 0007      L4284:     BClr.B    #$7, (A4)
1DB40  6108                      Bsr.B     P824
1DB42  4201                      Clr.B     D1
1DB44  8354                      Or        D1, (A4)
1DB46  6000 FDB0                 Bra       L4275
1DB4A  7400           P824:      MoveQ.L   #$0, D2
1DB4C  487A 01EA                 Pea.L     DT129
1DB50  4854                      Pea.L     (A4)
1DB52  3F3C 0008                 Move      #$8, -(A7)
1DB56  A9EB                      _FP68K
1DB58  6320                      BLS.B     L4285
1DB5A  74FF                      MoveQ.L   #$-1, D2
1DB5C  204C                      Move.L    A4, A0
1DB5E  43EE FFF0                 Lea.L     $-10(A6), A1
1DB62  6100 F4B2                 Bsr       P770
1DB66  4851                      Pea.L     (A1)
1DB68  41FA 01CE                 Lea.L     DT129, A0
1DB6C  224C                      Move.L    A4, A1
1DB6E  6100 F4A6                 Bsr       P770
1DB72  4851                      Pea.L     (A1)
1DB74  3F3C 0006                 Move      #$6, -(A7)
1DB78  A9EB                      _FP68K
1DB7A  2F1C           L4285:     Move.L    (A4)+, -(A7)
1DB7C  2F1C                      Move.L    (A4)+, -(A7)
1DB7E  3F14                      Move      (A4), -(A7)
1DB80  518C                      SubQ      #$8, A4
1DB82  487A 029A                 Pea.L     DT150
1DB86  4854                      Pea.L     (A4)
1DB88  3F3C 0008                 Move      #$8, -(A7)
1DB8C  A9EB                      _FP68K
1DB8E  6E16                      BGT.B     L4286
1DB90  45FA 0392                 Lea.L     DT154, A2
1DB94  6100 FDDA                 Bsr       P821
1DB98  4850                      Pea.L     (A0)
1DB9A  4854                      Pea.L     (A4)
1DB9C  3F3C 0004                 Move      #$4, -(A7)
1DBA0  A9EB                      _FP68K
1DBA2  6000 0098                 Bra       L4287
1DBA6  204C           L4286:     Move.L    A4, A0
1DBA8  43EE FFF0                 Lea.L     $-10(A6), A1
1DBAC  6100 F468                 Bsr       P770
1DBB0  487A 0258                 Pea.L     DT148
1DBB4  4851                      Pea.L     (A1)
1DBB6  3F3C 0004                 Move      #$4, -(A7)
1DBBA  A9EB                      _FP68K
1DBBC  4851                      Pea.L     (A1)
1DBBE  41FA 0178                 Lea.L     DT129, A0
1DBC2  43EE FFDC                 Lea.L     $-24(A6), A1
1DBC6  6100 F44E                 Bsr       P770
1DBCA  4851                      Pea.L     (A1)
1DBCC  3F3C 0006                 Move      #$6, -(A7)
1DBD0  A9EB                      _FP68K
1DBD2  487A 0164                 Pea.L     DT129
1DBD6  4851                      Pea.L     (A1)
1DBD8  4267                      Clr       -(A7)
1DBDA  A9EB                      _FP68K
1DBDC  487A 015A                 Pea.L     DT129
1DBE0  486E FFF0                 Pea.L     $-10(A6)
1DBE4  4267                      Clr       -(A7)
1DBE6  A9EB                      _FP68K
1DBE8  487A 0220                 Pea.L     DT148
1DBEC  4854                      Pea.L     (A4)
1DBEE  3F3C 0002                 Move      #$2, -(A7)
1DBF2  A9EB                      _FP68K
1DBF4  204C                      Move.L    A4, A0
1DBF6  43EE FFD2                 Lea.L     $-2E(A6), A1
1DBFA  6100 F41A                 Bsr       P770
1DBFE  486E FFF0                 Pea.L     $-10(A6)
1DC02  4854                      Pea.L     (A4)
1DC04  3F3C 0006                 Move      #$6, -(A7)
1DC08  A9EB                      _FP68K
1DC0A  486E FFDC                 Pea.L     $-24(A6)
1DC0E  4851                      Pea.L     (A1)
1DC10  3F3C 0006                 Move      #$6, -(A7)
1DC14  A9EB                      _FP68K
1DC16  45FA 030C                 Lea.L     DT154, A2
1DC1A  6100 FD54                 Bsr       P821
1DC1E  4850                      Pea.L     (A0)
1DC20  4854                      Pea.L     (A4)
1DC22  3F3C 0004                 Move      #$4, -(A7)
1DC26  A9EB                      _FP68K
1DC28  487A 01EA                 Pea.L     DT149
1DC2C  4854                      Pea.L     (A4)
1DC2E  4267                      Clr       -(A7)
1DC30  A9EB                      _FP68K
1DC32  486E FFD2                 Pea.L     $-2E(A6)
1DC36  4854                      Pea.L     (A4)
1DC38  4267                      Clr       -(A7)
1DC3A  A9EB                      _FP68K
1DC3C  43EE FFF8      L4287:     Lea.L     $-8(A6), A1
1DC40  329F                      Move      (A7)+, (A1)
1DC42  231F                      Move.L    (A7)+, -(A1)
1DC44  231F                      Move.L    (A7)+, -(A1)
1DC46  4851                      Pea.L     (A1)
1DC48  4854                      Pea.L     (A4)
1DC4A  3F3C 0002                 Move      #$2, -(A7)
1DC4E  A9EB                      _FP68K
1DC50  4A42                      Tst       D2
1DC52  6606                      BNE.B     L4288
1DC54  0854 0007                 BChg.B    #$7, (A4)
1DC58  4E75                      Rts
1DC5A  487A 015E      L4288:     Pea.L     DT142
1DC5E  4854                      Pea.L     (A4)
1DC60  4267                      Clr       -(A7)
1DC62  A9EB                      _FP68K
1DC64  4E75                      Rts
1DC66  487A 0166      E_1040:    Pea.L     DT143
1DC6A  4854                      Pea.L     (A4)
1DC6C  3F3C 0004                 Move      #$4, -(A7)
1DC70  A9EB                      _FP68K
1DC72  487A 0164                 Pea.L     DT144
1DC76  4854                      Pea.L     (A4)
1DC78  3F3C 000C                 Move      #$C, -(A7)
1DC7C  A9EB                      _FP68K
1DC7E  4A14                      Tst.B     (A4)
1DC80  6A0A                      BPL.B     L4289
1DC82  487A 0154                 Pea.L     DT144
1DC86  4854                      Pea.L     (A4)
1DC88  4267                      Clr       -(A7)
1DC8A  A9EB                      _FP68K
1DC8C  6000 F662      L4289:     Bra       L3934
1DC90  0005 3FF6 B946 DT125:     DC.B      '  ?  F'
1DC96  46AF F6CE 3BFF            DC.B      'F   ; '
1DC9C  3FF9 94F4 3221            DC.B      '?   2!'
1DCA2  4D61 FBEB 3FFB            DC.B      'Ma  ? '
1DCA8  DC97 8903 D944            DC.B      '     D'
1DCAE  7893 3FFF 9F9E            DC.B      'x ?   '
1DCB4  3946 57CA 1D05            DC.B      '9FW   '
1DCBA  C001 CD6B C53A            DC.B      '   k :'
1DCC0  46EC DC9A 4001            DC.B      'F   @ '
1DCC6  B483 97E7 BAE6            DC.B      '      '
1DCCC  FCE0                      DC.B      '  '
1DCCE  0002 3FFF 8000 DT126:     DC.B      '  ?   '
1DCD4  0000 0000 0000            DC.B      '      '
1DCDA  C000 B818 35C3            DC.B      '    5 '
1DCE0  CE0A 5E1D 3FFF            DC.B      '  ^ ? '
1DCE6  FA3E DF0E DDF4            DC.B      ' >    '
1DCEC  1A96                      DC.B      '  '
1DCEE  0003 BFEE FF88 DT127:     DC.B      '      '
1DCF4  90C8 1B20 9B79            DC.B      '     y'
1DCFA  3FF9 DA5C 84EF            DC.B      '?  \  '
1DD00  B813 272F 4003            DC.B      '  '/@ '
1DD06  97D3 BAEA F80F            DC.B      '      '
1DD0C  FD45 4009 AB86            DC.B      ' E@   '
1DD12  71A1 95BE FF0C            DC.B      'q     '
1DD18  0002 3FFF 8000 DT128:     DC.B      '  ?   '
1DD1E  0000 0000 0000            DC.B      '      '
1DD24  4006 D548 7002            DC.B      '@  Hp '
1DD2A  984B 5AB4 400A            DC.B      ' KZ @ '
1DD30  F775 612E 96B7            DC.B      ' ua.  '
1DD36  0780                      DC.B      '  '
1DD38  3FFF 8000 0000 DT129:     DC.B      '?     '
1DD3E  0000 0000                 DC.B      '    '
1DD42  BFFF 8000 0000 DT130:     DC.B      '      '
1DD48  0000 0000                 DC.B      '    '
1DD4C  0000 0000 0000 DT131:     DC.B      '      '
1DD52  0000 0000                 DC.B      '    '
1DD56  8000 0000 0000 DT132:     DC.B      '      '
1DD5C  0000 0000                 DC.B      '    '
1DD60  4000 8000 0000 DT133:     DC.B      '@     '
1DD66  0000 0000                 DC.B      '    '
1DD6A  400D FFFE 0000 DT134:     DC.B      '@     '
1DD70  0000 0000                 DC.B      '    '
1DD74  7FFF 0000 0000 DT135:     DC.B      '      '
1DD7A  0000 0000                 DC.B      '    '
1DD7E  FFFF 0000 0000 DT136:     DC.B      '      '
1DD84  0000 0000                 DC.B      '    '
1DD88  4000 C000 0000 DT137:     DC.B      '@     '
1DD8E  0000 0000                 DC.B      '    '
1DD92  3FFD 8000 0000 DT138:     DC.B      '?     '
1DD98  0000 0000                 DC.B      '    '
1DD9C  3FFE 8000 0000 DT139:     DC.B      '?     '
1DDA2  0000 0000                 DC.B      '    '
1DDA6  3FFE C000 0000 DT140:     DC.B      '?     '
1DDAC  0000 0000                 DC.B      '    '
1DDB0  3FFE E000 0000 DT141:     DC.B      '?     '
1DDB6  0000 0000                 DC.B      '    '
1DDBA  3FFF C90F DAA2 DT142:     DC.B      '?     '
1DDC0  2168 C235 3FFE            DC.B      '!h 5? '
1DDC6  C90F DAA2 2168            DC.B      '    !h'
1DDCC  C235                      DC.B      ' 5'
1DDCE  400D 834E 0000 DT143:     DC.B      '@  N  '
1DDD4  0000 0000                 DC.B      '    '
1DDD8  401D FFFF FFFE DT144:     DC.B      '@     '
1DDDE  0000 0000                 DC.B      '    '
1DDE2  3FFF B504 F333 DT145:     DC.B      '?    3'
1DDE8  F9DE 6484                 DC.B      '  d '
1DDEC  3FFE B504 F333 DT146:     DC.B      '?    3'
1DDF2  F9DE 6484 4000            DC.B      '  d @ '
1DDF8  ADF8 5458 A2BB            DC.B      '  TX  '
1DDFE  4A9B                      DC.B      'J '
1DE00  3FFE B172 17F7 DT147:     DC.B      '?  r  '
1DE06  D1CF 79AC                 DC.B      '  y '
1DE0A  3FFE 93CD 3A2C DT148:     DC.B      '?   :,'
1DE10  8198 E26A                 DC.B      '   j'
1DE14  3FFA DC2A 86B1 DT149:     DC.B      '?  *  '
1DE1A  5FDB 6462                 DC.B      '_ db'
1DE1E  3FFD 8930 A2F4 DT150:     DC.B      '?  0  '
1DE24  F66A B18A                 DC.B      ' j  '
1DE28  0003 3FFF 8000 DT151:     DC.B      '  ?   '
1DE2E  0000 0000 0000            DC.B      '      '
1DE34  4007 88D8 B844            DC.B      '@    D'
1DE3A  A6A8 5A30 400E            DC.B      '  Z0@ '
1DE40  8A15 8A49 0979            DC.B      '   I y'
1DE46  2320 4013 FAA9            DC.B      '# @   '
1DE4C  FE26 FE63 F22B            DC.B      ' & c +'
1DE52  0003 BFFE C250            DC.B      '     P'
1DE58  86AE 43F5 CBF5            DC.B      '  C   '
1DE5E  4006 9E76 EC66            DC.B      '@  v f'
1DE64  BEE7 6BA2 C00C            DC.B      '  k   '
1DE6A  AF51 A1D6 C4C4            DC.B      ' Q    '
1DE70  AA01 4011 A71B            DC.B      '  @   '
1DE76  FEC4 A997 F6CE            DC.B      '      '
1DE7C  0003 3FFF 8000 DT152:     DC.B      '  ?   '
1DE82  0000 0000 0000            DC.B      '      '
1DE88  4007 A6D9 6A95            DC.B      '@   j '
1DE8E  FBDF 9685 400E            DC.B      '    @ '
1DE94  C7A7 EA65 E85D            DC.B      '   e ]'
1DE9A  156B 4014 D26E            DC.B      ' k@  n'
1DEA0  871C 7B17 52B2            DC.B      '  { R '
1DEA6  0003 BFFB D57E            DC.B      '     ~'
1DEAC  18D7 A6F6 D758            DC.B      '     X'
1DEB2  4003 E364 937E            DC.B      '@  d ~'
1DEB8  32B3 D072 C00A            DC.B      '2  r  '
1DEBE  A62D 4056 586B            DC.B      ' -@VXk'
1DEC4  C045 4010 8C49            DC.B      ' E@  I'
1DECA  AF68 520F 8C7A            DC.B      ' hR  z'
1DED0  0003 BFFF 8000 DT153:     DC.B      '      '
1DED6  0000 0000 0000            DC.B      '      '
1DEDC  4005 B513 0324            DC.B      '@    $'
1DEE2  83C0 0955 C009            DC.B      '   U  '
1DEE8  D1FF B242 5762            DC.B      '   BWb'
1DEEE  E0CF 400A E190            DC.B      '  @   '
1DEF4  9309 9376 66AB            DC.B      '   vf '
1DEFA  0003 BFE9 B1FC            DC.B      '      '
1DF00  3363 D79B 2838            DC.B      '3c  (8'
1DF06  3FFD AA9D 71D8            DC.B      '?   q '
1DF0C  3EC7 4CD1 C003            DC.B      '> L   '
1DF12  E9CD 8E24 B965            DC.B      '   $ e'
1DF18  7DBB 4007 F09A            DC.B      '} @   '
1DF1E  3670 9D4B 1836            DC.B      '6p K 6'
1DF24  0004 3FFF 98D3 DT154:     DC.B      '  ?   '
1DF2A  1EAE 2AFA 5DAD            DC.B      '  * ] '
1DF30  4003 8F79 4CD8            DC.B      '@  yL '
1DF36  B3CD EFD9 4005            DC.B      '    @ '
1DF3C  8E37 ED85 70B8            DC.B      ' 7  p '
1DF42  B368 4005 CDA4            DC.B      ' h@   '
1DF48  BEA1 AC59 F3B8            DC.B      '   Y  '
1DF4E  4004 C405 9C55            DC.B      '@    U'
1DF54  4CF0 C656 0004            DC.B      'L  V  '
1DF5A  3FFF 8000 0000            DC.B      '?     '
1DF60  0000 0000 4002            DC.B      '    @ '
1DF66  A23B 6C13 1F92            DC.B      ' ;l   '
1DF6C  0E30 4003 C3C8            DC.B      ' 0@   '
1DF72  593D FA3A 486F            DC.B      'Y= :Ho'
1DF78  4003 82AE 6838            DC.B      '@   h8'
1DF7E  DDF5 D945 0000            DC.B      '   E  '
1DF84  0000 0000 0000            DC.B      '      '
1DF8A  0000                      DC.B      '  '
                      ; end of resource : 'PACK' 5

                      ; resource header
1DF8C  C000 11C0                 DC.L      $C00011C0       ; Length
1DF90  0000 007C                 DC.L      $0000007C       ; ?
                      ; resource : 'PACK' 4
                      ; Floating-Point Arithmetic Package
1DF94  600A           E_968:     Bra.B     L3935
1DF96  0000 5041 434B            DC.B      '  PACK'
1DF9C  0004 0002                 DC.B      '    '
1DFA0  4E56 FFFE      L3935:     Link      A6, #$-2
1DFA4  48E7 FFF8                 MoveM.L   D0-D7/A0-A4, -(A7)
1DFA8  307C 0A4A                 Move      #$A4A, A0
1DFAC  6026                      Bra.B     L3936
1DFAE  00E1 00E1 00E1 DT111:     DC.B      '      '
1DFB4  00E1 00C1 00C1            DC.B      '      '
1DFBA  00E1 0061 0161            DC.B      '   a a'
1DFC0  00A0 00A0 00A0            DC.B      '      '
1DFC6  00A1 00A0 0041            DC.B      '     A'
1DFCC  4E56 FFFE      P783:      Link      A6, #$-2
1DFD0  48E7 FFF8                 MoveM.L   D0-D7/A0-A4, -(A7)
1DFD4  3C2E 0008      L3936:     Move      $8(A6), D6
1DFD8  7E1E                      MoveQ.L   #$1E, D7
1DFDA  CE46                      And       D6, D7
1DFDC  0886 0000                 BClr.B    #$0, D6
1DFE0  6600 09EA                 BNE       L3957
1DFE4  08A8 0007 0001            BClr.B    #$7, $1(A0)
1DFEA  8C7B 70C2                 Or        DT111(D7.W), D6
1DFEE  7060                      MoveQ.L   #$60, D0
1DFF0  C028 0001                 And.B     $1(A0), D0
1DFF4  EE58                      ROR       #$7, D0
1DFF6  8C40                      Or        D0, D6
1DFF8  0806 0008                 BTst.B    #$8, D6
1DFFC  6714                      BEQ.B     L3937
1DFFE  3006                      Move      D6, D0
1E000  0246 00FF                 And       #$FF, D6
1E004  0240 3800                 And       #$3800, D0
1E008  3200                      Move      D0, D1
1E00A  E749                      LsL       #$3, D1
1E00C  E658                      ROR       #$3, D0
1E00E  8C40                      Or        D0, D6
1E010  8C41                      Or        D1, D6
1E012  4846           L3937:     Swap      D6
1E014  4282                      Clr.L     D2
1E016  2602                      Move.L    D2, D3
1E018  3C02                      Move      D2, D6
1E01A  0806 0017                 BTst.B    #$17, D6
1E01E  670E                      BEQ.B     L3938
1E020  2006                      Move.L    D6, D0
1E022  4840                      Swap      D0
1E024  EE58                      ROR       #$7, D0
1E026  266E 000A                 Move.L    $A(A6), A3
1E02A  6100 00CA                 Bsr       P771
1E02E  0806 0016      L3938:     BTst.B    #$16, D6
1E032  6720                      BEQ.B     L3939
1E034  2244                      Move.L    D4, A1
1E036  2445                      Move.L    D5, A2
1E038  2F0C                      Move.L    A4, -(A7)
1E03A  E21E                      ROR.B     #$1, D6
1E03C  D442                      Add       D2, D2
1E03E  3003                      Move      D3, D0
1E040  D643                      Add       D3, D3
1E042  D640                      Add       D0, D3
1E044  2006                      Move.L    D6, D0
1E046  4840                      Swap      D0
1E048  ED58                      ROL       #$6, D0
1E04A  266E 000E                 Move.L    $E(A6), A3
1E04E  6100 00A6                 Bsr       P771
1E052  265F                      Move.L    (A7)+, A3
1E054  E306           L3939:     AsL.B     #$1, D6
1E056  6804                      BVC.B     L3940
1E058  08C6 0006                 BSet.B    #$6, D6
1E05C  E216           L3940:     RXR.B     #$1, D6
1E05E  3007                      Move      D7, D0
1E060  4287                      Clr.L     D7
1E062  487A 002E                 Pea.L     DT114
1E066  4A42                      Tst       D2
1E068  6600 01DC                 BNE       L3941
1E06C  303B 0006      DT112:     Move      DT113(D0.W), D0
1E070  4EFB 00FA                 Jmp       DT112(D0.W)
                      ; Jump Table
1E074  04BC 04B8 0556 DT113:     DC.B      '     V'
1E07A  05F6 070C 070C            DC.B      '      '
1E080  068E 0778 07EC            DC.B      '   x  '
1E086  0854 0780 078C            DC.B      ' T    '
1E08C  0930 08FA 0940            DC.B      ' 0   @'
1E092  0806 0015      DT114:     BTst.B    #$15, D6
1E096  670A                      BEQ.B     L4032
1E098  2006                      Move.L    D6, D0
1E09A  4840                      Swap      D0
1E09C  EE58                      ROR       #$7, D0
1E09E  6100 03C0                 Bsr       P780
1E0A2  4847           L4032:     Swap      D7
1E0A4  3010                      Move      (A0), D0
1E0A6  4206                      Clr.B     D6
1E0A8  8046                      Or        D6, D0
1E0AA  30C0                      Move      D0, (A0)+
1E0AC  E05E                      ROR       #$8, D6
1E0AE  C046                      And       D6, D0
1E0B0  6718                      BEQ.B     L4033
1E0B2  3F07                      Move      D7, -(A7)
1E0B4  3F00                      Move      D0, -(A7)
1E0B6  4857                      Pea.L     (A7)
1E0B8  4CEE 000F 0006            MoveM.L   $6(A6), D0-D3
1E0BE  48E7 F000                 MoveM.L   D0-D3, -(A7)
1E0C2  548F                      AddQ      #$2, A7
1E0C4  2050                      Move.L    (A0), A0
1E0C6  4E90                      Jsr       (A0)
1E0C8  2E1F                      Move.L    (A7)+, D7
1E0CA  0806 0010      L4033:     BTst.B    #$10, D6
1E0CE  6706                      BEQ.B     L4034
1E0D0  7010           L4093:     MoveQ.L   #$10, D0
1E0D2  720E                      MoveQ.L   #$E, D1
1E0D4  6004                      Bra.B     L4035
1E0D6  700C           L4034:     MoveQ.L   #$C, D0
1E0D8  720A                      MoveQ.L   #$A, D1
1E0DA  3D40 FFFE      L4035:     Move      D0, $-2(A6)
1E0DE  2DAE 0004 1000            Move.L    $4(A6), $0(A6,D1.W)
1E0E4  2C56                      Move.L    (A6), A6
1E0E6  44C7                      Move      D7, CCR
1E0E8  4CDF 1FFF                 MoveM.L   (A7)+, D0-D7/A0-A4
1E0EC  DED7                      AddA      (A7), A7
1E0EE  4E75                      Rts
1E0F0  7014           L4094:     MoveQ.L   #$14, D0
1E0F2  7212                      MoveQ.L   #$12, D1
1E0F4  60E4                      Bra.B     L4035
1E0F6  4284           P771:      Clr.L     D4
1E0F8  2A04                      Move.L    D4, D5
1E0FA  0240 000E                 And       #$E, D0
1E0FE  303B 0006                 Move      DT115(D0.W), D0
1E102  4EFB 00F2                 Jmp       P771(D0.W)
                      ; Jump Table
1E106  0068 00F2 00C8 DT115:     DC.B      ' h    '
1E10C  0068 001E 0026            DC.B      ' h   &'
1E112  002C                      DC.B      ' ,'
1E114  700F           E_984:     MoveQ.L   #$F, D0
1E116  3813                      Move      (A3), D4
1E118  4844                      Swap      D4
1E11A  602A                      Bra.B     L4037
1E11C  701F           E_985:     MoveQ.L   #$1F, D0
1E11E  2813                      Move.L    (A3), D4
1E120  6024                      Bra.B     L4037
1E122  703F           E_986:     MoveQ.L   #$3F, D0
1E124  2813                      Move.L    (A3), D4
1E126  2A2B 0004                 Move.L    $4(A3), D5
1E12A  6704                      BEQ.B     L4036
1E12C  4A84                      Tst.L     D4
1E12E  601A                      Bra.B     L4038
1E130  0C84 8000 0000 L4036:     Cmp.L     #$80000000, D4
1E136  660E                      BNE.B     L4037
1E138  387C 7FFF                 Move      #$7FFF, A4
1E13C  7814                      MoveQ.L   #$14, D4
1E13E  4844                      Swap      D4
1E140  08C4 001E                 BSet.B    #$1E, D4
1E144  606A                      Bra.B     L4047
1E146  4A84           L4037:     Tst.L     D4
1E148  673A                      BEQ.B     L4042
1E14A  6A08           L4038:     BPL.B     L4039
1E14C  08C6 0007                 BSet.B    #$7, D6
1E150  4485                      Neg.L     D5
1E152  4084                      NegX.L    D4
1E154  0640 3FFF      L4039:     Add       #$3FFF, D0
1E158  4A84                      Tst.L     D4
1E15A  6B3A                      BMI.B     L4045
1E15C  6030                      Bra.B     L4044
1E15E  3013           E_987:     Move      (A3), D0
1E160  6A08                      BPL.B     L4040
1E162  08C6 0007                 BSet.B    #$7, D6
1E166  0880 000F                 BClr.B    #$F, D0
1E16A  282B 0002      L4040:     Move.L    $2(A3), D4
1E16E  2A2B 0006                 Move.L    $6(A3), D5
1E172  0C40 7FFF                 Cmp       #$7FFF, D0
1E176  6724                      BEQ.B     L4046
1E178  4A84                      Tst.L     D4
1E17A  6B1A                      BMI.B     L4045
1E17C  4A84           L4041:     Tst.L     D4
1E17E  660A                      BNE.B     L4043
1E180  4A85                      Tst.L     D5
1E182  6606                      BNE.B     L4043
1E184  99CC           L4042:     SubA.L    A4, A4
1E186  5443                      AddQ      #$2, D3
1E188  4E75                      Rts
1E18A  08C3 001F      L4043:     BSet.B    #$1F, D3
1E18E  5340           L4044:     SubQ      #$1, D0
1E190  DA85                      Add.L     D5, D5
1E192  D984                      AddX.L    D4, D4
1E194  6AF8                      BPL.B     L4044
1E196  48C0           L4045:     Ext.L     D0
1E198  2840                      Move.L    D0, A4
1E19A  4E75                      Rts
1E19C  387C 7FFF      L4046:     Move      #$7FFF, A4
1E1A0  0884 001F                 BClr.B    #$1F, D4
1E1A4  4A84                      Tst.L     D4
1E1A6  6608                      BNE.B     L4047
1E1A8  4A85                      Tst.L     D5
1E1AA  6604                      BNE.B     L4047
1E1AC  5843                      AddQ      #$4, D3
1E1AE  4E75                      Rts
1E1B0  08C4 001E      L4047:     BSet.B    #$1E, D4
1E1B4  6604                      BNE.B     L4048
1E1B6  08C6 0008                 BSet.B    #$8, D6
1E1BA  5442           L4048:     AddQ      #$2, D2
1E1BC  4E75                      Rts
1E1BE  4280           E_988:     Clr.L     D0
1E1C0  2813                      Move.L    (A3), D4
1E1C2  DC06                      Add.B     D6, D6
1E1C4  D884                      Add.L     D4, D4
1E1C6  E216                      RXR.B     #$1, D6
1E1C8  E19C                      ROL.L     #$8, D4
1E1CA  1004                      Move.B    D4, D0
1E1CC  6712                      BEQ.B     L4049
1E1CE  183C 0001                 Move.B    #$1, D4
1E1D2  E29C                      ROR.L     #$1, D4
1E1D4  0C00 00FF                 Cmp.B     #$-1, D0
1E1D8  67C2                      BEQ.B     L4046
1E1DA  0640 3F80                 Add       #$3F80, D0
1E1DE  60B6                      Bra.B     L4045
1E1E0  303C 3F81      L4049:     Move      #$3F81, D0
1E1E4  E29C                      ROR.L     #$1, D4
1E1E6  6094                      Bra.B     L4041
1E1E8  2813           E_989:     Move.L    (A3), D4
1E1EA  6A04                      BPL.B     L4050
1E1EC  08C6 0007                 BSet.B    #$7, D6
1E1F0  2A2B 0004      L4050:     Move.L    $4(A3), D5
1E1F4  E19D                      ROL.L     #$8, D5
1E1F6  E79D                      ROL.L     #$3, D5
1E1F8  E19C                      ROL.L     #$8, D4
1E1FA  E99C                      ROL.L     #$4, D4
1E1FC  3004                      Move      D4, D0
1E1FE  E28C                      LsR.L     #$1, D4
1E200  0244 F800                 And       #$-800, D4
1E204  3205                      Move      D5, D1
1E206  0241 07FF                 And       #$7FF, D1
1E20A  8841                      Or        D1, D4
1E20C  0245 F800                 And       #$-800, D5
1E210  0240 07FF                 And       #$7FF, D0
1E214  6608                      BNE.B     L4051
1E216  303C 3C01                 Move      #$3C01, D0
1E21A  6000 FF60                 Bra       L4041
1E21E  0C40 07FF      L4051:     Cmp       #$7FF, D0
1E222  6700 FF78                 BEQ       L4046
1E226  08C4 001F                 BSet.B    #$1F, D4
1E22A  0640 3C00                 Add       #$3C00, D0
1E22E  6000 FF66                 Bra       L4045
1E232  08C6 0008      L3977:     BSet.B    #$8, D6
1E236  4840                      Swap      D0
1E238  08C0 001E                 BSet.B    #$1E, D0
1E23C  2800                      Move.L    D0, D4
1E23E  4285                      Clr.L     D5
1E240  387C 7FFF                 Move      #$7FFF, A4
1E244  6024                      Bra.B     L3943
1E246  0C42 0002      L3941:     Cmp       #$2, D2
1E24A  671E                      BEQ.B     L3943
1E24C  0C42 0004                 Cmp       #$4, D2
1E250  6710                      BEQ.B     L3942
1E252  203C 00FF 0000            Move.L    #$FF0000, D0
1E258  2209                      Move.L    A1, D1
1E25A  C280                      And.L     D0, D1
1E25C  C084                      And.L     D4, D0
1E25E  B280                      Cmp.L     D0, D1
1E260  6F08                      BLE.B     L3943
1E262  E31E           L3942:     ROL.B     #$1, D6
1E264  284B                      Move.L    A3, A4
1E266  2A0A                      Move.L    A2, D5
1E268  2809                      Move.L    A1, D4
1E26A  0806 001A      L3943:     BTst.B    #$1A, D6
1E26E  671E                      BEQ.B     L3946
1E270  4284                      Clr.L     D4
1E272  7A01                      MoveQ.L   #$1, D5
1E274  E29D                      ROR.L     #$1, D5
1E276  0806 0018                 BTst.B    #$18, D6
1E27A  6608                      BNE.B     L3944
1E27C  0806 0019                 BTst.B    #$19, D6
1E280  6608                      BNE.B     L3945
1E282  4845                      Swap      D5
1E284  08C6 0008      L3944:     BSet.B    #$8, D6
1E288  4E75                      Rts
1E28A  C945           L3945:     Exg.L     D4, D5
1E28C  4E75                      Rts
1E28E  0806 0015      L3946:     BTst.B    #$15, D6
1E292  661A                      BNE.B     L3949
1E294  0806 0014                 BTst.B    #$14, D6
1E298  6606                      BNE.B     L3947
1E29A  7002                      MoveQ.L   #$2, D0
1E29C  6000 04E2                 Bra       L3953
1E2A0  7001           L3947:     MoveQ.L   #$1, D0
1E2A2  0886 0008                 BClr.B    #$8, D6
1E2A6  6602                      BNE.B     L3948
1E2A8  5240                      AddQ      #$1, D0
1E2AA  6000 0712      L3948:     Bra       L3955
1E2AE  0806 001F      L3949:     BTst.B    #$1F, D6
1E2B2  6706                      BEQ.B     L3950
1E2B4  7A00                      MoveQ.L   #$0, D5
1E2B6  1805                      Move.B    D5, D4
1E2B8  600A                      Bra.B     L3951
1E2BA  0806 001E      L3950:     BTst.B    #$1E, D6
1E2BE  6704                      BEQ.B     L3951
1E2C0  0245 F800                 And       #$-800, D5
1E2C4  2004           L3951:     Move.L    D4, D0
1E2C6  0880 001E                 BClr.B    #$1E, D0
1E2CA  8085                      Or.L      D5, D0
1E2CC  6608                      BNE.B     L3952
1E2CE  7815                      MoveQ.L   #$15, D4
1E2D0  4844                      Swap      D4
1E2D2  08C4 001E                 BSet.B    #$1E, D4
1E2D6  4E75           L3952:     Rts
1E2D8  DC06           E_996:     Add.B     D6, D6
1E2DA  2809           E_1003:    Move.L    A1, D4
1E2DC  2A0A                      Move.L    A2, D5
1E2DE  284B                      Move.L    A3, A4
1E2E0  4E75           E_997:     Rts
1E2E2  0C40 0042      P773:      Cmp       #$42, D0
1E2E6  6304                      BLS.B     L3978
1E2E8  303C 0042                 Move      #$42, D0
1E2EC  E28C           L3978:     LsR.L     #$1, D4
1E2EE  E295                      RXR.L     #$1, D5
1E2F0  E257                      RXR       #$1, D7
1E2F2  55C1                      SCS.B     D1
1E2F4  8E01                      Or.B      D1, D7
1E2F6  5340                      SubQ      #$1, D0
1E2F8  66F2                      BNE.B     L3978
1E2FA  4E75                      Rts
1E2FC  4A84           L3979:     Tst.L     D4
1E2FE  660C                      BNE.B     L3980
1E300  4A85                      Tst.L     D5
1E302  6608                      BNE.B     L3980
1E304  4A47                      Tst       D7
1E306  6604                      BNE.B     L3980
1E308  99CC                      SubA.L    A4, A4
1E30A  4E75                      Rts
1E30C  4A84           L3980:     Tst.L     D4
1E30E  6008                      Bra.B     L3982
1E310  538C           L3981:     SubQ      #$1, A4
1E312  DE47                      Add       D7, D7
1E314  DB85                      AddX.L    D5, D5
1E316  D984                      AddX.L    D4, D4
1E318  6AF6           L3982:     BPL.B     L3981
1E31A  4A86           P774:      Tst.L     D6
1E31C  6B00 00C6                 BMI       L3996
1E320  0806 001E                 BTst.B    #$1E, D6
1E324  6600 00F6                 BNE       L3998
1E328  97CB                      SubA.L    A3, A3
1E32A  611A                      Bsr.B     P775
1E32C  4281                      Clr.L     D1
1E32E  7401                      MoveQ.L   #$1, D2
1E330  0805 0000                 BTst.B    #$0, D5
1E334  6120                      Bsr.B     P776
1E336  367C 7FFE                 Move      #$7FFE, A3
1E33A  616C                      Bsr.B     P777
1E33C  6706                      BEQ.B     L3983
1E33E  284B                      Move.L    A3, A4
1E340  78FF                      MoveQ.L   #$-1, D4
1E342  2A04                      Move.L    D4, D5
1E344  4E75           L3983:     Rts
1E346  200B           P775:      Move.L    A3, D0
1E348  908C                      Sub.L     A4, D0
1E34A  6E02                      BGT.B     L3984
1E34C  4E75                      Rts
1E34E  08C6 0009      L3984:     BSet.B    #$9, D6
1E352  284B                      Move.L    A3, A4
1E354  608C                      Bra.B     P773
1E356  56C0           P776:      SNE.B     D0
1E358  4A47                      Tst       D7
1E35A  6606                      BNE.B     L3985
1E35C  0886 0009                 BClr.B    #$9, D6
1E360  4E75                      Rts
1E362  08C6 000C      L3985:     BSet.B    #$C, D6
1E366  0810 0005                 BTst.B    #$5, (A0)
1E36A  670E                      BEQ.B     L3987
1E36C  0810 0006                 BTst.B    #$6, (A0)
1E370  6702                      BEQ.B     L3986
1E372  4E75                      Rts
1E374  4A06           L3986:     Tst.B     D6
1E376  6A1E                      BPL.B     L3990
1E378  4E75                      Rts
1E37A  0810 0006      L3987:     BTst.B    #$6, (A0)
1E37E  6610                      BNE.B     L3989
1E380  0C47 8000                 Cmp       #$-8000, D7
1E384  6402                      BCC.B     L3988
1E386  4E75                      Rts
1E388  620C           L3988:     BHI.B     L3990
1E38A  4A00                      Tst.B     D0
1E38C  6608                      BNE.B     L3990
1E38E  4E75                      Rts
1E390  4A06           L3989:     Tst.B     D6
1E392  6B02                      BMI.B     L3990
1E394  4E75                      Rts
1E396  08E8 0007 0001 L3990:     BSet.B    #$7, $1(A0)
1E39C  DA82                      Add.L     D2, D5
1E39E  D981                      AddX.L    D1, D4
1E3A0  6404                      BCC.B     L3991
1E3A2  E294                      RXR.L     #$1, D4
1E3A4  528C                      AddQ      #$1, A4
1E3A6  4E75           L3991:     Rts
1E3A8  B7CC           P777:      CmpA.L    A4, A3
1E3AA  6D04                      BLT.B     L3992
1E3AC  4240                      Clr       D0
1E3AE  4E75                      Rts
1E3B0  08C6 000A      L3992:     BSet.B    #$A, D6
1E3B4  08C6 000C                 BSet.B    #$C, D6
1E3B8  387C 7FFF                 Move      #$7FFF, A4
1E3BC  4284                      Clr.L     D4
1E3BE  2A04                      Move.L    D4, D5
1E3C0  1210                      Move.B    (A0), D1
1E3C2  0201 0060                 And.B     #$60, D1
1E3C6  6602                      BNE.B     L3993
1E3C8  4E75                      Rts
1E3CA  0C01 0060      L3993:     Cmp.B     #$60, D1
1E3CE  6604                      BNE.B     L3994
1E3D0  4A01                      Tst.B     D1
1E3D2  4E75                      Rts
1E3D4  4A06           L3994:     Tst.B     D6
1E3D6  6B06                      BMI.B     L3995
1E3D8  0C01 0020                 Cmp.B     #$20, D1
1E3DC  4E75                      Rts
1E3DE  0C01 0040      L3995:     Cmp.B     #$40, D1
1E3E2  4E75                      Rts
1E3E4  367C 3F81      L3996:     Move      #$3F81, A3
1E3E8  6100 FF5C                 Bsr       P775
1E3EC  4A85                      Tst.L     D5
1E3EE  56C0                      SNE.B     D0
1E3F0  8E00                      Or.B      D0, D7
1E3F2  D804                      Add.B     D4, D4
1E3F4  E257                      RXR       #$1, D7
1E3F6  8E04                      Or.B      D4, D7
1E3F8  4285                      Clr.L     D5
1E3FA  4204                      Clr.B     D4
1E3FC  223C 0000 0100            Move.L    #$100, D1
1E402  4282                      Clr.L     D2
1E404  0804 0008                 BTst.B    #$8, D4
1E408  6100 FF4C                 Bsr       P776
1E40C  367C 407E                 Move      #$407E, A3
1E410  6196                      Bsr.B     P777
1E412  6706                      BEQ.B     L3997
1E414  284B                      Move.L    A3, A4
1E416  78FF                      MoveQ.L   #$-1, D4
1E418  4204                      Clr.B     D4
1E41A  4E75           L3997:     Rts
1E41C  367C 3C01      L3998:     Move      #$3C01, A3
1E420  6100 FF24                 Bsr       P775
1E424  303C 07FF                 Move      #$7FF, D0
1E428  C045                      And       D5, D0
1E42A  0245 F800                 And       #$-800, D5
1E42E  EB48                      LsL       #$5, D0
1E430  E24F                      LsR       #$1, D7
1E432  6404                      BCC.B     L3999
1E434  08C7 0000                 BSet.B    #$0, D7
1E438  8E40           L3999:     Or        D0, D7
1E43A  4281                      Clr.L     D1
1E43C  243C 0000 0800            Move.L    #$800, D2
1E442  0805 000B                 BTst.B    #$B, D5
1E446  6100 FF0E                 Bsr       P776
1E44A  367C 43FE                 Move      #$43FE, A3
1E44E  6100 FF58                 Bsr       P777
1E452  670A                      BEQ.B     L4000
1E454  284B                      Move.L    A3, A4
1E456  78FF                      MoveQ.L   #$-1, D4
1E458  2A3C FFFF F800            Move.L    #$FFFFF800, D5
1E45E  4E75           L4000:     Rts
1E460  0240 000E      P780:      And       #$E, D0
1E464  303B 0010                 Move      DT122(D0.W), D0
1E468  266E 000A                 Move.L    $A(A6), A3
1E46C  360C                      Move      A4, D3
1E46E  0C43 7FFF                 Cmp       #$7FFF, D3
1E472  4EFB 00EC                 Jmp       P780(D0.W)
                      ; Jump Table
1E476  0032 0086 0060 DT122:     DC.B      ' 2   `'
1E47C  0000 0024 0028            DC.B      '   $ ('
1E482  002C                      DC.B      ' ,'
1E484  3685           E_990:     Move      D5, (A3)
1E486  4E75                      Rts
1E488  2685           E_991:     Move.L    D5, (A3)
1E48A  4E75                      Rts
1E48C  26C4           E_992:     Move.L    D4, (A3)+
1E48E  2685                      Move.L    D5, (A3)
1E490  4E75                      Rts
1E492  0806 0009      E_993:     BTst.B    #$9, D6
1E496  6718                      BEQ.B     L4054
1E498  4A43                      Tst       D3
1E49A  6714                      BEQ.B     L4054
1E49C  4A84                      Tst.L     D4
1E49E  660E                      BNE.B     L4053
1E4A0  4A85                      Tst.L     D5
1E4A2  6604                      BNE.B     L4052
1E4A4  4283                      Clr.L     D3
1E4A6  6008                      Bra.B     L4054
1E4A8  5343           L4052:     SubQ      #$1, D3
1E4AA  DA85                      Add.L     D5, D5
1E4AC  D984                      AddX.L    D4, D4
1E4AE  6AF8           L4053:     BPL.B     L4052
1E4B0  4A06           L4054:     Tst.B     D6
1E4B2  6A04                      BPL.B     L4055
1E4B4  0643 8000                 Add       #$-8000, D3
1E4B8  36C3           L4055:     Move      D3, (A3)+
1E4BA  26C4                      Move.L    D4, (A3)+
1E4BC  2685                      Move.L    D5, (A3)
1E4BE  4E75                      Rts
1E4C0  6606           E_994:     BNE.B     L4056
1E4C2  363C 4080                 Move      #$4080, D3
1E4C6  6008                      Bra.B     L4057
1E4C8  4A43           L4056:     Tst       D3
1E4CA  6604                      BNE.B     L4057
1E4CC  363C 3F81                 Move      #$3F81, D3
1E4D0  0443 3F80      L4057:     Sub       #$3F80, D3
1E4D4  D884                      Add.L     D4, D4
1E4D6  6502                      BCS.B     L4058
1E4D8  5343                      SubQ      #$1, D3
1E4DA  8843           L4058:     Or        D3, D4
1E4DC  E09C                      ROR.L     #$8, D4
1E4DE  DC06                      Add.B     D6, D6
1E4E0  E294                      RXR.L     #$1, D4
1E4E2  2684                      Move.L    D4, (A3)
1E4E4  4E75                      Rts
1E4E6  6606           E_995:     BNE.B     L4059
1E4E8  363C 4400                 Move      #$4400, D3
1E4EC  6008                      Bra.B     L4060
1E4EE  4A43           L4059:     Tst       D3
1E4F0  6604                      BNE.B     L4060
1E4F2  363C 3C01                 Move      #$3C01, D3
1E4F6  0443 3C00      L4060:     Sub       #$3C00, D3
1E4FA  4A84                      Tst.L     D4
1E4FC  6B02                      BMI.B     L4061
1E4FE  5343                      SubQ      #$1, D3
1E500  203C 0000 07FF L4061:     Move.L    #$7FF, D0
1E506  C084                      And.L     D4, D0
1E508  8A80                      Or.L      D0, D5
1E50A  E09D                      ROR.L     #$8, D5
1E50C  E69D                      ROR.L     #$3, D5
1E50E  0244 F800                 And       #$-800, D4
1E512  D884                      Add.L     D4, D4
1E514  8843                      Or        D3, D4
1E516  E09C                      ROR.L     #$8, D4
1E518  E69C                      ROR.L     #$3, D4
1E51A  DC06                      Add.B     D6, D6
1E51C  E294                      RXR.L     #$1, D4
1E51E  26C4                      Move.L    D4, (A3)+
1E520  2685                      Move.L    D5, (A3)
1E522  4E75                      Rts
1E524  0A06 00A0      E_970:     Eor.B     #$-60, D6
1E528  363B 3006      E_971:     Move      DT117(D3.W), D3
1E52C  4EFB 30FA                 Jmp       E_971(D3.W)
                      ; Jump Table
1E530  001A 0080 FDB8 DT117:     DC.B      '      '
1E536  0088 0066 FDB8            DC.B      '   f  '
1E53C  FDB0 FDB0 008C            DC.B      '      '
1E542  2604           E_998:     Move.L    D4, D3
1E544  2809                      Move.L    A1, D4
1E546  CB8A                      Exg.L     D5, A2
1E548  300C                      Move      A4, D0
1E54A  904B                      Sub       A3, D0
1E54C  6712                      BEQ.B     L4063
1E54E  6E0C                      BGT.B     L4062
1E550  CB8A                      Exg.L     D5, A2
1E552  C943                      Exg.L     D4, D3
1E554  4440                      Neg       D0
1E556  284B                      Move.L    A3, A4
1E558  DC06                      Add.B     D6, D6
1E55A  E206                      AsR.B     #$1, D6
1E55C  6100 FD84      L4062:     Bsr       P773
1E560  0806 0005      L4063:     BTst.B    #$5, D6
1E564  6612                      BNE.B     L4065
1E566  DA8A                      Add.L     A2, D5
1E568  D983                      AddX.L    D3, D4
1E56A  6408                      BCC.B     L4064
1E56C  E294                      RXR.L     #$1, D4
1E56E  E295                      RXR.L     #$1, D5
1E570  E257                      RXR       #$1, D7
1E572  528C                      AddQ      #$1, A4
1E574  6000 FDA4      L4064:     Bra       P774
1E578  4606           L4065:     Not.B     D6
1E57A  9A8A                      Sub.L     A2, D5
1E57C  9983                      SubX.L    D3, D4
1E57E  6714                      BEQ.B     L4067
1E580  6408                      BCC.B     L4066
1E582  4447                      Neg       D7
1E584  4085                      NegX.L    D5
1E586  4084                      NegX.L    D4
1E588  4606                      Not.B     D6
1E58A  6000 FD80      L4066:     Bra       L3980
1E58E  0806 0005      E_999:     BTst.B    #$5, D6
1E592  6712                      BEQ.B     L4068
1E594  99CC           L4067:     SubA.L    A4, A4
1E596  4206                      Clr.B     D6
1E598  0810 0006                 BTst.B    #$6, (A0)
1E59C  6708                      BEQ.B     L4068
1E59E  0810 0005                 BTst.B    #$5, (A0)
1E5A2  6602                      BNE.B     L4068
1E5A4  4606                      Not.B     D6
1E5A6  4E75           L4068:     Rts
1E5A8  2A0A           E_1000:    Move.L    A2, D5
1E5AA  2809                      Move.L    A1, D4
1E5AC  284B                      Move.L    A3, A4
1E5AE  DC06                      Add.B     D6, D6
1E5B0  6000 FD68      E_1001:    Bra       P774
1E5B4  0806 0005      E_1002:    BTst.B    #$5, D6
1E5B8  6602                      BNE.B     L4069
1E5BA  4E75                      Rts
1E5BC  7002           L4069:     MoveQ.L   #$2, D0
1E5BE  6000 FC72                 Bra       L3977
1E5C2  E51E           E_972:     ROL.B     #$2, D6
1E5C4  7008                      MoveQ.L   #$8, D0
1E5C6  363B 3006                 Move      DT118(D3.W), D3
1E5CA  4EFB 30F6                 Jmp       E_972(D3.W)
                      ; Jump Table
1E5CE  001E FD1E FD1E DT118:     DC.B      '      '
1E5D4  FD18 FD1E FC70            DC.B      '     p'
1E5DA  FD18 FC70 FD1E            DC.B      '   p  '
1E5E0  D9CB           E_1004:    AddA.L    A3, A4
1E5E2  98FC 3FFE                 SubA      #$3FFE, A4
1E5E6  48E7 0680                 MoveM.L   D5-D6/A0, -(A7)
1E5EA  2644                      Move.L    D4, A3
1E5EC  4284                      Clr.L     D4
1E5EE  2A04                      Move.L    D4, D5
1E5F0  2044                      Move.L    D4, A0
1E5F2  2217                      Move.L    (A7), D1
1E5F4  6606                      BNE.B     L4070
1E5F6  200A                      Move.L    A2, D0
1E5F8  6728                      BEQ.B     L4072
1E5FA  6012                      Bra.B     L4071
1E5FC  200A           L4070:     Move.L    A2, D0
1E5FE  6130                      Bsr.B     P781
1E600  4A85                      Tst.L     D5
1E602  56C7                      SNE.B     D7
1E604  2A04                      Move.L    D4, D5
1E606  4284                      Clr.L     D4
1E608  2217                      Move.L    (A7), D1
1E60A  2009                      Move.L    A1, D0
1E60C  6122                      Bsr.B     P781
1E60E  220B           L4071:     Move.L    A3, D1
1E610  200A                      Move.L    A2, D0
1E612  611C                      Bsr.B     P781
1E614  4A45                      Tst       D5
1E616  56C0                      SNE.B     D0
1E618  8E00                      Or.B      D0, D7
1E61A  4845                      Swap      D5
1E61C  8E45                      Or        D5, D7
1E61E  2A04                      Move.L    D4, D5
1E620  2808                      Move.L    A0, D4
1E622  220B           L4072:     Move.L    A3, D1
1E624  2009                      Move.L    A1, D0
1E626  6108                      Bsr.B     P781
1E628  4CDF 0141                 MoveM.L   (A7)+, D0/D6/A0
1E62C  6000 FCDE                 Bra       L3980
1E630  3401           P781:      Move      D1, D2
1E632  3601                      Move      D1, D3
1E634  C4C0                      MulU      D0, D2
1E636  3C00                      Move      D0, D6
1E638  4840                      Swap      D0
1E63A  4841                      Swap      D1
1E63C  CCC1                      MulU      D1, D6
1E63E  C6C0                      MulU      D0, D3
1E640  C2C0                      MulU      D0, D1
1E642  4842                      Swap      D2
1E644  4280                      Clr.L     D0
1E646  3002                      Move      D2, D0
1E648  D680                      Add.L     D0, D3
1E64A  D686                      Add.L     D6, D3
1E64C  3403                      Move      D3, D2
1E64E  4842                      Swap      D2
1E650  4243                      Clr       D3
1E652  D743                      AddX      D3, D3
1E654  4843                      Swap      D3
1E656  D283                      Add.L     D3, D1
1E658  DA82                      Add.L     D2, D5
1E65A  D981                      AddX.L    D1, D4
1E65C  6402                      BCC.B     L4073
1E65E  5248                      AddQ      #$1, A0
1E660  4E75           L4073:     Rts
1E662  E51E           E_973:     ROL.B     #$2, D6
1E664  7004                      MoveQ.L   #$4, D0
1E666  363B 3006                 Move      DT119(D3.W), D3
1E66A  4EFB 30F6                 Jmp       E_973(D3.W)
                      ; Jump Table
1E66E  0034 001E 002C DT119:     DC.B      ' 4   ,'
1E674  FC78 FBD0 FC78            DC.B      ' x   x'
1E67A  FC78 FC78 FBD0            DC.B      ' x x  '
1E680  08C6 000B      E_1005:    BSet.B    #$B, D6
1E684  387C 7FFF                 Move      #$7FFF, A4
1E688  4284                      Clr.L     D4
1E68A  2A04                      Move.L    D4, D5
1E68C  4E75                      Rts
1E68E  99CC           E_1006:    SubA.L    A4, A4
1E690  280C                      Move.L    A4, D4
1E692  2A04                      Move.L    D4, D5
1E694  4E75                      Rts
1E696  C74C           E_1007:    Exg.L     A3, A4
1E698  99CB                      SubA.L    A3, A4
1E69A  D8FC 3FFF                 AddA      #$3FFF, A4
1E69E  7041                      MoveQ.L   #$41, D0
1E6A0  4A86                      Tst.L     D6
1E6A2  6A02                      BPL.B     L4074
1E6A4  7021                      MoveQ.L   #$21, D0
1E6A6  B889           L4074:     Cmp.L     A1, D4
1E6A8  6602                      BNE.B     L4075
1E6AA  BA8A                      Cmp.L     A2, D5
1E6AC  6304           L4075:     BLS.B     L4076
1E6AE  5240                      AddQ      #$1, D0
1E6B0  538C                      SubQ      #$1, A4
1E6B2  2209           L4076:     Move.L    A1, D1
1E6B4  240A                      Move.L    A2, D2
1E6B6  2604                      Move.L    D4, D3
1E6B8  2445                      Move.L    D5, A2
1E6BA  611A                      Bsr.B     P782
1E6BC  4A86                      Tst.L     D6
1E6BE  6A04                      BPL.B     L4077
1E6C0  2805                      Move.L    D5, D4
1E6C2  4285                      Clr.L     D5
1E6C4  44FC 0010      L4077:     Move      #$10, CCR
1E6C8  E294                      RXR.L     #$1, D4
1E6CA  E295                      RXR.L     #$1, D5
1E6CC  E257                      RXR       #$1, D7
1E6CE  8282                      Or.L      D2, D1
1E6D0  56C7                      SNE.B     D7
1E6D2  6000 FC46                 Bra       P774
1E6D6  4284           P782:      Clr.L     D4
1E6D8  2A04                      Move.L    D4, D5
1E6DA  600A                      Bra.B     L4079
1E6DC  DA85           L4078:     Add.L     D5, D5
1E6DE  D984                      AddX.L    D4, D4
1E6E0  D482                      Add.L     D2, D2
1E6E2  D381                      AddX.L    D1, D1
1E6E4  6508                      BCS.B     L4081
1E6E6  B283           L4079:     Cmp.L     D3, D1
1E6E8  6602                      BNE.B     L4080
1E6EA  B48A                      Cmp.L     A2, D2
1E6EC  6506           L4080:     BCS.B     L4082
1E6EE  5205           L4081:     AddQ      #$1, D5
1E6F0  948A                      Sub.L     A2, D2
1E6F2  9383                      SubX.L    D3, D1
1E6F4  5340           L4082:     SubQ      #$1, D0
1E6F6  66E4                      BNE.B     L4078
1E6F8  4E75                      Rts
1E6FA  426F 0006      E_974:     Clr       $6(A7)
1E6FE  DC06                      Add.B     D6, D6
1E700  7009                      MoveQ.L   #$9, D0
1E702  0286 3FFF FFFF            And.L     #$3FFFFFFF, D6
1E708  363B 3006                 Move      DT120(D3.W), D3
1E70C  4EFB 30EC                 Jmp       E_974(D3.W)
                      ; Jump Table
1E710  0028 FB38 0030 DT120:     DC.B      ' ( 8 0'
1E716  FBE0 FB38 FBE0            DC.B      '   8  '
1E71C  FB38 FB38 FB38            DC.B      ' 8 8 8'
1E722  200B           E_1008:    Move.L    A3, D0
1E724  5480                      AddQ      #$2, D0
1E726  908C                      Sub.L     A4, D0
1E728  6E08                      BGT.B     L4083
1E72A  2809           E_1009:    Move.L    A1, D4
1E72C  2A0A                      Move.L    A2, D5
1E72E  284B                      Move.L    A3, A4
1E730  6042                      Bra.B     L4088
1E732  538C           L4083:     SubQ      #$1, A4
1E734  2209                      Move.L    A1, D1
1E736  240A                      Move.L    A2, D2
1E738  2604                      Move.L    D4, D3
1E73A  2445                      Move.L    D5, A2
1E73C  6198                      Bsr.B     P782
1E73E  0805 0000                 BTst.B    #$0, D5
1E742  671C                      BEQ.B     L4086
1E744  4A81                      Tst.L     D1
1E746  660A                      BNE.B     L4084
1E748  4A82                      Tst.L     D2
1E74A  6606                      BNE.B     L4084
1E74C  0805 0001                 BTst.B    #$1, D5
1E750  6706                      BEQ.B     L4085
1E752  0846 0007      L4084:     BChg.B    #$7, D6
1E756  5445                      AddQ      #$2, D5
1E758  C58A           L4085:     Exg.L     D2, A2
1E75A  C343                      Exg.L     D1, D3
1E75C  948A                      Sub.L     A2, D2
1E75E  9383                      SubX.L    D3, D1
1E760  E20D           L4086:     LsR.B     #$1, D5
1E762  0806 0006                 BTst.B    #$6, D6
1E766  6702                      BEQ.B     L4087
1E768  4405                      Neg.B     D5
1E76A  4885           L4087:     Ext       D5
1E76C  3F45 0006                 Move      D5, $6(A7)
1E770  2801                      Move.L    D1, D4
1E772  2A02                      Move.L    D2, D5
1E774  6000 FB86      L4088:     Bra       L3979
1E778  363B 301C      E_975:     Move      DT121(D3.W), D3
1E77C  4EBB 30FA                 Jsr       E_975(D3.W)
1E780  0C40 0002      L3953:     Cmp       #$2, D0
1E784  660A                      BNE.B     L3954
1E786  0806 0011                 BTst.B    #$11, D6
1E78A  6704                      BEQ.B     L3954
1E78C  08C6 0008                 BSet.B    #$8, D6
1E790  3E00           L3954:     Move      D0, D7
1E792  4847                      Swap      D7
1E794  4E75                      Rts
                      ; Jump Table
1E796  0048 0030 0034 DT121:     DC.B      ' H 0 4'
1E79C  0034 0044 0034            DC.B      ' 4 D 4'
1E7A2  0030 0030 003E            DC.B      ' 0 0 >'
1E7A8  DC06           E_1010:    Add.B     D6, D6
1E7AA  4606                      Not.B     D6
1E7AC  7000           E_1011:    MoveQ.L   #$0, D0
1E7AE  4A06                      Tst.B     D6
1E7B0  6B02                      BMI.B     L4089
1E7B2  7019                      MoveQ.L   #$19, D0
1E7B4  4E75           L4089:     Rts
1E7B6  0806 0005      E_1012:    BTst.B    #$5, D6
1E7BA  66F0                      BNE.B     E_1011
1E7BC  7004           E_1013:    MoveQ.L   #$4, D0
1E7BE  4E75                      Rts
1E7C0  0806 0005      E_1014:    BTst.B    #$5, D6
1E7C4  66E6                      BNE.B     E_1011
1E7C6  B7CC                      CmpA.L    A4, A3
1E7C8  6E0E                      BGT.B     L4090
1E7CA  6D0E                      BLT.B     L4091
1E7CC  B3C4                      CmpA.L    D4, A1
1E7CE  6208                      BHI.B     L4090
1E7D0  6508                      BCS.B     L4091
1E7D2  B5C5                      CmpA.L    D5, A2
1E7D4  67E6                      BEQ.B     E_1013
1E7D6  6502                      BCS.B     L4091
1E7D8  4606           L4090:     Not.B     D6
1E7DA  7019           L4091:     MoveQ.L   #$19, D0
1E7DC  4A06                      Tst.B     D6
1E7DE  6A02                      BPL.B     L4092
1E7E0  7000                      MoveQ.L   #$0, D0
1E7E2  4E75           L4092:     Rts
1E7E4  4A43           E_976:     Tst       D3
1E7E6  6700 FB32                 BEQ       P774
1E7EA  4E75                      Rts
1E7EC  4A43           E_977:     Tst       D3
1E7EE  6702                      BEQ.B     L4001
1E7F0  4E75                      Rts
1E7F2  6134           L4001:     Bsr.B     P778
1E7F4  3450                      Move      (A0), A2
1E7F6  6012                      Bra.B     L4003
1E7F8  4A43           E_978:     Tst       D3
1E7FA  6702                      BEQ.B     L4002
1E7FC  4E75                      Rts
1E7FE  6128           L4002:     Bsr.B     P778
1E800  3450                      Move      (A0), A2
1E802  08D0 0006                 BSet.B    #$6, (A0)
1E806  08D0 0005                 BSet.B    #$5, (A0)
1E80A  6100 FB0E      L4003:     Bsr       P774
1E80E  308A                      Move      A2, (A0)
1E810  4A84                      Tst.L     D4
1E812  6B12                      BMI.B     L4005
1E814  6608                      BNE.B     L4004
1E816  4A85                      Tst.L     D5
1E818  6604                      BNE.B     L4004
1E81A  99CC                      SubA.L    A4, A4
1E81C  6008                      Bra.B     L4005
1E81E  538C           L4004:     SubQ      #$1, A4
1E820  DA85                      Add.L     D5, D5
1E822  D984                      AddX.L    D4, D4
1E824  6AF8                      BPL.B     L4004
1E826  4E75           L4005:     Rts
1E828  4A86           P778:      Tst.L     D6
1E82A  6B0C                      BMI.B     L4006
1E82C  0806 001E                 BTst.B    #$1E, D6
1E830  670C                      BEQ.B     P779
1E832  7034                      MoveQ.L   #$34, D0
1E834  6000 000A                 Bra       L4007
1E838  7017           L4006:     MoveQ.L   #$17, D0
1E83A  6000 0004                 Bra       L4007
1E83E  703F           P779:      MoveQ.L   #$3F, D0
1E840  0640 3FFF      L4007:     Add       #$3FFF, D0
1E844  3200                      Move      D0, D1
1E846  908C                      Sub.L     A4, D0
1E848  6E02                      BGT.B     L4008
1E84A  4E75                      Rts
1E84C  3841           L4008:     Move      D1, A4
1E84E  6100 FA92                 Bsr       P773
1E852  44FC 0000                 Move      #$0, CCR
1E856  4E75                      Rts
1E858  0806 001A      E_979:     BTst.B    #$1A, D6
1E85C  6786                      BEQ.B     E_976
1E85E  0C43 0002                 Cmp       #$2, D3
1E862  6602                      BNE.B     L4009
1E864  4E75                      Rts
1E866  0C43 0004      L4009:     Cmp       #$4, D3
1E86A  6604                      BNE.B     L4010
1E86C  78FF                      MoveQ.L   #$-1, D4
1E86E  6010                      Bra.B     L4011
1E870  61CC           L4010:     Bsr.B     P779
1E872  6F0C                      BLE.B     L4011
1E874  4281                      Clr.L     D1
1E876  7401                      MoveQ.L   #$1, D2
1E878  0805 0000                 BTst.B    #$0, D5
1E87C  6100 FAD8                 Bsr       P776
1E880  7201           L4011:     MoveQ.L   #$1, D1
1E882  E299                      ROR.L     #$1, D1
1E884  0806 0018                 BTst.B    #$18, D6
1E888  6608                      BNE.B     L4012
1E88A  0806 0019                 BTst.B    #$19, D6
1E88E  6626                      BNE.B     L4017
1E890  4841                      Swap      D1
1E892  4A84           L4012:     Tst.L     D4
1E894  6614                      BNE.B     L4015
1E896  BA81                      Cmp.L     D1, D5
1E898  6210                      BHI.B     L4015
1E89A  6504                      BCS.B     L4013
1E89C  4A06                      Tst.B     D6
1E89E  6A0A                      BPL.B     L4015
1E8A0  4A06           L4013:     Tst.B     D6
1E8A2  6A04                      BPL.B     L4014
1E8A4  4485                      Neg.L     D5
1E8A6  4084                      NegX.L    D4
1E8A8  4E75           L4014:     Rts
1E8AA  2A01           L4015:     Move.L    D1, D5
1E8AC  08C6 0008      L4016:     BSet.B    #$8, D6
1E8B0  0886 000C                 BClr.B    #$C, D6
1E8B4  4E75                      Rts
1E8B6  4A84           L4017:     Tst.L     D4
1E8B8  6AE6                      BPL.B     L4013
1E8BA  4285                      Clr.L     D5
1E8BC  2801                      Move.L    D1, D4
1E8BE  60EC                      Bra.B     L4016
1E8C0  0C43 0002      E_980:     Cmp       #$2, D3
1E8C4  6602                      BNE.B     L4018
1E8C6  4E75                      Rts
1E8C8  7001           L4018:     MoveQ.L   #$1, D0
1E8CA  4A06                      Tst.B     D6
1E8CC  6B00 F964                 BMI       L3977
1E8D0  0C43 0004                 Cmp       #$4, D3
1E8D4  6602                      BNE.B     L4019
1E8D6  4E75                      Rts
1E8D8  300C           L4019:     Move      A4, D0
1E8DA  E240                      AsR       #$1, D0
1E8DC  40C1                      Move      SR, D1
1E8DE  6402                      BCC.B     L4020
1E8E0  5240                      AddQ      #$1, D0
1E8E2  0640 1FFF      L4020:     Add       #$1FFF, D0
1E8E6  3840                      Move      D0, A4
1E8E8  2246                      Move.L    D6, A1
1E8EA  2447                      Move.L    D7, A2
1E8EC  2E05                      Move.L    D5, D7
1E8EE  2C04                      Move.L    D4, D6
1E8F0  4283                      Clr.L     D3
1E8F2  2403                      Move.L    D3, D2
1E8F4  DE87                      Add.L     D7, D7
1E8F6  DD86                      AddX.L    D6, D6
1E8F8  D743                      AddX      D3, D3
1E8FA  44C1                      Move      D1, CCR
1E8FC  6506                      BCS.B     L4021
1E8FE  DE87                      Add.L     D7, D7
1E900  DD86                      AddX.L    D6, D6
1E902  D743                      AddX      D3, D3
1E904  2002           L4021:     Move.L    D2, D0
1E906  2802                      Move.L    D2, D4
1E908  7A03                      MoveQ.L   #$3, D5
1E90A  5343                      SubQ      #$1, D3
1E90C  7241                      MoveQ.L   #$41, D1
1E90E  3641                      Move      D1, A3
1E910  4281                      Clr.L     D1
1E912  DE87           L4022:     Add.L     D7, D7
1E914  DD86                      AddX.L    D6, D6
1E916  D783                      AddX.L    D3, D3
1E918  D582                      AddX.L    D2, D2
1E91A  D341                      AddX      D1, D1
1E91C  DE87                      Add.L     D7, D7
1E91E  DD86                      AddX.L    D6, D6
1E920  D783                      AddX.L    D3, D3
1E922  D582                      AddX.L    D2, D2
1E924  D341                      AddX      D1, D1
1E926  DA85                      Add.L     D5, D5
1E928  D984                      AddX.L    D4, D4
1E92A  D140                      AddX      D0, D0
1E92C  5345                      SubQ      #$1, D5
1E92E  9685                      Sub.L     D5, D3
1E930  9584                      SubX.L    D4, D2
1E932  9340                      SubX      D0, D1
1E934  6408                      BCC.B     L4023
1E936  D685                      Add.L     D5, D3
1E938  D584                      AddX.L    D4, D2
1E93A  D340                      AddX      D0, D1
1E93C  6002                      Bra.B     L4024
1E93E  5445           L4023:     AddQ      #$2, D5
1E940  C18B           L4024:     Exg.L     D0, A3
1E942  5340                      SubQ      #$1, D0
1E944  C18B                      Exg.L     D0, A3
1E946  66CA                      BNE.B     L4022
1E948  2C09                      Move.L    A1, D6
1E94A  2E0A                      Move.L    A2, D7
1E94C  8282                      Or.L      D2, D1
1E94E  8283                      Or.L      D3, D1
1E950  6602                      BNE.B     L4025
1E952  5345                      SubQ      #$1, D5
1E954  7203           L4025:     MoveQ.L   #$3, D1
1E956  E248           L4026:     LsR       #$1, D0
1E958  E294                      RXR.L     #$1, D4
1E95A  E295                      RXR.L     #$1, D5
1E95C  E257                      RXR       #$1, D7
1E95E  5341                      SubQ      #$1, D1
1E960  66F4                      BNE.B     L4026
1E962  6000 F9B6                 Bra       P774
1E966  4206           E_981:     Clr.B     D6
1E968  0C43 0002                 Cmp       #$2, D3
1E96C  660E                      BNE.B     L4027
1E96E  0046 0880                 Or        #$880, D6
1E972  387C 7FFF                 Move      #$7FFF, A4
1E976  4284                      Clr.L     D4
1E978  2A04                      Move.L    D4, D5
1E97A  4E75                      Rts
1E97C  0C43 0004      L4027:     Cmp       #$4, D3
1E980  6602                      BNE.B     L4028
1E982  4E75                      Rts
1E984  4285           L4028:     Clr.L     D5
1E986  98FC 3FFF                 SubA      #$3FFF, A4
1E98A  280C                      Move.L    A4, D4
1E98C  6A06                      BPL.B     L4029
1E98E  0006 0080                 Or.B      #$-80, D6
1E992  4484                      Neg.L     D4
1E994  387C 401E      L4029:     Move      #$401E, A4
1E998  6000 F962                 Bra       L3979
1E99C  4A43           E_982:     Tst       D3
1E99E  6702                      BEQ.B     L4030
1E9A0  4E75                      Rts
1E9A2  266E 000E      L4030:     Move.L    $E(A6), A3
1E9A6  D8D3                      AddA      (A3), A4
1E9A8  6000 F970                 Bra       P774
1E9AC  7005           E_983:     MoveQ.L   #$5, D0
1E9AE  4A83                      Tst.L     D3
1E9B0  6B0A                      BMI.B     L4031
1E9B2  670A                      BEQ.B     L3955
1E9B4  5540                      SubQ      #$2, D0
1E9B6  0C43 0004                 Cmp       #$4, D3
1E9BA  6702                      BEQ.B     L3955
1E9BC  5240           L4031:     AddQ      #$1, D0
1E9BE  4A06           L3955:     Tst.B     D6
1E9C0  6702                      BEQ.B     L3956
1E9C2  4440                      Neg       D0
1E9C4  266E 000A      L3956:     Move.L    $A(A6), A3
1E9C8  3680                      Move      D0, (A3)
1E9CA  4E75                      Rts
1E9CC  4CEE 0600 000A L3957:     MoveM.L   $A(A6), A1-A2
1E9D2  3E3B 7006                 Move      DT116(D7.W), D7
1E9D6  4EFB 70F4                 Jmp       L3957(D7.W)
                      ; Jump Table
1E9DA  002A 0034 0038 DT116:     DC.B      ' * 4 8'
1E9E0  003E 01F2 055A            DC.B      ' >   Z'
1E9E6  0044 004A 005E            DC.B      ' D J ^'
1E9EC  0072 01D8 002E            DC.B      ' r   .'
1E9F2  01E4 0052                 DC.B      '   R'
1E9F6  3091           E_1026:    Move      (A1), (A0)
1E9F8  6020                      Bra.B     L4095
1E9FA  3290           E_1015:    Move      (A0), (A1)
1E9FC  4250                      Clr       (A0)
1E9FE  601A                      Bra.B     L4095
1EA00  3290           E_1027:    Move      (A0), (A1)
1EA02  6016                      Bra.B     L4095
1EA04  2151 0002      E_1028:    Move.L    (A1), $2(A0)
1EA08  6010                      Bra.B     L4095
1EA0A  22A8 0002      E_1016:    Move.L    $2(A0), (A1)
1EA0E  600A                      Bra.B     L4095
1EA10  0851 0007      E_1017:    BChg.B    #$7, (A1)
1EA14  6004                      Bra.B     L4095
1EA16  0891 0007      E_1018:    BClr.B    #$7, (A1)
1EA1A  6000 F6BA      L4095:     Bra       L4034
1EA1E  3011           E_1019:    Move      (A1), D0
1EA20  0110                      BTst.L    D0, (A0)
1EA22  56C0                      SNE.B     D0
1EA24  4400                      Neg.B     D0
1EA26  1280                      Move.B    D0, (A1)
1EA28  60F0                      Bra.B     L4095
1EA2A  0811 0007      E_1020:    BTst.B    #$7, (A1)
1EA2E  6706                      BEQ.B     L4096
1EA30  08D2 0007                 BSet.B    #$7, (A2)
1EA34  6004                      Bra.B     L4097
1EA36  0892 0007      L4096:     BClr.B    #$7, (A2)
1EA3A  6000 F694      L4097:     Bra       L4093
1EA3E  9EFC 0016      E_1021:    SubA      #$16, A7
1EA42  284F                      Move.L    A7, A4
1EA44  3A06                      Move      D6, D5
1EA46  0245 3800                 And       #$3800, D5
1EA4A  5246                      AddQ      #$1, D6
1EA4C  4846                      Swap      D6
1EA4E  4246                      Clr       D6
1EA50  2F0A                      Move.L    A2, -(A7)
1EA52  486C 000A                 Pea.L     $A(A4)
1EA56  700E                      MoveQ.L   #$E, D0
1EA58  8045                      Or        D5, D0
1EA5A  3F00                      Move      D0, -(A7)
1EA5C  6100 F56E                 Bsr       P783
1EA60  4294                      Clr.L     (A4)
1EA62  42AC 0004                 Clr.L     $4(A4)
1EA66  426C 0008                 Clr       $8(A4)
1EA6A  4854                      Pea.L     (A4)
1EA6C  486C 000A                 Pea.L     $A(A4)
1EA70  3F3C 0008                 Move      #$8, -(A7)
1EA74  6100 F556                 Bsr       P783
1EA78  56C4                      SNE.B     D4
1EA7A  2F09                      Move.L    A1, -(A7)
1EA7C  4854                      Pea.L     (A4)
1EA7E  3F00                      Move      D0, -(A7)
1EA80  6100 F54A                 Bsr       P783
1EA84  4854                      Pea.L     (A4)
1EA86  486C 000A                 Pea.L     $A(A4)
1EA8A  3F3C 0008                 Move      #$8, -(A7)
1EA8E  6100 F53C                 Bsr       P783
1EA92  6822                      BVC.B     L4098
1EA94  4854                      Pea.L     (A4)
1EA96  486C 000A                 Pea.L     $A(A4)
1EA9A  3F3C 0004                 Move      #$4, -(A7)
1EA9E  6100 F52C                 Bsr       P783
1EAA2  486C 000A                 Pea.L     $A(A4)
1EAA6  2F0A                      Move.L    A2, -(A7)
1EAA8  7010                      MoveQ.L   #$10, D0
1EAAA  8045                      Or        D5, D0
1EAAC  3F00                      Move      D0, -(A7)
1EAAE  6100 F51C                 Bsr       P783
1EAB2  6000 0080                 Bra       L4108
1EAB6  677C           L4098:     BEQ.B     L4108
1EAB8  6408                      BCC.B     L4099
1EABA  0812 0007                 BTst.B    #$7, (A2)
1EABE  6708                      BEQ.B     L4100
1EAC0  607A                      Bra.B     L4109
1EAC2  0812 0007      L4099:     BTst.B    #$7, (A2)
1EAC6  6774                      BEQ.B     L4109
1EAC8  0805 000C      L4100:     BTst.B    #$C, D5
1EACC  6704                      BEQ.B     L4101
1EACE  5292                      AddQ      #$1, (A2)
1EAD0  6034                      Bra.B     L4105
1EAD2  0805 000B      L4101:     BTst.B    #$B, D5
1EAD6  670A                      BEQ.B     L4103
1EAD8  52AA 0004                 AddQ      #$1, $4(A2)
1EADC  6402                      BCC.B     L4102
1EADE  5292                      AddQ      #$1, (A2)
1EAE0  6024           L4102:     Bra.B     L4105
1EAE2  52AA 0006      L4103:     AddQ      #$1, $6(A2)
1EAE6  641E                      BCC.B     L4105
1EAE8  52AA 0002                 AddQ      #$1, $2(A2)
1EAEC  6418                      BCC.B     L4105
1EAEE  E4EA 0002                 RXR       $2(A2)
1EAF2  5252                      AddQ      #$1, (A2)
1EAF4  0C52 7FFF                 Cmp       #$7FFF, (A2)
1EAF8  6706                      BEQ.B     L4104
1EAFA  0C52 FFFF                 Cmp       #$-1, (A2)
1EAFE  6606                      BNE.B     L4105
1EB00  08AA 0007 0002 L4104:     BClr.B    #$7, $2(A2)
1EB06  2F0A           L4105:     Move.L    A2, -(A7)
1EB08  486C 0014                 Pea.L     $14(A4)
1EB0C  701C                      MoveQ.L   #$1C, D0
1EB0E  8045                      Or        D5, D0
1EB10  3F00                      Move      D0, -(A7)
1EB12  6100 F4B8                 Bsr       P783
1EB16  322C 0014                 Move      $14(A4), D1
1EB1A  6A02                      BPL.B     L4106
1EB1C  4441                      Neg       D1
1EB1E  0C41 0003      L4106:     Cmp       #$3, D1
1EB22  6606                      BNE.B     L4107
1EB24  0046 1400                 Or        #$1400, D6
1EB28  600A                      Bra.B     L4108
1EB2A  0C41 0005      L4107:     Cmp       #$5, D1
1EB2E  6704                      BEQ.B     L4108
1EB30  0046 1200                 Or        #$1200, D6
1EB34  DEFC 0016      L4108:     AddA      #$16, A7
1EB38  6000 F568                 Bra       L4032
1EB3C  0805 000C      L4109:     BTst.B    #$C, D5
1EB40  6710                      BEQ.B     L4111
1EB42  4A04                      Tst.B     D4
1EB44  6608                      BNE.B     L4110
1EB46  0852 0007                 BChg.B    #$7, (A2)
1EB4A  5292                      AddQ      #$1, (A2)
1EB4C  60B8                      Bra.B     L4105
1EB4E  5392           L4110:     SubQ      #$1, (A2)
1EB50  60B4                      Bra.B     L4105
1EB52  0805 000B      L4111:     BTst.B    #$B, D5
1EB56  6718                      BEQ.B     L4114
1EB58  4A04                      Tst.B     D4
1EB5A  660A                      BNE.B     L4112
1EB5C  0852 0007                 BChg.B    #$7, (A2)
1EB60  526A 0006                 AddQ      #$1, $6(A2)
1EB64  60A0                      Bra.B     L4105
1EB66  53AA 0004      L4112:     SubQ      #$1, $4(A2)
1EB6A  6402                      BCC.B     L4113
1EB6C  5392                      SubQ      #$1, (A2)
1EB6E  6096           L4113:     Bra.B     L4105
1EB70  4A04           L4114:     Tst.B     D4
1EB72  660A                      BNE.B     L4115
1EB74  0852 0007                 BChg.B    #$7, (A2)
1EB78  526A 0008                 AddQ      #$1, $8(A2)
1EB7C  6088                      Bra.B     L4105
1EB7E  53AA 0006      L4115:     SubQ      #$1, $6(A2)
1EB82  641C                      BCC.B     L4118
1EB84  53AA 0002                 SubQ      #$1, $2(A2)
1EB88  6B12                      BMI.B     L4116
1EB8A  4A52                      Tst       (A2)
1EB8C  6712                      BEQ.B     L4118
1EB8E  0C52 8000                 Cmp       #$-8000, (A2)
1EB92  670C                      BEQ.B     L4118
1EB94  066A 8000 0002            Add       #$-8000, $2(A2)
1EB9A  6002                      Bra.B     L4117
1EB9C  6402           L4116:     BCC.B     L4118
1EB9E  5352           L4117:     SubQ      #$1, (A2)
1EBA0  6000 FF64      L4118:     Bra       L4105
1EBA4  4846           E_1022:    Swap      D6
1EBA6  4246                      Clr       D6
1EBA8  3011                      Move      (A1), D0
1EBAA  5040                      AddQ      #$8, D0
1EBAC  01C6                      BSet.L    D0, D6
1EBAE  600A                      Bra.B     L4119
1EBB0  4846           E_1023:    Swap      D6
1EBB2  3C3C 1F00                 Move      #$1F00, D6
1EBB6  CC50                      And       (A0), D6
1EBB8  3091                      Move      (A1), (A0)
1EBBA  6000 F4E6      L4119:     Bra       L4032
1EBBE  9EFC 0014      E_1024:    SubA      #$14, A7
1EBC2  264F                      Move.L    A7, A3
1EBC4  49EA 0004                 Lea.L     $4(A2), A4
1EBC8  362A 0002                 Move      $2(A2), D3
1EBCC  4846                      Swap      D6
1EBCE  4284                      Clr.L     D4
1EBD0  2A04                      Move.L    D4, D5
1EBD2  2E04                      Move.L    D4, D7
1EBD4  7413                      MoveQ.L   #$13, D2
1EBD6  1C1C                      Move.B    (A4)+, D6
1EBD8  6768                      BEQ.B     L4126
1EBDA  1014                      Move.B    (A4), D0
1EBDC  0C00 0049                 Cmp.B     #$49, D0
1EBE0  6754                      BEQ.B     L4124
1EBE2  0C00 004E                 Cmp.B     #$4E, D0
1EBE6  6654                      BNE.B     L4125
1EBE8  142C FFFF                 Move.B    $-1(A4), D2
1EBEC  528C                      AddQ      #$1, A4
1EBEE  5302                      SubQ      #$1, D2
1EBF0  7008                      MoveQ.L   #$8, D0
1EBF2  0C02 0004                 Cmp.B     #$4, D2
1EBF6  6C04                      BGE.B     L4120
1EBF8  5900                      SubQ      #$4, D0
1EBFA  D002                      Add.B     D2, D0
1EBFC  610A           L4120:     Bsr.B     P784
1EBFE  2805                      Move.L    D5, D4
1EC00  4285                      Clr.L     D5
1EC02  7008                      MoveQ.L   #$8, D0
1EC04  6102                      Bsr.B     P784
1EC06  601E                      Bra.B     L4123
1EC08  E99D           P784:      ROL.L     #$4, D5
1EC0A  5302                      SubQ      #$1, D2
1EC0C  6B12                      BMI.B     L4122
1EC0E  121C                      Move.B    (A4)+, D1
1EC10  0C01 0039                 Cmp.B     #$39, D1
1EC14  6F04                      BLE.B     L4121
1EC16  0601 0009                 Add.B     #$9, D1
1EC1A  0201 000F      L4121:     And.B     #$F, D1
1EC1E  8A01                      Or.B      D1, D5
1EC20  5340           L4122:     SubQ      #$1, D0
1EC22  66E4                      BNE.B     P784
1EC24  4E75                      Rts
1EC26  0284 7FFF FFFF L4123:     And.L     #$7FFFFFFF, D4
1EC2C  6608                      BNE.B     L4124
1EC2E  7815                      MoveQ.L   #$15, D4
1EC30  4844                      Swap      D4
1EC32  08C4 001E                 BSet.B    #$1E, D4
1EC36  303C 7FFF      L4124:     Move      #$7FFF, D0
1EC3A  6008                      Bra.B     L4127
1EC3C  0C00 0030      L4125:     Cmp.B     #$30, D0
1EC40  6628                      BNE.B     L4129
1EC42  4280           L4126:     Clr.L     D0
1EC44  4A12           L4127:     Tst.B     (A2)
1EC46  6704                      BEQ.B     L4128
1EC48  08C0 000F                 BSet.B    #$F, D0
1EC4C  6100 0074      L4128:     Bsr       P786
1EC50  6000 0052                 Bra       L4134
1EC54  DA85           P785:      Add.L     D5, D5
1EC56  D984                      AddX.L    D4, D4
1EC58  2205                      Move.L    D5, D1
1EC5A  2004                      Move.L    D4, D0
1EC5C  DA85                      Add.L     D5, D5
1EC5E  D984                      AddX.L    D4, D4
1EC60  DA85                      Add.L     D5, D5
1EC62  D984                      AddX.L    D4, D4
1EC64  DA81                      Add.L     D1, D5
1EC66  D980                      AddX.L    D0, D4
1EC68  4E75                      Rts
1EC6A  61E8           L4129:     Bsr.B     P785
1EC6C  700F                      MoveQ.L   #$F, D0
1EC6E  C01C                      And.B     (A4)+, D0
1EC70  DA80                      Add.L     D0, D5
1EC72  4240                      Clr       D0
1EC74  D980                      AddX.L    D0, D4
1EC76  5306                      SubQ      #$1, D6
1EC78  6716                      BEQ.B     L4131
1EC7A  5302                      SubQ      #$1, D2
1EC7C  66EC                      BNE.B     L4129
1EC7E  1E3C 000F                 Move.B    #$F, D7
1EC82  CE14                      And.B     (A4), D7
1EC84  600E                      Bra.B     L4132
1EC86  0C43 001B      L4130:     Cmp       #$1B, D3
1EC8A  6F08                      BLE.B     L4132
1EC8C  61C6                      Bsr.B     P785
1EC8E  5343                      SubQ      #$1, D3
1EC90  5342           L4131:     SubQ      #$1, D2
1EC92  66F2                      BNE.B     L4130
1EC94  303C 403E      L4132:     Move      #$403E, D0
1EC98  4A12                      Tst.B     (A2)
1EC9A  6704                      BEQ.B     L4133
1EC9C  08C0 000F                 BSet.B    #$F, D0
1ECA0  6120           L4133:     Bsr.B     P786
1ECA2  6128                      Bsr.B     P787
1ECA4  4846           L4134:     Swap      D6
1ECA6  0246 3800                 And       #$3800, D6
1ECAA  0046 0010                 Or        #$10, D6
1ECAE  4853                      Pea.L     (A3)
1ECB0  2F2E 000A                 Move.L    $A(A6), -(A7)
1ECB4  3F06                      Move      D6, -(A7)
1ECB6  6100 F314                 Bsr       P783
1ECBA  DEFC 0014                 AddA      #$14, A7
1ECBE  6000 F410                 Bra       L4093
1ECC2  36C0           P786:      Move      D0, (A3)+
1ECC4  26C4                      Move.L    D4, (A3)+
1ECC6  2685                      Move.L    D5, (A3)
1ECC8  5D8B                      SubQ      #$6, A3
1ECCA  4E75                      Rts
1ECCC  1C10           P787:      Move.B    (A0), D6
1ECCE  1F06                      Move.B    D6, -(A7)
1ECD0  0206 0060                 And.B     #$60, D6
1ECD4  670E                      BEQ.B     L4135
1ECD6  7240                      MoveQ.L   #$40, D1
1ECD8  4A13                      Tst.B     (A3)
1ECDA  6A0C                      BPL.B     L4136
1ECDC  0C06 0040                 Cmp.B     #$40, D6
1ECE0  670C                      BEQ.B     L4137
1ECE2  600E                      Bra.B     L4138
1ECE4  1086           L4135:     Move.B    D6, (A0)
1ECE6  6014                      Bra.B     L4140
1ECE8  0C06 0020      L4136:     Cmp.B     #$20, D6
1ECEC  6604                      BNE.B     L4138
1ECEE  0A01 0060      L4137:     Eor.B     #$60, D1
1ECF2  4A43           L4138:     Tst       D3
1ECF4  6A04                      BPL.B     L4139
1ECF6  0A01 0060                 Eor.B     #$60, D1
1ECFA  1081           L4139:     Move.B    D1, (A0)
1ECFC  43EB 000A      L4140:     Lea.L     $A(A3), A1
1ED00  6100 00F2                 Bsr       P788
1ED04  0010 0060                 Or.B      #$60, (A0)
1ED08  486B 000A                 Pea.L     $A(A3)
1ED0C  4853                      Pea.L     (A3)
1ED0E  7004                      MoveQ.L   #$4, D0
1ED10  4A43                      Tst       D3
1ED12  6A02                      BPL.B     L4141
1ED14  7006                      MoveQ.L   #$6, D0
1ED16  3F00           L4141:     Move      D0, -(A7)
1ED18  6100 F2B2                 Bsr       P783
1ED1C  0810 0004                 BTst.B    #$4, (A0)
1ED20  56C0                      SNE.B     D0
1ED22  4A07                      Tst.B     D7
1ED24  56C7                      SNE.B     D7
1ED26  8007                      Or.B      D7, D0
1ED28  1210                      Move.B    (A0), D1
1ED2A  0201 001F                 And.B     #$1F, D1
1ED2E  821F                      Or.B      (A7)+, D1
1ED30  1081                      Move.B    D1, (A0)
1ED32  4400                      Neg.B     D0
1ED34  673E                      BEQ.B     L4145
1ED36  08D0 0004                 BSet.B    #$4, (A0)
1ED3A  4A06                      Tst.B     D6
1ED3C  6728                      BEQ.B     L4144
1ED3E  0C06 0060                 Cmp.B     #$60, D6
1ED42  6730                      BEQ.B     L4145
1ED44  2F3C 0000 0001            Move.L    #$1, -(A7)
1ED4A  42A7                      Clr.L     -(A7)
1ED4C  3F13                      Move      (A3), -(A7)
1ED4E  5357                      SubQ      #$1, (A7)
1ED50  6502                      BCS.B     L4142
1ED52  6802                      BVC.B     L4143
1ED54  5257           L4142:     AddQ      #$1, (A7)
1ED56  4857           L4143:     Pea.L     (A7)
1ED58  4853                      Pea.L     (A3)
1ED5A  4267                      Clr       -(A7)
1ED5C  6100 F26E                 Bsr       P783
1ED60  DEFC 000A                 AddA      #$A, A7
1ED64  600E                      Bra.B     L4145
1ED66  3013           L4144:     Move      (A3), D0
1ED68  5240                      AddQ      #$1, D0
1ED6A  D040                      Add       D0, D0
1ED6C  6706                      BEQ.B     L4145
1ED6E  08EB 0000 0009            BSet.B    #$0, $9(A3)
1ED74  4E75           L4145:     Rts
1ED76  000E 0000 402D            DC.B      '    @-'
1ED7C  B5E6 20F4 8000            DC.B      '      '
1ED82  0000 001B 0000            DC.B      '      '
1ED88  4058 CECB 8F27            DC.B      '@X   ''
1ED8E  F420 0F3A 0037            DC.B      '   : 7'
1ED94  0001 40B5 D0CF            DC.B      '  @   '
1ED9A  4B50 CFE2 0766            DC.B      'KP   f'
1EDA0  006C 0001 4165            DC.B      ' l  Ae'
1EDA6  DA01 EE64 1A70            DC.B      '   d p'
1EDAC  8DEA 00CE FFFF            DC.B      '      '
1EDB2  42AB 9F79 A169            DC.B      'B  y i'
1EDB8  BD20 3E41 019C            DC.B      '  >A  '
1EDBE  0001 4557 C6B0            DC.B      '  EW  '
1EDC4  A096 A952 02BE            DC.B      '   R  '
1EDCA  0338 0001 4AB0            DC.B      ' 8  J '
1EDD0  9A35 B246 41D0            DC.B      ' 5 FA '
1EDD6  5953 0670 0001            DC.B      'YS p  '
1EDDC  5561 B9C9 4B7F            DC.B      'Ua  K '
1EDE2  A8D7 6515                 DC.B      '  e '
1EDE6  0CE0 0001 6AC4 DT123:     DC.B      '    j '
1EDEC  86D4 8D66 26C2            DC.B      '   f& '
1EDF2  7EEC                      DC.B      '~ '
1EDF4  7209           P788:      MoveQ.L   #$9, D1
1EDF6  3003                      Move      D3, D0
1EDF8  6A02                      BPL.B     L4146
1EDFA  4440                      Neg       D0
1EDFC  0C40 000F      L4146:     Cmp       #$F, D0
1EE00  6564                      BCS.B     L4156
1EE02  0C40 1388                 Cmp       #$1388, D0
1EE06  6504                      BCS.B     L4147
1EE08  303C 1388                 Move      #$1388, D0
1EE0C  45FA FFD8      L4147:     Lea.L     DT123, A2
1EE10  B052           L4148:     Cmp       (A2), D0
1EE12  654A                      BCS.B     L4155
1EE14  905A                      Sub       (A2)+, D0
1EE16  4A52                      Tst       (A2)
1EE18  673E                      BEQ.B     L4153
1EE1A  08D0 0004                 BSet.B    #$4, (A0)
1EE1E  0810 0006                 BTst.B    #$6, (A0)
1EE22  6706                      BEQ.B     L4149
1EE24  4A52                      Tst       (A2)
1EE26  6F30                      BLE.B     L4153
1EE28  600A                      Bra.B     L4150
1EE2A  0810 0005      L4149:     BTst.B    #$5, (A0)
1EE2E  6728                      BEQ.B     L4153
1EE30  4A52                      Tst       (A2)
1EE32  6C24                      BGE.B     L4153
1EE34  2F0A           L4150:     Move.L    A2, -(A7)
1EE36  3F2A 000A                 Move      $A(A2), -(A7)
1EE3A  4A5A                      Tst       (A2)+
1EE3C  6A04                      BPL.B     L4151
1EE3E  5257                      AddQ      #$1, (A7)
1EE40  6002                      Bra.B     L4152
1EE42  5357           L4151:     SubQ      #$1, (A7)
1EE44  2F2A 0004      L4152:     Move.L    $4(A2), -(A7)
1EE48  2F12                      Move.L    (A2), -(A7)
1EE4A  244F                      Move.L    A7, A2
1EE4C  6120                      Bsr.B     P789
1EE4E  508F                      AddQ      #$8, A7
1EE50  548F                      AddQ      #$2, A7
1EE52  245F                      Move.L    (A7)+, A2
1EE54  548A                      AddQ      #$2, A2
1EE56  6004                      Bra.B     L4154
1EE58  548A           L4153:     AddQ      #$2, A2
1EE5A  6112                      Bsr.B     P789
1EE5C  598A           L4154:     SubQ      #$4, A2
1EE5E  94FC 000E      L4155:     SubA      #$E, A2
1EE62  5341                      SubQ      #$1, D1
1EE64  66AA                      BNE.B     L4148
1EE66  C0FC 000A      L4156:     MulU      #$A, D0
1EE6A  45FB 0024                 Lea.L     DT124(D0.W), A2
1EE6E  4A81           P789:      Tst.L     D1
1EE70  6A0E                      BPL.B     L4157
1EE72  4852                      Pea.L     (A2)
1EE74  4851                      Pea.L     (A1)
1EE76  3F3C 0004                 Move      #$4, -(A7)
1EE7A  6100 F150                 Bsr       P783
1EE7E  4E75                      Rts
1EE80  32DA           L4157:     Move      (A2)+, (A1)+
1EE82  22DA                      Move.L    (A2)+, (A1)+
1EE84  2292                      Move.L    (A2), (A1)
1EE86  5D89                      SubQ      #$6, A1
1EE88  5D8A                      SubQ      #$6, A2
1EE8A  08C1 001F                 BSet.B    #$1F, D1
1EE8E  4E75                      Rts
1EE90  3FFF 8000 0000 DT124:     DC.B      '?     '
1EE96  0000 0000 4002            DC.B      '    @ '
1EE9C  A000 0000 0000            DC.B      '      '
1EEA2  0000 4005 C800            DC.B      '  @   '
1EEA8  0000 0000 0000            DC.B      '      '
1EEAE  4008 FA00 0000            DC.B      '@     '
1EEB4  0000 0000 400C            DC.B      '    @ '
1EEBA  9C40 0000 0000            DC.B      ' @    '
1EEC0  0000 400F C350            DC.B      '  @  P'
1EEC6  0000 0000 0000            DC.B      '      '
1EECC  4012 F424 0000            DC.B      '@  $  '
1EED2  0000 0000 4016            DC.B      '    @ '
1EED8  9896 8000 0000            DC.B      '      '
1EEDE  0000 4019 BEBC            DC.B      '  @   '
1EEE4  2000 0000 0000            DC.B      '      '
1EEEA  401C EE6B 2800            DC.B      '@  k( '
1EEF0  0000 0000 4020            DC.B      '    @ '
1EEF6  9502 F900 0000            DC.B      '      '
1EEFC  0000 4023 BA43            DC.B      '  @# C'
1EF02  B740 0000 0000            DC.B      ' @    '
1EF08  4026 E8D4 A510            DC.B      '@&    '
1EF0E  0000 0000 402A            DC.B      '    @*'
1EF14  9184 E72A 0000            DC.B      '   *  '
1EF1A  0000 402D B5E6            DC.B      '  @-  '
1EF20  20F4 8000 0000            DC.B      '      '
1EF26  3006           E_1025:    Move      D6, D0
1EF28  ED58                      ROL       #$6, D0
1EF2A  4282                      Clr.L     D2
1EF2C  2602                      Move.L    D2, D3
1EF2E  2C02                      Move.L    D2, D6
1EF30  2E02                      Move.L    D2, D7
1EF32  264A                      Move.L    A2, A3
1EF34  6100 F1C0                 Bsr       P771
1EF38  300C                      Move      A4, D0
1EF3A  286E 0012                 Move.L    $12(A6), A4
1EF3E  9EFC 001E                 SubA      #$1E, A7
1EF42  264F                      Move.L    A7, A3
1EF44  E31E                      ROL.B     #$1, D6
1EF46  1286                      Move.B    D6, (A1)
1EF48  137C 0001 0004            Move.B    #$1, $4(A1)
1EF4E  4A42                      Tst       D2
1EF50  6734                      BEQ.B     L4160
1EF52  5889                      AddQ      #$4, A1
1EF54  12FC 0011                 Move.B    #$11, (A1)+
1EF58  12FC 004E                 Move.B    #$4E, (A1)+
1EF5C  610C                      Bsr.B     P790
1EF5E  2805                      Move.L    D5, D4
1EF60  6108                      Bsr.B     P790
1EF62  92FC 0016                 SubA      #$16, A1
1EF66  6000 01DC                 Bra       L4181
1EF6A  7008           P790:      MoveQ.L   #$8, D0
1EF6C  E99C           L4158:     ROL.L     #$4, D4
1EF6E  720F                      MoveQ.L   #$F, D1
1EF70  C204                      And.B     D4, D1
1EF72  0001 0030                 Or.B      #$30, D1
1EF76  0C01 0039                 Cmp.B     #$39, D1
1EF7A  6F02                      BLE.B     L4159
1EF7C  5E01                      AddQ      #$7, D1
1EF7E  12C1           L4159:     Move.B    D1, (A1)+
1EF80  5340                      SubQ      #$1, D0
1EF82  66E8                      BNE.B     L4158
1EF84  4E75                      Rts
1EF86  4A43           L4160:     Tst       D3
1EF88  6712                      BEQ.B     L4162
1EF8A  7030                      MoveQ.L   #$30, D0
1EF8C  0C43 0002                 Cmp       #$2, D3
1EF90  6702                      BEQ.B     L4161
1EF92  7049                      MoveQ.L   #$49, D0
1EF94  1340 0005      L4161:     Move.B    D0, $5(A1)
1EF98  6000 01AA                 Bra       L4181
1EF9C  2204           L4162:     Move.L    D4, D1
1EF9E  3200                      Move      D0, D1
1EFA0  0441 3FFF                 Sub       #$3FFF, D1
1EFA4  4841                      Swap      D1
1EFA6  D241                      Add       D1, D1
1EFA8  4A40                      Tst       D0
1EFAA  6A08                      BPL.B     L4164
1EFAC  E28C           L4163:     LsR.L     #$1, D4
1EFAE  E295                      RXR.L     #$1, D5
1EFB0  5240                      AddQ      #$1, D0
1EFB2  6BF8                      BMI.B     L4163
1EFB4  E25E           L4164:     ROR       #$1, D6
1EFB6  8046                      Or        D6, D0
1EFB8  6100 FD08                 Bsr       P786
1EFBC  4284                      Clr.L     D4
1EFBE  4A14                      Tst.B     (A4)
1EFC0  662C                      BNE.B     L4166
1EFC2  203C 4D10 4D42            Move.L    #$4D104D42, D0
1EFC8  4A81                      Tst.L     D1
1EFCA  6A02                      BPL.B     L4165
1EFCC  5240                      AddQ      #$1, D0
1EFCE  2800           L4165:     Move.L    D0, D4
1EFD0  4844                      Swap      D4
1EFD2  C8C1                      MulU      D1, D4
1EFD4  4244                      Clr       D4
1EFD6  4844                      Swap      D4
1EFD8  4841                      Swap      D1
1EFDA  3A01                      Move      D1, D5
1EFDC  CBC0                      MulW      D0, D5
1EFDE  4845                      Swap      D5
1EFE0  48C5                      Ext.L     D5
1EFE2  D885                      Add.L     D5, D4
1EFE4  4840                      Swap      D0
1EFE6  C1C1                      MulW      D1, D0
1EFE8  D880                      Add.L     D0, D4
1EFEA  4844                      Swap      D4
1EFEC  5244                      AddQ      #$1, D4
1EFEE  6100 0084      L4166:     Bsr       P791
1EFF2  9644                      Sub       D4, D3
1EFF4  226E 000A                 Move.L    $A(A6), A1
1EFF8  3343 0002                 Move      D3, $2(A1)
1EFFC  4469 0002                 Neg       $2(A1)
1F000  3753 0014                 Move      (A3), $14(A3)
1F004  276B 0002 0016            Move.L    $2(A3), $16(A3)
1F00A  276B 0006 001A            Move.L    $6(A3), $1A(A3)
1F010  6100 FCBA                 Bsr       P787
1F014  4853                      Pea.L     (A3)
1F016  3F3C 0014                 Move      #$14, -(A7)
1F01A  6100 EFB0                 Bsr       P783
1F01E  43EB 000A                 Lea.L     $A(A3), A1
1F022  4A14                      Tst.B     (A4)
1F024  6604                      BNE.B     L4167
1F026  614C                      Bsr.B     P791
1F028  6002                      Bra.B     L4168
1F02A  7613           L4167:     MoveQ.L   #$13, D3
1F02C  6100 FDC6      L4168:     Bsr       P788
1F030  3013                      Move      (A3), D0
1F032  0880 000F                 BClr.B    #$F, D0
1F036  B051                      Cmp       (A1), D0
1F038  6612                      BNE.B     L4169
1F03A  202B 0002                 Move.L    $2(A3), D0
1F03E  B0A9 0002                 Cmp.L     $2(A1), D0
1F042  6608                      BNE.B     L4169
1F044  202B 0006                 Move.L    $6(A3), D0
1F048  B0A9 0006                 Cmp.L     $6(A1), D0
1F04C  6540           L4169:     BCS.B     L4173
1F04E  4A14                      Tst.B     (A4)
1F050  6614                      BNE.B     L4170
1F052  5244                      AddQ      #$1, D4
1F054  36AB 0014                 Move      $14(A3), (A3)
1F058  276B 0016 0002            Move.L    $16(A3), $2(A3)
1F05E  276B 001A 0006            Move.L    $1A(A3), $6(A3)
1F064  6088                      Bra.B     L4166
1F066  226E 000A      L4170:     Move.L    $A(A6), A1
1F06A  137C 003F 0005            Move.B    #$3F, $5(A1)
1F070  6000 00D2                 Bra       L4181
1F074  362C 0002      P791:      Move      $2(A4), D3
1F078  4A14                      Tst.B     (A4)
1F07A  6610                      BNE.B     L4172
1F07C  4A43                      Tst       D3
1F07E  6F0A                      BLE.B     L4171
1F080  0C43 0013                 Cmp       #$13, D3
1F084  6F06                      BLE.B     L4172
1F086  7613                      MoveQ.L   #$13, D3
1F088  6002                      Bra.B     L4172
1F08A  7601           L4171:     MoveQ.L   #$1, D3
1F08C  4E75           L4172:     Rts
1F08E  4A14           L4173:     Tst.B     (A4)
1F090  6636                      BNE.B     L4175
1F092  61E0                      Bsr.B     P791
1F094  5343                      SubQ      #$1, D3
1F096  6100 FD5C                 Bsr       P788
1F09A  3013                      Move      (A3), D0
1F09C  0880 000F                 BClr.B    #$F, D0
1F0A0  B051                      Cmp       (A1), D0
1F0A2  6612                      BNE.B     L4174
1F0A4  202B 0002                 Move.L    $2(A3), D0
1F0A8  B0A9 0002                 Cmp.L     $2(A1), D0
1F0AC  6608                      BNE.B     L4174
1F0AE  202B 0006                 Move.L    $6(A3), D0
1F0B2  B0A9 0006                 Cmp.L     $6(A1), D0
1F0B6  6410           L4174:     BCC.B     L4175
1F0B8  3691                      Move      (A1), (A3)
1F0BA  2769 0002 0002            Move.L    $2(A1), $2(A3)
1F0C0  2769 0006 0006            Move.L    $6(A1), $6(A3)
1F0C6  4E71                      Nop
1F0C8  226E 000A      L4175:     Move.L    $A(A6), A1
1F0CC  3613                      Move      (A3), D3
1F0CE  222B 0002                 Move.L    $2(A3), D1
1F0D2  660A                      BNE.B     L4176
1F0D4  137C 0030 0005            Move.B    #$30, $5(A1)
1F0DA  6000 0068                 Bra       L4181
1F0DE  242B 0006      L4176:     Move.L    $6(A3), D2
1F0E2  0883 000F                 BClr.B    #$F, D3
1F0E6  0443 403E                 Sub       #$403E, D3
1F0EA  6708                      BEQ.B     L4178
1F0EC  E289           L4177:     LsR.L     #$1, D1
1F0EE  E292                      RXR.L     #$1, D2
1F0F0  5243                      AddQ      #$1, D3
1F0F2  6BF8                      BMI.B     L4177
1F0F4  263C 8AC7 2304 L4178:     Move.L    #$8AC72304, D3
1F0FA  247C 89E8 0000            Move.L    #$89E80000, A2
1F100  7041                      MoveQ.L   #$41, D0
1F102  6100 F5D2                 Bsr       P782
1F106  5285                      AddQ      #$1, D5
1F108  D980                      AddX.L    D0, D4
1F10A  5889                      AddQ      #$4, A1
1F10C  2449                      Move.L    A1, A2
1F10E  421A                      Clr.B     (A2)+
1F110  7C13                      MoveQ.L   #$13, D6
1F112  DA85           L4179:     Add.L     D5, D5
1F114  D984                      AddX.L    D4, D4
1F116  D140                      AddX      D0, D0
1F118  2605                      Move.L    D5, D3
1F11A  2404                      Move.L    D4, D2
1F11C  3200                      Move      D0, D1
1F11E  DA85                      Add.L     D5, D5
1F120  D984                      AddX.L    D4, D4
1F122  D140                      AddX      D0, D0
1F124  DA85                      Add.L     D5, D5
1F126  D984                      AddX.L    D4, D4
1F128  D140                      AddX      D0, D0
1F12A  DA83                      Add.L     D3, D5
1F12C  D982                      AddX.L    D2, D4
1F12E  D141                      AddX      D1, D0
1F130  4A40                      Tst       D0
1F132  670C                      BEQ.B     L4180
1F134  0080 0000 0130            Or.L      #$130, D0
1F13A  14C0                      Move.B    D0, (A2)+
1F13C  4200                      Clr.B     D0
1F13E  5211                      AddQ      #$1, (A1)
1F140  5306           L4180:     SubQ      #$1, D6
1F142  66CE                      BNE.B     L4179
1F144  DEFC 001E      L4181:     AddA      #$1E, A7
1F148  6000 EFA6                 Bra       L4094
                      ; end of resource : 'PACK' 4

                      ; resource header
1F14C  C000 004C                 DC.L      $C000004C       ; Length
1F150  0000 0080                 DC.L      $00000080       ; ?
                      ; resource : 'CURS' 2
                      ; CrossCursor
1F154  0400 0400 0400            DC.B      '      '
1F15A  0400 0400 FFE0            DC.B      '      '
1F160  0400 0400 0400            DC.B      '      '
1F166  0400 0400 0400            DC.B      '      '
1F16C  0000 0000 0000            DC.B      '      '
1F172  0000 0000 0000            DC.B      '      '
1F178  0000 0000 0000            DC.B      '      '
1F17E  0000 0000 0000            DC.B      '      '
1F184  0000 0000 0000            DC.B      '      '
1F18A  0000 0000 0000            DC.B      '      '
1F190  0000 0000 0005            DC.B      '      '
1F196  0005                      DC.B      '  '
                      ; end of resource : 'CURS' 2

                      ; resource header
1F198  C000 004C                 DC.L      $C000004C       ; Length
1F19C  0000 0084                 DC.L      $00000084       ; ?
                      ; resource : 'CURS' 3
                      ; PlusCursor
1F1A0  0000 07C0 0460            DC.B      '     `'
1F1A6  0460 0460 7C7C            DC.B      ' ` `||'
1F1AC  4386 4286 4386            DC.B      'C B C '
1F1B2  7C7E 3C7E 0460            DC.B      '|~<~ `'
1F1B8  0460 07E0 03E0            DC.B      ' `    '
1F1BE  0000 0FC0 0FE0            DC.B      '      '
1F1C4  0FF0 0FF0 FFFF            DC.B      '      '
1F1CA  FFFE FC7F FC7F            DC.B      '      '
1F1D0  FC7F FFFF 7FFF            DC.B      '      '
1F1D6  7FFF 0FF0 0FF0            DC.B      '      '
1F1DC  07F0 03E0 0008            DC.B      '      '
1F1E2  0008                      DC.B      '  '
                      ; end of resource : 'CURS' 3

                      ; resource header
1F1E4  C000 004C                 DC.L      $C000004C       ; Length
1F1E8  0000 0088                 DC.L      $00000088       ; ?
                      ; resource : 'CURS' 1
                      ; IBeamCursor
1F1EC  0C60 0280 0100            DC.B      ' `    '
1F1F2  0100 0100 0100            DC.B      '      '
1F1F8  0100 0100 0100            DC.B      '      '
1F1FE  0100 0100 0100            DC.B      '      '
1F204  0100 0100 0280            DC.B      '      '
1F20A  0C60 0000 0000            DC.B      ' `    '
1F210  0000 0000 0000            DC.B      '      '
1F216  0000 0000 0000            DC.B      '      '
1F21C  0000 0000 0000            DC.B      '      '
1F222  0000 0000 0000            DC.B      '      '
1F228  0000 0000 0004            DC.B      '      '
1F22E  0007                      DC.B      '  '
                      ; end of resource : 'CURS' 1

                      ; resource header
1F230  C000 004C                 DC.L      $C000004C       ; Length
1F234  0000 008C                 DC.L      $0000008C       ; ?
                      ; resource : 'CURS' 4
                      ; WatchCursor
1F238  3F00 3F00 3F00            DC.B      '? ? ? '
1F23E  3F00 4080 8440            DC.B      '? @  @'
1F244  8440 8460 9C60            DC.B      ' @ ` `'
1F24A  8040 8040 4080            DC.B      ' @ @@ '
1F250  3F00 3F00 3F00            DC.B      '? ? ? '
1F256  3F00 3F00 3F00            DC.B      '? ? ? '
1F25C  3F00 3F00 7F80            DC.B      '? ?   '
1F262  FFC0 FFC0 FFC0            DC.B      '      '
1F268  FFC0 FFC0 FFC0            DC.B      '      '
1F26E  7F80 3F00 3F00            DC.B      '  ? ? '
1F274  3F00 3F00 0008            DC.B      '? ?   '
1F27A  0008                      DC.B      '  '
                      ; end of resource : 'CURS' 4

                      ; resource header
1F27C  C000 0008                 DC.L      $C0000008       ; Length
1F280  0000 0090                 DC.L      $00000090       ; ?
                      ; resource : 'FONT' 0 'Chicago'
                      ; Name of system font
                      ; end of resource : 'FONT' 0 'Chicago'

                      ; resource header
1F284  C000 0D3C                 DC.L      $C0000D3C       ; Length
1F288  0000 0094                 DC.L      $00000094       ; ?
                      ; resource : 'FONT' 12
                      ; System font (Chicago 12)
1F28C  9001 0000 00D8            DC.B      '      '
1F292  000E 0000 FFF4            DC.B      '      '
1F298  000E 000F 04DC            DC.B      '      '
1F29E  000C 0003 0001            DC.B      '      '
1F2A4  0044 0000 0000            DC.B      ' D    '
1F2AA  0000 0000 0000            DC.B      '      '
1F2B0  0000 0000 0000            DC.B      '      '
1F2B6  0000 0000 0000            DC.B      '      '
1F2BC  0000 0000 0000            DC.B      '      '
1F2C2  0000 0000 0000            DC.B      '      '
1F2C8  0000 0000 0000            DC.B      '      '
1F2CE  0000 0000 0000            DC.B      '      '
1F2D4  0000 0000 0000            DC.B      '      '
1F2DA  0000 0000 0000            DC.B      '      '
1F2E0  0000 0000 0000            DC.B      '      '
1F2E6  0000 0000 0C00            DC.B      '      '
1F2EC  4C80 0000 0000            DC.B      'L     '
1F2F2  0300 0000 0000            DC.B      '      '
1F2F8  0000 0000 0000            DC.B      '      '
1F2FE  0000 0000 0000            DC.B      '      '
1F304  0000 0000 0000            DC.B      '      '
1F30A  0000 0000 0000            DC.B      '      '
1F310  0000 0000 0000            DC.B      '      '
1F316  0000 0000 0000            DC.B      '      '
1F31C  0000 0000 0000            DC.B      '      '
1F322  0432 C800 0000            DC.B      ' 2    '
1F328  0000 0000 0000            DC.B      '      '
1F32E  0000 0003 0000            DC.B      '      '
1F334  0000 0000 0000            DC.B      '      '
1F33A  0000 0000 0000            DC.B      '      '
1F340  0000 0000 0000            DC.B      '      '
1F346  0000 0000 0000            DC.B      '      '
1F34C  0000 0000 0000            DC.B      '      '
1F352  0000 0000 0000            DC.B      '      '
1F358  0000 0000 0000            DC.B      '      '
1F35E  0000 0000 0000            DC.B      '      '
1F364  0000 0000 0000            DC.B      '      '
1F36A  0000 0000 0000            DC.B      '      '
1F370  0004 9200 9312            DC.B      '      '
1F376  4800 0000 0480            DC.B      'H     '
1F37C  0000 0000 0000            DC.B      '      '
1F382  0000 0000 0000            DC.B      '      '
1F388  0000 0000 0000            DC.B      '      '
1F38E  0000 0000 0000            DC.B      '      '
1F394  0000 0000 0000            DC.B      '      '
1F39A  0000 0000 0000            DC.B      '      '
1F3A0  0000 0000 0000            DC.B      '      '
1F3A6  0000 0000 024D            DC.B      '     M'
1F3AC  3000 0000 0000            DC.B      '0     '
1F3B2  0000 0000 0000            DC.B      '      '
1F3B8  0006 0024 46E0            DC.B      '   $F '
1F3BE  00C0 0000 1000            DC.B      '      '
1F3C4  0000 0000 0000            DC.B      '      '
1F3CA  0000 0000 0000            DC.B      '      '
1F3D0  0000 0000 0000            DC.B      '      '
1F3D6  0000 0000 0000            DC.B      '      '
1F3DC  0000 0000 0001            DC.B      '      '
1F3E2  E1C0 0100 0000            DC.B      '      '
1F3E8  0000 0000 0000            DC.B      '      '
1F3EE  0000 0000 0000            DC.B      '      '
1F3F4  0000 0000 7000            DC.B      '    p '
1F3FA  1200 0000 0042            DC.B      '     B'
1F400  0C01 9480 1083            DC.B      '      '
1F406  0066 0644 20C0            DC.B      ' f D  '
1F40C  1910 8300 0040            DC.B      '     @'
1F412  0E00 0000 0000            DC.B      '      '
1F418  0000 0000 0000            DC.B      '      '
1F41E  0000 0000 0000            DC.B      '      '
1F424  0000 0000 0000            DC.B      '      '
1F42A  0000 01C0 0000            DC.B      '      '
1F430  0000 0000 0000            DC.B      '      '
1F436  0000 0000 0000            DC.B      '      '
1F43C  0000 6300 0004            DC.B      '  c   '
1F442  3A24 E923 C522            DC.B      ':$ # "'
1F448  0000 179B DF86            DC.B      '      '
1F44E  FCEF DE78 0000            DC.B      '   x  '
1F454  1E00 3DF3 DF7F            DC.B      '  =   '
1F45A  EF67 878F 100C            DC.B      ' g    '
1F460  17BE 7BE7 7F9E            DC.B      '  {   '
1F466  799E 79FF A0C8            DC.B      'y y   '
1F46C  0080 C001 8070            DC.B      '     p'
1F472  30C7 8600 0000            DC.B      '0     '
1F478  0000 0C00 0000            DC.B      '      '
1F47E  0000 A807 9E7B            DC.B      '     {'
1F484  F05E CC81 124A            DC.B      ' ^   J'
1F48A  6300 2044 9299            DC.B      'c  D  '
1F490  9988 1124 A620            DC.B      '   $  '
1F496  4492 4CE3 9103            DC.B      'D L   '
1F49C  F3C7 879D 1320            DC.B      '      '
1F4A2  1FE3 D000 0006            DC.B      '      '
1F4A8  1800 1FFF C006            DC.B      '      '
1F4AE  E71E 0000 0660            DC.B      '     `'
1F4B4  010C 0000 0000            DC.B      '      '
1F4BA  0F3C F3FC 0000            DC.B      ' <    '
1F4C0  04ED C001 27F8            DC.B      '    ' '
1F4C6  9480 443B BAFF            DC.B      '  D;  '
1F4CC  5946 673A 8000            DC.B      'YFg:  '
1F4D2  2CFC 630E C180            DC.B      ', c   '
1F4D8  F3CC 0606 233E            DC.B      '    #>'
1F4DE  679E 39E3 18E7            DC.B      'g 9   '
1F4E4  879B 181E 1CF3            DC.B      '      '
1F4EA  CF3C 999E 799E            DC.B      ' <  y '
1F4F0  7987 90D4 0040            DC.B      'y    @'
1F4F6  C001 80C0 3001            DC.B      '    0 '
1F4FC  8600 0000 0000            DC.B      '      '
1F502  0C00 0000 0000            DC.B      '      '
1F508  A80C F3C7 1873            DC.B      '     s'
1F50E  CC00 0000 0000            DC.B      '      '
1F514  0000 0000 0000            DC.B      '      '
1F51A  0000 0000 0000            DC.B      '      '
1F520  F356 5806 5668            DC.B      ' VX Vh'
1F526  4849 B400 3306            DC.B      'HI  3 '
1F52C  6000 0003 3003            DC.B      '`   0 '
1F532  8C59 802D 3DB3            DC.B      ' Y -= '
1F538  0000 0660 0218            DC.B      '   `  '
1F53E  0100 0000 19E7            DC.B      '      '
1F544  9E60 0000 096E            DC.B      ' `   n'
1F54A  C020 0408 9480            DC.B      '      '
1F550  CE7F FA49 C646            DC.B      '   I F'
1F556  6F37 1000 2CD8            DC.B      'o7  , '
1F55C  6616 C300 F3CF            DC.B      'f     '
1F562  CC03 0341 679E            DC.B      '   Ag '
1F568  19E3 1867 87B3            DC.B      '   g  '
1F56E  1C3F 1CF3 CF3C            DC.B      ' ?   <'
1F574  199E 799E 7987            DC.B      '  y y '
1F57A  90E2 001E F9CF            DC.B      '      '
1F580  BDE7 FEC7 9FFF            DC.B      '      '
1F586  7CF7 CFED DF9E            DC.B      '|     '
1F58C  799E 79FE A99C            DC.B      'y y   '
1F592  F3C3 1C73 CDE7            DC.B      '   s  '
1F598  9E79 E79E 79E7            DC.B      ' y  y '
1F59E  9EF6 6F9E 79E7            DC.B      '  o y '
1F5A4  9ECF 3CF3 5346            DC.B      '  < SF'
1F5AA  0C76 5677 3329            DC.B      ' vVw3)'
1F5B0  5801 3306 671E            DC.B      'X 3 g '
1F5B6  2127 FB30 C619            DC.B      '!' 0  '
1F5BC  9FCC FDE1 BFC7            DC.B      '      '
1F5C2  A000 0218 1102            DC.B      '      '
1F5C8  6400 19E7 9E61            DC.B      'd    a'
1F5CE  FE00 0DA7 4853            DC.B      '    HS'
1F5D4  3408 7F01 9F7F            DC.B      '4     '
1F5DA  3049 C083 0B3A            DC.B      '0I   :'
1F5E0  9000 4CD8 6F26            DC.B      '  L o&'
1F5E6  FBE0 F3CF D9F9            DC.B      '      '
1F5EC  869C E79E 19E3            DC.B      '      '
1F5F2  1867 87E3 1E7F            DC.B      ' g    '
1F5F8  9CF3 CF3E 199E            DC.B      '   >  '
1F5FE  799E 798D 88C0            DC.B      'y y   '
1F604  0023 CF39 E6CC            DC.B      ' # 9  '
1F60A  F3C7 B799 E79E            DC.B      '      '
1F610  79F3 2D9E 799E            DC.B      'y - y '
1F616  7986 AA6C F3C3            DC.B      'y  l  '
1F61C  1E73 CE38 E38E            DC.B      ' s 8  '
1F622  38F1 CF3C F3F6            DC.B      '8  <  '
1F628  6CF3 CF3C F3CF            DC.B      'l  <  '
1F62E  3CF3 4D46 16FE            DC.B      '< MF  '
1F634  56D4 B4A9 101F            DC.B      'V     '
1F63A  F306 E8B1 2210            DC.B      '    " '
1F640  C331 E319 ACCD            DC.B      ' 1    '
1F646  BDE1 C66C C660            DC.B      '   l `'
1F64C  443D E284 9200            DC.B      'D=    '
1F652  19E7 9E63 3300            DC.B      '   c3 '
1F658  0DCB 808B 3408            DC.B      '    4 '
1F65E  1403 3FFF 31FC            DC.B      '  ? 1 '
1F664  E086 7332 7CF8            DC.B      '  s2| '
1F66A  4CD8 C1C6 0F31            DC.B      'L    1'
1F670  9ECC 3000 CCA4            DC.B      '  0   '
1F676  FFF6 19FB DBFF            DC.B      '      '
1F67C  87C3 17DD DCFE            DC.B      '      '
1F682  CFE7 199E 799B            DC.B      '    y '
1F688  CF19 88C0 001F            DC.B      '      '
1F68E  CF19 E6CC F3C7            DC.B      '      '
1F694  E799 E79E 79E3            DC.B      '    y '
1F69A  8D9E 799E 798D            DC.B      '  y y '
1F6A0  240F FFC3 D773            DC.B      '$    s'
1F6A6  CDF7 DF7D F7F0            DC.B      '   }  '
1F6AC  CF3C F3F6 6CF3            DC.B      ' <  l '
1F6B2  CF3C F3CF 3CF3            DC.B      ' <  < '
1F6B8  415F 13FB D677            DC.B      'A_   w'
1F6BE  3420 0002 3FC7            DC.B      '4   ? '
1F6C4  6861 FC0F FB33            DC.B      'ha   3'
1F6CA  6199 8CCD BDE1            DC.B      'a     '
1F6D0  BE6C C67F C41A            DC.B      ' l    '
1F6D6  1289 0900 1FFF            DC.B      '      '
1F6DC  9E7B 33FF F000            DC.B      ' {3   '
1F6E2  3F07 3408 7F46            DC.B      '? 4  F'
1F6E8  1F7F F090 7136            DC.B      '    q6'
1F6EE  6330 1000 8CD9            DC.B      'c0    '
1F6F4  81FF 0F33 337C            DC.B      '   33|'
1F6FA  19F9 8CA4 E79E            DC.B      '      '
1F700  19E3 19E7 E7E3            DC.B      '      '
1F706  139C FCF0 CF33            DC.B      '     3'
1F70C  999E 799E 6631            DC.B      '  y f1'
1F712  84C0 0033 CF19            DC.B      '   3  '
1F718  FECC F3C7 C799            DC.B      '      '
1F71E  E79E 79E1 CD9E            DC.B      '  y   '
1F724  799B D998 A80C            DC.B      'y     '
1F72A  F3C3 13F3 CF3C            DC.B      '     <'
1F730  F3CF 3CF0 FFFF            DC.B      '  <   '
1F736  FFF6 6CF3 CF3C            DC.B      '  l  <'
1F73C  F3CF 3CF3 00E6            DC.B      '  <   '
1F742  19F8 5674 B4A0            DC.B      '  Vt  '
1F748  001F F306 68D1            DC.B      '    h '
1F74E  2210 C336 6319            DC.B      '"  6c '
1F754  8CCC F721 67ED            DC.B      '   !g '
1F75A  CC61 2819 E452            DC.B      ' a(  R'
1F760  0480 19E7 9E63            DC.B      '     c'
1F766  3F00 0000 008B            DC.B      '?     '
1F76C  3408 94EC 0E7F            DC.B      '4     '
1F772  C090 714E 6330            DC.B      '  qNc0'
1F778  1000 8CDB 0186            DC.B      '      '
1F77E  0F33 330C 0C03            DC.B      ' 33   '
1F784  009B 679E 19E3            DC.B      '  g   '
1F78A  19E7 E7B3 111C            DC.B      '      '
1F790  7CF0 CF31 999E            DC.B      '|  1  '
1F796  799E 6661 84C0            DC.B      'y fa  '
1F79C  0033 CF19 E0CC            DC.B      ' 3    '
1F7A2  F3C7 E799 E79E            DC.B      '      '
1F7A8  79E0 ED9E 799E            DC.B      'y   y '
1F7AE  79B0 A80C F3C3            DC.B      'y     '
1F7B4  11F3 CF3C F3CF            DC.B      '   <  '
1F7BA  3CF0 C30C 30F6            DC.B      '<   0 '
1F7C0  6CF3 CF3C F3CF            DC.B      'l  <  '
1F7C6  3CF3 0046 0D70            DC.B      '<  F p'
1F7CC  5674 B320 0004            DC.B      'Vt    '
1F7D2  3306 678E 2120            DC.B      '3 g ! '
1F7D8  C336 6619 8CCC            DC.B      ' 6f   '
1F7DE  0012 660E D861            DC.B      '  f  a'
1F7E4  281A 0449 0900            DC.B      '(  I  '
1F7EA  19E7 9E63 3000            DC.B      '   c0 '
1F7F0  0000 0853 3408            DC.B      '   S4 '
1F7F6  94B8 043F B001            DC.B      '   ?  '
1F7FC  524E 6330 0307            DC.B      'RNc0  '
1F802  0CDE 1186 8F33            DC.B      '     3'
1F808  331B C606 0C40            DC.B      '3    @'
1F80E  679E 39E3 19E7            DC.B      'g 9   '
1F814  E79B 101C 3CF0            DC.B      '    < '
1F81A  CF39 999E 5996            DC.B      ' 9  Y '
1F820  6661 82C0 0033            DC.B      'fa   3'
1F826  CF39 E2CC F3C7            DC.B      ' 9    '
1F82C  B799 E79E 79E2            DC.B      '    y '
1F832  6D9E 5996 79E0            DC.B      'm Y y '
1F838  A80C F3C7 10F3            DC.B      '      '
1F83E  CF3C F3CF 3CF1            DC.B      ' <  < '
1F844  C71C 71F6 6CF3            DC.B      '  q l '
1F84A  CF3C F3CF 3CF3            DC.B      ' <  < '
1F850  0006 2600 5668            DC.B      '  & Vh'
1F856  4840 0000 330E            DC.B      'H@  3 '
1F85C  6000 0000 C336            DC.B      '`    6'
1F862  4C59 8CCD FF92            DC.B      'LY    '
1F868  662C D8E0 1018            DC.B      'f,    '
1F86E  0824 9266 79E7            DC.B      ' $ fy '
1F874  9E63 3100 0000            DC.B      ' c1   '
1F87A  0023 3408 6310            DC.B      ' #4 c '
1F880  001B 3000 E233            DC.B      '  0  3'
1F886  C120 0307 079F            DC.B      '      '
1F88C  EF06 79E3 1E73            DC.B      '  y  s'
1F892  C000 0C3E 67F3            DC.B      '   >g '
1F898  DF7F 0F67 BD8F            DC.B      '   g  '
1F89E  F01C 17B0 7B37            DC.B      '    {7'
1F8A4  18F7 9FE6 667F            DC.B      '    f '
1F8AA  82C1 FE1F F9CF            DC.B      '      '
1F8B0  BCC7 F3C7 9F99            DC.B      '      '
1F8B6  E6F7 CFE1 C6FF            DC.B      '      '
1F8BC  9FE6 6FFE A80C            DC.B      '  o   '
1F8C2  F37B F05E 79F7            DC.B      ' { ^y '
1F8C8  DF7D F7DE 79E7            DC.B      ' }  y '
1F8CE  9EF6 6CDE 79E7            DC.B      '  l y '
1F8D4  9E7D F7DF 000F            DC.B      ' }    '
1F8DA  C300 5EC7 8780            DC.B      '  ^   '
1F8E0  0000 33F3 C000            DC.B      '  3   '
1F8E6  FFF8 C3EB 9FD9            DC.B      '      '
1F8EC  888C 0033 3FD7            DC.B      '   3? '
1F8F2  8F60 1018 0FE2            DC.B      ' `    '
1F8F8  6466 79E6 F3FD            DC.B      'dfy   '
1F8FE  FE00 0000 0001            DC.B      '      '
1F904  F408 0000 0000            DC.B      '      '
1F90A  0000 4000 00C0            DC.B      '  @   '
1F910  0100 0000 0000            DC.B      '      '
1F916  0000 0000 4000            DC.B      '    @ '
1F91C  0000 0000 0000            DC.B      '      '
1F922  0000 0000 0000            DC.B      '      '
1F928  0000 0C00 0000            DC.B      '      '
1F92E  0000 0001 C1C0            DC.B      '      '
1F934  0000 0000 0000            DC.B      '      '
1F93A  C006 0000 0006            DC.B      '      '
1F940  0180 0000 0000            DC.B      '      '
1F946  0180 7000 0030            DC.B      '  p  0'
1F94C  0000 0000 0000            DC.B      '      '
1F952  000C 0000 0000            DC.B      '      '
1F958  0000 0000 0000            DC.B      '      '
1F95E  0000 0000 1100            DC.B      '      '
1F964  0000 0000 0000            DC.B      '      '
1F96A  0000 0000 0000            DC.B      '      '
1F970  0200 0000 000C            DC.B      '      '
1F976  0000 0000 0000            DC.B      '      '
1F97C  0018 0000 0000            DC.B      '      '
1F982  0000 0000 0000            DC.B      '      '
1F988  0000 0000 37F8            DC.B      '    7 '
1F98E  0000 0000 0000            DC.B      '      '
1F994  0000 0000 0200            DC.B      '      '
1F99A  0000 0000 0000            DC.B      '      '
1F9A0  0000 8000 0000            DC.B      '      '
1F9A6  0000 0000 0000            DC.B      '      '
1F9AC  0000 0000 0000            DC.B      '      '
1F9B2  0000 0000 0000            DC.B      '      '
1F9B8  0000 0000 0000            DC.B      '      '
1F9BE  0000 0008 C026            DC.B      '     &'
1F9C4  0000 0006 0180            DC.B      '      '
1F9CA  0000 0000 1180            DC.B      '      '
1F9D0  0000 0010 0000            DC.B      '      '
1F9D6  0000 0000 0004            DC.B      '      '
1F9DC  0000 0000 0000            DC.B      '      '
1F9E2  0000 0000 0000            DC.B      '      '
1F9E8  0000 0E00 0000            DC.B      '      '
1F9EE  0000 0000 0000            DC.B      '      '
1F9F4  0000 0000 0400            DC.B      '      '
1F9FA  0000 0018 0000            DC.B      '      '
1FA00  0000 0000 0030            DC.B      '     0'
1FA06  0000 0000 0000            DC.B      '      '
1FA0C  0000 0000 0000            DC.B      '      '
1FA12  0002 3000 0000            DC.B      '  0   '
1FA18  0000 0000 0000            DC.B      '      '
1FA1E  0000 0000 0000            DC.B      '      '
1FA24  0000 0000 0000            DC.B      '      '
1FA2A  0000 0000 0000            DC.B      '      '
1FA30  0000 0000 0000            DC.B      '      '
1FA36  0000 0000 0000            DC.B      '      '
1FA3C  0000 0000 0000            DC.B      '      '
1FA42  0000 0000 0000            DC.B      '      '
1FA48  0007 801C 0000            DC.B      '      '
1FA4E  0000 0000 0000            DC.B      '      '
1FA54  0000 0F00 0000            DC.B      '      '
1FA5A  0020 0000 0000            DC.B      '      '
1FA60  0000 0008 0000            DC.B      '      '
1FA66  0000 0000 0000            DC.B      '      '
1FA6C  0000 0000 0000            DC.B      '      '
1FA72  0000 0000 0000            DC.B      '      '
1FA78  0000 0000 0000            DC.B      '      '
1FA7E  0000 0000 0000            DC.B      '      '
1FA84  0000 0000 0000            DC.B      '      '
1FA8A  0000 0000 0000            DC.B      '      '
1FA90  0000 0000 0000            DC.B      '      '
1FA96  0000 0000 0001            DC.B      '      '
1FA9C  E000 0000 0000            DC.B      '      '
1FAA2  0000 0000 0000            DC.B      '      '
1FAA8  0000 0000 0000            DC.B      '      '
1FAAE  0000 0000 0000            DC.B      '      '
1FAB4  0000 0000 0000            DC.B      '      '
1FABA  0000 0000 0000            DC.B      '      '
1FAC0  0000 0009 0012            DC.B      '      '
1FAC6  0019 0022 0022            DC.B      '   " "'
1FACC  0022 0022 0022            DC.B      ' " " "'
1FAD2  0022 0022 0022            DC.B      ' " " "'
1FAD8  0022 0022 0022            DC.B      ' " " "'
1FADE  0022 0022 0024            DC.B      ' " " $'
1FAE4  0027 002F 0034            DC.B      ' ' / 4'
1FAEA  003D 0045 0046            DC.B      ' = E F'
1FAF0  0049 004C 0051            DC.B      ' I L Q'
1FAF6  0056 0058 005D            DC.B      ' V X ]'
1FAFC  005F 0064 006A            DC.B      ' _ d j'
1FB02  006D 0073 0079            DC.B      ' m s y'
1FB08  0080 0086 008C            DC.B      '      '
1FB0E  0092 0098 009E            DC.B      '      '
1FB14  00A0 00A2 00A7            DC.B      '      '
1FB1A  00AD 00B2 00B8            DC.B      '      '
1FB20  00C1 00C7 00CD            DC.B      '      '
1FB26  00D3 00D9 00DE            DC.B      '      '
1FB2C  00E3 00E9 00EF            DC.B      '      '
1FB32  00F1 00F7 00FE            DC.B      '      '
1FB38  0103 010D 0114            DC.B      '      '
1FB3E  011A 0120 0126            DC.B      '     &'
1FB44  012C 0131 0137            DC.B      ' , 1 7'
1FB4A  013D 0143 014D            DC.B      ' = C M'
1FB50  0153 0159 015F            DC.B      ' S Y _'
1FB56  0162 0167 016A            DC.B      ' b g j'
1FB5C  016F 0177 017A            DC.B      ' o w z'
1FB62  0180 0186 018B            DC.B      '      '
1FB68  0191 0197 019C            DC.B      '      '
1FB6E  01A2 01A8 01AA            DC.B      '      '
1FB74  01AF 01B5 01B7            DC.B      '      '
1FB7A  01C1 01C7 01CD            DC.B      '      '
1FB80  01D3 01D9 01DE            DC.B      '      '
1FB86  01E3 01E7 01ED            DC.B      '      '
1FB8C  01F3 01FD 0203            DC.B      '      '
1FB92  0209 020F 0212            DC.B      '      '
1FB98  0213 0216 021C            DC.B      '      '
1FB9E  021C 0222 0228            DC.B      '   " ('
1FBA4  022E 0233 023A            DC.B      ' . 3 :'
1FBAA  0240 0246 024C            DC.B      ' @ F L'
1FBB0  0252 0258 025E            DC.B      ' R X ^'
1FBB6  0264 026A 0270            DC.B      ' d j p'
1FBBC  0276 027C 0282            DC.B      ' v |  '
1FBC2  0288 028A 028C            DC.B      '      '
1FBC8  0290 0294 029A            DC.B      '      '
1FBCE  02A0 02A6 02AC            DC.B      '      '
1FBD4  02B2 02B8 02BE            DC.B      '      '
1FBDA  02C4 02CA 02D0            DC.B      '      '
1FBE0  02D3 02D7 02DC            DC.B      '      '
1FBE6  02E3 02E8 02ED            DC.B      '      '
1FBEC  02F4 02FB 0303            DC.B      '      '
1FBF2  030B 0314 0317            DC.B      '      '
1FBF8  031B 0322 032B            DC.B      '   " +'
1FBFE  0334 0340 0345            DC.B      ' 4 @ E'
1FC04  0349 034D 0355            DC.B      ' I M U'
1FC0A  035D 0363 036A            DC.B      ' ] c j'
1FC10  0372 037B 037F            DC.B      ' r {  '
1FC16  0384 0389 0391            DC.B      '      '
1FC1C  039B 03A3 03A9            DC.B      '      '
1FC22  03AB 03B0 03BA            DC.B      '      '
1FC28  03BE 03C4 03CB            DC.B      '      '
1FC2E  03D2 03D9 03E3            DC.B      '      '
1FC34  03E3 03E9 03EF            DC.B      '      '
1FC3A  03F5 03FE 0408            DC.B      '      '
1FC40  040C 0414 0419            DC.B      '      '
1FC46  041E 0420 0422            DC.B      '     "'
1FC4C  0427 042E 0434            DC.B      ' ' . 4'
1FC52  043E 0000 FFFF            DC.B      ' >    '
1FC58  FFFF FFFF FFFF            DC.B      '      '
1FC5E  FFFF FFFF FFFF            DC.B      '      '
1FC64  FFFF 0808 FFFF            DC.B      '      '
1FC6A  FFFF FFFF 0000            DC.B      '      '
1FC70  FFFF FFFF FFFF            DC.B      '      '
1FC76  010B 010B 0109            DC.B      '      '
1FC7C  010B FFFF FFFF            DC.B      '      '
1FC82  FFFF FFFF FFFF            DC.B      '      '
1FC88  FFFF FFFF FFFF            DC.B      '      '
1FC8E  FFFF FFFF FFFF            DC.B      '      '
1FC94  0404 0206 0207            DC.B      '      '
1FC9A  010A 0107 010B            DC.B      '      '
1FCA0  010A 0103 0105            DC.B      '      '
1FCA6  0105 0107 0107            DC.B      '      '
1FCAC  0104 0107 0104            DC.B      '      '
1FCB2  0107 0108 0208            DC.B      '      '
1FCB8  0108 0108 0108            DC.B      '      '
1FCBE  0108 0108 0108            DC.B      '      '
1FCC4  0108 0108 0104            DC.B      '      '
1FCCA  0104 0006 0108            DC.B      '      '
1FCD0  0006 0108 010B            DC.B      '      '
1FCD6  0108 0108 0108            DC.B      '      '
1FCDC  0108 0107 0107            DC.B      '      '
1FCE2  0108 0108 0206            DC.B      '      '
1FCE8  0007 0109 0107            DC.B      '      '
1FCEE  010C 0109 0108            DC.B      '      '
1FCF4  0108 0108 0108            DC.B      '      '
1FCFA  0107 0006 0108            DC.B      '      '
1FD00  0108 010C 0108            DC.B      '      '
1FD06  0108 0108 0105            DC.B      '      '
1FD0C  0107 0105 0208            DC.B      '      '
1FD12  0008 0106 0108            DC.B      '      '
1FD18  0108 0107 0108            DC.B      '      '
1FD1E  0108 0106 0108            DC.B      '      '
1FD24  0108 0104 0006            DC.B      '      '
1FD2A  0108 0104 010C            DC.B      '      '
1FD30  0108 0108 0108            DC.B      '      '
1FD36  0108 0106 0107            DC.B      '      '
1FD3C  0106 0108 0108            DC.B      '      '
1FD42  010C 0108 0108            DC.B      '      '
1FD48  0108 0105 0205            DC.B      '      '
1FD4E  0105 0108 0808            DC.B      '      '
1FD54  0108 0108 0108            DC.B      '      '
1FD5A  0107 0109 0108            DC.B      '      '
1FD60  0108 0108 0108            DC.B      '      '
1FD66  0108 0108 0108            DC.B      '      '
1FD6C  0108 0108 0108            DC.B      '      '
1FD72  0108 0108 0108            DC.B      '      '
1FD78  0206 0206 0106            DC.B      '      '
1FD7E  0106 0108 0108            DC.B      '      '
1FD84  0108 0108 0108            DC.B      '      '
1FD8A  0108 0108 0108            DC.B      '      '
1FD90  0108 0108 0105            DC.B      '      '
1FD96  0106 0107 0109            DC.B      '      '
1FD9C  0107 0107 0109            DC.B      '      '
1FDA2  0109 010A 010A            DC.B      '      '
1FDA8  010B 0105 0106            DC.B      '      '
1FDAE  0109 010B 0009            DC.B      '      '
1FDB4  010E 0107 0106            DC.B      '      '
1FDBA  0106 010A 010A            DC.B      '      '
1FDC0  0108 0109 010A            DC.B      '      '
1FDC6  010B 0106 0107            DC.B      '      '
1FDCC  0107 010A 010C            DC.B      '      '
1FDD2  0008 0108 0206            DC.B      '      '
1FDD8  0107 010C 0106            DC.B      '      '
1FDDE  020A 0109 0109            DC.B      '      '
1FDE4  0109 020E 0808            DC.B      '      '
1FDEA  0108 0108 0108            DC.B      '      '
1FDF0  010B 010C 0106            DC.B      '      '
1FDF6  010A 0107 0107            DC.B      '      '
1FDFC  0104 0104 0107            DC.B      '      '
1FE02  0109 0108 000A            DC.B      '      '
1FE08  0000 0000 0000            DC.B      '      '
1FE0E  0000 0000 0000            DC.B      '      '
1FE14  0000 0000 0000            DC.B      '      '
1FE1A  0000 0000 0000            DC.B      '      '
1FE20  0000 0000 0000            DC.B      '      '
1FE26  0000 0000 0000            DC.B      '      '
1FE2C  0309 0408 0407            DC.B      '      '
1FE32  010B 0000 0000            DC.B      '      '
1FE38  0000 0000 0000            DC.B      '      '
1FE3E  0000 0000 0000            DC.B      '      '
1FE44  0000 0000 0000            DC.B      '      '
1FE4A  0000 0309 0303            DC.B      '      '
1FE50  0208 020B 020A            DC.B      '      '
1FE56  0309 0303 020B            DC.B      '      '
1FE5C  020B 0305 0505            DC.B      '      '
1FE62  0A04 0701 0A02            DC.B      '      '
1FE68  020A 0309 0309            DC.B      '      '
1FE6E  0309 0309 0309            DC.B      '      '
1FE74  0309 0309 0309            DC.B      '      '
1FE7A  0309 0309 0507            DC.B      '      '
1FE80  0509 0407 0603            DC.B      '      '
1FE86  0407 0309 0408            DC.B      '      '
1FE8C  0309 0309 0309            DC.B      '      '
1FE92  0309 0309 0309            DC.B      '      '
1FE98  0309 0309 0309            DC.B      '      '
1FE9E  0309 0309 0309            DC.B      '      '
1FEA4  0309 0309 0309            DC.B      '      '
1FEAA  0309 030A 0309            DC.B      '      '
1FEB0  0309 0309 0309            DC.B      '      '
1FEB6  0309 0309 0309            DC.B      '      '
1FEBC  0309 0309 020B            DC.B      '      '
1FEC2  020A 020B 0303            DC.B      '      '
1FEC8  0B01 0203 0507            DC.B      '      '
1FECE  0309 0507 0309            DC.B      '      '
1FED4  0507 0309 050A            DC.B      '      '
1FEDA  0309 0309 030C            DC.B      '      '
1FEE0  0309 0309 0507            DC.B      '      '
1FEE6  0507 0507 0509            DC.B      '      '
1FEEC  0509 0507 0507            DC.B      '      '
1FEF2  0309 0507 0507            DC.B      '      '
1FEF8  0507 0507 050A            DC.B      '      '
1FEFE  0507 020B 020B            DC.B      '      '
1FF04  020B 0502 0000            DC.B      '      '
1FF0A  010B 000C 030C            DC.B      '      '
1FF10  000C 000C 010B            DC.B      '      '
1FF16  010B 020A 020A            DC.B      '      '
1FF1C  020A 0309 020A            DC.B      '      '
1FF22  000C 050A 020A            DC.B      '      '
1FF28  020A 020A 0309            DC.B      '      '
1FF2E  020A 020A 020A            DC.B      '      '
1FF34  0309 020A 020A            DC.B      '      '
1FF3A  020A 020A 0309            DC.B      '      '
1FF40  020A 020A 020A            DC.B      '      '
1FF46  020A 0309 0305            DC.B      '      '
1FF4C  0304 0208 0309            DC.B      '      '
1FF52  020C 0505 0309            DC.B      '      '
1FF58  0309 0309 0309            DC.B      '      '
1FF5E  0304 0303 0301            DC.B      '      '
1FF64  0505 0309 0309            DC.B      '      '
1FF6A  0505 0507 0507            DC.B      '      '
1FF70  0507 0309 0509            DC.B      '      '
1FF76  0408 0309 0309            DC.B      '      '
1FF7C  0408 030B 0308            DC.B      '      '
1FF82  0308 0309 0507            DC.B      '      '
1FF88  0507 0309 0309            DC.B      '      '
1FF8E  0703 020A 030B            DC.B      '      '
1FF94  0505 0408 0507            DC.B      '      '
1FF9A  0507 0A02 0000            DC.B      '      '
1FFA0  000C 000C 000C            DC.B      '      '
1FFA6  0309 0507 0701            DC.B      '      '
1FFAC  0701 0304 0304            DC.B      '      '
1FFB2  0304 0304 0505            DC.B      '      '
1FFB8  0407 030C 030A            DC.B      '      '
1FFBE  FFFF                      DC.B      '  '
                      ; end of resource : 'FONT' 12

                      ; end of Resources data

                      ; Extra area

                      ; Part of a patch added to version 3 of the ROM.
                      ; Called from offset $8AC in ROM.
1FFC0  4278 0B2E      E_969:     Clr       (SCSIDrvrs)
1FFC4  4267                      Clr       -(A7)
1FFC6  A815                      _SCSIDispatch
1FFC8  4EB9 0040 7D40            Jsr       ($407D40)
1FFCE  4E75                      Rts
                      ; The above patch overwrites the beginning of an easter egg
                      ; 'ALR ELR BA BMB EHB JTC SC DLD PWD KWK LAK SEL B'
                      ; 'which are the initials of ?, Erich Ringewald, Bill Atkinson,
                      ; Bill Bruffey, Ernie Beernik (sp?), Jerome Coonan, Steve Capps,
                      ; Donn Denmann, Pat Dirks, ?, Larry Kenyon, and ?.'
                      ; according to 'The Macintosh Secret Trick List' by
                      ; Brian Kendig, which says this info was
                      ; 'Contributed by Scott Lindhurst and Ed Tecot'
                      ; Corrections - probably Ernie Beernink, Jerome Coonen,
                      ; and Donn Denman.
                      ; From other sources, can further expand some names to
                      ; (probably) Bill Monroe Bruffey, Jerome Toby Coonen,
                      ; and Patrick W. Penzias Dirks
1FFD0  4842 204A 5443            DC.B      'HB JTC'
1FFD6  2053 4320 444C            DC.B      ' SC DL'
1FFDC  4420 5057 4420            DC.B      'D PWD '
1FFE2  4B57 4B20 4C41            DC.B      'KWK LA'
1FFE8  4B20 5345 4C20            DC.B      'K SEL '
1FFEE  42                        DC.B      'B'
                      ; date
1FFEF  5765 642C 204E            DC.B      'Wed, N'
1FFF5  6F76 2036 2C20            DC.B      'ov 6, '
1FFFB  3139 3835 10              DC.B      '1985 '
                      ; end of Extra area
                      ; end of ROM