PC-G850V/LDIR.asm at master · Kongduino/PC-G850V · 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
10 ORG 100H
20 JP MAIN
30PUTSTR EQU 0BFF1H
40WAITK EQU 0BFCDH
50WSTSR EQU 0BFB2H
60MAIN: LD HL, S0
70 LD DE, 0
80 CALL PUTSTR
90 LD HL, S0
100 CALL STRLN
110 LD C,0
120 LD HL, S0
130 LD DE, S1
140 LDIR
150 LD HL, S0
160 CALL STRLN
170 LD HL, S1
180 CALL STRLN
190 LD HL, S1
200 LD DE, 0200H
210 CALL PUTSTR
220 CALL WAITK


999 RET

1000S0: DB 'This me sending stuff from ASM'
1010 DB 13,10,0
1020S1: DB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

3450STRLN: LD B, 0
3460STRLN0: LD A, (HL)
3470 OR A
3480 JP Z, STRLN1
3490 INC HL
3500 INC B
3510 JP STRLN0
3520STRLN1: RET