|
ACNews
#54
21 января 2009 |
|
Demo - Керналь демы.
YO EQU 0 NO EQU 1 RELEASE EQU YO FINAL EQU YO ;SET TRK/SEC GENCHANX EQU YO HELP EQU NO .INCLUDE MACLIBR ;-------------------------------- FUL EQU (3+4)*#80 FST EQU #80*7-1 ;-------------------------------- MASK_В EQU #40 .IF RELEASE MASK_В = 0 .ENDIF CODE2D_BANK EQU #14+MASK_В MUS_В EQU #16+MASK_В TEMP_BANK EQU #11 Uб_цод EQU #10 ;-------------------------------- SPRITE EQU #8800 MASK EQU SPRITE+#1В00 C2P_OUT EQU #F000 C2P_ТАВ EQU #FOFO SCR_ТАВ EQU #6600-96-96 SP_LEN EQU #0180 MUS_I EQU #C000 MUS_P EQU #C005 KER_ADR EQU #SBSB SYS_BNK EQU #D7 SYS_BUF EQU #F000 BREAK EQU #1F54 ;-------------------------------- ORG #6600 .RUN $ DISP KERNEL DI .IF FINAL-NO LD ВС,#0051 PUSH ВС LD ВС,#7FFD LD A,SYS_BNK OUT (C),A LD В,#DF LD A,1 OUT (C),A ;PROFI EXX LD HL,#5C00 LD DE,SYS_BUF LD ВС,#1000 LDIR EXX XOR A OUT (C),A .ENDIF LD HL,#5D4B LD DE,#BE00 LDI LDI LDI LDI LD HL,(#5CFЧ) ;TRK/SEC LD A,(#5D16) AND 3 OR #2C LD E,A EXX LD HL,KER_BEG LD DE,KER_ADR LD ВС,KER_LEN LDIR LD DE,END_KERNEL_CODE+SP_LEN LD ВС,SCR_ТАВ-(END_KERNEL_CODE+SP_LEN) CALL .NLDIR ;INITIALIZE LD (SP_EXIT),SP LD SP,END_KERNEL_CODE+SP_LEN EXX LD A,E LD (DRIVE),A .IF FINAL LD (TRACK),HL LD HL,#BE00 LD DE,ULA_FIX LDI LDI LDI LDI .ENDIF .IF RELEASE-NO CALL MUS_INSTALL .ENDIF CALL GENCH ;CHANKS LD HL,SCR_ТАВ LD DE,#4000 CALL GEN_SCRT LD DE,#C000 CALL GEN_SCRT LD HL,#8000 CALL .INSTIM2 RET GEN_SCRT LD В,48 GSCT2 LD (HL),E INC L LD (HL),D INC L LD A,D ADD A,4 LD D,A AND 7 JR NZ,GSCT3 LD A,E ADD A,#20 LD E,A JR C,GSCT3 LD A,D SUB 8 LD D,A GSCT3 DJNZ GSCT2 RET ;------ G E N C2P -------------------- GENCH .IF GENCHANX LD A,#17 CALL .BANK LD HL,C2P_OUT LD НУ,C2P_ТАВ LD IX,CHNXI LD ВС,#1010 .IC2P1 PUSH ВС LD DE,CHNXI LD В,C LD LY,C2P_ТАВ LD L,0 .IC2P2 LD (IY),L INC LY LD (HL),#60 ;Н,В INC L LD (HL),#69 ;L,C INC L LD (HL),#36 ;(HL),N INC L LD A,(DE) AND #F0 LD C,A LD A,(IX+0) AND #F OR C LD (HL),A INC L LD (HL),#24 ;INC Н INC L INC DE LD (HL),#36 ;(HL),N INC L LD A,(DE) AND #F0 LD C,A LD A,(IX+1) AND #F OR C LD (HL),A INC L LD (HL),#24 ;INC Н INC L INC DE LD (HL),#36 ;(HL),N INC L LD A,(DE) AND #F0 LD C,A LD A,(IX+2) AND #F OR C LD (HL),A INC L LD (HL),#24 ;INC Н INC L INC DE LD (HL),#36 ;(HL),N INC L LD A,(DE) AND #F0 LD C,A LD A,(IX+3) AND #F OR C LD (HL),A INC L LD (HL),#DD ;JP (IX) INC L LD (HL),#E9 INC L INC DE DJNZ .IC2P2 INC Н INC НУ LD C,4 ADD IX,ВС POP ВС DJNZ .IC2P1 RET CHNXI DEFB #00,#00,#00,#00, #88,#00,#22,#00 DEFB #AA,#00,#22,#00, #AA,#00,#AA,#00 DEFB #AA,#44,#AA,#00, #AA,#44,#AA,#11 DEFB #AA,#55,#AA,#11, #AA,#55,#AA,#55 DEFB #EE,#55,#AA,#55, #EE,#55,#ВВ,#55 DEFB #FF,#55,#ВВ,#55, #FF,#55,#FF,#55 DEFB #FF,#DD,#FF,#55, #FF,#DD,#FF,#77 DEFB #FF,#FF,#FF,#77, #FF,#FF,#FF,#FF .ENDIF ;------ K E R N E L В E G I N ------- KER_BEG .PHASE KER_ADR ;JUMPERS INTJP JP .IMER BANK JP .BANK SWAPSCR JP .SWAPSCR MOVE JP .MOVE DEHRUST JP .DEHRUST INITIM2 JP .INITIM2 IC2PMSK JP .INITC2P C2PNMSK JP .BEG_C2P_NOMASK NLDIR JP .NLDIR ;FOR TESTING: KDEHR JP .KDEHR KMOVE JP .KMOVE PLAYER JP .PLAYER FIX JP .FIX SETBANK JP .SETBANK SETSCR0 JP .SETSCR0 PUTSCR JP .PUTSCR CLR JP .CLR CLRINV JP .CLRINV CLRO JP .CLRO NHALT JP .NHALT EXIT JP .EXIT ;VARIABLES PAGE DEFB 0 EKRAN DEFB 8 INTSP DEFW 0 INTRET DEFW 0 COUNTER DEFW 0 USER DEFW 0 PLAY DEFW 0 MUSPLAY DEFW MUS_P MUSBANK DEFB MUS_В ULA_FIX DEFW 0 TURBO DEFB 0 LDTYPE DEFB 0 ;0 - MULTI, 1 - #3D13 DRIVE DEFB #2C TRACK DEFW #0100 ;------- R O U Т I N E S ------ .IMER EX (SP),HL LD (.INT_RET),HL LD (INTRET),HL POP HL LD (INTSP),SP LD SP,INTJP PUSH HL PUSH IX PUSH IY PUSH DE PUSH ВС PUSH AF EX AF,AF` EXX PUSH HL PUSH DE PUSH ВС PUSH AF LD HL,(COUNTER) INC HL LD (COUNTER),HL LD A,(PAGE) PUSH AF CALL .PLAYMUS LD HL,_EXUSER PUSH HL LD HL,(USER) LD A,Н OR L RET Z JP (HL) _EXUSER POP AF CALL .BANK POP AF POP ВС POP DE POP HL EX AF,AF` EXX POP AF POP ВС POP DE POP IY POP IX POP HL LD SP,(INTSP) EI .INT_RET EQU $+1 JP #CЗCЗ ;--------------------------------- .SWAPSCR LD A,(EKRAN) XOR 8 LD (EKRAN),A RET .PLAYMUS LD A,MUS_В CALL .BANK JP MUS_P .SETBANK DEC SP POP AF .BANK LD (PAGE),A PUSH ВС LD C,A LD A,(EKRAN) OR C LD ВС,#7FFD OUT (C),A POP ВС RET .INITIM2 LD A,I CP Н RET Z HALT .INSTIM2 LD A,Н LD I,A IM 2 LD D,Н LD E,1 LD (HL),INTJP LD ВС,#0100 JP .NLDIR .MOVE POP IX DEC SP LD A,(PAGE) EX AF,AF` POP AF CALL .BANK POP HL POP ВС CALL .NLDIR EX AF,AF` CALL .BANK JP (IX) .PLAYER ; eффeцт ; ин: (сп)2 - фрамeс нумбер то nлаы ;-ин: (сп+2)2 -маин цыцлe адресс оф eффeцт LD A,(PAGE) LD (PLAY_BN),A LD HL,(PLAY) LD (.PLAY),HL POP DE LD HL,(COUNTER) ADD HL,DE PLAY1 PUSH HL LD DE,(COUNTER) AND A SBC HL,DE JR C,PL_EXIT .PLAY EQU $+1 CALL #CDCD .IF FINAL-NO CALL BREAK JR NC,PL_EXIT .ENDIF POP HL JP PLAY1 PL_EXIT POP HL PLAY_BN EQU $+1 LD A,#3E JP .BANK .FIX ; ин: (сп)2 -фиь ; (абсолутe фром тхе бeгин) POP DE ;FIX .IF FINAL-NO HALT PUSH DE LD ВС,#7FFD LD A,(EKRAN) OR #D0 OUT (C),A LD В,#DF LD A,1 OUT (C),A ;PROFI LD HL,(COUNTER) AND A SBC HL,DE EX DE,HL _OST EQU $+1 LD HL,#C000 LD (HL),E INC HL LD (HL),D INC HL LD (_OST),HL XOR A OUT (C),A ;PROFI POP DE FIX1 HALT CALL BREAK RET NC .ELSE FIX1 .ENDIF LD HL,(COUNTER) AND A SBC HL,DE JR C,FIX1 RET ;--------------------------------- .EXIT HALT IM 1 LD A,63 LD I,A LD IY,#5CЗA LD HL,10072 EXX DI XOR A LD (EKRAN),A CALL MUS_INSTALL LD A,SYS_BNK CALL .BANK LD ВС,#DFFD LD A,1 OUT (C),A ;PROFI LD HL,SYS_BUF LD DE,#5C00 LD ВС,#1000 SP_EXIT EQU $+1 LD SP,#3131 JP #33C3 ;LDIR RET ;--------------------------------- .DEHRUST POP IY ;RET ADR LD A,(PAGE) EX AF,AF` DEC SP POP AF CALL .BANK POP HL LD (UNP_ADR),DE LD IX,0-6-6 ADD IX,SP LD SP,HL POP ВС ;HR EX DE,HL POP ВС ;PACK LEN DEC ВС ADD HL,ВС EX DE,HL POP ВС DEC ВС ADD HL,ВС SBC HL,DE ADD HL,DE JR C,LL8018 LD D,Н LD E,L LL8018 XOR A SUB C AND #7 JR Z,_LDD ADD A,A LD ($+3+1),A JR $ _LDD LDD LDD LDD LDD LDD LDD LDD LDD JP PE,_LDD EX DE,HL UNP_ADR EQU $+1 LD DE,#1111 LD SP,HL POP HL POP HL POP HL LD В,6 LL8027 DEC SP POP AF LD (IX+#06),A INC IX DJNZ LL8027 EXX LD D,#BF LD ВС,#1010 POP HL LL8037 DEC SP POP AF EXX LL803A LD (DE),A INC DE LL803C EXX LL803D ADD HL,HL DJNZ LL8042 POP HL LD В,C LL8042 JR C,LL8037 LD E,#01 LL8046 LD A,#80 LL8048 ADD HL,HL DJNZ LL804D POP HL LD В,C LL804D RLA JR C,LL8048 CP #03 JR C,LL8059 ADD A,E LD E,A XOR C JR NZ,LL8046 LL8059 ADD A,E CP #04 JP Z,LL80В8 ADC A,#FF CP #02 EXX LL8063 LD C,A LL8064 EXX LD A,#BF JR C,LL807D LL8069 ADD HL,HL DJNZ LL806E POP HL LD В,C LL806E RLA JR C,LL8069 JR Z,LL8078 INC A ADD A,D JR NC,LL807F SUB D LL8078 INC A JR NZ,LL8087 LD A,#EF LL807D RRCA CP A LL807F ADD HL,HL DJNZ LL8084 POP HL LD В,C LL8084 RLA JR C,LL807F LL8087 EXX LD Н,#FF JR Z,LL8092 LD Н,A DEC SP INC A JR Z,LL809D POP AF LL8092 LD L,A ADD HL,DE LD A,C CP 10 JR NC,_NLDI LDIR JP LL803C _NLDI CALL .NLDIR JP LL803C LL8098 EXX RRC D JP LL803D LL809D POP AF CP #E0 JR C,LL8092 RLCA XOR C INC A JR Z,LL8098 SUB #10 LL80A9 LD L,A LD C,A LD Н,#FF ADD HL,DE LDI DEC SP POP AF LD (DE),A INC HL INC DE LD A,(HL) JP LL803A LL80В8 LD A,#80 LL80BA ADD HL,HL DJNZ LL80BF POP HL LD В,C LL80BF ADC A,A JR NZ,LL80DB JR C,LL80BA LD A,#FC JP LL8ODE LL80C8 DEC SP POP ВС LD C,В LD В,A CCF JP LL8064 LL8OCF CP #0F JR C,LL80C8 JP NZ,LL8063 ADD A,#F4 LD SP,IX JP LL8OEF LL80DB SBC A,A LD A,#EF LL8ODE ADD HL,HL DJNZ LL80E3 POP HL LD В,C LL80E3 RLA JR C,LL8ODE EXX JR NZ,LL80A9 BIT 7,A JR Z,LL8OCF SUB #EA LL8OEF EX DE,HL LL80F0 POP DE LD (HL),E INC HL LD (HL),D INC HL DEC A JP NZ,LL80F0 EX DE,HL JP NC,LL803C EX AF,AF` CALL .BANK JP (IY) ;--------------------------------- ;GENER MASK FOR C2P ;INPUT FOR INSTALL ; DE - OUTPUT ROUTINE ADRESS ; HL - OUTPUT ADRESS ON SCREEN ; ВС - OUTPUT WINDOW SIZE (CHANX PIXELS) ; A=1 - ONE SCR NO ТАВ, A=0 2 SCRS, SCR ТАВ ;INPUT FOR C2P ;HL`- C2P BUF, DE`-SCR ADRESSES ТАВ .INITC2P EX AF,AF` LD A,(PAGE) PUSH AF LD A,#17 CALL .BANK EX AF,AF` LD (OUTP_ADR),HL PUSH HL EX DE,HL LD (HL),#C3 INC HL LD DE,BEG_C2P_MASK LD (HL),E INC HL LD (HL),D INC HL LD (MASKC2P),HL PUSH HL OR A LD HL,TWO_SCR JR Z,$+5 LD HL,ONE_SCR LD (METHOD),HL ;DE=START LD НХ,В LD A,C SRL A LD (_XLEN1),A LD (_XLEN2),A LD HL,SPRITE LD DE,#C000 LD ВС,#1В00 CALL .NLDIR POP DE ;OUTPUT ROUTINE POP HL ;---//--- ADRESS LD A,#55 BIT 2,Н ;CHET/NECHET 40/44 JR Z,$+3 RLCA LD (_FLG),A RES 7,Н LD ВС,MASK-#4000 ADD HL,ВС LD НУ,0 EXX ;BUFER FOR MASK LD HL,C2P_OUT-1 ; LD HL,#бFFF EXX NEXT_LINE EX DE,HL METHOD EQU $+1 CALL 0 EX DE,HL _XLEN1 EQU $+1 LD В,6 CONT LD C,Н LD A,(HL) INC Н OR (HL) INC Н OR (HL) INC Н OR (HL) JP Z,GEN_CHK LD A,(HL) DEC Н AND (HL) DEC Н AND (HL) DEC Н AND (HL) INC A JP Z,GEN_PIX ;GEN MASK LD LX,В LD Н,C PUSH HL GM1 INC L DEC В JR Z,GM2 LD A,(HL) INC Н OR (HL) INC Н OR (HL) INC Н OR (HL) JR Z,GM2 LD A,(HL) DEC Н AND (HL) DEC Н AND (HL) DEC Н AND (HL) INC A JR NZ,GM1 GM2 LD Н,C EX (SP),HL EX DE,HL LD A,LX SUB В LD LX,A PUSH ВС LD (HL),#3E ;LD LX,PUTMASK INC HL LD (HL),A INC HL LD A,6 ;LD LY,0:JP 0 CALL SET_IY_ DEC HL LD (HL),#C3 ;JP INC HL LD (HL),PUTMASK INC HL LD (HL),PUTMASK/256 INC HL EX DE,HL GMЗ ;MASK LD A,(HL) CPL LD C,A INC Н LD A,(HL) CPL LD В,A INC Н PUSH ВС LD A,(HL) CPL LD C,A INC Н LD A,(HL) CPL LD В,A PUSH ВС LD A,Н ADD A,0-#1В-3 LD Н,A LD C,(HL) INC Н LD В,(HL) INC Н PUSH ВС LD A,(HL) LD (_MPIX1),A INC Н LD A,(HL) LD (_MPIX2),A LD A,Н ADD A,#1В-3 LD Н,A EXX POP DE ;PIX POP ВС ;MASK LD (HL),В DEC L _MPIX2 EQU $+1 LD (HL),0 DEC L LD (HL),C DEC L _MPIX1 EQU $+1 LD (HL),0 DEC L POP ВС ;MASK LD (HL),В DEC L LD (HL),D DEC L LD (HL),C DEC L LD (HL),E DEC HL EXX INC L DEC LX JR NZ,GMЗ POP ВС POP HL EX DE,HL JP NEXT GEN_PIX LD LX,В GP1 LD Н,C INC L DEC В JR Z,GP2 LD A,(HL) INC Н AND (HL) INC Н AND (HL) INC Н AND (HL) INC A JP Z,GP1 GP2 LD Н,C EX DE,HL LD C,#E1 ;POP HL LD A,LX SUB В LD LX,A CP 3 JR NC,GPЗ2 GPЗ1 LD (HL),C INC HL DEC A JP NZ,GPЗ1 JR GPЗЗ GPЗ2 LD (HL),#21 ;LD HL,NN 10 INC HL ADD A,A LD (HL),A INC HL LD (HL),0 INC HL LD (HL),#39 ;ADD HL,SP 11 INC HL LD (HL),#F9 ;LD SP,HL 6 INC HL GPЗЗ LD A,LX CP 5 JR NC,GPS LD C,#0C GPЧ LD (HL),C ;INC C INC HL DEC A JP NZ,GPЧ JP NEXT GPS LD (HL),#79 ;LD A,C INC HL LD (HL),#C6 ;ADD A,0 INC HL LD (HL),A INC HL LD (HL),#4F ;LD C,A INC HL JP NEXT GEN_CHK LD LX,В GC1 LD Н,C INC L DEC В JR Z,GC2 LD A,(HL) INC Н OR (HL) INC Н OR (HL) INC Н OR (HL) JP Z,GC1 GC2 LD Н,C EX DE,HL LD A,LX SUB В ; LD (HL),#AF ;XOR A ; JR Z,GCЗ LD (HL),#3E ;LD A,0 INC HL LD (HL),A GCЗ INC HL LD (HL),#E1 ;POP HL INC HL LD (HL),#6E ;L,(HL) INC HL CALL SET_IY NEXT EX DE,HL XOR A CP В JP NZ,CONT LD A,D CP #E2 JP NZ,_NBUG EX DE,HL LD ВС,#6В80 LD (HL),#C3 INC HL LD (HL),C INC HL LD (HL),В INC HL EX DE,HL LD D,В LD E,C _NBUG LD A,L _XLEN2 EQU $+1 SUB 0 LD L,A LD A,Н ADD A,4 LD Н,A _FLG EQU $+1 LD A,#3E RLCA LD (_FLG),A JR NC,...1 LD A,L ADD A,#20 LD L,A JR C,...1 LD A,Н SUB 8 LD Н,A ...1 DEC НХ JP NZ,NEXT_LINE EX DE,HL LD (HL),#C3 ;JP END INC HL LD ВС,END_C2P LD (HL),C INC HL LD (HL),В POP AF JP .BANK ;--------- SET_IY LD A,4 ;LY,0:JP (HL) SET_IY_ ADD A,L LD C,A ADC A,Н SUB C LD (HL),#FD ;LD IY,0 INC HL CP НУ JR NZ,S_IY LD (HL),#2E ;LY,0 INC HL LD (HL),C INC HL LD (HL),#E9 ;JP (HL) INC HL RET S_IY LD НУ,A INC C LD (HL),#21 ;IY,0 INC HL LD (HL),C INC HL LD (HL),A INC HL LD (HL),#E9 ;JP (HL) INC HL RET ONE_SCR OUTP_ADR EQU $+1 LD ВС,#0101 LD (HL),#01 ;LD ВС,0 INC HL LD (HL),C INC HL LD (HL),В INC HL LD (HL),#D9 ;EXX INC HL LD (HL),#F9 ;LD SP,HL INC HL LD (HL),#09 ;ADD HL,ВС ; LD (HL),#24 ;INC Н INC HL LD (HL),#D9 ;EXX INC HL LD A,В ADD A,4 LD В,A AND 7 JR NZ,...N LD A,C ADD A,#20 LD C,A JR C,...N LD A,В SUB 8 LD В,A ...N LD (OUTP_ADR),ВС RET TWO_SCR LD A,6 ;HL,0:JP 0 ADD A,L LD C,A ADC A,Н SUB C LD (HL),#21 ;HL,0 INC HL LD (HL),C INC HL LD (HL),A INC HL LD (HL),#C3 ;JP INC HL LD (HL),GETSCR INC HL LD (HL),GETSCR/256 INC HL RET ;------------------------------------ ;PIX CHK P+C ;NPIX P+C NCHK P+C ;NCHK P+C NPIX P+C ;OUTPUT MODULES BEG_C2P_MASK LD IX,REG_IX LD DE,C2P_OUT-1 LD (SV_SP_C2P),SP MASKC2P EQU $+1 JP #CЗCЗ .BEG_C2P_NOMASK LD LY,A LD IX,REG_IX2 LD (SV_SP_C2P),SP EXX PUSH ВС EXX POP DE _NM1 EXX LD A,(DE) EX AF,AF` INC E LD A,(DE) INC E LD SP,HL ADD HL,ВС ; INC Н EXX LD В,A EX AF,AF` LD C,A LD Н,D LD L,E ADD HL,SP ;DE=ВС` LD A,(HL) LD (REG_HL),A LD (HL),_NM2 INC HL LD A,(HL) LD (REG_HL+1),A LD (HL),_NM2/256 POP HL LD L,(HL) JP (HL) ;FOR EXCEPT BUGZ!!! .IF $&#FF-#FF DEFB 0 .ENDIF _NM2 DEFB $+1 REG_HL EQU $+1 LD HL,#2121 PUSH HL DEC LY JP NZ,_NM1 END_C2P SV_SP_C2P EQU $+1 LD SP,#3131 RET REG_IX2 INC C POP HL LD L,(HL) JP (HL) ;---------WITH MASK--------- EXI_LIN2 JP (IY) REG_IX INC C DEC A JR Z,EXI_LIN2 POP HL LD L,(HL) JP (HL) PUTMASK ;HL SCREEN, DE MASK LD IX,PUTM2 PUTM1 EX AF,AF` POP HL LD L,(HL) JP (HL) PUTM2 INC C EX DE,HL LD A,(DE) AND (HL) DEC L OR (HL) DEC L LD (DE),A DEC D LD A,(DE) AND (HL) DEC L OR (HL) DEC L LD (DE),A DEC D LD A,(DE) AND (HL) DEC L OR (HL) DEC L LD (DE),A DEC D LD A,(DE) AND (HL) DEC L OR (HL) DEC HL LD (DE),A EX DE,HL EX AF,AF` DEC A JP NZ,PUTM1 LD IX,REG_IX JP (IY) GETSCR EXX LD A,(DE) EX AF,AF` INC E LD A,(DE) INC E LD SP,HL ADD HL,ВС ; INC Н EXX LD В,A EX AF,AF` LD C,A JP (HL) ; CODE GENER ; LD A,0 ; LD IY,LL ; POP HL ; LD L,(HL) ; JP (HL) ; POP HL ; INC C ;--------------------------------- MUS_INSTALL LD A,MUS_В CALL .BANK CALL MUS_I DI RET .CLRO ; LD A,8 ; LD (EKRAN),A DEC SP POP AF JR .CLRINV .CLR DEC SP POP AF LD LX,A CALL .CLRINV CALL .SWAPSCR HALT ;CHANGE LD A,LX .CLRINV ;CLEAR INVIS. SCR LD (_COL),A LD A,(PAGE) EX AF,AF` LD A,#17 CALL .BANK LD A,(EKRAN) ADD A,A ADD A,A ADD A,A ADD A,A XOR #C0 ;8->40,0->C0 LD Н,A LD D,Н LD E,1 LD ВС,#1800 LD L,C LD (HL),C CALL .NLDIR _COL EQU $+1 LD (HL),#36 LD ВС,#02FF CALL .NLDIR EX AF,AF` JP .BANK .SETSCR0 LD A,(PAGE) EX AF,AF` LD A,#17 CALL .BANK CALL .SWAPSCR ;2 LD HL,#C000 LD DE,#4000 LD ВС,#1В00 HALT CALL .NLDIR EX AF,AF` JP .BANK .KDEHR POP DE CALL .DEHRUST RET .KMOVE POP DE CALL .MOVE RET .PUTSCR XOR A LD (EKRAN),A LD HL,#8000 CALL .INITIM2 LD DE,#8800 CALL .DEHRUST LD A,#17 CALL .BANK LD HL,#8800 LD DE,#C000 LD ВС,#1В00 CALL .NLDIR RET .NHALT DEC SP POP ВС HALT DJNZ $-1 RET .NLDIR XOR A SUB C AND #3F JR Z,_LDI ADD A,A LD ($+3+1),A JR $ _LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI JP PE,_LDI RET DISP END_KERNEL_CODE .UNPHASE KER_LEN EQU $-KER_BEG ;-------------------------------------------- ; F I N A L M O D U L E ;-------------------------------------------- .IF FINAL DEFW KDEHR,#C000 DEFB Uб_цод DEFW #C000 DEFW KDEHR,#C000 DEFB CODE2D_BANK DEFW #C000 .ENDIF .IF RELEASE DEFW .SETBANK DEFB CODE2D_BANK DEFW #C000 ;INST DEFW .SETBANK DEFB Uб_цод DEFW #C000;INST DEFW KDEHR,#C000 DEFB #16 DEFW #E000,MUS_INSTALL DEFW #0051 ;EI ; .IF 0 ;---3D 1 ------------------------------------ DEFW .CLRO DEFB 0 DEFW .SETBANK DEFB Uб_цод DEFW #C003;INST PART1 ;EFFECT DATA DEFB #16 DEFW #EFE9;#1000;SPRITE DEFW .FIX,FST DEFW .PLAYER,FUL-92 ;PART1 DEFW .CLR DEFB #47 DEFW #C006;UNINSTAL ;---2D 1 ------------------------------------ DEFW .SETBANK DEFB CODE2D_BANK DEFW #C003 ;INST PART1 ;EFFECT DATA DEFB #14 DEFW #CB02 ;SPRITE DEFB #13 DEFW #C7В4,#2000 ;TUNTAB DEFB #13 DEFW #C002 ;TUNTX DEFW .FIX,FST+FUL,.SETSCR0 DEFW .PLAYER,FUL/4-5 ;PART11 DEFW #C006 DEFB #45 ;P12 COLOR DEFW .PLAYER,FUL/4*3-58 ;PART12 DEFW .CLR DEFB 0 DEFW #C009 ;UNINSTALL ;---3D 2------------------------------------- PHONG EQU #E200 ;BANK 14 ;UNPACK PHONG DEFW .KDEHR,PHONG DEFB #16 DEFW #EDOD DEFW .SETBANK DEFB Uб_цод DEFW #C009;INST PART1 ;EFFECT DATA DEFB #14 DEFW #DDE8;#1000 ;BACKGR DEFB #16 DEFW PHONG,#1000 ;PHONG DEFW .FIX,FST+(FUL*2) DEFW .PLAYER,FUL-74 DEFW .CLR DEFB 0 DEFW #COOC;UNINSTAL ;---2D 2 ------------------------------------ DEFW .SETBANK DEFB CODE2D_BANK DEFW #COOC ;INST PART2 ;EFFECT DATA DEFB #13 DEFW #F516 ;SPRITE DEFB #13 DEFW #E1BD,#2000 ;STRTAB DEFB #13 DEFW #C2В6 ;STRTX DEFW .FIX,FST+(FUL*3),.SETSCR0 DEFW .PLAYER,FUL/4-5 ;PART21 DEFW #COOF DEFB #47 ;P22 COLOR DEFW .PLAYER,FUL/4*3-60 ;PART22 DEFW .CLR DEFB 0 DEFW #C012 ;UNINSTALL ;---3D 3 ------------------------------------ DEFW .SETBANK DEFB Uб_цод DEFW #COOF;INST PART1 ;EFFECT DATA DEFB #16 DEFW #FSF2;#1000;SPRITE DEFB #16 DEFW PHONG,#1000;SPRITE DEFW .FIX,FST+(FUL*4) DEFW .PLAYER,FUL-37 DEFW .CLR DEFB 0 DEFW #C012;UNINSTAL ;-- LOADER ----------------------------------- ; .ENDIF LOADER EQU #6600 ;LOADER DEFW .PUTSCR DEFB #14 DEFW #EЗCF DEFW KMOVE,LOADER ;ТО MOVE LOADER DEFB #14 ;BANK DEFW #C800,#0300 ;FROM DEFW .FIX,FST+(FUL*5) DEFW .SWAPSCR,.NHALT DEFB 1 ;-------------------------- DEFW 360 ;FRAMES DEFB 7 ;NUMBER OF BLOCKS DEFB #15,#10 DEFW #C000 ;ANIMA DEFB #11,#0E DEFW #C000 ;ANIMA DEFB #13,#0D DEFW #C000 ;ANIMA DEFB #14,#0E DEFW #C000 ;ANIMA ; DEFW #0000 ;ANIMA DEFB #10,#0C DEFW #E000 ;TXTR DEFB #10,#02 ; DEFB #10,#03 DEFW #C000 ;CODE DEFB #17,#14 DEFW #DB00 ;PIC ; DEFW EXIT ;MOVE LOADER DEFW .KMOVE,#FDOO DEFB #16 DEFW LOADER,#0300 ;UNPACK BLOBS CODE DEFW .KDEHR,#C000 DEFB #10 DEFW #C000 DEFW .SETBANK DEFB #10 DEFW #C000; инит DEFB #10 DEFW #E000 ;TEXTURE DEFB #10 DEFW #4000 DEFB #11 DEFW #C000 DEFB #13 DEFW #C000 DEFB #14 DEFW #C000 DEFW .FIX,FST+(FUL*5)+536-35-5 DEFW .CLR DEFB #46 ;COLOR DEFW .PLAYER,1256 ;ТЕХТ 42*250 DEFW .CLR DEFB 0 ;COLOR DEFW #6600 ;UNINST DEFW .PUTSCR DEFB #17 DEFW #DB00 DEFW .FIX,FST+(FUL*7) DEFW .SWAPSCR DEFW .FIX,FST+(FUL*8)+300 ; DEFW EXIT ;--- O U Т R O --- DEFW .KMOVE,LOADER DEFB #16 DEFW #FDOO,#0300 DEFW LOADER DEFW 1 ;FRAMES DEFB 1 ;NUMBER OF BLOCKS DEFB #10,#17 ;PAGE, SEC DEFW #8800 DEFW MUS_INSTALL DEFW .KDEHR,#6600 DEFB #10 DEFW #8800 DEFW #6600 ;RUN ;----END ------------------------------------- .ENDIF
Другие статьи номера:
Похожие статьи:
В этот день... 19 апреля