forked from amberisvibin/chibi-pc09
copy all local files to repo
cp/m files, sprites, circuit design
This commit is contained in:
23
emu/yaze/COBOL/CALL.ASM
Normal file
23
emu/yaze/COBOL/CALL.ASM
Normal file
@@ -0,0 +1,23 @@
|
||||
; 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
|
Reference in New Issue
Block a user