?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1. ;*****************************************************************************
  2. ;** LEVEL 3 STUFF (DATA, SPRITES AND PROGRAMMING )                          **
  3. ;*****************************************************************************
  4.  
  5. ;                IF STARTLEV=3
  6.  
  7.                 PHASE LEVELDATA
  8.  
  9. LEVEL3DATA
  10.                 DB $20,$30+FLOROF      ; HERO X,Y
  11.                 DB $00                 ; MAPX
  12.                 DB $68                 ; MAPY
  13.                 DB 0                   ; 0=SCROLL L/R - l=SCROLL U/D
  14.                 DB $86,$00             ; WEAPON ROOM X,Y INIT
  15.                 DW $48D8               ; DOOR XY
  16.                 DB $86,$68             ; RIGHTMAX,DOWNMAX
  17.                 DB $54,$00             ; SETUD,SETLR
  18.                 DW FL00R3              ; FLOOR BLOCKS
  19.                 DW WALL3               ; WALL BLOCKS
  20.                 DB $FF,$FF             ; LADDER BLOCKS - SFF,SFF - $FF,$FF
  21.                 DB $FF                 ; CRAWL ON BLOCK
  22.                 DB $96,$FF             ; SLIDE UP
  23.                 DB $FF,$FF             ; SLIDE DOWN
  24.                 DW LEV3BADX,LEV3BADX2  ; LEVEL BADDY INITS X,EXTRA X
  25.                 DW LEV3BADY            ; LEVEL BADDY INITS Y
  26.                 DW L3CHRS              ; CHRS
  27.                 DW L3ATRS              ; ATRS
  28.                 DW L3BLOX              ; BLOX
  29.                 DW L3MAPX              ; MAPX
  30.                 DW L3MAPY              ; MAPY
  31.                 DB 80                  ; MAPXMAXSIZE
  32.  
  33.                 CALL PRTLIFTS:CALL PRTLASER:CALL PRTLEV3COGS:RET
  34.                 JP RESETLEV3BAD
  35.                 JP SMODLIFTS
  36. WAPTABLE3       DB $03,2,$01,2,$07,3,$06,3,$09,3,$0A,2
  37.                 JP KILLLASER           ; KILL BIG
  38.                 JP INITLASER           ; INIT BIG 1
  39.                 JP INITBIGCOG          ; INIT BIG Z
  40.                 JP INITTREECOG         ; INIT BIG 3
  41.                 JP COLOURBEE3          ; INIT BIG 4
  42.  
  43. ;***************************************
  44.  
  45. RESETLEV3BAD    XOR A:LD (ISBIGON),A
  46.                 LD (PRTBIGCOGS+1),A:LD (PRTLEV3COGS+1),A
  47.                 LD (PRTLASER+1),A
  48.  
  49.                 LD HL,BADBEE3:LD (BEE1),HL
  50.  
  51.                 LD HL,L1+1:LD B,4:LD DE,6-1:LD A,$30
  52. RESLIF          LD (HL),A:INC HL:LD (HL),$70:ADD HL,DE:ADD A,$30
  53.                 DJNZ RESLIF
  54.                 RET
  55.  
  56. ;***************************************
  57.  
  58. FL00R3          DB 3+4+3+2+1+2+2
  59.                 DB #17,#01,#02
  60.                 DB #0C,#12,#08,#13
  61.                 DB #03,#04,#05
  62.                 DB #14,#96
  63.                 DB #0C
  64.                 DB #09,#0E
  65.                 DB #06,#07
  66.  
  67. WALL3           DB 2+2+2
  68.                 DB #11,#10
  69.                 DB #0A,#66
  70.                 DB #67,#68
  71.  
  72. ;***************************************
  73.  
  74. LEV3BADX        DB $02,$06              ; BEE
  75.                 DB $06,$00,$44,JUMP+KEY ; BADDY
  76.                 DB $10,$07              ; BEE
  77.                 DB $18,$00,$64,KEY      ; BADDY
  78.                 DB $1C,$00,$64,KEY      ; BADDY
  79.                 DB $26,$FF              ; LASER GUN
  80.                 DB $30,$01,$24,KEY      ; BADDY
  81.                 DB $32,$01,$64,KEY      ; BADDY
  82.                 DB $38,$01,$24,KEY      ; BADDY
  83.                 DB $3A,$01,$64,KEY      ; BADDY
  84.                 DB $40,$01,$24,KEY      ; BADDY
  85.                 DB $42,$01,$64,KEY      ; BADDY
  86.                 DB $48,$01,$24,KEY      ; BADDY
  87.                 DB $4A,$01,$64,KEY      ; BADDY
  88.                 DB $50,$01,$24,KEY      ; BADDY
  89.                 DB $52,$01,$64,KEY      ; BADDY
  90.                 DB $FF,$FF              ; END OF DATA
  91. LEV3BADY        DB $60,$06              ; BEE
  92.                 DB $5C,$07              ; BEE
  93.                 DB $58,$06              ; BEE
  94.                 DB $54,$06              ; BEE
  95.                 DB $50,$06              ; BEE
  96.                 DB $4C,$07              ; BEE
  97.                 DB $48,$07              ; BEE
  98.                 DB $44,$06              ; BEE
  99.                 DB $40,$07              ; BEE
  100.                 DB $3E,$07              ; BEE
  101.                 DB $3C,$06              ; BEE
  102.                 DB $3A,$06              ; BEE
  103.                 DB $38,$07              ; BEE
  104.                 DB $36,$07              ; BEE
  105.                 DB $34,$06              ; BEE
  106.                 DB $32,$06              ; BEE
  107.                 DB $30,$07              ; BEE
  108.                 DB $2E,$07              ; BEE
  109.                 DB $2C,$06              ; BEE
  110.                 DB $2A,$06              ; BEE
  111.                 DB $28,$07              ; BEE
  112.                 DB $26,$07              ; BEE
  113.                 DB $24,$06              ; BEE
  114.                 DB $1C,$FB,$06          ; SCROLL
  115.                 DB $16,$FD              ; LITTLE COGS
  116.                 DB $00,$FE              ; BIG COGS
  117.                 DB $FF,$FF              ; END OF DATA
  118. LEV3BADX2       DB $70,$01,$64,KEY      ; BADDY
  119.                 DB $74,$01,$64,KEY      ; BADDY
  120.                 DB $78,$01,$64,KEY      ; BADDY
  121.                 DB $7C,$01,$64,KEY      ; BADDY
  122.                 DB $80,$01,$64,KEY      ; BADDY
  123.                 DB $FF,$FF              ; END OF DATA
  124.  
  125. ;*****************************************************************
  126. ;** PRT LASER                                                   **
  127. ;*****************************************************************
  128.  
  129. INITLASER       LD A,1:LD (PRTLASER+1),A:LD DE,$20E0:LD (LASERX+1),DE
  130.                 LD A,$60:LD (BIGHITS),A:RET
  131.  
  132. KILLLASER       XOR A:LD (NOSCROLL+1),A:LD (PRTLASER+1),A
  133.                 LD (ISBIGON),A:PUSH BC:PUSH IX:LD DE,(LASERX+1)
  134.                 PUSH DE:LD A,D:ADD A,$20:LD D,A:CALL INITEXPNORND:POP DE
  135.                 PUSH DE:LD A,D:ADD A,$40:LD D,A:CALL INITEXPNORND:POP DE
  136.                 CALL INITEXPNORND:POP IX:POP BC:RET
  137.  
  138. PRTLASER        LD A,1:OR A:RET Z:LD (ISBIGON),A
  139.  
  140. LASERX          LD DE,$2000:LD A,E:CP $C0:JR NC,FJOE
  141.                 LD A,1:LD (NOSCROLL+1),A
  142. FJOE            PUSH DE:LD HL,LASERHOLD:LD BC,$0410:CALL BAXIT:POP DE
  143.                 PUSH DE:LD A,D:ADD A,$20:LD D,A
  144.                 LD HL,LASERHOLD+$60:LD BC,$0404:CALL BAXIT
  145.                 POP DE:PUSH DE:LD A,D:ADD A,$28:LD D,A
  146.                 LD HL,LASERHOLD+$60:LD BC,$0404:CALL BAXIT
  147.                 POP DE:PUSH DE:LD A,D:ADD A,$30:LD D,A
  148.                 LD HL,LASERHOLD+$60:LD BC,$0414:CALL BAXIT
  149.                 POP DE:PUSH DE:LD HL,LASERATTR:LD BC,$0458:CALL ATRIT
  150.                 POP DE:LD A,E:SUB 8:LD E,A
  151.  
  152. LASERANI        LD A,$2C
  153. LASERD          ADD A,2:LD (LASERANI+1),A:LD D,A
  154.                 CP $2C:JR Z,SWAPLAS:CP $5E:JR NZ,NOSWAPLAS
  155. SWAPLAS         LD A,(LASERD+1):NEG :LD (LASERD+1),A
  156. NOSWAPLAS       LD HL,LASER:PUSH DE:LD BC,$0208:CALL MASKCXB:POP DE
  157.  
  158.                 LD HL,(LASERX+1):LD H,$20:LD (BIGX1),HL
  159.                 LD HL,(LASERX+2):LD H,$60:LD (BIGY1),HL
  160.  
  161. LASERFIRE       LD A,0:INC A:LD (LASERFIRE+1),A:CP 20:RET C
  162.                 XOR A:LD (LASERFIRE+1),A
  163.                 LD A,(LASERANI+1):ADD A,4:LD D,A
  164.                 LD A,E:SUB $10:LD E,A
  165.                 LD A,12:LD B,4:JP INITLAS
  166.  
  167. LASER           DB #F8,#00,#07,#B0,#0F,#A0,#F0,#06,#E0,#08,#07,#B0,#07,#B0,#C0,#14
  168.                 DB #80,#2E,#03,#08,#01,#F4,#00,#5D,#00,#BB,#00,#82,#00,#02,#00,#97
  169.                 DB #00,#AE,#00,#02,#01,#1C,#00,#A4,#00,#48,#03,#10,#07,#10,#80,#28
  170.                 DB #C0,#14,#07,#10,#07,#10,#E0,#0A,#F0,#04,#07,#10,#0F,#E0,#F8,#03
  171.  
  172. LASERHOLD       DB #FF,#FF,#FF,#FF,#7F,#18,#18,#C0,#99,#C1,#C1,#BF,#DF,#EA,#EA,#AC
  173.                 DB #B6,#74,#75,#6F,#B7,#BA,#02,#BB,#BD,#BB,#5D,#5B,#01,#00,#00,#BE
  174.                 DB #BE,#FF,#8E,#4D,#AD,#8E,#81,#9E,#AE,#9E,#8D,#5D,#99,#0C,#AF,#96
  175.                 DB #8A,#B0,#0C,#3A,#F2,#0F,#B5,#A4,#B2,#12,#80,#05,#75,#00,#C5,#A1
  176.                 DB #B0,#40,#20,#B5,#75,#08,#54,#A4,#B2,#4B,#E8,#B5,#75,#28,#54,#A1
  177.                 DB #B0,#48,#2C,#F5,#E1,#E7,#4F,#A0,#B0,#40,#10,#0E,#40,#A8,#42,#A4
  178.                 DB #B2,#44,#00,#36,#9B,#54,#4E,#A1,#B0,#57,#00,#4D,#25,#FE,#5A,#A0
  179.                 DB #B0,#5D,#02,#4D,#9B,#56,#4D,#A0,#B0,#45,#02,#36,#AC,#FE,#41,#A4
  180.                 DB #B2,#40,#00,#18,#2C,#FF,#5F,#A1,#B0,#50,#01,#16,#0B,#A1,#52,#A0
  181.                 DB #B0,#55,#50,#05,#AD,#A2,#52,#A0,#B0,#55,#50,#01,#02,#A2,#52,#A4
  182.                 DB #B2,#55,#50,#0A,#02,#A2,#52,#A1,#B0,#50,#00,#0A,#02,#FA,#5F,#A0
  183.                 DB #B0,#40,#00,#0A,#02,#FA,#5F,#A0,#B0,#40,#00,#0A,#02,#32,#56,#A4
  184.                 DB #B2,#5B,#18,#0A,#02,#02,#5C,#B5,#BA,#5D,#98,#0A,#02,#9A,#5D,#5D
  185.                 DB #2E,#4D,#98,#0A,#02,#9A,#85,#57,#2B,#79,#98,#02,#25,#00,#80,#51
  186.                 DB #B0,#40,#00,#71,#2D,#FF,#DF,#98,#8D,#B5,#55,#0D,#0D,#01,#70,#A7
  187.                 DB #92,#FF,#FF,#FD,#FD,#FF,#FF,#49,#20,#00,#00,#01,#FF,#FF,#FF,#1F
  188.  
  189. LASERATTR       DB #46,#45,#45,#45
  190.                 DB #46,#4D,#4D,#45
  191.                 DB #56,#43,#43,#4C
  192.                 DB #56,#0E,#43,#4F
  193.                 DB #56,#0E,#43,#4F
  194.                 DB #56,#0E,#43,#4F
  195.                 DB #56,#0E,#43,#4F
  196.                 DB #56,#06,#06,#06
  197.                 DB #56,#06,#0E,#45
  198.                 DB #46,#45,#4D,#45
  199.                 DB #45,#4D,#4D,#45
  200.  
  201. ;*******************************************************************************
  202. ;** PRT COGS                                                                  **
  203. ;*******************************************************************************
  204.  
  205. INITTREECOG     LD HL,COGS1XB:LD DE,COGS1X:LD BC,4*5:LDIR
  206.                 LD A,1:LD (NOSCROLL+1),A:LD (PRTLEV3COGS+1),A
  207.                 LD A,3:LD (COGNUMB+1),A:CALL INCCOGNUM
  208.                 LD A,31:LD (LEV3DEL+1),A
  209.                 LD A,3:JP PLAYMUSIC
  210.  
  211. PRTLEV3COGS     LD A,1:PUSH AF:CALL PRTBIGCOGS:POP AF:OR A:RET Z
  212. LEV3DEL         LD A,31:DEC A:JP M,NAL:LD (LEV3DEL+1),A
  213. NAL
  214. COGON           LD A,0:XOR $92:LD (COGON+1),A
  215.                 LD HL,COGSPRTREE:CALL ADDHLA
  216.                 LD (NAFTER+1),HL
  217. COGNUMB         LD C,0:LD B,4:LD IX,COGS1X
  218. PRTL3COGBLP     PUSH BC:LD A,4:SUB B:LD (HARRY+1),A
  219.                 LD A,(IX+04):OR A:JR Z,GONEXTCOG
  220.  
  221.                 PUSH BC
  222. NAFTER          LD HL,0:LD E,(IX+00):LD D,(IX+01):CALL BAXITA
  223.                 LD E,(IX+00):LD D,(IX+01):INC IX:INC IX
  224.                 LD BC,$2020:CALL ISBULORHERO:DEC IX:DEC IX
  225.                 POP BC
  226.                 LD A,(IX+04):OR A:JR NZ,GANXTCOG
  227.                 LD E,(IX+00):LD D,(IX+01)
  228.                 PUSH IX:PUSH BC:CALL INITEXPNORND:POP BC:POP IX
  229.  
  230.                 LD A,(COGNUMB+1)
  231. HARRY           CP 0:JR Z,NACUM
  232.  
  233. GANXTCOG        LD A,(LEV3DEL+1):OR A:JR NZ,NACUM
  234.                 LD A, 4: SUB B:CP C:JR NZ,NDOSWAP
  235.                 LD A,(IX+00):ADD A,(IX+02):LD (IX+00),A
  236.                 LD A,(IX+01):ADD A,(IX+03):LD (IX+01),A
  237.                 JR Z,DOSWAP:CP $40:JR NZ,NDOSWAP
  238. DOSWAP          LD A,(IX+02):NEG:LD (IX+02),A
  239.                 LD A,(IX+03):NEG:LD (IX+03),A:JP M,NDOSWAP
  240. NACUM           CALL INCCOGNUM
  241. NDOSWAP
  242.  
  243. GONEXTCOG       POP BC:LD DE,5:ADD IX,DE:DEC B:JP NZ,PRTL3COGBLP:RET
  244. INCCOGNUM       LD B,4
  245. GONXTCOG        LD A,(COGNUMB+1):INC A:AND 3:LD (COGNUMB+1),A
  246.                 PUSH HL:PUSH DE:LD HL,COGS1X+4:LD DE,5:CALL MULT
  247.                 LD A,(HL):OR A:JR NZ,NIOSWAP
  248.                 POP DE:POP HL:DJNZ GONXTCOG
  249.                 LD A,$16:LD (CONTSCROLL+1),A:RET
  250.  
  251. NIOSWAP         DEC HL:DEC HL:DEC HL:DEC HL
  252.                 LD E,(HL):INC HL:INC HL
  253.                 LD A,(HEROX+1):SUB E:JR NC,COR
  254. COL             NEG :SRL A:SRL A:SRL A:NEG :LD (HL),A:JR ZAKS
  255. COR             SRL A:SRL A:SRL A:LD (HL),A
  256. ZAKS            POP DE:POP HL:RET
  257.  
  258. COGS1X          DS 4*5,0
  259. COGS1XB         DW $0020
  260.                 DB 0,8             ; XY DIR
  261.                 DB 16              ; ENERGY
  262.                 DW $0058
  263.                 DB 0,8             ; XY DIR
  264.                 DB 16              ; ENERGY
  265.                 DW $0090
  266.                 DB 0,8             ; XY DIR
  267.                 DB 16              ; ENERGY
  268.                 DW $00C8
  269.                 DB 0,8             ; XY DIR
  270.                 DB 16              ; ENERGY
  271.  
  272. COGSPRTREE
  273.                 DB 4,4*8
  274.                 DB #03,#00,#00,#00,#1C,#E0,#03,#46,#64,#04,#10,#39,#13,#D0,#89,#B1
  275.                 DB #C2,#4B,#A1,#C5,#20,#A2,#4B,#45,#4B,#5B,#9D,#D1,#E8,#C3,#27,#0B
  276.                 DB #0B,#DF,#FF,#C8,#B0,#FF,#FF,#0B,#05,#F8,#3F,#40,#40,#CF,#E3,#02
  277.                 DB #32,#CC,#37,#78,#84,#0B,#90,#4D,#53,#92,#4B,#F2,#FA,#85,#21,#5F
  278.                 DB #5F,#21,#85,#FA,#CA,#4B,#92,#4F,#21,#90,#0B,#B2,#4C,#37,#CC,#1E
  279.                 DB #02,#E3,#CF,#40,#A0,#3F,#F8,#02,#1D,#FF,#FF,#D0,#D0,#FB,#FF,#23
  280.                 DB #2F,#C7,#E5,#D0,#A0,#DA,#BB,#17,#68,#45,#D2,#46,#83,#D1,#85,#C7
  281.                 DB #10,#0B,#90,#18,#0D,#20,#08,#34,#66,#07,#C0,#26,#00,#00,#00,#03
  282.                 DB #44,#47,#47,#44
  283.                 DB #47,#57,#57,#47
  284.                 DB #47,#57,#57,#47
  285.                 DB #44,#47,#47,#44
  286.  
  287.                 DB 4,4*8
  288.                 DB #0C,#00,#00,#30,#78,#18,#18,#06,#26,#64,#26,#64,#08,#59,#9A,#08
  289.                 DB #01,#7A,#5E,#86,#82,#BE,#74,#0D,#33,#7B,#B2,#B0,#C8,#78,#BC,#14
  290.                 DB #16,#DF,#FB,#28,#F4,#FC,#7F,#2E,#2D,#F8,#3F,#F4,#DA,#CF,#E3,#5F
  291.                 DB #5F,#CC,#37,#DA,#A4,#8B,#90,#27,#1B,#90,#0B,#D8,#A0,#85,#2D,#05
  292.                 DB #05,#21,#B5,#A0,#D8,#0B,#90,#1D,#25,#91,#0B,#E4,#FA,#37,#CC,#5B
  293.                 DB #5F,#E3,#CF,#FA,#B4,#3F,#F8,#2F,#2F,#3F,#FC,#74,#A8,#F8,#1F,#14
  294.                 DB #0A,#5F,#7C,#54,#20,#3D,#AE,#A4,#61,#7E,#0E,#84,#9A,#2E,#7D,#01
  295.                 DB #2C,#9A,#59,#0C,#62,#46,#62,#9A,#23,#1C,#38,#68,#30,#00,#00,#06
  296.                 DB #44,#47,#47,#44
  297.                 DB #47,#57,#57,#47
  298.                 DB #47,#57,#57,#47
  299.                 DB #44,#47,#47,#44
  300.  
  301. ;*******************************************************************************
  302. ;** PRT BIG COGS                                                              **
  303. ;*******************************************************************************
  304.  
  305. EYE             LD A,0:OR A:JR NZ,KILLEYE
  306.                 LD IX,EYEENG-1:LD DE,$0090:LD BC,$0F0F:CALL ISBULINBOX
  307. EYEENG          LD A,$20:OR A:JR Z,KILEYE
  308.                 LD A,(POS):AND 15:RET NZ
  309.                 LD A,(HEROX+1):LD DE,$0A90:CP $60:JR C,FILT
  310.                 LD DE,$0888:CP $A0:JR C,FILT:LD DE,$0680
  311. FILT            LD A,D:LD D,0:LD B,4:JP INITBAL
  312.  
  313. KILEYE          LD A,1:LD (EYE+1),A:RET
  314.  
  315. KILLEYE         INC A:LD (EYE+1),A:CP 26+2:JR NC,DEADEYE
  316.                 SUB 2:LD E,A:AND 1:RET NZ
  317.                 SRL E:RES 0,E:LD D,0:CALL ZAX
  318.                 LD A,24:SUB E:LD E,A:CALL ZAX
  319.  
  320. ZAX             PUSH DE:CALL UPDATEX:POP DE:PUSH DE
  321.                 LD A,E:ADD A,A:ADD A,A:ADD A,A:ADD A,$10:LD E,A
  322.                 PUSH DE:CALL INITEXPNORND:POP DE:LD A,D:ADD A,$20:LD D,A
  323.                 LD A,E:ADD A,$08:LD E,A
  324.  
  325.                 PUSH DE:CALL INITEXPNORND:POP DE:LD A,D:ADD A,$20:LD D,A
  326.                 LD A,E:ADD A,$08:LD E,A
  327.                 PUSH DE:CALL INITEXPNORND:POP DE:LD A,D:ADD A,$20:LD D,A
  328.                 LD A,E:SUB $08:LD E,A
  329.                 CALL INITEXPNORND:POP DE:RET
  330.  
  331. DEADEYE         XOR A:LD (PRTBIGCOGS+1),A:LD (NOSCROLL+1),A:RET
  332.  
  333. INITBIGCOG      LD HL,COGINIT1:LD DE,COG1X:LD BC,7*2:LDIR
  334.                 XOR A:LD (EYE+1),A
  335.                 LD A,$20:LD (EYEENG+1),A
  336.                 LD A,1:LD (PRTBIGCOGS+1),A:LD (NOSCROLL+1),A:RET
  337.  
  338. PRTBIGCOGS      LD A,1:OR A:RET Z
  339.                 DEC A:JP NZ,EYE
  340. COGNM           LD A,0:XOR 1:LD (COGNM+1),A
  341.                 LD HL,COGATTR1:JR Z,HEAS:LD HL,COGATTR2
  342. HEAS            LD (COGATTR+1),HL
  343.                 LD HL,BIGCOG:LD DE,$90:CALL MULT
  344.  
  345.                 PUSH HL:LD IX,COG1X:CALL PRTBIGCOG1
  346.                 POP HL:LD IX,COG2X
  347.  
  348. PRTBIGCOG1      LD A,(IX+02):OR A:RET Z
  349.                 LD E,(IX+00):LD D,(IX+01):LD A,D:AND $F8:LD D,A
  350.                 PUSH HL:PUSH DE:LD BC,$030C:CALL MASKCXBMIR:POP DE:POP HL
  351.                 LD A,E:ADD A,$18:LD E,A
  352.                 PUSH HL:PUSH DE:LD BC,$030C:CALL MASKCXB:POP DE:POP HL
  353.                 LD A,D:ADD A,$2F:LD D,A
  354.                 PUSH HL:PUSH DE:LD BC,$030C:CALL MASKCXBINV:POP DE:POP HL
  355.                 LD A,E:SUB $18:LD E,A
  356.                 PUSH HL:PUSH DE:LD BC,$030C:CALL MASKCXBMINV:POP DE:POP HL
  357.                 LD A,D:SUB $2F:LD D,A
  358.  
  359.                 PUSH DE
  360.                 LD A,E:ADD A,$08:LD E,A:LD A,D:ADD A,$08:LD D,A
  361. COGATTR         LD HL,0:LD BC,$0404:CALL BAXATR:POP DE
  362.  
  363.                 PUSH DE:LD A,E:ADD A,8:LD E,A:LD A,D:ADD A,8:LD D,A
  364.                 LD BC,$2020:CALL ISBULORHERO:POP DE
  365.  
  366.                 LD A,(IX+02):OR A:JR NZ,NOKILIT
  367.                 PUSH IX
  368.                 LD A,E:SUB $08:LD E,A:PUSH DE:CALL INITEXPNORND:POP DE
  369.                 LD A,E:ADD $20:LD E,A:PUSH DE:CALL INITEXPNORND:POP DE
  370.                 LD A,D:ADD $20:LD D,A:PUSH DE:CALL INITEXPNORND:POP DE
  371.                 LD A,E:SUB $20:LD E,A:PUSH DE:CALL INITEXPNORND:POP DE
  372.                 POP IX
  373.  
  374.                 LD A,(COG1X+2):OR A:JR NZ,NOKILIT
  375.                 LD A,(COG2X+2):OR A:JR NZ,NOKILIT
  376.  
  377.                 LD A,2:LD (PRTBIGCOGS+1),A
  378.  
  379. NOKILIT         LD A,(IX+00):ADD A,(IX+03):LD (IX+00),A
  380.                 LD A,(IX+01):ADD A,(IX+04):LD (IX+01),A
  381.                 DEC (IX+05):RET NZ
  382.  
  383.                 LD A,(IX+06):CP 8:JR C,CINC
  384. CDEC            SUB 2:AND 6:OR 8:LD (IX+06),A:JR CDEG
  385. CINC            ADD A,2:AND 6:LD (IX+06),A
  386. CDEG            LD DE,COGDIRS:ADD A,E:LD E,A:ADC A,D:SUB E:LD D,A
  387.                 LD A,(DE):LD (IX+03),A:INC DE:LD C,A
  388.                 LD A,(DE):LD (IX+04),A:LD (IX+05),15
  389.                 LD A,C:OR A:RET Z:LD (IX+05),28:RET
  390.  
  391. COGATTR1        DB #47,#47,#47,#47
  392.                 DB #47,#42,#42,#47
  393.                 DB #47,#42,#42,#47
  394.                 DB #47,#47,#47,#47
  395.  
  396. COGATTR2        DB #00,#47,#47,#00
  397.                 DB #47,#42,#42,#47
  398.                 DB #47,#42,#42,#47
  399.                 DB #00,#47,#47,#00
  400.  
  401. COG1X           DS 7,0
  402. COG2X           DS 7,0
  403. COGINIT1        DW $0420
  404.                 DB $20
  405.                 DW $0400,$000F
  406.                 DW $04B0
  407.                 DB $20
  408.                 DW $0000,$102E
  409.  
  410. BIGCOG
  411.                 DB #7F,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00,#3F,#00,#1F,#80,#FF,#00
  412.                 DB #FF,#00,#FF,#00,#FF,#00,#0F,#40,#0F,#40,#FE,#00,#7F,#00,#3F,#00
  413.                 DB #FC,#00,#0F,#40,#07,#20,#F0,#01,#1F,#80,#0F,#40,#E0,#02,#07,#20
  414.                 DB #01,#20,#C0,#0C,#0F,#40,#1F,#80,#00,#10,#00,#10,#00,#1E,#00,#20
  415.                 DB #1F,#80,#3F,#00,#00,#C1,#00,#03,#00,#00,#00,#02,#7F,#00,#7F,#00
  416.                 DB #00,#02,#00,#00,#00,#00,#00,#04,#FF,#00,#FF,#00,#00,#04,#00,#00
  417.                 DB #00,#C0,#00,#04,#FF,#00,#7F,#00,#00,#02,#00,#20,#00,#C0,#00,#02
  418.                 DB #7F,#00,#1F,#00,#00,#02,#00,#B0,#00,#08,#00,#01,#07,#80,#03,#60
  419.                 DB #00,#00,#00,#4A,#00,#E5,#00,#00,#01,#18,#00,#04,#00,#00,#00,#CD
  420. BIGCOG2
  421.                 DB #FE,#00,#3F,#00,#FF,#00,#FF,#00,#1F,#80,#FC,#00,#F8,#01,#0F,#40
  422.                 DB #FF,#00,#FF,#00,#0F,#40,#F8,#01,#F0,#02,#0F,#40,#FF,#00,#FF,#00
  423.                 DB #0F,#40,#F0,#02,#00,#04,#0F,#40,#FF,#00,#FF,#00,#0F,#40,#00,#04
  424.                 DB #00,#E8,#0F,#40,#FF,#00,#FF,#00,#0F,#40,#00,#10,#00,#00,#0F,#40
  425.                 DB #FF,#00,#FF,#00,#07,#20,#00,#00,#00,#00,#03,#10,#87,#00,#03,#00
  426.                 DB #00,#10,#00,#00,#00,#00,#00,#08,#01,#78,#00,#84,#00,#0F,#00,#00
  427.                 DB #00,#00,#00,#00,#00,#04,#01,#18,#00,#00,#00,#30,#00,#C8,#00,#00
  428.                 DB #03,#60,#07,#80,#00,#01,#00,#34,#00,#3A,#00,#02,#1F,#00,#7F,#00
  429.                 DB #00,#02,#00,#9A,#00,#84,#00,#01,#3F,#00,#3F,#00,#00,#01,#00,#E4
  430.  
  431. COGDIRS
  432.                 DW $0400,$0004,$FC00,$00FC
  433.                 DW $0004,$FC00,$00FC,$0400
  434.                 DW $0000
  435.  
  436. ;****************************************************************************
  437. ;** PRT LIFTS                                                              **
  438. ;****************************************************************************
  439.  
  440. SMODLIFTS       LD A,(PRTLASER+1):OR A:JR Z,NOLAS
  441.                 LD A,(LASERX+1):ADD A,L:LD (LASERX+1),A
  442. NOLAS
  443.                 LD A,(PRTLIFTS+1):OR A:RET Z
  444.                 LD IX,L1+1:LD DE,6:LD B,4
  445. SM0DALLXBLP4    LD A,(IX+00):CP $E8:JR NC,NFZ:ADD A,L:LD (IX+00),A
  446.                 LD A,(IX+01):ADD A,H:CP $71:JR NC,NFZ:LD (IX+01),A
  447. NFZ             ADD IX,DE:DJNZ SM0DALLXBLP4:RET
  448.  
  449. PRTLIFTS        LD A,0
  450.                 XOR A:LD (PRTLIFTS+1),A
  451.                 LD A,(MAPX):CP $54:RET C:LD (PRTLIFTS+1),A
  452.  
  453.                 CALL DOLIF
  454. L1              LD DE,$7030:CALL PRTLIFT   ; DONT CHANGE
  455. L2              LD DE,$7060:CALL PRTLIFT   ; DONT CHANGE
  456. L3              LD DE,$7090:CALL PRTLIFT   ; DONT CHANGE
  457. L4              LD DE,$70C0:JP PRTLIFT     ; DONT CHANGE
  458.  
  459. DOLIF           LD A,(MAPY):CP $1A:RET C
  460.                 LD A,(POS):AND 1:RET NZ
  461. LN              LD A,0
  462.                 LD HL,L1+2:CALL ADDHLA
  463.                 LD A,(HL):SUB 8:LD (HL),A
  464.                 LD A,(POS):AND 7:RET NZ
  465.                 LD A,(LN+1):ADD A,6:LD (LN+1),A:CP 24:RET C
  466.                 XOR A:LD (LN+1),A:RET
  467.  
  468. PRTLIFT         LD A,E:CP $E8:RET NC
  469.                 LD A,D:AND $F8:LD D,A
  470.                 LD A,D:CP $78:RET NC:XOR 127:AND $78:LD B, A
  471.                 PUSH BC:PUSH DE:LD HL,BASE2:LD A,E:SUB $10:LD E,A
  472.                 LD BC,$0108:CALL MASKCXB:POP DE
  473.                 PUSH DE:LD HL,BASE3:LD A,E:ADD A,$18:LD E,A
  474.                 LD BC,$0108:CALL MASKCXB:POP DE
  475.                 PUSH DE:LD A,E:SUB $08:LD E,A
  476.                 LD HL,BASE:CALL BAXITA:POP DE:POP BC
  477.  
  478.                 PUSH DE:LD A,E:SUB $10:LD E,A
  479.                 PUSH DE:LD A,(HEROX+1):ADD A,8:LD L,A:LD H,$0F
  480.                 LD D,$2F:CALL HITA:POP DE:JR C,NOTONL
  481.                 PUSH DE:LD A,(HEROX+2):ADD A,0:LD L,A:LD H,$0F
  482.                 LD E,D:LD D,$0F:CALL HITA:POP DE:JR C,NOTONL
  483.  
  484.                 LD A,D:SUB $0C:LD (SHIM+1),A
  485.                 XOR A:LD (HEROF+1),A:LD (HEROG+1),A
  486.                 INC A:LD (STH+1),A
  487.  
  488.                 LD A,(GUNDIR+1):CP $FF:CALL Z,FEST
  489.  
  490.                 LD A,(HEROP+1):AND 7:OR 16:LD (HEROP+1),A
  491.                 LD A,(GUNDIR+1):AND 7:LD (GUNDIR+1),A
  492.                 LD A,(FUDLR):AND $0F:JR NZ,NOTONZ
  493.                 LD A,(HEROP+1):OR 24:LD (HEROP+1),A
  494. NOTONZ          LD A,(HEROCRAWL+1):OR A:JR Z,NOTONL
  495.                 LD A,(GUNDIR+1):AND 7:OR 56:LD (GUNDIR+1),A
  496.                 LD A,(HEROP+1):AND 7:OR 40:LD (HEROP+1),A:JR NOTONL
  497.  
  498. NOTONL          POP DE
  499.                 LD A,B:SUB 8:RET C:RET Z:LD B,A
  500.                 LD A,D:ADD A,$10:LD D,A
  501.                 PUSH DE:PUSH BC:CALL BIXAD:LD IX,LIFTBASE
  502.                 LD A,16:LD (CCNT+1),A
  503.                 XOR A:LD (IXOF1+2),A:INC A:LD (IXOF2+2),A:LD DE,32-1
  504. IXOF1           LD A,(IX+00):LD (HL),A:INC HL
  505. IXOF2           LD A,(IX+01):LD (HL),A:ADD HL,DE
  506. CCNT            LD A,0:DEC A:LD (CCNT+1),A:JR NZ,NOFS:LD IX,LIFTBASE2
  507. NOFS            LD A,(IXOF1+2):ADD A,2:AND 30:LD (IXOF1+2),A
  508.                 INC A:LD (IXOF2+2),A:DJNZ IXOF1:POP BC:POP DE:LD A,B
  509.                 RRA :RRA :RRA :AND 31:LD B,A:CALL BATAD:LD DE,32-1
  510. BISD            LD (HL),6:INC HL:LD (HL),#46:ADD HL,DE:DJNZ BISD
  511.                 RET
  512.  
  513. BASE            DB 4,2*8
  514.                 DB #00,#00,#00,#00,#DD,#FF,#FF,#FF,#FF,#FF,#FF,#EE,#00,#00,#00,#00
  515.                 DB #99,#99,#99,#99,#CC,#CC,#CC,#CC,#00,#00,#00,#00,#FF,#FF,#FF,#EF
  516.                 DB #7F,#FF,#FF,#FF,#00,#00,#00,#00,#7F,#FF,#FF,#FF,#88,#88,#88,#48
  517.                 DB #48,#88,#88,#88,#CC,#CC,#CC,#6C,#6E,#EE,#EE,#EE,#00,#00,#00,#00
  518.                 DB #06,#06,#06,#06
  519.                 DB #07,#07,#07,#07
  520.  
  521. BASE2           DB #00,#00,#00,#7B,#00,#7D,#00,#3E,#00,#51,#00,#68,#00,#64,#00,#63
  522.                 DB #00,#65,#80,#26,#C0,#17,#E0,#0F,#F0,#07,#F8,#03,#FC,#01,#FE,#00
  523. BASE3           DB #FF,#00,#7F,#00,#3F,#80,#1F,#40,#0F,#20,#07,#90,#03,#08,#01,#74
  524.                 DB #00,#BA,#00,#00,#00,#FE,#00,#8A,#00,#8A,#00,#CA,#00,#FE,#00,#00
  525. LIFTBASE        DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#06,#A0,#7E,#65,#FC
  526.                 DB #4B,#F8,#45,#E1,#4B,#84,#44,#0D,#40,#3C,#40,#DD,#41,#7C,#62,#DD
  527. LIFTBASE2       DB #A1,#7C,#A2,#DC,#A1,#7A,#A2,#D2,#A1,#46,#A2,#1E,#A0,#7E,#65,#FC
  528.                 DB #4B,#F8,#45,#E1,#4B,#80,#44,#0D,#40,#3C,#40,#DD,#61,#7C,#A2,#DD
  529.  
  530. BADBEE3         DB #C0,#00,#70,#00,#0F,#00,#FF,#00,#FF,#00,#03,#00,#00,#00,#80,#00
  531.                 DB #00,#3F,#00,#8F,#01,#F0,#FF,#00,#FF,#00,#00,#0C,#00,#30,#00,#20
  532.                 DB #00,#26,#00,#41,#00,#F2,#7F,#00,#3F,#00,#00,#0D,#00,#86,#00,#20
  533.                 DB #00,#24,#00,#88,#00,#02,#1F,#80,#1F,#80,#00,#28,#00,#08,#00,#25
  534.                 DB #00,#25,#00,#10,#00,#1C,#0F,#C0,#07,#20,#00,#08,#00,#50,#00,#25
  535.                 DB #00,#22,#00,#00,#00,#00,#03,#50,#01,#28,#00,#02,#00,#30,#00,#24
  536.                 DB #00,#24,#00,#1A,#00,#0C,#01,#08,#01,#08,#00,#F2,#00,#01,#00,#24
  537.                 DB #00,#24,#00,#00,#00,#0B,#00,#24,#00,#0A,#00,#14,#00,#30,#00,#28
  538.                 DB #00,#28,#00,#18,#00,#00,#00,#62,#00,#62,#00,#0C,#00,#00,#00,#28
  539.                 DB #00,#24,#00,#18,#00,#2C,#00,#44,#00,#3A,#00,#98,#00,#05,#00,#28
  540.                 DB #00,#28,#00,#03,#00,#7A,#00,#3A,#00,#12,#00,#7C,#00,#0B,#00,#28
  541.                 DB #00,#24,#00,#01,#00,#3A,#00,#46,#00,#BC,#00,#9C,#00,#00,#00,#23
  542.                 DB #00,#20,#00,#C0,#00,#00,#01,#40,#03,#A0,#00,#01,#00,#04,#00,#24
  543.                 DB #00,#25,#00,#01,#00,#30,#07,#A0,#07,#20,#00,#10,#00,#00,#00,#21
  544.                 DB #00,#24,#00,#80,#00,#00,#07,#20,#0F,#40,#00,#00,#00,#60,#00,#38
  545.                 DB #83,#00,#00,#10,#00,#02,#1F,#80,#0F,#40,#00,#00,#00,#22,#C7,#00
  546.                 DB #FF,#00,#00,#21,#00,#00,#07,#A0,#03,#50,#00,#20,#00,#40,#FE,#00
  547.                 DB #FC,#00,#00,#C0,#00,#10,#03,#10,#07,#20,#00,#00,#00,#80,#FC,#00
  548.                 DB #FE,#00,#00,#78,#00,#0F,#0F,#C0,#1F,#00,#00,#F0,#00,#07,#FF,#00
  549.                 DB #FF,#00,#80,#00,#00,#00,#3F,#00,#FF,#00,#0F,#00,#F8,#00,#FF,#00
  550.  
  551. BADBEEATR31     DB #43,#05,#45,#00
  552.                 DB #43,#05,#45,#00
  553.                 DB #43,#05,#46,#07
  554.                 DB #03,#05,#45,#00
  555.                 DB #00,#05,#45,#00
  556.  
  557. BADBEEATR32     DB #00,#45,#05,#43
  558.                 DB #00,#45,#05,#43
  559.                 DB #07,#46,#05,#43
  560.                 DB #00,#45,#05,#03
  561.                 DB #00,#45,#05,#00
  562.  
  563. COLOURBEE3      LD A,(IX+PHASE):LD HL,BADBEEATR31:INC A:AND 4:JR Z,PTZ
  564.                 LD HL,BADBEEATR32
  565. PTZ             LD E,(IX+XPOS):LD A,(IX+YPOS):SUB $10:AND $F8:LD D,A
  566.                 OR A:RET M:LD BC,$0405:CP $60:JP C,BAXATR
  567.                 LD A,$80:SUB D:RRA:RRA:RRA:AND 7:LD C,A
  568.                 JP BAXATR
  569. LEVEL3END
  570.  
  571. ;******************************************
  572.  
  573. L3CHRS
  574.                 DB #FE,#FF,#FE,#FF,#FE,#FC,#FD,#FE,#00,#00,#00,#00,#00,#00,#00,#00
  575.                 DB #FE,#FE,#FC,#F8,#FA,#FC,#FE,#FF,#16,#2D,#51,#28,#14,#2A,#15,#2A
  576.                 DB #FE,#FE,#FE,#FE,#FE,#FE,#FE,#FE,#43,#01,#00,#07,#3F,#FF,#FF,#00
  577.                 DB #E6,#1F,#FF,#FF,#FF,#FF,#FF,#00,#C1,#CE,#9B,#36,#EB,#F7,#BF,#5D
  578.                 DB #3D,#D7,#FF,#FF,#FE,#7F,#FF,#F9,#00,#58,#94,#64,#CA,#94,#28,#54
  579.                 DB #18,#27,#5D,#BA,#B7,#BB,#9D,#8F,#0C,#F3,#5F,#EB,#F6,#AD,#DB,#5B
  580.                 DB #43,#80,#80,#A0,#41,#40,#40,#40,#ED,#36,#01,#22,#15,#2C,#51,#38
  581.                 DB #0F,#E0,#55,#7A,#D7,#A8,#40,#A0,#80,#3D,#57,#EA,#77,#EB,#77,#AE
  582.                 DB #D5,#AB,#FE,#01,#16,#8D,#DE,#DD,#F5,#8E,#57,#A8,#9F,#5D,#BE,#7F
  583.                 DB #1C,#41,#77,#BB,#5D,#BB,#77,#E0,#0C,#F2,#59,#AC,#D4,#AC,#58,#74
  584.                 DB #CB,#DD,#3F,#FD,#EF,#F7,#EB,#F7,#89,#DC,#BA,#FD,#FE,#EB,#F4,#BE
  585.                 DB #03,#03,#1E,#2C,#1A,#61,#4C,#D5,#07,#0A,#1D,#4F,#33,#34,#DA,#A9
  586.                 DB #42,#F4,#78,#C0,#40,#0A,#8C,#04,#02,#01,#80,#80,#01,#03,#06,#07
  587.                 DB #0D,#5A,#A7,#6B,#96,#33,#EE,#DD,#40,#04,#00,#51,#2B,#8F,#17,#AF
  588.                 DB #04,#6C,#D6,#FF,#BE,#DB,#E5,#82,#0A,#03,#4D,#9F,#ED,#7F,#97,#0B
  589.                 DB #00,#48,#6E,#E7,#75,#57,#77,#A3,#00,#48,#C4,#6F,#2E,#97,#A6,#03
  590.                 DB #04,#11,#B8,#DD,#EF,#FF,#FF,#EF,#02,#21,#D8,#6D,#FE,#7F,#FF,#FF
  591.                 DB #F1,#44,#88,#04,#48,#00,#55,#00,#C6,#2A,#44,#08,#01,#00,#55,#00
  592.                 DB #01,#16,#A3,#B3,#99,#19,#0B,#02,#CB,#9E,#B5,#BE,#5D,#B6,#7D,#BA
  593.                 DB #55,#BF,#6A,#D5,#B0,#00,#00,#00,#EA,#42,#C1,#88,#00,#08,#00,#00
  594.                 DB #80,#80,#40,#40,#40,#80,#40,#00,#78,#B4,#FD,#FB,#7E,#2D,#96,#3C
  595.                 DB #1B,#3C,#56,#3F,#DE,#AC,#D6,#BF,#BB,#D5,#EB,#FF,#F7,#FF,#FF,#DF
  596.                 DB #FD,#F8,#F4,#7E,#FC,#EA,#F1,#BD,#FF,#7D,#EE,#DF,#FD,#76,#AB,#54
  597.                 DB #95,#CC,#E6,#8A,#05,#8A,#05,#02,#54,#28,#54,#2A,#94,#88,#14,#28
  598.                 DB #0C,#18,#00,#30,#61,#48,#10,#00,#00,#00,#10,#20,#00,#0C,#10,#08
  599.                 DB #00,#22,#80,#90,#31,#10,#80,#E0,#00,#10,#00,#02,#01,#00,#00,#00
  600.                 DB #04,#0E,#24,#00,#09,#06,#84,#00,#00,#80,#02,#40,#00,#20,#C0,#44
  601.                 DB #00,#06,#0C,#01,#00,#29,#10,#00,#10,#38,#90,#00,#C0,#40,#09,#98
  602.                 DB #81,#10,#02,#50,#20,#80,#C0,#A0,#00,#20,#00,#04,#00,#10,#00,#02
  603.                 DB #42,#00,#80,#01,#00,#10,#00,#08,#00,#20,#00,#02,#00,#04,#00,#00
  604.                 DB #00,#00,#02,#00,#02,#10,#00,#00,#00,#08,#04,#1C,#0A,#06,#44,#00
  605.                 DB #00,#00,#48,#60,#02,#48,#C0,#00,#20,#04,#0E,#04,#01,#1C,#09,#01
  606.                 DB #C2,#80,#14,#42,#04,#A8,#80,#10,#90,#10,#2A,#19,#88,#51,#04,#0D
  607.                 DB #00,#20,#00,#80,#84,#20,#00,#08,#01,#D2,#22,#01,#04,#00,#00,#00
  608.                 DB #22,#40,#AA,#04,#09,#00,#00,#00,#00,#01,#00,#44,#08,#00,#84,#4C
  609.                 DB #40,#0A,#21,#1A,#69,#10,#00,#00,#C8,#A2,#54,#20,#00,#00,#00,#00
  610.                 DB #00,#90,#38,#10,#04,#90,#40,#00,#21,#00,#42,#81,#00,#88,#01,#00
  611.                 DB #08,#22,#00,#02,#10,#00,#04,#00,#13,#06,#00,#02,#20,#01,#08,#00
  612.                 DB #00,#00,#00,#40,#C0,#A0,#40,#C0,#20,#14,#88,#05,#28,#1D,#5F,#BF
  613.                 DB #20,#40,#AA,#E4,#F9,#FF,#FF,#FF,#FF,#FE,#FC,#F9,#F2,#E5,#E0,#C3
  614.                 DB #FF,#FF,#7F,#9F,#EF,#F4,#E8,#71,#00,#00,#85,#0A,#0D,#05,#85,#0C
  615.                 DB #00,#00,#00,#04,#41,#A4,#FA,#FF,#16,#06,#09,#05,#0A,#06,#0E,#1C
  616.                 DB #FF,#FF,#FF,#FF,#FF,#FF,#FF,#FF,#89,#DC,#BA,#FD,#7E,#AB,#74,#BE
  617.                 DB #7D,#38,#74,#7E,#3C,#6A,#71,#3D,#48,#00,#00,#04,#41,#A4,#FA,#FF
  618.                 DB #14,#A1,#0A,#5F,#2F,#DF,#FF,#FF,#FF,#FF,#FF,#9F,#2F,#77,#AB,#51
  619.                 DB #0D,#8E,#15,#0E,#04,#8A,#05,#09,#8F,#47,#9B,#2D,#1E,#4B,#BF,#FF
  620.                 DB #04,#08,#02,#04,#02,#08,#06,#04,#FA,#F4,#E2,#40,#40,#00,#00,#00
  621.                 DB #FF,#FF,#5E,#B4,#14,#28,#00,#00,#FC,#58,#A8,#40,#20,#00,#00,#00
  622.                 DB #AF,#55,#A2,#00,#00,#00,#00,#00,#E2,#CF,#7E,#FF,#FD,#FB,#F5,#B1
  623.                 DB #FF,#FF,#FF,#FF,#FF,#FF,#FF,#FF,#00,#02,#04,#03,#05,#02,#00,#00
  624.                 DB #00,#00,#00,#00,#00,#80,#40,#00,#1C,#2B,#9F,#2B,#07,#09,#02,#00
  625.                 DB #80,#00,#80,#00,#C0,#6C,#96,#02,#7A,#BD,#DA,#BF,#DE,#6A,#BC,#4B
  626.                 DB #FF,#6D,#FF,#4F,#A7,#5D,#FF,#6F,#37,#6B,#97,#62,#B5,#40,#96,#68
  627.                 DB #B7,#7B,#D7,#EB,#55,#CD,#DF,#BF,#13,#AB,#31,#98,#12,#BB,#12,#04
  628.                 DB #14,#26,#B3,#B3,#99,#19,#0B,#02,#21,#66,#CD,#77,#FF,#FB,#B7,#1A
  629.                 DB #8C,#C6,#AF,#FF,#FD,#DF,#FB,#73,#01,#AB,#31,#98,#12,#BB,#12,#04
  630.                 DB #7D,#BD,#3D,#1E,#7E,#BC,#70,#00,#00,#0A,#17,#0B,#80,#80,#17,#00
  631.                 DB #00,#FE,#FE,#FC,#01,#01,#FE,#04,#81,#1C,#22,#22,#22,#22,#1C,#81
  632.                 DB #0B,#27,#0B,#27,#0B,#00,#15,#80,#F6,#F6,#F6,#F6,#F6,#06,#FC,#02
  633.                 DB #00,#0E,#16,#0E,#16,#0E,#16,#00,#80,#1F,#37,#28,#30,#33,#37,#36
  634.                 DB #00,#FF,#FF,#00,#00,#FF,#88,#22,#00,#FF,#C3,#00,#00,#C3,#E7,#66
  635.                 DB #01,#FC,#F6,#0A,#06,#E6,#76,#36,#36,#36,#36,#36,#36,#36,#36,#36
  636.                 DB #39,#18,#01,#3E,#5F,#5E,#39,#01,#DD,#80,#0B,#97,#0F,#97,#0F,#96
  637.                 DB #DD,#00,#FF,#E0,#CA,#95,#28,#93,#DD,#00,#FF,#03,#29,#54,#0A,#E4
  638.                 DB #DD,#01,#F9,#FD,#FD,#FD,#7D,#3D,#DD,#00,#2A,#54,#7E,#02,#38,#18
  639.                 DB #38,#18,#38,#18,#38,#18,#38,#18,#0D,#92,#09,#92,#09,#92,#0C,#96
  640.                 DB #44,#A8,#50,#90,#50,#88,#24,#53,#10,#09,#34,#15,#04,#08,#12,#E5
  641.                 DB #9D,#4D,#AD,#4D,#AD,#4D,#1D,#3D,#0F,#97,#0B,#97,#0A,#80,#00,#80
  642.                 DB #28,#95,#CA,#F0,#FF,#00,#00,#00,#0A,#54,#29,#07,#FF,#00,#00,#00
  643.                 DB #7D,#FD,#FD,#FD,#F9,#01,#01,#03,#10,#20,#10,#20,#10,#20,#10,#20
  644.                 DB #64,#24,#64,#24,#64,#26,#62,#26,#02,#2A,#52,#2A,#52,#2A,#52,#2A
  645.                 DB #C0,#80,#80,#C0,#40,#40,#40,#C0,#08,#01,#00,#03,#0B,#07,#0B,#05
  646.                 DB #BC,#FA,#ED,#FA,#F4,#BA,#F4,#B8,#0B,#17,#0B,#07,#0B,#05,#03,#07
  647.                 DB #7D,#E8,#B4,#58,#F0,#E8,#F0,#68,#5E,#3B,#5E,#3D,#5A,#3D,#7E,#77
  648.                 DB #1F,#2D,#1A,#4D,#1E,#2D,#16,#4D,#EE,#B6,#EA,#D6,#E8,#D5,#E9,#94
  649.                 DB #6A,#A6,#46,#34,#56,#2A,#7C,#F8,#C0,#40,#60,#40,#C0,#80,#C0,#80
  650.                 DB #80,#D0,#60,#B0,#60,#A0,#60,#50,#95,#CC,#E6,#8A,#05,#8A,#05,#02
  651.                 DB #02,#01,#00,#01,#0C,#10,#08,#14,#B4,#78,#BC,#5A,#BC,#FA,#BC,#F8
  652.                 DB #3E,#5D,#3A,#1C,#3A,#1D,#1A,#2D,#AE,#D2,#EC,#D4,#6E,#D4,#CD,#F4
  653.                 DB #80,#C0,#60,#A0,#20,#40,#80,#C0,#E9,#D0,#02,#10,#02,#04,#20,#00
  654.                 DB #BF,#64,#10,#05,#AE,#05,#20,#02,#00,#04,#20,#08,#00,#02,#00,#10
  655.                 DB #FF,#7F,#FF,#23,#05,#2B,#81,#0A,#5A,#B0,#14,#00,#10,#48,#00,#01
  656.                 DB #FF,#FF,#FF,#FA,#F0,#E8,#42,#A0,#08,#00,#60,#80,#09,#30,#02,#00
  657.                 DB #E2,#CB,#96,#5B,#FF,#FF,#FA,#DD,#9E,#37,#5E,#36,#7D,#FE,#FE,#F5
  658.                 DB #76,#EA,#52,#29,#90,#80,#C0,#F0,#F8,#D0,#84,#40,#80,#00,#00,#01
  659.                 DB #B2,#50,#20,#00,#00,#01,#01,#03,#07,#1F,#3F,#7F,#7F,#FF,#FF,#FF
  660.                 DB #03,#07,#0F,#1F,#7F,#FF,#FF,#FF,#9E,#FA,#BC,#D9,#A3,#CD,#17,#BF
  661.                 DB #FF,#FF,#FF,#FE,#FC,#FA,#F1,#C6,#07,#0F,#0F,#1F,#3F,#7F,#7F,#FF
  662.                 DB #26,#68,#34,#55,#CB,#A6,#D6,#C2,#B0,#66,#33,#20,#81,#C2,#A8,#D8
  663.                 DB #E1,#E0,#C0,#82,#87,#47,#17,#33,#CB,#C3,#9D,#3E,#3E,#3E,#18,#8C
  664.                 DB #81,#00,#04,#20,#23,#37,#DB,#FF,#CE,#C6,#80,#10,#08,#C9,#CD,#9F
  665.                 DB #CE,#C6,#80,#10,#08,#01,#00,#00,#C6,#B6,#7A,#62,#40,#24,#EE,#8E
  666.                 DB #00,#84,#2E,#6E,#67,#C3,#13,#31,#C6,#0C,#99,#DC,#5C,#18,#30,#84
  667.                 DB #78,#79,#73,#27,#97,#C7,#C7,#E3,#38,#9C,#CE,#CE,#8E,#1D,#19,#93
  668.                 DB #FC,#E1,#D8,#ED,#F6,#C4,#33,#1B,#46,#88,#9D,#D9,#8A,#67,#33,#B1
  669.                 DB #3F,#DF,#9F,#A7,#9A,#0D,#29,#99,#FF,#FF,#F3,#ED,#36,#92,#A6,#4D
  670.                 DB #E8,#FC,#F1,#EA,#FF,#F3,#ED,#D2,#40,#82,#81,#C3,#83,#61,#31,#B0
  671.                 DB #99,#24,#66,#66,#67,#42,#11,#31,#88,#36,#93,#C4,#4C,#18,#10,#84
  672.                 DB #AC,#91,#23,#47,#22,#45,#01,#41,#23,#44,#21,#93,#AE,#D0,#E0,#F0
  673.                 DB #01,#00,#04,#20,#23,#37,#DB,#7F,#CE,#C6,#80,#10,#08,#01,#00,#00
  674.                 DB #C0,#FE,#FF,#FF,#FF,#FF,#FF,#FF,#99,#18,#24,#00,#00,#00,#00,#00
  675.                 DB #00,#00,#F0,#FF,#FF,#FF,#FF,#FF,#00,#00,#00,#00,#C0,#F0,#FC,#FE
  676.                 DB #08,#22,#00,#02,#10,#00,#04,#00,#FF,#FF,#FC,#F9,#F4,#C8,#80,#00
  677.                 DB #FF,#C0,#2F,#80,#00,#00,#00,#00,#00,#57,#00,#00,#00,#00,#00,#00
  678.                 DB #FF,#1F,#43,#15,#02,#00,#00,#00,#36,#36,#36,#36,#36,#00,#81,#00
  679.                 DB #64,#24,#64,#24,#64,#24,#64,#24,#36,#37,#33,#30,#28,#37,#1F,#80
  680.                 DB #36,#F7,#C1,#00,#00,#C1,#63,#3E,#36,#F5,#E6,#06,#0A,#F6,#FC,#01
  681.                 DB #00,#00,#80,#80,#82,#C3,#E5,#E3,#00,#0A,#05,#83,#01,#40,#80,#80
  682.                 DB #F0,#E0,#C0,#80,#80,#01,#03,#01,#80,#02,#05,#42,#E7,#42,#80,#00
  683.                 DB #00,#C0,#80,#80,#02,#03,#05,#03,#00,#00,#00,#80,#40,#81,#03,#01
  684.                 DB #40,#70,#4C,#53,#5C,#5F,#5F,#5F,#8F,#22,#08,#02,#C0,#30,#0C,#30
  685.                 DB #5F,#5F,#5F,#5F,#5F,#5F,#5F,#5F,#3F,#3F,#3F,#3F,#3F,#3F,#3F,#3F
  686.                 DB #5F,#5F,#5C,#5B,#5A,#58,#5C,#5F,#3F,#3F,#3F,#0F,#67,#47,#07,#0F
  687.                 DB #1F,#8F,#53,#A8,#84,#42,#C0,#00,#3F,#3F,#3F,#3F,#3F,#0F,#13,#00
  688.                 DB #00,#00,#00,#00,#80,#C0,#F0,#FE,#53,#29,#54,#2A,#14,#09,#15,#29
  689.                 DB #00,#11,#03,#27,#87,#C7,#C7,#E3,#00,#80,#C2,#C0,#88,#1D,#19,#93
  690.                 DB #81,#00,#04,#20,#00,#00,#00,#00,#00,#FF,#FF,#FF,#FF,#FF,#FF,#00
  691.                 DB #3F,#4F,#73,#3C,#4F,#23,#08,#02,#FF,#FF,#FF,#FF,#3F,#CF,#F3,#3C
  692.                 DB #00,#48,#06,#93,#45,#00,#42,#81,#00,#48,#80,#20,#00,#80,#04,#00
  693.                 DB #00,#10,#00,#40,#04,#10,#20,#00,#00,#08,#40,#02,#00,#02,#00,#88
  694.                 DB #10,#28,#00,#88,#00,#00,#02,#04,#00,#20,#00,#00,#04,#80,#08,#00
  695. L3ATRS
  696.                 DB #47,#47,#47,#07,#47,#47,#47,#45,#45,#47,#07,#07,#06,#46,#07,#07
  697.                 DB #06,#46,#07,#46,#46,#46,#44,#44,#44,#06,#44,#45,#44,#44,#06,#06
  698.                 DB #47,#47,#45,#45,#06,#46,#46,#46,#06,#46,#46,#46,#46,#46,#06,#07
  699.                 DB #44,#44,#44,#44,#44,#44,#44,#44,#44,#44,#44,#44,#44,#44,#44,#44
  700.                 DB #44,#45,#45,#45,#45,#44,#44,#44,#44,#45,#45,#45,#45,#45,#45,#45
  701.                 DB #45,#45,#45,#45,#45,#46,#46,#45,#45,#45,#45,#45,#47,#45,#45,#45
  702.                 DB #45,#45,#47,#47,#47,#46,#46,#06,#46,#06,#46,#06,#06,#44,#44,#06
  703.                 DB #46,#57,#57,#07,#57,#57,#47,#46,#46,#46,#46,#46,#47,#06,#56,#56
  704.                 DB #46,#47,#47,#06,#56,#56,#46,#06,#46,#46,#46,#07,#07,#47,#06,#06
  705.                 DB #46,#06,#46,#06,#06,#46,#46,#06,#06,#46,#06,#46,#06,#46,#06,#45
  706.                 DB #45,#44,#45,#45,#45,#44,#46,#46,#47,#46,#45,#45,#45,#46,#45,#45
  707.                 DB #44,#46,#44,#44,#45,#45,#44,#44,#44,#44,#44,#44,#45,#44,#45,#45
  708.                 DB #45,#44,#44,#44,#45,#45,#45,#45,#45,#45,#45,#45,#45,#45,#45,#45
  709.                 DB #45,#46,#07,#46,#46,#46,#45,#07,#45,#07,#05,#05,#47,#47,#47,#47
  710.                 DB #47,#47,#47,#47,#45,#07,#44,#44,#06,#47,#47,#47,#06,#06,#06,#06
  711.                 DB #06,#06
  712. L3BLOX
  713.                 DB #02,#01,#00,#01,#05,#06,#62,#62,#E9,#09,#62,#E5,#0A,#0B,#0C,#0D
  714.                 DB #0E,#0F,#10,#11,#12,#13,#14,#15,#01,#16,#17,#18,#19,#1A,#17,#18
  715.                 DB #1C,#1D,#1E,#1F,#20,#21,#22,#23,#19,#25,#26,#27,#EA,#EB,#DC,#DD
  716.                 DB #1C,#1D,#EC,#ED,#DE,#DF,#DE,#DF,#E2,#E3,#22,#01,#03,#04,#2F,#04
  717.                 DB #62,#E5,#62,#24,#62,#E5,#62,#E5,#1C,#1D,#6B,#6C,#6D,#6E,#6F,#24
  718.                 DB #6D,#6E,#70,#24,#7D,#7E,#83,#84,#7F,#80,#85,#86,#00,#01,#62,#62
  719.                 DB #4E,#1B,#4F,#50,#51,#52,#53,#54,#0C,#55,#28,#56,#4E,#1B,#54,#54
  720.                 DB #51,#57,#53,#54,#58,#54,#54,#54,#54,#54,#54,#54,#58,#54,#4F,#50
  721.                 DB #54,#54,#59,#54,#5A,#5B,#5C,#5D,#19,#55,#0C,#55,#54,#54,#5E,#5F
  722.                 DB #5A,#54,#5C,#5D,#54,#54,#60,#5D,#07,#08,#5E,#5F,#61,#5B,#60,#5D
  723.                 DB #62,#62,#62,#62,#63,#64,#01,#01,#28,#56,#19,#55,#19,#65,#01,#01
  724.                 DB #66,#01,#01,#01,#67,#68,#69,#6A,#4B,#4C,#49,#4D,#01,#01,#01,#01
  725.                 DB #2E,#25,#01,#70,#3D,#3E,#3F,#40,#01,#01,#4E,#1B,#8F,#90,#91,#92
  726.                 DB #93,#2A,#94,#25,#69,#6A,#2E,#25,#2B,#95,#2D,#96,#97,#01,#98,#01
  727.                 DB #91,#99,#9A,#9B,#94,#0D,#9C,#29,#10,#11,#67,#68,#14,#95,#2B,#9D
  728.                 DB #8E,#01,#9E,#01,#9F,#A0,#01,#A1,#A2,#54,#CC,#A3,#A4,#9F,#A5,#01
  729.                 DB #A6,#A7,#A8,#A9,#AA,#AB,#AC,#54,#2B,#95,#2D,#AD,#AE,#A7,#A7,#A9
  730.                 DB #AA,#54,#AF,#54,#2B,#B0,#2D,#B1,#B2,#B3,#B4,#B5,#B2,#B3,#B6,#B5
  731.                 DB #14,#95,#2B,#B7,#B8,#B9,#BA,#BB,#54,#54,#BC,#BD,#54,#54,#BE,#BF
  732.                 DB #54,#54,#54,#C0,#BC,#BD,#B8,#B9,#BE,#BF,#B8,#B9,#54,#C4,#54,#C5
  733.                 DB #BA,#BB,#B2,#B3,#B4,#C6,#54,#54,#E4,#C7,#54,#C8,#C9,#C7,#CA,#CB
  734.                 DB #CD,#CE,#54,#C8,#CF,#D0,#CA,#CB,#54,#54,#77,#78,#54,#54,#78,#78
  735.                 DB #54,#54,#7A,#54,#D1,#54,#7B,#54,#41,#42,#01,#43,#01,#01,#44,#01
  736.                 DB #73,#82,#73,#79,#8B,#D1,#8B,#7D,#D1,#77,#80,#8C,#7A,#76,#8D,#73
  737.                 DB #54,#81,#76,#82,#8B,#83,#8B,#83,#86,#8C,#86,#8C,#8D,#54,#8D,#76
  738.                 DB #D6,#D7,#D8,#D9,#DA,#D7,#DB,#D9,#28,#29,#19,#2A,#2B,#2C,#2B,#15
  739.                 DB #2D,#2E,#27,#01,#30,#31,#32,#01,#01,#01,#01,#33,#34,#35,#36,#37
  740.                 DB #38,#39,#3A,#01,#54,#54,#71,#72,#01,#45,#46,#47,#48,#49,#49,#4A
  741.                 DB #54,#73,#79,#78,#74,#75,#78,#78,#87,#88,#78,#78,#89,#8A,#78,#78
  742.                 DB #73,#54,#79,#78,#73,#7C,#76,#7C,#73,#7D,#73,#87,#80,#73,#8A,#73
  743.                 DB #81,#7C,#82,#73,#D1,#54,#D3,#78,#D1,#54,#D4,#78,#76,#79,#78,#78
  744.                 DB #8B,#87,#78,#78,#8A,#D2,#78,#78,#8D,#76,#78,#78,#D1,#54,#D5,#54
  745.                 DB #73,#73,#76,#76,#C3,#B6,#C2,#C1,#E6,#E7,#B2,#B3,#01,#3B,#01,#3C
  746.                 DB #C3,#B6,#44,#45,#BA,#BB,#4A,#47,#C3,#B6,#49,#49,#C3,#B6,#4B,#4A
  747.                 DB #BA,#BB,#4A,#4B,#44,#49,#49,#4A,#E8,#3B,#4A,#3C,#E8,#3B,#01,#3C
  748.                 DB #01,#3B,#E8,#3C,#C1,#34,#01,#3C,#E8,#A1,#A1,#E8,#8F,#49,#91,#B7
  749.                 DB #01,#01,#B9,#33,#4A,#4A,#B4,#52,#01,#3B,#4A,#3C,#57,#C6,#54,#54
  750.                 DB #DE,#DF,#E0,#E1,#EE,#EF,#F0,#F1,#18,#EF,#EE,#EE
  751. L3MAPX
  752.                 DB #00,#0F,#69,#2F,#2F,#6A,#6B,#69,#2F,#2F,#6A,#6B,#69,#2F,#2F,#6A
  753.                 DB #6B,#69,#2F,#2F,#6A,#6B,#69,#2F,#2F,#6A,#6B,#69,#2F,#22,#2E,#6B
  754.                 DB #69,#2E,#32,#2F,#32,#6E,#6F,#2E,#32,#2F,#32,#6E,#6F,#2E,#3C,#2F
  755.                 DB #33,#34,#34,#36,#6E,#6F,#2E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E
  756.                 DB #1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#64,#65
  757.  
  758.                 DB #00,#0F,#6C,#2F,#2F,#83,#31,#6C,#2F,#2F,#83,#31,#6C,#2F,#2F,#83
  759.                 DB #31,#6C,#2F,#2F,#83,#31,#6C,#2F,#2F,#83,#31,#31,#6C,#2A,#1D,#1B
  760.                 DB #1C,#1D,#1E,#1A,#1E,#1B,#1C,#1D,#1E,#1A,#1E,#1B,#1C,#1D,#37,#2F
  761.                 DB #38,#39,#3A,#3B,#1B,#1C,#1D,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E
  762.                 DB #1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#64,#65
  763.  
  764.                 DB #00,#0F,#5A,#5B,#2F,#6E,#6F,#2E,#32,#2F,#6E,#6F,#2E,#32,#2F,#6E
  765.                 DB #6F,#2E,#32,#2F,#6E,#6F,#2E,#32,#2F,#32,#2E,#6E,#6F,#22,#23,#25
  766.                 DB #24,#23,#25,#22,#23,#25,#24,#23,#25,#22,#25,#25,#24,#23,#3C,#2F
  767.                 DB #33,#34,#35,#36,#25,#24,#25,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E
  768.                 DB #1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#64,#65
  769.  
  770.                 DB #00,#0F,#18,#19,#1A,#1B,#1C,#1D,#1E,#1A,#1B,#1C,#1F,#20,#1A,#1B
  771.                 DB #1C,#1F,#20,#1A,#1B,#1C,#1D,#1E,#1A,#1E,#1D,#1B,#1C,#1A,#06,#0C
  772.                 DB #0C,#0C,#0C,#0C,#0C,#0C,#0C,#0C,#0C,#0C,#0C,#0C,#0C,#0C,#0C,#0C
  773.                 DB #0C,#0C,#0C,#0C,#0C,#0C,#0C,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E
  774.                 DB #1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#64,#65
  775.  
  776.                 DB #17,#01,#02,#21,#22,#23,#24,#23,#25,#22,#23,#21,#26,#27,#22,#23
  777.                 DB #21,#26,#27,#22,#23,#24,#23,#25,#22,#23,#25,#23,#24,#07,#96,#95
  778.                 DB #95,#95,#95,#95,#95,#95,#95,#95,#95,#95,#95,#95,#95,#95,#95,#95
  779.                 DB #95,#95,#95,#95,#95,#95,#95,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E
  780.                 DB #1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#64,#0B
  781.  
  782.                 DB #28,#28,#11,#29,#2A,#2F,#29,#2F,#2F,#2A,#2F,#29,#03,#04,#05,#2F
  783.                 DB #29,#2F,#2F,#2A,#2F,#29,#2F,#2F,#2A,#2F,#2F,#2F,#06,#96,#95,#95
  784.                 DB #95,#95,#95,#95,#95,#95,#95,#95,#95,#95,#95,#95,#95,#95,#95,#95
  785.                 DB #95,#95,#95,#95,#95,#95,#95,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E
  786.                 DB #1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#64,#94
  787.  
  788.                 DB #28,#28,#11,#2F,#2B,#2C,#2F,#2F,#2F,#2B,#2C,#2F,#66,#2D,#67,#2C
  789.                 DB #2F,#2F,#2F,#2B,#2C,#2F,#2F,#2F,#2B,#2C,#2F,#06,#96,#95,#95,#95
  790.                 DB #95,#95,#95,#95,#95,#95,#95,#95,#95,#95,#95,#95,#95,#95,#95,#95
  791.                 DB #95,#95,#95,#95,#95,#95,#95,#1E,#1E,#1E,#1E,#80,#80,#80,#80,#80
  792.                 DB #80,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#64,#0D
  793.  
  794.                 DB #28,#28,#10,#0C,#0C,#12,#08,#08,#0C,#08,#13,#13,#0A,#30,#68,#14
  795.                 DB #08,#0C,#12,#08,#0C,#0C,#12,#08,#08,#0C,#08,#96,#08,#08,#08,#08
  796.                 DB #08,#08,#08,#08,#08,#08,#08,#08,#08,#08,#08,#08,#08,#08,#08,#08
  797.                 DB #08,#08,#08,#08,#08,#08,#08,#1E,#1E,#1E,#1E,#3C,#2F,#33,#34,#35
  798.                 DB #48,#09,#09,#09,#09,#09,#09,#09,#09,#09,#09,#09,#09,#09,#09,#0E
  799. L3MAPY
  800.                 DB #1E,#1E,#1E,#1E,#1E,#6D,#15,#16,#6D,#1E,#1E,#1E,#1E,#1E,#1E,#56
  801.                 DB #57,#70,#71,#72,#73,#71,#74,#57,#58,#1E,#1E,#1E,#59,#1E,#59,#75
  802.                 DB #76,#77,#78,#59,#1E,#59,#1E,#1E,#1E,#59,#1E,#59,#5C,#5D,#5E,#5F
  803.                 DB #59,#1E,#59,#1E,#1E,#1E,#59,#1E,#59,#60,#61,#62,#63,#59,#1E,#59
  804.                 DB #1E,#1E,#1E,#79,#57,#7A,#7B,#7C,#7D,#7E,#7A,#57,#7F,#1E,#1E,#1E
  805.                 DB #1E,#1E,#80,#80,#80,#80,#80,#80,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#3C
  806.                 DB #2F,#33,#34,#35,#48,#09,#09,#09,#1E,#1E,#1E,#1E,#3C,#2F,#33,#34
  807.                 DB #35,#48,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#3C,#2F,#33,#34,#35,#48,#1E
  808.                 DB #1E,#1E,#3D,#3E,#3F,#3E,#3C,#2F,#33,#34,#35,#45,#3F,#3E,#3F,#6E
  809.                 DB #31,#81,#31,#6E,#31,#31,#81,#6B,#81,#31,#31,#81,#81,#82,#82,#89
  810.                 DB #81,#82,#50,#82,#81,#50,#81,#82,#50,#81,#81,#6B,#89,#81,#50,#81
  811.                 DB #50,#50,#50,#82,#81,#81,#88,#88,#81,#8B,#89,#86,#6F,#87,#88,#81
  812.                 DB #82,#50,#81,#89,#84,#8A,#89,#8E,#89,#6F,#8E,#84,#8D,#89,#85,#89
  813.                 DB #8B,#8C,#8C,#8A,#8B,#8B,#83,#8B,#8C,#8C,#8B,#8C,#8E,#91,#8B,#8B
  814.                 DB #8A,#83,#8E,#8F,#6B,#6B,#6F,#91,#92,#6F,#1E,#1B,#93,#1B,#3C,#2F
  815.                 DB #33,#34,#35,#36,#1E,#1B,#93,#1E,#1E,#1E,#1E,#3C,#2F,#33,#34,#35
  816.                 DB #48,#1E,#1E,#1E,#1E,#1E,#4C,#4D,#8E,#2F,#38,#39,#3A,#45,#1E,#1E
  817.                 DB #1E,#1E,#1E,#4F,#50,#69,#2F,#33,#34,#35,#36,#4A,#4B,#4A,#1E,#1E
  818.                 DB #1E,#51,#69,#2F,#33,#34,#35,#48,#49,#49,#49,#1E,#1E,#1E,#1E,#3C
  819.                 DB #2F,#38,#39,#3A,#45,#46,#47,#46,#1E,#1E,#54,#55,#2F,#2F,#33,#34
  820.                 DB #35,#42,#43,#44,#1E,#1E,#1E,#1E,#1E,#3C,#2F,#38,#39,#3A,#40,#41
  821.                 DB #1E,#1E,#4C,#4D,#4E,#4D,#3C,#2F,#33,#34,#35,#36,#1E,#1E,#1E,#4F
  822.                 DB #50,#50,#50,#90,#2F,#38,#39,#3A,#48,#1E,#1E,#1E,#1E,#51,#52,#53
  823.                 DB #69,#2F,#33,#34,#35,#45,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#3C,#2F,#38
  824.                 DB #39,#3A,#3B,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#37,#2F,#33,#34,#35,#36
  825.                 DB #1E,#1E,#1E,#1E,#1E,#54,#55,#69,#2F,#33,#34,#35,#48,#4B,#4A,#4B
  826.                 DB #1E,#1E,#1E,#1E,#37,#2F,#38,#39,#3A,#45,#46,#46,#46,#1E,#1E,#1E
  827.                 DB #1E,#37,#2F,#33,#34,#35,#36,#1E,#1E,#1E,#1E,#1E,#4C,#4D,#6C,#2F
  828.                 DB #38,#39,#3A,#3B,#1E,#1E,#1E,#1E,#1E,#4F,#50,#6C,#2F,#33,#34,#35
  829.                 DB #36,#4A,#4B,#4A,#1E,#1E,#1E,#51,#37,#2F,#33,#34,#35,#48,#49,#49
  830.                 DB #49,#1E,#1E,#1E,#1E,#3C,#2F,#38,#39,#3A,#45,#46,#47,#46,#1E,#1E
  831.                 DB #54,#55,#2F,#2F,#33,#34,#35,#42,#43,#44,#1E,#1E,#1E,#1E,#1E,#3C
  832.                 DB #2F,#38,#39,#3A,#40,#41,#1E,#1E,#1E,#1E,#1E,#1E,#37,#2F,#33,#34
  833.                 DB #35,#36,#1E,#1E,#1E,#1E,#1E,#1E,#1E,#3C,#2F,#38,#39,#3A,#3B,#1E
  834.                 DB #1E,#1E,#4C,#4D,#4E,#4D,#6C,#2F,#33,#34,#35,#36,#1E,#1E,#1E,#4F
  835.                 DB #50,#50,#50,#6B,#2F,#38,#39,#3A,#3B,#4A,#4B,#4A,#1E,#51,#52,#53
  836.                 DB #6C,#2F,#33,#34,#35,#48,#49,#49,#49,#1E,#1E,#1E,#1E,#3C,#2F,#38
  837.                 DB #39,#3A,#45,#46,#47,#46,#1E,#1E,#1E,#1E,#37,#2F,#33,#34,#35,#42
  838.                 DB #43,#44,#1E,#1E,#1E,#1E,#1E,#3C,#2F,#38,#39,#3A,#40,#41,#1E,#1E
  839.                 DB #1E,#1E,#1E,#1E,#37,#2F,#33,#34,#35,#36,#1E,#1E,#1E,#3F,#3D,#3E
  840.                 DB #3F,#3C,#2F,#38,#39,#3A,#3B,#3E,#3F,#3D,#6B,#83,#31,#83,#37,#2F
  841.                 DB #33,#34,#35,#36,#6C,#6B,#83,#69,#6A,#31,#6E,#3C,#2F,#38,#39,#3A
  842.                 DB #3B,#69,#6B,#6C,#32,#6E,#6F,#2E,#3C,#2F,#33,#34,#34,#36,#6E,#6F
  843.                 DB #2E,#1E,#1B,#1C,#1D,#37,#2F,#38,#39,#3A,#3B,#1B,#1C,#1D,#25,#25
  844.                 DB #24,#23,#3C,#2F,#33,#34,#35,#36,#25,#24,#25,#0C,#0C,#0C,#0C,#0C
  845.                 DB #0C,#0C,#0C,#0C,#0C,#0C,#0C,#0C,#95,#95,#95,#95,#95,#95,#95,#95
  846.                 DB #95,#95,#95,#95,#95,#95,#95,#95,#95,#95,#95,#95,#95,#95,#95,#95
  847.                 DB #95,#95,#95,#95,#95,#95,#95,#95,#95,#95,#95,#95,#95,#95,#95,#08
  848.                 DB #08,#08,#08,#08,#08,#08,#08,#08,#08,#08,#08,#08
  849. L3END
  850.                 ;ENDIF
  851.  
  852.                 UNPHASE
  853.  
  854. ;***********************************************************************
  855. ;** END OF FILE                                                       **
  856. ;***********************************************************************