Antic Magazine 1982 December

home *** CD-ROM | disk | FTP | other *** search
/ Antic Magazine 1982 December / Antic_December_1982_Vol_1_No_5.atr / stringse.asm < prev next >
Assembly Source File | 1982-01-01 | 2.0 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was processed as: Assembly Source File (text/asm).
Confidence	Program	Detection	Match Type	Support
`100%`	dexvert	Assembly Source File `(text/asm)`	magic	Supported
`10%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	Non-ISO extended-ASCII text, with very long lines (2095), with no line terminators	default (weak)
`100%`	perlTextCheck	Likely Text (Perl)	default
`100%`	siegfried	x-fmt/111 Plain Text File	default
`100%`	detectItEasy	Format: plain text	default (weak)
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 30 20 3b 53 54 52 49 | 4e 47 20 53 45 41 52 43 |10 ;STRI|NG SEARC|
|00000010| 48 20 53 55 42 52 4f 55 | 54 49 4e 45 9b 32 30 20 |H SUBROU|TINE.20 |
|00000020| 3b 42 59 20 4a 45 52 52 | 59 20 57 48 49 54 45 20 |;BY JERR|Y WHITE |
|00000030| 37 2f 32 2f 38 32 9b 33 | 30 20 3b 9b 34 30 20 3b |7/2/82.3|0 ;.40 ;|
|00000040| 43 41 4c 4c 20 46 52 4f | 4d 20 42 41 53 49 43 20 |CALL FRO|M BASIC |
|00000050| 28 53 53 24 29 9b 35 30 | 20 3b 46 49 4e 44 3d 55 |(SS$).50| ;FIND=U|
|00000060| 53 52 28 41 44 52 28 53 | 53 24 29 2c 43 4f 55 4e |SR(ADR(S|S$),COUN|
|00000070| 54 2c 41 44 52 28 44 53 | 54 52 24 29 2c 41 44 52 |T,ADR(DS|TR$),ADR|
|00000080| 28 53 53 54 52 24 29 29 | 9b 36 30 20 3b 9b 37 30 |(SSTR$))|.60 ;.70|
|00000090| 20 3b 46 49 4e 44 54 48 | 49 53 20 53 45 54 55 50 | ;FINDTH|IS SETUP|
|000000a0| 20 46 4f 52 9b 38 30 20 | 3b 38 20 43 48 41 52 41 | FOR.80 |;8 CHARA|
|000000b0| 43 54 45 52 20 52 45 43 | 4f 52 44 53 9b 39 30 20 |CTER REC|ORDS.90 |
|000000c0| 3b 9b 30 31 30 30 20 20 | 20 20 2a 3d 24 36 30 30 |;.0100  |  *=$600|
|000000d0| 2e 20 20 20 20 20 20 20 | 20 20 20 20 3b 52 45 4c |.       |    ;REL|
|000000e0| 4f 43 41 54 41 42 4c 45 | 9b 30 31 31 30 20 53 53 |OCATABLE|.0110 SS|
|000000f0| 4c 4f 3d 24 43 44 20 20 | 20 20 20 20 20 20 3b 53 |LO=$CD  |      ;S|
|00000100| 53 54 52 24 20 4c 4f 20 | 42 59 54 45 9b 30 31 32 |STR$ LO |BYTE.012|
|00000110| 30 20 53 53 48 49 3d 24 | 43 45 2e 20 20 20 20 20 |0 SSHI=$|CE.     |
|00000120| 20 20 20 3b 53 53 54 52 | 24 20 48 49 20 42 59 54 |   ;SSTR|$ HI BYT|
|00000130| 45 9b 30 31 33 30 20 44 | 53 4c 4f 3d 24 43 42 20 |E.0130 D|SLO=$CB |
|00000140| 20 20 20 20 20 20 20 3b | 44 53 54 52 24 20 4c 4f |       ;|DSTR$ LO|
|00000150| 20 42 59 54 45 9b 30 31 | 34 30 20 44 53 48 49 3d | BYTE.01|40 DSHI=|
|00000160| 24 43 43 2e 20 20 20 20 | 20 20 20 20 3b 44 53 54 |$CC.    |    ;DST|
|00000170| 52 24 20 48 49 20 42 59 | 54 45 9b 30 31 35 30 20 |R$ HI BY|TE.0150 |
|00000180| 43 4f 55 4e 54 4c 3d 24 | 44 34 20 20 20 20 3b 43 |COUNTL=$|D4    ;C|
|00000190| 4f 55 4e 54 20 4c 4f 20 | 42 59 54 45 9b 30 31 36 |OUNT LO |BYTE.016|
|000001a0| 30 20 43 4f 55 4e 54 48 | 3d 24 44 35 20 20 20 3b |0 COUNTH|=$D5   ;|
|000001b0| 43 4f 55 4e 54 20 48 49 | 20 42 59 54 45 9b 30 31 |COUNT HI| BYTE.01|
|000001c0| 37 30 20 3b 9b 30 31 38 | 30 20 20 50 4c 41 9b 30 |70 ;.018|0  PLA.0|
|000001d0| 31 39 30 20 20 50 4c 41 | 9b 30 32 30 30 20 20 53 |190  PLA|.0200  S|
|000001e0| 54 41 20 43 4f 55 4e 54 | 48 20 20 20 20 3b 53 54 |TA COUNT|H    ;ST|
|000001f0| 4f 52 45 9b 30 32 31 30 | 20 50 4c 41 9b 30 32 32 |ORE.0210| PLA.022|
|00000200| 30 20 53 54 41 20 43 4f | 55 4e 54 4c 20 20 20 20 |0 STA CO|UNTL    |
|00000210| 20 20 3b 41 52 47 55 4d | 45 4e 54 53 9b 30 32 33 |  ;ARGUM|ENTS.023|
|00000220| 30 20 20 50 4c 41 9b 30 | 32 34 30 20 20 53 54 41 |0  PLA.0|240  STA|
|00000230| 20 53 53 48 49 20 20 20 | 20 20 20 20 20 20 3b 4f | SSHI   |      ;O|
|00000240| 4e 9b 30 32 35 30 20 20 | 50 4c 41 9b 30 32 36 30 |N.0250  |PLA.0260|
|00000250| 20 20 53 54 41 20 53 53 | 4c 4f 20 20 20 20 20 20 |  STA SS|LO      |
|00000260| 20 20 3b 50 41 47 45 20 | 30 9b 30 32 37 30 20 20 |  ;PAGE |0.0270  |
|00000270| 50 4c 41 9b 30 32 38 30 | 20 20 53 54 41 20 44 53 |PLA.0280|  STA DS|
|00000280| 48 49 9b 30 32 39 30 20 | 20 50 4c 41 9b 30 33 30 |HI.0290 | PLA.030|
|00000290| 30 20 20 53 54 41 20 44 | 53 4c 4f 9b 30 33 31 30 |0  STA D|SLO.0310|
|000002a0| 20 42 45 47 49 4e 20 4c | 44 59 20 23 30 20 20 20 | BEGIN L|DY #0   |
|000002b0| 20 3b 49 4e 44 45 58 3d | 59 9b 30 33 32 30 20 3b | ;INDEX=|Y.0320 ;|
|000002c0| 9b 30 33 33 30 20 3b 20 | 20 20 20 20 20 20 20 20 |.0330 ; |        |
|000002d0| 20 20 43 4f 4d 50 41 52 | 45 20 4f 4e 45 20 42 59 |  COMPAR|E ONE BY|
|000002e0| 54 45 9b 30 33 34 30 20 | 3b 20 20 20 20 20 20 20 |TE.0340 |;       |
|000002f0| 20 20 20 20 46 52 4f 4d | 20 44 41 54 41 20 53 54 |    FROM| DATA ST|
|00000300| 52 49 4e 47 9b 30 33 35 | 30 20 3b 20 20 20 20 20 |RING.035|0 ;     |
|00000310| 20 20 20 20 20 20 57 49 | 54 48 20 4f 4e 45 20 42 |      WI|TH ONE B|
|00000320| 59 54 45 9b 30 33 36 30 | 20 3b 20 20 20 20 20 20 |YTE.0360| ;      |
|00000330| 20 20 20 20 20 46 52 4f | 4d 20 53 45 41 52 43 48 |     FRO|M SEARCH|
|00000340| 20 53 54 52 49 4e 47 9b | 30 33 37 30 20 3b 9b 30 | STRING.|0370 ;.0|
|00000350| 33 38 30 20 4c 4f 4f 50 | 31 20 4c 44 41 20 28 44 |380 LOOP|1 LDA (D|
|00000360| 53 4c 4f 29 2c 59 9b 30 | 33 39 30 20 20 43 4d 50 |SLO),Y.0|390  CMP|
|00000370| 20 28 44 53 4c 4f 29 2c | 59 9b 30 34 30 30 20 3b | (DSLO),|Y.0400 ;|
|00000380| 9b 30 34 31 30 20 3b 20 | 20 20 20 20 20 20 20 20 |.0410 ; |        |
|00000390| 20 20 20 20 20 49 46 20 | 4e 4f 20 4d 41 54 43 48 |     IF |NO MATCH|
|000003a0| 20 54 48 45 4e 9b 30 34 | 32 30 20 3b 20 20 20 20 | THEN.04|20 ;    |
|000003b0| 20 20 20 20 20 20 20 20 | 20 20 44 4f 4e 54 20 42 |        |  DONT B|
|000003c0| 4f 54 48 45 52 20 57 49 | 54 48 9b 30 34 33 30 20 |OTHER WI|TH.0430 |
|000003d0| 3b 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 52 |;       |       R|
|000003e0| 45 53 54 20 4f 46 20 52 | 45 43 4f 52 44 9b 30 34 |EST OF R|ECORD.04|
|000003f0| 34 30 20 3b 9b 30 34 35 | 30 20 20 42 4e 45 20 4c |40 ;.045|0  BNE L|
|00000400| 4f 4f 50 32 9b 30 34 36 | 30 20 20 49 4e 59 20 20 |OOP2.046|0  INY  |
|00000410| 20 20 20 20 20 20 3b 49 | 4e 43 52 45 4d 45 4e 54 |      ;I|NCREMENT|
|00000420| 20 49 4e 44 45 58 9b 30 | 34 37 30 20 3b 20 20 20 | INDEX.0|470 ;   |
|00000430| 20 20 20 20 20 20 20 20 | 20 20 20 52 45 43 4f 52 |        |   RECOR|
|00000440| 44 20 4c 45 4e 47 54 48 | 3d 38 9b 30 34 38 30 20 |D LENGTH|=8.0480 |
|00000450| 20 43 50 59 20 23 38 20 | 3b 45 4e 44 20 4f 46 20 | CPY #8 |;END OF |
|00000460| 52 45 43 4f 52 44 3f 9b | 30 34 39 30 20 3b 20 20 |RECORD?.|0490 ;  |
|00000470| 20 20 20 20 20 20 20 20 | 20 20 20 20 49 46 20 4e |        |    IF N|
|00000480| 4f 54 20 54 48 45 4e 9b | 30 35 30 30 20 3b 20 20 |OT THEN.|0500 ;  |
|00000490| 20 20 20 20 20 20 20 20 | 20 20 20 20 43 4f 4d 50 |        |    COMP|
|000004a0| 41 52 45 20 4e 45 58 54 | 9b 30 35 31 30 20 20 42 |ARE NEXT|.0510  B|
|000004b0| 4e 45 20 4c 4f 4f 50 31 | 9b 30 35 32 30 20 3b 9b |NE LOOP1|.0520 ;.|
|000004c0| 30 35 33 30 20 3b 20 20 | 20 20 20 20 20 20 20 20 |0530 ;  |        |
|000004d0| 20 20 20 20 57 45 20 46 | 4f 55 4e 44 20 41 20 4d |    WE F|OUND A M|
|000004e0| 41 54 43 48 9b 30 35 34 | 30 20 3b 20 20 20 20 20 |ATCH.054|0 ;     |
|000004f0| 20 20 20 20 20 20 20 20 | 20 53 4f 20 52 45 54 55 |        | SO RETU|
|00000500| 52 4e 20 54 4f 20 42 41 | 53 49 43 9b 30 35 35 30 |RN TO BA|SIC.0550|
|00000510| 20 20 52 54 53 9b 30 35 | 36 30 20 3b 9b 30 35 37 |  RTS.05|60 ;.057|
|00000520| 30 20 3b 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0 ;     |        |
|00000530| 20 52 45 53 45 54 20 53 | 45 41 52 43 48 20 41 44 | RESET S|EARCH AD|
|00000540| 44 52 45 53 53 9b 30 35 | 38 30 20 3b 20 20 20 20 |DRESS.05|80 ;    |
|00000550| 20 20 20 20 20 20 20 20 | 20 20 54 4f 20 4e 45 58 |        |  TO NEX|
|00000560| 54 20 52 45 43 4f 52 44 | 9b 30 35 39 30 20 3b 9b |T RECORD|.0590 ;.|
|00000570| 30 36 30 30 20 4c 4f 4f | 50 32 20 4c 44 41 20 53 |0600 LOO|P2 LDA S|
|00000580| 53 4c 4f 9b 30 36 31 30 | 20 20 43 4c 43 9b 30 36 |SLO.0610|  CLC.06|
|00000590| 32 30 20 20 41 44 43 20 | 23 38 20 3b 38 20 43 48 |20  ADC |#8 ;8 CH|
|000005a0| 41 52 41 43 54 45 52 20 | 52 45 43 4f 52 44 9b 30 |ARACTER |RECORD.0|
|000005b0| 36 33 30 20 20 53 54 41 | 20 53 53 4c 4f 9b 30 36 |630  STA| SSLO.06|
|000005c0| 34 30 20 20 42 43 43 20 | 4c 4f 4f 50 33 9b 30 36 |40  BCC |LOOP3.06|
|000005d0| 35 30 20 3b 9b 30 36 36 | 30 20 3b 20 20 20 20 20 |50 ;.066|0 ;     |
|000005e0| 20 20 20 20 20 20 20 20 | 20 20 43 41 52 52 59 20 |        |  CARRY |
|000005f0| 53 45 54 20 53 4f 9b 30 | 36 37 30 20 3b 20 20 20 |SET SO.0|670 ;   |
|00000600| 20 20 20 20 20 20 20 20 | 20 20 20 20 49 4e 43 52 |        |    INCR|
|00000610| 45 4d 45 4e 54 20 48 49 | 20 42 59 54 45 9b 30 36 |EMENT HI| BYTE.06|
|00000620| 38 30 20 3b 9b 30 36 39 | 30 20 20 49 4e 43 20 53 |80 ;.069|0  INC S|
|00000630| 53 48 49 9b 30 37 30 30 | 20 4c 4f 4f 50 33 20 4c |SHI.0700| LOOP3 L|
|00000640| 44 41 20 43 4f 55 4e 54 | 4c 9b 30 37 31 30 20 3b |DA COUNT|L.0710 ;|
|00000650| 9b 30 37 32 30 20 3b 20 | 20 20 20 20 20 20 20 20 |.0720 ; |        |
|00000660| 20 20 20 20 20 20 20 49 | 46 20 4c 4f 20 42 59 54 |       I|F LO BYT|
|00000670| 45 3c 3e 30 9b 30 37 33 | 30 20 3b 20 20 20 20 20 |E<>0.073|0 ;     |
|00000680| 20 20 20 20 20 20 20 20 | 20 20 20 44 4f 4e 54 20 |        |   DONT |
|00000690| 43 48 45 43 4b 20 48 49 | 20 42 59 54 45 9b 30 37 |CHECK HI| BYTE.07|
|000006a0| 34 30 20 3b 9b 30 37 35 | 30 20 20 42 4e 45 20 4c |40 ;.075|0  BNE L|
|000006b0| 4f 4f 50 34 9b 30 37 36 | 30 20 20 4c 44 41 20 43 |OOP4.076|0  LDA C|
|000006c0| 4f 55 4e 54 48 9b 30 37 | 37 30 20 3b 9b 30 37 38 |OUNTH.07|70 ;.078|
|000006d0| 30 20 3b 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0 ;     |        |
|000006e0| 20 20 20 20 43 4f 55 4e | 54 45 52 3d 30 20 53 4f |    COUN|TER=0 SO|
|000006f0| 9b 30 37 39 30 20 3b 20 | 20 20 20 20 20 20 20 20 |.0790 ; |        |
|00000700| 20 20 20 20 20 20 20 20 | 52 45 54 55 52 4e 20 54 |        |RETURN T|
|00000710| 4f 20 42 41 53 49 43 9b | 30 38 30 30 20 3b 9b 30 |O BASIC.|0800 ;.0|
|00000720| 38 31 30 20 20 42 45 51 | 20 45 58 49 54 9b 30 38 |810  BEQ| EXIT.08|
|00000730| 32 30 20 3b 9b 30 38 33 | 30 20 3b 20 20 20 20 20 |20 ;.083|0 ;     |
|00000740| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 44 45 43 |        |     DEC|
|00000750| 52 45 4d 45 4e 54 20 43 | 4f 55 4e 54 45 52 53 9b |REMENT C|OUNTERS.|
|00000760| 30 38 34 30 20 3b 9b 30 | 38 35 30 20 20 44 45 43 |0840 ;.0|850  DEC|
|00000770| 20 43 4f 55 4e 54 48 9b | 30 38 36 30 20 4c 4f 4f | COUNTH.|0860 LOO|
|00000780| 50 34 20 44 45 43 20 43 | 4f 55 4e 54 4c 9b 30 38 |P4 DEC C|OUNTL.08|
|00000790| 37 30 20 20 43 4c 43 20 | 20 20 20 20 20 20 20 20 |70  CLC |        |
|000007a0| 20 3b 46 4f 52 43 45 20 | 42 52 41 4e 43 48 9b 30 | ;FORCE |BRANCH.0|
|000007b0| 38 38 30 20 20 42 43 43 | 20 42 45 47 49 4e 9b 30 |880  BCC| BEGIN.0|
|000007c0| 38 39 30 20 3b 9b 30 39 | 30 30 20 3b 20 20 20 20 |890 ;.09|00 ;    |
|000007d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 49 46 20 |        |     IF |
|000007e0| 57 45 20 47 4f 54 20 48 | 45 52 45 20 54 48 45 4e |WE GOT H|ERE THEN|
|000007f0| 9b 30 39 31 30 20 3b 20 | 20 20 20 20 20 20 20 20 |.0910 ; |        |
|00000800| 20 20 20 20 20 20 20 20 | 54 48 45 20 53 45 41 52 |        |THE SEAR|
|00000810| 43 48 20 57 41 53 20 4e | 45 47 41 54 49 56 45 9b |CH WAS N|EGATIVE.|
|00000820| 30 39 32 30 20 45 58 49 | 54 20 52 54 53 9b 9b    |0920 EXI|T RTS.. |
+--------+-------------------------+-------------------------+--------+--------+