14.1.2. Část code 1

Příklad 14.1. Začátek kódu v části code 1

0000: 4E56 FFF4            START:           LINK    A6, #-12
0004: 48E7 1F00                             MOVEM.L D3-D7, -(A7)
0008: 486E FFFC                             PEA     -4(A6)
000C: 486E FFF8                             PEA     -8(A6)
0010: 486E FFF4                             PEA     -12(A6)
0014: 4E4F A08F                             SYSTRAP SysAppStartup
0018: 4EEF 000C                             LEA     12(A7), A7
001C: 4A40                                  TST     D0
001E: 670E                               .-<BEQ     $002E
0020: 1F3C 0003                          |  MOVE.B  #3, -(A7)
0024: 4E4F A234                          |  SYSTRAP SndPlaySystemSound
0028: 70FF                               |  MOVEQ   #-1, D0
002A: 6000 006A                        .-|-<BRA     $0096
002E: 206E FFF4                        | `->MOVE.L  -12(A6), A0
0032: 3C10                             |    MOVE    (A0), D6
0034: 2A28 0002                        |    MOVE.L  2(A0), D5
0038: 3828 0006                        |    MOVE    6(A0), D4
003C: 3604                             |    MOVE    D4, D3
003E: 0243 0004                        |    ANDI    #4, D3
0042: 6704                             | .-<BEQ     $0048
0044: 6100 42CE                        | |  BSR     $4314
0048: 3F04                             | `->MOVE    D4, -(A7)
004A: 2F05                             |    MOVE.L  D5, -(A7)
004C: 3F06                             |    MOVE    D6, -(A7)
004E: 6100 4314                        |   =BSR     $4364
0052: 508F                             |    ADDQ.L  #8, A7
0054: 4A43                             |    TST     D3
0056: 6704                             | .-<BEQ     $005C
0058: 6100 43A6                        | |  BSR     $4400
005C: 3F04                             | `->MOVE    D4, -(A7)
005E: 6100 4414                        |   =BSR     $4474
0062: 3F04                             |    MOVE    D4, -(A7)
0064: 2F05                             |    MOVE.L  D5, -(A7)
0066: 3F06                             |    MOVE    D6, -(A7)
0068: 6100 0240                        |   =BSR     $02AA
006C: 2E00                             |    MOVE.L  D0, D7
006E: 4FEF 000A                        |    LEA     10(A7), (A7)
0072: 4A43                             |    TST     D3
0074: 6704                             | .-<BEQ     $007A
0076: 6100 43C2                        | | =BSR     $443A
007A: 3F04                             | `->MOVE    D4, -(A7)
007C: 2F05                             |    MOVE.L  D5, -(A7)
007E: 3F06                             |    MOVE    D6, -(A7)
0080: 6100 4320                        |   =BSR     $43B2
0084: 2F2E FFFC                        |    MOVE.L  -4(A6), -(A7)
0088: 2F2E FFF8                        |    MOVE.L  -8(A6), -(A7)
008C: 2F2E FFF4                        |    MOVE.L  -12(A6), -(A7)
0090: 4E4F A090                        |    SYSTRAP SysAppExit
0094: 2007                             |    MOVE.L  D7, D0
0096: 4CEE 00F8 FFE0                   `--->MOVEM.L -32(A6), D3-D7
009C: 4E45                                  UNLK    A6
009E: 4E75                                  RTS

Příklad 14.2. Procedura $00A0

00A0: 4E56 FFE4            SUB_00A0:        LINK    A6, #-28
00A4: 48E7 1F00                             MOVEM.L D3,D7, -(A7)
00A8: 7CE8                                  MOVEQ   #-24, D6
00AA: DC8E                                  ADD.L   A6, D6
00AC: 4247                                  CLR     D7
00AE: 4267                 _loop:.--------->CLR     -(A7)
00B0: 4E4F A039                  |          SYSTRAP MemHeapCheck
00B4: 3F3C 0001                  |          MOVE    #1, -(A7)
00B8: 4E4F A039                  |          SYSTRAP MemHeapCheck
00BC: 4878 FFFF                  |          PEA     -1
00C0: 2F06                       |          MOVE.L  D6, -(A7)
00C2: 4E4F A11D                  |          SYSTRAP EvtGetEvent
00C6: 2F06                       |          MOVE.L  D6, -(A7)
00C8: 6100 4208                  |          BSR     $42D2
00CC: 2F06                       |          MOVE.L  D6, -(A7)
00CE: 4E4F A0A9                  |          SYSTRAP SysHandleEvent
00D2: 4EEF 0014                  |          LEA     20(A7), A7
00D6: 4A00                       |          TST.B   D0
00D8: 6668                       | .-------<BNE     $0142
00DA: 486E FFE6                  | |        PEA     -26(A6)
00DE: 2F06                       | |        MOVE.L  D6, -(A7)
00E0: 42A7                       | |        CLR.L   -(A7)
00E2: 4E4F A1BF                  | |        SYSTRAP MenuHandleEvent
00E6: 4FEF 000C                  | |        LEA     12(A7), A7
00EA: 4A00                       | |        TST.B   D0
00EC: 6654                       | +-------<BNE     $0142
00EE: 4205                       | |        CLR.B   D5
00F0: 0C6E 0017 FFE8             | |        CMPI    #23, -24(A6)
00F6: 663C                       | | .-----<BNE     $0134
00F8: 362E FFF0                  | | |      MOVE    -16(A6), D3
00FC: 3F03                       | | |      MOVE    D3, -(A7)
00FE: 4E4F A16F                  | | |      SYSTRAP FrmInitForm
0102: 280F                       | | |      MOVE.L  A0, D4
0104: 2F04                       | | |      MOVE.L  D4, -(A7)
0106: 4E4F A174                  | | |      SYSTRAP FrmSetActiveForm
010A: 5C8F                       | | |      ADDQ.L  #6, A7
010C: 0C43 03E8                  | | |      CMPI    #1000, D3
0110: 670A                       | | |   .-<BEQ     $011C
0112: 0C43 03E9                  | | |   |  CMPI    #1001, D3
0116: 670C                       | | | .-|-<BEQ     $0124
0118: 6000 001A                  | | +-|-|-<BRA     $0134
011C: 41FA 1CAC                  | | | | `->LEA     7340(PC), AO    ;1DCA
0120: 6000 0006                  | | | | .-<BRA     $0128
0124: 41FA 0DDC                  | | | `-|->LEA     3548(PC), A0    ;0F02
0128: 2F08                       | | |   `->MOVE.L  A0, -(A7)
012A: 2F04                       | | |      MOVE.L  D4, -(A7)
012C: 4E4F A19F                  | | |      SYSTRAP FrmSetEventHandle...
0130: 7A01                       | | |      MOVEQ   #1, D5
0132: 508F                       | | |      ADDQ.L  #8, A7
0134: 1E05                       | | `----->MOVE.B  D5, D7
0136: 4A07                       | |        TST.B   D7
0138: 6608                       | +-------<BNE     $0142
013A: 2F06                       | |        MOVE.L  D6, -(A7)
013C: 4E4F A1A0                  | |        SYSTRAP FrmDispatchEvent
0140: 588F                       | |        ADDQ.L  #4, A7
0142: 0C6E 0016 FFE8             | `------->CMPI    #22, -24(A6)
0148: 6600 FF64                  `---------<BNE     $00AE
014C: 4CEE 00F8 FFD0                        MOVEM.L -48(A6), D3-D7
0152: 4E5E                                  UNLK    A6
0154: 4E75                                  RTS