DUM>ASM ASM ;
;**************************************
;**** ****
;**** KC 85/2,3 - Software ****
;**** Joerg Meyer SK86B ****
;**** 28.3.1988 TUKMSt ****
;**** Ausgabe einer Tabelle im ****
;**** RAM auf Kassette als EDAS- ****
;**** Quelltext (Form:'DEFW 0xxxH) ****
;**** Menu: %DUM>ASM yyyy zzzz ****
;**** yyyy - Anf.adr. Tabelle ****
;**** zzzz - Laenge Tabelle ****
;**** ****
;**************************************
;
OS EQU 0F003H
ARG2 EQU 0B784H
;
ORG 0BF00H
DEFW 7F7FH
DEFM 'DUM>ASM'
DEFB 1
LD A,(0B781H)
CP 2
JR NC,DUAS10
CALL OS
DEFB 19H
RET
;
DUAS10 PUSH HL
CALL OS
DEFB 23H
DEFW 0B0AH
DEFB 2
DEFM 'Name:'
DEFB 0
CALL OS
DEFB 17H
LD HL,5
ADD HL,DE
LD A,13
LD (0B7A0H),A
CALL OS
DEFB 23H
DEFB 0BH
DEFM 'ASM'
DEFW 0D0AH
DEFB 0
LD DE,0B700H
PUSH DE
LD BC,11
LDIR
XOR A
LD B,75H
DUAS1 LD (DE),A
INC DE
DJNZ DUAS1
CALL OS
DEFB 8
CALL BLNR
POP DE
LD A,9
DUAS2 LD BC,14
LD HL,TXT
LDIR
DEC A
JR NZ,DUAS2
LD A,20H
LD (DE),A
INC DE
LD (DE),A
;
DUAS9 LD B,9
LD DE,0B707H
DUAS8 POP HL
LD C,M
INC HL
LD A,M
INC HL
PUSH HL
LD H,A
PUSH DE
LD DE,(ARG2)
DEC DE
LD A,D
OR E
JR Z,DUAS3
DEC DE
LD A,D
OR E
JR Z,DUAS4
LD (ARG2),DE
JR DUAS5
DUAS3 LD H,0
DUAS4 SCF
DUAS5 LD A,H
POP DE
PUSH AF
CALL DUM1
LD A,C
CALL DUM1
POP AF
JR C,DUAS6
LD HL,10
ADD HL,DE
EX DE,HL
DJNZ DUAS8
LD C,0A0H
CALL OS
DEFB 1
CALL BLNR
CALL OS
DEFB 2AH
JR NC,DUAS9
LD E,7CH
DUAS6 POP HL
INC DE
INC DE
INC DE
LD A,80H
SUB E
LD B,A
XOR A
DUAS7 LD (DE),A
INC DE
DJNZ DUAS7
LD C,0A0H
CALL OS
DEFB 9
CALL OS
DEFB 2CH
RET
;
TXT DEFB 9
DEFM 'DEFW'
DEFB 9
DEFM '00000H'
DEFW 0A0DH
;
DUM1 PUSH AF
RRCA
RRCA
RRCA
RRCA
CALL DUM2
POP AF
DUM2 AND 0FH
ADD 90H
DAA
ADC 40H
DAA
LD (DE),A
INC DE
RET
BLNR LD A,(IX+2)
CALL OS
DEFB 1CH
CALL OS
DEFM '# '
DEFB 0
RET
;Hier dum-asm 2
;
;**************************************
;**** ****
;**** KC 85/2,3 - Software ****
;**** J|rg Meyer SK86B ****
;**** 15.4.1988 TU KMSt ****
;**** Ausgabe einer Tabelle im ****
;**** RAM auf Kassette als EDAS- ****
;**** Quelltext ****
;**** Menu: %DUM>ASM yyyy zzzz ****
;**** yyyy - Anf.adr. Tabelle ****
;**** zzzz - L{nge Tabelle ****
;**** ****
;**************************************
;
OS EQU 0F003H
ARG2 EQU 0B784H
;
ORG 0BE75H
SPBUF DEFW 0
DEFW 7F7FH
DEFM 'DUM>ASM'
DEFB 1
LD A,(0B781H)
CP 2
JR NC,DUM9
CALL OS
DEFB 19H
RET
;
DUM9 LD (SPBUF),SP
LD (IX+5),0
LD (IX+6),0B7H
PUSH HL
CALL OS
DEFB 23H
DEFW 0B0AH
DEFB 2
DEFM 'Name:'
DEFB 0
CALL OS
DEFB 17H
LD HL,5
ADD HL,DE
LD A,13
LD (0B7A0H),A
CALL OS
DEFB 23H
DEFB 0BH
DEFM 'ASM'
DEFW 0D0AH
DEFB 0
LD DE,0B700H
LD BC,11
LDIR
XOR A
LD B,75H
DUM8 LD (DE),A
INC DE
DJNZ DUM8
CALL OS
DEFB 8
CALL BLNR
POP DE
LD C,0
DUM4 PUSH DE
LD DE,PRO
LD B,4
DUM1 LD A,(DE)
CALL MBOUT
INC DE
DJNZ DUM1
POP DE
CALL TZK
JR C,DUM5
LD A,'M'
CALL MBOUT
LD A,9
CALL MBOUT
LD A,27H
CALL MBOUT
DUM2 CALL DECL
PUSH AF
LD A,(DE)
AND A
INC DE
CALL MBOUT
POP AF
JR C,DUM3
DJNZ DUM2
DUM3 PUSH AF
AND A
LD A,27H
DUM10 CALL MBOUT
POP AF
CALL MBEPI
JR DUM4
DUM5 AND A
JR NZ,DUM6
INC DE
CALL TZK
DEC DE
JR C,DUM6
CALL DECL
DUM7 PUSH AF
AND A
LD A,'B'
CALL MBOUT
LD A,9
CALL MBOUT
LD A,(DE)
INC DE
CALL MREVN
DUM11 LD A,'H'
JR DUM10
DUM6 CALL DECL
JR C,DUM7
LD A,'W'
CALL MBOUT
LD A,9
CALL MBOUT
INC DE
LD A,(DE)
CALL MREVN
DEC DE
LD A,(DE)
INC DE
INC DE
CALL MREG
CALL DECL
PUSH AF
JR DUM11
MBEPI PUSH AF
LD A,0DH
AND A
CALL MBOUT
POP AF
LD A,0AH
JR MBOUT
MREVN CP 0A0H
JR C,MREG
PUSH AF
LD A,'0'
CALL MBOUT
POP AF
MREG PUSH AF
RRCA
RRCA
RRCA
RRCA
CALL MRE1
POP AF
MRE1 AND 0FH
ADD 90H
DAA
ADC 40H
DAA
AND A
MBOUT LD L,C
LD H,0B7H
LD M,A
LD A,L
INC A
JR C,MBOT1
CP 80H
JR C,MBOT2
XOR A
MBOT2 LD C,A
AND A
RET NZ
CALL OS
DEFB 2AH
JR C,MBOT3
PUSH BC
LD BC,0A0H
PUSH DE
CALL OS
DEFB 1
CALL BLNR
POP DE
POP BC
AND A
RET
MBOT1 SUB 80H
JR NC,MBOT3
NEG
LD B,A
MBOT4 INC HL
LD M,0
DJNZ MBOT4
MBOT3 LD BC,0A0H
CALL OS
DEFB 9
CALL OS
DEFB 2CH
LD SP,(SPBUF)
RET
TZK PUSH DE
LD B,20
TZK1 LD A,(DE)
INC DE
CP 20H
JR C,TZK2
CP 27H ;'
JR Z,TZK2
CP 7BH
JR NC,TZK2
DJNZ TZK1
TZK2 LD A,20
SUB B
LD B,A
POP DE
CP 2
RET
DECL PUSH HL
LD HL,(ARG2)
DEC HL
LD A,H
OR L
LD (ARG2),HL
POP HL
SUB 1
RET
BLNR LD A,(IX+2)
CALL OS
DEFB 1CH
CALL OS
DEFM '# '
DEFB 0
RET
PRO DEFB 9
DEFM 'DEF'
;
À@Àt(Àp6ÀnTop of Text: End of Text: Start of MC: ASM-Offset : õÛˆö$ÓˆñÉõÛˆæÛÓˆñÉÍMÀ~#ÍDÀôÉEDDEFB 9
DEFM 'DEF'
;
À@Àt(Àp6ÀnTop of Text: End of Text: Start of MC: ASM-Offset : õÛˆö$ÓˆñÉõÛˆæÛÓˆñÉÍMÀ~#ÍDÀôÉED
Detected encoding: ANSI (CP1252) | 4
|
|