1Program "RotF Copy" (length 87) by "Robert Macrae " 2 3 ORG START 4 JMP.B # 0, # 0 5 DAT.F $ 0, $ 0 6 DAT.F $ 0, $ 0 7 DAT.F $ 0, $ 0 8 DAT.F $ 0, $ 0 9 DAT.F $ 0, $ 0 10 DAT.F $ 0, $ 0 11 DAT.F $ 0, $ 0 12 DAT.F $ 0, $ 0 13 DAT.F $ 0, $ 0 14 DAT.F $ 0, $ 0 15 DAT.F # 15, # 10 16 DAT.F # 7, # 4 17 DAT.F # 13, # 11 18 DAT.F < 1, < 88 19 DAT.F # 4000, # 4000 20 MUL.F $ -4, $ 6 21 SNE.I * 5, @ 5 22 ADD.F $ -3, $ 4 23 SNE.I > 3456, @ 3 24 MOV.X $ 2, $ 2 25 MOV.I $ -7, @ 1 26 MOV.I < -240, @ -120 27 SUB.X # 7, $ -1 28 DJN.B $ -3, # 13 29 JMP.B $ 48, > 1234 30START SNE.I $ -244, $ -124 31 SEQ.I $ 3755, $ 3875 32 JMP.B $ -11, { 3761 33 SNE.I $ -1927, $ -487 34 SEQ.I $ 2072, $ 3512 35 JMP.B $ -15, } -19 36 SNE.I $ -1690, $ -610 37 SEQ.I $ 2309, $ 3389 38 JMP.B $ -18, > -22 39 SNE.I $ -1453, $ -373 40 SEQ.I $ 2546, $ 3626 41 DJN.F $ -21, $ -25 42 SNE.I $ -3136, $ -1336 43 SEQ.I $ 863, $ 2663 44 JMP.B $ -24, } -24 45 SNE.I $ -3619, $ -1219 46 SEQ.I $ 380, $ 2780 47 JMP.B $ -27, { -27 48 SNE.I $ -3382, $ -1102 49 SEQ.I $ 617, $ 2897 50 DJN.F $ -30, { -30 51 JMP.B $ 26, $ 0 52 DAT.F $ 0, $ 0 53 DAT.F $ 0, $ 0 54 DAT.F $ 0, $ 0 55 DAT.F $ 0, $ 0 56 DAT.F $ 0, $ 0 57 DAT.F $ 0, $ 0 58 DAT.F $ 0, $ 0 59 DAT.F $ 0, $ 0 60 DAT.F $ 0, $ 0 61 DAT.F $ 0, $ 0 62 DAT.F $ 0, $ 0 63 DAT.F $ 0, $ 0 64 DAT.F $ 0, $ 0 65 DAT.F $ 0, $ 0 66 DAT.F $ 0, $ 0 67 DAT.F $ 0, $ 0 68 DAT.F $ 0, $ 0 69 DAT.F $ 0, $ 0 70 DAT.F $ 0, $ 0 71 DAT.F $ 0, $ 0 72 DAT.F $ 0, $ 0 73 DAT.F $ 0, $ 0 74 DAT.F $ 0, $ 0 75 DAT.F $ 0, $ 0 76 DAT.F $ 0, $ 0 77 SPL.B $ -73, } -500 78 SPL.B $ 1, > -600 79 SPL.B $ 1, > -700 80 SPL.B $ 1, > -800 81 MOV.I < 1, { 1 82 SPL.B $ 249, $ 9 83 SPL.B @ 0, > 1880 84 MOV.I } -1, > -1 85 SPL.B @ 0, > 2050 86 MOV.I } -1, > -1 87 SPL.B @ 0, < 2668 88 MOV.I } -1, > -1 89 MOV.I # 3760, } -1880 90 MOV.I # 2050, $ 2667 91 92