ABBUC Magazin 49B/ABBUC_Magazin_49_199x_ABBUC_Side_B.atr/kurs49.arc/KURS49.SRC

Text File | 1988-09-01 | 8KB | 1 lines

  ; fullscreen¢  ; 24.01.97¢  ; ende: 10.04.97¢  ; fuer abbuc-mag #49¢  ; by heaven/tqa¢  ; update: 30.05.97¢ Dlistv:EQU 560¢ Nmien:EQU $d40e¢ Dliv:EQU 512¢ Wsync:EQU $d40a¢ Textur:EQU $8000¢ Texturh:EQU $7000¢ Font:EQU $9000¢ Scrtabl:EQU $9400¢ Scrtabh:EQU $9500¢ Texttabl:EQU $9600¢ Texttabh:EQU $9700¢ Texttabhl:EQU $9800¢ Texttabhh:EQU $9900¢ Dxtab:EQU $9a00¢ Dytab:EQU $9a80¢ Screen1:EQU $5000¢ Screen2:EQU $b000¢ P0:EQU $6200¢ P1:EQU $6280¢ P2:EQU $6300¢ P3:EQU $6380¢ V0:EQU $86¢ V1:EQU $88¢ V2:EQU $2¢ M1:EQU $4¢ M2:EQU $5¢ Erg:EQU $6¢ Sin:EQU $3c00¢ Sinh:EQU $3d00¢ Cos:EQU $3e00¢ Cosh:EQU $3f00¢ I:EQU $70¢ J:EQU $71¢ Dx1:EQU $72¢ Dx2:EQU $74¢ Dy1:EQU $76¢ Dy2:EQU $78¢ X0:EQU $7a¢ Y0:EQU $7c¢ X:EQU $7e¢ Y:EQU $80¢ Zaehler:EQU $82¢ Adds1:EQU $83¢ Adds2:EQU $84¢ Scrbase:EQU $00¢ Maxx:EQU 46¢ Maxy:EQU 59¢ Dlist:EQU $4000¢ Dlist2:EQU $4400¢  ; ¢ Oldzero:EQU $600¢  ; ¢ ORG $3400¢  ; ¢ Init:¢ LDA #0¢ STA Nmien¢ JSR Tabinit¢ LDA #>Screen1¢ STA Scrbase¢ JSR Dlinit¢ JSR Copy¢ LDA #Dli¢ STA Dliv¢ LDA #>Dli¢ STA Dliv+1¢ LDA #Dlist¢ STA Dlistv¢ LDA #>Dlist¢ STA Dlistv+1¢ LDA #Vbi¢ STA 548¢ LDA #>Vbi¢ STA 549¢ LDA #$c0¢ STA Nmien¢ LDA #$41¢ STA 623¢ JSR Pminit¢ LDA #0¢ STA 712¢ LDA #47¢ STA 559¢ Main:LDA #0¢ STA 77¢ LDA #$ff¢ STA Zaehler¢ LDA 53770¢ AND #$f0¢ STA 712¢ LDA #1¢ STA Zaehler¢ LDA 53770¢ BPL Main0¢ EOR #$ff¢ ADC #1¢ AND #15¢ EOR #$ff¢ ADC #1¢ STA Adds1¢ LDA #$65¢ STA Add2¢ STA Add3¢ STA Add5¢ STA Add6¢ LDA #$18¢ STA Add1¢ STA Add4¢ JMP Main1¢ Main0:¢ AND #15¢ STA Adds1¢ LDA #$e5¢ STA Add2¢ STA Add3¢ STA Add5¢ STA Add6¢ LDA #$38¢ STA Add1¢ STA Add4¢ Main1:¢ LDA 53770¢ BPL Main2¢ EOR #$ff¢ ADC #1¢ AND #3¢ EOR #$ff¢ ADC #1¢ STA Adds2¢ JMP Loop¢ Main2:AND #3¢ STA Adds2¢ Loop:JSR Wait¢ LDA #0¢ STA Frame¢ JSR Zorro¢ INC Zaehler¢ CLC ¢ LDA W¢ ADC Adds1¢ STA W¢ SEC ¢ LDA W2¢ SBC Adds2¢ STA W2¢ TAX ¢ LDA Sin,X¢ STA Dxm¢ LDA Sinh,X¢ STA Dxm+1¢ LDA Cos,X¢ STA Dym¢ LDA Cosh,X¢ STA Dym+1¢ SEC ¢ LDA X00¢ SBC Dxm¢ STA X00¢ LDA X00+1¢ SBC Dxm+1¢ STA X00+1¢ CLC ¢ LDA Y00¢ ADC Dym¢ STA Y00¢ LDA Y00+1¢ ADC Dym+1¢ STA Y00+1¢ LDA Frame¢ STA Store¢ LDA Zaehler¢ CMP #127¢ BCC Loop¢ JMP Main¢ Wait:LDA #1¢ STA 540¢ Wait0:LDA 540¢ BNE Wait0¢ LDA 53279¢ CMP #6¢ BNE *+5¢ JMP $e474¢ LDA Flag¢ EOR #1¢ STA Flag¢ BEQ Wait1¢ LDA #>Screen1¢ STA Scrbase¢ LDA #>Dlist2¢ STA Dlistv+1¢ RTS ¢ Wait1:¢ LDA #>Screen2¢ STA Scrbase¢ LDA #>Dlist¢ STA Dlistv+1¢ RTS ¢ Tabinit:LDA #4¢ STA V0¢ LDA #0¢ STA V0+1¢ LDA #Textur¢ STA V1¢ LDA #>Textur¢ STA V1+1¢ LDX #0¢ Tab0:LDA V0¢ STA Scrtabl,X¢ LDA V0+1¢ STA Scrtabh,X¢ LDA V1¢ STA Texttabl,X¢ STA Texttabhl,X¢ LDA V1+1¢ STA Texttabh,X¢ SEC ¢ SBC #$10¢ STA Texttabhh,X¢ CLC ¢ LDA V1¢ ADC #64¢ STA V1¢ LDA V1+1¢ ADC #0¢ STA V1+1¢ CLC ¢ LDA V0¢ ADC #48¢ STA V0¢ LDA V0+1¢ ADC #0¢ STA V0+1¢ INX ¢ BNE Tab0¢ LDA #Font¢ STA V0¢ LDA #>Font¢ STA V0+1¢ Tab1:LDY #0¢ Tab2:TXA ¢ STA Tab3+1¢ CLC ¢ ASL ¢ ASL ¢ ASL ¢ ASL ¢ Tab3:ORA #0¢ Tab4:¢ STA (V0),Y¢ INY ¢ CPY #8¢ BNE Tab4¢ CLC ¢ LDA V0¢ ADC #8¢ STA V0¢ LDA V0+1¢ ADC #0¢ STA V0+1¢ INX ¢ CPX #16¢ BCC Tab1¢ RTS ¢  ; dx1 = cos¢  ; dy1 = sin¢  ; dx2 = -sin¢  ; dy2 = cos¢ Zorro:LDX W¢ LDA Sin,X¢ STA Dx2¢ STA Dy1¢ LDA Sinh,X¢ STA Dy1+1¢ STA Dx2+1¢ LDA Cos,X¢ STA Dy2¢ STA Dx1¢ LDA Cosh,X¢ STA Dx1+1¢ STA Dy2+1¢ LDA X00¢ STA X0¢ LDA X00+1¢ STA X0+1¢ LDA Y00¢ STA Y0¢ LDA Y00+1¢ STA Y0+1¢ LDA #Maxy¢ STA J¢ Loopj:LDA #0¢ STA I¢ LDA X0¢ STA X¢ LDA X0+1¢ STA X+1¢ LDA Y0¢ STA Y¢ CLC ¢ LDA Y0+1¢ STA Y+1¢ CLC ¢ LDX J¢ LDA Scrtabl,X¢ STA Scrv+1¢ LDA Scrtabh,X¢ ADC Scrbase¢ STA Scrv+2¢ LDX #45¢ Loopi:¢ LDY Y+1¢ LDA Texttabl,Y¢ STA V1¢ LDA Texttabh,Y¢ STA V1+1¢ LDY X+1¢ LDA (V1),Y¢ STA Loopi0+1¢ Add4:SEC ¢ LDA X¢ Add5:SBC Dx1¢ STA X¢ LDA X+1¢ Add6:SBC Dx1+1¢ AND #$3f¢ STA X+1¢ CLC ¢ LDA Y¢ ADC Dy1¢ STA Y¢ LDA Y+1¢ ADC Dy1+1¢ AND #$3f¢ STA Y+1¢ TAY ¢ LDA Texttabhl,Y¢ STA V1¢ LDA Texttabhh,Y¢ STA V1+1¢ LDY X+1¢ LDA (V1),Y¢ Loopi0:ORA #$ff¢ Scrv:STA $ffff,X¢ Add1:SEC ¢ LDA X¢ Add2:SBC Dx1¢ STA X¢ LDA X+1¢ Add3:SBC Dx1+1¢ AND #$3f¢ STA X+1¢ CLC ¢ LDA Y¢ ADC Dy1¢ STA Y¢ LDA Y+1¢ ADC Dy1+1¢ AND #$3f¢ STA Y+1¢ DEX ¢ CPX #2¢ BNE Loopi¢ SEC ¢ LDA X0¢ SBC Dx2¢ STA X0¢ LDA X0+1¢ SBC Dx2+1¢ STA X0+1¢ CLC ¢ LDA Y0¢ ADC Dy2¢ STA Y0¢ LDA Y0+1¢ ADC Dy2+1¢ STA Y0+1¢ DEC J¢ BMI Zorro0¢ JMP Loopj¢ Zorro0:RTS ¢ Vbi:INC Frame¢ LDA #Dli¢ STA Dliv¢ LDA #>Dli¢ STA Dliv+1¢ JMP $e462¢ Dlinit:LDA #Dlist¢ STA V0¢ LDA #>Dlist¢ STA V0+1¢ LDA #Dlist2¢ STA V2¢ LDA #>Dlist2¢ STA V2+1¢ LDA #Screen1¢ STA V1¢ LDA #>Screen1¢ STA V1+1¢ LDX #0¢ Dl0:LDY #0¢ LDA #$4f¢ STA (V0),Y¢ STA (V2),Y¢ LDY #3¢ STA (V0),Y¢ STA (V2),Y¢ LDY #6¢ STA (V0),Y¢ STA (V2),Y¢ LDY #9¢ STA (V0),Y¢ STA (V2),Y¢ LDA Scrtabl,X¢ LDY #1¢ STA (V0),Y¢ STA (V2),Y¢ LDY #4¢ STA (V0),Y¢ STA (V2),Y¢ LDY #7¢ STA (V0),Y¢ STA (V2),Y¢ LDY #10¢ STA (V0),Y¢ STA (V2),Y¢ CLC ¢ LDA Scrtabh,X¢ ADC Scrbase¢ LDY #2¢ STA (V0),Y¢ LDY #5¢ STA (V0),Y¢ LDY #8¢ STA (V0),Y¢ LDY #11¢ STA (V0),Y¢ LDA Scrtabh,X¢ CLC ¢ ADC Scrbase¢ ADC #$60¢ LDY #2¢ STA (V2),Y¢ LDY #5¢ STA (V2),Y¢ LDY #8¢ STA (V2),Y¢ LDY #11¢ STA (V2),Y¢ CLC ¢ LDA V0¢ ADC #12¢ STA V0¢ LDA V0+1¢ ADC #0¢ STA V0+1¢ CLC ¢ LDA V2¢ ADC #12¢ STA V2¢ LDA V2+1¢ ADC #0¢ STA V2+1¢ INX ¢ CPX #60¢ BCS Dl1¢ JMP Dl0¢ Dl1:¢ SEC ¢ LDA V0¢ SBC #12¢ STA V0¢ LDA V0+1¢ SBC #0¢ STA V0+1¢ SEC ¢ LDA V2¢ SBC #12¢ STA V2¢ LDA V2+1¢ SBC #0¢ STA V2+1¢ LDY #0¢ LDA #$41¢ STA (V0),Y¢ STA (V2),Y¢ INY ¢ LDA #Dlist¢ STA (V0),Y¢ INY ¢ LDA #>Dlist¢ STA (V0),Y¢ LDA #$cf¢ STA Dlist+90*3¢ STA Dlist2+90*3¢ STA Dlist+100*3¢ STA Dlist2+100*3¢ STA Dlist+106*3¢ STA Dlist2+106*3¢ STA Dlist+116*3¢ STA Dlist2+116*3¢ STA Dlist+122*3¢ STA Dlist2+122*3¢ RTS ¢ Copy:LDA #0¢ STA Copy0+1¢ LDA #>Textur¢ STA Copy0+2¢ LDA #0¢ STA Copy8+1¢ LDA #>Texturh¢ STA Copy8+2¢ LDY #16¢ Copy9:LDX #0¢ Copy0:LDA Textur,X¢ CLC ¢ ASL ¢ ASL ¢ ASL ¢ ASL ¢ Copy8:STA Texturh,X¢ INX ¢ BNE Copy0¢ INC Copy8+2¢ INC Copy0+2¢ DEY ¢ BNE Copy9¢ RTS ¢ Pminit:LDX #0¢ LDA #0¢ Pm0:STA 53248,X¢ INX ¢ CPX #8¢ BCC Pm0¢ LDA #0¢ LDX #0¢ Pm2:STA P0,X¢ STA P2,X¢ INX ¢ BNE Pm2¢ LDX #0¢ Pm1:¢ LDA Heaven0,X¢ STA P0+48,X¢ LDA Heaven1,X¢ STA P1+48,X¢ LDA Heaven2,X¢ STA P2+48,X¢ INX ¢ CPX #21¢ BCC Pm1¢ LDX #0¢ Pm3:LDA #15¢ STA 704,X¢ LDA #3¢ STA 53256,X¢ INX ¢ CPX #3¢ BCC Pm3¢ LDA #47¢ STA 559¢ LDA #$60¢ STA 54279¢ LDA #3¢ STA 53277¢ LDA #$50¢ STA 53248¢ LDA #$70¢ STA 53249¢ LDA #$90¢ STA 53250¢ RTS ¢ Setpm:CLC ¢ LDA Xpos¢ STA 53248¢ ADC #$20¢ STA 53249¢ ADC #$20¢ STA 53250¢ RTS ¢ LDX #21¢ LDA #0¢ Set0:STA P0+48,X¢ STA P1+48,X¢ STA P2+48,X¢ DEX ¢ BPL Set0¢ RTS ¢ Set1:LDA Heaven0,X¢ STA P0+48,X¢ LDA Heaven1,X¢ STA P1+48,X¢ LDA Heaven2,X¢ STA P2+48,X¢ INX ¢ CPX #17¢ BCC Set1¢ RTS ¢ Dli:PHA ¢ LDA #$00¢ STA Wsync¢ STA $d012¢ STA $d013¢ STA $d014¢ LDA #Dli1¢ STA Dliv¢ LDA #>Dli1¢ STA Dliv+1¢ PLA ¢ RTI ¢ Dli1:PHA ¢ LDA #$0f¢ STA Wsync¢ STA $d012¢ STA $d013¢ STA $d014¢ LDA #Dli2¢ STA Dliv¢ LDA #>Dli2¢ STA Dliv+1¢ PLA ¢ RTI ¢ Dli2:PHA ¢ LDA #$26¢ STA Wsync¢ STA $d012¢ STA $d013¢ STA $d014¢ LDA #Dli3¢ STA Dliv¢ LDA #>Dli3¢ STA Dliv+1¢ PLA ¢ RTI ¢ Dli3:PHA ¢ LDA #$0f¢ STA Wsync¢ STA $d012¢ STA $d013¢ STA $d014¢ LDA #Dli4¢ STA Dliv¢ LDA #>Dli4¢ STA Dliv+1¢ PLA ¢ RTI ¢ Dli4:PHA ¢ LDA #$ff¢ STA Wsync¢ STA $d012¢ STA $d013¢ STA $d014¢ PLA ¢ RTI ¢  ; ¢ W:DFB 0¢ W2:DFB 0¢ X00:DFB 0,32¢ Y00:DFB 0,32¢ Dxm:DFW 0¢ Dym:DFW 0¢ Store:DFB 0¢ Frame:DFB 0¢ Flag:DFB 0¢  ; ¢ Heaven0:DFB %01110111¢ DFB %01010101¢ DFB %01110101¢ DFB %01100101¢ DFB %01010111¢ DFB 0,0,0,0,0,0,0,0,0,0,0¢ DFB %01010111¢ DFB %01010100¢ DFB %01110110¢ DFB %01010100¢ DFB %01010111¢  ; ¢ Heaven1:DFB %01110111¢ DFB %00100100¢ DFB %00100010¢ DFB %00100001¢ DFB %00100111¢ DFB 0,0,0¢ DFB %01110101¢ DFB %01010101¢ DFB %01100010¢ DFB %01010010¢ DFB %01110010¢ DFB 0,0,0¢ DFB %01110101¢ DFB %01010101¢ DFB %01110101¢ DFB %01010010¢ DFB %01010010¢  ; ¢ Heaven2:DFB %01110111¢ DFB %01000101¢ DFB %01100111¢ DFB %01000110¢ DFB %01110101¢ DFB 0,0,0,0,0,0,0,0,0,0,0¢ DFB %01110111¢ DFB %01000101¢ DFB %01100101¢ DFB %01000101¢ DFB %01110101¢ Xpos:DFB 0¢ ¢