File: callvers.asm

package info (click to toggle)
pasmo 0.5.3-4
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 892 kB
  • ctags: 1,805
  • sloc: cpp: 8,508; asm: 3,020; sh: 790; makefile: 627
file content (28 lines) | stat: -rw-r--r-- 408 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
;	callvers.asm
;	Show the effect of attach the sample RSX echovers
;	Adapted from The CP/M Plus programmers guide.

bdos	equ 5
prtstr	equ 9
vers	equ 12
cr	equ 0dh
lf	equ 0ah

	org 100h
	ld d, 5
loop:	push de
	ld c, prtstr
	ld de, call$msg
	call bdos
	ld c, vers
	call bdos
	ld a, l
	ld (curvers), a
	pop de
	dec d
	jp nz, loop
	ld c, 0
	jp bdos
call$msg:	db cr, lf, '****  CALLVERS  ****$'
curvers	db 0
	end