гC80X24ААБАА ;80X24 CHAR SCREEN PROGRAM ААББА ;RELOCATES ITSELF TO HIMEM ААБВА ;BY R.M.STILES 08/30/81 ААБГА ;REVISED FOR CURSOR AFTER CLEAR AND 32 CHAR OPER ААБДА ;10/18/81 RMS ААБЕА HIMEM EQU 4049H ААБЖА VIDCTL EQU 403DH ААБЗА ORG 5200H ААБИА INITA EQU $ ;FROM HERE TO C24 (4790) IS ААБЙА DI ;INITIATION AND RELOCATOR. ААВАА IN A,(254) ААВБА OR 10 ААВВА OUT (254),A ААВГА CALL CLRSCN ААВДА LD HL,CHRNR ААВЕА LD B,80 ААВЖА INIAL1 PUSH HL ААВЗА LD A,0AH ААВИА PUSH BC ААВЙА CALL WRITE ААГАА POP BC ААГБА POP HL ААГВА INC (HL) ААГГА DJNZ INIAL1 ААГДА INC HL ААГЕА LD B,22 ААГЖА INIAL2 INC (HL) ААГЗА DEC HL ААГИА LD (HL),0 ААГЙА LD A,0AH ААДАА PUSH HL ААДБА PUSH BC ААДВА CALL WRITE ААДГА POP BC ААДДА POP HL ААДЕА LD (HL),79 ААДЖА LD A,0AH ААДЗА PUSH HL ААДИА PUSH BC ААДЙА CALL WRITE ААЕАА POP BC ААЕБА POP HL ААЕВА INC HL ААЕГА DJNZ INIAL2 ААЕДА DEC HL ААЕЕА LD B,80 ААЕЖА LD (HL),0 ААЕЗА INIAL3 PUSH HL ААЕИА LD A,0AH ААЕЙА PUSH BC ААЖАА CALL WRITE ААЖБА POP BC ААЖВА POP HL ААЖГА INC (HL) ААЖДА DJNZ INIAL3 ААЖЕА IN A,(254) ААЖЖА AND 0F7H ААЖЗА OUT (254),A ААЖИА INIL5 LD HL,3C00H ААЖЙА LD (4020H),HL ААЗАА LD A,0 ААЗБА LD (CHRNR),A ААЗВА LD (LINENR),A ААЗГА LD HL,MSG1 ААЗДА CALL WRT ААЗЕА CALL 0049H ААЗЖА CALL 0033H ААЗЗА CP 0DH ААЗИА JP Z,INITB ААЗЙА LD HL,MEMLDA ААИАА LD B,4 ААИБА JR INIL1 ААИВА INIL4 CALL 0049H ААИГА CALL 0033H ААИДА INIL1 CP 30H ААИЕА JR C,ERR ААИЖА CP 3AH ААИЗА JR NC,INIL2 ААИИА SUB 30H ААИЙА JR INIL3 ААЙАА INIL2 CP 41H ААЙБА JR C,ERR ААЙВА CP 47H ААЙГА JR NC,ERR ААЙДА SUB 37H ААЙЕА INIL3 LD (HL),A ААЙЖА INC HL ААЙЗА DJNZ INIL4 ААЙИА CALL 0049H ААЙЙА CALL 0033H АБААА CP 0DH АБАБА JR NZ,ERR АБАВА LD HL,MEMLDB+1 АБАГА LD A,(HL) АБАДА DEC HL АБАЕА RLD АБАЖА LD E,(HL) АБАЗА DEC HL АБАИА LD A,(HL) АБАЙА DEC HL АББАА RLD АБББА LD D,(HL) АББВА LD (MEMLDA),DE АББГА OR A АББДА LD DE,PRINT@ АББЕА LD HL,ENDP АББЖА SBC HL,DE АББЗА PUSH HL АББИА LD DE,(HIMEM) АББЙА EX DE,HL АБВАА OR A АБВБА SBC HL,DE АБВВА LD DE,(MEMLDA) АБВГА RST 18H АБВДА JR C,ERR АБВЕА LD HL,5FFFH АБВЖА RST 18H АБВЗА JR NC,ERR АБВИА POP HL АБВЙА ADD HL,DE АБГАА LD (MEMLDA),HL АБГБА JP INITC АБГВА ERR LD HL,MSG2 АБГГА CALL WRT АБГДА JP INIL5 АБГЕА WRT LD A,(HL) АБГЖА CP 0 АБГЗА RET Z АБГИА CALL 0033H АБГЙА INC HL АБДАА JR WRT АБДБА MEMLDA DW 0 АБДВА MEMLDB DW 0 АБДГА MSG1 DM 0DH,0DH,0DH,' 80 X 24 SCREEN FOR',0DH АБДДА DM ' *** L N W - 8 0 ***',0DH,0DH АБДЕА DM ' BY R.M.STILES 08/28/81',0DH,0DH АБДЖА DM ' CAN BE LOADED FROM 6000H TO HIMEM',0DH АБДЗА DM ' WILL RESET HIMEM ON DEFAULT',0DH АБДИА DM ' ENTER LOAD POINT (HEX) DEFAULT IS HIMEM',0DH,' ',3FH,0 АБДЙА MSG2 DM 0DH,' *** ENTRY TOO HIGH, TOO LOW, OR ILLEGAL ***',0 АБЕАА INITC DI АБЕБА OR A АБЕВА LD HL,ENDP АБЕГА LD BC,PRINT@ АБЕДА SBC HL,BC АБЕЕА LD DE,(MEMLDA) АБЕЖА EX DE,HL АБЕЗА OR A АБЕИА SBC HL,DE АБЕЙА JR INITD АБЖАА INITB DI АБЖБА OR A АБЖВА LD HL,ENDP АБЖГА LD BC,PRINT@ АБЖДА SBC HL,BC АБЖЕА LD DE,(HIMEM) АБЖЖА EX DE,HL АБЖЗА OR A АБЖИА SBC HL,DE АБЖЙА DEC HL АБЗАА LD (HIMEM),HL АБЗБА INC HL АБЗВА INITD LD (LP@1+1),HL АБЗГА EX DE,HL АБЗДА LD BC,PRINT@ АБЗЕА LD HL,WRITE АБЗЖА CALL SUBT АБЗЗА LD (CW1+1),HL АБЗИА LD (CW2+1),HL АБЗЙА LD (CW3+1),HL АБИАА LD (CW4+1),HL АБИБА LD (CW6+1),HL АБИВА LD (CW7+1),HL АБИГА LD (CW8+1),HL АБИДА LD (CW9+1),HL АБИЕА LD (CW10+1),HL АБИЖА LD (SPCMP1+1),HL АБИЗА LD (GRAL1+1),HL АБИИА LD HL,CHRNR АБИЙА CALL SUBT АБЙАА LD (LCN1+1),HL АБЙБА LD (LCN2+1),HL АБЙВА LD (LCN3+1),HL АБЙГА LD (LCN4+1),HL АБЙДА LD (LCN5+1),HL АБЙЕА LD (LCN6+1),HL АБЙЖА LD (LCN7+1),HL АБЙЗА LD (LCN8+1),HL АБЙИА LD (LCN10+1),HL АБЙЙА LD (LCN11+1),HL АВААА LD (LCN12+1),HL АВАБА LD (LCN13+1),HL АВАВА LD (LCN14+1),HL АВАГА LD (LCN15+1),HL АВАДА LD (LCN16+1),HL АВАЕА LD (LCN17+1),HL АВАЖА LD (LCN18+1),HL АВАЗА LD (LCN19+1),HL АВАИА LD (LCN20+1),HL АВАЙА LD (LCN21+1),HL АВБАА LD (ERAEOF+1),HL АВББА LD (PCML1+1),HL АВБВА LD (CLREOL+1),HL АВБГА LD (CEOLL1+1),HL АВБДА LD HL,LINENR АВБЕА CALL SUBT АВБЖА LD (LLN1+1),HL АВБЗА LD (LLN2+1),HL АВБИА LD (LLN3+1),HL АВБЙА LD (LLN4+1),HL АВВАА LD (LLN5+1),HL АВВБА LD HL,CURSOR АВВВА CALL SUBT АВВГА LD (LCU1+1),HL АВВДА LD (LCU2+1),HL АВВЕА LD (BCKL2+1),HL АВВЖА LD (CADVL2+1),HL АВВЗА LD HL,CURADV АВВИА CALL SUBT АВВЙА LD (CC1+1),HL АВГАА LD (CC3+1),HL АВГБА LD (CC4+1),HL АВГВА LD HL,PRT@EX АВГГА CALL SUBT АВГДА INC HL АВГЕА LD (LPEX+1),HL АВГЖА LD HL,PRTCMA АВГЗА CALL SUBT АВГИА INC HL АВГЙА LD (LPCM1+1),HL АВДАА LD HL,PRTCOM АВДБА CALL SUBT АВДВА LD (LPCM2+1),HL АВДГА LD HL,PR@FLG АВДДА CALL SUBT АВДЕА LD (LPF1+1),HL АВДЖА LD (LPF2+1),HL АВДЗА LD (LDR1+1),HL АВДИА LD HL,CLRSCN АВДЙА CALL SUBT АВЕАА LD (CS1+1),HL АВЕБА LD (CS2+1),HL АВЕВА LD HL,CADVL3 АВЕГА CALL SUBT АВЕДА LD (CCD3+1),HL АВЕЕА LD HL,CADVL4 АВЕЖА CALL SUBT АВЕЗА LD (CCD4+1),HL АВЕИА LD HL,PRERTN АВЕЙА CALL SUBT АВЖАА LD (PWRTL1+1),HL АВЖБА LD (JP1+1),HL АВЖВА LD (JP2+1),HL АВЖГА LD (JP3+1),HL АВЖДА LD (JP4+1),HL АВЖЕА LD (JP6+1),HL АВЖЖА LD (JP7+1),HL АВЖЗА LD (JP8+1),HL АВЖИА LD HL,BCKSP АВЖЙА CALL SUBT АВЗАА LD (JB1+1),HL АВЗБА LD HL,ENTR АВЗВА CALL SUBT АВЗГА LD (JE1+1),HL АВЗДА LD HL,CURON АВЗЕА CALL SUBT АВЗЖА LD (JCON1+1),HL АВЗЗА LD HL,CUROFF АВЗИА CALL SUBT АВЗЙА LD (JCOFF1+1),HL АВИАА LD HL,CHR32 АВИБА CALL SUBT АВИВА LD (J32A+1),HL АВИГА LD HL,LTARRW АВИДА CALL SUBT АВИЕА LD (JLA1+1),HL АВИЖА LD HL,RTARRW АВИЗА CALL SUBT АВИИА LD (JRA1+1),HL АВИЙА LD HL,DNARRW АВЙАА CALL SUBT АВЙБА LD (JDA1+1),HL АВЙВА LD HL,UPARRW АВЙГА CALL SUBT АВЙДА LD (JUA1+1),HL АВЙЕА LD HL,HMECUR АВЙЖА CALL SUBT АВЙЗА LD (JHM1+1),HL АВЙИА LD HL,BEGLNE АВЙЙА CALL SUBT АГААА LD (JBG1+1),HL АГАБА LD HL,CLREOL АГАВА CALL SUBT АГАГА LD (JEOL1+1),HL АГАДА LD HL,ERAEOF АГАЕА CALL SUBT АГАЖА LD (JEOF1+1),HL АГАЗА LD HL,CTLCHR АГАИА CALL SUBT АГАЙА LD (JCTL1+1),HL АГБАА LD HL,SPCOMP АГББА CALL SUBT АГБВА LD (JSPC1+1),HL АГБГА LD HL,LOADER АГБДА CALL SUBT АГБЕА LD (401EH),HL АГБЖА LD HL,PR@L1C АГБЗА CALL SUBT АГБИА INC HL АГБЙА LD (LPR@1+1),HL АГВАА LD (LPR@2+1),HL АГВБА LD HL,GRAPIC АГВВА CALL SUBT АГВГА LD (LSPC+1),HL АГВДА LD HL,CHRGEN АГВЕА CALL SUBT АГВЖА LD (LCGN+2),HL АГВЗА LD HL,TABLED АГВИА CALL SUBT АГВЙА LD (LTD+1),HL АГГАА LD HL,TABLEC АГГБА CALL SUBT АГГВА LD (WRTL1+1),HL АГГГА LD HL,CHRPOS АГГДА CALL SUBT АГГЕА LD (WRTL2+1),HL АГГЖА LD (LCPOS+1),HL АГГЗА LD HL,ENDP АГГИА OR A АГГЙА SBC HL,BC АГДАА LD B,H АГДБА LD C,L АГДВА LD HL,PRINT@ АГДГА LDIR АГДДА IN A,(254) АГДЕА OR 10 АГДЖА OUT (254),A АГДЗА CS1 CALL CLRSCN АГДИА IN A,(254) АГДЙА AND 0F7H АГЕАА OUT (254),A АГЕБА EI АГЕВА RET АГЕГА SUBT OR A АГЕДА SBC HL,BC АГЕЕА ADD HL,DE АГЕЖА RET АГЕЗА ;******************************************************** АГЕИА PRINT@ EQU $ ;USES DOS EXIT 41CAH АГЕЙА POP IY ;CLEAR STACK АГЖАА PRT@EX CALL 0 ;DOS EXIT АГЖБА CP 40H ;TEST FOR @ АГЖВА JR NZ,PRTTAB АГЖГА CALL 2B01H ;EVAUL @ EXP. АГЖДА PUSH HL АГЖЕА LD H,D АГЖЖА LD L,E АГЖЗА CP 6 АГЖИА JR NC,EXT@ ; GO TO EXT IF >1536 АГЖЙА LD A,64 АГЗАА LPR@1 LD (PR@L1C+1),A АГЗБА LD BC,64 АГЗВА PR@L1A XOR A АГЗГА PUSH DE АГЗДА LD D,A АГЗЕА LD E,L АГЗЖА SBC HL,BC АГЗЗА JR NC,PR@L1B АГЗИА JR PR@L1C АГЗЙА PR@L1 SBC HL,BC ;DEVIDE BY 64 АГИАА PR@L1B INC D АГИБА JR NC,PR@L1 АГИВА DEC D АГИГА PR@L1C LD A,64 АГИДА ADD A,L АГИЕА LCN1 LD (CHRNR),A АГИЖА LD A,D АГИЗА LLN1 LD (LINENR),A АГИИА POP DE АГИЙА LCN2 LD A,(CHRNR) АГЙАА JP 2089H ;ON TO ROM АГЙБА EXT@ CP 7 АГЙВА JR C,PR@L2 АГЙГА LD A,L АГЙДА CP 80H АГЙЕА JR C,PR@L2 АГЙЖА POP HL АГЙЗА JP 1E4AH ;ERROR IF >1920 АГЙИА PR@L2 LD A,80 АГЙЙА LPR@2 LD (PR@L1C+1),A АДААА XOR A АДАБА LD BC,1536 АДАВА SBC HL,BC ;CONV TO EXT AREA АДАГА LD BC,16 АДАДА JR PR@L1A АДАЕА PR@FLG DB 0 АДАЖА ;******************************************************** АДАЗА PRTTAB EQU $ ;FROM ROM 208FH TO 20AAH АДАИА CP 23H АДАЙА JR NZ,PRTBL1 АДБАА CALL 0284H АДББА LD A,80H АДБВА LD (409CH),A АДБГА PRTBL1 DEC HL АДБДА RST 10H АДБЕА CALL Z,20FEH АДБЖА JP Z,2169H АДБЗА CP 0BFH АДБИА JP Z,2CBDH АДБЙА CP 0BCH АДВАА JP NZ,20ADH АДВБА CALL 2B1BH ;FROM 2137H ROM АДВВА CP 80 АДВГА JP C,213CH АДВДА SUB 80 АДВЕА JP 213CH АДВЖА ;******************************************************** АДВЗА PRTCOM EQU $ АДВИА EX AF,AF' АДВЙА EX (SP),HL АДГАА LD A,L АДГБА CP 44H АДГВА EX (SP),HL АДГГА JR NZ,PCML1 АДГДА PUSH HL АДГЕА PUSH AF АДГЖА PCML2 DEC HL АДГЗА LD A,(HL) АДГИА CP 30H АДГЙА JR C,PCML3 АДДАА CP 40H АДДБА JR C,PCML2 АДДВА PCML3 POP AF АДДГА CALL 2B1BH АДДДА LD E,A АДДЕА POP HL АДДЖА PCML1 LD A,(CHRNR) АДДЗА LD (40A6H),A АДДИА EX AF,AF' АДДЙА PRTCMA JP 0000H ;FROM 41D3H АДЕАА ;******************************************************** АДЕБА LOADER EQU $ АДЕВА DI АДЕГА EX AF,AF' АДЕДА EXX АДЕЕА LD A,(41CAH) АДЕЖА CP 0C3H АДЕЗА JR Z,LDR1 АДЕИА XOR A АДЕЙА LPF1 LD (PR@FLG),A АДЖАА JR LDR2 АДЖБА LDR1 LD A,(PR@FLG) АДЖВА OR A АДЖГА JR NZ,LDR2 АДЖДА LD A,80 АДЖЕА LD (409DH),A ;MAX LINE LEN. АДЖЖА LD A,64 АДЖЗА LD (409EH),A ;LINE SIZE FOR COMA АДЖИА LPF2 LD (PR@FLG),A АДЖЙА LD HL,(41CBH) АДЗАА LPEX LD (PRT@EX+1),HL АДЗБА LP@1 LD HL,PRINT@ АДЗВА LD (41CBH),HL АДЗГА LD HL,(41D4H) АДЗДА LPCM1 LD (PRTCMA+1),HL АДЗЕА LPCM2 LD HL,PRTCOM АДЗЖА LD (41D4H),HL АДЗЗА LDR2 EX AF,AF' АДЗИА EXX АДЗЙА EI АДИАА ;******************************************************** АДИБА C24 EQU $ АДИВА LD A,C ;GET CHAR TO PRINT АДИГА PUSH AF ;SAVE IT AND АДИДА PUSH DE ;THE OTHER REGISTERS АДИЕА PUSH BC АДИЖА C24A DI АДИЗА IN A,(254) ;ENABLES HI-RES АДИИА OR 8 ;SCREEN AREA АДИЙА OUT (254),A АДЙАА LD A,C ;GET CHAR AGAIN АДЙБА CP 20H ;CHECK IF CTL CHAR АДЙВА JCTL1 JP C,CTLCHR ;GO IF IT IS АДЙГА CP 80H ;IS IT SPACE COMP OR GRA АДЙДА JSPC1 JP NC,SPCOMP ;GO IS IT IS АДЙЕА SUB 20H ;SUB FOR R/S GEN. АДЙЖА ;***************************************************** АДЙЗА PREWRT EQU $ АДЙИА CW1 CALL WRITE ;GO PUT IT ON SCN АДЙЙА CC1 CALL CURADV ;ADJUST CURSOR АЕААА PWRTL1 JP PRERTN ;RTN АЕАБА ;**************************************************** АЕАВА WRITE EQU $ АЕАГА OR A ;CLEAR C FLAG АЕАДА LD B,0 ;ZERO B REG АЕАЕА RLA ;MULT THE CHAR АЕАЖА RL B ;BY 8 TO GET АЕАЗА RLA ;IT'S POSITION АЕАИА RL B ;IN THE CHAR. GEN. АЕАЙА RLA ;TABLE... АЕБАА RL B АЕББА LD C,A ;BC NOW HAS LOC OFFSET АЕБВА LCGN LD IY,CHRGEN ;START OF CHAR GEN TABLE АЕБГА ADD IY,BC ;IY NOW HAS CHAR POS. АЕБДА LCN3 LD A,(CHRNR) ;GET CHAR SCNLOC, SEE IF АЕБЕА CP 64 ;IT IN NORMAL OR EXT AREA АЕБЖА JR C,WRTL1 ;GO IF IN NORMAL AREA АЕБЗА SUB 64 ;SUB IF EXT AREA АЕБИА LTD LD HL,TABLED ;GET EXT AREA LINE АЕБЙА JR WRTL2 ;NUMBERS AND GO. АЕВАА WRTL1 LD HL,TABLEC ;GET NOR AREA LINE #'S АЕВБА WRTL2 LD (CHRPOS),A ;CHAR POS IN NOR OR EXT АЕВВА LLN2 LD A,(LINENR) ;GET SCN LINE # АЕВГА RLCA ;POS IT FOR CORRECT ADDR АЕВДА LD E,A ;LOAD DE WITH ADJACENT АЕВЕА LD D,0 ;LINE NUMBER. АЕВЖА ADD HL,DE ;ADD IT TO TABLE LOC. АЕВЗА LD E,(HL) ;GET THE ROW 0 ADDR АЕВИА INC HL ;FOR SCREEN LINE АЕВЙА LD D,(HL) ;NUMBER INTO DE АЕГАА LCPOS LD A,(CHRPOS) ;GET CHAR POS АЕГБА ADD A,E ;ADD IT TO LINE NMBR. АЕГВА LD E,A ;DE NOW HAS SCREEN POS. АЕГГА LCN4 LD A,(CHRNR) ;GET CHARNR TO DETR NOR АЕГДА CP 64 ;OR EXT AREA АЕГЕА JR NC,WRTEXT ;GO IF EXT АЕГЖА WRTNOR LD B,8 ;GONNA PRINT 8 ROWS АЕГЗА NWRTL1 LD A,(IY+0) ;GET FIRST ROW DATA АЕГИА LD (DE),A ;PUTON SCREEN АЕГЙА INC IY ;GOTO NEXT ROW INFO АЕДАА LD A,4 ;ADJ SCRN ADDR FOR АЕДБА ADD A,D ;NEXT ROW. FROM АЕДВА CP 30H ;HERE TO END OF АЕДГА JR NC,NWRTL3 ;ROUTINE. АЕДДА LD D,A АЕДЕА NWRTL2 DJNZ NWRTL1 АЕДЖА RET АЕДЗА NWRTL3 SUB 30H АЕДИА LD D,A АЕДЙА LD A,40H АЕЕАА ADD A,E АЕЕБА LD E,A АЕЕВА JR NWRTL2 ;END OF ROUTINE АЕЕГА WRTEXT LD B,8 ;EXT AREA ROUTINE. SAME АЕЕДА LD H,D ;GENERAL DISCRIPTION AS АЕЕЕА EWRTL1 LD A,(IY+0) ;NORMAL AREA АЕЕЖА LD (DE),A АЕЕЗА INC IY АЕЕИА LD A,4 АЕЕЙА ADD A,D АЕЖАА CP 40H АЕЖБА JR NC,EWRTL3 АЕЖВА LD D,A АЕЖГА EWRTL2 DJNZ EWRTL1 АЕЖДА RET АЕЖЕА EWRTL3 LD D,H АЕЖЖА LD A,10H АЕЖЗА ADD A,E АЕЖИА AND 30H АЕЖЙА CP 30H АЕЗАА LD A,E АЕЗБА JR NZ,EWRTL4 АЕЗВА ADD A,10H АЕЗГА EWRTL4 ADD A,10H АЕЗДА LD E,A АЕЗЕА JR EWRTL2 ;END OF EXT ROUTINE АЕЗЖА ;********************************************** АЕЗЗА CURON EQU $ АЕЗИА LD A,3FH ;LD CUR CHAR АЕЗЙА LCU1 LD (CURSOR),A ;STORE IT АЕИАА CW2 CALL WRITE ;PRINT IT АЕИБА JP1 JP PRERTN ;RTN АЕИВА ;********************************************** АЕИГА CUROFF EQU $ АЕИДА LD A,0 ;LD 0 АЕИЕА LCU2 LD (CURSOR),A ;STORE IT АЕИЖА CW3 CALL WRITE ;PRINT IT АЕИЗА JP2 JP PRERTN ;RTN АЕИИА ;*********************************************** АЕИЙА SPCOMP EQU $ АЕЙАА CP 0C0H ;SEE IF GRAPHICS АЕЙБА LSPC JP C,GRAPIC ;GO IF IT IS АЕЙВА SUB 0C0H ;SUB OFFSET АЕЙГА JR Z,PRERTN ;RTN IF 0 SPACE CMP АЕЙДА LD B,A ;# OF SPACES TO PRINT АЕЙЕА LD A,20H ;ASCII SPACE АЕЙЖА SPCMP1 CALL WRITE ;PRINT SPACE АЕЙЗА CC3 CALL CURADV ;ADJUST CUR АЕЙИА DJNZ SPCMP1 ;"B" TIMES АЕЙЙА JR PRERTN АЖААА ;*********************************************** АЖАБА CHR32 EQU $ АЖАВА LD A,(VIDCTL) ;GET 32 CHAR REG АЖАГА OR 8 ;SET 32 CHAR АЖАДА LD (VIDCTL),A ;PUT BACK TO REG АЖАЕА OUT (0FFH),A ;OUTPUT IT АЖАЖА LCN5 LD A,(CHRNR) ;GET CHAR NR АЖАЗА INC A ;INC IT АЖАИА AND 0FEH ;MAKE IT AN EVEN # АЖАЙА LCN6 LD (CHRNR),A ;PUT CHAR NR BACK АЖБАА JR PRERTN АЖББА ;*********************************************** АЖБВА ERAEOF EQU $ АЖБГА LD HL,(CHRNR) ;HL HAS CHRNR AND LINENR АЖБДА LD A,H ;PUT CHRNR INTO A АЖБЕА ADD A,L ;ADD IT TO LINENR АЖБЖА OR A ;CHECK IF BOTH ARE 0 АЖБЗА JR NZ,EOFL1 ;GO IF NOT АЖБИА CS2 CALL CLRSCN ;QUICK CLEAR IF CALLED АЖБЙА JR CURON ;FROM HOME CURSOR POS. АЖВАА EOFL1 PUSH HL ;SAVE CHRNR AND LINENR АЖВБА LCN7 LD HL,CHRNR ;GET CHARNR ADDR АЖВВА EOFL2 LD A,79 ;COMPARE IT TO MAXIMUM АЖВГА CP (HL) ;NUMBER OF CHAR'S АЖВДА JR NC,EOFL4 ;GO IF MORE THEN 79 АЖВЕА LD (HL),0 ;LOAD CHARNR W/0 АЖВЖА INC HL ;MOVE TO LINENR ADDR АЖВЗА INC (HL) ;INC LINE NR АЖВИА LD A,23 ;SEE IF MORE THEN MAXIMUM АЖВЙА CP (HL) ;NUMBER OF LINES (24) АЖГАА JR NC,EOFL3 ;GO IF IT IS АЖГБА JR EOFL5 ;ELSE GO HERE АЖГВА EOFL3 DEC HL ;MOVE BACK TO CHAR NR ADDR АЖГГА EOFL4 PUSH HL ;SAVIT АЖГДА LD A,0 ;GET 0 (SPACE R/S GEN) АЖГЕА CW4 CALL WRITE ;PRINT IT АЖГЖА POP HL ;GET CHAR NR ADDR BACK АЖГЗА INC (HL) ;INC CHAR NR АЖГИА JR EOFL2 ;GO DO IT SOME MORE АЖГЙА EOFL5 POP HL ;GET ORIG CHRNR & LINENR АЖДАА LCN8 LD (CHRNR),HL ;BACK AND STORE IT. АЖДБА JR PRERTN АЖДВА ;********************************************** АЖДГА LTARRW EQU $ АЖДДА LCN10 LD A,(CHRNR) ;GET CHAR POS АЖДЕА DEC A ;DEC IT АЖДЖА OR A ;SEE IF IT IS 0 АЖДЗА JR Z,PRERTN ;GO IF IT IS АЖДИА LCN11 LD (CHRNR),A ;SAVE DEC CHRNR АЖДЙА JR PRERTN АЖЕАА ;********************************************** АЖЕБА RTARRW EQU $ АЖЕВА LCN12 LD A,(CHRNR) ;GET CHAR NR АЖЕГА INC A ;INC IT АЖЕДА CP 80 ;SEE IF IT IS AT END АЖЕЕА JR Z,PRERTN ;OF LINE. GO IF IT IS АЖЕЖА LCN13 LD (CHRNR),A ;STORE INC CHRNR АЖЕЗА JR PRERTN АЖЕИА ;********************************************** АЖЕЙА UPARRW EQU $ АЖЖАА LLN3 LD A,(LINENR) ;GET LINE COUNT АЖЖБА OR A ;SEE IF IT IS 0 АЖЖВА JR Z,PRERTN ;GO IF IT IS АЖЖГА DEC A ;BACKUP ONE LINE АЖЖДА LLN4 LD (LINENR),A ;SAVE NEW LINE NR АЖЖЕА JR PRERTN АЖЖЖА ;******************************************************* АЖЖЗА PRERTN IN A,(254) ;RESET GRAPHICS PORT АЖЖИА AND 0F7H АЖЖЙА OUT (254),A АЖЗАА LCN14 LD A,(CHRNR) ;GET CHAR NR АЖЗБА LD (40A6H),A ;THIS IS FOR A ROM ACTION АЖЗВА CP 64 ;MAKE SURE NR IS NOT >24 АЖЗГА JR C,PRTNL1 ;THIS IS TO SATISFY АЖЗДА SUB 20 ;A ROM CONDITION АЖЗЕА PRTNL1 LD (4020H),A АЖЗЖА EI АЖЗЗА POP BC АЖЗИА POP DE АЖЗЙА POP AF АЖИАА RET ;BACK TO CALLER АЖИБА ;********************************************** АЖИВА BEGLNE EQU $ ;JUMP TO BEG OF LINE АЖИГА XOR A ;ZERO A REGISTER АЖИДА LCN15 LD (CHRNR),A ;PUT CHAR NR TO 0 АЖИЕА JR PRERTN АЖИЖА ;********************************************** АЖИЗА CLREOL EQU $ ;CLEAR TO END OF LINE АЖИИА LD HL,(CHRNR) ;HL HAS CHRNR & LINENR АЖИЙА PUSH HL ;SAVEIT АЖЙАА CEOLL1 LD A,(CHRNR) ;LD A WITH CHAR NR АЖЙБА CP 80 ;SEE IF AT END OF LINE АЖЙВА JR NC,CEOLL2 ;GO IF IT IS АЖЙГА PUSH AF ;SAVE CHAR NR АЖЙДА LD A,0 ;LOAD SPACE (R/S GEN) АЖЙЕА CW10 CALL WRITE ;PRINT IT АЖЙЖА POP AF ;GET CHAR NR BACK АЖЙЗА INC A ;INC IT АЖЙИА LCN20 LD (CHRNR),A ;SAVE IT АЖЙЙА JR CEOLL1 ;GO DOIT AGAIN TIL EOL АЗААА CEOLL2 POP HL ;GET ORIG CHRNR & LINENR АЗАБА LCN21 LD (CHRNR),HL ;RESTORE IT АЗАВА JR PRERTN АЗАГА ;*********************************************** АЗАДА HMECUR EQU $ ;HOMES CURSOR TO UPPER LEFT АЗАЕА LCN16 LD HL,CHRNR ;GET CHAR POS АЗАЖА LD (HL),0 ;PUT IT TO 0 АЗАЗА INC HL ;MOVE TO LINE POS АЗАИА LD (HL),0 ;PUT IT TO 0 АЗАЙА LD A,(VIDCTL) ;GET 32 CHAR WORD АЗБАА AND 0F7H ;MAKE SURE IN 62 CHR MODE АЗББА LD (VIDCTL),A ;PUT WORD BACK АЗБВА OUT (0FFH),A ;SPIT IT OUT АЗБГА JR PRERTN АЗБДА ;*********************************************** АЗБЕА BCKSP EQU $ ;BACKSPACES CURSOR АЗБЖА LD A,0 ;SPACE (R/S GEN) АЗБЗА CW6 CALL WRITE ;PRINT IT АЗБИА LCN17 LD HL,CHRNR ;GET CHARNR AND LINENR АЗБЙА DEC (HL) ;DEC CHARNR АЗВАА LD A,(VIDCTL) ;CHECK TO SEE АЗВБА AND 8 ;IF IN 32 CHAR MODE. АЗВВА JR Z,BCKL1 ;JP IF NOT. АЗВГА DEC (HL) ;DEC AGAIN IF IS АЗВДА BCKL1 LD A,0FFH ;CHK IF CHARNR АЗВЕА CP (HL) ;IS -1. АЗВЖА JR NZ,BCKL2 ;LOOP BACK IF NOT АЗВЗА LD (HL),79 ;LD CHAR CT W/EOL АЗВИА INC HL ;MOVE TO LINENR АЗВЙА XOR A ;0 A REG АЗГАА CP (HL) ;IS LINENR 0 АЗГБА JR Z,BCKL3 ;JP IF IT IS АЗГВА DEC (HL) ;DEC LINENR АЗГГА BCKL2 LD A,(CURSOR) ;GET CURSOR CHAR АЗГДА CW7 CALL WRITE ;PRINT IT АЗГЕА JP3 JP PRERTN АЗГЖА BCKL3 LD (HL),0 ;IF AT LINENR 0 THEN АЗГЗА DEC HL ;0 BOTH LINENR AND АЗГИА LD (HL),0 ;CHARNR THEN АЗГЙА JR BCKL2 ;GO PRINT IT AND RET АЗДАА ;*********************************************** АЗДБА DNARRW EQU $ АЗДВА LLN5 LD HL,LINENR ;GET LINENR, GO АЗДГА CCD3 CALL CADVL3 ;INC IT & CK TO SEE АЗДДА JP4 JP PRERTN ;IF NEED TO SCROLL & RET АЗДЕА ;*********************************************** АЗДЖА ENTR EQU $ ;CARRAIGE RTN АЗДЗА LD A,0 ;LOAD SPACE (R/S) АЗДИА CW8 CALL WRITE ;PRINT IT АЗДЙА LCN18 LD HL,CHRNR ;GET CHARNR АЗЕАА CCD4 CALL CADVL4 ;LOADS CHARNR W/0 AND CKS АЗЕБА JR CLREOL ;IF SCROLL IS NEEDED. АЗЕВА ;*********************************************** АЗЕГА CURADV EQU $ АЗЕДА LCN19 LD HL,CHRNR ;GET CHARNR АЗЕЕА INC (HL) ;INC IT АЗЕЖА LD A,(VIDCTL) ;SEE IF 32 CHAR АЗЕЗА AND 8 ;MODE. АЗЕИА JR Z,CADVL1 ;JP IF NOT АЗЕЙА INC (HL) ;INC AGAIN АЗЖАА CADVL1 LD A,79 ;SEE IF CHARNR АЗЖБА CP (HL) ;AT EOL АЗЖВА JR NC,CADVL2 ;GO IF NOT АЗЖГА CADVL4 LD (HL),0 ;0 CHARNR АЗЖДА INC HL ;GET LINENR АЗЖЕА CADVL3 LD A,23 ;SEE IF AT АЗЖЖА CP (HL) ;LINE 23. АЗЖЗА JR Z,SCROLL ;GO IF IT IS АЗЖИА INC (HL) ;INC IT АЗЖЙА CADVL2 LD A,(CURSOR) ;GET CURSOR АЗЗАА CW9 CALL WRITE ;PRINT IT АЗЗБА RET АЗЗВА ;**************************************************** АЗЗГА CLRSCN EQU $ АЗЗДА LD BC,3FFEH ;ZERO'S THE HI RES АЗЗЕА LD HL,0 ;SCREEN АЗЗЖА LD (HL),0 АЗЗЗА LD DE,1 АЗЗИА LDIR АЗЗЙА IN A,(254) ;BANK SW TO LII ROM АЗИАА AND 0F7H АЗИБА OUT (254),A АЗИВА LD BC,1023 ;ZERO'S THE LO RES АЗИГА LD HL,3C00H ;SCREEN АЗИДА LD (HL),20H АЗИЕА LD DE,3C01H АЗИЖА LDIR АЗИЗА IN A,(254) ;BANK SW BACK АЗИИА OR 8 АЗИЙА OUT (254),A АЗЙАА RET АЗЙБА ;******************************************** АЗЙВА CTLCHR EQU $ ;CHK FOR FUNCTION OF CTLCHR АЗЙГА CP 8 ;BACKSPACE АЗЙДА JB1 JP Z,BCKSP АЗЙЕА CP 0AH ;SEE IF LESS THEN 0AH АЗЙЖА JP7 JP C,PRERTN ;RET IF IT IS АЗЙЗА CP 0EH ;IS IT 0AH OR 0DH АЗЙИА JE1 JP C,ENTR ;GO IF IT IS АЗЙЙА JCON1 JP Z,CURON ;TURN ON CURSOR IF 0EH АИААА CP 0FH ;TURN OFF CUR. АИАБА JCOFF1 JP Z,CUROFF АИАВА CP 17H ;32 CHAR АИАГА J32A JP Z,CHR32 АИАДА CP 18H ;LEFT ARROW АИАЕА JLA1 JP Z,LTARRW АИАЖА CP 19H ;RIGHT ARROW АИАЗА JRA1 JP Z,RTARRW АИАИА CP 1AH ;DOWN ARROW АИАЙА JDA1 JP Z,DNARRW АИБАА CP 1BH ;UP ARROW АИББА JUA1 JP Z,UPARRW ;UP ARROW АИБВА CP 1CH ;HOME CURSOR АИБГА JHM1 JP Z,HMECUR АИБДА CP 1DH ;BEGIN OF LINE АИБЕА JBG1 JP Z,BEGLNE АИБЖА CP 1EH ;ERASE TO END OF LINE АИБЗА JEOL1 JP Z,CLREOL АИБИА CP 1FH ;CLEAR TO END OF FRAME АИБЙА JEOF1 JP Z,ERAEOF АИВАА JP6 JP PRERTN ;IGNORE ALL OTHERS АИВБА ;******************************************************* АИВВА SCROLL EQU $ АИВГА LD A,21 ;START OF NORMAL AREA АИВДА LD (HL),A ;SCROLL АИВЕА LD B,12 АИВЖА LD DE,0 ;SCROLLS THREE LINES АИВЗА LD HL,80H ;AT A TIME. АИВИА SCLL1 LD A,B АИВЙА LD BC,896 АИГАА LDIR АИГБА EX DE,HL АИГВА INC H АИГГА LD B,A АИГДА DJNZ SCLL1 ;END OF NORM AREA SCROLL АИГЕА LD DE,3000H ;BEG OF EXT AREA SCROLL АИГЖА LD HL,3080H АИГЗА LD B,4 АИГИА SCLL3 PUSH BC АИГЙА LD B,14 АИДАА SCLL4 LD A,B АИДБА LD BC,48 АИДВА LDIR АИДГА LD BC,10H АИДДА ADD HL,BC АИДЕА EX DE,HL АИДЖА ADD HL,BC АИДЗА EX DE,HL АИДИА LD B,A АИДЙА DJNZ SCLL4 АИЕАА EX DE,HL АИЕБА LD BC,0100H АИЕВА ADD HL,BC АИЕГА POP BC АИЕДА DJNZ SCLL3 ;END EXT AREA SCROLL АИЕЕА LD B,12 ;0 LAST 3 NORM AREA LINES АИЕЖА LD HL,0380H АИЕЗА LD DE,0381H АИЕИА SCLL2 LD A,B АИЕЙА LD BC,127 АИЖАА LD (HL),0 АИЖБА LDIR АИЖВА LD B,A АИЖГА LD E,81H АИЖДА LD L,80H АИЖЕА LD A,4 АИЖЖА ADD A,H АИЖЗА LD H,A АИЖИА LD D,A АИЖЙА DJNZ SCLL2 ;END NORM AREA 0 АИЗАА LD HL,3380H ;0 LAST 3 EXT AREA LINES АИЗБА LD DE,3381H АИЗВА LD B,4 АИЗГА SCLL5 PUSH BC АИЗДА LD BC,48 АИЗЕА LD (HL),0 АИЗЖА LDIR АИЗЗА LD A,10H АИЗИА ADD A,L АИЗЙА LD L,A АИИАА LD E,L АИИБА INC E АИИВА LD BC,48 АИИГА LD (HL),0 АИИДА LDIR АИИЕА LD BC,390H АИИЖА ADD HL,BC АИИЗА LD D,H АИИИА LD E,L АИИЙА INC E АИЙАА POP BC АИЙБА DJNZ SCLL5 ;END EXT AREA 0 АИЙВА RET АИЙГА ;****************************************************** АИЙДА GRAPIC EQU $ АИЙЕА SUB 20H ;COMPRESSES ALL OF NORMAL АИЙЖА GRAL2 CP 70H ;MOD i GRAPHIC COMMANDS АИЙЗА JR C,GRAL1 ;TO THE ABREV. COMMANDS АИЙИА SUB 10H АИЙЙА JR GRAL2 АЙААА GRAL1 CALL WRITE ;GO PRINT IT АЙАБА CC4 CALL CURADV АЙАВА JP8 JP PRERTN АЙАГА ;****************************************************** АЙАДА CHRNR DB 0 ;CHAR POS COUNTER АЙАЕА LINENR DB 0 ;LINE NUMBER COUNTER АЙАЖА CHRPOS DB 0 ;CHAR POS CNTR WITHIN THE АЙАЗА ;NORM OR EXT AREA АЙАИА CURSOR DB 20H ;STORES CURRENT CURSOR CHR АЙАЙА ;**************************************************** АЙБАА TABLEC EQU $ ;ADDR FOR 24 LINES OF NORM AREA АЙББА DW 0 АЙБВА DW 2000H АЙБГА DW 1040H АЙБДА DW 0080H АЙБЕА DW 2080H АЙБЖА DW 10C0H АЙБЗА DW 0100H АЙБИА DW 2100H АЙБЙА DW 1140H АЙВАА DW 0180H АЙВБА DW 2180H АЙВВА DW 11C0H АЙВГА DW 0200H АЙВДА DW 2200H АЙВЕА DW 1240H АЙВЖА DW 0280H АЙВЗА DW 2280H АЙВИА DW 12C0H АЙВЙА DW 0300H АЙГАА DW 2300H АЙГБА DW 1340H АЙГВА DW 0380H АЙГГА DW 2380H АЙГДА DW 13C0H АЙГЕА ;****************************************************** АЙГЖА TABLED EQU $ ;ADDR OF 24 LINES OF EXT AREA АЙГЗА DW 3000H АЙГИА DW 3020H АЙГЙА DW 3050H АЙДАА DW 3080H АЙДБА DW 30A0H АЙДВА DW 30D0H АЙДГА DW 3100H АЙДДА DW 3120H АЙДЕА DW 3150H АЙДЖА DW 3180H АЙДЗА DW 31A0H АЙДИА DW 31D0H АЙДЙА DW 3200H АЙЕАА DW 3220H АЙЕБА DW 3250H АЙЕВА DW 3280H АЙЕГА DW 32A0H АЙЕДА DW 32D0H АЙЕЕА DW 3300H АЙЕЖА DW 3320H АЙЕЗА DW 3350H АЙЕИА DW 3380H АЙЕЙА DW 33A0H АЙЖАА DW 33D0H АЙЖБА ;******************************************************** АЙЖВА CHRGEN EQU $ ;R/S 6X8 MATRIX АЙЖГА LCBLK DM 0,0,0,0,0,0,0,0 АЙЖДА LCEXC DM 8,8,8,8,8,0,8,0 АЙЖЕА LCQUTE DM 14H,14H,14H,0,0,0,0,0 АЙЖЖА LCNBR DM 14H,14H,3EH,14H,3EH,14H,14H,0 АЙЖЗА LC$ DM 8,3CH,0AH,1CH,28H,1EH,8,0 АЙЖИА LCPCT DM 6,26H,10H,8,6,32H,30H,0 АЙЖЙА LCAMB DM 4,0AH,0AH,4,0AH,12H,2CH,0 АЙЗАА LCAPOS DM 0CH,0CH,4,2,0,0,0,0 АЙЗБА LCOPER DM 10H,8,4,4,4,8,10H,0 АЙЗВА LCCPER DM 4,8,10H,10H,10H,8,4,0 АЙЗГА LCAST DM 8,2AH,1CH,3EH,1CH,2AH,8,0 АЙЗДА LCPLUS DM 0,8,8,3EH,8,8,0,0 АЙЗЕА LCCOMA DM 0,0,0,0,18H,18H,8,4 АЙЗЖА LCMIN DM 0,0,0,3EH,0,0,0,0 АЙЗЗА LC. DM 0,0,0,0,0,0CH,0CH,0 АЙЗИА LCSLA DM 0,20H,10H,8,4,2,0,0 АЙЗЙА LC0 DM 1CH,22H,32H,2AH,26H,22H,1CH,0 АЙИАА LC1 DM 8,0CH,8,8,8,8,1CH,0 АЙИБА LC2 DM 1CH,22H,20H,1CH,2,2,3EH,0 АЙИВА LC3 DM 1CH,22H,20H,18H,20H,22H,1CH,0 АЙИГА LC4 DM 10H,18H,14H,12H,3EH,10H,10H,0 АЙИДА LC5 DM 3EH,2,1EH,20H,20H,22H,1CH,0 АЙИЕА LC6 DM 18H,4,2,1EH,22H,22H,1CH,0 АЙИЖА LC7 DM 3EH,20H,10H,8,4,2,2,0 АЙИЗА LC8 DM 1CH,22H,22H,1CH,22H,22H,1CH,0 АЙИИА LC9 DM 1CH,22H,22H,3CH,20H,10H,0CH,0 АЙИЙА LCCOL DM 0,0CH,0CH,0,0CH,0CH,0,0 АЙЙАА LCSCOL DM 0,0CH,0CH,0,0CH,0CH,4,2 АЙЙБА LCLTHN DM 10H,8,4,2,4,8,10H,0 АЙЙВА LCEQU DM 0,0,3EH,0,3EH,0,0,0 АЙЙГА LCGTHN DM 4,8,10H,20H,10H,8,4,0 АЙЙДА LCQUES DM 1CH,22H,20H,10H,8,0,8,0 АЙЙЕА LC@ DM 1CH,22H,20H,2CH,2AH,2AH,1CH,0 АЙЙЖА LCAA DM 8,14H,22H,22H,3EH,22H,22H,0 АЙЙЗА LCBB DM 1EH,24H,24H,1CH,24H,24H,1EH,0 АЙЙИА LCCC DM 1CH,22H,2,2,2,22H,1CH,0 АЙЙЙА LCDD DM 1EH,24H,24H,24H,24H,24H,1EH,0 БАААА LCEE DM 3EH,2,2,0EH,2,2,3EH,0 БААБА LCFF DM 3EH,2,2,0EH,2,2,2,0 БААВА LCGG DM 3CH,2,2,32H,22H,22H,1CH,0 БААГА LCHH DM 22H,22H,22H,3EH,22H,22H,22H,0 БААДА LCII DM 1CH,8,8,8,8,8,1CH,0 БААЕА LCJJ DM 20H,20H,20H,20H,20H,22H,1CH,0 БААЖА LCKK DM 22H,12H,0AH,6,0AH,12H,22H,0 БААЗА LCLL DM 2,2,2,2,2,2,3EH,0 БААИА LCMM DM 22H,36H,2AH,2AH,22H,22H,22H,0 БААЙА LCNN DM 22H,26H,2AH,32H,22H,22H,22H,0 БАБАА LCOO DM 1CH,22H,22H,22H,22H,22H,1CH,0 БАББА LCPP DM 1EH,22H,22H,1EH,2,2,2,0 БАБВА LCQQ DM 1CH,22H,22H,22H,2AH,12H,2CH,0 БАБГА LCRR DM 1EH,22H,22H,1EH,0AH,12H,22H,0 БАБДА LCSS DM 1CH,22H,2,1CH,20H,22H,1CH,0 БАБЕА LCTT DM 3EH,8,8,8,8,8,8,0 БАБЖА LCUU DM 22H,22H,22H,22H,22H,22H,1CH,0 БАБЗА LCVV DM 22H,22H,22H,14H,14H,8,8,0 БАБИА LCWW DM 22H,22H,22H,22H,2AH,36H,22H,0 БАБЙА LCXX DM 22H,22H,14H,8,14H,22H,22H,0 БАВАА LCYY DM 22H,22H,14H,8,8,8,8,0 БАВБА LCZZ DM 3EH,20H,10H,8,4,2,3EH,0 БАВВА LCOBRK DM 1CH,4,4,4,4,4,1CH,0 БАВГА LCRSLA DM 0,2,4,8,10H,20H,0,0 БАВДА LCCBRK DM 1CH,10H,10H,10H,10H,10H,1CH,0 БАВЕА LCCRT DM 8,14H,22H,0,0,0,0,0 БАВЖА LCUND DM 0,0,0,0,0,0,3EH,0 БАВЗА LCLB DM 8,14H,4,0EH,4,24H,1EH,0 БАВИА LCA DM 0,0,1CH,20H,3CH,22H,3CH,0 БАВЙА LCB DM 2,2,1AH,26H,22H,26H,1AH,0 БАГАА LCC DM 0,0,1CH,22H,2,22H,1CH,0 БАГБА LCD DM 20H,20H,2CH,32H,22H,32H,2CH,0 БАГВА LCE DM 0,0,1CH,22H,3EH,2,1CH,0 БАГГА LCF DM 10H,28H,8,1CH,8,8,8,0 БАГДА LCG DM 0,0,1CH,22H,22H,3CH,20H,1CH БАГЕА LCH DM 2,2,1AH,26H,22H,22H,22H,0 БАГЖА LCI DM 8,0,0CH,8,8,8,1CH,0 БАГЗА LCJ DM 20H,0,30H,20H,20H,20H,24H,18H БАГИА LCK DM 4,4,24H,14H,0CH,14H,24H,0 БАГЙА LCL DM 0CH,8,8,8,8,8,1CH,0 БАДАА LCM DM 0,0,14H,2AH,2AH,2AH,2AH,0 БАДБА LCN DM 0,0,1AH,26H,22H,22H,22H,0 БАДВА LCO DM 0,0,1CH,22H,22H,22H,1CH,0 БАДГА LCP DM 0,0,1AH,26H,26H,1AH,2,2 БАДДА LCQ DM 0,0,2CH,32H,32H,2CH,20H,20H БАДЕА LCR DM 0,0,1AH,26H,2,2,2,0 БАДЖА LCS DM 0,0,3CH,2,1CH,20H,1EH,0 БАДЗА LCT DM 8,8,1CH,8,8,28H,10H,0 БАДИА LCU DM 0,0,22H,22H,22H,32H,2CH,0 БАДЙА LCV DM 0,0,22H,22H,22H,14H,8,0 БАЕАА LCW DM 0,0,22H,22H,2AH,2AH,14H,0 БАЕБА LCX DM 0,0,22H,14H,8,14H,22H,0 БАЕВА LCY DM 0,0,22H,22H,22H,3CH,20H,1CH БАЕГА LCZ DM 0,0,3EH,10H,8,4,3EH,0 БАЕДА OPBCE DM 10H,8,8,4,8,8,10H,0 БАЕЕА HBAR DM 8,8,8,0,8,8,8,0 БАЕЖА CLBCE DM 4,8,8,10H,8,8,4,0 БАЕЗА KANA DM 22H,14H,8,3EH,8,3EH,8,0 БАЕИА XHTCH DM 2AH,14H,2AH,14H,2AH,14H,2AH,14H БАЕЙА G128 DM 0,0,0,0,0,0,0,0 ;GRAPHICS CHAR БАЖАА G129 DM 7,7,7,7,0,0,0,0 БАЖБА G130 DM 38H,38H,38H,38H,0,0,0,0 БАЖВА G131 DM 3FH,3FH,3FH,3FH,0,0,0,0 БАЖГА G132 DM 0,0,0,0,7,7,7,7 БАЖДА G133 DM 7,7,7,7,7,7,7,7 БАЖЕА G134 DM 38H,38H,38H,38H,7,7,7,7 БАЖЖА G135 DM 3FH,3FH,3FH,3FH,7,7,7,7 БАЖЗА G136 DM 0,0,0,0,38H,38H,38H,38H БАЖИА G137 DM 7,7,7,7,38H,38H,38H,38H БАЖЙА G138 DM 38H,38H,38H,38H,38H,38H,38H,38H БАЗАА G139 DM 3FH,3FH,3FH,3FH,38H,38H,38H,38H БАЗБА G140 DM 0,0,0,0,3FH,3FH,3FH,3FH БАЗВА G141 DM 7,7,7,7,3FH,3FH,3FH,3FH БАЗГА G142 DM 38H,38H,38H,38H,3FH,3FH,3FH,3FH БАЗДА G143 DM 3FH,3FH,3FH,3FH,3FH,3FH,3FH,3FH БАЗЕА ENDP EQU $ БАЗЖА END INITA 8H,38H БАЗАА G139 DM 3FH,3FH,3FH,3FH,38H,38H,38H,38H БАЗБА G140 DM 0,0,0,0,3FH,3FH,3FH,3FH БАЗВА G141 DM 7,7,7,7,3FH,3FH,3FH,3FH БАЗГА G142 DM 38H,38H,38H,38H,3FH,3FH,3FH,3FH БАЗДА G143 DM 3FH,3FH,3FH,3FH,3џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџтўџџџџџџџџџџџџџџџ