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
|
