section id="ff1802.enclosure" xreflabel="ENCLOSURE", xref.ff1802.enclosure, link.ff1802.ENCL
000505 01F4 87454E434C4F53C5 .DB H'87,"ENCLOS",H'C5 ; ENCLOSURE 000506 01FC 018D .DW FIND-9 000507 01FE 0200 ENCL: .DW * + 2 000508 0200 29 DEC R9 000509 0201 29 DEC R9 000510 0202 49 LDA R9 000511 0203 B8 PHI R8 000512 0204 49 LDA R9 000513 0205 A8 PLO R8 000514 0206 19 INC R9 000515 0207 F800 LDI H'00 ; R7.0 IS OFFSET 000516 0209 A7 PLO R7 000517 020A 09 LDN R9 ; SAVE DELIM 000518 020B 52 STR R2 000519 020C E2 SEX R2 000520 020D 08 LOP1: LDN R8 000521 020E F7 SM 000522 020F 3A15 BNZ FRST ; FIND FIRST NON- 000523 0211 18 INC R8 ; DELIM CHAR 000524 0212 17 INC R7 000525 0213 300D BR LOP1 000526 0215 87 FRST: GLO R7 ; SAVE OFFSET TO 000527 0216 59 STR R9 000528 0217 B7 PHI R7 000529 0218 19 INC R9 ; FIRST CHARACTER 000530 0219 F800 LDI H'00 000531 021B 59 STR R9 000532 021C 19 INC R9 000533 021D 19 INC R9 000534 021E 59 STR R9 000535 021F 19 INC R9 000536 0220 08 LOP2: LDN R8 000537 0221 322A BZ NULL ; EQUAL NULL ? 000538 0223 F7 SM ; SUBTRACT DELIMIN 000539 0224 3238 BZ DELIM 000540 0226 18 INC R8 000541 0227 17 INC R7 000542 0228 3020 BR LOP2 000543 022A 87 NULL: GLO R7 ; LEAVE OFFSET 000544 022B E9 SEX R9 000545 022C 59 STR R9 000546 022D 97 GHI R7 ; TO NEXT CHARACTER 000547 022E F7 SM 000548 022F 3A32 BNZ SKIP 000549 0231 17 INC R7 000550 0232 87 SKIP: GLO R7 ; LAST CHARACTER IN 000551 0233 29 DEC R9 000552 0234 29 DEC R9 000553 0235 59 STR R9 ; WORD 000554 0236 19 INC R9 000555 0237 DC SEP RC ; next 000556 0238 17 DELIM: INC R7 000557 0239 87 GLO R7 000558 023A 59 STR R9 000559 023B 27 DEC R7 000560 023C 3032 BR SKIP