home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / BEEHIVE / UTILITYS / SCSLIB.ARC / LIBRARY.Z80 < prev   
Text File  |  1989-09-27  |  15KB  |  934 lines
  1. .COMMENT *
  2.  
  3.     This library was created by M.L.C and M.A.S of Superior Computer
  4. Software... Feel free to use and distribute it! If you would like to send
  5. a donation or an enquiry about our many high quality microbee games then
  6. send a letter to:
  7.  
  8. MARK COCQUIO
  9. c/ Superior Computer Software
  10. 9 Aston St
  11. Gladesville NSW 2111
  12.  
  13.     Look for other S.C.S public domain releases like OPEN, FIGHTER,
  14. NANOC the DESTROYER and FORTRIS.
  15.  
  16.     This library is designed for M80. Modifications may be needed for
  17. other assembler like Z8E (or whatever its called) and MAC. If you have
  18. EDASM (c/ Microbee Systems!) then THROW IT OUT!!!
  19.  
  20.     Stay tuned (in) for more S.C.S releases... M.L.C 8-) 26/01/91 *
  21.  
  22.  
  23.  
  24. ; THIS FILE CONTAINS A LIBRARY OF THE SUBROUTINES THAT I USE THE MOST...
  25.  
  26. ; NOTE THAT MANY OF THESE ROUTINES RELY ON OTHER ROUTINES (INCLUDED HERE)
  27. ; TO WORK PROPERLY... EG:  CHKCOL: SHOULD BE CALLED AT THE START OF EVERY
  28. ; PROGRAMME USING THESE ROUTINES; PUTCRT MUST BE CALLED BEFORE CALLING PCGLAY:
  29.  
  30. ; FINALLY, NEARLY *ALL* OF THESE ROUTINES USE MACROS. THE MACROS ARE INCLUDED
  31. ; AFTER THESE COMMENTS
  32. ; USE THESE AS MUCH AS YOU WANT!
  33.  
  34. ; USEAGE OF SOME ROUTINES:
  35. ; GRLOAD - loads a file (filename pointed to by HL). A=0, normal load,
  36. ; A=1, pixel fadeout screen first, A=2, pixel fade-in new screen, A=3 fadeout
  37. ; old screen and then fade-in new screen. When returned, A=255 means file not
  38. ; found, A=0 means all went as planned. P.S. - When calling, if bit 7 of a is
  39. ; set then the screen will be loaded as 32-line. (32 LINES CAN'T BE FADED IN!)
  40. ; PIXOUT - Fades out both pcgs and text. Needs no parms
  41. ; PIXIN  - Fades in text then pcgs. Needs (DESTIN), where destin is the spot
  42. ; where the screen was loaded (it calculates destin+128+1024 to get PCG loc).
  43. ; PRINTS - Load hl,source and de,destination (in memory). String format is:
  44. ; first_byte,'Stringtoprint$',colour_number. First byte=1 for pcg string.
  45. ; LOADM  - HL points to destination. It calls FNF if the file is not found.
  46. ; SAVEM  - Start save at HL and save for BC sectors (1 sector = 128 bytes)
  47. ; MOREHE - Call this BEFORE calling INKEY. It determines the keyboard type and
  48. ; directs a call to INKEY to the XBIOS-C driver if the machine is a TC.
  49. ; INKEY  - Load A with the value of the key to test. Z if pressed.
  50. ; PUTCRT - Load A with 32 for 64*32 mode. Any other value places the screen in
  51. ; 64*16 mode.
  52. ;
  53. ; TO USE A ROUTINE:
  54. ; YOUR PROGRAMME MUST HAVE THE COMMAND:
  55. ;     .REQUEST    LIBRARY
  56. ; FOLLOWED BY THE COMMAND:
  57. ;     EXTERN    <name>, [<name>,...]
  58. ; WHERE NAME(S) ARE THOSE OF THE ROUTINES WITH :: AFTER THE LABEL.
  59. ; 
  60. ; YOU CAN THEN CALL THE ROUTINES AT WILL IN THE REST OF YOUR PROGRAMME,
  61. ; PROVIDED THAT YOU HAVE A COPY OF LIBRARY.REL (THE ASSEMBLED VERSION OF
  62. ; THIS FILE) ON THE SAME DRIVE.
  63.  
  64.  
  65.     .Z80            ; Z80 MNEMONICS
  66.     CSEG            ; RELOCATABLE CODE SEGMENT (NOT ASEG!)
  67.     .RADIX    10D        ; DEFAULT RADIX IS BASE 10 (DECIMAL)
  68.  
  69.  
  70. ; START OF MACROS
  71.  
  72. CLS    MACRO    AMOUNT        ; WRITES <AMOUNT> SPACES TO THE SCREEN RAM
  73.     LD    HL,61440
  74.     LD    DE,61441
  75.     LD    BC,AMOUNT
  76.     LD    (HL),32
  77.     LDIR
  78.     ENDM
  79. PUSHALL    MACRO            ; PUSHES ALL REGISTERS
  80.     PUSH    AF
  81.     PUSH    BC
  82.     PUSH    DE
  83.     PUSH    HL
  84.     PUSH    IX
  85.     PUSH    IY
  86.     ENDM
  87. POPALL    MACRO            ; POPS ALL REGISTERS
  88.     POP    IY
  89.     POP    IX
  90.     POP    HL
  91.     POP    DE
  92.     POP    BC
  93.     POP    AF
  94.     ENDM
  95. BIOS    MACRO    NUMBER        ; PERFORMS BIOS CALL NUMBERED <NUMBER>
  96.     LD    HL,(1)
  97.     PUSH    DE
  98.     LD    DE,3*NUMBER
  99.     ADD    HL,DE
  100.     POP    DE
  101.     LD    IX,$+7
  102.     PUSH    IX
  103.     JP    (HL)
  104.     ENDM
  105.  
  106.  
  107. ; START OF ROUTINES!
  108.  
  109. PUTCRT::    CP    32
  110.     JP    Z,L323
  111.     LD    HL,CTREND        ; PLACE THE SCREEN IN 64*16 MODE
  112. RL323:    LD    B,16
  113. HYDE:   LD    A,B
  114.     DEC    A
  115.     OUT    (12),A
  116.     LD    A,(HL)
  117.     OUT    (13),A
  118.     DEC    HL
  119.     DJNZ    HYDE
  120.     RET
  121.     DB    6BH
  122.     DB    40H
  123.     DB    51H
  124.     DB    37H
  125.     DB    12H
  126.     DB    09H
  127.     DB    12H
  128.     DB    12H
  129.     DB    48H
  130.     DB    0FH
  131.     DB    2FH
  132.     DB    0FH
  133.     DB    0
  134.     DB    0
  135.     DB    0
  136. CTREND: DB    0
  137.     DB    6BH
  138.     DB    40H
  139.     DB    51H
  140.     DB    37H
  141.     DB    25H
  142.     DB    09H
  143.     DB    20H
  144.     DB    23H
  145.     DB    48H
  146.     DB    07H
  147.     DB    20H
  148.     DB    0FH
  149.     DB    20H
  150.     DB    0
  151.     DB    0
  152. L32END:    DB    0
  153. L323:    LD    HL,L32END
  154.     JP    RL323
  155.  
  156.  
  157.  
  158. MORHE::    LD    HL,(1)            ; CALL HERE TO DETERMINE KEYBOARD
  159.     LD    DE,30H            ; TYPE
  160.     ADD    HL,DE
  161.     LD    A,(HL)
  162.     LD    D,0
  163.     CP    2
  164.     JP    C,TEST2
  165.     CP    6
  166.     JP    NC,TEST2
  167.     JP    KXBIOS
  168. TEST2:    CP    7
  169.     JP    C,TEST3
  170.     CP    17H
  171.     JP    NC,TEST3
  172.     JP    KXBIOS
  173. TEST3:    CP    1EH
  174.     JP    C,TEST4
  175.     CP    2FH
  176.     JP    NC,TEST4
  177.     JP    KXBIOS
  178. TEST4:    CP    44H
  179.     JP    C,K6545
  180.     CP    0BFH
  181.     JP    NC,K6545
  182. KXBIOS:    LD    D,0FFH
  183. K6545:    LD    A,D
  184.     CP    255
  185.     JP    Z,TCC
  186.     JP    DONE
  187.  
  188. JOYKEY::    LD    A,255            ; CALL HERE TO INPUT JOYSTICK
  189.     OUT    (1),A            ; AUTOMATICALLY DETECTS LACK OF
  190.     LD    A,191            ; JOYSTICK (IE PRINTER)
  191.     OUT    (1),A
  192.     LD    A,64
  193.     OUT    (0),A
  194.     IN    A,(0)
  195.     PUSH    AF
  196.     BIT    0,A
  197.     JP    Z,WANSET
  198.     POP    AF
  199.     RET
  200. WANSET:    BIT    1,A
  201.     JP    Z,NOJOY
  202.     POP    AF
  203.     RET
  204. NOJOY:    POP    AF
  205.     LD    A,255
  206.     RET
  207.  
  208. INKEY::    PUSH    BC            ; AFTER CALLING MOREHE: CALL HERE
  209.     LD    C,A            ; TO SCAN KEY IN "A" Z=PRESSED
  210.     LD    B,A
  211.     LD    A,12H
  212.     OUT    (0CH),A
  213.     LD    A,B
  214.     RRCA
  215.     RRCA
  216.     RRCA
  217.     RRCA
  218.     AND    3
  219.     OUT    (0DH),A
  220.     LD    A,13H
  221.     OUT    (0CH),A
  222.     LD    A,B
  223.     RLCA
  224.     RLCA
  225.     RLCA
  226.     RLCA
  227.     OUT    (0DH),A
  228.     LD    A,1
  229.     OUT    (0BH),A
  230.     LD    A,10H
  231.     OUT    (0CH),A
  232.     IN    A,(0DH)
  233.     LD    A,1FH
  234.     OUT    (0CH),A
  235.     OUT    (0DH),A
  236. FA:    IN    A,(0CH)
  237.     BIT    7,A
  238.     JR    Z,FA
  239.     IN    A,(0CH)
  240.     CPL
  241.     BIT    6,A
  242.     LD    A,0            ; DO NOT CHANGE TO XOR A!
  243.     OUT    (0BH),A
  244.     LD    A,C
  245.     POP    BC
  246.     RET
  247.  
  248. TCC:    LD    DE,INKEY            ; CALLED BY MOREHE: IF TC
  249.     LD    HL,COMM
  250.     LD    BC,3
  251.     LDIR
  252.     JP    DONE
  253. COMM:    JP    XBIOS
  254. XBIOS:    LD    C,A                ; CALLED BY INKEY: IF TC
  255.     LD    A,15
  256.     RST    28H
  257. DONE:    RET
  258.  
  259.  
  260. SAVEM::    XOR    A            ; SAVE MEMORY STARTING AT HL
  261.     LD    (7CH),A            ; - SAVE FOR BC SECTORS (128 BYTE)
  262.     PUSH    HL            ; (FILENAME IS AT 5CH)
  263.     PUSH    BC
  264.     LD    HL,5CH+12
  265.     LD    DE,5CH+13
  266.     LD    BC,5
  267.     LD    (HL),0
  268.     LDIR
  269.     POP    BC
  270.     POP    HL
  271.     PUSH    HL
  272.     PUSH    BC
  273.     LD    C,19
  274.     LD    DE,5CH
  275.     CALL    BDOS
  276.     LD    C,22
  277.     LD    DE,5CH
  278.     CALL    BDOS
  279.     LD    C,15
  280.     LD    DE,5CH
  281.     POP    BC
  282.     POP    HL
  283. NONG:    LD    DE,128
  284.     PUSH    BC
  285.     PUSH    HL
  286.     PUSH    DE
  287.     LD    C,26
  288.     EX    DE,HL
  289.     CALL    BDOS
  290.     LD    DE,5CH
  291.     LD    C,21
  292.     CALL    BDOS
  293.     POP    DE
  294.     POP    HL
  295.     POP    BC
  296.     ADD    HL,DE
  297.     DEC    BC
  298.     LD    A,B
  299.     OR    C
  300.     JP    NZ,NONG
  301.     LD    C,16
  302.     LD    DE,5CH
  303.     CALL    BDOS
  304.     RET
  305.  
  306.  
  307.  
  308. FNF1:    LD    A,255
  309.     RET
  310. LOADM::    LD    (DESTIN),HL
  311.     XOR    A            ; LOAD FILE (AT 5CH) INTO MEMORY AT
  312.     LD    (7CH),A            ; LOCATION HL
  313.     LD    HL,68H
  314.     LD    DE,69H
  315.     LD    BC,5
  316.     LD    (HL),0
  317.     LDIR
  318.     LD    DE,5CH
  319.     LD    C,15
  320.     CALL    BDOS
  321.     CP    0FFH
  322.     JP    Z,FNF1
  323.     LD    HL,(DESTIN)
  324.     LD    DE,80H
  325. HYDE1:  EX    DE,HL
  326.     PUSH    HL
  327.     PUSH    DE
  328.     LD    C,26
  329.     CALL    BDOS
  330.     POP    DE
  331.     POP    HL
  332.     EX    DE,HL
  333.     ADD    HL,DE
  334.     PUSH    HL
  335.     PUSH    DE
  336.     LD    DE,5CH
  337.     LD    C,20
  338.     CALL    BDOS
  339.     POP    DE
  340.     POP    HL
  341.     OR    A
  342.     JP    Z,HYDE1
  343.     LD    DE,5CH
  344.     LD    C,16
  345.     CALL    BDOS
  346.     RET
  347. DESTIN::    DS    2
  348.  
  349.  
  350. CHKCOL::    LD    A,103            ; (COLFLG)=255 IF COLOUR FITTED
  351.     LD    (63488),A
  352.     LD    A,64
  353.     OUT    (8),A
  354.     LD    A,(63488)
  355.     CP    103
  356.     JP    Z,NOCOL
  357.     XOR    A
  358.     OUT    (8),A
  359.     LD    A,255
  360.     LD    (COLFLG),A
  361.     JP    CHKATT
  362. NOCOL:  XOR    A
  363.     LD    (COLFLG),A
  364.     JP    CHKATT
  365. COLFLG::    DS    1
  366. ATTFLG::    DS    1
  367. CHKATT: LD    A,128
  368.     OUT    (28),A
  369.     LD    A,103        ; ROUTINE TO CHECK IF MACH IS PREMIUM
  370.     LD    (63488),A    ; (CALLED BY CHKCOL:)
  371.     LD    A,129
  372.     OUT    (28),A
  373.     LD    A,(63488)
  374.     CP    103
  375.     JP    Z,NOATT
  376.     LD    A,128
  377.     OUT    (28),A
  378.     LD    A,255
  379.     LD    (ATTFLG),A
  380.     RET
  381. NOATT:  XOR    A
  382.     LD    (ATTFLG),A
  383.     RET
  384.  
  385.  
  386. PRTSTR::    LD    A,(HL)        ; PRINT A STRING ENDING IN "$" TO THE PRINTER
  387.     CP    '$'        ; HL=STRING START
  388.     RET    Z
  389.     CALL    OUTCHR
  390.     INC    HL
  391.     JP    PRTSTR
  392. OUTCHR:    PUSHALL
  393.     LD    E,A
  394.     LD    C,5
  395.     CALL    BDOS        ; SEND CHAR IN "A" TO PRINTER
  396.     POPALL
  397.     RET
  398.  
  399.  
  400. PCGLAY::    CLS    2048
  401.     LD    A,(COLFLG)
  402.     CP    255
  403.     JP    NZ,COLNON
  404.     LD    A,64
  405.     OUT    (8),A
  406.     LD    HL,63488
  407.     LD    DE,63489
  408.     LD    BC,2047
  409.     LD    (HL),2
  410.     LDIR
  411.     XOR    A
  412.     OUT    (8),A
  413. COLNON:    LD    BC,128
  414.     LD    HL,0
  415.     XOR    A
  416. PCGLP:    PUSH    HL
  417.     LD    DE,61440
  418.     ADD    HL,DE
  419.     LD    (HL),A
  420.     INC    HL
  421.     SET    7,A
  422.     LD    (HL),A
  423.     RES    7,A
  424.     DEC    HL
  425.     POP    HL
  426.     INC    HL
  427.     INC    HL
  428.     INC    HL
  429.     INC    HL
  430.     INC    A
  431.     DEC    BC
  432.     PUSH    AF
  433.     LD    A,B
  434.     OR    C
  435.     JP    Z,OUTLP
  436.     POP    AF
  437.     JP    PCGLP
  438. OUTLP:    POP    AF
  439.     LD    HL,61440+512+128
  440.     LD    A,128
  441.     LD    B,128
  442. LOUP3:    LD    (HL),A
  443.     INC    HL
  444.     INC    A
  445.     DJNZ    LOUP3
  446. ;    LD    HL,5CH            ; CAN BE ENABLED TO DISPLAY
  447. ;    LD    DE,61440+14*64        ; A FILENAME
  448. ;    LD    BC,12
  449. ;    LDIR
  450.     RET
  451.  
  452.  
  453. INVERT::    LD    A,(ATTFLG)        ; WILL INVERT BANK(S) ACCORDING TO
  454.     CP    255            ; MACINE TYPE (DEFINED BY ATTFLG)
  455.     JP    NZ,ONEB
  456.     LD    A,128
  457. ILP2:    OUT    (28),A        ;INVERT ALL 8 BANKS
  458.     PUSH    AF
  459.     LD    HL,63488
  460.     LD    BC,2048
  461. ILP1:    LD    A,255
  462.     SUB    (HL)
  463.     LD    (HL),A
  464.     INC    HL
  465.     DEC    BC
  466.     LD    A,B
  467.     OR    C
  468.     JP    NZ,ILP1
  469.     POP    AF
  470.     INC    A
  471.     CP    136
  472.     JP    NZ,ILP2
  473.     RET
  474. ONEB:    LD    HL,63488    ; INVERT ONE BANK
  475.     LD    BC,2048
  476. ILP3:    LD    A,255
  477.     SUB    (HL)
  478.     LD    (HL),A
  479.     INC    HL
  480.     DEC    BC
  481.     LD    A,B
  482.     OR    C
  483.     JP    NZ,ILP3
  484.     RET
  485.  
  486.  
  487. FADE::    LD    BC,2048        ; NUMBER OF LOCS TO BLANK
  488.     LD    DE,0500H    ; SPECIAL MASK
  489.     LD    HL,1
  490. LOUP1:    PUSH    BC        ; ROUTINE TO PICK "RANDOM" NUMBERS ONCE ONLY
  491.     LD    B,255
  492. CRAP:    DEC    B
  493.     JR    NZ,CRAP
  494.     POP    BC
  495.     SRL    H
  496.     RR    L
  497.     JP    NC,OBER
  498.     LD    A,H
  499.     XOR    D
  500.     LD    H,A
  501.     LD    A,L
  502.     XOR    E
  503.     LD    L,A
  504. OBER:    PUSH    DE
  505.     PUSH    HL
  506.     LD    DE,61440-1
  507.     ADD    HL,DE
  508.     PUSH    AF
  509.     LD    A,(TOBL)
  510.     LD    (HL),A
  511.     PUSH    HL
  512.     PUSH    DE
  513.     LD    A,(COLFLG)
  514.     CP    255
  515.     JP    NZ,DONOT
  516.     LD    A,64
  517.     OUT    (8),A
  518.     LD    DE,2048
  519.     ADD    HL,DE
  520.     LD    (HL),15
  521.     XOR    A
  522.     OUT    (8),A
  523. DONOT:    POP    DE
  524.     POP    HL
  525.     POP    AF
  526.     POP    HL
  527.     POP    DE
  528.     DEC    BC
  529.     LD    A,B
  530.     OR    C
  531.     JP    NZ,LOUP1
  532.     LD    HL,61440
  533.     LD    (HL),64
  534.     LD    A,(COLFLG)
  535.     CP    255
  536.     RET    NZ
  537.     LD    A,64
  538.     OUT    (8),A
  539.     LD    HL,63488
  540.     LD    DE,63489
  541.     LD    BC,2048        ; ALSO CLEARS COLOUR
  542.     LD    (HL),7
  543.     LDIR
  544.     XOR    A
  545.     OUT    (8),A
  546.     RET
  547. TOBL:    DB    32        ; CHANGE THIS BYTE FOR DIFFERENT FILLS
  548.  
  549.  
  550. PRINTS::    PUSHALL            ; MISC PRINTING ROUTINE; USAGE:
  551.     LD    A,(HL)        ; PCG=1,'STRINGENDINGIN$',COLOUR
  552.     LD    (PRINT0),A    ; THEN LD HL,STRING AND LD DE,DESTINATION
  553.     INC    HL
  554.     PUSH    HL
  555.     PUSH    DE
  556. PRLP:    LD    A,(HL)
  557.     CP    '$'
  558.     JP    Z,NEXT
  559.     EX    AF,AF'
  560.     LD    A,(PRINT0)
  561.     CP    1
  562.     JP    NZ,CONT
  563.     EX    AF,AF'
  564.     ADD    A,128
  565.     EX    AF,AF'
  566. CONT:    EX    AF,AF'
  567.     LD    (DE),A
  568.     INC    HL
  569.     INC    DE
  570.     JP    PRLP
  571. NEXT:    INC    HL
  572.     PUSH    HL
  573.     POP    BC
  574.     POP    DE
  575.     POP    HL
  576.     LD    A,(COLFLG)
  577.     CP    255
  578.     JR    NZ,COLNT
  579.     LD    A,64
  580.     OUT    (8),A
  581.     LD    A,(BC)
  582.     LD    BC,2048
  583.     PUSH    HL
  584.     PUSH    DE
  585.     POP    HL
  586.     ADD    HL,BC
  587.     PUSH    HL
  588.     POP    DE
  589.     POP    HL
  590. CLP:    PUSH    AF
  591.     LD    A,(HL)
  592.     CP    '$'
  593.     JP    Z,PREND
  594.     INC    HL
  595.     POP    AF
  596.     LD    (DE),A
  597.     INC    DE
  598.     JP    CLP
  599. PREND:  POP    AF
  600.     XOR    A
  601.     OUT    (8),A
  602. COLNT:    POPALL
  603.     RET
  604. PRINT0:    DS    1            ; FLAG USED INTERNALLY
  605.  
  606.  
  607. FNF:    POP    AF
  608.     LD    A,255            ; A=255=FILE NOT FOUND
  609.     RET
  610. GRLOAD::    PUSH    AF
  611.     PUSH    HL
  612.     BIT    1,A
  613.     CALL    NZ,PIXOUT
  614.     POP    HL
  615.     LD    DE,5CH
  616.     LD    BC,12
  617.     LDIR
  618.     LD    HL,30000        ; GRLOAD NEEDS A SCRATCH AREA AT LEAST
  619.     CALL    LOADM            ; 5120 BYTES IN SIZE. CHANGE HL TO A
  620.     CP    255            ; SUITABLE AREA AS REQUIRED
  621.     JR    Z,FNF
  622.     POP    AF
  623.     LD    HL,63488
  624.     LD    DE,63489
  625.     LD    BC,2048
  626.     LD    (HL),0
  627.     LDIR
  628.     PUSH    AF
  629.     LD    A,(COLFLG)
  630.     CP    255
  631.     JP    NZ,SKCOL        ; SKIP COLOUR IF NO COLOUR RAM
  632.     LD    A,64
  633.     OUT    (8),A
  634.     POP    AF
  635.     BIT    7,A
  636.     PUSH    AF
  637.     JP    NZ,L321
  638.     LD    HL,30000+128        ; AREA CONTAINING COLOUR RAM DATA
  639.     LD    DE,63488
  640.     LD    BC,1024
  641.     LDIR
  642. RL321:    XOR    A
  643.     OUT    (8),A
  644. SKCOL:    POP    AF
  645.     BIT    0,A
  646.     JP    NZ,PIX1
  647.     BIT    7,A
  648.     JP    NZ,L322
  649.     LD    HL,30000+128+1024
  650.     LD    DE,63488
  651.     LD    BC,2048
  652.     LDIR
  653.     LD    HL,30000+128+1024+2048    ; AREA CONTAINING SCREEN RAM DATA
  654.     LD    DE,61440
  655.     LD    BC,1024
  656.     LDIR
  657. RL322:    XOR    A
  658.     RET
  659. PIX1:    CALL    PIXIN
  660.     XOR    A
  661.     RET
  662. L321:    LD    HL,30000+128
  663.     LD    DE,63488
  664.     LD    BC,2048
  665.     LDIR
  666.     JP    RL321
  667. L322:    LD    HL,30000+128+2048
  668.     LD    DE,63488
  669.     LD    BC,2048
  670.     LDIR
  671.     LD    HL,30000+128+2048+2048
  672.     LD    DE,61440
  673.     LD    BC,2048
  674.     LDIR
  675.     JP    RL322
  676.  
  677.  
  678. PIXOUT::    PUSHALL
  679.     CALL    PCGOUT            ; CALL PIXOUT AND HAVE A PIXEL-BY-PIXEL
  680.     LD    HL,61440        ; FADEOUT OF PCG AND THEN TEXT ONSCREEN
  681.     LD    BC,1024
  682. LOOPFF:    LD    A,(HL)
  683.     BIT    7,A
  684.     CALL    NZ,CLEAR
  685.     DEC    BC
  686.     INC    HL
  687.     LD    A,B
  688.     OR    C
  689.     JP    NZ,LOOPFF
  690.     LD    A,1
  691.     OUT    (11),A
  692.     LD    HL,61440
  693.     LD    DE,63488
  694.     LD    BC,2048
  695.     LDIR
  696.     XOR    A
  697.     OUT    (11),A
  698.     LD    HL,61440
  699.     LD    BC,1024
  700. LOOPFE:    SET    7,(HL)
  701.     INC    HL
  702.     DEC    BC
  703.     LD    A,B
  704.     OR    C
  705.     JP    NZ,LOOPFE
  706.     CALL    PCGOUT
  707.     POPALL
  708.     RET
  709. PCGOUT::    LD    HL,FODATA
  710.     LD    B,128
  711. LOOP:    LD    IY,63488
  712.     LD    C,128
  713. LOOP2:    PUSH    IY
  714.     LD    A,(HL)
  715.     LD    E,A
  716.     LD    D,0
  717.     ADD    IY,DE
  718.     INC    HL
  719.     LD    A,(HL)
  720.     PUSH    HL
  721.     CALL    BITTY
  722.     POP    HL
  723.     DEC    HL
  724.     POP    IY
  725.     LD    DE,16
  726.     ADD    IY,DE
  727.     DEC    C
  728.     JP    NZ,LOOP2
  729.     INC    HL
  730.     INC    HL
  731.     DJNZ    LOOP
  732.     RET
  733. BITTY:    PUSH    IY
  734.     POP    HL
  735.     CP    0
  736.     JP    Z,ZERO
  737.     CP    1
  738.     JP    Z,ONE
  739.     CP    2
  740.     JP    Z,TWO
  741.     CP    3
  742.     JP    Z,THREE
  743.     CP    4
  744.     JP    Z,FOUR
  745.     CP    5
  746.     JP    Z,FIVE
  747.     CP    6
  748.     JP    Z,SIX
  749.     RES    7,(HL)
  750.     RET
  751. ZERO:    RES    0,(HL)
  752.     RET
  753. ONE:    RES    1,(HL)
  754.     RET
  755. TWO:    RES    2,(HL)
  756.     RET
  757. THREE:    RES    3,(HL)
  758.     RET
  759. FOUR:    RES    4,(HL)
  760.     RET
  761. FIVE:    RES    5,(HL)
  762.     RET
  763. SIX:    RES    6,(HL)
  764.     RET
  765. SPOT::    DS    2
  766. PIXIN::    PUSHALL
  767.     LD    HL,63488            ; CALL HERE TO HAVE A PIXEL
  768.     LD    DE,63489            ; FADE-IN
  769.     LD    BC,2047
  770.     LD    (HL),0
  771.     LDIR
  772.     LD    HL,(DESTIN)
  773.     LD    DE,128+1024+2048
  774.     ADD    HL,DE
  775.     LD    DE,61440
  776.     LD    BC,1024
  777. ANGAG:    LD    A,(HL)
  778.     BIT    7,A
  779.     JP    NZ,HMMAA
  780.     SET    7,A
  781.     LD    (DE),A
  782. HMMAA:    INC    DE
  783.     INC    HL
  784.     DEC    BC
  785.     LD    A,B
  786.     OR    C
  787.     JP    NZ,ANGAG
  788.     LD    HL,61440
  789.     LD    (SPOT),HL
  790.     LD    A,1
  791.     OUT    (11),A            ; SWITCH IN CHARACTER ROM
  792.     CALL    INPCG
  793.     XOR    A
  794.     OUT    (11),A
  795.     LD    HL,(DESTIN)
  796.     LD    DE,1152
  797.     ADD    HL,DE
  798.     LD    (SPOT),HL
  799.     LD    HL,(DESTIN)
  800.     LD    DE,128+1024+2048
  801.     ADD    HL,DE
  802.     LD    DE,61440
  803.     LD    BC,1024
  804.     LDIR
  805.     LD    HL,63488
  806.     LD    DE,63489
  807.     LD    BC,2047
  808.     LD    (HL),0
  809.     LDIR
  810.     CALL    INPCG
  811.     POPALL
  812.     RET
  813. INPCG::    LD    HL,FODATA
  814.     LD    B,128
  815. LOUP:    LD    IY,(SPOT)
  816.     LD    C,128
  817. LOUP2:    PUSH    IY
  818.     LD    A,(HL)
  819.     LD    E,A
  820.     LD    D,0
  821.     ADD    IY,DE
  822.     INC    HL
  823.     LD    A,(HL)
  824.     PUSH    HL
  825.     CALL    BITTE
  826.     POP    HL
  827.     DEC    HL
  828.     POP    IY
  829.     LD    DE,16
  830.     ADD    IY,DE
  831.     DEC    C
  832.     JP    NZ,LOUP2
  833.     INC    HL
  834.     INC    HL
  835.     DJNZ    LOUP
  836.     RET
  837. BITTE:    PUSH    IY
  838.     POP    HL
  839.     CP    0
  840.     JP    Z,ZERO1
  841.     CP    1
  842.     JP    Z,ONE1
  843.     CP    2
  844.     JP    Z,TWO1
  845.     CP    3
  846.     JP    Z,THREE1
  847.     CP    4
  848.     JP    Z,FOUR1
  849.     CP    5
  850.     JP    Z,FIVE1
  851.     CP    6
  852.     JP    Z,SIX1
  853.     BIT    7,(HL)
  854.     RET    Z
  855.     CALL    FIXHL
  856.     SET    7,(HL)
  857.     RET
  858. ZERO1:    BIT    0,(HL)
  859.     RET    Z
  860.     CALL    FIXHL
  861.     SET    0,(HL)
  862.     RET
  863. ONE1:    BIT    1,(HL)
  864.     RET    Z
  865.     CALL    FIXHL
  866.     SET    1,(HL)
  867.     RET
  868. TWO1:    BIT    2,(HL)
  869.     RET    Z
  870.     CALL    FIXHL
  871.     SET    2,(HL)
  872.     RET
  873. THREE1:    BIT    3,(HL)
  874.     RET    Z
  875.     CALL    FIXHL
  876.     SET    3,(HL)
  877.     RET
  878. FOUR1:    BIT    4,(HL)
  879.     RET    Z
  880.     CALL    FIXHL
  881.     SET    4,(HL)
  882.     RET
  883. FIVE1:    BIT    5,(HL)
  884.     RET    Z
  885.     CALL    FIXHL
  886.     SET    5,(HL)
  887.     RET
  888. SIX1:    BIT    6,(HL)
  889.     RET    Z
  890.     CALL    FIXHL
  891.     SET    6,(HL)
  892.     RET
  893. FIXHL:    PUSH    DE
  894.     PUSH    HL
  895.     LD    DE,(SPOT)
  896.     LD    HL,63488
  897.     XOR    A
  898.     SBC    HL,DE
  899.     PUSH    HL
  900.     POP    DE
  901.     POP    HL
  902.     ADD    HL,DE
  903.     POP    DE
  904.     RET
  905. CLEAR:    LD    A,32
  906.     LD    (HL),A
  907.     RET
  908. FODATA:    DB    14,0,5,6,12,4,15,7,2,0,14,3,2,1,9,3    ; PIXEL FADEOUT DATA
  909.     DB    11,6,10,7,4,4,1,5,2,4,6,7,8,1,2,3
  910.     DB    9,4,13,2,11,3,5,7,14,6,0,5,15,4,3,6
  911.     DB    9,7,3,0,5,5,6,6,8,7,5,1,9,5,13,3
  912.     DB    2,6,14,4,4,2,6,0,13,6,0,2,1,4,15,6
  913.     DB    14,2,11,1,8,4,12,1,4,0,6,5,9,2,10,5
  914.     DB    10,6,5,2,1,6,15,2,3,7,10,1,5,0,11,7
  915.     DB    7,2,3,3,6,4,12,7,15,5,9,6,13,7,14,5
  916.     DB    8,3,8,2,0,7,7,1,12,3,10,4,12,6,0,4
  917.     DB    15,1,13,4,8,6,11,5,9,1,14,7,0,1,7,4
  918.     DB    11,4,1,2,3,1,9,0,4,7,1,7,7,6,1,0
  919.     DB    1,3,6,3,7,0,13,1,6,1,6,2,15,0,12,5
  920.     DB    3,4,0,6,3,2,5,4,13,5,0,3,4,5,4,6
  921.     DB    10,3,7,3,10,2,2,7,12,0,14,1,2,2,5,3
  922.     DB    0,0,2,5,12,2,13,0,4,3,7,5,10,0,11,2
  923.     DB    8,0,15,3,7,7,4,1,11,0,1,1,3,5,8,5
  924.  
  925. ; COMMONLY USED EQUATES
  926.  
  927. ESC    EQU    27
  928. CR    EQU    0DH
  929. LF    EQU    0AH
  930. BDOS    EQU    5
  931.  
  932.     END    ; OF ASSEMBLY
  933.  
  934.