?login_element?

Subversion Repositories NedoOS

Rev

Rev 788 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1.         DEVICE ZXSPECTRUM128
  2.         include "../../_sdk/sys_h.asm"  
  3.  
  4. STACK=0x4000;0x61a8
  5. GAMESTACK=0x4000;0xFFFF
  6. L_FDFD=0xfdfd
  7. L_FE00=0xfe00
  8.  
  9. scrbase=0x4000+4
  10. sprmaxwid=32
  11. sprmaxhgt=32
  12. scrwid=160 ;double pixels
  13. scrhgt=192;200
  14. INTSTACK=0x3f00
  15. tempsp=0x3f06 ;6 bytes for prspr
  16. ;UVSCROLL_SCRWID=320 ;8*(TILEMAPWID-2)
  17. ;UVSCROLL_SCRHGT=192 ;(фхышЄё  эр 16!!!) ;8*(TILEMAPHGT-2) ;ўЄюс√ т√тюфшЄ№ тёхуфр 12 ьхЄрЄрщыют (3 сыюър яю 8) яю т√ёюЄх
  18.  
  19. EGA=1
  20.  
  21.         org PROGSTART
  22. begin
  23.         jp begin2 ;/prsprqwid (sprites in file are made so that they return here)
  24. begin2
  25.         ld sp,STACK
  26.         OS_HIDEFROMPARENT
  27.  
  28.         ld e,3+0x80 ;6912+keep
  29.         OS_SETGFX ;e=0:EGA, e=2:MC, e=3:6912, e=6:text ;+SET FOCUS ;e=-1: disable gfx (out: e=old gfxmode)
  30.  
  31.         ;ld e,1
  32.         ;OS_SETSCREEN
  33.         ld e,0 ;color byte
  34.         OS_CLS
  35.         ;ld e,0
  36.         ;OS_SETSCREEN
  37.         ;ld e,0 ;color byte
  38.         ;OS_CLS
  39.  
  40.         OS_GETMAINPAGES
  41. ;dehl=pages in 0000,4000,8000,c000
  42.         ld a,e
  43.         ld (pggfx),a
  44.         ld a,h
  45.         ld (pgcode8000),a
  46.         ld a,l
  47.         ld (pgcodec000),a
  48.         ;jr $
  49.  
  50.         OS_NEWPAGE
  51.         ld a,e
  52.         ld (pgmain4000),a
  53.  
  54.         if 1==0
  55.         ld a,(user_scr0_high) ;ok
  56.         SETPG32KLOW
  57.         ld hl,0x6000
  58.         ld de,0x6000+0x4000
  59.         ld bc,0x2000
  60.         ldir
  61.         ;ld a,(user_scr0_high)
  62.         SETPG16K
  63.         ld a,(pgcode8000)
  64.         SETPG32KLOW
  65.         endif
  66.         ld a,(user_scr0_high) ;ok
  67.         SETPG16K
  68.        
  69.         call swapimer
  70.  
  71.         if EGA
  72.         ld hl,prsprqwid
  73.         ld (0x0101),hl ;sprites in file are made so that they return in 0x0100
  74.         endif
  75.        
  76.         if 1==0
  77.         ld e,0+0x80 ;EGA+keep
  78.         OS_SETGFX ;e=0:EGA, e=2:MC, e=3:6912, e=6:text ;+SET FOCUS ;e=-1: disable gfx (out: e=old gfxmode)
  79.        
  80.         call setpggfxc000
  81.  
  82.         ;call setpgsscr40008000
  83.  
  84.         call clsega
  85.         ld bc,0x1880 ;b=hgt,c=wid (/2)
  86.         ld de,panelgfx ;de=gfx
  87.         ld hl,0x4000+((192-24)*40)+4 ;hl=scr
  88.         call primgega
  89.  
  90.         xor a
  91.         ld d,a
  92.         ld e,a
  93. prtiles0
  94.         push af
  95.         push de
  96.         call DrawTile_A_X2Y2DE
  97.         ;call DrawSprite_A_DExy
  98.         pop de
  99.         ld a,d
  100.         add a,1;16
  101.         ld d,a ;x
  102.         cp 16
  103.         jr nz,prtilesny
  104.          ld d,0
  105.          ld a,e
  106.          add a,1;16
  107.          ld e,a ;y
  108. prtilesny
  109.         pop af
  110.         inc a
  111.         cp 192
  112.         jr nz,prtiles0
  113.  
  114.         xor a
  115.         ld d,a
  116.         ld e,a
  117. prsprites0
  118.         push af
  119.         push de
  120.         ;call DrawTile_A_X2Y2DE
  121.         call DrawSprite_A_DExy
  122.         pop de
  123.         ld a,d
  124.         add a,16
  125.         ld d,a ;x
  126.         jr nz,prspritesny
  127.          ld d,0
  128.          ld a,e
  129.          add a,16
  130.          ld e,a ;y
  131. prspritesny
  132.         pop af
  133.         inc a
  134.         cp 13
  135.         jr nz,prsprites0
  136.  
  137.         ;call setpgsmain40008000
  138.         call setpgcodec000
  139.        
  140.         jr $
  141.         endif
  142.         jp GO
  143.  
  144.         include "pal.ast" ;slabpal
  145. standardpal
  146.         STANDARDPAL
  147. emptypal
  148.         ds 32,0xff
  149.  
  150. jphl
  151.         jp (hl)
  152.  
  153. quiter
  154.         if 1==0
  155.         halt
  156. pgmuznum=$+1
  157.         ld a,0
  158.         SETPG32KHIGH
  159.           ld hl,muz
  160.           OS_SETMUSIC
  161.         halt
  162.         endif
  163.         call swapimer
  164.         QUIT
  165.  
  166. L_5B00 ;= #5b00
  167.         db 0
  168.  
  169. setpggfxc000
  170. pggfx=$+1
  171.         ld a,0
  172.         SETPG32KHIGH
  173.         ret
  174. setpgcodec000
  175. pgcodec000=$+1
  176.         ld a,0
  177.         SETPG32KHIGH
  178.         ret
  179.  
  180. swapimer
  181.         di
  182.         ld de,0x0038
  183.         ld hl,oldimer
  184.         ld bc,3
  185. swapimer0
  186.         ld a,(de)
  187.         ldi ;[oldimer] -> [0x0038]
  188.         dec hl
  189.         ld (hl),a ;[0x0038] -> [oldimer]
  190.         inc hl
  191.         jp pe,swapimer0
  192.         ei
  193.         ret
  194. oldimer
  195.         jp on_int ;чрьхэшЄё  эр ъюф шч 0x0038
  196.         jp 0x0038+3    
  197.  
  198. reter
  199.         ret
  200.  
  201. tstarttime       DB       #00,#00,#00
  202. curgametimer       DB       #00,#00,#00
  203. stoptimer       DB       #00
  204. curtimerlow       DB       #00
  205. ;
  206. on_int
  207. ;restore stack with de
  208.         EX DE,HL
  209.         EX (SP),HL ;de="hl", stack contains "de"
  210.         LD (on_int_jp),HL
  211.         LD (on_int_sp),SP
  212.         LD SP,INTSTACK
  213.         push af
  214.         push bc
  215.         push de ;"hl"
  216.         exx
  217.         ex af,af' ;'
  218.         push af
  219.         push bc
  220.         push de
  221.         push hl
  222.         push ix
  223.         push iy
  224.         ;DI
  225. ;curscrnum_int=$+1
  226. ;        ld e,0
  227. ;        OS_SETSCREEN
  228.         call oldimer ;ei
  229.          GET_KEY
  230.          jr nz,Imer_nofocus
  231.          ;ld a,(user_scr0_high) ;ok
  232.          ;SETPG16K ;TODO redraw screen when retake focus???
  233. Imer_nofocus
  234.         LD      A,(stoptimer)
  235.         OR      A
  236.         CALL    Z,DecTimer
  237.         pop iy
  238.         pop ix
  239.         pop hl
  240.         pop de
  241.         pop bc
  242.         pop af
  243.         ex af,af' ;'
  244.         exx
  245.         pop hl
  246.         pop bc
  247.         pop af        
  248. on_int_sp=$+1
  249.         ld sp,0
  250.         pop de
  251.         ei
  252. on_int_jp=$+1
  253.         jp 0
  254. ;
  255.         if 1==0
  256.        DB       #21,#31,#BD,#35,#F0,#36,#19,#CD       ;!1=5p6.M
  257.        DB       #67,#BD,#CD,#9E,#BD,#C9,#21,#2F       ;g=M.=I!/
  258.        DB       #BD,#06,#03,#3E,#0A,#34,#BE,#C0       ;=..>.4>@
  259.        DB       #36,#00,#2B,#10,#F8,#C9       ;6.+.xI
  260.         endif
  261. ;
  262. DecTimer
  263.        ld a,0xfe
  264.        in a,(0xfe)
  265.        and 8
  266.        jr nz,nocheat
  267.        ld a,0xc9
  268.        ld (DecTimer),a
  269. nocheat
  270.         LD      HL,curtimerlow
  271.         DEC     (HL)
  272.         RET     P
  273.         LD      (HL),#19
  274.         CALL    L_BD89
  275.         LD      A,(stoptimer)
  276.         OR      A
  277.         CALL    Z,PrintGameTimer
  278.         RET
  279. ;
  280. L_BD89  LD      HL,curgametimer+2
  281.         DEC     (HL)
  282.         RET     P
  283.         LD      (HL),#09
  284.         DEC     HL
  285.         DEC     (HL)
  286.         RET     P
  287.         LD      (HL),#09
  288.         DEC     HL
  289.         DEC     (HL)
  290.         RET     P
  291.         LD      HL,stoptimer
  292.         LD      (HL),#FF
  293.         RET
  294. ;
  295. PrintGameTimer
  296.         LD      HL,curgametimer
  297.         LD      B,#03
  298.         LD      DE,L_BDB8
  299. L_BDA6  LD      A,(HL)
  300.         ADD     A,#30
  301.         LD      (DE),A
  302.         INC     HL
  303.         INC     DE
  304.         DJNZ    L_BDA6
  305.         LD      HL,L_BDB5
  306.        if EGA
  307.         CALL    PrintStringHL_EGA
  308.        else
  309.         CALL    PrintStringHL
  310.        endif
  311.         RET
  312. ;
  313. L_BDB5       DB       #16,#16,#0F
  314. L_BDB8       DM       "000"
  315.        DB       #00
  316. ;
  317. PrintNKeys
  318.         LD      A,(curnkeys)
  319.         ADD     A,#30
  320.         LD      (L_BDCE),A
  321.         LD      HL,L_BDCB
  322.        if EGA
  323.         CALL    PrintStringHL_EGA
  324.        else
  325.         CALL    PrintStringHL
  326.        endif
  327.         RET
  328. ;
  329. L_BDCB       DB       #16,#16,#15
  330. L_BDCE       DM       "0"
  331.        DB       #00
  332. ;
  333. RIGHTPIX=0x38;0xb8;%10111000
  334. LEFTPIX=0x07;0x47;%01000111
  335.         macro FONTBYTE
  336.         ld a,(de)
  337.         ld c,a
  338.         xor a
  339.         rl c
  340.         jr nc,$+4
  341.          or LEFTPIX
  342.         rl c
  343.         jr nc,$+4
  344.          or RIGHTPIX
  345.         ld (hl),a
  346.         ld a,h
  347.         add a,0x40
  348.         ld h,a
  349.         xor a
  350.         rl c
  351.         jr nc,$+4
  352.          or LEFTPIX
  353.         rl c
  354.         jr nc,$+4
  355.          or RIGHTPIX
  356.         ld (hl),a
  357.         ld a,h
  358.         add a,0x20-0x40
  359.         ld h,a
  360.         xor a
  361.         rl c
  362.         jr nc,$+4
  363.          or LEFTPIX
  364.         rl c
  365.         jr nc,$+4
  366.          or RIGHTPIX
  367.         ld (hl),a
  368.         ld a,h
  369.         add a,0x40
  370.         ld h,a
  371.         xor a
  372.         rl c
  373.         jr nc,$+4
  374.          or LEFTPIX
  375.         rl c
  376.         jr nc,$+4
  377.          or RIGHTPIX
  378.         ld (hl),a
  379.         endm
  380.  
  381. PrintCharA_EGA
  382.         push bc
  383.         push de
  384.         push hl
  385.        push af
  386.         call setpgsscr40008000
  387.         LD      DE,(curprintyx)
  388.         sla e
  389.         sla e
  390.         sla e
  391.         ld a,d ;x
  392.          add a,4
  393.         ld l,e ;y
  394.         ld h,0
  395.         ld d,h
  396.         ld e,l
  397.         add hl,hl
  398.         add hl,hl
  399.         add hl,de ;*5
  400.          add hl,hl
  401.          add hl,hl
  402.          add hl,hl ;*40
  403.         add a,l
  404.         ld l,a
  405.         ld a,h
  406.         adc a,0x40
  407.         ld h,a
  408.        pop af
  409.         PUSH    HL
  410.         LD      DE,font-256;L_BE02
  411.         LD      H,#00
  412.         LD      L,A
  413.         ADD     HL,HL
  414.         ADD     HL,HL
  415.         ADD     HL,HL
  416.         ADD     HL,DE
  417.         EX      DE,HL
  418.         POP     HL
  419.         LD      hx,#08
  420.  
  421. PrintCharA_EGA0
  422.         FONTBYTE
  423.         ld bc,40-0x6000
  424.         add hl,bc
  425.         INC     DE
  426.         dec hx
  427.         jr nz,PrintCharA_EGA0
  428.        
  429.         LD      DE,(curprintyx)
  430.         INC     D
  431.         LD      A,D
  432.         CP      #20
  433.         JR      NZ,PrintCharA_EGAq
  434.         INC     E
  435.         LD      D,#00
  436.         LD      A,E
  437.         CP      #18
  438.         JR      NZ,PrintCharA_EGAq
  439.         LD      E,#00
  440. PrintCharA_EGAq
  441.         LD      (curprintyx),DE
  442.         call setpgsmain40008000
  443.         pop hl
  444.         pop de
  445.         pop bc
  446.         ret
  447.        
  448. PrintCharA
  449.         PUSH    DE
  450.         PUSH    HL
  451.         PUSH    BC
  452.         PUSH    AF
  453.         LD      DE,(curprintyx)
  454.         LD      A,E
  455.         AND     #18
  456.         OR      #40
  457.         LD      H,A
  458.         LD      A,E
  459.         AND     #07
  460.         OR      A
  461.         RRA
  462.         RRA
  463.         RRA
  464.         RRA
  465.         ADD     A,D
  466.         LD      L,A
  467.         POP     AF
  468.         PUSH    HL
  469.         LD      DE,font-256;L_BE02
  470.         LD      H,#00
  471.         LD      L,A
  472.         ADD     HL,HL
  473.         ADD     HL,HL
  474.         ADD     HL,HL
  475.         ADD     HL,DE
  476.         EX      DE,HL
  477.         POP     HL
  478.         LD      B,#08
  479. L_C6EB  LD      A,(DE)
  480.         LD      (HL),A
  481.         INC     H
  482.         INC     DE
  483.         DJNZ    L_C6EB
  484.         LD      DE,(curprintyx)
  485.         INC     D
  486.         LD      A,D
  487.         CP      #20
  488.         JR      NZ,L_C705
  489.         INC     E
  490.         LD      D,#00
  491.         LD      A,E
  492.         CP      #18
  493.         JR      NZ,L_C705
  494.         LD      E,#00
  495. L_C705  LD      (curprintyx),DE
  496.         POP     BC
  497.         POP     HL
  498.         POP     DE
  499.         RET
  500. ;
  501. curprintyx       DW       #0000
  502. ;
  503. PrintStringHL
  504.         LD      A,(HL)
  505.         OR      A
  506.         RET     Z
  507.         CP      #16
  508.         JR      Z,L_C71C
  509.         CALL    PrintCharA
  510.         INC     HL
  511.         JR      PrintStringHL
  512. L_C71C  INC     HL
  513.         LD      E,(HL)
  514.         INC     HL
  515.         LD      D,(HL)
  516.         INC     HL
  517.         LD      (curprintyx),DE
  518.         JR      PrintStringHL
  519. ;
  520. PrintStringHL_EGA
  521.         LD      A,(HL)
  522.         OR      A
  523.         RET     Z
  524.         CP      #16
  525.         JR      Z,L_C71C_EGA
  526.         CALL    PrintCharA_EGA
  527.         INC     HL
  528.         JR      PrintStringHL_EGA
  529. L_C71C_EGA
  530.         INC     HL
  531.         LD      E,(HL)
  532.         INC     HL
  533.         LD      D,(HL)
  534.         INC     HL
  535.         LD      (curprintyx),DE
  536.         JR      PrintStringHL_EGA
  537.  
  538. font
  539.        DB       #00,#00,#00,#00,#00,#00,#00,#00       ;........
  540.        DB       #00,#18,#3C,#18,#00,#18,#18,#00       ;..<.....
  541.        DB       #00,#36,#36,#6C,#00,#00,#00,#00       ;.66l....
  542.        DB       #00,#00,#00,#00,#00,#00,#00,#00       ;........
  543.        DB       #00,#00,#00,#00,#00,#00,#00,#00       ;........
  544.        DB       #00,#00,#00,#00,#00,#00,#00,#00       ;........
  545.        DB       #00,#00,#00,#00,#00,#00,#00,#00       ;........
  546.        DB       #00,#1C,#38,#00,#00,#00,#00,#00       ;..8.....
  547.        DB       #00,#0E,#1C,#1C,#1C,#1C,#0E,#00       ;........
  548.        DB       #00,#70,#38,#38,#38,#38,#70,#00       ;.p8888p.
  549.        DB       #00,#00,#00,#00,#00,#00,#00,#00       ;........
  550.        DB       #00,#00,#00,#00,#00,#00,#00,#00       ;........
  551.        DB       #00,#00,#00,#00,#00,#18,#18,#30       ;.......0
  552.        DB       #00,#00,#00,#3C,#3C,#00,#00,#00       ;...<<...
  553.        DB       #00,#00,#00,#00,#00,#18,#18,#00       ;........
  554.        DB       #00,#06,#0E,#1C,#38,#70,#60,#00       ;....8p`.
  555.        DB       #00,#3C,#72,#76,#7A,#72,#3C,#00       ;.<rvzr<.
  556.        DB       #00,#1C,#3C,#1C,#1C,#1C,#7E,#00       ;..<...~.
  557.        DB       #00,#7C,#0E,#0E,#3C,#70,#7E,#00       ;.|..<p~.
  558.        DB       #00,#7C,#0E,#3C,#0E,#0E,#7C,#00       ;.|.<..|.
  559.        DB       #00,#4E,#4E,#4E,#3E,#0E,#0E,#00       ;.NNN>...
  560.        DB       #00,#7C,#60,#7C,#0E,#0E,#7C,#00       ;.|`|..|.
  561.        DB       #00,#3C,#70,#7C,#72,#72,#3C,#00       ;.<p|rr<.
  562.        DB       #00,#7E,#06,#0E,#1C,#18,#18,#00       ;.~......
  563.        DB       #00,#3C,#72,#3C,#72,#72,#3C,#00       ;.<r<rr<.
  564.        DB       #00,#3C,#4E,#4E,#3E,#0E,#3C,#00       ;.<NN>.<.
  565.        DB       #00,#18,#18,#00,#00,#18,#18,#00       ;........
  566.        DB       #00,#18,#18,#00,#00,#18,#18,#30       ;.......0
  567.        DB       #00,#00,#00,#00,#00,#00,#00,#00       ;........
  568.        DB       #00,#00,#00,#00,#00,#00,#00,#00       ;........
  569.        DB       #00,#00,#00,#00,#00,#00,#00,#00       ;........
  570.        DB       #7C,#0E,#0E,#0E,#1C,#00,#18,#00       ;|.......
  571.        DB       #00,#00,#00,#00,#00,#00,#00,#00       ;........
  572.        DB       #00,#3C,#72,#72,#7E,#72,#72,#00       ;.<rr~rr.
  573.        DB       #00,#7C,#72,#7C,#72,#72,#7C,#00       ;.|r|rr|.
  574.        DB       #00,#3E,#70,#70,#70,#70,#3E,#00       ;.>pppp>.
  575.        DB       #00,#7C,#72,#72,#72,#72,#7C,#00       ;.|rrrr|.
  576.        DB       #00,#3E,#70,#7C,#70,#70,#3E,#00       ;.>p|pp>.
  577.        DB       #00,#3E,#70,#7C,#70,#70,#70,#00       ;.>p|ppp.
  578.        DB       #00,#3E,#70,#70,#76,#72,#3C,#00       ;.>ppvr<.
  579.        DB       #00,#72,#72,#7E,#72,#72,#72,#00       ;.rr~rrr.
  580.        DB       #00,#7F,#1C,#1C,#1C,#1C,#7F,#00       ;........
  581.        DB       #00,#0E,#0E,#0E,#4E,#4E,#3C,#00       ;....NN<.
  582.        DB       #00,#72,#72,#7C,#72,#72,#72,#00       ;.rr|rrr.
  583.        DB       #00,#70,#70,#70,#70,#70,#3E,#00       ;.ppppp>.
  584.        DB       #00,#3E,#75,#75,#75,#75,#75,#00       ;.>uuuuu.
  585.        DB       #00,#7C,#72,#72,#72,#72,#72,#00       ;.|rrrrr.
  586.        DB       #00,#3C,#72,#72,#72,#72,#3C,#00       ;.<rrrr<.
  587.        DB       #00,#7C,#72,#72,#7C,#70,#70,#00       ;.|rr|pp.
  588.        DB       #00,#3C,#72,#72,#72,#7A,#3C,#08       ;.<rrrz<.
  589.        DB       #00,#7C,#72,#72,#7C,#72,#72,#00       ;.|rr|rr.
  590.        DB       #00,#3C,#70,#3C,#0E,#0E,#7C,#00       ;.<p<..|.
  591.        DB       #00,#7F,#1C,#1C,#1C,#1C,#1C,#00       ;........
  592.        DB       #00,#72,#72,#72,#72,#72,#3C,#00       ;.rrrrr<.
  593.        DB       #00,#72,#72,#72,#72,#34,#18,#00       ;.rrrr4..
  594.        DB       #00,#71,#71,#75,#75,#75,#3E,#00       ;.qquuu>.
  595.        DB       #00,#72,#72,#3C,#72,#72,#72,#00       ;.rr<rrr.
  596.        DB       #00,#4E,#4E,#4E,#3E,#0E,#3C,#00       ;.NNN>.<.
  597.        DB       #00,#7E,#0E,#1C,#38,#70,#7E,#00       ;.~..8p~.
  598.        DB       #00,#1E,#1C,#1C,#1C,#1C,#1E,#00       ;........
  599.        DB       #00,#60,#70,#38,#1C,#0E,#06,#00       ;.`p8....
  600.        DB       #00,#78,#38,#38,#38,#38,#78,#00       ;.x8888x.
  601.        DB       #00,#08,#1C,#3E,#5D,#1C,#1C,#00       ;...>]...
  602.        DB       #00,#78,#38,#3C,#3A,#3A,#3C,#00       ;.x8<::<.
  603.        DB       #00,#76,#79,#79,#79,#79,#76,#00       ;.vyyyyv.
  604.        DB       #00,#3C,#72,#72,#7E,#72,#72,#00       ;.<rr~rr.
  605.        DB       #00,#7C,#70,#7C,#72,#72,#7C,#00       ;.|p|rr|.
  606.        DB       #00,#4E,#4E,#4E,#4E,#4E,#3E,#02       ;.NNNNN>.
  607.        DB       #00,#1E,#2E,#2E,#2E,#2E,#7E,#42       ;......~B
  608.        DB       #00,#3E,#70,#7C,#70,#70,#3E,#00       ;.>p|pp>.
  609.        DB       #00,#3E,#5D,#5D,#3E,#1C,#1C,#00       ;.>]]>...
  610.        DB       #00,#3E,#70,#70,#70,#70,#70,#00       ;.>ppppp.
  611.        DB       #00,#72,#72,#3C,#72,#72,#72,#00       ;.rr<rrr.
  612.        DB       #00,#72,#72,#76,#7A,#72,#72,#00       ;.rrvzrr.
  613.        DB       #08,#72,#72,#76,#7A,#72,#72,#00       ;.rrvzrr.
  614.        DB       #00,#72,#72,#7C,#72,#72,#72,#00       ;.rr|rrr.
  615.        DB       #00,#3E,#4E,#4E,#4E,#4E,#4E,#00       ;.>NNNNN.
  616.        DB       #00,#71,#7B,#75,#71,#71,#71,#00       ;.q{uqqq.
  617.        DB       #00,#72,#72,#7E,#72,#72,#72,#00       ;.rr~rrr.
  618.        DB       #00,#3C,#72,#72,#72,#72,#3C,#00       ;.<rrrr<.
  619.        DB       #00,#7E,#4E,#4E,#4E,#4E,#4E,#00       ;.~NNNNN.
  620.        DB       #00,#3E,#4E,#4E,#3E,#4E,#4E,#00       ;.>NN>NN.
  621.        DB       #00,#7C,#72,#72,#7C,#70,#70,#00       ;.|rr|pp.
  622.        DB       #00,#3E,#70,#70,#70,#70,#3E,#00       ;.>pppp>.
  623.        DB       #00,#7F,#1C,#1C,#1C,#1C,#1C,#00       ;........
  624.        DB       #00,#4E,#4E,#4E,#3E,#0E,#3C,#00       ;.NNN>.<.
  625.        DB       #00,#5D,#5D,#3E,#5D,#5D,#5D,#00       ;.]]>]]].
  626.        DB       #00,#7C,#72,#7C,#72,#72,#7C,#00       ;.|r|rr|.
  627.        DB       #00,#70,#70,#7C,#72,#72,#7C,#00       ;.pp|rr|.
  628.        DB       #00,#72,#72,#7C,#72,#72,#7C,#00       ;.rr|rr|.
  629.        DB       #00,#7C,#0E,#3C,#0E,#0E,#7C,#00       ;.|.<..|.
  630.        DB       #00,#75,#75,#75,#75,#75,#3E,#00       ;.uuuuu>.
  631.        DB       #00,#7C,#0E,#3E,#0E,#0E,#7C,#00       ;.|.>..|.
  632.        DB       #00,#75,#75,#75,#75,#75,#3F,#01       ;.uuuuu?.
  633.        DB       #00,#4E,#4E,#4E,#3E,#0E,#0E,#00       ;.NNN>...
  634.        DB       #00,#00,#3E,#70,#70,#3E,#00,#00       ;..>pp>..
  635.  
  636.  
  637. L_61AB
  638. ;L=?
  639. ;E=?
  640. ;ix=sprwid8
  641.         LD      H,#00
  642.         LD      D,#00
  643.         LD      (L_6258),HL
  644.         LD      (L_625E),HL
  645.         LD      (L_6264),DE
  646.         LD      (cursprwid),IX ;sprwid8
  647.         LD      (L_625C),BC
  648.         LD      (cursprdataaddr),IY
  649. L_61C5  PUSH    BC
  650.         LD      HL,L_6258
  651.         LD      A,(HL)
  652.         SUB     #08
  653.         JR      NC,L_61D4
  654.         LD      BC,#4000
  655.         LD      A,(HL)
  656.         JR      L_61E4
  657. L_61D4  LD      A,(HL)
  658.         SUB     #10
  659.         JR      NC,L_61E1
  660.         LD      BC,#4800
  661.         LD      A,(HL)
  662.         SUB     #08
  663.         JR      L_61E4
  664. ;
  665. L_61E1  LD      BC,#5000
  666. L_61E4  LD      IX,(L_6264)
  667.         ADD     IX,BC
  668.         LD      HL,#0000
  669.         LD      E,A
  670.         LD      D,#00
  671.         LD      B,#20
  672. L_61F2  ADD     HL,DE
  673.         DJNZ    L_61F2
  674.         EX      DE,HL
  675.         ADD     IX,DE
  676.         LD      (L_625A),IX
  677.         LD      B,#08
  678. L_61FE  PUSH    BC
  679.         CALL    DrawImgLine
  680.         INC     H
  681.         LD      (L_625A),HL
  682.         POP     BC
  683.         DJNZ    L_61FE
  684.         LD      HL,(L_6258)
  685.         INC     HL
  686.         LD      (L_6258),HL
  687.         POP     BC
  688.         DJNZ    L_61C5
  689.         LD      DE,(L_625E)
  690.         LD      HL,#0000
  691.         LD      B,#20
  692. L_621C  ADD     HL,DE
  693.         DJNZ    L_621C
  694.         LD      DE,#5800
  695.         ADD     HL,DE
  696.         LD      DE,(L_6264)
  697.         ADD     HL,DE
  698.         LD      (L_625A),HL
  699.         LD      BC,(L_625C)
  700. L_622F  PUSH    BC
  701.         CALL    DrawImgLine
  702.         LD      BC,#0020
  703.         ADD     HL,BC
  704.         LD      (L_625A),HL
  705.         POP     BC
  706.         DJNZ    L_622F
  707.         LD      IY,L_5B00;L_5C3A ;???
  708.         RET
  709.  
  710. DrawImgLine
  711.         LD      DE,(L_625A)
  712.         PUSH    DE
  713.         LD      HL,(cursprdataaddr)
  714.         LD      BC,(cursprwid)
  715.         LDIR
  716.         LD      (cursprdataaddr),HL
  717.         POP     HL
  718.         LD      (L_625A),HL
  719.         RET
  720. ;
  721. L_6258       DW       #0000
  722. L_625A       DW       #0000
  723. L_625C       DW       #0000
  724. L_625E       DW       #0000
  725. cursprdataaddr       DW       #0000
  726. cursprwid       DW       #0000
  727. L_6264       DW       #0000
  728. ;
  729.        ;DB       #00,#21,#00,#40,#11,#01,#40,#01       ;.!.@..@.
  730.        ;DB       #00,#00,#ED,#B0,#00,#67,#62       ;..m0.gb
  731. ;
  732. DepackBigDragon
  733.         CALL    reter;#007C
  734.         DEC     SP
  735.         DEC     SP
  736.         POP     IY
  737.         LD      BC,#0016
  738.         ADD     IY,BC
  739.         LD      L,#0E
  740.         LD      E,#08
  741.         LD      B,#04
  742.         LD      IX,#0006 ;sprwid8
  743.         JP      L_FF32 ;jp 61ab
  744. ;
  745.        DB       #FF,#FF,#00,#FF,#FF,#FF,#FF,#FE       ;.......~
  746.        DB       #00,#7F,#FF,#FF,#FF,#FE,#00,#1F       ;.....~..
  747.        DB       #FF,#FF,#FF,#FC,#3C,#03,#FF,#FF       ;...|<...
  748.        DB       #FF,#F8,#5E,#00,#FF,#FF,#FF,#F0       ;.x^....p
  749.        DB       #6E,#00,#1F,#FF,#FF,#C0,#2E,#00       ;n....@..
  750.        DB       #0F,#FF,#FF,#80,#6F,#00,#01,#FF       ;....o...
  751.        DB       #FF,#18,#DF,#00,#00,#FF,#FE,#2F       ;.._...~/
  752.        DB       #FF,#80,#00,#FF,#FE,#3F,#FF,#80       ;....~?..
  753.        DB       #00,#7F,#FC,#3F,#FF,#C1,#FF,#7F       ;..|?.A..
  754.        DB       #F8,#3F,#3F,#8F,#EC,#3F,#F0,#00       ;x??.l?p.
  755.        DB       #7E,#7F,#F0,#1F,#E0,#1F,#FD,#FF       ;~.p.`.}.
  756.        DB       #A0,#07,#C0,#00,#FD,#FF,#C0,#01       ; .@.}.@.
  757.        DB       #00,#00,#7B,#FE,#80,#00,#00,#00       ;..{~....
  758.        DB       #7B,#FF,#00,#00,#00,#00,#3B,#FD       ;{.....;}
  759.        DB       #00,#00,#00,#00,#3D,#FE,#00,#00       ;....=~..
  760.        DB       #00,#00,#3F,#FE,#00,#00,#00,#00       ;..?~....
  761.        DB       #3F,#FD,#00,#00,#00,#00,#3F,#FD       ;?}....?}
  762.        DB       #80,#00,#00,#00,#7F,#FF,#C0,#00       ;......@.
  763.        DB       #00,#00,#7F,#FF,#E0,#00,#00,#00       ;....`...
  764.        DB       #43,#FF,#F0,#00,#00,#00,#3D,#FE       ;C.p...=~
  765.        DB       #3C,#00,#00,#00,#7E,#FD,#DF,#00       ;<...~}_.
  766.        DB       #00,#00,#7E,#FD,#EF,#C0,#00,#00       ;..~}o@..
  767.        DB       #FE,#FB,#EF,#F8,#00,#00,#FE,#FB       ;~{ox..~{
  768.        DB       #EF,#FF,#00,#00,#00,#00,#00,#00       ;o.......
  769.        DB       #42,#42,#47,#42,#42,#42,#42,#47       ;BBGBBBBG
  770.        DB       #47,#47,#47,#42,#47,#47,#47,#47       ;GGGBGGGG
  771.        DB       #47,#47,#47,#47,#47,#47,#47,#47       ;GGGGGGGG
  772. ;
  773. DepackSmallDragon       CALL    reter;#007C
  774.         DEC     SP
  775.         DEC     SP
  776.         POP     IY
  777.         LD      BC,#0016
  778.         ADD     IY,BC
  779.         LD      L,#0E
  780.         LD      E,#08
  781.         LD      B,#04
  782.         LD      IX,#0006 ;sprwid8
  783.         JP      L_FF32 ;jp 61ab
  784. ;
  785.        DB       #FF,#FF,#00,#FF,#FF,#FF,#FF,#FE       ;.......~
  786.        DB       #00,#7F,#FF,#FF,#FF,#FE,#00,#1F       ;.....~..
  787.        DB       #FF,#FF,#FF,#FC,#00,#03,#FF,#FF       ;...|....
  788.        DB       #FF,#F8,#00,#00,#FF,#FF,#FF,#F0       ;.x.....p
  789.        DB       #00,#00,#1F,#FF,#FF,#C0,#00,#00       ;.....@..
  790.        DB       #0F,#FF,#FF,#80,#00,#00,#01,#FF       ;........
  791.        DB       #FF,#00,#00,#00,#00,#FF,#FE,#00       ;......~.
  792.        DB       #00,#00,#00,#FF,#FE,#00,#00,#00       ;....~...
  793.        DB       #00,#7F,#FC,#00,#00,#00,#00,#7F       ;..|.....
  794.        DB       #F8,#00,#00,#00,#00,#3F,#F0,#00       ;x....?p.
  795.        DB       #00,#00,#00,#1F,#E0,#00,#00,#00       ;....`...
  796.        DB       #00,#07,#C0,#00,#00,#00,#00,#01       ;..@.....
  797.        DB       #00,#00,#00,#00,#00,#00,#00,#00       ;........
  798.        DB       #3E,#00,#00,#00,#00,#00,#7F,#00       ;>.......
  799.        DB       #00,#00,#00,#00,#3F,#00,#00,#00       ;....?...
  800.        DB       #00,#00,#1F,#00,#00,#00,#00,#00       ;........
  801.        DB       #3F,#00,#00,#00,#00,#00,#7F,#00       ;?.......
  802.        DB       #00,#00,#00,#00,#7F,#80,#00,#00       ;........
  803.        DB       #00,#00,#1F,#80,#00,#00,#00,#00       ;........
  804.        DB       #3F,#80,#00,#00,#00,#00,#7F,#C0       ;?......@
  805.        DB       #00,#00,#00,#00,#4F,#C0,#00,#00       ;....O@..
  806.        DB       #00,#00,#37,#E0,#00,#00,#00,#00       ;..7`....
  807.        DB       #7B,#F0,#00,#00,#00,#00,#7B,#FC       ;{p....{|
  808.        DB       #00,#00,#00,#00,#00,#00,#00,#00       ;........
  809.        DB       #42,#42,#42,#42,#42,#42,#42,#42       ;BBBBBBBB
  810.        DB       #42,#42,#42,#42,#42,#42,#47,#47       ;BBBBBBGG
  811.        DB       #42,#42,#42,#42,#47,#47,#42,#42       ;BBBBGGBB
  812. ;
  813. DepackAuthorsScreen
  814.         halt;DI
  815.         CALL    reter;#0052
  816.         DEC     SP
  817.         DEC     SP
  818.         POP     BC
  819.         LD      HL,#0097
  820.         ADD     HL,BC
  821.        ;ld hl,authorsscreen
  822.         EX      DE,HL
  823.         LD      HL,#0066
  824.         ADD     HL,BC
  825.         LD      (HL),E
  826.         INC     HL
  827.         LD      (HL),D
  828.         LD      HL,#007B
  829.         ADD     HL,BC
  830.         LD      (HL),E
  831.         INC     HL
  832.         LD      (HL),D
  833.         LD      HL,#0089
  834.         ADD     HL,BC
  835.         LD      (HL),E
  836.         INC     HL
  837.         LD      (HL),D
  838.         LD      HL,#00BE
  839.         ADD     HL,BC
  840.         LD      DE,#4000
  841.         PUSH    DE
  842.         EXX
  843.         EX      AF,AF' ;'
  844.         LD      A,#03
  845.         OR      A
  846.         LD      B,#08
  847.         LD      C,B
  848.         POP     HL
  849.         EX      AF,AF' ;'
  850.         EXX
  851. L_648B  LD      A,(HL)
  852.         BIT     7,A
  853.         JR      NZ,L_64CA
  854.         AND     #07
  855.         LD      C,A
  856.         LD      A,(HL)
  857.         RRCA
  858.         RRCA
  859.         RRCA
  860.         AND     #0F
  861.         ADD     A,#03
  862.         LD      B,A
  863.         INC     HL
  864.         LD      A,E
  865.         SUB     (HL)
  866.         INC     HL
  867.         PUSH    HL
  868.         LD      L,A
  869.         LD      A,D
  870.         SBC     A,C
  871.         LD      H,A
  872. L_64A5  PUSH    HL
  873.         LD      A,H
  874.         AND     #58
  875.         CP      #58
  876.         JR      Z,L_64BF
  877.         LD      C,A
  878.         LD      A,L
  879.         AND     #07
  880.         OR      C
  881.         LD      C,A
  882.         ADD     HL,HL
  883.         ADD     HL,HL
  884.         LD      A,H
  885.         AND     #1F
  886.         LD      H,A
  887.         LD      A,L
  888.         AND     #E0
  889.         OR      H
  890.         LD      L,A
  891.         LD      H,C
  892. L_64BF  LD      A,(HL)
  893.         CALL    L_74A6 ;???
  894.         POP     HL
  895.         INC     HL
  896.         DJNZ    L_64A5
  897.         POP     HL
  898.         JR      L_648B
  899. ;
  900. L_64CA  AND     #7F
  901.         JR      Z,L_64EB
  902.         INC     HL
  903.         BIT     6,A
  904.         JR      NZ,L_64DD
  905.         LD      B,A
  906. L_64D4  LD      A,(HL)
  907.         CALL    L_74A6 ;???
  908.         INC     HL
  909.         DJNZ    L_64D4
  910.         JR      L_648B
  911. ;
  912. L_64DD  AND     #3F
  913.         ADD     A,#03
  914.         LD      B,A
  915.         LD      A,(HL)
  916. L_64E3  CALL    L_74A6 ;???
  917.         DJNZ    L_64E3
  918.         INC     HL
  919.         JR      L_648B
  920. ;
  921. L_64EB  EXX
  922.         LD      HL,#2758
  923.         EXX
  924.         EI
  925.         RET
  926. ;
  927. authorsscreen
  928.        DB       #13,#D9,#77,#08,#28,#19,#24,#10       ;.Yw.(.$.
  929.        DB       #1B,#11,#20,#F8,#19,#0D,#20,#12       ;.. x.. .
  930.        DB       #11,#01,#FF,#19,#C6,#08,#30,#08       ;....F.0.
  931.        DB       #11,#E0,#07,#19,#3D,#18,#01,#23       ;.`..=..#
  932.        DB       #0E,#08,#06,#08,#08,#D9,#C9,#FF       ;.....YI.
  933.        DB       #00,#FF,#00,#FF,#00,#FF,#00,#FF       ;........
  934.        DB       #00,#FF,#00,#E9,#00,#88,#FF,#80       ;...i....
  935.        DB       #BB,#AA,#AB,#BA,#80,#8B,#F5,#00       ;;*+:..u.
  936.        DB       #88,#FF,#00,#B9,#A1,#29,#B8,#00       ;...9!)8.
  937.        DB       #81,#F5,#00,#88,#FF,#00,#5D,#55       ;.u....]U
  938.        DB       #D5,#5D,#00,#DC,#F5,#00,#88,#FF       ;U].\u...
  939.        DB       #01,#DD,#55,#55,#DD,#01,#9D,#FF       ;.]UU]...
  940.        DB       #00,#FC,#00,#86,#3C,#72,#72,#7E       ;.|..<rr~
  941.        DB       #72,#72,#EF,#00,#81,#7E,#C2,#4E       ;rro..~BN
  942.        DB       #88,#00,#00,#7C,#72,#7C,#72,#72       ;...|r|rr
  943.        DB       #7C,#EF,#00,#08,#36,#85,#70,#70       ;|o..6.pp
  944.        DB       #00,#00,#7F,#C2,#1C,#EF,#00,#00       ;...B.o..
  945.        DB       #B8,#83,#72,#72,#3C,#28,#08,#EF       ;8.rr<(.o
  946.        DB       #00,#81,#3E,#C2,#70,#38,#88,#ED       ;..>Bp8.m
  947.        DB       #00,#28,#C0,#00,#FD,#79,#00,#E0       ;.(@.}y.`
  948.        DB       #00,#79,#78,#EB,#00,#83,#71,#7B       ;.yxk..q{
  949.        DB       #75,#C0,#71,#84,#00,#00,#18,#18       ;u@q.....
  950.        DB       #08,#04,#EF,#00,#28,#40,#F5,#00       ;..o.(@u.
  951.        DB       #7A,#38,#FF,#00,#FF,#00,#FF,#00       ;z8......
  952.        DB       #FF,#00,#FF,#00,#FF,#00,#FF,#00       ;........
  953.        DB       #FF,#00,#FF,#00,#FF,#00,#FF,#00       ;........
  954.        DB       #FF,#00,#FF,#00,#FF,#00,#FF,#00       ;........
  955.        DB       #FF,#00,#D2,#00,#81,#8A,#07,#C5       ;..R....E
  956.        DB       #8C,#BB,#A2,#A3,#BA,#80,#AB,#92       ;.;"#:.+.
  957.        DB       #AA,#AB,#80,#80,#FF,#CE,#00,#85       ;*+...N..
  958.        DB       #7D,#7D,#00,#7F,#7F,#C3,#00,#83       ;}}...C..
  959.        DB       #01,#02,#07,#C1,#04,#83,#05,#06       ;...A....
  960.        DB       #07,#C7,#00,#84,#80,#80,#00,#00       ;.G......
  961.        DB       #C0,#A2,#88,#BB,#00,#B9,#A9,#B1       ;@".;.9)1
  962.        DB       #A9,#00,#00,#78,#40,#83,#EF,#EF       ;)..x@.oo
  963.        DB       #00,#00,#43,#C1,#00,#84,#FF,#83       ;..CA....
  964.        DB       #85,#F9,#C0,#89,#84,#FF,#0A,#0C       ;.y@.....
  965.        DB       #F8,#C7,#00,#8F,#55,#9C,#95,#00       ;xG..U...
  966.        DB       #15,#15,#1D,#85,#00,#C0,#40,#C0       ;.....@@@
  967.        DB       #5C,#00,#00,#78,#80,#85,#7B,#7B       ;\..x..{{
  968.        DB       #00,#FE,#FE,#C5,#00,#C0,#01,#CC       ;.~~E.@.L
  969.        DB       #00,#88,#91,#91,#DD,#01,#D9,#55       ;....].YU
  970.        DB       #55,#D9,#C4,#01,#78,#C0,#85,#F6       ;UYD.x@.v
  971.        DB       #F6,#08,#FE,#F6,#C5,#00,#84,#C0       ;v.~vE..@
  972.        DB       #80,#40,#20,#FF,#00,#FF,#00,#C8       ;.@ ....H
  973.        DB       #00,#82,#3E,#70,#07,#87,#07,#88       ;..>p....
  974.        DB       #81,#0E,#0F,#88,#81,#0E,#CF,#00       ;......O.
  975.        DB       #37,#28,#81,#70,#1F,#E8,#68,#28       ;7(.p.hh(
  976.        DB       #2E,#C8,#84,#3C,#72,#76,#7A,#7F       ;.H.<rvz.
  977.        DB       #88,#82,#00,#00,#2F,#E8,#10,#68       ;..../h.h
  978.        DB       #83,#3E,#00,#00,#68,#28,#07,#80       ;.>..h(..
  979.        DB       #07,#CA,#87,#00,#00,#3C,#4E,#4E       ;.J...<NN
  980.        DB       #3E,#0E,#7F,#C8,#81,#00,#2F,#28       ;>..H../(
  981.        DB       #81,#3E,#C2,#4E,#82,#00,#00,#68       ;.>BN...h
  982.        DB       #28,#83,#3C,#72,#72,#17,#48,#85       ;(.<rr.H.
  983.        DB       #7C,#60,#7C,#0E,#0E,#7F,#88,#89       ;|`|.....
  984.        DB       #00,#3E,#5D,#5D,#3E,#1C,#1C,#00       ;.>]]>...
  985.        DB       #00,#07,#70,#81,#72,#08,#A0,#68       ;..p.r. h
  986.        DB       #28,#81,#7F,#C2,#1C,#83,#00,#00       ;(..B....
  987.        DB       #70,#C1,#38,#07,#D0,#CD,#00,#81       ;pA8.PM..
  988.        DB       #72,#08,#D8,#07,#A8,#00,#7F,#10       ;r.X.(...
  989.        DB       #A0,#68,#28,#10,#40,#22,#A1,#D1       ; h(.@"!Q
  990.        DB       #00,#01,#35,#10,#E0,#11,#48,#01       ;..5.`.H.
  991.        DB       #00,#CD,#00,#28,#18,#82,#1C,#3C       ;.M.(...<
  992.        DB       #01,#81,#81,#7E,#CF,#00,#39,#60       ;...~O.9`
  993.        DB       #18,#C0,#10,#88,#79,#A8,#81,#00       ;.@..y(..
  994.        DB       #79,#40,#CB,#00,#81,#7C,#08,#88       ;y@K..|..
  995.        DB       #01,#C0,#86,#7E,#06,#0E,#1C,#18       ;.@.~....
  996.        DB       #18,#C7,#00,#83,#3C,#70,#3C,#11       ;.G..<p<.
  997.        DB       #38,#78,#80,#D3,#00,#68,#80,#29       ;8x.S.h.)
  998.        DB       #40,#83,#00,#00,#3C,#79,#FE,#C8       ;@...<y~H
  999.        DB       #00,#2A,#28,#82,#00,#00,#58,#28       ;.*(...X(
  1000.        DB       #31,#C0,#84,#0E,#0E,#3C,#70,#79       ;1@...<py
  1001.        DB       #00,#C6,#00,#7A,#00,#C3,#00,#78       ;.F.z.C.x
  1002.        DB       #C0,#D3,#00,#32,#80,#0A,#C8,#7A       ;@S.2..Hz
  1003.        DB       #A8,#C0,#00,#78,#C0,#C9,#00,#29       ;(@.x@I.)
  1004.        DB       #C8,#82,#00,#00,#78,#E8,#C1,#00       ;H...xhA.
  1005.        DB       #82,#7C,#0E,#19,#48,#D5,#00,#2A       ;.|..HU.*
  1006.        DB       #00,#7A,#E8,#C3,#00,#7A,#C0,#CB       ;.zhC.z@K
  1007.        DB       #00,#7A,#E8,#EB,#00,#13,#A7,#11       ;.zhk..'.
  1008.        DB       #80,#F3,#00,#81,#1E,#C1,#2E,#82       ;.s...A..
  1009.        DB       #7E,#42,#F6,#00,#2C,#08,#FF,#00       ;~Bv.,...
  1010.        DB       #FF,#00,#F2,#00,#C4,#07,#F6,#00       ;..r.D.v.
  1011.        DB       #94,#FF,#B5,#EA,#F5,#EA,#D5,#FE       ;..5jujU~
  1012.        DB       #15,#1A,#14,#1A,#1D,#1A,#15,#1A       ;........
  1013.        DB       #15,#1A,#15,#1E,#1F,#E9,#00,#88       ;.....i..
  1014.        DB       #FF,#41,#08,#41,#A1,#41,#FB,#40       ;.A.A!A{@
  1015.        DB       #06,#A9,#08,#04,#C0,#40,#82,#C0       ;.)..@@.@
  1016.        DB       #C0,#E8,#00,#D3,#07,#E7,#00,#C0       ;@h.S.g.@
  1017.        DB       #F8,#81,#E8,#00,#04,#88,#FF,#F5       ;x.h....u
  1018.        DB       #FA,#FD,#EA,#FD,#FB,#FF,#C2,#F8       ;z}j}{.Bx
  1019.        DB       #81,#D8,#47,#49,#DD,#00,#84,#1F       ;.XGI]...
  1020.        DB       #10,#10,#18,#C0,#10,#88,#F0,#54       ;...@..pT
  1021.        DB       #80,#50,#A0,#10,#A8,#F0,#C1,#10       ;.P .(pA.
  1022.        DB       #83,#14,#10,#1E,#E7,#00,#81,#E0       ;....g..`
  1023.        DB       #C5,#20,#81,#00,#C8,#20,#81,#E0       ;E ..H .`
  1024.        DB       #E8,#00,#87,#FF,#FD,#FE,#FD,#F6       ;h...}~}v
  1025.        DB       #FF,#FF,#C3,#FE,#86,#FB,#FE,#FF       ;..C~.{~.
  1026.        DB       #FE,#FF,#FD,#7F,#EE,#D8,#00,#88       ;~.}.nX..
  1027.        DB       #FE,#D0,#A8,#50,#88,#50,#E4,#10       ;~P(P.Pd.
  1028.        DB       #C1,#08,#88,#14,#F0,#A8,#50,#A8       ;A...p(P(
  1029.        DB       #44,#A9,#FE,#EA,#00,#83,#80,#40       ;D)~j...@
  1030.        DB       #40,#48,#C3,#83,#40,#40,#80,#FF       ;@HC.@@..
  1031.        DB       #00,#E7,#00,#81,#03,#0A,#C0,#81       ;.g....@.
  1032.        DB       #03,#F7,#00,#81,#E3,#0B,#00,#81       ;.w..c...
  1033.        DB       #E3,#F7,#00,#81,#C7,#C1,#27,#81       ;cw..GA'.
  1034.        DB       #C7,#C7,#00,#0E,#8E,#7C,#90,#D7       ;GG...|.W
  1035.        DB       #00,#85,#C4,#24,#24,#C3,#00,#00       ;..D$$C..
  1036.        DB       #C0,#2F,#28,#C2,#72,#7E,#F0,#D6       ;@/(Br~pV
  1037.        DB       #00,#C2,#E7,#00,#80,#2F,#28,#2E       ;.Bg../(.
  1038.        DB       #F8,#E5,#00,#88,#C7,#21,#21,#C1       ;xe..G!!A
  1039.        DB       #21,#27,#00,#00,#78,#40,#E3,#00       ;!'..x@c.
  1040.        DB       #81,#F3,#C1,#C7,#83,#F3,#00,#00       ;.sAG.s..
  1041.        DB       #2E,#28,#17,#38,#81,#7F,#E7,#00       ;.(.8..g.
  1042.        DB       #84,#E7,#07,#07,#67,#49,#40,#3F       ;.g..gI@?
  1043.        DB       #50,#E3,#00,#83,#27,#21,#E1,#C0       ;Pc..'!a@
  1044.        DB       #21,#F7,#00,#81,#F0,#C2,#C0,#FF       ;!w..pB@.
  1045.        DB       #00,#FD,#00,#82,#7F,#7F,#C1,#60       ;.}....A`
  1046.        DB       #81,#7F,#09,#3A,#18,#06,#E4,#00       ;...:..d.
  1047.        DB       #84,#7F,#63,#60,#78,#00,#3A,#82       ;..c`x.:.
  1048.        DB       #00,#FF,#13,#F5,#18,#06,#18,#0C       ;...u....
  1049.        DB       #E3,#00,#83,#3F,#31,#31,#00,#03       ;c..?11..
  1050.        DB       #85,#31,#00,#E7,#E7,#66,#0C,#8E       ;.1.ggf..
  1051.        DB       #81,#E0,#08,#86,#81,#E0,#7C,#80       ;.`...`|.
  1052.        DB       #D6,#00,#8A,#98,#98,#9C,#9A,#99       ;V.......
  1053.        DB       #98,#98,#00,#FF,#FF,#C7,#06,#82       ;.....G..
  1054.        DB       #0F,#0F,#E7,#00,#83,#CF,#CC,#CC       ;..g..OLL
  1055.        DB       #00,#03,#85,#CC,#00,#FE,#FE,#06       ;...L.~~.
  1056.        DB       #F2,#00,#81,#E7,#00,#AF,#09,#00       ;r..g./..
  1057.        DB       #29,#40,#C3,#60,#E7,#00,#81,#F9       ;)@C`g..y
  1058.        DB       #12,#00,#82,#C1,#00,#79,#3A,#E3       ;...A.y:c
  1059.        DB       #00,#81,#F9,#C2,#61,#82,#F9,#00       ;..yBa.y.
  1060.        DB       #01,#40,#C0,#66,#81,#E7,#00,#8F       ;.@@f.g..
  1061.        DB       #84,#60,#66,#67,#67,#E7,#00,#82       ;.`fggg..
  1062.        DB       #FC,#8C,#C0,#80,#83,#8C,#FC,#00       ;|.@...|.
  1063.        DB       #79,#C0,#EB,#00,#19,#40,#01,#46       ;y@k..@.F
  1064.        DB       #01,#87,#83,#FE,#FE,#00,#DD,#42       ;...~~.]B
  1065.        DB       #FF,#47,#FF,#47,#FF,#47,#C1,#4F       ;.G.G.GAO
  1066.        DB       #D3,#46,#38,#20,#D9,#47,#08,#40       ;SF8 YG.@
  1067.        DB       #D3,#45,#FF,#47,#09,#62,#C1,#79       ;SE.G.bAy
  1068.        DB       #D3,#46,#19,#80,#C1,#78,#D9,#47       ;SF..AxYG
  1069.        DB       #08,#20,#D3,#45,#FF,#47,#FF,#47       ;. SE.G.G
  1070.        DB       #F9,#47,#21,#63,#01,#7D,#C9,#44       ;yG!c.}ID
  1071.        DB       #21,#B7,#78,#20,#28,#20,#31,#ED       ;!7x ( 1m
  1072.        DB       #78,#40,#58,#20,#80,#00,#00,#00       ;x@X ....
  1073.        DB       #00,#00,#00,#00,#00,#00,#00,#00       ;........
  1074.        DB       #00,#00,#00,#00,#00,#00,#00,#00       ;........
  1075.        DB       #00,#00,#00,#00,#00,#00,#00,#00       ;........
  1076.        DB       #00,#00,#00,#00,#00,#00       ;......
  1077. ;
  1078. DepackSplashScreen
  1079.         halt;DI
  1080.         LD      HL,L_6A39
  1081.         LD      DE,#4000
  1082.         PUSH    DE
  1083.         EXX
  1084.         EX      AF,AF' ;'
  1085.         LD      A,#03
  1086.         OR      A
  1087.         LD      B,#08
  1088.         LD      C,B
  1089.         POP     HL
  1090.         EX      AF,AF' ;'
  1091.         EXX
  1092. L_69AB  LD      A,(HL)
  1093.         BIT     7,A
  1094.         JR      NZ,L_69EA
  1095.         AND     #07
  1096.         LD      C,A
  1097.         LD      A,(HL)
  1098.         RRCA
  1099.         RRCA
  1100.         RRCA
  1101.         AND     #0F
  1102.         ADD     A,#03
  1103.         LD      B,A
  1104.         INC     HL
  1105.         LD      A,E
  1106.         SUB     (HL)
  1107.         INC     HL
  1108.         PUSH    HL
  1109.         LD      L,A
  1110.         LD      A,D
  1111.         SBC     A,C
  1112.         LD      H,A
  1113. L_69C5  PUSH    HL
  1114.         LD      A,H
  1115.         AND     #58
  1116.         CP      #58
  1117.         JR      Z,L_69DF
  1118.         LD      C,A
  1119.         LD      A,L
  1120.         AND     #07
  1121.         OR      C
  1122.         LD      C,A
  1123.         ADD     HL,HL
  1124.         ADD     HL,HL
  1125.         LD      A,H
  1126.         AND     #1F
  1127.         LD      H,A
  1128.         LD      A,L
  1129.         AND     #E0
  1130.         OR      H
  1131.         LD      L,A
  1132.         LD      H,C
  1133. L_69DF  LD      A,(HL)
  1134.         CALL    L_6A12
  1135.         POP     HL
  1136.         INC     HL
  1137.         DJNZ    L_69C5
  1138.         POP     HL
  1139.         JR      L_69AB
  1140. ;
  1141. L_69EA  AND     #7F
  1142.         JR      Z,L_6A0B
  1143.         INC     HL
  1144.         BIT     6,A
  1145.         JR      NZ,L_69FD
  1146.         LD      B,A
  1147. L_69F4  LD      A,(HL)
  1148.         CALL    L_6A12
  1149.         INC     HL
  1150.         DJNZ    L_69F4
  1151.         JR      L_69AB
  1152. ;
  1153. L_69FD  AND     #3F
  1154.         ADD     A,#03
  1155.         LD      B,A
  1156.         LD      A,(HL)
  1157. L_6A03  CALL    L_6A12
  1158.         DJNZ    L_6A03
  1159.         INC     HL
  1160.         JR      L_69AB
  1161. ;
  1162. L_6A0B  EXX
  1163.         LD      HL,#2758
  1164.         EXX
  1165.         EI
  1166.         RET
  1167. ;
  1168. L_6A12  INC     DE
  1169.         EXX
  1170.         LD      (HL),A
  1171.         EX      AF,AF' ;'
  1172.         JR      Z,L_6A31
  1173.         INC     H
  1174.         DJNZ    L_6A36
  1175.         LD      DE,0xF820
  1176.         ADD     HL,DE
  1177.         DEC     C
  1178.         JR      NZ,L_6A34
  1179.         LD      DE,0xFF01
  1180.         ADD     HL,DE
  1181.         ADD     A,#08
  1182.         JR      NC,L_6A32
  1183.         LD      DE,#07E0
  1184.         ADD     HL,DE
  1185.         DEC     A
  1186.         JR      L_6A32
  1187. ;
  1188. L_6A31  INC     HL
  1189. L_6A32  LD      C,#08
  1190. L_6A34  LD      B,#08
  1191. L_6A36  EX      AF,AF' ;'
  1192.         EXX
  1193.         RET
  1194. ;
  1195. L_6A39
  1196.        DB       #8B,#FF,#80,#AA,#9F,#BF,#9F,#BC       ;...*.?.<
  1197.        DB       #9D,#BD,#9D,#BD,#08,#04,#84,#9D       ;.=.=....
  1198.        DB       #BD,#9C,#BD,#00,#10,#82,#80,#FF       ;=.=.....
  1199.        DB       #C5,#00,#18,#20,#38,#10,#CD,#00       ;E.. 8.M.
  1200.        DB       #83,#FF,#00,#AA,#C0,#FF,#00,#07       ;...*@...
  1201.        DB       #30,#10,#81,#55,#60,#10,#58,#20       ;0..U`.X
  1202.        DB       #70,#40,#82,#01,#A9,#C0,#FD,#81       ;p@..)@}.
  1203.        DB       #01,#38,#70,#82,#01,#55,#00,#10       ;.8p..U..
  1204.        DB       #81,#3D,#38,#90,#82,#1D,#BD,#50       ;.=8...=P
  1205.        DB       #20,#FD,#00,#93,#57,#6B,#7D,#3F       ; }..Wk}?
  1206.        DB       #78,#38,#5F,#3D,#7E,#7D,#28,#58       ;x8_=~}(X
  1207.        DB       #30,#68,#70,#78,#FF,#81,#A9,#38       ;0hpx..)8
  1208.        DB       #FC,#39,#06,#79,#10,#21,#11,#84       ;|9.y.!..
  1209.        DB       #F5,#BE,#DF,#AF,#00,#06,#83,#FB       ;u>_/...{
  1210.        DB       #F7,#7E,#E3,#00,#69,#10,#90,#7E       ;w~c.i..~
  1211.        DB       #F6,#7A,#FC,#1A,#1C,#FE,#EC,#5E       ;vz|..~l^
  1212.        DB       #BE,#1A,#16,#0E,#16,#0E,#1E,#DD       ;>......]
  1213.        DB       #00,#19,#10,#39,#20,#86,#6B,#77       ;...9 .kw
  1214.        DB       #7B,#7F,#78,#50,#00,#B9,#87,#70       ;{.xP.9.p
  1215.        DB       #38,#58,#2F,#7E,#3D,#7A,#ED,#00       ;8X/~=zm.
  1216.        DB       #83,#AB,#F7,#EF,#01,#DC,#8A,#1F       ;.+wo.\..
  1217.        DB       #1D,#1E,#1D,#00,#00,#EB,#F5,#FE       ;.....ku~
  1218.        DB       #BF,#7A,#00,#0A,#00,#42,#10,#12       ;?z...B..
  1219.        DB       #1A,#81,#81,#32,#10,#90,#FE,#BE       ;...2..~>
  1220.        DB       #DE,#AA,#00,#00,#D6,#EE,#F6,#7E       ;^*..Vnv~
  1221.        DB       #1C,#1E,#FC,#FA,#F4,#FE,#7A,#00       ;..|zt~z.
  1222.        DB       #5A,#00,#6A,#38,#90,#7A,#7D,#7E       ;Z.j8.z}~
  1223.        DB       #2F,#58,#38,#7D,#7E,#7F,#7E,#28       ;/X8}~.~(
  1224.        DB       #58,#3F,#7F,#3D,#6A,#1A,#00,#81       ;X?.=j...
  1225.        DB       #1D,#39,#83,#82,#3D,#5D,#58,#10       ;.9..=]X.
  1226.        DB       #12,#99,#38,#80,#8A,#BF,#FF,#FE       ;..8..?.~
  1227.        DB       #F5,#00,#00,#7C,#EC,#DC,#AC,#00       ;u..|l\,.
  1228.        DB       #C0,#10,#CC,#EB,#00,#84,#EA,#F6       ;@.Lk..jv
  1229.        DB       #EE,#FE,#48,#CC,#7B,#00,#61,#00       ;n~HL{.a.
  1230.        DB       #5B,#10,#81,#02,#7B,#00,#0B,#00       ;[...{...
  1231.        DB       #86,#01,#FB,#09,#0B,#09,#0B,#08       ;..{.....
  1232.        DB       #04,#82,#F9,#03,#6B,#00,#53,#10       ;..y.k.S.
  1233.        DB       #85,#F3,#00,#00,#03,#3D,#4B,#4C       ;.s...=KL
  1234.        DB       #83,#F0,#10,#90,#CA,#D0,#83,#DF       ;.p..JP._
  1235.        DB       #C1,#D5,#79,#10,#1B,#20,#8C,#01       ;AUy.. ..
  1236.        DB       #1F,#00,#03,#FF,#3F,#15,#EB,#51       ;....?.kQ
  1237.        DB       #03,#00,#37,#33,#8F,#84,#FA,#23       ;..73..z#
  1238.        DB       #22,#22,#30,#9B,#38,#17,#6B,#AF       ;""0.8.k/
  1239.        DB       #90,#01,#00,#5D,#2A,#57,#BE,#75       ;...]*W>u
  1240.        DB       #AB,#FF,#E9,#17,#FE,#F5,#E8,#40       ;+.i.~uh@
  1241.        DB       #F0,#33,#CF,#84,#20,#60,#A0,#20       ;p3O. `  
  1242.        DB       #13,#EC,#87,#15,#FE,#0F,#1D,#F6       ;.l..~..v
  1243.        DB       #00,#03,#D4,#00,#8D,#F4,#00,#00       ;..T..t..
  1244.        DB       #FB,#FE,#B8,#75,#FA,#D7,#A0,#FC       ;{~8uzW |
  1245.        DB       #00,#68,#00,#36,#64,#0F,#8E,#02       ;.h.6d...
  1246.        DB       #00,#2B,#57,#BF,#FF,#94,#7F,#9D       ;.+W?....
  1247.        DB       #EB,#14,#00,#00,#1A,#D3,#00,#86       ;k....S..
  1248.        DB       #E8,#00,#00,#5F,#80,#F8,#74,#48       ;h.._.xtH
  1249.        DB       #92,#07,#1A,#3F,#7F,#7F,#FF,#FF       ;...?....
  1250.        DB       #CB,#FC,#87,#FD,#EA,#BF,#5E,#FF       ;K|.}j?^.
  1251.        DB       #FF,#07,#38,#D7,#00,#81,#C0,#D0       ;..8W..@P
  1252.        DB       #00,#90,#C0,#B0,#58,#EC,#F4,#DE       ;..@0Xlt^
  1253.        DB       #FE,#EB,#55,#AF,#7F,#83,#FF,#1E       ;~kU/....
  1254.        DB       #CF,#F1,#7B,#52,#1C,#CB,#82,#03       ;Oq{R.K..
  1255.        DB       #73,#C0,#F3,#C3,#FF,#83,#7F,#3C       ;s@sC...<
  1256.        DB       #13,#C6,#0F,#10,#1B,#8D,#00,#00       ;.F......
  1257.        DB       #2F,#94,#EA,#DF,#FF,#8A,#FF,#50       ;/.j_...P
  1258.        DB       #FE,#00,#C0,#71,#E3,#15,#0B,#81       ;~.@qc...
  1259.        DB       #0F,#C1,#CF,#82,#FF,#FD,#10,#41       ;.AO..}.A
  1260.        DB       #85,#E0,#1D,#F7,#FE,#DF,#C0,#9F       ;.`.w~_@.
  1261.        DB       #08,#4E,#0D,#28,#81,#D0,#11,#C9       ;.N.(.P.I
  1262.        DB       #84,#C0,#BD,#00,#E0,#41,#70,#5D       ;.@=.`Ap]
  1263.        DB       #31,#98,#3C,#18,#34,#38,#35,#E2       ;1.<.485b
  1264.        DB       #54,#BE,#FD,#EE,#FF,#FF,#80,#22       ;T>}n..."
  1265.        DB       #57,#BA,#ED,#FA,#F6,#FA,#AC,#3A       ;W:mzvz,:
  1266.        DB       #30,#39,#02,#CC,#59,#A8,#89,#03       ;09.LY(..
  1267.        DB       #07,#0F,#1F,#3F,#7F,#FF,#FC,#03       ;...?..|.
  1268.        DB       #CA,#1F,#C1,#3F,#C5,#7F,#81,#7D       ;J.A?E..}
  1269.        DB       #C0,#78,#00,#0C,#C4,#FF,#29,#E0       ;@x..D.)`
  1270.        DB       #8E,#02,#07,#0E,#1D,#3F,#7D,#FA       ;.....?}z
  1271.        DB       #FD,#FE,#F5,#DB,#F5,#EA,#DD,#05       ;}~u[uj].
  1272.        DB       #91,#84,#F7,#FF,#FF,#FD,#C0,#F8       ;..w..}@x
  1273.        DB       #DD,#FF,#2D,#E8,#94,#80,#40,#A0       ;].-h..@
  1274.        DB       #50,#88,#40,#A2,#11,#A4,#50,#A8       ;P.@".$P(
  1275.        DB       #41,#A8,#14,#FB,#00,#45,#EA,#BD       ;A(.{.Ej=
  1276.        DB       #FF,#00,#AC,#38,#3F,#78,#4D,#C0       ;..,8?xM@
  1277.        DB       #FE,#38,#40,#38,#48,#AD,#20,#10       ;~8@8H- .
  1278.        DB       #00,#04,#A2,#77,#00,#A8,#10,#A8       ;.."w.(.(
  1279.        DB       #D0,#F8,#D0,#E8,#70,#E8,#C0,#E8       ;PxPhph@h
  1280.        DB       #F0,#E8,#B4,#F8,#F4,#E8,#F4,#FE       ;ph4xtht~
  1281.        DB       #F4,#FA,#FC,#F6,#FC,#FA,#FC,#FA       ;tz|v|z|z
  1282.        DB       #FC,#F8,#EC,#FA,#FC,#FE,#75,#3A       ;|xlz|~u:
  1283.        DB       #37,#3E,#FD,#33,#8C,#19,#31,#01       ;7>}3..1.
  1284.        DB       #37,#81,#7D,#D2,#00,#C1,#3C,#81       ;7.}R.A<.
  1285.        DB       #FC,#20,#F3,#86,#01,#FE,#FF,#FB       ;| s..~.{
  1286.        DB       #FF,#EF,#C0,#67,#84,#7F,#7F,#3F       ;.o@g...?
  1287.        DB       #BF,#30,#C0,#8C,#00,#00,#0D,#00       ;?0@.....
  1288.        DB       #07,#FE,#15,#FB,#57,#08,#00,#1B       ;.~.{W...
  1289.        DB       #D0,#00,#81,#F0,#C1,#F3,#83,#FF       ;P..pAs..
  1290.        DB       #FA,#DD,#00,#3B,#87,#FF,#07,#F8       ;z].;...x
  1291.        DB       #5F,#A2,#F5,#DE,#11,#CD,#81,#BE       ;_"u^.M.>
  1292.        DB       #29,#AE,#8F,#6E,#01,#07,#FF,#5E       ;)..n...^
  1293.        DB       #F5,#BF,#7B,#FF,#01,#7F,#1C,#FF       ;u?{.....
  1294.        DB       #02,#1F,#7E,#EF,#97,#C0,#CE,#CF       ;..~o.@NO
  1295.        DB       #CB,#CD,#F8,#75,#AA,#45,#EB,#BD       ;KMxu*Ek=
  1296.        DB       #FA,#3C,#C8,#B0,#50,#E0,#50,#A0       ;z<H0P`P
  1297.        DB       #50,#80,#50,#B0,#22,#5D,#90,#00       ;P.P0"]..
  1298.        DB       #B8,#1F,#FA,#55,#AB,#7F,#A2,#FF       ;8.zU+.".
  1299.        DB       #FA,#D5,#A3,#FF,#FD,#9A,#FF,#7D       ;zU#.}..}
  1300.        DB       #98,#34,#3D,#81,#07,#D0,#00,#03       ;.4=..P..
  1301.        DB       #1C,#90,#00,#C0,#FD,#F7,#A8,#1F       ;...@}w(.
  1302.        DB       #7D,#BF,#5B,#F5,#AB,#57,#FC,#80       ;}?[u+W|.
  1303.        DB       #00,#64,#7F,#71,#02,#54,#8A,#2F       ;.d.q.T./
  1304.        DB       #00,#01,#0E,#B5,#0B,#FE,#01,#00       ;...5.~..
  1305.        DB       #46,#2F,#A0,#85,#77,#54,#7F,#55       ;F/ .wT.U
  1306.        DB       #57,#1A,#C5,#89,#C0,#00,#5C,#FB       ;W.E.@.\{
  1307.        DB       #1E,#FC,#FF,#50,#BE,#7B,#27,#0C       ;.|.P>{'.
  1308.        DB       #B8,#91,#03,#B5,#03,#1C,#E7,#3A       ;8..5..g:
  1309.        DB       #D5,#AB,#5F,#FE,#6F,#FC,#17,#ED       ;U+_~o|.m
  1310.        DB       #56,#00,#08,#57,#D3,#81,#73,#C0       ;V..WS.s@
  1311.        DB       #84,#81,#73,#00,#4F,#89,#84,#B7       ;..s.O..7
  1312.        DB       #94,#74,#00,#00,#83,#84,#87,#08       ;.t......
  1313.        DB       #0E,#85,#E3,#94,#E7,#94,#E3,#08       ;..c.g.c.
  1314.        DB       #1C,#86,#E7,#84,#84,#00,#00,#4E       ;..g....N
  1315.        DB       #C0,#90,#85,#4E,#00,#00,#FA,#22       ;@..N..z"
  1316.        DB       #14,#73,#20,#07,#2F,#F8,#81,#39       ;.s ./x.9
  1317.        DB       #C0,#A4,#92,#39,#00,#00,#19,#A5       ;@$.9...%
  1318.        DB       #3D,#A5,#A5,#00,#00,#A2,#22,#22       ;=%%.."""
  1319.        DB       #14,#88,#00,#00,#A0,#C0,#21,#84       ;.... @!.
  1320.        DB       #9C,#00,#00,#38,#C1,#A5,#83,#00       ;...8A%..
  1321.        DB       #00,#80,#C0,#40,#8F,#81,#00,#00       ;..@@....
  1322.        DB       #5C,#52,#D2,#52,#5C,#00,#00,#4C       ;\RRR\..L
  1323.        DB       #52,#DE,#52,#52,#C7,#00,#81,#DC       ;R^RRG..\
  1324.        DB       #C0,#92,#8D,#D2,#00,#00,#C9,#29       ;@..R..I)
  1325.        DB       #2F,#C9,#09,#00,#00,#74,#84,#E4       ;/I...t.d
  1326.        DB       #08,#8E,#81,#C9,#C0,#29,#86,#C6       ;...I@).F
  1327.        DB       #00,#00,#CF,#22,#E2,#0C,#E5,#8B       ;..O"b.e.
  1328.        DB       #46,#C9,#47,#41,#EE,#00,#00,#06       ;FIGAn...
  1329.        DB       #09,#0F,#09,#00,#23,#85,#E4,#94       ;....#.d.
  1330.        DB       #97,#94,#94,#C7,#00,#88,#70,#84       ;...G..p.
  1331.        DB       #B0,#94,#70,#00,#00,#73,#C0,#24       ;0.p..s@$
  1332.        DB       #00,#C7,#8F,#1C,#20,#18,#04,#B8       ;.G.. ..8
  1333.        DB       #00,#00,#39,#42,#32,#0A,#71,#00       ;..9B2.q.
  1334.        DB       #00,#B9,#C0,#12,#00,#9C,#84,#33       ;.9@....3
  1335.        DB       #48,#39,#08,#00,#E3,#81,#73,#C0       ;H9..c.s@
  1336.        DB       #4A,#87,#4B,#00,#00,#9C,#A0,#18       ;J.K... .
  1337.        DB       #84,#00,#23,#2F,#D8,#85,#1C,#21       ;..#/X..!
  1338.        DB       #39,#21,#21,#00,#16,#83,#21,#18       ;9!!...!.
  1339.        DB       #05,#00,#39,#81,#1C,#00,#32,#87       ;..9...2.
  1340.        DB       #1C,#00,#00,#91,#51,#51,#4A,#00       ;....QQJ.
  1341.        DB       #F9,#81,#C0,#03,#CE,#8F,#C1,#00       ;y.@.N.A.
  1342.        DB       #00,#81,#41,#81,#41,#89,#10,#00       ;..A.A...
  1343.        DB       #81,#42,#43,#42,#82,#07,#43,#C1       ;.BCB..CA
  1344.        DB       #04,#C7,#00,#98,#CE,#29,#E9,#29       ;.G..N)i)
  1345.        DB       #29,#00,#00,#0E,#09,#0E,#09,#0E       ;).......
  1346.        DB       #00,#00,#73,#84,#E3,#80,#77,#00       ;..s.c.w.
  1347.        DB       #00,#03,#04,#07,#08,#24,#96,#EF       ;.....$.o
  1348.        DB       #02,#C2,#22,#C2,#00,#00,#C7,#28       ;.B"B..G(
  1349.        DB       #2E,#28,#C7,#00,#00,#CC,#12,#9E       ;.(G..L..
  1350.        DB       #12,#12,#00,#00,#30,#C0,#48,#81       ;....0@H.
  1351.        DB       #30,#3F,#FE,#8B,#33,#48,#78,#48       ;0?~.3HxH
  1352.        DB       #48,#00,#00,#3A,#42,#72,#42,#01       ;H..:BrB.
  1353.        DB       #47,#00,#B2,#81,#92,#01,#4E,#81       ;G.2...N.
  1354.        DB       #20,#C0,#A1,#01,#40,#88,#98,#25       ; @!.@..%
  1355.        DB       #3C,#24,#25,#00,#00,#39,#00,#79       ;<$%..9.y
  1356.        DB       #01,#63,#81,#E3,#18,#F9,#81,#39       ;.c.c.y.9
  1357.        DB       #C0,#25,#45,#2B,#81,#EE,#01,#C0       ;@%E+.n.@
  1358.        DB       #84,#8E,#00,#00,#0C,#00,#EB,#87       ;......k.
  1359.        DB       #CC,#00,#00,#DC,#12,#D2,#52,#01       ;L..\.RR.
  1360.        DB       #4E,#8B,#E9,#09,#C6,#09,#E9,#00       ;N.i.F.i.
  1361.        DB       #00,#E0,#00,#C0,#20,#05,#3B,#88       ;.`.@ .;.
  1362.        DB       #D1,#1B,#95,#11,#D1,#00,#00,#3E       ;Q...Q..>
  1363.        DB       #C1,#88,#87,#00,#00,#2E,#29,#29       ;A.....))
  1364.        DB       #2E,#C8,#41,#40,#C0,#80,#01,#40       ;.HA@@..@
  1365.        DB       #85,#93,#94,#93,#90,#67,#13,#4F       ;.....g.O
  1366.        DB       #03,#51,#86,#00,#33,#4A,#7A,#4A       ;.Q..3JzJ
  1367.        DB       #4A,#37,#CA,#84,#71,#4A,#73,#4A       ;J7J.qJsJ
  1368.        DB       #01,#4E,#81,#E7,#00,#B9,#81,#E7       ;.N.g.9.g
  1369.        DB       #68,#1C,#85,#00,#3B,#40,#30,#08       ;h...;@0.
  1370.        DB       #01,#80,#85,#99,#25,#25,#A4,#18       ;....%%$.
  1371.        DB       #37,#FC,#81,#9C,#C0,#52,#01,#EB       ;7|..@R.k
  1372.        DB       #C4,#00,#84,#DC,#12,#9C,#12,#01       ;D..\....
  1373.        DB       #E3,#83,#03,#04,#03,#0B,#04,#81       ;c.......
  1374.        DB       #8C,#00,#1C,#81,#4C,#3F,#BE,#87       ;....L?>.
  1375.        DB       #E6,#89,#8F,#89,#89,#00,#00,#C0       ;f......@
  1376.        DB       #10,#82,#A0,#40,#37,#D4,#85,#E0       ;.. @7T.`
  1377.        DB       #90,#E0,#90,#90,#6F,#E2,#84,#BE       ;.`..ob.>
  1378.        DB       #08,#08,#88,#02,#BC,#00,#C6,#81       ;....<.F.
  1379.        DB       #50,#46,#87,#81,#38,#18,#80,#81       ;PF..8...
  1380.        DB       #32,#00,#B2,#81,#49,#DB,#00,#8C       ;2.2.I[..
  1381.        DB       #63,#94,#F3,#90,#97,#00,#00,#19       ;c.s.....
  1382.        DB       #25,#3D,#25,#24,#77,#30,#85,#0E       ;%=%$w0..
  1383.        DB       #10,#1C,#10,#CE,#DB,#00,#04,#6A       ;...N[..j
  1384.        DB       #09,#1C,#84,#07,#08,#0E,#08,#01       ;........
  1385.        DB       #07,#67,#72,#83,#93,#94,#67,#4A       ;.gr...gJ
  1386.        DB       #96,#D8,#00,#83,#49,#4A,#33,#78       ;.X..IJ3x
  1387.        DB       #AA,#82,#00,#39,#1B,#2B,#E0,#00       ;*..9.+`.
  1388.        DB       #85,#D2,#12,#8E,#02,#DC,#CE,#00       ;.R...\N.
  1389.        DB       #85,#CE,#29,#2E,#29,#C9,#FF,#00       ;.N).)I..
  1390.        DB       #FF,#00,#F3,#00,#84,#01,#39,#79       ;..s...9y
  1391.        DB       #79,#2E,#E8,#85,#3F,#1F,#0F,#07       ;y.h.?...
  1392.        DB       #02,#C9,#01,#C5,#03,#C7,#07,#07       ;.I.E.G..
  1393.        DB       #C6,#85,#07,#07,#03,#03,#01,#2F       ;F....../
  1394.        DB       #6E,#88,#07,#E7,#E7,#E6,#FD,#6A       ;n..ggf}j
  1395.        DB       #FF,#FE,#06,#FC,#06,#9F,#84,#FF       ;.~.|....
  1396.        DB       #FC,#C3,#3F,#07,#B1,#81,#FB,#00       ;|C?.1.{.
  1397.        DB       #10,#9A,#E6,#E4,#E6,#FD,#FE,#FB       ;..fdf}~{
  1398.        DB       #FE,#FD,#EE,#FD,#BB,#35,#3E,#3C       ;~}n};5><
  1399.        DB       #FE,#FD,#FA,#EC,#FE,#FC,#F8,#FC       ;~}zl~|x|
  1400.        DB       #DA,#FC,#EE,#F5,#26,#DD,#86,#F9       ;Z|nu&].y
  1401.        DB       #79,#79,#3F,#3F,#1F,#07,#D4,#9A       ;yy??..T.
  1402.        DB       #DF,#5F,#1F,#5F,#9F,#5F,#DB,#53       ;__._._[S
  1403.        DB       #93,#D3,#9F,#DF,#1F,#5E,#9F,#DF       ;.S._.^._
  1404.        DB       #9F,#1F,#9F,#5F,#9D,#3F,#BF,#3F       ;..._.???
  1405.        DB       #BF,#3F,#C0,#BF,#82,#3F,#7E,#2F       ;??@?.?~/
  1406.        DB       #85,#81,#FE,#10,#61,#9A,#FF,#FF       ;..~.a...
  1407.        DB       #FB,#E9,#F5,#E1,#F3,#EB,#BB,#EB       ;{iuask;k
  1408.        DB       #F3,#EB,#D7,#E7,#D7,#77,#D7,#A7       ;skWgWwW'
  1409.        DB       #57,#8F,#CF,#6F,#CF,#AF,#CF,#AF       ;W.OoO/O/
  1410.        DB       #00,#44,#00,#3A,#81,#DF,#00,#40       ;.D.:._.@
  1411.        DB       #00,#4E,#81,#DF,#08,#0E,#08,#0C       ;.N._....
  1412.        DB       #18,#10,#00,#52,#10,#18,#10,#0C       ;...R....
  1413.        DB       #67,#A0,#81,#BF,#07,#F7,#2F,#5F       ;g .?.w/_
  1414.        DB       #87,#F1,#CA,#95,#2F,#58,#27,#9F       ;.qJ./X'.
  1415.        DB       #17,#6B,#83,#FD,#FB,#FB,#C2,#F7       ;.k.}{{Bw
  1416.        DB       #C8,#EE,#86,#EC,#DC,#DC,#DD,#DC       ;Hn.l\\]\
  1417.        DB       #DC,#D6,#FF,#85,#C0,#2A,#55,#BF       ;\V..@*U?
  1418.        DB       #E0,#10,#3D,#9D,#E0,#9F,#7F,#FF       ;`.=.`...
  1419.        DB       #F0,#C0,#84,#8A,#05,#2B,#56,#2F       ;p@...+V/
  1420.        DB       #07,#2F,#5F,#B7,#5F,#3F,#5F,#BF       ;./_7_?_?
  1421.        DB       #6F,#3F,#7B,#BB,#7F,#BB,#7B,#FB       ;o?{;.;{{
  1422.        DB       #7B,#1F,#E3,#81,#DF,#C0,#8F,#60       ;{.c._@.`
  1423.        DB       #8A,#85,#01,#AE,#FF,#FF,#E7,#17       ;......g.
  1424.        DB       #73,#8E,#07,#F9,#FE,#FF,#0F,#A3       ;s..y~..#
  1425.        DB       #55,#BD,#7E,#DE,#FA,#BA,#FB,#BF       ;U=~^z:{?
  1426.        DB       #C0,#BB,#81,#BF,#10,#06,#C2,#BB       ;@;.?..B;
  1427.        DB       #01,#5D,#83,#FC,#FE,#F7,#09,#0E       ;.].|~w..
  1428.        DB       #0F,#4F,#81,#FD,#C0,#F8,#20,#BD       ;.O.}@x =
  1429.        DB       #89,#FF,#FF,#1F,#E3,#FC,#FF,#BF       ;....c|.?
  1430.        DB       #C7,#FD,#01,#2A,#86,#FB,#FF,#7F       ;G}.*.{..
  1431.        DB       #BF,#DF,#DF,#C2,#EF,#C8,#77,#81       ;?__BoHw.
  1432.        DB       #B7,#10,#44,#09,#5B,#11,#0F,#87       ;7.D.[...
  1433.        DB       #AF,#4D,#8C,#CC,#AC,#CF,#AF,#11       ;/M.L,O/.
  1434.        DB       #47,#96,#E7,#D7,#EB,#F3,#AB,#D3       ;G.gWks+S
  1435.        DB       #FB,#D3,#6B,#B3,#E3,#B3,#6B,#F3       ;{Sk3c3ks
  1436.        DB       #EB,#53,#BB,#D3,#EB,#53,#EB,#C3       ;kS;SkSkC
  1437.        DB       #01,#65,#85,#D3,#EB,#FB,#EB,#73       ;.e.Sk{ks
  1438.        DB       #01,#6D,#85,#F3,#DB,#F3,#AB,#F3       ;.m.s[s+s
  1439.        DB       #08,#12,#94,#6B,#9D,#9F,#95,#FE       ;...k...~
  1440.        DB       #FD,#BA,#F1,#FB,#F6,#AA,#F4,#EC       ;}:q{v*tl
  1441.        DB       #C0,#E9,#D1,#E9,#73,#E3,#D3,#00       ;@iQiscS.
  1442.        DB       #16,#83,#33,#2B,#3B,#00,#2C,#81       ;..3+;.,.
  1443.        DB       #C0,#10,#32,#01,#9D,#94,#E9,#F5       ;@.2...iu
  1444.        DB       #F9,#F5,#E9,#F5,#D9,#F1,#F9,#F4       ;yuiuYqyt
  1445.        DB       #FA,#FC,#FA,#FC,#FA,#EC,#FA,#FE       ;z|z|zlz~
  1446.        DB       #FA,#FD,#02,#0D,#89,#FC,#FA,#FD       ;z}...|z}
  1447.        DB       #FA,#60,#A0,#40,#C0,#80,#0C,#EC       ;z` @@..l
  1448.        DB       #14,#70,#C0,#E7,#31,#91,#8D,#FB       ;.p@g1..{
  1449.        DB       #FF,#3F,#C2,#FC,#FE,#FD,#76,#3F       ;.?B|~}v?
  1450.        DB       #3E,#3D,#FE,#FF,#02,#3D,#85,#FC       ;>=~..=.|
  1451.        DB       #FE,#FF,#FB,#EF,#02,#61,#10,#EA       ;~.{o.a.j
  1452.        DB       #02,#A5,#12,#0C,#81,#BF,#CB,#00       ;.%...?K.
  1453.        DB       #91,#80,#9C,#9E,#9A,#FC,#AA,#5E       ;.....|*^
  1454.        DB       #EA,#F4,#FA,#F0,#6A,#F4,#A8,#70       ;jtzpjt(p
  1455.        DB       #A0,#40,#0D,#48,#05,#5A,#81,#00       ; @.H.Z..
  1456.        DB       #10,#08,#94,#40,#80,#40,#80,#40       ;...@.@.@
  1457.        DB       #00,#40,#A0,#C0,#A0,#40,#A0,#E0       ;.@ @ @ `
  1458.        DB       #A0,#C0,#E0,#40,#A0,#D0,#E0,#FF       ; @`@ P`.
  1459.        DB       #00,#FF,#00,#C4,#00,#12,#80,#93       ;...D....
  1460.        DB       #FF,#F7,#FF,#7D,#BA,#75,#BA,#55       ;.w.}:u:U
  1461.        DB       #AA,#D7,#AE,#55,#AA,#45,#AA,#51       ;*W.U*E*Q
  1462.        DB       #8A,#45,#8A,#0D,#66,#81,#10,#D1       ;.E..f..Q
  1463.        DB       #00,#83,#01,#03,#0F,#C9,#00,#81       ;.....I..
  1464.        DB       #F0,#18,#41,#92,#FF,#FF,#BA,#5D       ;p.A...:]
  1465.        DB       #BA,#55,#AB,#5D,#AA,#55,#AA,#15       ;:U+]*U*.
  1466.        DB       #AA,#45,#A2,#48,#00,#01,#25,#D1       ;*E"H..%Q
  1467.        DB       #13,#C4,#8E,#02,#03,#06,#05,#0E       ;.D......
  1468.        DB       #0D,#1B,#17,#2B,#37,#6F,#DF,#BF       ;...+7o_?
  1469.        DB       #FF,#58,#FF,#03,#B6,#81,#7F,#03       ;.X..6...
  1470.        DB       #8C,#85,#5F,#AA,#55,#BA,#D5,#10       ;.._*U:U.
  1471.        DB       #3E,#93,#55,#88,#54,#00,#00,#0F       ;>.U.T...
  1472.        DB       #35,#6A,#D7,#AF,#DF,#AF,#DF,#BF       ;5jW/_/_?
  1473.        DB       #7F,#BF,#7F,#BF,#7F,#08,#22,#0B       ;.?.?..".
  1474.        DB       #DD,#81,#FE,#C1,#FD,#29,#B8,#C4       ;].~A})8D
  1475.        DB       #00,#22,#79,#8D,#FF,#DF,#7D,#FA       ;."y.._}z
  1476.        DB       #FD,#AA,#55,#AB,#D5,#A2,#55,#2A       ;}*U+U"U*
  1477.        DB       #85,#07,#BE,#87,#70,#F8,#FC,#FC       ;..>.px||
  1478.        DB       #F8,#F0,#F0,#00,#06,#83,#FC,#FC       ;xpp...||
  1479.        DB       #E0,#10,#07,#87,#84,#78,#D4,#EA       ;`....xTj
  1480.        DB       #F6,#FA,#FC,#69,#7D,#10,#C1,#87       ;vz|i}.A.
  1481.        DB       #FE,#FF,#F7,#BF,#5F,#BA,#5F,#01       ;~.w?_:_.
  1482.        DB       #02,#86,#55,#AA,#55,#82,#55,#0A       ;..U*U.U.
  1483.        DB       #0D,#CE,#46,#68,#DA,#00,#2A,#3A       ;.NFhZ.*:
  1484.        DB       #84,#5F,#BF,#55,#EA,#08,#40,#01       ;._?Uj.@.
  1485.        DB       #00,#84,#AA,#54,#20,#04,#E5,#00       ;..*T .e.
  1486.        DB       #81,#0F,#11,#00,#87,#FF,#EF,#FF       ;......o.
  1487.        DB       #7F,#AE,#5D,#EA,#00,#C2,#86,#2A       ;..]j.B.*
  1488.        DB       #55,#AA,#41,#82,#00,#08,#3F,#79       ;U*A...?y
  1489.        DB       #7F,#D0,#00,#0C,#4C,#81,#BF,#0B       ;.P..L.?.
  1490.        DB       #87,#86,#EF,#D5,#AA,#7D,#FA,#57       ;..oU*}zW
  1491.        DB       #08,#40,#84,#A8,#54,#A0,#02,#E6       ;.@.(T .f
  1492.        DB       #00,#1A,#F5,#0C,#0E,#86,#7F,#BA       ;..u....:
  1493.        DB       #7D,#AA,#55,#A2,#01,#02,#00,#82       ;}*U"....
  1494.        DB       #81,#04,#78,#FD,#D3,#00,#00,#BE       ;..x}S..>
  1495.        DB       #0D,#4A,#01,#C2,#87,#AB,#77,#AF       ;.J.B.+w/
  1496.        DB       #55,#AA,#D5,#AA,#08,#82,#85,#51       ;U*U*...Q
  1497.        DB       #82,#45,#0A,#00,#79,#3F,#D1,#00       ;.E..y?Q.
  1498.        DB       #29,#BE,#83,#F6,#7D,#EA,#00,#BC       ;)>.v}j.<
  1499.        DB       #82,#FA,#74,#11,#82,#85,#15,#AA       ;.zt....*
  1500.        DB       #41,#00,#00,#07,#EE,#E0,#00,#15       ;A...n`..
  1501.        DB       #CA,#05,#FA,#81,#FB,#02,#7A,#82       ;J.z.{.z.
  1502.        DB       #EA,#75,#09,#BE,#87,#AA,#55,#0A       ;ju.>.*U.
  1503.        DB       #15,#82,#00,#00,#79,#BE,#D1,#00       ;....y>Q.
  1504.        DB       #81,#03,#1A,#7E,#85,#EF,#FE,#BB       ;...~.o~;
  1505.        DB       #55,#BE,#00,#FE,#09,#7E,#85,#A0       ;U>.~.~.
  1506.        DB       #54,#A0,#44,#00,#62,#64,#D6,#00       ;T D.bdV.
  1507.        DB       #82,#FF,#DF,#20,#80,#85,#AE,#5F       ;.._ ..._
  1508.        DB       #BE,#D7,#AA,#08,#80,#87,#15,#22       ;>W*...."
  1509.        DB       #55,#A8,#00,#00,#40,#2E,#9D,#DC       ;U(..@..\
  1510.        DB       #00,#26,#09,#02,#FE,#82,#57,#EE       ;.&..~.Wn
  1511.        DB       #0B,#7A,#86,#55,#AA,#05,#8A,#44       ;.z.U*..D
  1512.        DB       #00,#7B,#78,#D5,#00,#23,#7D,#83       ;.{xU.#}.
  1513.        DB       #EA,#57,#BE,#02,#FA,#03,#7C,#82       ;jW>.z.|.
  1514.        DB       #01,#A2,#1B,#BA,#E4,#00,#0B,#57       ;.".:d..W
  1515.        DB       #81,#FE,#01,#FA,#85,#AE,#57,#AA       ;.~.z..W*
  1516.        DB       #5D,#AB,#03,#BA,#81,#A8,#03,#FE       ;]+.:.(.~
  1517.        DB       #81,#00,#7B,#F6,#D6,#00,#07,#70       ;..{vV..p
  1518.        DB       #8B,#F6,#FC,#FC,#FE,#DF,#FF,#57       ;.v||~_.W
  1519.        DB       #AA,#F5,#AB,#55,#0B,#3E,#82,#88       ;*u+U.>..
  1520.        DB       #10,#02,#7B,#7B,#3A,#CC,#00,#C3       ;..{{:L.C
  1521.        DB       #0F,#87,#0E,#0F,#0A,#01,#1E,#1F       ;........
  1522.        DB       #03,#C0,#00,#84,#E0,#FF,#DF,#75       ;.@..`._u
  1523.        DB       #00,#84,#85,#15,#AA,#54,#A8,#04       ;....*T(.
  1524.        DB       #79,#3A,#7D,#2E,#81,#D9,#0D,#DB       ;y:}..Y.[
  1525.        DB       #89,#71,#F9,#D5,#8B,#5B,#03,#F8       ;.qyU.[.x
  1526.        DB       #5F,#0A,#05,#C8,#83,#C0,#AE,#5D       ;_..H.@.]
  1527.        DB       #01,#00,#85,#15,#AA,#51,#80,#00       ;....*Q..
  1528.        DB       #7A,#FB,#7D,#6E,#8F,#FF,#FF,#FE       ;z{}n...~
  1529.        DB       #FF,#FD,#FF,#FE,#FF       ;.}.~.
  1530. L_74A6       DB       #DE,#F5,#AE,#04,#F0,#BF,#15,#0D       ;^u..p?..
  1531.        DB       #C4,#81,#57,#04,#FA,#82,#14,#A0       ;D.W.z..
  1532.        DB       #7C,#F2,#D2,#00,#27,#CC,#17,#D6       ;|rR.'L.V
  1533.        DB       #83,#00,#FF,#5F,#01,#ED,#85,#AE       ;..._.m..
  1534.        DB       #55,#28,#41,#80,#7D,#30,#D4,#00       ;U(A.}0T.
  1535.        DB       #07,#C4,#07,#C6,#08,#06,#C0,#DD       ;.D.F..@]
  1536.        DB       #83,#00,#FF,#55,#06,#44,#EA,#00       ;...U.Dj.
  1537.        DB       #8D,#FF,#7B,#FF,#7B,#FB,#FB,#BB       ;..{.{{{;
  1538.        DB       #FB,#FB,#BF,#FB,#BB,#BB,#10,#40       ;{{?{;;.@
  1539.        DB       #EB,#00,#0F,#C9,#37,#CE,#83,#00       ;k..I7N..
  1540.        DB       #FF,#57,#ED,#00,#0F,#C5,#81,#BA       ;.Wm..E.:
  1541.        DB       #18,#40,#82,#BA,#B9,#06,#43,#ED       ;.@.:9.Cm
  1542.        DB       #00,#82,#D3,#E3,#07,#E8,#8A,#EB       ;..Sc.h.k
  1543.        DB       #73,#AB,#53,#A3,#13,#AA,#00,#D5       ;s+S#.*.U
  1544.        DB       #FF,#07,#8A,#86,#01,#14,#0A,#05       ;........
  1545.        DB       #08,#05,#03,#B8,#7C,#BA,#D0,#00       ;...8|:P.
  1546.        DB       #8F,#FF,#FE,#FD,#FE,#FF,#FA,#FF       ;..~}~.z.
  1547.        DB       #FE,#EF,#BA,#57,#E0,#0A,#7F,#F8       ;~o:W`..x
  1548.        DB       #07,#C9,#05,#36,#81,#51,#13,#FE       ;.I.6.Q.~
  1549.        DB       #83,#50,#02,#05,#7A,#82,#37,#B0       ;.P..z.70
  1550.        DB       #0D,#18,#85,#01,#02,#45,#3F,#BF       ;.....E??
  1551.        DB       #C0,#3F,#89,#BF,#3B,#BE,#55,#9E       ;@?.?;>U.
  1552.        DB       #40,#15,#BF,#F0,#0E,#D5,#88,#AE       ;@.?p.U..
  1553.        DB       #5D,#EB,#55,#AB,#57,#8A,#55,#07       ;]kU+W.U.
  1554.        DB       #00,#87,#51,#A2,#51,#08,#85,#0A       ;..Q"Q...
  1555.        DB       #05,#06,#EA,#07,#E7,#14,#86,#0B       ;..j.g...
  1556.        DB       #CD,#81,#01,#05,#93,#84,#01,#00       ;M.......
  1557.        DB       #25,#0A,#00,#1E,#8F,#AA,#15,#50       ;%....*.P
  1558.        DB       #E0,#D0,#80,#D0,#60,#D0,#A0,#50       ;`P.P`P P
  1559.        DB       #80,#58,#F8,#C0,#C0,#00,#81,#03       ;.Xx@@...
  1560.        DB       #05,#3E,#89,#AF,#55,#EB,#D6,#AB       ;.>./UkV+
  1561.        DB       #55,#AE,#75,#AE,#0E,#06,#92,#51       ;U.u....Q
  1562.        DB       #AA,#57,#2A,#55,#0A,#14,#0A,#55       ;*W*U...U
  1563.        DB       #02,#15,#2A,#17,#2A,#55,#22,#11       ;..*.*U".
  1564.        DB       #2A,#00,#9E,#87,#8B,#55,#AA,#5D       ;*....U*]
  1565.        DB       #AA,#7D,#BA,#06,#E2,#C5,#00,#87       ;*}:.bE..
  1566.        DB       #E0,#FF,#7F,#7F,#3F,#1E,#3F,#27       ;`...?.?'
  1567.        DB       #43,#06,#C6,#88,#5F,#BF,#7B,#BF       ;C.F._?{?
  1568.        DB       #55,#AA,#57,#FA,#0F,#48,#82,#7D       ;U*Wz.H.}
  1569.        DB       #BA,#03,#94,#16,#52,#83,#55,#FA       ;:...R.Uz
  1570.        DB       #D5,#06,#5A,#88,#57,#AE,#57,#AF       ;U.Z.W.W/
  1571.        DB       #57,#EA,#55,#BE,#04,#E6,#C7,#00       ;WjU>.fG.
  1572.        DB       #81,#F8,#CC,#FF,#05,#0B,#0E,#4D       ;.xL....M
  1573.        DB       #07,#32,#81,#BB,#0E,#55,#84,#5F       ;.2.;.U._
  1574.        DB       #AB,#57,#EF,#0F,#48,#86,#5D,#BF       ;+Wo.H.]?
  1575.        DB       #5F,#FF,#7F,#EF,#07,#25,#17,#6E       ;_..o.%.n
  1576.        DB       #81,#BF,#CC,#47,#C0,#45,#82,#46       ;.?LG@E.F
  1577.        DB       #46,#00,#05,#82,#42,#42,#C3,#45       ;F...BBCE
  1578.        DB       #81,#40,#78,#20,#08,#19,#C0,#42       ;.@x ..@B
  1579.        DB       #20,#0A,#78,#40,#18,#1F,#28,#41       ; .x@..(A
  1580.        DB       #CD,#47,#40,#36,#78,#40,#10,#80       ;MG@6x@..
  1581.        DB       #58,#8E,#78,#7D,#40,#73,#10,#AE       ;X.x}@s..
  1582.        DB       #C7,#46,#78,#20,#58,#20,#10,#2C       ;GFx X .,
  1583.        DB       #60,#F0,#78,#20,#59,#10,#CE,#44       ;`px Y.ND
  1584.        DB       #61,#31,#78,#20,#78,#20,#78,#40       ;a1x x x@
  1585.        DB       #78,#40,#78,#60,#78,#60,#78,#80       ;x@x`x`x.
  1586.        DB       #78,#80,#78,#A0,#78,#C0,#78,#C0       ;x.x x@x@
  1587.        DB       #78,#E0,#2A,#18,#CF,#42,#78,#1E       ;x`*.OBx.
  1588.        DB       #FB,#42,#78,#64,#68,#6E,#D9,#42       ;{BxdhnYB
  1589.        DB       #78,#A4,#78,#AE,#D9,#42,#80       ;x$x.YB.
  1590. ;
  1591. DepackInputLevelCodeScreen
  1592.         halt;DI
  1593.         CALL    reter;#0052
  1594.         DEC     SP
  1595.         DEC     SP
  1596.         POP     BC
  1597.         LD      HL,#0097
  1598.         ADD     HL,BC
  1599.         EX      DE,HL
  1600.         LD      HL,#0066
  1601.         ADD     HL,BC
  1602.         LD      (HL),E
  1603.         INC     HL
  1604.         LD      (HL),D
  1605.         LD      HL,#007B
  1606.         ADD     HL,BC
  1607.         LD      (HL),E
  1608.         INC     HL
  1609.         LD      (HL),D
  1610.         LD      HL,#0089
  1611.         ADD     HL,BC
  1612.         LD      (HL),E
  1613.         INC     HL
  1614.         LD      (HL),D
  1615.         LD      HL,#00BE
  1616.         ADD     HL,BC
  1617.         LD      DE,#4000
  1618.         PUSH    DE
  1619.         EXX
  1620.         EX      AF,AF' ;'
  1621.         LD      A,#03
  1622.         OR      A
  1623.         LD      B,#08
  1624.         LD      C,B
  1625.         POP     HL
  1626.         EX      AF,AF' ;'
  1627.         EXX
  1628. L_76B9  LD      A,(HL)
  1629.         BIT     7,A
  1630.         JR      NZ,L_76F8
  1631.         AND     #07
  1632.         LD      C,A
  1633.         LD      A,(HL)
  1634.         RRCA
  1635.         RRCA
  1636.         RRCA
  1637.         AND     #0F
  1638.         ADD     A,#03
  1639.         LD      B,A
  1640.         INC     HL
  1641.         LD      A,E
  1642.         SUB     (HL)
  1643.         INC     HL
  1644.         PUSH    HL
  1645.         LD      L,A
  1646.         LD      A,D
  1647.         SBC     A,C
  1648.         LD      H,A
  1649. L_76D3  PUSH    HL
  1650.         LD      A,H
  1651.         AND     #58
  1652.         CP      #58
  1653.         JR      Z,L_76ED
  1654.         LD      C,A
  1655.         LD      A,L
  1656.         AND     #07
  1657.         OR      C
  1658.         LD      C,A
  1659.         ADD     HL,HL
  1660.         ADD     HL,HL
  1661.         LD      A,H
  1662.         AND     #1F
  1663.         LD      H,A
  1664.         LD      A,L
  1665.         AND     #E0
  1666.         OR      H
  1667.         LD      L,A
  1668.         LD      H,C
  1669. L_76ED  LD      A,(HL)
  1670.         CALL    L_74A6
  1671.         POP     HL
  1672.         INC     HL
  1673.         DJNZ    L_76D3
  1674.         POP     HL
  1675.         JR      L_76B9
  1676. ;
  1677. L_76F8  AND     #7F
  1678.         JR      Z,L_7719
  1679.         INC     HL
  1680.         BIT     6,A
  1681.         JR      NZ,L_770B
  1682.         LD      B,A
  1683. L_7702  LD      A,(HL)
  1684.         CALL    L_74A6
  1685.         INC     HL
  1686.         DJNZ    L_7702
  1687.         JR      L_76B9
  1688. ;
  1689. L_770B  AND     #3F
  1690.         ADD     A,#03
  1691.         LD      B,A
  1692.         LD      A,(HL)
  1693. L_7711  CALL    L_74A6
  1694.         DJNZ    L_7711
  1695.         INC     HL
  1696.         JR      L_76B9
  1697. ;
  1698. L_7719  EXX
  1699.         LD      HL,#2758
  1700.         EXX
  1701.         EI
  1702.         RET
  1703. ;
  1704.        DB       #13,#D9,#77,#08,#28,#19,#24,#10       ;.Yw.(.$.
  1705.        DB       #1B,#11,#20,#F8,#19,#0D,#20,#12       ;.. x.. .
  1706.        DB       #11,#01,#FF,#19,#C6,#08,#30,#08       ;....F.0.
  1707.        DB       #11,#E0,#07,#19,#3D,#18,#01,#23       ;.`..=..#
  1708.        DB       #0E,#08,#06,#08,#08,#D9,#C9,#FF       ;.....YI.
  1709.        DB       #00,#FF,#00,#FF,#00,#FF,#00,#FF       ;........
  1710.        DB       #00,#FF,#00,#FF,#00,#FF,#00,#FF       ;........
  1711.        DB       #00,#FF,#00,#E6,#00,#83,#01,#02       ;...f....
  1712.        DB       #05,#F8,#00,#85,#15,#2A,#55,#AB       ;.x...*U+
  1713.        DB       #77,#F7,#00,#86,#AA,#55,#AB,#7F       ;ww..*U+.
  1714.        DB       #FF,#FF,#F7,#00,#83,#80,#50,#EA       ;..w...Pj
  1715.        DB       #C0,#FF,#FA,#00,#83,#80,#C0,#E0       ;@.z...@`
  1716.        DB       #FF,#00,#FF,#00,#FF,#00,#FF,#00       ;........
  1717.        DB       #FF,#00,#FF,#00,#FF,#00,#FF,#00       ;........
  1718.        DB       #FF,#00,#FF,#00,#FF,#00,#FF,#00       ;........
  1719.        DB       #FF,#00,#FF,#00,#FF,#00,#FF,#00       ;........
  1720.        DB       #FF,#00,#FF,#00,#FF,#00,#FF,#00       ;........
  1721.        DB       #FF,#00,#FF,#00,#FF,#00,#FF,#00       ;........
  1722.        DB       #FF,#00,#EC,#00,#82,#01,#00,#07       ;..l.....
  1723.        DB       #A6,#90,#02,#05,#0A,#05,#0A,#17       ;&.......
  1724.        DB       #0A,#15,#2B,#15,#2B,#15,#2B,#17       ;..+.+.+.
  1725.        DB       #2B,#15,#C7,#00,#B6,#0A,#05,#0B       ;+.G.6...
  1726.        DB       #15,#0B,#16,#2B,#1F,#2B,#17,#2A       ;...+.+.*
  1727.        DB       #16,#2E,#16,#2F,#17,#2F,#1F,#2F       ;.../././
  1728.        DB       #17,#2B,#17,#2F,#57,#2F,#57,#2B       ;.+./W/W+
  1729.        DB       #5F,#AB,#55,#AB,#57,#AA,#55,#AA       ;_+U+W*U*
  1730.        DB       #5D,#AA,#57,#BC,#F1,#EA,#55,#CB       ;]*W<qjUK
  1731.        DB       #97,#AB,#97,#2F,#5F,#2F,#5F,#3F       ;.+./_/_?
  1732.        DB       #5F,#3F,#7F,#C7,#00,#86,#BF,#7F       ;_?.G..?.
  1733.        DB       #FF,#C3,#00,#7E,#00,#04,#88,#00       ;.C.~....
  1734.        DB       #06,#0F,#0F,#06,#00,#00,#C3,#C6       ;......CF
  1735.        DB       #FF,#84,#F9,#F8,#FC,#FE,#07,#61       ;..yx|~.a
  1736.        DB       #89,#7F,#AF,#57,#AB,#FD,#07,#51       ;../W+}.Q
  1737.        DB       #AA,#7D,#C9,#FF,#C7,#00,#10,#2F       ;*}I.G../
  1738.        DB       #81,#7E,#10,#05,#C0,#7E,#CA,#FF       ;.~..@~J.
  1739.        DB       #81,#3C,#C0,#00,#38,#4F,#89,#7E       ;.<@.8O.~
  1740.        DB       #7E,#BC,#BD,#BC,#D9,#DA,#D9,#DA       ;~<=<YZYZ
  1741.        DB       #00,#04,#81,#DB,#C7,#00,#07,#C3       ;...[G..C
  1742.        DB       #78,#80,#10,#84,#84,#9F,#1F,#3F       ;x......?
  1743.        DB       #7F,#28,#8D,#87,#E0,#8A,#55,#AB       ;.(..`.U+
  1744.        DB       #5F,#BF,#5F,#00,#AD,#18,#13,#C7       ;_?_.-..G
  1745.        DB       #00,#82,#F0,#F0,#C0,#F8,#81,#78       ;..pp@x.x
  1746.        DB       #C1,#FC,#C1,#7C,#C6,#FC,#C3,#FE       ;A|A|F|C~
  1747.        DB       #30,#CC,#85,#3F,#8F,#57,#EB,#FB       ;0L.?.Wk{
  1748.        DB       #C0,#FD,#C5,#FE,#CF,#00,#8A,#FE       ;@}E~O..~
  1749.        DB       #80,#80,#94,#8A,#94,#8E,#96,#8E       ;........
  1750.        DB       #96,#08,#04,#8A,#8E,#96,#0E,#97       ;........
  1751.        DB       #8F,#97,#0F,#57,#00,#2F,#C0,#80       ;...W./@.
  1752.        DB       #84,#C0,#C0,#E0,#E0,#C0,#F0,#C1       ;.@@``@pA
  1753.        DB       #F8,#28,#60,#C7,#00,#87,#FF,#80       ;x(`G....
  1754.        DB       #80,#95,#8A,#97,#8F,#30,#38,#81       ;.....08.
  1755.        DB       #8E,#00,#38,#85,#8F,#97,#80,#FF       ;..8.....
  1756.        DB       #00,#19,#28,#41,#6A,#D3,#00,#01       ;..(AjS..
  1757.        DB       #4B,#82,#55,#AA,#49,#51,#81,#55       ;K.U*IQ.U
  1758.        DB       #11,#60,#28,#40,#41,#6A,#D3,#00       ;.`(@AjS.
  1759.        DB       #78,#40,#78,#40,#D9,#00,#78,#80       ;x@x@Y.x.
  1760.        DB       #78,#80,#D9,#00,#78,#C0,#78,#C0       ;x.Y.x@x@
  1761.        DB       #D9,#00,#8B,#FF,#01,#01,#55,#A9       ;Y.....U)
  1762.        DB       #FD,#FD,#7D,#3D,#7D,#3D,#08,#04       ;}}}=}=..
  1763.        DB       #00,#08,#C1,#FD,#81,#01,#79,#00       ;..A}..y.
  1764.        DB       #DC,#00,#81,#7F,#00,#48,#81,#29       ;\....H.)
  1765.        DB       #C9,#7D,#C2,#FD,#00,#48,#FF,#00       ;I}B}.H..
  1766.        DB       #FF,#00,#FF,#00,#FF,#00,#FF,#00       ;........
  1767.        DB       #FF,#00,#FF,#00,#FF,#00,#FF,#00       ;........
  1768.        DB       #FF,#00,#FF,#00,#FF,#00,#FF,#00       ;........
  1769.        DB       #FF,#00,#FF,#00,#FF,#00,#CD,#00       ;......M.
  1770.        DB       #86,#7C,#72,#7C,#72,#72,#7C,#F7       ;.|r|rr|w
  1771.        DB       #00,#78,#40,#EB,#00,#86,#3E,#70       ;.x@k..>p
  1772.        DB       #7C,#70,#70,#3E,#F7,#00,#81,#1E       ;|pp>w...
  1773.        DB       #C1,#2E,#82,#7E,#42,#F6,#00,#86       ;A..~Bv..
  1774.        DB       #72,#72,#76,#7A,#72,#72,#F7,#00       ;rrvzrrw.
  1775.        DB       #81,#7F,#C2,#1C,#F7,#00,#79,#00       ;..B.w.y.
  1776.        DB       #FF,#00,#E9,#00,#01,#FD,#C0,#72       ;..i..}@r
  1777.        DB       #F7,#00,#81,#3C,#C1,#72,#81,#3C       ;w..<Ar.<
  1778.        DB       #F7,#00,#79,#C0,#FF,#00,#E9,#00       ;w.y@..i.
  1779.        DB       #C0,#4E,#82,#3E,#0E,#78,#C0,#E6       ;@N.>.x@f
  1780.        DB       #00,#0B,#3E,#82,#70,#70,#F7,#00       ;..>.ppw.
  1781.        DB       #79,#40,#EB,#00,#7B,#C0,#EB,#00       ;y@k.{@k.
  1782.        DB       #83,#72,#72,#7E,#7A,#00,#E8,#00       ;.rr~z.h.
  1783.        DB       #81,#3E,#01,#40,#82,#4E,#4E,#FF       ;.>.@.NN.
  1784.        DB       #00,#FF,#00,#FF,#00,#FF,#00,#FF       ;........
  1785.        DB       #00,#FF,#00,#FF,#00,#D8,#00,#FF       ;.....X..
  1786.        DB       #42,#FF,#42,#FF,#42,#E1,#42,#C2       ;B.B.BaBB
  1787.        DB       #47,#D8,#42,#18,#20,#C3,#47,#D1       ;GXB. CGQ
  1788.        DB       #42,#84,#47,#45,#47,#45,#00,#04       ;B.GEGE..
  1789.        DB       #C1,#46,#82,#47,#45,#D0,#42,#10       ;AF.GEPB.
  1790.        DB       #60,#81,#45,#18,#40,#78,#20,#20       ;`.E.@x  
  1791.        DB       #59,#C5,#45,#79,#77,#C4,#47,#D6       ;YEEywDGV
  1792.        DB       #42,#78,#20,#78,#DF,#78,#E1,#FF       ;Bx x_xa.
  1793.        DB       #42,#FF,#42,#FF,#42,#FF,#42,#D6       ;B.B.B.BV
  1794.        DB       #42,#80       ;B.
  1795. ;
  1796. DepackControlInformationScreen
  1797.         halt;DI
  1798.         CALL    reter;#0052
  1799.         DEC     SP
  1800.         DEC     SP
  1801.         POP     BC
  1802.         LD      HL,#0097
  1803.         ADD     HL,BC
  1804.         EX      DE,HL
  1805.         LD      HL,#0066
  1806.         ADD     HL,BC
  1807.         LD      (HL),E
  1808.         INC     HL
  1809.         LD      (HL),D
  1810.         LD      HL,#007B
  1811.         ADD     HL,BC
  1812.         LD      (HL),E
  1813.         INC     HL
  1814.         LD      (HL),D
  1815.         LD      HL,#0089
  1816.         ADD     HL,BC
  1817.         LD      (HL),E
  1818.         INC     HL
  1819.         LD      (HL),D
  1820.         LD      HL,#00BE
  1821.         ADD     HL,BC
  1822.         LD      DE,#4000
  1823.         PUSH    DE
  1824.         EXX
  1825.         EX      AF,AF' ;'
  1826.         LD      A,#03
  1827.         OR      A
  1828.         LD      B,#08
  1829.         LD      C,B
  1830.         POP     HL
  1831.         EX      AF,AF' ;'
  1832.         EXX
  1833. L_7A26  LD      A,(HL)
  1834.         BIT     7,A
  1835.         JR      NZ,L_7A65
  1836.         AND     #07
  1837.         LD      C,A
  1838.         LD      A,(HL)
  1839.         RRCA
  1840.         RRCA
  1841.         RRCA
  1842.         AND     #0F
  1843.         ADD     A,#03
  1844.         LD      B,A
  1845.         INC     HL
  1846.         LD      A,E
  1847.         SUB     (HL)
  1848.         INC     HL
  1849.         PUSH    HL
  1850.         LD      L,A
  1851.         LD      A,D
  1852.         SBC     A,C
  1853.         LD      H,A
  1854. L_7A40  PUSH    HL
  1855.         LD      A,H
  1856.         AND     #58
  1857.         CP      #58
  1858.         JR      Z,L_7A5A
  1859.         LD      C,A
  1860.         LD      A,L
  1861.         AND     #07
  1862.         OR      C
  1863.         LD      C,A
  1864.         ADD     HL,HL
  1865.         ADD     HL,HL
  1866.         LD      A,H
  1867.         AND     #1F
  1868.         LD      H,A
  1869.         LD      A,L
  1870.         AND     #E0
  1871.         OR      H
  1872.         LD      L,A
  1873.         LD      H,C
  1874. L_7A5A  LD      A,(HL)
  1875.         CALL    L_74A6
  1876.         POP     HL
  1877.         INC     HL
  1878.         DJNZ    L_7A40
  1879.         POP     HL
  1880.         JR      L_7A26
  1881. ;
  1882. L_7A65  AND     #7F
  1883.         JR      Z,L_7A86
  1884.         INC     HL
  1885.         BIT     6,A
  1886.         JR      NZ,L_7A78
  1887.         LD      B,A
  1888. L_7A6F  LD      A,(HL)
  1889.         CALL    L_74A6
  1890.         INC     HL
  1891.         DJNZ    L_7A6F
  1892.         JR      L_7A26
  1893. ;
  1894. L_7A78  AND     #3F
  1895.         ADD     A,#03
  1896.         LD      B,A
  1897.         LD      A,(HL)
  1898. L_7A7E  CALL    L_74A6
  1899.         DJNZ    L_7A7E
  1900.         INC     HL
  1901.         JR      L_7A26
  1902. ;
  1903. L_7A86  EXX
  1904.         LD      HL,#2758
  1905.         EXX
  1906.         EI
  1907.         RET
  1908. ;
  1909.        DB       #13,#D9,#77,#08,#28,#19,#24,#10       ;.Yw.(.$.
  1910.        DB       #1B,#11,#20,#F8,#19,#0D,#20,#12       ;.. x.. .
  1911.        DB       #11,#01,#FF,#19,#C6,#08,#30,#08       ;....F.0.
  1912.        DB       #11,#E0,#07,#19,#3D,#18,#01,#23       ;.`..=..#
  1913.        DB       #0E,#08,#06,#08,#08,#D9,#C9,#FE       ;.....YI~
  1914.        DB       #00,#86,#72,#72,#76,#7A,#72,#72       ;..rrvzrr
  1915.        DB       #F7,#00,#81,#3E,#C2,#70,#F7,#00       ;w..>Bpw.
  1916.        DB       #84,#7C,#72,#72,#7C,#78,#40,#DF       ;.|rr|x@_
  1917.        DB       #00,#8C,#01,#03,#05,#09,#11,#21       ;.......!
  1918.        DB       #45,#00,#3C,#72,#72,#7E,#78,#C0       ;E.<rr~x@
  1919.        DB       #D7,#00,#86,#01,#02,#04,#08,#10       ;W.......
  1920.        DB       #3F,#EF,#00,#08,#38,#8E,#11,#22       ;?o..8.."
  1921.        DB       #45,#8B,#17,#2F,#55,#AB,#05,#E3       ;E../U+.c
  1922.        DB       #25,#23,#25,#23,#00,#04,#83,#20       ;%#%#...
  1923.        DB       #3F,#00,#C0,#4E,#83,#3E,#0E,#3C       ;?.@N.>.<
  1924.        DB       #DD,#00,#88,#40,#A0,#10,#28,#54       ;]..@ .(T
  1925.        DB       #BA,#7D,#FE,#C3,#FF,#C6,#FE,#84       ;:}~C.F~.
  1926.        DB       #00,#FF,#00,#7E,#C2,#4E,#E4,#00       ;...~BNd.
  1927.        DB       #89,#80,#40,#A0,#D0,#E8,#F4,#FA       ;..@ Phtz
  1928.        DB       #01,#FF,#C6,#80,#79,#40,#E1,#00       ;..F.y@a.
  1929.        DB       #8A,#80,#00,#00,#20,#30,#28,#24       ;.... 0($
  1930.        DB       #22,#21,#28,#79,#40,#EA,#00,#08       ;"!(y@j..
  1931.        DB       #80,#09,#C2,#F7,#00,#81,#3E,#79       ;..Bw..>y
  1932.        DB       #00,#EA,#00,#00,#40,#00,#43,#E5       ;.j..@.Ce
  1933.        DB       #00,#85,#3C,#70,#3C,#0E,#0E,#10       ;..<p<...
  1934.        DB       #AE,#02,#77,#C0,#72,#0A,#C0,#02       ;..w@r.@.
  1935.        DB       #7F,#81,#3E,#E5,#00,#81,#7F,#C1       ;..>e...A
  1936.        DB       #1C,#81,#7F,#1A,#F8,#18,#38,#10       ;....x.8.
  1937.        DB       #12,#81,#1C,#E5,#00,#08,#74,#1B       ;...e..t.
  1938.        DB       #6E,#81,#3E,#C2,#75,#23,#40,#78       ;n.>Bu#@x
  1939.        DB       #80,#D4,#00,#38,#2E,#2B,#38,#79       ;.T.8.+8y
  1940.        DB       #00,#D9,#00,#13,#AD,#10,#EE,#39       ;.Y..-.n9
  1941.        DB       #0A,#E9,#00,#3B,#6E,#28,#F8,#03       ;.i.;n(x.
  1942.        DB       #80,#82,#72,#72,#7B,#00,#D4,#00       ;..rr{.T.
  1943.        DB       #39,#40,#28,#38,#81,#1E,#C1,#2E       ;9@(8..A.
  1944.        DB       #82,#7E,#42,#E4,#00,#0C,#2E,#1C       ;.~Bd....
  1945.        DB       #AE,#29,#4A,#13,#FF,#7C,#C0,#E6       ;.)J..|@f
  1946.        DB       #00,#78,#C0,#D9,#00,#C0,#0E,#82       ;.x@Y.@..
  1947.        DB       #4E,#4E,#13,#EE,#28,#0A,#7B,#00       ;NN.n(.{.
  1948.        DB       #D9,#00,#39,#2E,#29,#38,#7D,#00       ;Y.9.)8}.
  1949.        DB       #D9,#00,#3C,#6E,#2C,#78,#7A,#C0       ;Y.<n,xz@
  1950.        DB       #D9,#00,#3B,#00,#2B,#0A,#83,#71       ;Y.;.+..q
  1951.        DB       #7B,#75,#C0,#71,#E5,#00,#3A,#EE       ;{u@qe.:n
  1952.        DB       #2A,#F8,#7B,#40,#D9,#00,#3B,#40       ;*x{@Y.;@
  1953.        DB       #2B,#4A,#79,#C0,#D9,#00,#3B,#2E       ;+Jy@Y.;.
  1954.        DB       #2B,#38,#7A,#00,#D9,#00,#2B,#F6       ;+8z.Y.+v
  1955.        DB       #3C,#00,#7A,#C0,#EB,#00,#82,#18       ;<.z@k...
  1956.        DB       #18,#08,#04,#FF,#00,#FF,#00,#FF       ;........
  1957.        DB       #00,#F1,#00,#2F,#18,#87,#57,#2F       ;.q./..W/
  1958.        DB       #17,#0B,#05,#02,#01,#ED,#00,#82       ;.....m..
  1959.        DB       #89,#15,#07,#18,#81,#75,#C5,#FF       ;.....uE.
  1960.        DB       #89,#FC,#7D,#BD,#5D,#2D,#15,#09       ;.|}=]-..
  1961.        DB       #05,#03,#78,#48,#D5,#00,#85,#FF       ;..xHU...
  1962.        DB       #00,#00,#AA,#54,#47,#50,#C6,#00       ;..*TGPF.
  1963.        DB       #84,#3F,#10,#08,#04,#78,#90,#CE       ;.?...x.N
  1964.        DB       #00,#88,#BF,#A0,#A0,#A2,#A5,#A3       ;..?  "%#
  1965.        DB       #A5,#A3,#08,#04,#86,#A5,#A0,#BF       ;%#...% ?
  1966.        DB       #00,#3F,#20,#27,#DC,#8A,#E3,#05       ;.? '\.c.
  1967.        DB       #AB,#55,#2F,#17,#8B,#45,#22,#11       ;+U/..E".
  1968.        DB       #78,#48,#78,#80,#37,#D0,#82,#FF       ;xHx.7P..
  1969.        DB       #00,#37,#DE,#27,#ED,#87,#7D,#BA       ;.7^'m.}:
  1970.        DB       #54,#28,#10,#A0,#40,#D4,#00,#00       ;T(. @T..
  1971.        DB       #80,#82,#A5,#AA,#C5,#AF,#00,#80       ;..%*E/..
  1972.        DB       #37,#DA,#88,#FF,#01,#FA,#F4,#E8       ;7Z...zth
  1973.        DB       #D0,#A0,#40,#07,#AC,#D8,#00,#86       ;P @.,X..
  1974.        DB       #24,#EA,#05,#0A,#57,#AB,#29,#40       ;$j..W+)@
  1975.        DB       #8C,#0F,#EF,#2F,#2E,#2D,#2A,#24       ;..o/.-*$
  1976.        DB       #28,#30,#20,#00,#00,#78,#38,#D1       ;(0 ..x8Q
  1977.        DB       #00,#8B,#40,#20,#10,#88,#44,#A2       ;..@ ..D"
  1978.        DB       #D1,#E8,#F4,#FA,#FD,#78,#6F,#E7       ;Qhtz}xog
  1979.        DB       #00,#81,#80,#78,#A7,#FF,#00,#E4       ;...x'..d
  1980.        DB       #00,#3B,#D4,#C1,#00,#3F,#E2,#7F       ;.;TA.?b.
  1981.        DB       #5A,#D3,#00,#07,#42,#05,#57,#C5       ;ZS..B.WE
  1982.        DB       #00,#3D,#90,#3E,#EC,#DB,#00,#58       ;.=.>l[.X
  1983.        DB       #28,#3F,#22,#7D,#DA,#D3,#00,#5E       ;(?"}ZS.^
  1984.        DB       #42,#3F,#E2,#7F,#A2,#D3,#00,#84       ;B?b."S..
  1985.        DB       #72,#72,#76,#7A,#3F,#02,#7E,#10       ;rrvz?.~.
  1986.        DB       #DD,#00,#C2,#75,#46,#42,#81,#3C       ;].BuFB.<
  1987.        DB       #27,#CE,#78,#80,#D3,#00,#82,#72       ;'Nx.S..r
  1988.        DB       #72,#58,#80,#2D,#A2,#7F,#9A,#E1       ;rX.-"..a
  1989.        DB       #00,#3E,#90,#3E,#2C,#DB,#00,#0F       ;.>.>,[..
  1990.        DB       #C2,#83,#7A,#3C,#08,#C4,#00,#3F       ;B.z<.D.?
  1991.        DB       #10,#17,#1A,#7F,#5A,#D2,#00,#83       ;....ZR..
  1992.        DB       #18,#18,#30,#C4,#00,#3E,#90,#3E       ;..0D.>.>
  1993.        DB       #EC,#DB,#00,#7A,#00,#7E,#D0,#DD       ;l[.z.~P]
  1994.        DB       #00,#38,#80,#C7,#00,#7F,#DA,#D3       ;.8.G..ZS
  1995.        DB       #00,#5E,#C2,#4A,#76,#29,#CA,#DF       ;.^BJv)J_
  1996.        DB       #00,#39,#00,#3F,#D0,#5A,#98,#D7       ;.9.?PZ.W
  1997.        DB       #00,#81,#7C,#52,#E8,#83,#5D,#5D       ;..|Rh.]]
  1998.        DB       #3E,#C0,#5D,#C1,#00,#17,#6C,#7A       ;>@]A..lz
  1999.        DB       #C0,#D2,#00,#49,#80,#2A,#CE,#07       ;@R.I.*N.
  2000.        DB       #97,#7F,#DA,#D0,#00,#81,#3E,#12       ;..ZP..>.
  2001.        DB       #C1,#C5,#00,#3A,#40,#7F,#DA,#E1       ;AE.:@.Za
  2002.        DB       #00,#3B,#F6,#81,#1E,#C1,#2E,#82       ;.;v..A..
  2003.        DB       #7E,#42,#FF,#00,#FF,#00,#FF,#00       ;~B......
  2004.        DB       #FF,#00,#FF,#00,#FF,#00,#FF,#00       ;........
  2005.        DB       #FF,#00,#FF,#00,#FF,#00,#FF,#00       ;........
  2006.        DB       #FF,#00,#FF,#00,#FF,#00,#FF,#00       ;........
  2007.        DB       #FF,#00,#FF,#00,#FF,#00,#FF,#00       ;........
  2008.        DB       #FF,#00,#FF,#00,#FF,#00,#FF,#00       ;........
  2009.        DB       #FF,#00,#FF,#00,#FF,#00,#FF,#00       ;........
  2010.        DB       #FF,#00,#FF,#00,#FF,#00,#FF,#00       ;........
  2011.        DB       #FF,#00,#FF,#00,#D9,#00,#DD,#42       ;....Y.]B
  2012.        DB       #FF,#47,#FF,#47,#28,#84,#CF,#44       ;.G.G(.OD
  2013.        DB       #78,#20,#78,#20,#38,#C2,#CF,#45       ;x x 8BOE
  2014.        DB       #58,#DE,#CF,#46,#78,#20,#78,#20       ;X^OFx x
  2015.        DB       #39,#22,#11,#4C,#CA,#43,#78,#20       ;9".LJCx
  2016.        DB       #29,#70,#78,#20,#58,#20,#18,#48       ;)px X .H
  2017.        DB       #FF,#47,#FF,#47,#FF,#47,#FF,#47       ;.G.G.G.G
  2018.        DB       #FF,#47,#D5,#47,#80       ;.GUG.
  2019. ;
  2020. L_7DFA
  2021.         halt;DI
  2022.         CALL    reter;#0052
  2023.         DEC     SP
  2024.         DEC     SP
  2025.         POP     BC
  2026.         LD      HL,#0097
  2027.         ADD     HL,BC
  2028.         EX      DE,HL
  2029.         LD      HL,#0066
  2030.         ADD     HL,BC
  2031.         LD      (HL),E
  2032.         INC     HL
  2033.         LD      (HL),D
  2034.         LD      HL,#007B
  2035.         ADD     HL,BC
  2036.         LD      (HL),E
  2037.         INC     HL
  2038.         LD      (HL),D
  2039.         LD      HL,#0089
  2040.         ADD     HL,BC
  2041.         LD      (HL),E
  2042.         INC     HL
  2043.         LD      (HL),D
  2044.         LD      HL,#00BE
  2045.         ADD     HL,BC
  2046.         LD      DE,#4000
  2047.         PUSH    DE
  2048.         EXX
  2049.         EX      AF,AF' ;'
  2050.         LD      A,#03
  2051.         OR      A
  2052.         LD      B,#08
  2053.         LD      C,B
  2054.         POP     HL
  2055.         EX      AF,AF' ;'
  2056.         EXX
  2057. L_7E2E  LD      A,(HL)
  2058.         BIT     7,A
  2059.         JR      NZ,L_7E6D
  2060.         AND     #07
  2061.         LD      C,A
  2062.         LD      A,(HL)
  2063.         RRCA
  2064.         RRCA
  2065.         RRCA
  2066.         AND     #0F
  2067.         ADD     A,#03
  2068.         LD      B,A
  2069.         INC     HL
  2070.         LD      A,E
  2071.         SUB     (HL)
  2072.         INC     HL
  2073.         PUSH    HL
  2074.         LD      L,A
  2075.         LD      A,D
  2076.         SBC     A,C
  2077.         LD      H,A
  2078. L_7E48  PUSH    HL
  2079.         LD      A,H
  2080.         AND     #58
  2081.         CP      #58
  2082.         JR      Z,L_7E62
  2083.         LD      C,A
  2084.         LD      A,L
  2085.         AND     #07
  2086.         OR      C
  2087.         LD      C,A
  2088.         ADD     HL,HL
  2089.         ADD     HL,HL
  2090.         LD      A,H
  2091.         AND     #1F
  2092.         LD      H,A
  2093.         LD      A,L
  2094.         AND     #E0
  2095.         OR      H
  2096.         LD      L,A
  2097.         LD      H,C
  2098. L_7E62  LD      A,(HL)
  2099.         CALL    L_74A6
  2100.         POP     HL
  2101.         INC     HL
  2102.         DJNZ    L_7E48
  2103.         POP     HL
  2104.         JR      L_7E2E
  2105. ;
  2106. L_7E6D  AND     #7F
  2107.         JR      Z,L_7E8E
  2108.         INC     HL
  2109.         BIT     6,A
  2110.         JR      NZ,L_7E80
  2111.         LD      B,A
  2112. L_7E77  LD      A,(HL)
  2113.         CALL    L_74A6
  2114.         INC     HL
  2115.         DJNZ    L_7E77
  2116.         JR      L_7E2E
  2117. ;
  2118. L_7E80  AND     #3F
  2119.         ADD     A,#03
  2120.         LD      B,A
  2121.         LD      A,(HL)
  2122. L_7E86  CALL    L_74A6
  2123.         DJNZ    L_7E86
  2124.         INC     HL
  2125.         JR      L_7E2E
  2126. ;
  2127. L_7E8E  EXX
  2128.         LD      HL,#2758
  2129.         EXX
  2130.         EI
  2131.         RET
  2132. ;
  2133.        DB       #13,#D9,#77,#08,#28,#19,#24,#10       ;.Yw.(.$.
  2134.        DB       #1B,#11,#20,#F8,#19,#0D,#20,#12       ;.. x.. .
  2135.        DB       #11,#01,#FF,#19,#C6,#08,#30,#08       ;....F.0.
  2136.        DB       #11,#E0,#07,#19,#3D,#18,#01,#23       ;.`..=..#
  2137.        DB       #0E,#08,#06,#08,#08,#D9,#C9,#FF       ;.....YI.
  2138.        DB       #00,#FF,#00,#FF,#00,#FF,#00,#FF       ;........
  2139.        DB       #00,#FF,#00,#FF,#00,#FF,#00,#DD       ;.......]
  2140.        DB       #00,#89,#FF,#80,#80,#95,#8A,#97       ;........
  2141.        DB       #8F,#97,#8F,#08,#04,#00,#08,#ED       ;.......m
  2142.        DB       #00,#85,#FE,#00,#00,#54,#AA,#C8       ;..~..T*H
  2143.        DB       #FE,#DC,#00,#28,#6F,#84,#8E,#96       ;~\.(o...
  2144.        DB       #8E,#96,#08,#04,#00,#08,#40,#7D       ;......@}
  2145.        DB       #00,#87,#DC,#00,#85,#FF,#00,#00       ;..\.....
  2146.        DB       #55,#AA,#C0,#FF,#82,#00,#00,#C0       ;U*@....@
  2147.        DB       #4E,#85,#3E,#0E,#3C,#00,#00,#08       ;N.>.<...
  2148.        DB       #0E,#82,#FF,#FF,#78,#80,#D3,#00       ;....x.S.
  2149.        DB       #38,#40,#86,#7C,#72,#72,#7C,#70       ;8@.|rr|p
  2150.        DB       #70,#28,#40,#82,#00,#00,#00,#0F       ;p(@.....
  2151.        DB       #C0,#72,#DD,#00,#38,#80,#81,#3C       ;@r].8..<
  2152.        DB       #C1,#72,#30,#80,#38,#10,#DB,#00       ;Ar0.8.[.
  2153.        DB       #48,#80,#08,#82,#38,#80,#81,#1E       ;H...8...
  2154.        DB       #C1,#2E,#82,#7E,#42,#DC,#00,#39       ;A..~B\.9
  2155.        DB       #00,#82,#3E,#70,#00,#BF,#81,#3E       ;..>p.?.>
  2156.        DB       #38,#C0,#E3,#00,#39,#40,#83,#72       ;8@c.9@.r
  2157.        DB       #72,#7E,#10,#F0,#78,#40,#D9,#00       ;r~.px@Y.
  2158.        DB       #39,#80,#82,#70,#70,#58,#C0,#E3       ;9..ppX@c
  2159.        DB       #00,#39,#C0,#2C,#A9,#78,#C0,#D9       ;.9@,)x@Y
  2160.        DB       #00,#78,#40,#79,#00,#D9,#00,#78       ;.x@y.Y.x
  2161.        DB       #80,#1A,#40,#84,#3F,#7F,#3F,#7F       ;..@.?.?.
  2162.        DB       #08,#04,#81,#3F,#DC,#00,#85,#FF       ;...?\...
  2163.        DB       #01,#01,#55,#A9,#C0,#FD,#84,#3D       ;..U)@}.=
  2164.        DB       #7D,#3D,#7D,#08,#04,#83,#3D,#7D       ;}=}...=}
  2165.        DB       #BD,#CB,#FD,#ED,#00,#81,#7F,#02       ;=K}m....
  2166.        DB       #D1,#81,#2A,#C8,#7F,#ED,#00,#28       ;Q.*H.m.(
  2167.        DB       #91,#78,#80,#FF,#00,#FF,#00,#FF       ;.x......
  2168.        DB       #00,#FF,#00,#FF,#00,#FF,#00,#FF       ;........
  2169.        DB       #00,#FF,#00,#FF,#00,#FF,#00,#FF       ;........
  2170.        DB       #00,#FF,#00,#FF,#00,#FF,#00,#FF       ;........
  2171.        DB       #00,#D5,#00,#57,#4D,#82,#97,#80       ;.U.WM...
  2172.        DB       #7E,#19,#DC,#00,#37,#CB,#1F,#17       ;~.\.7K..
  2173.        DB       #7E,#59,#DC,#00,#1F,#CE,#00,#78       ;~Y\..N.x
  2174.        DB       #78,#40,#E2,#00,#18,#79,#81,#00       ;x@b..y..
  2175.        DB       #78,#40,#E5,#00,#17,#D0,#81,#00       ;x@e..P..
  2176.        DB       #78,#80,#E5,#00,#78,#40,#EB,#00       ;x.e.x@k.
  2177.        DB       #78,#80,#EB,#00,#78,#C0,#EB,#00       ;x.k.x@k.
  2178.        DB       #79,#00,#EB,#00,#79,#40,#EB,#00       ;y.k.y@k.
  2179. ;L_7FFE       EQU       $-7
  2180.        DB       #79,#80,#EB,#00,#79,#C0,#EA,#00       ;y.k.y@j.
  2181.        DB       #82,#7F,#BF,#7A,#40,#E9,#00,#1F       ;..?z@i..
  2182.        DB       #CE,#81,#01,#7A,#C0,#E4,#00,#37       ;N..z@d.7
  2183.        DB       #CB,#7B,#40,#E2,#00,#CB,#FD,#00       ;K{@b.K}.
  2184.        DB       #88,#FF,#00,#FF,#00,#FF,#00,#FF       ;........
  2185.        DB       #00,#FF,#00,#FF,#00,#FF,#00,#FF       ;........
  2186.        DB       #00,#FF,#00,#FF,#00,#FF,#00,#FF       ;........
  2187.        DB       #00,#FF,#00,#FF,#00,#FF,#00,#FF       ;........
  2188.        DB       #00,#FF,#00,#FF,#00,#FF,#00,#FF       ;........
  2189.        DB       #00,#FF,#00,#FF,#00,#FF,#00,#FF       ;........
  2190.        DB       #00,#FF,#00,#FF,#00,#FF,#00,#FF       ;........
  2191.        DB       #00,#FF,#00,#FF,#00,#FF,#00,#FF       ;........
  2192.        DB       #00,#FF,#00,#FF,#00,#FF,#00,#FF       ;........
  2193.        DB       #00,#FF,#00,#FF,#00,#FF,#00,#DE       ;.......^
  2194.        DB       #00,#FF,#45,#E5,#45,#C9,#47,#D1       ;..EeEIGQ
  2195.        DB       #45,#78,#20,#60,#40,#C7,#46,#78       ;Ex `@GFx
  2196.        DB       #40,#78,#60,#78,#80,#30,#41,#78       ;@x`x.0Ax
  2197.        DB       #80,#78,#A0,#FF,#45,#FF,#45,#FF       ;.x .E.E.
  2198.        DB       #45,#FF,#45,#FF,#45,#FF,#45,#FF       ;E.E.E.E.
  2199.        DB       #45,#D7,#45,#80       ;EWE.
  2200.  
  2201. setpgsmain40008000
  2202. pgmain4000=$+1
  2203.         ld a,0
  2204.         SETPG16K
  2205. pgcode8000=$+1
  2206.         ld a,0
  2207.         SETPG32KLOW
  2208.         ret
  2209.  
  2210. setpgsscr40008000;_current
  2211.         call getuser_scr_low_cur
  2212.         SETPG16K
  2213.         call getuser_scr_high_cur
  2214.         SETPG32KLOW
  2215.         ret
  2216.  
  2217.         if 1==0
  2218. setpgsscr40008000
  2219.         call getuser_scr_low
  2220.         SETPG16K
  2221.         call getuser_scr_high
  2222.         SETPG32KLOW
  2223.         ret
  2224.         endif
  2225.  
  2226. getuser_scr_low
  2227. getuser_scr_low_patch=$+1
  2228. getuser_scr_low_patchN=0xff&(user_scr0_low^user_scr1_low)
  2229.         ld a,(user_scr1_low) ;ok
  2230.         ret
  2231.  
  2232. getuser_scr_high
  2233. getuser_scr_high_patch=$+1
  2234. getuser_scr_high_patchN=0xff&(user_scr0_high^user_scr1_high)
  2235.         ld a,(user_scr1_high) ;ok
  2236.         ret
  2237.  
  2238. getuser_scr_low_cur
  2239. getuser_scr_low_cur_patch=$+1
  2240. getuser_scr_low_cur_patchN=0xff&(user_scr0_low^user_scr1_low)
  2241.         ld a,(user_scr0_low) ;ok
  2242.         ret
  2243.  
  2244. getuser_scr_high_cur
  2245. getuser_scr_high_cur_patch=$+1
  2246. getuser_scr_high_cur_patchN=0xff&(user_scr0_high^user_scr1_high)
  2247.         ld a,(user_scr0_high) ;ok
  2248.         ret
  2249.  
  2250. changescrpg_current
  2251.         ld hl,getuser_scr_low_patch
  2252.         ld a,(hl)
  2253.         xor getuser_scr_low_patchN
  2254.         ld (hl),a
  2255.         ld hl,getuser_scr_high_patch
  2256.         ld a,(hl)
  2257.         xor getuser_scr_high_patchN
  2258.         ld (hl),a
  2259.         ld hl,getuser_scr_low_cur_patch
  2260.         ld a,(hl)
  2261.         xor getuser_scr_low_cur_patchN
  2262.         ld (hl),a
  2263.         ld hl,getuser_scr_high_cur_patch
  2264.         ld a,(hl)
  2265.         xor getuser_scr_high_cur_patchN
  2266.         ld (hl),a
  2267.  
  2268.         ld a,1
  2269. curscrnum=$+1
  2270.         xor 0
  2271.         ld ($-1),a
  2272.         ret
  2273.        
  2274.         if 1==0
  2275. changescrpg
  2276.         call changescrpg_current
  2277.         ld (curscrnum_int),a
  2278.         ret
  2279.         endif
  2280.  
  2281. primgega
  2282. ;b=hgt,c=wid (/2)
  2283. ;de=gfx
  2284. ;hl=scr
  2285.         push bc
  2286.         call setpgsscr40008000
  2287.         call setpggfxc000
  2288.         pop bc
  2289. primgega0
  2290.         push bc
  2291.         ld hx,b
  2292.         push hl
  2293.         ld bc,40
  2294. primgegacolumn0
  2295.         ld a,(de)
  2296.         inc de
  2297.         ld (hl),a
  2298.         add hl,bc
  2299.         dec hx
  2300.         jr nz,primgegacolumn0
  2301.         pop hl
  2302.         ld a,0x9f;0xa0
  2303.         cp h
  2304.         ld bc,0x4000
  2305.         adc hl,bc
  2306.         jp pe,primgegacolumn0q ;т яюыютшэх ёыєўрхт
  2307. ;8000->ё000 (эрфю 6000) шыш a000->e001 (эрфю 4001)
  2308.          inc a
  2309.         xor h
  2310.         ld h,a
  2311. primgegacolumn0q
  2312.         pop bc
  2313.         dec c
  2314.         jr nz,primgega0
  2315.         call setpgcodec000
  2316.         jp setpgsmain40008000
  2317.  
  2318. clsega
  2319.         call setpgsscr40008000
  2320.         ld hl,0x4000
  2321.         ld de,0x4001
  2322.         ld bc,0x7fff
  2323.         ld (hl),l;0
  2324.         ldir
  2325.         jp setpgsmain40008000
  2326.  
  2327.         if EGA
  2328. DrawTile_A_X2Y2DE
  2329.         sla     D
  2330.         sla     E
  2331. DrawTile_A_XYDE
  2332.         LD      H,a
  2333.         LD      L,0
  2334.         srl h
  2335.         rr l
  2336.         LD      bc,tilegfx
  2337.         ADD     HL,bc
  2338.         ex de,hl
  2339. ;hl=xy
  2340.         ld a,h ;x
  2341.          add a,4
  2342.         ;ld l,l ;y
  2343.         ld h,0
  2344.         ld b,h
  2345.         ld c,l
  2346.         add hl,hl
  2347.         add hl,hl
  2348.         add hl,bc ;*5
  2349.          add hl,hl
  2350.          add hl,hl
  2351.          add hl,hl ;*40
  2352.          add hl,hl
  2353.          add hl,hl
  2354.          add hl,hl
  2355.         add a,l
  2356.         ld l,a
  2357.         ld a,h
  2358.         adc a,0x40
  2359.         ld h,a
  2360.         ld bc,0x1008 ;b=hgt,c=wid (/2)
  2361. ;de=gfx
  2362. ;hl=scr
  2363.         jp primgega
  2364.         endif
  2365.  
  2366.        if EGA
  2367. DrawSprite_Akeep_DExy
  2368.         LD      (cursprite),A
  2369. DrawSprite_A_DExy
  2370. ;A=sprnum
  2371. ;DE=xy
  2372.         push bc
  2373.         push de
  2374.         push iy
  2375.         add a,a
  2376.         ld l,a
  2377.         ld h,0xc0
  2378.         call setpggfxc000
  2379.         ld a,(hl)
  2380.         ld ly,a
  2381.         inc l
  2382.         ld a,(hl)
  2383.         ld hy,a
  2384.         call setpgsscr40008000
  2385.         ld c,e ;y
  2386.         ld a,d ;x
  2387.         srl a
  2388.         add a,sprmaxwid-1
  2389.         ld e,a
  2390. ;e=x = -(sprmaxwid-1)..159 (ъюфшЁєхЄё  ъръ x+(sprmaxwid-1))
  2391. ;c=y = -(sprmaxhgt-1)..199 (ъюфшЁєхЄё  ъръ хёЄ№)
  2392.         call prspr
  2393.         pop iy
  2394.         call setpgcodec000
  2395.         call setpgsmain40008000
  2396.         pop de
  2397.         pop bc
  2398.         ret
  2399.        endif
  2400.  
  2401.         include "prspr.asm"
  2402.  
  2403.         if EGA
  2404. gettilebuf
  2405.        ds 128
  2406.         endif
  2407.        if EGA
  2408. GetTileToHL_DEXY
  2409. ;hl=addr
  2410. ;e=Y
  2411. ;d=X
  2412.         push bc
  2413.         push de
  2414.         sla d
  2415.         sla d
  2416.         sla d
  2417.         sla e
  2418.         sla e
  2419.         sla e        
  2420.         ld bc,0x1008 ;b=hgt,c=wid (/2)
  2421.         jr GetBuf2CxB_DExy_ToHL
  2422.        if 1==0
  2423.        ld b,12*8
  2424. gettilefake0
  2425.        ld a,r
  2426.        ld (hl),a
  2427.        inc hl
  2428.        djnz gettilefake0
  2429.        pop de
  2430.        pop bc
  2431.        ret
  2432.        endif
  2433. GetBuf24x16_DExy
  2434. ;e=y
  2435. ;d=x
  2436.         push bc
  2437.         push de
  2438.         ld bc,0x100c ;b=hgt,c=wid (/2)
  2439.         ld hl,rebuf24x16
  2440. GetBuf2CxB_DExy_ToHL
  2441.         push hl ;gfx
  2442.         ld a,d ;x
  2443.         srl a
  2444.         srl a
  2445.         srl a
  2446.          add a,4
  2447.         ld l,e ;y
  2448.         ld h,0
  2449.         ld d,h
  2450.         ld e,l
  2451.         add hl,hl
  2452.         add hl,hl
  2453.         add hl,de ;*5
  2454.          add hl,hl
  2455.          add hl,hl
  2456.          add hl,hl ;*40
  2457.         add a,l
  2458.         ld l,a
  2459.         ld a,h
  2460.         adc a,0x40
  2461.         ld h,a
  2462.         pop de ;gfx
  2463. ;de=gfx
  2464. ;hl=scr
  2465.         push bc
  2466.         call setpgsscr40008000
  2467.         pop bc
  2468. getimgega0
  2469.         push bc
  2470.         ld hx,b
  2471.         push hl
  2472.         ld bc,40
  2473. getimgegacolumn0
  2474.         ld a,(hl)
  2475.         ld (de),a
  2476.         inc de
  2477.         add hl,bc
  2478.         dec hx
  2479.         jr nz,getimgegacolumn0
  2480.         pop hl
  2481.         ld a,0x9f;0xa0
  2482.         cp h
  2483.         ld bc,0x4000
  2484.         adc hl,bc
  2485.         jp pe,getimgegacolumn0q ;т яюыютшэх ёыєўрхт
  2486. ;8000->ё000 (эрфю 6000) шыш a000->e001 (эрфю 4001)
  2487.          inc a
  2488.         xor h
  2489.         ld h,a
  2490. getimgegacolumn0q
  2491.         pop bc
  2492.         dec c
  2493.         jr nz,getimgega0
  2494.         call setpgsmain40008000
  2495.         pop de
  2496.         pop bc
  2497.         ret
  2498.  
  2499. ReBuf24x16_DExy
  2500. ;e=y
  2501. ;d=x (width 16 if multiple of 8)
  2502.         push bc
  2503.         push de
  2504.         ld bc,0x1008 ;b=hgt,c=wid (/2)
  2505.         ld a,d
  2506.         and 7
  2507.         jr z,$+4
  2508.          ld c,0x0c
  2509.         ld a,d ;x
  2510.         srl a
  2511.         srl a
  2512.         srl a
  2513.          add a,4
  2514.         ld l,e ;y
  2515.         ld h,0
  2516.         ld d,h
  2517.         ld e,l
  2518.         add hl,hl
  2519.         add hl,hl
  2520.         add hl,de ;*5
  2521.          add hl,hl
  2522.          add hl,hl
  2523.          add hl,hl ;*40
  2524.         add a,l
  2525.         ld l,a
  2526.         ld a,h
  2527.         adc a,0x40
  2528.         ld h,a
  2529.         ld de,rebuf24x16
  2530. ;de=gfx
  2531. ;hl=scr
  2532.         call primgega
  2533.         pop de
  2534.         pop bc
  2535.         ret
  2536.  
  2537. buf24x16
  2538.         ds 12*16
  2539. buf24x16_2
  2540.         ds 12*16
  2541. gettilebuf2
  2542.         ds 8*16
  2543. rebuf24x16
  2544.         ds 12*16
  2545.        endif
  2546.  
  2547.        if EGA
  2548. DrawSprite16x16_HL_DExy
  2549. ;hl=gfx
  2550. ;e=y
  2551. ;d=x (pixel perfect!)
  2552.         push bc
  2553.         push de
  2554.         ex de,hl
  2555.         ld b,0
  2556.         ld a,h ;x
  2557.         srl a
  2558.         ;ld l,l ;y
  2559.         ld c,l
  2560.         srl a ;x bit 0
  2561.         ;ld h,0x40/32/2
  2562.         ;jr nc,$+4 ;x bit 0
  2563.         ; ld h,0x80/32/2
  2564.          ld h,b;0
  2565.          rl h
  2566.          inc h ;0x40/32/2 шыш 0x80/32/2
  2567.         srl a ;x bit 1
  2568.          rl h
  2569.         add hl,hl
  2570.         add hl,hl
  2571.         add hl,bc
  2572.         add hl,hl
  2573.         add hl,hl
  2574.         add hl,hl ;y*40+scrbase
  2575.          if scrbase&0xff
  2576.          add a,scrbase&0xff
  2577.          endif
  2578. ;a=x/4
  2579.         add a,l
  2580.         ld l,a
  2581.         adc a,h
  2582.         sub l
  2583.         ld h,a ;hl=scr
  2584. ;de=gfx
  2585. ;hl=scr
  2586.         ld bc,0x1008 ;b=hgt,c=wid (/2)
  2587.         call primgega
  2588.         pop de
  2589.         pop bc
  2590.         ret
  2591.        endif
  2592.  
  2593.        if EGA
  2594. ClearTile_DExy
  2595.         ;ret
  2596. ;E=y
  2597. ;D=x (width 24 if not multiple of 8)
  2598.         push bc
  2599.         push de
  2600.         ld bc,0x1008 ;b=hgt,c=wid (/2)
  2601.         ld a,d ;x
  2602.         and 7
  2603.         jr z,$+4
  2604.          ld c,0x0c ;wid (/2)
  2605.         ld a,d
  2606.         srl a
  2607.         srl a
  2608.         srl a
  2609.          add a,4
  2610.         ld l,e ;y
  2611.         ld h,0
  2612.         ld d,h
  2613.         ld e,l
  2614.         add hl,hl
  2615.         add hl,hl
  2616.         add hl,de ;*5
  2617.          add hl,hl
  2618.          add hl,hl
  2619.          add hl,hl ;*40
  2620.         add a,l
  2621.         ld l,a
  2622.         ld a,h
  2623.         adc a,0x40
  2624.         ld h,a
  2625.         ld de,zeros24x16
  2626. ;de=gfx
  2627. ;hl=scr
  2628.         call primgega
  2629.         pop de
  2630.         pop bc
  2631.         ret
  2632. zeros24x16
  2633.         ds 12*16
  2634.        endif
  2635.  
  2636.        if EGA
  2637. GetCurTileTobuf24x16
  2638.         CALL    countcurtileaddr
  2639.         LD      H,(hl)
  2640.         LD      L,0
  2641.         srl h
  2642.         rr l
  2643.         LD      bc,tilegfx
  2644.         ADD     HL,bc      
  2645.         LD DE,buf24x16
  2646.         ld bc,8*16
  2647.         ldir
  2648.         ret
  2649.        endif
  2650.  
  2651.         if EGA
  2652. Clear2Bytes_ADyx
  2653. ;A=y
  2654. ;D=x
  2655.         push bc
  2656.         ld l,a ;y
  2657.         ld a,d ;x
  2658.         srl a
  2659.         srl a
  2660.         srl a
  2661.          add a,4
  2662.         ld h,0
  2663.         ld d,h
  2664.         ld e,l
  2665.         add hl,hl
  2666.         add hl,hl
  2667.         add hl,de ;*5
  2668.          add hl,hl
  2669.          add hl,hl
  2670.          add hl,hl ;*40
  2671.         add a,l
  2672.         ld l,a
  2673.         ld a,h
  2674.         adc a,0x40
  2675.         ld h,a
  2676.         call setpgsscr40008000
  2677.         ld (hl),d;0
  2678.         set 5,h
  2679.         ld (hl),d;0
  2680.         set 7,h
  2681.         res 6,h
  2682.         ld (hl),d;0
  2683.         res 5,h
  2684.         ld (hl),d;0
  2685.         inc hl
  2686.         ld (hl),d;0
  2687.         set 5,h
  2688.         ld (hl),d;0
  2689.         res 7,h
  2690.         set 6,h
  2691.         ld (hl),d;0
  2692.         res 5,h
  2693.         ld (hl),d;0
  2694.         call setpgsmain40008000
  2695.         pop bc
  2696.         ret
  2697.         endif
  2698.  
  2699.         ds 0x3f00-$
  2700.         ds 0x4000-$
  2701.         incbin "slabage/sprdata.bin"
  2702. tilegfx=$+0x8000
  2703.         incbin "slabage/tiles.bin"
  2704. panelgfx=$+0x8000
  2705.         incbin "slabage/panel.bin"
  2706.  
  2707.         ds 0x8000-$
  2708.         include "SB.ASM"
  2709. end
  2710.  
  2711.         display "End=",end
  2712.         ;display "Free after end=",/d,#c000-end
  2713.         display "Size ",/d,end-begin," bytes"
  2714.         savebin "slabage.com",begin,end-begin
  2715.         LABELSLIST "../../../us/user.l"
  2716.