no way to compare when less than two revisions

Differences

This shows you the differences between two versions of the page.

@@ Line 1: / Line 1: @@
+====== Handling IRQs macros ======
+Assemble with ACME.
+Just notice how the macro ENTER and EXIT are used, to make nice clean demosource with as many IRQ as you need.
+<code asm>
+;some macros to use for easy raster handling, by rambones
+!to "part1.prg"
+!zone mainprogram
+*=$1000
+;-------------- MACROS ----------------
+;;!macro INIT .inadd, .pladd{
+; (code here)
+;}
+!macro ENTER{
+ pha
+ tya
+ pha
+ txa
+ pha
+}
+!macro EXIT .intvector, .rasterline{
+ LDX #>.intvector
+ LDY #<.intvector
+ STX $FFFF
+ STY $FFFE
+ LDA #.rasterline
+ STA $D012
+ SEC
+ ROL $D019
+ JMP _quitirq
+}
+!macro POKE .value, .address{
+ LDA .value
+ STA .address
+}
+!macro XDEL .pausex{
+ LDX #.pausex
+_xxpause DEX
+ BNE _xxpause
+}
+!macro YDEL .pausey{
+ LDY #.pausey
+_pause2 DEY
+ BNE _pause2
+}
+;-------------------------------------------------------------------------------
+; start of program..
+JMP START
+; utilities and pointers..
+_quitirq
+pla
+tax
+pla
+tay
+pla
+_freeze
+rti
+_spritepoint
+!BYTE 200,201,202,203,204,205,206,207
+_xsprite
+!BYTE 100,120,140,160,180,200,220,240
+_ysprite
+!BYTE 100,100,100,100,100,100,100,100
+SCREEN=$0400
+ZP=$2B
+;---------- MAIN START -----------
+START
+ jsr _clearscreen
+ jsr _setuplogo
+ jsr _setlogocolor
+ jsr SSINIT           ;charscroll
+ jsr _clearline
+SEI
+LDA #$35
+STA $01
+LDX #>INT1
+LDY #<INT1
+STX $FFFF
+STY $FFFE
+ldx #>_freeze
+ldy #<_freeze
+stx $FFFA
+sty $FFFB
+LDX #0
+STX $DC0E
+INX
+STX $D01A
+LDA #$1B
+STA $D011
+LDA #LINE1
+STA $D012
+CLI
+LOCK
+JMP LOCK
+;--------------------------------------
+LINE1=$32
+INT1
++ENTER
+ ldx #7
+.time5 dex
+ bne .time5
+ lda #1
+ sta $d020
+ lda #0
+ sta $d021
+ JSR SSSET2          ;stop charscroll
+;set logofont $2800
+LDA $D018
+AND #240
+ORA #10
+STA $D018
+;set multicolors on charlogo
+lda #2
+sta $d022
+lda #4
+sta $d023
+;set multi color text mode
+lda $d016
+ora #16
+sta $d016
+;enable extended text background color
+;lda $d011
+;ora #64
+;sta $d011
++EXIT INT2,LINE2
+;--------------------------------------
+;set sprites here
+LINE2=$4a
+INT2
++ENTER
+ ldx #7
+.time1 dex
+ bne .time1
+ JSR SSSET2          ;stop charscroll
+ lda #5
+ sta $d020
+ sta $d021
+ lda #255
+ sta $d015
+ lda #1
+ sta $d027
+ sta $d028
+ sta $d029
+ sta $d02a
+ sta $d02b
+ sta $d02c
+ sta $d02d
+ sta $d02e
+;ok
+ ldx #0
+.spri2 lda _spritepoint,x
+ sta $07f8,x
+ inx
+ cpx #7
+ bne .spri2
+ lda #100
+ sta $d000
+ lda #100
+ sta $d001
+; ldx #0
+;.spri4 lda _ysprite,x
+; sta $d001,x
+; inx
+; inx
+; cpx #7
+; bne .spri4
++EXIT INT3,LINE3
+;--------------------------------------
+LINE3=$c8
+INT3
++ENTER
+ ldx #7
+.time2 dex
+ bne .time2
+ lda #1
+ sta $d020
+ lda #0
+ sta $d021
+ JSR SSSET2          ;stop charscroll
+ JSR SSCALC          ;calc charscroll
++EXIT INT4,LINE4
+;--------------------------------------
+LINE4=$f1
+INT4
++ENTER
+ ldx #7
+.time7 dex
+ bne .time7
+ lda #2
+ sta $d020
+ lda #6
+ sta $d021
+ lda #22
+ sta $d018
+;set single color text mode
+ lda $d016
+ and #239
+ sta $d016
+ jsr SSSET1             ;scroll char
++EXIT INT1,LINE1
+;--------------------------------------
+_clearscreen
+;here go all the subroutines...
+!endoffile
+</code>