Integer sequence: Difference between revisions
→{{header|Z80 Assembly}}
(→{{header|Wren}}: Updated to current position.) |
Puppydrum64 (talk | contribs) |
||
Line 2,599:
end</lang>
=={{header|Z80 Assembly}}==
The screen isn't big enough to show it all at once, but here you go.
<lang z80>org &1000
PrintChar equ &BB5A
ld hl,1 ;START AT ONE
main:
push hl
;PRINT HIGH BYTE
ld a,h
call ShowHex
;THEN PRINT LOW BYTE
ld a,l
call ShowHex
;NEW LINE
ld a,13
call PrintChar
ld a,10
call PrintChar
pop hl
;NEXT HL
inc hl
;COMPARE HL TO ZERO
ld a,h
or l
jr nz,main ;IF NOT ZERO, REPEAT
ret ;RETURN TO BASIC
ShowHex:
push af
and %11110000
rrca
rrca
rrca
rrca
call PrintHexChar
pop af
and %00001111
;call PrintHexChar
;execution flows into it naturally.
PrintHexChar:
;this converts hexadecimal to ascii.
or a ;Clear Carry Flag
daa
add a,&F0
adc a,&40
jp PrintChar
;ret</lang>
=={{header|zkl}}==
|