section id="ff1802.digit" xreflabel="DIGIT", xref.ff1802.digit, link.ff1802.DGT

000397 0163 8544494749D4             .DB H'85,"DIGI",H'D4 ; DIGIT
000398 0169 0149                     .DW PDO-7
000399 016B 016D             DGT:    .DW * + 2
000400 016D E9                       SEX R9
000401 016E 29                       DEC R9
000402 016F 09                       LDN R9
000403 0170 FF30                     SMI H'30
000404 0172 3B88                     BNF BAD
000405 0174 FF11                     SMI H'11
000406 0176 337C                     BDF DOK
000407 0178 FFF9                     SMI H'F9
000408 017A 3388                     BDF BAD
000409 017C FC0A             DOK:    ADI H'0A
000410 017E 59                       STR R9
000411 017F 19                       INC R9
000412 0180 19                       INC R9
000413 0181 F7                       SM
000414 0182 3386                     BDF BAD2
000415 0184 29                       DEC R9
000416 0185 DC                       SEP RC
000417 0186 29               BAD2:   DEC R9
000418 0187 29                       DEC R9
000419 0188 F800             BAD:    LDI H'00
000420 018A 73                       STXD
000421 018B 59                       STR R9
000422 018C DC                       SEP RC          ; next