File: alocal.asm

package info (click to toggle)
pasmo 0.5.3-9
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 868 kB
  • sloc: cpp: 8,508; asm: 3,027; sh: 804; makefile: 114
file content (39 lines) | stat: -rw-r--r-- 398 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
29
30
31
32
33
34
35
36
37
38
39
 
;	alocal.asm
; Test of autolocal mode in CP/M.

bdos	equ 5
conout	equ 2

start	org 100h

	jp _hola

_exit	db "Good morning.\r\n", 0

_hola	ld hl, _exit
	call showtext

	jp hola

showtext

_hola	ld a, (hl)
	cp 0
	jp z, _exit
	push hl
	ld e, a
	ld c, conout
	call bdos
	pop hl
	inc hl
	jp _hola

_exit	ret

hola	ld hl, _exit
	call showtext
	jp 0

_exit	db "Hello, autolocal world\r\n", 0

	end start