Gargoyle
Heavy on the Magick, Lightforce

PILOT standard 3223x[P 2168]
SYNC standard P 667, P 735
DATA
  bit 0 = DP 634
  bit 1 = DP 1268
  FLAG BYTE #99
  PARITY BYTE present

The loading routine:
 B7EE 31D9B7     LD   SP,+B7D9
 B7F1 14         INC  D
 B7F2 08         EX   AF,AF'
 B7F3 15         DEC  D
 B7F4 F3         DI
 B7F5 D5         PUSH DE
 B7F6 D9         EXX
 B7F7 E1         POP  HL
 B7F8 110000     LD   DE,+0000
 B7FB 014000     LD   BC,+0040
 B7FE A7         AND  A
 B7FF ED42       SBC  HL,BC
 B801 380C       JR   C,B80F
 B803 7B         LD   A,E
 B804 C601       ADD  A,+01
 B806 27         DAA
 B807 5F         LD   E,A
 B808 7A         LD   A,D
 B809 CE00       ADC  A,+00
 B80B 27         DAA
 B80C 57         LD   D,A
 B80D 18EF       JR   B7FE
 B80F 21FF00     LD   HL,+00FF
 B812 220040     LD   (4000),HL
 B815 210000     LD   HL,+0000
 B818 220240     LD   (4002),HL
 B81B 21AC0D     LD   HL,+0DAC
 B81E 220440     LD   (4004),HL
 B821 263D       LD   H,+3D
 B823 010140     LD   BC,+4001
 B826 D9         EXX
 B827 3E0F       LD   A,+0F
 B829 D3FE       OUT  (+FE),A
 B82B DBFE       IN   A,(+FE)
 B82D 1F         RRA
 B82E E620       AND  +20
 B830 F602       OR   +02
 B832 4F         LD   C,A
 B833 BF         CP   A
 B834 C0         RET  NZ
 B835 CDDFB8     CALL B8DF
 B838 30FA       JR   NC,B834
 B83A 211504     LD   HL,+0415
 B83D 10FE       DJNZ B83D
 B83F 2B         DEC  HL
 B840 7C         LD   A,H
 B841 B5         OR   L
 B842 20F9       JR   NZ,B83D
 B844 CDDBB8     CALL B8DB
 B847 30EB       JR   NC,B834
 B849 069C       LD   B,+9C
 B84B CDDBB8     CALL B8DB
 B84E 30E4       JR   NC,B834
 B850 3EC6       LD   A,+C6
 B852 B8         CP   B
 B853 30E0       JR   NC,B835
 B855 24         INC  H
 B856 20F1       JR   NZ,B849
 B858 06C9       LD   B,+C9
 B85A CDDFB8     CALL B8DF
 B85D 30D5       JR   NC,B834
 B85F 78         LD   A,B
 B860 FED4       CP   +D4
 B862 30F4       JR   NC,B858
 B864 CDDFB8     CALL B8DF
 B867 D0         RET  NC
 B868 79         LD   A,C
 B869 E6F8       AND  +F8
 B86B 4F         LD   C,A
 B86C FD212DB9   LD   IY,+B92D
 B870 0607       LD   B,+07
 B872 10FE       DJNZ B872
 B874 60         LD   H,B
 B875 06B0       LD   B,+B0
 B877 1820       JR   B899
 B879 08         EX   AF,AF'
 B87A 2008       JR   NZ,B884
 B87C 3010       JR   NC,B88E
 B87E DD7500     LD   (IX+00),L
 B881 00         NOP
 B882 180F       JR   B893
 B884 CB11       RL   C
 B886 AD         XOR  L
 B887 C0         RET  NZ
 B888 79         LD   A,C
 B889 1F         RRA
 B88A 4F         LD   C,A
 B88B 13         INC  DE
 B88C 1807       JR   B895
 B88E DD7E00     LD   A,(IX+00)
 B891 AD         XOR  L
 B892 C0         RET  NZ
 B893 DD23       INC  IX
 B895 1B         DEC  DE
 B896 08         EX   AF,AF'
 B897 06B0       LD   B,+B0
 B899 2E01       LD   L,+01
 B89B CDBAB8     CALL B8BA
 B89E D0         RET  NC
 B89F 3EC9       LD   A,+C9
 B8A1 B8         CP   B
 B8A2 CB15       RL   L
 B8A4 06B0       LD   B,+B0
 B8A6 D2FDB8     JP   NC,B8FD
 B8A9 7C         LD   A,H
 B8AA AD         XOR  L
 B8AB 67         LD   H,A
 B8AC 7A         LD   A,D
 B8AD B3         OR   E
 B8AE 20C9       JR   NZ,B879
 B8B0 7C         LD   A,H
 B8B1 FE01       CP   +01
 B8B3 21B0B7     LD   HL,+B7B0
 B8B6 E5         PUSH HL
 B8B7 C3DBB7     JP   B7DB
 B8BA CDC3B8     CALL B8C3
 B8BD D0         RET  NC
 B8BE 3E10       LD   A,+10
 B8C0 3D         DEC  A
 B8C1 20FD       JR   NZ,B8C0
 B8C3 A7         AND  A
 B8C4 04         INC  B
 B8C5 C8         RET  Z
 B8C6 3E7F       LD   A,+7F
 B8C8 DBFE       IN   A,(+FE)
 B8CA 1F         RRA
 B8CB A9         XOR  C
 B8CC E620       AND  +20
 B8CE 28F4       JR   Z,B8C4
 B8D0 79         LD   A,C
 B8D1 2F         CPL
 B8D2 4F         LD   C,A
 B8D3 E601       AND  +01
 B8D5 F608       OR   +08
 B8D7 D3FE       OUT  (+FE),A
 B8D9 37         SCF
 B8DA C9         RET
 B8DB CDDFB8     CALL B8DF
 B8DE D0         RET  NC
 B8DF 3E16       LD   A,+16
 B8E1 3D         DEC  A
 B8E2 20FD       JR   NZ,B8E1
 B8E4 A7         AND  A
 B8E5 04         INC  B
 B8E6 C8         RET  Z
 B8E7 3E7F       LD   A,+7F
 B8E9 DBFE       IN   A,(+FE)
 B8EB 1F         RRA
 B8EC A9         XOR  C
 B8ED D8         RET  C
 B8EE E620       AND  +20
 B8F0 28F3       JR   Z,B8E5
 B8F2 79         LD   A,C
 B8F3 2F         CPL
 B8F4 4F         LD   C,A
 B8F5 E607       AND  +07
 B8F7 F608       OR   +08
 B8F9 D3FE       OUT  (+FE),A
 B8FB 37         SCF
 B8FC C9         RET
 B8FD D9         EXX
 B8FE 0D         DEC  C
 B8FF CA0AB9     JP   Z,B90A
 B902 FDE9       JP   (IY)
 B904 FDE1       POP  IY
 B906 D9         EXX
 B907 C39BB8     JP   B89B
 B90A 0E07       LD   C,+07
 B90C 05         DEC  B
 B90D CA19B9     JP   Z,B919
 B910 3E04       LD   A,+04
 B912 3D         DEC  A
 B913 20FD       JR   NZ,B912
 B915 D9         EXX
 B916 C39BB8     JP   B89B
 B919 7B         LD   A,E
 B91A D601       SUB  +01
 B91C 27         DAA
 B91D 5F         LD   E,A
 B91E 7A         LD   A,D
 B91F 98         SBC  A,B
 B920 27         DAA
 B921 57         LD   D,A
 B922 0640       LD   B,+40
 B924 FD212DB9   LD   IY,+B92D
 B928 263D       LD   H,+3D
 B92A C315B9     JP   B915
 B92D 7B         LD   A,E
 B92E E60F       AND  +0F
 B930 87         ADD  A,A
 B931 87         ADD  A,A
 B932 87         ADD  A,A
 B933 F681       OR   +81
 B935 6F         LD   L,A
 B936 7E         LD   A,(HL)
 B937 32FF50     LD   (50FF),A
 B93A CD04B9     CALL B904
 B93D 2C         INC  L
 B93E 7E         LD   A,(HL)
 B93F 32FF51     LD   (51FF),A
 B942 2C         INC  L
 B943 7E         LD   A,(HL)
 B944 32FF52     LD   (52FF),A
 B947 CD04B9     CALL B904
 B94A 2C         INC  L
 B94B 7E         LD   A,(HL)
 B94C 32FF53     LD   (53FF),A
 B94F 2C         INC  L
 B950 7E         LD   A,(HL)
 B951 32FF54     LD   (54FF),A
 B954 CD04B9     CALL B904
 B957 2C         INC  L
 B958 7E         LD   A,(HL)
 B959 32FF55     LD   (55FF),A
 B95C 2C         INC  L
 B95D 7E         LD   A,(HL)
 B95E 32FF56     LD   (56FF),A
 B961 CD04B9     CALL B904
 B964 7B         LD   A,E
 B965 E6F0       AND  +F0
 B967 1F         RRA
 B968 F681       OR   +81
 B96A 6F         LD   L,A
 B96B 7E         LD   A,(HL)
 B96C 32FE50     LD   (50FE),A
 B96F CD04B9     CALL B904
 B972 2C         INC  L
 B973 7E         LD   A,(HL)
 B974 32FE51     LD   (51FE),A
 B977 2C         INC  L
 B978 7E         LD   A,(HL)
 B979 32FE52     LD   (52FE),A
 B97C CD04B9     CALL B904
 B97F 2C         INC  L
 B980 7E         LD   A,(HL)
 B981 32FE53     LD   (53FE),A
 B984 2C         INC  L
 B985 7E         LD   A,(HL)
 B986 32FE54     LD   (54FE),A
 B989 CD04B9     CALL B904
 B98C 2C         INC  L
 B98D 7E         LD   A,(HL)
 B98E 32FE55     LD   (55FE),A
 B991 2C         INC  L
 B992 7E         LD   A,(HL)
 B993 32FE56     LD   (56FE),A
 B996 CD04B9     CALL B904
 B999 7A         LD   A,D
 B99A E60F       AND  +0F
 B99C 87         ADD  A,A
 B99D 87         ADD  A,A
 B99E 87         ADD  A,A
 B99F F681       OR   +81
 B9A1 6F         LD   L,A
 B9A2 7E         LD   A,(HL)
 B9A3 32FD50     LD   (50FD),A
 B9A6 CD04B9     CALL B904
 B9A9 2C         INC  L
 B9AA 7E         LD   A,(HL)
 B9AB 32FD51     LD   (51FD),A
 B9AE 2C         INC  L
 B9AF 7E         LD   A,(HL)
 B9B0 32FD52     LD   (52FD),A
 B9B3 CD04B9     CALL B904
 B9B6 2C         INC  L
 B9B7 7E         LD   A,(HL)
 B9B8 32FD53     LD   (53FD),A
 B9BB 2C         INC  L
 B9BC 7E         LD   A,(HL)
 B9BD 32FD54     LD   (54FD),A
 B9C0 CD04B9     CALL B904
 B9C3 2C         INC  L
 B9C4 7E         LD   A,(HL)
 B9C5 32FD55     LD   (55FD),A
 B9C8 2C         INC  L
 B9C9 7E         LD   A,(HL)
 B9CA 32FD56     LD   (56FD),A
 B9CD 32FD56     LD   (56FD),A
 B9D0 FD2118BA   LD   IY,+BA18
 B9D4 D9         EXX
 B9D5 C39BB8     JP   B89B
 B9D8 215847     LD   HL,+4758
 B9DB 00         NOP
 B9DC 215800     LD   HL,+0058
 B9DF 00         NOP
 B9E0 F5         PUSH AF
 B9E1 59         LD   E,C
 B9E2 47         LD   B,A
 B9E3 00         NOP
 B9E4 F5         PUSH AF
 B9E5 59         LD   E,C
 B9E6 00         NOP
 B9E7 00         NOP
 B9E8 35         DEC  (HL)
 B9E9 58         LD   E,B
 B9EA 47         LD   B,A
 B9EB 00         NOP
 B9EC 35         DEC  (HL)
 B9ED 58         LD   E,B
 B9EE 00         NOP
 B9EF 00         NOP
 B9F0 E1         POP  HL
 B9F1 59         LD   E,C
 B9F2 47         LD   B,A
 B9F3 00         NOP
 B9F4 E1         POP  HL
 B9F5 59         LD   E,C
 B9F6 00         NOP
 B9F7 00         NOP
 B9F8 2B         DEC  HL
 B9F9 58         LD   E,B
 B9FA 68         LD   L,B
 B9FB 00         NOP
 B9FC 2B         DEC  HL
 B9FD 58         LD   E,B
 B9FE 00         NOP
 B9FF 00         NOP
 BA00 EB         EX   HL,DE
 BA01 59         LD   E,C
 BA02 70         LD   (HL),B
 BA03 00         NOP
 BA04 EB         EX   HL,DE
 BA05 59         LD   E,C
 BA06 00         NOP
 BA07 00         NOP
 BA08 015958     LD   BC,+5859
 BA0B 00         NOP
 BA0C 015900     LD   BC,+0059
 BA0F 00         NOP
 BA10 15         DEC  D
 BA11 59         LD   E,C
 BA12 60         LD   H,B
 BA13 00         NOP
 BA14 15         DEC  D
 BA15 59         LD   E,C
 BA16 00         NOP
 BA17 00         NOP
 BA18 2A0440     LD   HL,(4004)
 BA1B 7D         LD   A,L
 BA1C B4         OR   H
 BA1D 2810       JR   Z,BA2F
 BA1F 2B         DEC  HL
 BA20 220440     LD   (4004),HL
 BA23 00         NOP
 BA24 00         NOP
 BA25 263D       LD   H,+3D
 BA27 FD212DB9   LD   IY,+B92D
 BA2B D9         EXX
 BA2C C39BB8     JP   B89B
 BA2F 220440     LD   (4004),HL
 BA32 CD04B9     CALL B904
 BA35 3A0040     LD   A,(4000)
 BA38 3C         INC  A
 BA39 E60F       AND  +0F
 BA3B 320040     LD   (4000),A
 BA3E 87         ADD  A,A
 BA3F 87         ADD  A,A
 BA40 21DAB9     LD   HL,+B9DA
 BA43 85         ADD  A,L
 BA44 6F         LD   L,A
 BA45 7C         LD   A,H
 BA46 CE00       ADC  A,+00
 BA48 67         LD   H,A
 BA49 FD2151BA   LD   IY,+BA51
 BA4D D9         EXX
 BA4E C39BB8     JP   B89B
 BA51 AF         XOR  A
 BA52 BA         CP   D
 BA53 7B         LD   A,E
 BA54 1F         RRA
 BA55 CB3F       SRL  A
 BA57 2801       JR   Z,BA5A
 BA59 7E         LD   A,(HL)
 BA5A 320140     LD   (4001),A
 BA5D CD04B9     CALL B904
 BA60 2B         DEC  HL
 BA61 7E         LD   A,(HL)
 BA62 2B         DEC  HL
 BA63 6E         LD   L,(HL)
 BA64 67         LD   H,A
 BA65 3E07       LD   A,+07
 BA67 320240     LD   (4002),A
 BA6A CD04B9     CALL B904
 BA6D 3A0140     LD   A,(4001)
 BA70 77         LD   (HL),A
 BA71 23         INC  HL
 BA72 77         LD   (HL),A
 BA73 23         INC  HL
 BA74 77         LD   (HL),A
 BA75 23         INC  HL
 BA76 CD04B9     CALL B904
 BA79 3A0140     LD   A,(4001)
 BA7C 77         LD   (HL),A
 BA7D 23         INC  HL
 BA7E 77         LD   (HL),A
 BA7F 23         INC  HL
 BA80 77         LD   (HL),A
 BA81 23         INC  HL
 BA82 CD04B9     CALL B904
 BA85 3A0140     LD   A,(4001)
 BA88 77         LD   (HL),A
 BA89 23         INC  HL
 BA8A 77         LD   (HL),A
 BA8B 23         INC  HL
 BA8C 77         LD   (HL),A
 BA8D 23         INC  HL
 BA8E CD04B9     CALL B904
 BA91 3A0140     LD   A,(4001)
 BA94 77         LD   (HL),A
 BA95 7D         LD   A,L
 BA96 C617       ADD  A,+17
 BA98 6F         LD   L,A
 BA99 7C         LD   A,H
 BA9A CE00       ADC  A,+00
 BA9C 67         LD   H,A
 BA9D CD04B9     CALL B904
 BAA0 3A0240     LD   A,(4002)
 BAA3 3D         DEC  A
 BAA4 CAADBA     JP   Z,BAAD
 BAA7 320240     LD   (4002),A
 BAAA C36ABA     JP   BA6A
 BAAD 212C01     LD   HL,+012C
 BAB0 3A0140     LD   A,(4001)
 BAB3 A7         AND  A
 BAB4 2803       JR   Z,BAB9
 BAB6 220440     LD   (4004),HL
 BAB9 FD21C1BA   LD   IY,+BAC1
 BABD D9         EXX
 BABE C39BB8     JP   B89B
 BAC1 3E05       LD   A,+05
 BAC3 3D         DEC  A
 BAC4 20FD       JR   NZ,BAC3
 BAC6 D9         EXX
 BAC7 C39BB8     JP   B89B
 BACA 00         NOP
 BACB C9         RET
 BACC BA         CP   D

The saving routine:
 BACD 2178BB     LD   HL,+BB78
 BAD0 E5         PUSH HL
 BAD1 21801F     LD   HL,+1F80
 BAD4 CB7F       BIT  7,A
 BAD6 2803       JR   Z,BADB
 BAD8 21980C     LD   HL,+0C98
 BADB 08         EX   AF,AF'
 BADC 13         INC  DE
 BADD DD2B       DEC  IX
 BADF F3         DI
 BAE0 3E02       LD   A,+02
 BAE2 47         LD   B,A
 BAE3 10FE       DJNZ BAE3
 BAE5 D3FE       OUT  (+FE),A
 BAE7 EE0F       XOR  +0F
 BAE9 06A4       LD   B,+A4
 BAEB 2D         DEC  L
 BAEC 20F5       JR   NZ,BAE3
 BAEE 05         DEC  B
 BAEF 25         DEC  H
 BAF0 F2E3BA     JP   P,BAE3
 BAF3 062F       LD   B,+2F
 BAF5 10FE       DJNZ BAF5
 BAF7 D3FE       OUT  (+FE),A
 BAF9 3E0D       LD   A,+0D
 BAFB 0637       LD   B,+37
 BAFD 10FE       DJNZ BAFD
 BAFF D3FE       OUT  (+FE),A
 BB01 010823     LD   BC,+2308
 BB04 08         EX   AF,AF'
 BB05 6F         LD   L,A
 BB06 C312BB     JP   BB12
 BB09 7A         LD   A,D
 BB0A B3         OR   E
 BB0B 281F       JR   Z,BB2C
 BB0D DD6E00     LD   L,(IX+00)
 BB10 7C         LD   A,H
 BB11 AD         XOR  L
 BB12 67         LD   H,A
 BB13 08         EX   AF,AF'
 BB14 1B         DEC  DE
 BB15 7B         LD   A,E
 BB16 B2         OR   D
 BB17 13         INC  DE
 BB18 DD7E01     LD   A,(IX+01)
 BB1B 2005       JR   NZ,BB22
 BB1D 05         DEC  B
 BB1E 7C         LD   A,H
 BB1F C322BB     JP   BB22
 BB22 17         RLA
 BB23 7D         LD   A,L
 BB24 17         RLA
 BB25 08         EX   AF,AF'
 BB26 3E01       LD   A,+01
 BB28 37         SCF
 BB29 C364BB     JP   BB64
 BB2C DD2ACBBA   LD   IX,(BACB)
 BB30 05         DEC  B
 BB31 05         DEC  B
 BB32 6C         LD   L,H
 BB33 C310BB     JP   BB10
 BB36 DA44BB     JP   C,BB44
 BB39 0632       LD   B,+32
 BB3B 08         EX   AF,AF'
 BB3C 17         RLA
 BB3D 3010       JR   NC,BB4F
 BB3F 0621       LD   B,+21
 BB41 C34FBB     JP   BB4F
 BB44 062A       LD   B,+2A
 BB46 08         EX   AF,AF'
 BB47 17         RLA
 BB48 3805       JR   C,BB4F
 BB4A 0643       LD   B,+43
 BB4C C34FBB     JP   BB4F
 BB4F 08         EX   AF,AF'
 BB50 79         LD   A,C
 BB51 CB78       BIT  7,B
 BB53 10FE       DJNZ BB53
 BB55 3004       JR   NC,BB5B
 BB57 0631       LD   B,+31
 BB59 10FE       DJNZ BB59
 BB5B D3FE       OUT  (+FE),A
 BB5D 062D       LD   B,+2D
 BB5F 20D5       JR   NZ,BB36
 BB61 05         DEC  B
 BB62 AF         XOR  A
 BB63 3C         INC  A
 BB64 CB15       RL   L
 BB66 C253BB     JP   NZ,BB53
 BB69 1B         DEC  DE
 BB6A DD23       INC  IX
 BB6C 061B       LD   B,+1B
 BB6E 7A         LD   A,D
 BB6F 3C         INC  A
 BB70 C209BB     JP   NZ,BB09
 BB73 0625       LD   B,+25
 BB75 10FE       DJNZ BB75
 BB77 C9         RET
 BB78 F5         PUSH AF
 BB79 3A485C     LD   A,(BORDCR)
 BB7C E638       AND  +38
 BB7E 0F         RRCA
 BB7F 0F         RRCA
 BB80 0F         RRCA
 BB81 D3FE       OUT  (+FE),A
 BB83 FB         EI
 BB84 F1         POP  AF
 BB85 C9         RET