DUM>ASM3ASM
;**************************************
;**** ****
;**** KC 85/2,3 - Software ****
;**** J|rg Meyer SK86B ****
;**** haftmann#software ****
;**** 28.3.1988 TUKMSt ****
;**** Ausgabe einer Tabelle im ****
;**** RAM in den EDAS-Puffer ****
;**** Quelltext (Form:'DB 0xxH,..) ****
;**** Menu: %DUM>ASM3 yyyy zzzz ****
;**** yyyy - AnfAdr. Tabelle ****
;**** zzzz - EndAdr. Tabelle ****
;**** ****
;**************************************
OS EQU 0F003H
RC EQU 0F00FH
ORG 0BA00H
DB 7FH,7FH,'DUM>ASM3',1
LD A,(0B781H)
CP 2
JR NC,DUAS0
CALL OS
DB 23H
DB 'AAdr EAdr '
DB '(Trennz&Spaltenzahl)'
DB 0DH,0AH,0
RET
DUAS0
JR NZ,DUAS01
LD BC,904H
LD (0B786H),BC
DUAS01
EX DE,HL ;DE=Quelle
SBC HL,DE ;HL=Ziel
LD B,H
LD C,L ;BC=Lng.
LD HL,(44H)
DUAS1
LD M,0DH
INC HL
LD M,0AH
INC HL
LD A,(0B787H)
LD M,A
INC HL
LD M,'D'
INC HL
LD M,'B'
INC HL
LD M,A
INC HL
LD A,(0B786H)
JR DUAS2
DUASW
DEC A ;A=4..
JR Z,DUAS1
LD M,','
INC HL
DUAS2
PUSH AF
LD A,(DE)
INC DE
CP 0A0H
JR C,DUAS3
LD M,'0'
INC HL
DUAS3
PUSH DE
CALL RC
DW HEXO-$-2
POP DE
LD M,'H'
INC HL
DEC BC
LD A,B
OR C
JR Z,DUASE
POP AF
JR DUASW
DUASE
POP AF
LD M,0DH
INC HL
LD M,0AH
INC HL
LD (44H),HL
RET
HEXO PUSH AF
RRCA
RRCA
RRCA
RRCA
CALL RC
DW DUM2-$-2
POP AF
DUM2 AND 0FH
ADD 90H
DAA
ADC 40H
DAA
LD M,A
INC HL
RET
Ö║
DUM2:Ä║
HEXO:â║
DUACALL RC
DW DUM2-$-2
POP AF
DUM2 AND 0FH
ADD 90H
DAA
ADC 40H
DAA
LD M,A
INC HL
RET
Ö║
DUM2:Ä║
HEXO:â║
DUA
Detected encoding: OEM (CP437) | 1
|
|