; P} beg{ran bidrager jag med
; en "ASSEMBLER-SNUTT".
; Detta {r k{llkoden till programmet
; DELETE2.ASM som ocks} ligger p}
; monitorn. Om du vill veta hur
; programmet fungerar i detalj, kan
; du ringa till mig,Roland Eiworth,
; p} tel. 0762/13854.
; Rutinen f}r endast anv{ndas 
; i kommando-mod.
; Om du har c-summa 11273 m}ste 
; det st}: ASCBI  EQU  6174
ASCBI  EQU  6172
ERR31  EQU  1825
FNDLIN EQU  3897
GETLI  EQU  5
;
       ORG  65408
;
ENTRY  LD   HL,204
       EX   (SP),HL
       LD   BC,L[NGD1
       LD   HL,TEXT1
       CALL 11
       LD   BC,120
       LD   HL,65088
       PUSH HL
       CALL GETLI
       POP  HL
       RST  32
       CP   13
       RET  Z
       CALL ASCBI
       PUSH DE
       LD   A,(HL)
       CP   13
       JR   Z,RADEN
       CP   45
       JR   Z,RADRAD
       CP   44
       JP   NZ,ERR31
RADRAD CALL ASCBI-1
       JR   NC,RADEN
       LD   DE,65534
RADEN  INC  DE
       LD   B,D
       LD   C,E
       POP  DE
DELETE PUSH BC
       CALL FNDLIN
       POP  DE
       PUSH HL
       CALL FNDLIN
       POP  DE
       PUSH HL
       LD   B,H
       LD   C,L
       LD   HL,(65054)
       SBC  HL,BC
       LD   B,H
       LD   C,L
       INC  BC
       POP  HL
       LDIR
       DEC  DE
       LD   (65054),DE
       LD   BC,L[NGD2
       LD   HL,TEXT2
       CALL 11
       RET
L[NGD1 EQU  18
TEXT1  DEFB 13
       DEFB 10
       DEFM "<radnr>-<radnr>?"
L[NGD2 EQU  8
TEXT2  DEFB 13
       DEFB 10
       DEFM "KLART!"
       END
   < Ins{nt av 350 >
