Animated Screen Clear
Suche
Index
FAQ
Kontakt
Zurück
;---------------------------------------------------------
!to "cleanscreen.prg",cbm
; Basicstart
*= $0400
!byte $00,$0b,$04,$0a,$00,$9e,$31,$30,$33,$37,$00,$00,$00
; main
*=$040d
;--------------------------------------------------
; virtual machine in VICE: CBM 3032B /32K
; Compiler used for this template: ACME 0.91
;--------------------------------------------------
screen=$8000
get =$ffe4
rowcount=$0a
inctime= $8f

;--------------------------------------------------
; fill screen-ram     
;--------------------------------------------------
                 ldy #$00
                 sty rowcount
--               ldx #$00
-                lda text,x      ; get letter
a:               sta screen,y    ; write it to screen ram 
                 iny
                 bne +
                 inc a+2
+                inx
                 cpx #$28        ; 40 column reached ? 
                 bne -                   
                 inc rowcount
                 lda rowcount
                 cmp #$19        ; 25 lines reached ?
                 bne --
-                jsr get   
                 cmp #$20        ; wait for space-key  
                 beq +
                 bne -
+              
;--------------------------------------------------
; your 255 byte-space begins here and ends at rts
;--------------------------------------------------

                 lda #$80
                 sta a+2
                 sta m2+2
                 sta m0+2
                 lda #$83 
                 sta m3+2 
                 sta m1+2 

                 ldx #$00
                 stx rowcount
                 ldy #$00  
j3:              lda #93
m2:              sta screen,x
m3:              sta $83c0,y
                 clc
                 txa
                 adc #40
                 bcc+    
                 inc m2+2
+                tax
                 sec   
                 tya   
                 sbc #40
                 bcs +
                 dec m3+2      
+                tay
                 jsr irq
                 inc rowcount
                 lda rowcount
                 cmp #13                    
                 bne j3

                 jsr washer
-                ldx $0b
                 inx
                 stx rowcount 
                 stx $0b 
                 lda #93
                 sta j0+1                  
                 jsr irq  
                 jsr w2
                 ldx $0b 
                 dex
                 stx $0b 
                 lda #' ' 
                 sta j0+1 
                 jsr irq  
                 jsr w2
                 inc $0b 
                 lda rowcount
                 cmp #39
                 bne - 

                 ldx #$00
                 ldy #$00  
j1:              lda #' '
m0:              sta screen+39,x
m1:              sta $83c0+39,y
                 clc
                 txa
                 adc #40
                 bcc+    
                 inc m0+2
+                tax
                 sec   
                 tya   
                 sbc #40
                 bcs +
                 dec m1+2      
+                tay
                 jsr irq
                 inc rowcount
                 lda rowcount
                 cmp #53                    
                 bne j1
                 rts

washer:          ldx #$00
                 stx $0b  
w2:              ldy #0   
j0:              lda #93     
m:               sta screen,x  
                 clc
                 txa
                 adc #40
                 bcc +
                 inc m+2
+                tax  
                 iny
                 cpy #25
                 bne j0     
                 lda #$80
                 sta m+2
                 rts 
irq            
                 pha  
                 lda $8f
-                cmp $8f
                 beq -
                 pla                
                 rts

text !PET "please erase this awful text in here !!!"

 

Letzte Änderung: 2019-01-04 09:53:21
  Rubrik:  CBM PET
Rubriken-Übersicht
 4 Besucher online 

Valid XHTML 1.0 Transitional Valid CSS!