8.1.10. (LOOP)

section id="ff1802.paren-loop-paren" xreflabel="(LOOP)", xref.ff1802.paren-loop-paren, link.ff1802.LUPE, link.ff1802.COMP

000294 00E3 86284C4F4F50A9           .DB H'86,"(LOOP",H'A9 ; (LOOP)
000295 00EA 00C6                     .DW ZBRCH-10
000296 00EC 00EE             LUPE:   .DW * + 2
000297 00EE 12                       INC R2
000298 00EF 92                       GHI R2
000299 00F0 B8                       PHI R8
000300 00F1 B7                       PHI R7
000301 00F2 82                       GLO R2
000302 00F3 A8                       PLO R8
000303 00F4 A7                       PLO R7
000304 00F5 22                       DEC R2
000305 00F6 08                       LDN R8
000306 00F7 FC01                     ADI H'01
000307 00F9 58                       STR R8
000308 00FA 18                       INC R8
000309 00FB 08                       LDN R8
000310 00FC 7C00                     ADCI H'00
000311 00FE C4                       NOP                 ; TO NEW PAGE
000312 00FF C4                       NOP
000313 0100 58               COMP:   STR R8
000314 0101 18                       INC R8
000315 0102 E7                       SEX R7
000316 0103 48                       LDA R8
000317 0104 F5                       SD
000318 0105 17                       INC R7
000319 0106 08                       LDN R8
000320 0107 75                       SDB
000321 0108 FA80                     ANI H'80
000322 010A 3213                     BZ CEND
000323 010C 4A                       LDA RA
000324 010D 52                       STR R2
000325 010E 0A                       LDN RA
000326 010F AA                       PLO RA
000327 0110 02                       LDN R2
000328 0111 BA                       PHI RA
000329 0112 DC                       SEP RC          ; next
000330 0113 1A               CEND:   INC RA
000331 0114 1A                       INC RA
000332 0115 12                       INC R2
000333 0116 12                       INC R2
000334 0117 12                       INC R2
000335 0118 12                       INC R2
000336 0119 DC                       SEP RC          ; next