3.8. TOGGLING BITS 43
ORG $C100
JSR OUTCRLF *NEED THIS FOR OUTPUTS TO LINE UP!
JSR RAND
STAA $00
JSR PRBINARY *PRINT BEFORE
JSR TGLBIT4
LDAA $00
JSR PRBINARY *PRINT AFTER 1 TOGGLE
JSR TGLBIT4
LDAA $00
JSR PRBINARY *PRINT AFTER 2 TOGGLE
JSR TGLBIT4
LDAA $00
JSR PRBINARY *PRINT AFTER 3 TOGGLES
SWI
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Function: TGLBIT4
; Purpose: tOGGLES bit #4 in memory location $00
; Registers modified none
;
TGLBIT4
PSHA
LDAA $00
EORA #%00010000
STAA $00
PULA
RTS
;; INSERT THE CODE FOR CLRBIT4 SETBIT4 RAND AND PRBINARY HERE
Komentáře k této Příručce