pasmo/showfcb.asm at main · compilersoftware/pasmo · GitHub

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
;	showfcb.asm

bdos	equ 5

conout	equ 2
printstring	equ 9

	public fcb1, fcb2
fcb1	equ 005Ch
fcb2	equ 006Ch

	org 100h

	call endline

	ld hl, fcb1
	call showfcb
	call endline

	ld hl, fcb2
	call showfcb
	call endline

	ld hl, fcb1
	ld de, 12

	add hl, de
	ld (hl), 0

	ld de, dma
	ld c, 1Ah
	call bdos

	ld de, fcb1
	ld c, 11h
	call bdos

	cp 0FFh
	jp z, final

	public otro
otro:	ld hl, dma

	; Calculate the position of the result
	; into the dma.
	add a, a
	add a, a
	add a, a
	add a, a
	add a, a
	ld e, a
	ld d, 0
	add hl, de

	call showfcb
	call endline

	ld de, fcb1
	ld c, 12h
	call bdos

	cp 0FFh
	jp z, final

	jp otro

	public final
final:	ld c, 0
	call bdos

	public showfcb
showfcb	ld a, (hl)
	cp 0
	;jr z, nodrive
	jp z, nodrive
	dec a
	add a, 'A'
	ld e, a
	call printchar
	ld e, ':'
	call printchar

nodrive	inc hl
	ld b, 8

	public name
name	ld e, (hl)
	call printchar
	inc hl
	;djnz name
	dec b
	jp nz, name

	ld e, '.'
	call printchar

	ld b, 3
	public ext
ext	ld e, (hl)
	call printchar
	inc hl
	;djnz ext
	dec b
	jp nz, ext
	ret


HERE:
	public HERE

	public printchar
printchar	push bc
	push de
	push hl
	ld c, conout
	call bdos
	pop hl
	pop de
	pop bc
	ret

	public endline
endline	ld de, crlf
	ld c, printstring
	jp bdos
crlf	db 0Dh, 0Ah, '$'

	public dma
dma	equ $

	public this_is_the_end
this_is_the_end	end