playground:playground
Differences
This shows you the differences between two versions of the page.
Both sides previous revisionPrevious revisionNext revision | Previous revision | ||
playground:playground [2016-02-07 23:34] – matt | playground:playground [2024-03-15 23:51] (current) – ftc | ||
---|---|---|---|
Line 1: | Line 1: | ||
- | ;I have slight modified the Macie' | + | ====== PlayGround ====== |
- | ;this routine converts 5 digits decimal number (range 0-65535) to equivalent hex number. | + | |
- | + | Here you can do whatever you want, to learn and try out the formatting features offered by dokuwiki. There is a [[wiki: | |
- | !to " | + | |
- | + | ||
- | *=$0810 | + | |
- | lda #0 | + | |
- | sta lores ; | + | |
- | sta hires ; | + | |
- | lda numA ;load units and tens byte | + | |
- | and # | + | |
- | sta lores ;units nibble | + | |
- | lda numA ;tens nibble | + | |
- | lsr | + | |
- | lsr | + | |
- | | + | |
- | lsr | + | |
- | sta addr1+1 ; | + | |
- | lda #$0a ;put 10 after adc opcode in adder subroutine | + | |
- | sta addr2+1 | + | |
- | lda #$0 ;2 byte addition | + | |
- | sta addr3+1 | + | |
- | jsr addr1 | + | |
- | lda numB ;load handreds and miles byte | + | |
- | pha | + | |
- | and #$0f | + | |
- | sta addr1+1 ; | + | |
- | lda #$64 ;put 100 ($64) after adc opcode... | + | |
- | sta addr2+1 | + | |
- | lda #$0 | + | |
- | sta addr3+1 | + | |
- | jsr addr1 | + | |
- | pla | + | |
- | lsr | + | |
- | lsr | + | |
- | lsr | + | |
- | lsr | + | |
- | sta addr1+1 | + | |
- | lda #$e8 ;add 1000, first add lobyte $e8 | + | |
- | sta addr2+1 | + | |
- | lda # | + | |
- | sta addr3+1 | + | |
- | jsr addr1 | + | |
- | lda numC ;load tens of thousands | + | |
- | and #$0f | + | |
- | sta addr1+1 ; | + | |
- | lda #$10 | + | |
- | sta addr2+1 | + | |
- | lda #$27 | + | |
- | sta addr3+1 | + | |
- | jsr addr1 | + | |
- | rts | + | |
- | ;adder subroutine | + | |
- | addr1 ldx # | + | |
- | clc | + | |
- | loop lda lores | + | |
- | addr2 adc #00 ;$a, $64; $e8, $10 | + | |
- | sta lores | + | |
- | lda hires | + | |
- | addr3 adc #00 ;$0, $03, $27 | + | |
- | sta hires | + | |
- | dex | + | |
- | bne loop | + | |
- | rts | + | |
- | ;for 65535 | + | |
- | numA !byte 00 ;numA=35 | + | |
- | numB !byte 00 ; | + | |
- | numC !byte 00 ; | + | |
- | lores !byte 00 | + | |
- | hires !byte 00 | + | |
playground/playground.1454884498.txt.gz · Last modified: 2016-02-07 23:34 by matt