1,345
edits
Changes
no edit summary
pt6_371 C��ЦЛ�МН( MAIN "",#C6 EDORN XOR A LD (volA),A,(volC),A LD BC,mEDORN CALL WINDUM LD HL,tEDORN,DE,#800 CALL PRMENU ;LD HL,tORNKEY,DE,#12 ;CALL PRMENU LD HL,tORNo_s,DE,#711 CALL PRMENU CALL OUT4 CALL HLORN LD (ornadr),HL LD DE,EDORbf LD BC,64 LDIR CALL PRORNos LD A,(ORN),HL,TORNSZ ADD A,A,A,L LD L,A,A,(HL),B,A,(EoLOOP),A INC L LD A,(HL) SUB B LD (EoLPlen),A PUSH HL CALL PRORN XOR A LD (EoLIN),A,(EoMflag),A CALL GornMRKEDORN0 CALL RESHALT CALL EORNCUR CALL EoCHMRK CALL EoPRMRK CALL EDORNKY LD A,(ORN),(piaORN),AEoSMP=$+1 LD A,0,(piaSMP),A ADD A,A LD L,A,H,'TSMPSZ LD A,(HL),(piSLOOP),A INC L LD A,(HL),(piSEND),A LD A,(EoLPlen),B,A LD A,(EoLOOP),(piOLOOP),A ADD A,B LD (piOEND),A CALL OUT4 LD HL,EDORbfornadr=$+1 LD DE,0,BC,64 LDIR CALL PIANO CALL TSTFIRE JNC EDORN0 CALL DOWNMER POP HLORNQU LD A,(EoLOOP),B,A LD A,(EoLPlen)ORNQ ADD A,B LD (HL),A DEC L LD (HL),B CALL CLOSWIN LD A,(OCT) JP PROCTHEXDIG ADD A,"0 CP ": RET C ADD A,"A"-": RET PRMEMOSmemol=$+1 LD DE,#60E CALL PRMEMO LD HL,Tmemomemo=$+1 LD B,0 DJNZ $+4 LD D,6 DJNZ $+4 LD D,11 DJNZ $+4 LD D,#E+2 DJNZ $+4 LD D,#18+8 DJNZ $+4 LD D,#22+14 LD (memol),DE JP PRMENUEPsseP LD A,(CURX) LD E,1 LD BC,#200 CP 4 RET C INC E LD BC,#102 CP 6 RET C LD BC,#503 INC E CP 11+4 RET C LD C,8 INC E CP 16+8 RET C LD C,13 INC E RET EPsse CALL EPsseP LD A,E,(memo),A PUSH BC CALL PRMEMOS LD A,(EPAT),B,A,C,0 CALL GETnADR LD DE,BUF LD BC,#480 LDIR CALL OUT6 LD HL,BUF POP BC LD A,B,B,0 ADD HL,BC LD C,A LD DE,MEMOBUF LD A,64EPsse0 PUSH BC
PUSH HL
CALL PRORN XOR A LD (EoLIN),A,(EoMflag),A CALL GornMRK EDORN0 CALL RESHALT CALL EORNCUR CALL EoCHMRK CALL EoPRMRK CALL EDORNKY LD A,(ORN),(piaORN),A EoSMP=$+1 LD A,0,(piaSMP),A ADD A,A LD L,A,H,'TSMPSZ LD A,(HL),(piSLOOP),A INC L LD A,(HL),(piSEND),A LD A,(EoLPlen),B,A LD A,(EoLOOP),(piOLOOP),A ADD A,B LD (piOEND),A CALL OUT4 LD HL,EDORbf ornadr=$+1 LD DE,0,BC,64 LDIR CALL PIANO CALL TSTFIRE JNC EDORN0 CALL DOWNMER
POP HL
ORNQU LD A,(EoLOOP),B,A LD A,(EoLPlen) ORNQ ADD A,B LD (HL),A DEC L LD (HL),B CALL CLOSWIN LD A,(OCT) JP PROCT HEXDIG ADD A,"0 CP ": RET C ADD A,"A"-": RET PRMEMOS memol=$+1 LD DE,#60E CALL PRMEMO LD HL,Tmemo memo=$+1 LD B,0 DJNZ $+4 LD D,6 DJNZ $+4 LD D,11 DJNZ $+4 LD D,#E+2 DJNZ $+4 LD D,#18+8 DJNZ $+4 LD D,#22+14 LD (memol),DE JP PRMENU EPsseP LD A,(CURX) LD E,1 LD BC,#200 CP 4 RET C INC E LD BC,#102 CP 6 RET C LD BC,#503 INC E CP 11+4 RET C LD C,8 INC E CP 16+8 RET C LD C,13 INC E RET EPsse CALL EPsseP LD A,E,(memo),A PUSH BC CALL PRMEMOS LD A,(EPAT),B,A,C,0 CALL GETnADR LD DE,BUF LD BC,#480 LDIR CALL OUT6 LD HL,BUF POP BC LD A,B,B,0 ADD HL,BC LD C,A LD DE,MEMOBUF LD A,64 EPsse0 PUSH BC PUSH HL LDIR POP HL LD C,18 ADD HL,BC POP BC DEC A JNZ EPsse0 RET EPssr CALL EPsseP LD A,(memo) CP E JZ EPssrE CP 3 RET C LD A,E CP 3 RET C EPssrE PUSH BC LD A,(EPAT) LD B,A,C,0 CALL GETnADR LD (EPssrDE),HL LD DE,BUF LD BC,#480 LDIR LD A,(pg) ;pat EXA CALL OUT6 LD HL,BUF POP BC LD A,B,B,0 ADD HL,BC LD C,A LD DE,MEMOBUF EXD LD A,64 EPssr0 PUSH BC PUSH DE LDIR POP DE EXD LD C,18 ADD HL,BC EXD POP BC DEC A JNZ EPssr0 EXA CALL OUTME LD HL,BUF EPssrDE=$+1 LD DE,0 LD BC,#480 LDIR JP PRPATU EXCHANG CALL FROMSZ PUSH AF LD A,(pat1) LD B,A CALL GETnADR PUSH HL POP IX CALL CHN1PP ADD HL,BC LD A,(chn2) LD C,3 DEC A JZ EXCHX2 LD C,8 DEC A JZ $+4 LD C,13 EXCHX2 ADD IX,BC POP AF EXCH0 EXA PUSH HL LD DE,BUF LD BC,5 LDIR POP DE PUSH DE,IX POP HL LD C,5 LDIR LD HL,BUF PUSH IX POP DE LD C,5 LDIR POP HL LD C,18 ADD HL,BC ADD IX,BC EXA DEC A JNZ EXCH0 JP PRPATO CATBAR LD HL,#48B5 XOR A LD (CATBf),A LD B,A,C,A LD E,#81 LD A,(catH) OR A JNZ CATBNZ INC A LD D,A JR CATBARP CATBNZ ADD A,A DEC A LD D,A LD A,(cattop) OR A CALL NZ,CATBARP LD E,#BD LD A,(catH) CP 9 JC CATBARP LD A,8 CALL CATBARP LD A,(catH) cattop=$+1 SUB 0 SUB 8 LD E,#81 RET Z CATBARP EXA CATBf=$+1 CATBAR0 LD A,0 XOR -1 LD (CATBf),A JZ $+6 LD (HL),E CALL DHL SCF LD A,C ADC A,D LD C,A JNC CATBAR0 EXA DEC A JNZ CATBARP RET USEBAR LD A,(catH) CP 9 RET C EXA CALL FIRE RET Z LD A,(ARX) SUB #A8 CP 8 RET NC LD A,(ARXY) SUB #68 CP #40 RET NC LD L,A XOR A LD (USEBf),A LD E,A,C,A,H,A LD A,(catH) ADD A,A DEC A LD D,A USEBAR0 LD A,E CP L JNC USEBok USEBf=$+1 USEBAR1 LD A,0 XOR -1 LD (USEBf),A JZ $+3 INC E SCF LD A,C ADC A,D LD C,A JNC USEBAR1 INC H JR USEBAR0 USEBok LD B,0 EXA LD C,A OR A RET Z SUB 9 JC USEBARQ LD B,H,A,H ADD A,7 CP C JC $+6 LD A,C SUB 8 LD B,A USEBARQ LD A,B,(cattop),A JP PRCAT AUDATER LD C,#7F LD DE,AUTO2 LD A,(DE) CP C JZ AUDnS AND #80 LD B,A LD A,(HL) AND C OR B LD (HL),A INC HL,HL,HL LD A,(DE) AND #7F RRCA RRCA RRCA RRCA LD B,A LD A,(HL) AND #F OR B LD (HL),A JR $+5 AUDnS INC HL,HL,HL INC DE LD A,(DE) CP C JZ AUDnT LD B,A LD A,(HL) AND #F0 OR B LD (HL),A AUDnT INC DE,HL LD A,(DE) CP C JZ AUDnO RRCA RRCA RRCA RRCA LD B,A LD A,(HL) AND #F OR B LD (HL),A AUDnO INC DE LD A,(DE) CP C RET Z LD B,A LD A,(HL) AND #F0 OR B LD (HL),A RET AENVER CP E JZ AEnres LD HL,ead RES 7,(HL) INC L RES 7,(HL) AEnres AENVFRQ=$+1 LD HL,0 AENVnot=$+1
LD DE,0
RET Z
LD A,(HL)
RET Z
RET NC
;LD HLA,2;(curite) ;CP (CURYHL),H,L ;RET C INC L(HL) RET TSTNnot LD A,201,(COPQJPAENVadr),HL XOR A CALL EPdellnP LD B,A ADD HL,195,BC LD (COPQJPAENVFRQ),AHL LD E,-1 CALL PRPATU OR D JR TSTNROL JZ TSTnNOTTSTnSSL CP 97 LD A,(ead) JNC TSTnNOT RLA INC E JC AEskipCP 25
LD A,(HL)
OR A
LD BC,(CURY)
CALL GETnADR
EXD LD HL,BUF+#480 ;тут нули LD BC,18 LDIR insNALL HALT LD (IY-50),kssL TSTNOTE LD BC,(CURY) CALL GETnADR CALL NOTEKEY BIT 7,D CALL Z,XPPSCF DEC BC JZ TSTNnot LD A,D CP 98 JZ $-5 CALL RECHEX INC D JNZ TSTnDIG LD C,D,B,D,D,A LD A,(CURX) OR A CALL TSTnPP+2 CALL TSTnP LD C,6 CALL TSTnPP LD C,4 CALL TSTnPP+1 LD C,11 CALL TSTnPP LD C,9 CALL TSTnPP+1 LD C,16 CALL TSTnPP LD C,14 CALL TSTnPP+1 TSTnDIG LD A,D CP 9 JZ EVENODD CALL RECopq INC D RET NZ LD D,A OR A CALL XPP RET NZ INC C,C LD B,0 ADD HL,BC LD A,(HL) LD (HL),D RLD SCF JR TSTs0EVENODD LD HL,COPSCF LD A,(HL) XOR 128 LD (HL),A LD HL,#485A LD C,2 CALL INVSYMS POP AF RET ;2(EDSONG,EPEXT)MELINV LD HL,#40EA LD C,6INVSYMS PUSH HL LD B,8invsym0 LD A,(HL) CPL LD (HL),A INC H DJNZ invsym0 POP HL INC L DEC C JR NZ,INVSYMS RET TSTL POP AF ADD HL,BC LD A,(HL) LD (HL),D RLD OR A CALL XPP JZ TSTs0-1 CP -7 JNZ tstnq LD A,(CURX) OR A JZ tstnq
LD A,D
LD A,(HL)
LD A,(HL)
OR A
CALL XPP JZ TSTs0-1 CALL NZ,EpCHENDCP -7 JNZ tstnq LD A,(NOPKACURX)
OR A
XOR A
XOR A
SUB (HL)
JC $+4
LD A,-1696 JR EDPOSTO DJNZ $+4EDPOSNR DEC A EDORNEG JNZ EDPOSND NEG LD (HL),A,H INC A CALL ORNline AND 15 JP SHOLK JNZ EDPOSDQ EDOR0 LD A,L CALL EoGadr INC XOR A CP -15 RET Z JR EDPOSTOEDORNEGEDPOSND DEC A EDoINS JNZ EDPOSNU CALL EoGadr LD A,H DEC A JP P,EDPOSDQ63 LD A, SUB L SUB 1 RET CZEDPOSTO LD (EsTOP)L,62,E,63,A JR PRPOSEDPOSNU CP kDelLn-11 JNZ EDpNdelln CALL EpGadr LD D,H,EB,0,C,LA LDDR
INC L
DEC A
LD (HL),A
NEG
ADD A,(HL)
LD (HL),A
LD HL,EsLOOP
JR EDoBEGQ EDsEND LD HL,EsLOOP LD A,(EsLIN) SUB (HL) INC HL LD (HL),A RET PRORN LD HL,EDORbf LD E,1,C,16 PRORN0 PUSH HL LD D,1,B,4 PRORN1 PUSH BC LD A,L CALL toOO INC D,D PUSH HL LD A,(HL),L,A OR A LD B,"+ CALL M,NEGHL-2 LD A,B CALL PRADD INC D LD A,L CALL toOO INC D,D,D POP HL LD BC,16 ADD HL,BC POP BC DJNZ PRORN1 INC E POP HL INC L DEC C JNZ PRORN0 RET EORNCUR CALL BIT5 RET Z SUB 8 LD B,-16 JZ EORNC DEC A LD B,16 JZ EORNC DEC A LD B,1 JZ EORNC DEC A LD B,-1 RET NZ EORNC LD A,(EoLIN) ADD A,B AND 63 EORNCQ EXA LD E,7 CALL GornMRK+2 EXA LD (EoLIN),A LD HL,SHOLK PUSH HL GornMRK LD E,56,A,(EoLIN) LD BC,16 LD H,B INC B SUB C JNC $-2 ADD A,C,A,3 ADD A,A,A,A,A,A LD L,A ADD HL,HL,HL,HL LD A,H SUB -88 LD H,A,A,B ADD A,A,A,A SUB 2 OR L LD L,A,(HL),E INC L LD (HL),E RET ORNline LD A,(EoLIN),BC,16 INC B SUB C JNC $-2 ADC A,C LD E,A,A,B ADD A,A,A,A,A,A SUB 4 LD D,A LD HL,(ornADR) LD A,(EoLIN) ADD A,L LD L,A,A,(HL),L,A OR A LD B,"+ CALL M,NEGHL-2 LD A,B CALL PRADD INC D LD A,L JP toOO EoPRMRK LD A,(NOPKA) OR A LD A,3 CCF CALL NZ,EoARPOS CALL NC,EORNCQ EoLOOP=$+1 EoLPlen=$+2 LD BC,0,DE,32 XOR A LD HL,#5861 PRoLP0 CP C JZ PRoLPQ LD (HL),5 CALL PRoLPP JNZ PRoLP0 RET PRoLPQ LD (HL),#5D CALL PRoLPP RET Z DJNZ PRoLPQ JR PRoLP0 PRoLPP INC A PUSH AF AND 15 JNZ PRoLPE LD A,L AND 31 LD H,88 ADD A,#44 LD L,A PRoLPE ADD HL,DE POP AF AND 63 RET EsPRMRK LD HL,SMPATR+1;#58E5 EsLOOP=$+1 EsLEN=$+2 LD BC,#100,A,C ADD A,B LD B,A,DE,32 LD A,(EsTOP) EXA LD A,SMPH EsPRMR0 EXA CP C JNC EsPRMR1+1 EsPRMRQ LD (HL),5 INC A EXA ADD HL,DE DEC A JNZ EsPRMR0 RET EsPRMR1 EXA CP B JNC EsPRMRQ LD (HL),#5D INC A EXA ADD HL,DE DEC A JNZ EsPRMR1 RET EDSMORN LD HL,EsORN,A,(HL) ADD A,C AND #F LD (HL),A JR EDSMOq EDSM_p POP AF,HL CALL SMPQU CALL DECSMP JP EDSMP EDSM_n POP AF,HL CALL SMPQU CALL INCSMP JP EDSMP EDSMPKY CALL FIRE JP NZ,EDSMPFI XOR A LD (EDSMFIh),A CALL BIT5 RET Z CP 4 JZ EDSM_p CP 5 JZ EDSM_n LD BC,32 CP "R JZ EDSMNUM LD C,1 CP 172;i JZ EDSMORN CP "W JZ EDSMNUM DEC BC,BC CP 197;u JZ EDSMORN CP "E JZ EDSMNUM LD C,-32 CP "T JZ EDSMNUM CP "0 JZ EDSM0 CP "+ JZ EDsPLU SUB "0;1 CP 9;8 RET NC LD (OCT),A EDSMOq CALL PROCORN JP SHOLK EsX=$+1 EDsPLU LD A,0 INC A RET Z CALL EsGadr PUSH HL POP IX LD L,(IX),H,(IX+1) CALL NEGHL JR EDSMNQ EDSM0 CALL EsGadr LD A,(EsX) INC A JNZ EDsNOI0 INC L,L LD A,(HL) AND #E0 LD (HL),A JR EDsNOIQ EDsNOI0 XOR A LD (HL),A INC L LD (HL),A JR EDSMKQ EDSMNUM LD A,(EsX) INC A JZ EDSMNOI CALL EsGadr PUSH HL POP IX LD L,(IX),H,(IX+1) ADD HL,BC LD A,H OR A LD B,#F JP P,EDSMNOK CALL NEGHL LD A,H AND B LD H,A CALL NEGHL JR $+4 EDSMNOK AND B LD H,A EDSMNQ LD (IX),L,(IX+1),H EDSMKQ CALL EsPRNUM JP SHOLK EDSMNOI CALL EsGadr INC L,L LD A,(HL) SUB C XOR (HL) AND 31 XOR (HL) LD (HL),A EDsNOIQ CALL EsPRNOI JP SHOLK EsGadr LD H,'EDORbf,A,(EsTOP),D,A EsLIN=$+1 LD A,0 PUSH AF SUB D LD E,A POP AF ADD A,A,A,A LD L,A RET ;3 PRSMLIN PUSH AF,AF LD D,1 CALL toOO LD D,8 POP AF ADD A,A,A,A LD HX,'EDORbf,LX,A LD A,(IX+1) OR A LD L,(IX),H,(IX+1) LD B,"+ CALL M,NEGHL-2 LD A,"+"+"- SUB B CALL PRADD INC D CALL toOOOO INC D,D LD A,(IX+2) PUSH AF AND 31 CALL toOO INC D,D POP AF CALL PRTNE LD A,(IX+3) CALL PRVTN POP AF JP PRSMVOL EsPRNUM CALL EsGadr LD D,8,A,(HL) INC L LD H,(HL),L,A,A,H RLA LD B,"- JNC $+7 LD B,"+ CALL NEGHL LD A,B CALL PRADD INC D JP toOOOO EsPRNOI CALL EsGadr ADD A,2 LD L,A,D,#E,A,(HL) AND 31 JP toOO TNEVTN LD H,'EDORbf TNEVTNl=$+1 LD L,0 TNEVTNy=$+1 LD DE,#1100 LD A,(HL) INC HL LD B,(HL) PUSH BC CALL PRTNE POP AF JR PRVTN PRTNE LD L,A,H,"- AND #80 LD A,"T JZ $+3 LD A,H CALL PRADD INC D LD A,L AND 64 LD A,"N JZ $+3 LD A,H CALL PRADD INC D LD A,L AND 32 LD A,"E JZ $+3 LD A,H JP PRADD PRVTN LD D,4,C,A RLA LD A,"0 JNC PRVTN0 BIT 6,C LD A,"- JZ $+4 LD A,"+ PRVTN0 CALL PRADD LD A,32 CALL PRVTNPP LD A,16 PRVTNPP AND C LD A,"0 JZ $+4 LD A,"+ INC D JP PRADD EsFITN LD B,32 CP SMPX<3+#1C JC $+7 EsFIfN LD B,16 CP 64 RET NC INC HL LD A,(HL) XOR B JR EsFIVTQ EsFIx SBC A,A EXA CALL GsMRK7 LD A,(EsFIlin),(EsLIN),A EXA LD (EsX),A CALL GsMRK56 JP SHOLK EsNfix CALL EDSMFIp XOR A JR EsFIfN EsTfix CALL EDSMFIp XOR A JR EsFITN EsAfix CALL EDSMFIp JR EsFIV EsTi CALL EDSMFIp XOR A JR Es_T EsNi CALL EDSMFIp XOR A JR Es_N EsEi CALL EDSMFIp JR Es_E EsFIVTN CP SMPX<3+#38 CCF JC EsFIx ;смещ.шума CP SMPX<3+#28 JNC EsFIx ;цикл CP SMPX<3+#14 RET C ;слева от VTN CP SMPX<3+#18 JNC EsFITN EsFIV INC HL LD A,(HL),C,A LD B,#80 AND B JNZ $+6 LD A,C OR B JR EsFIVTQ LD A,C XOR 64 LD C,A AND 64 LD A,C JNZ $+4 AND 63 EsFIVTQ LD (HL),A JR EsFIQ EDSMPFI LD HL,(ARXY),A,L SUB SMPY+1<3;#38 CP SMPH<3 RET NC RES 0,H,1,H RRA RRA RRA AND #1F LD B,A CP 0 LD ($-1),A LD A,H JNZ EDSMFIn EDSMFIh=$+1 CP 0 EDSMFIn LD ($-1),A RET Z CALL EDSMFIP CP SMPX<3+#48 JC EsFIVTN CP SMPX<3+#54 JNC EsFIVOL Es_T LD B,#80 CP SMPX<3+#4C JC EsFINUM Es_N LD B,64 CP SMPX<3+#50 JC $+4 Es_E LD B,32 EsFINUM LD A,(HL) XOR B LD (HL),A EsFIQ CALL TNEVTN JP SHOLK EDSMFIp LD A,(EsLIN),HL,EsTOP SUB (HL) LD B,A EDSMFIP LD A,(EsTOP) ADD A,B LD (EsFIlin),A ADD A,A,A,A,A,2 LD L,A,(TNEVTNl),A LD A,B EDSpQ LD (TNEVTNy),A LD A,H,H,'EDORbf RET EsVOLi CALL EDSMFIp INC HL LD A,(HL) INC A JR EsVOLQ EsVOLd CALL EDSMFIp INC HL LD A,(HL) DEC A JR EsVOLQ EsFIVOL SUB SMPX<3+#54 CP #40 RET NC RRA RRA INC HL EsVOLQ AND #F LD E,A,A,(HL) AND #F0 OR E LD (HL),A LD A,(TNEVTNy),E,A EsFIlin=$+1 LD A,0 CALL PRSMVOL JP SHOLK EDsSCUP LD DE,SMPATRĬ<3+.SMPATR+#4001+SMPX LD HL,SMPATR+32Ĭ<3+.(SMPATR+32)+#4001+SMPX LD A,SMPH<3-8 EDsSCU0 CALL EDsLDI CALL DHL,DDE EXA JNZ EDsSCU0 RET EDsSCDN LD DE,SMPBOTĬ<3+.SMPBOT+#4001+SMPX LD HL,SMPBOT-32Ĭ<3+.(SMPBOT-32)+#4001+SMPX LD A,SMPH<3-8 EDsSCD0 CALL EDsLDI CALL UHL,UDE EXA JNZ EDsSCD0 RET EDsLDI DEC A EXA LD BC,19 PUSH HL,DE LDIR POP DE,HL RET EDsUP DEC A RET NZ CALL GsMRK7 LD A,(EsLIN) DEC A JP M,EDsCQ LD B,A,A,(EsTOP),C,A DEC A CP B JNZ EDsUQ PUSH BC CALL EDsSCDN POP BC LD A,C DEC A LD (EsTOP),A PUSH BC LD E,0 CALL PRSMLIN POP BC EDsUQ LD A,B,(EsLIN),A JR EDsCQ EDsLR CALL GsMRK7 LD HL,EsX,A,(HL) CPL LD (HL),A EDsCQ CALL GsMRK56 JP SHOLK EDSMCUR CALL BIT5 RET Z CP "A JP Z,EsAfix CP "9 JP Z,EsTfix CP "F JP Z,EsNfix CP ") JP Z,EsVOLi CP "( JP Z,EsVOLd CP kIns JZ EDsINS CP kDelLn DJNZ PRORN1JP Z,EDsDELLN CP "K JP Z,EDsBEG CP "L JP Z,EDsEND CP "Y JP Z,EsTi CP "U JP Z,EsNi CP "I JP Z,EsEi ; SUB 4 ; JZ EDsTRU ; DEC A ; JP Z,EDsINV SUB 3+5 JZ EDsLR DEC A JZ EDsLR DEC A JP NZ,EDsUP CALL GsMRK7 LD A,(EsLIN) INC A AND 63 JZ EDsCQ LD BC,(EsTOP),B,A SUB C CP SMPH JNZ EDsDQ PUSH BC CALL EDsSCUP POP BC LD A,C INC A LD (EsTOP),A PUSH BC LD E,SMPH-1 ADD A,E CALL PRSMLIN POP BC EDsDQ LD A,B,(EsLIN),A JP EDsCQ POP IFN 0 EDsTRU CALL GsMRK7 LD HL,EsLIN,A,(HL) SUB SMPH LD (HL),A LD DE,EsTOP,A,(DE) SUB SMPH JNC $+4 XOR A LD (HL),A JR EDsInE ENDIF EDsINS CALL EsGadr LD A,-4 SUB L RET Z LD L,-5,D,H,E,-1,B,0,C,A LDDR
INC L
DEC A
LD A,L
LD L,A