minnie.tuhs.org/unixen.tar/unixen/PDP-11/Trees/V6/usr/source/fort/io/io2.s

Text File | 1975-07-17 | 2.6 KB | 269 lines

/
/

/ io2 -- format cracker

.globl    iowf
.globl    iowp
.globl    iorf

iowp:
    mov    (sp)+,formp
    mov    $6,r1
    br    1f

iowf:
    mov    (sp)+,formp
    tst    (sp)+
    mov    (sp)+,r1
1:
    jsr    r5,setio; 2        / write
    clr    rdflg
    br    1f

iorf:
    mov    (sp)+,formp
    tst    (sp)+
    mov    (sp)+,r1
    jsr    r5,setio; 1        / read
    mov    pc,rdflg

1:
    clr    binflg
    clr    slcnt
    clr    itmfnd
    clr    scale
    clr    itmflg
    mov    $pbuf,ppar
    mov    $-1,llpcnt
    jsr    r5,fmtchr
    mov    formp,llp
    cmp    r0,$'(
    beq    crack
    jsr    r5,rerr; 106.
    sys    exit
crack:
    clr    ngflg
    mov    $1,rep
item:
    jsr    r5,fmtchr
    cmp    $' ,r0
    beq    item
    cmp    $'\t,r0
    beq    item
    jsr    r5,switch; mswitch
    jsr    r5,rerr; 105.
    sys    exit

mswitch:
    'a; afmt
    'f; ffmt
    'e; efmt
    'g; gfmt
    'd; dfmt
    'i; ifmt
    'l; lfmt
    'h; hfmt
    'x; xfmt
    'p; scal
    '-; minus
    '0; numb
    '1; numb
    '2; numb
    '3; numb
    '4; numb
    '5; numb
    '6; numb
    '7; numb
    '8; numb
    '9; numb
    ',; crack
    '/; slash
    '(; lpar
    '); rpar
    '"; quote
    ' ; item
    0; 0

minus:
    jsr    r5,gnum
    neg    r0
    br    1f
numb:
    dec    formp
    jsr    r5,gnum
1:
    mov    r0,rep
    br    item

scal:
    mov    rep,scale
    br    crack

elist:
    tst    _nocr
    beq    1f
    tst    rdflg
    bne    1f
    jsr    r5,eorec1
    br    2f
1:
    jsr    r5,eorec
2:
    jmp    *(r4)+

slash:
    jsr    r5,eorec
    br    crack

rpar:
    mov    ppar,r0
    cmp    r0,$pbuf        / see if outer parens
    blos    2f
    dec    -2(r0)
    ble    1f        / no repeats left
    mov    -4(r0),formp    / reset scan
    br    crack
1:
    sub    $4,ppar
    br    crack        / pop parens
2:
    jsr    r5,getitm
        br elist
    tst    itmfnd
    bne    1f
    jsr    r5,rerr; 107.
    sys    exit
1:
    jsr    r5,eorec
    inc    itmflg
    mov    llpcnt,r1
    bpl    1f
    mov    llp,formp
    jmp    crack
1:
    mov    llp,r2
    mov    r2,formp
    mov    ppar,r0
    mov    r2,(r0)+
    mov    r1,(r0)+
    mov    r0,ppar
    jbr    crack1

lpar:
    mov    ppar,r0
    cmp    r0,$pbuf+10
    blo    1f
    jsr    r5,rerr; 108.
    sys    exit
1:
    mov    formp,(r0)+
    mov    rep,(r0)+
    mov    r0,ppar
    cmp    r0,$pbuf+4
    bhi    1f
    mov    formp,llp
    mov    rep,llpcnt
1:
    jmp    crack
quote:
    inc    ngflg
    mov    $44,-(sp)
    br    3f

hfmt:
    inc    ngflg
    mov    $40,-(sp)
    br    3f

xfmt:
    inc    ngflg
    mov    $34,-(sp)
    br    3f

afmt:
    mov    $30,-(sp)
    br    1f

ifmt:
    clr    -(sp)
    br    1f

lfmt:
    mov    $4,-(sp)
1:
    jsr    r5,gnum
    mov    r0,width
    br    2f

ffmt:
    mov    $10,-(sp)
    br    1f

dfmt:
    mov    $14,-(sp)
    br    1f

gfmt:
    mov    $20,-(sp)
    br    1f

efmt:
    mov    $24,-(sp)

1:
    jsr    r5,gnum
    mov    r0,width
4:
    jsr    r5,fmtchr
    cmp    r0,$' /
    beq    4b
    cmp    r0,$'.
    bne    err1
    jsr    r5,gnum
    mov    r0,ndig
2:
    inc    itmfnd
3:
    add    $cvsw,(sp)
    tst    rdflg
    beq    1f
    add    $2,(sp)
1:
    mov    *(sp)+,-(sp)
1:
    tst    ngflg
    bne    2f
    jsr    r5,getitm
        br 1f
2:
    clr    gflg
    jsr    r5,*(sp)
    dec    rep
    bgt    1b
    tst    (sp)+
    br    crack1
1:
    tst    (sp)+
    jmp    elist

cvsw:
    iocv; iicv    / 0
    locv; licv    / 4
    focv; ficv    / 10
    docv; dicv    / 14
    gocv; gicv    / 20
    eocv; eicv    / 24
    aocv; aicv    / 30
    xocv; xicv    / 34
    hocv; hicv    / 40
    qocv; qicv    / 44

crack1:
    jmp    crack

err1:
    jsr    r5,rerr; 109.
    sys    exit