DataMuseum.dk

top - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »CAAF2«

└─⟦cb4367ef8⟧ Bits:30001782 SG0002 Floppy
    └─ ⟦this⟧ »/CAAF2« 

TextFile

; CALLRUTINE FINDTEGN PL. P-H. HANS RUNE SVEND MF.   
; 10.09.81 16.40.00  
;  
PRDE1  
   
FINDT  
TXT.''FINDTEGN''  
  
0  
  
FINDT:	 4  
	 «ff»
STRING  
	 STRING  
	 REAL  
	 REAL+REFER  
	 LDA 1,4,2	 ;HENT S$ WORD ADR.  
	 MOVL 1,1	 ;BYTE ADR.  
	 LDA 2,CUR  
	 LDA 0,80  
	 A.GBYTE  
	 STA 0,US01,3	 ;FØRSTE CHR. AF S$  
	 LDA 0,+10,2	;HENT START INDEKS  
	 LDA 1,+11,2  
	 BCALL FIX  
	 MOV 0,0,SZR  
	 JMP ERUD1	 ;NEGATIV  
	 MOV 1,0  
	 STA 1,U.S00,3	  
	 LDA 2,U.STK,3  
	 LDA 1,+7,2  
	 MOVL 1,1	 ;TXT$ (1) BYTE ADR.  
	 ADD 0,1 	 ;TXT$(INDEKS) BYTE ADR. I AC1  
  
LØKKE:LDA 2,CUR  
		 LDA 2,+8,2  
	 LDA 0,U.S00,3	 ;INDEKS OVE LÆNGDE AF TXT$  
	 SUB # 0,1 SNR  
	 JMP EJF	 ;STED IKKE FUNDET  
	 LDA 0,80  
	 A.GBYTE	 ;HENT BYTE TXT$(INDEKS)  
	 STA 1,U.S02,3	 ; GEM BYTE ADR  
	 LDA 1,U.SO1,3	 ; HENT S$  
	 SUB 0,1,SNR	 ;ENS?  
	 JMP DUMME  
	 ISZ U.S00,3	 ;FORØG INDEKS  
	 ISZ U.S02,3	 ;FORØG BYTE ADR.  
	 JMP LØKKE  
	   
ERUD1: ERROR 	;INDEKSFEJL 
	 31  
	   
DUMME: LDA 1,U.S00,23	 ;FUNDET 
	 SUB 0,0	; STED=INDEKS  
NNN: BCALL FLOAT 
	 LDA 3,U.STK,3  
	 LDA 3,+12,3  
	 STA 3,WADRS  
	 A.PDOUBLE  
	 1  
WARDS:  
	 RET1  
  
EJF: ADC1,1 
	 ADC 0,0 	;IKKE FUNDET STED=-1  
	 JMP NNN  
PRED2  
 
«nul»