diff options
| author | Leo C | 2016-08-11 17:11:36 +0200 |
|---|---|---|
| committer | Leo C | 2016-08-11 17:11:36 +0200 |
| commit | 01cb8973f5fbba05d990523d4fb0aaf3e269c01a (patch) | |
| tree | a1c4fded4ec412f6d31d242ad9b54eadf1647677 | |
| parent | 5023df4fe474eb68b0506603e10b606a147dfb6e (diff) | |
| download | ddt180-01cb8973f5fbba05d990523d4fb0aaf3e269c01a.zip | |
Reorg
| -rw-r--r-- | ddt180.z80 | 218 |
1 files changed, 109 insertions, 109 deletions
@@ -249,69 +249,6 @@ crlf: jr c,mainloop
ret
-get_line:
- push hl
- ld de,conbuf
- ld c,BDOS_CBUF
- call ddtz_bdos
- call crlf
- ld de,conbuf+1
- ld a,(de)
- ld b,a
- ld c,0
- inc b
-l0162h:
- inc de
- dec b
- jr z,l0194h
- ld a,(de)
- bit 0,c
- call z,toupper
- ld (de),a
- cp ''''
- jr nz,l0162h
- push de
- dec de
- ld a,(de)
- cp ''''
- jr z,l0190h
- dec de
- ld a,(de)
- cp '^'
- jr z,l0184h
- dec de
- ld a,(de)
- cp '^'
- jr nz,l0190h
-l0184h:
- inc de
- push bc
- call sub_0303h
- pop bc
- dec de
- ld a,(de)
- cp ''''
- jr z,l0191h
-l0190h:
- inc c
-l0191h:
- pop de
- jr l0162h
-l0194h:
- xor a
- ld (de),a
- ld de,conbuf+2
- pop hl
- ret
-
-toupper:
- cp 'a'
- ret c
- cp 'z'+1
- ret nc
- and 05fh
- ret
-
out.hl.@:
call out_hl
push de
@@ -331,23 +268,6 @@ l01bfh: pop de
ret
-out.bin.w:
- ld a,h
- call out.bin.b
- ld a,l
-out.bin.b:
- ld b,8
-l01c9h:
- add a,a
- push af
- ld a,00
- adc a,a
- call out_dgt
- pop af
- djnz l01c9h
- ld a,'"'
- jp outchar
-
sub_01d9h:
ld a,'-'
call outchar
@@ -411,6 +331,23 @@ l0229h: add a,'0'
jr outchar
+out.bin.w:
+ ld a,h
+ call out.bin.b
+ ld a,l
+out.bin.b:
+ ld b,8
+l01c9h:
+ add a,a
+ push af
+ ld a,00
+ adc a,a
+ call out_dgt
+ pop af
+ djnz l01c9h
+ ld a,'"'
+ jr outchar
+
out.ascii:
push af
res 7,a
@@ -438,6 +375,16 @@ l0242h: ex af,af'
ret
+outbl6:
+ call outbl2
+outbl4:
+ call outbl2
+outbl2:
+ call outbl
+outbl:
+ ld a,' '
+ jr outchar
+
p_char_lparen:
ld a,'('
jr outchar
@@ -461,6 +408,25 @@ outchar: pop hl
ret
+pstr:
+ ld c,0
+l028ah:
+ ld a,(hl)
+ inc hl
+ and a
+ ret z
+ call outchar
+ inc c
+ and a
+ ret m
+ jr l028ah
+
+pstr_inl:
+ ex (sp),hl
+ call pstr
+ ex (sp),hl
+ ret
+
inchar:
push hl
push de
@@ -478,40 +444,67 @@ l0284h: pop hl
ret
-pstr:
+get_line:
+ push hl
+ ld de,conbuf
+ ld c,BDOS_CBUF
+ call ddtz_bdos
+ call crlf
+ ld de,conbuf+1
+ ld a,(de)
+ ld b,a
ld c,0
-l028ah:
- ld a,(hl)
- inc hl
- and a
- ret z
- call outchar
+ inc b
+l0162h:
+ inc de
+ dec b
+ jr z,l0194h
+ ld a,(de)
+ bit 0,c
+ call z,toupper
+ ld (de),a
+ cp ''''
+ jr nz,l0162h
+ push de
+ dec de
+ ld a,(de)
+ cp ''''
+ jr z,l0190h
+ dec de
+ ld a,(de)
+ cp '^'
+ jr z,l0184h
+ dec de
+ ld a,(de)
+ cp '^'
+ jr nz,l0190h
+l0184h:
+ inc de
+ push bc
+ call sub_0303h
+ pop bc
+ dec de
+ ld a,(de)
+ cp ''''
+ jr z,l0191h
+l0190h:
inc c
- and a
- ret m
- jr l028ah
-
-pstr_inl:
- ex (sp),hl
- call pstr
- ex (sp),hl
+l0191h:
+ pop de
+ jr l0162h
+l0194h:
+ xor a
+ ld (de),a
+ ld de,conbuf+2
+ pop hl
ret
-outbl6:
- call outbl2
-outbl4:
- call outbl2
-outbl2:
- call outbl
-outbl:
- ld a,' '
- jr outchar
-
-add_hl_a:
- add a,l
- ld l,a
+toupper:
+ cp 'a'
+ ret c
+ cp 'z'+1
ret nc
- inc h
+ and 05fh
ret
skipbl0:
@@ -552,6 +545,13 @@ chk_sp: jr c,to_error
ret
+add_hl_a:
+ add a,l
+ ld l,a
+ ret nc
+ inc h
+ ret
+
cp_hl_de:
and a
sbc hl,de
|