home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ABBUC Magazin 45B
/
ABBUC_Magazin_45_1996_ABBUC_Side_B.atr
/
pmscrol.inc
< prev
next >
Wrap
Text File
|
2023-02-26
|
5KB
|
1 lines
¢00001 ; PMSCROLLER ALS INCLUDE¢00002 ; FILE FUER DAS INTRO#44¢00003 ; (C) 1996 BY HEAVEN¢00110 PMBASE = 54279¢00120 GRACTL = 53277¢00130 DMACTL = 559¢00140 HPOSP0 = $D000¢00150 COLP0 = 704¢00160 SIZEP0 = 53256¢00170 P0 = $7400¢00180 P1 = $7500¢00190 P2 = $7600¢00200 P3 = $7700¢00210 P4 = $7300¢00220 WSYNC = $D40A¢00230 FONTL = $7900¢00240 FONTH = $7980¢00245 SINTAB = $3900¢00320 COSTAB = $3B00¢00330 V5 = $B0¢00340 V6 = $B2¢02000 PMINIT LDA #62¢02010 STA DMACTL¢02020 LDA #3¢02030 STA GRACTL¢02040 LDA #$70¢02050 STA PMBASE¢02060 GR LDA #3¢02070 STA SIZEP0¢02080 STA SIZEP0+1¢02090 STA SIZEP0+2¢02100 STA SIZEP0+3¢02110 LDA #$30¢02120 STA HPOSP0¢02130 LDA #$50¢02140 STA HPOSP0+1¢02150 LDA #$70¢02160 STA HPOSP0+2¢02170 LDA #$90¢02180 STA HPOSP0+3¢02190 LDA #15¢02200 STA 704¢02210 STA 705¢02220 STA 706¢02230 STA 707¢02240 LDX #0¢02250 .0 LDA #$00¢02260 STA P0,X¢02265 STA P1,X¢02270 STA P2,X¢02275 STA P3,X¢02276 STA P4,X¢02280 INX¢02290 BNE .0¢02300 LDA #1¢02310 STA 623¢02320 LDA #255¢02330 STA SIZEP0+4¢02340 LDA #$C8¢02350 STA HPOSP0+4¢02360 LDA #$C0¢02370 STA HPOSP0+5¢02380 LDA #$B8¢02390 STA HPOSP0+6¢02400 LDA #$B0¢02410 STA HPOSP0+7¢02420 TABINIT LDA #0¢02430 STA V5¢02440 LDA #$E0¢02450 STA V5+1¢02460 LDY #0¢02470 .0 LDA V5¢02480 STA FONTL,Y¢02490 LDA V5+1¢02500 STA FONTH,Y¢02510 CLC¢02520 LDA V5¢02530 ADC #8¢02540 STA V5¢02550 LDA V5+1¢02560 ADC #0¢02570 STA V5+1¢02580 INY¢02585 CPY #$7F¢02590 BCC .0¢02600 RTS¢04000 PMSCROLL LDA PMCOUNT¢04010 BNE SOFT¢04020 LMS LDA #TEST¢04030 ADC COUNT¢04040 STA V5¢04050 LMS1 LDA /TEST¢04060 ADC COUNT+1¢04065 STA V5+1¢04066 INC COUNT¢04070 LDY #0¢04080 LDA (V5),Y¢04091 TAX¢04092 LDA FONTL,X¢04093 STA V5¢04094 LDA FONTH,X¢04095 STA V5+1¢04096 LDY #0¢04097 .0 LDA (V5),Y¢04098 STA BUFFER+40,Y¢04100 INY¢04110 CPY #8¢04120 BCC .0¢04130 LDA #1¢04131 STA PMCOUNT¢04140 RTS¢04150 SOFT LDX #0¢04160 .0 CLC¢04170 ROL BUFFER+40,X¢04180 ROL BUFFER+32,X¢04190 ROL BUFFER+24,X¢04200 ROL BUFFER+16,X¢04210 ROL BUFFER+8,X¢04220 ROL BUFFER,X¢04230 INX¢04240 CPX #8¢04250 BCC .0¢04260 LDY SCOUNT¢04261 LDA SINTAB,Y¢04262 ADC #32¢04269 TAY¢04270 LDX #0¢04280 PMCOPY LDA BUFFER,X¢04290 STA P0,Y¢04291 STA P0+1,Y¢04292 STA P0+2,Y¢04293 STA P0+3,Y¢04294 STA P0+4,Y¢04300 LDA BUFFER+8,X¢04310 STA P1,Y¢04311 STA P1+1,Y¢04312 STA P1+2,Y¢04313 STA P1+3,Y¢04314 STA P1+4,Y¢04320 LDA BUFFER+16,X¢04330 STA P2,Y¢04331 STA P2+1,Y¢04332 STA P2+2,Y¢04333 STA P2+3,Y¢04334 STA P2+4,Y¢04340 LDA BUFFER+24,X¢04350 STA P3,Y¢04351 STA P3+1,Y¢04352 STA P3+2,Y¢04353 STA P3+3,Y¢04354 STA P3+4,Y¢04360 LDA BUFFER+32,X¢04370 STA P4,Y¢04371 STA P4+1,Y¢04372 STA P4+2,Y¢04373 STA P4+3,Y¢04374 STA P4+4,Y¢04380 INX¢04390 INY¢04392 INY¢04393 INY¢04394 INY¢04395 INY¢04396 ; INY¢04397 ; INY¢04400 CPX #8¢04410 BCC PMCOPY¢04420 INC PMCOUNT¢04430 LDA PMCOUNT¢04440 CMP #8¢04450 BCC .0¢04460 LDA #0¢04470 STA PMCOUNT¢04475 JMP PMSCROLL¢04480 .0 RTS¢05400 MOVE LDA RICHT¢05410 BNE .0¢05420 INC SCOUNT¢05430 LDA SCOUNT¢05440 CMP #$75¢05450 BNE .9¢05460 LDA #1¢05470 STA RICHT¢05480 .9 RTS¢05490 .0 DEC SCOUNT¢05500 LDA SCOUNT¢05510 BEQ .1¢05520 RTS¢05530 .1 LDA #0¢05540 STA RICHT¢05550 STA SCOUNT¢05560 RTS¢10000 SHSCRL .HX 00¢10001 COUNT .HX 0000¢10002 PMCOUNT .HX 00¢10003 SCOUNT .HX 00¢10004 SCR .HX 0000¢10005 MODE .HX C1¢20100 BUFFER .HX 0000000000000000¢20101 .HX 0000000000000000¢20102 .HX 0000000000000000¢20103 .HX 0000000000000000¢20104 .HX 0000000000000000¢20105 .HX 0000000000000000¢