view lib/kreiderclib/findstr.as @ 3285:345ff5806dd7

Correct coco.d filename in shipped Defsfile files It seems that 8 years ago in commit 2624:b8c7b7fbf3c9 the coco defs were put into a new "coco.d" (from "systype"), and the various level*/<port>/defsfile were updated. However, the level*/<port>/defs/Defsfile (that are copied to the disk images under DEFS) were apparently wrongly updated.
author hpmachining <aur@hpminc.com>
date Thu, 18 Jun 2020 20:29:32 +0200
parents 1647f1874cdf
children
line wrap: on
line source

* Disassembly by Os9disasm of findstr.r

 section code

findstr: pshs  y,u 
 bsr   L002c 
 bra   L0008 
L0006 bsr   L000e 
L0008 ldb   ,x 
 bne   L0006 
 bra   L0046 
L000e pshs  x,y 
 bsr   findastr 
 puls  x,y 
 bne   L001b 
 leau  1,u 
 leax  1,x 
 rts    
L001b tfr   u,d 
 puls  x,y,u,pc 
findnstr: pshs  y,u 
 bsr   L002c 
L0023 bsr   L000e 
 cmpu  12,s 
 ble   L0023 
 bra   L0046 
L002c ldu   8,s 
 tfr   u,d 
 ldx   10,s 
 leax  d,x 
 leax  -1,x 
 ldy   12,s 
 rts    
findastr: pshs  y,u 
 ldu   6,s 
 ldx   8,s 
 bra   L004a 
L0042 cmpb  ,u+ 
 beq   L004a 
L0046 clra   
 clrb   
 puls  y,u,pc 
L004a ldb   ,x+ 
 bne   L0042 
 ldd   #1 
 puls  y,u,pc 

 endsect