forked from amberisvibin/chibi-pc09
24 lines
473 B
NASM
24 lines
473 B
NASM
; Program "Call" called by "Testcall"; this is assembler version;
|
|
; compare with functionally equivalent COBOL version.
|
|
|
|
cseg
|
|
|
|
ldax b ; read first param: A = text length
|
|
loop:
|
|
dcr a ; count down length
|
|
rm ; finished
|
|
push psw
|
|
ldax d ; next byte from second param = text
|
|
inx d
|
|
push d
|
|
mov e,a
|
|
mvi c,6 ; CP/M function code
|
|
call 5 ; call CP/M to send character
|
|
pop d
|
|
pop psw
|
|
jmp loop
|
|
|
|
; End of demonstration program "Call"
|
|
|
|
end
|