; 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 "-?" L[NGD2 EQU 8 TEXT2 DEFB 13 DEFB 10 DEFM "KLART!" END < Ins{nt av 350 >