/ Decus C patch level 0, Compilation date: "Tue May 21 15:59:18 1985" .psect c~data _~~narg: .word 1 .even _doall: .word 0 .even _video: .word 0 .even _isvt52: .word 0 .even _notLong: .word 0 .even _continuo: .word 0 .even _long_sle: .word 0 .even _extrafd: .word 0 .even _talkfd: .word 0 .even _cur_line: .word 0 .even _linecoun: .word 0 .even _old_buff: .word 0 .even _sc_buff: .blkb 171 .even _temp_tex: .blkb 121 .even _cookfd: .word 0 .even _cookfile: .psect c~strn .1: .byte 143,157,157,153,151,145,56,146,151,154,0 .psect c~data .word .1 .psect c~strn .2: .byte 163,171,163,137,143,157,157,153,151,145,72,143 .byte 157,157,153,151,145,56,146,151,154,0 .psect c~data .word .2 .psect c~strn .3: .byte 160,165,142,154,151,143,72,143,157,157,153,151 .byte 145,56,146,151,154,0 .psect c~data .word .3 .psect c~strn .4: .byte 160,165,142,72,143,157,157,153,151,145,56,146 .byte 151,154,0 .psect c~data .word .4 .psect c~strn .5: .byte 163,171,163,44,160,165,142,154,151,143,72,143 .byte 157,157,153,151,145,56,146,151,154,0 .psect c~data .word .5 .psect c~strn .6: .byte 147,141,155,145,163,72,143,157,157,153,151,145 .byte 56,146,151,154,0 .psect c~data .word .6 .psect c~strn .7: .byte 147,141,155,145,72,143,157,157,153,151,145,56 .byte 146,151,154,0 .psect c~data .word .7 .psect c~strn .10: .byte 163,171,163,44,147,141,155,145,163,72,143,157 .byte 157,153,151,145,56,146,151,154,0 .psect c~data .word .10,0 .even _header: .blkb 46 .even _t: .blkb 4000 .even _topindex: .blkb 4000 .even .psect c~code _main: jsr r5,csv~ sub $10,sp clr -14(r5) clr -12(r5) cmp 4(r5),$1 bgt .77777 mov $1,r0 br .77776 .77777: clr r0 .77776: mov r0,-10(r5) .13: cmp 4(r5),$1 ble .12 mov 6(r5),r3 mov 2(r3),r3 movb (r3),r0 mov r0,-(sp) jsr pc,_isdigit tst (sp)+ tst r0 bne .77775 cmpb (r3),$55 bne .14 movb 1(r3),r0 mov r0,-(sp) jsr pc,_isdigit tst (sp)+ tst r0 beq .14 .77775: mov r3,-(sp) jsr pc,_atol tst (sp)+ mov r0,-14(r5) mov r1,-12(r5) br .15 .14: cmpb (r3),$55 beq .16 .psect c~strn .20: .byte 57,110,105,111,116,114,111,105,116,75,116,117 .byte 0 .psect c~code .psect c~strn .21: .byte 57,150,145,151,156,154,151,145,156,75,156,157 .byte 0 .psect c~code mov $.20,-(sp) mov r3,-(sp) jsr pc,_streq cmp (sp)+,(sp)+ tst r0 bne .77774 mov $.21,-(sp) mov r3,-(sp) jsr pc,_streq cmp (sp)+,(sp)+ tst r0 beq .17 .77774: inc _notLong br .22 .17: .psect c~strn .23: .byte 77,125,156,153,156,157,167,156,40,143,157,155 .byte 155,141,156,144,40,42,45,163,42,12,0 .psect c~code mov r3,-(sp) mov $.23,-(sp) mov _stderr,-(sp) jsr pc,_fprintf add $6,sp .22: br .24 .16: inc r3 br .27 .30: movb (r3),r0 mov r0,-(sp) jsr pc,_isupper tst (sp)+ tst r0 beq .31 movb (r3),r0 mov r0,-(sp) jsr pc,_tolower tst (sp)+ movb r0,(r3) .31: movb (r3),r0 br .33 .34: inc _doall br .32 .35: inc _continuo br .32 .36: .psect c~strn .40: .byte 162,165,156,0 .psect c~code mov $.40,-(sp) mov 6(r5),r0 mov 4(r0),-(sp) jsr pc,_fopen cmp (sp)+,(sp)+ mov r0,_cookfd bne .37 mov 6(r5),r0 mov 4(r0),-(sp) jsr pc,_perror tst (sp)+ mov $2,-(sp) jsr pc,_exit tst (sp)+ .37: add $2,6(r5) dec 4(r5) br .41 .42: inc _notLong br .32 .43: inc _continuo movb 1(r3),r0 mov r0,-(sp) jsr pc,_isdigit tst (sp)+ tst r0 beq .44 mov r3,-(sp) inc (sp) jsr pc,_atoi tst (sp)+ mov r0,_long_sle br .45 .44: mov 6(r5),r0 mov 4(r0),r0 movb (r0),r0 mov r0,-(sp) jsr pc,_isdigit tst (sp)+ tst r0 beq .46 mov 6(r5),r0 mov 4(r0),-(sp) jsr pc,_atoi tst (sp)+ mov r0,_long_sle add $2,6(r5) dec 4(r5) br .47 .46: mov $74,_long_sle br .32 .47: .45: br .41 .50: mov $1,_video cmpb 1(r3),$164 beq .77773 cmpb 1(r3),$124 bne .51 .77773: mov r3,-(sp) add $2,(sp) jsr pc,_atoi tst (sp)+ mov r0,_video cmp _video,$64 bne .52 mov $1,_isvt52 br .53 .52: cmp _video,$144 bne .54 clr _isvt52 br .55 .54: .psect c~strn .56: .byte 77,125,156,153,156,157,167,156,40,166,151,144 .byte 145,157,40,42,45,163,42,12,0 .psect c~code mov r3,-(sp) mov $.56,-(sp) mov _stderr,-(sp) jsr pc,_fprintf add $6,sp .55: .53: br .41 .51: br .32 .57: .psect c~strn .61: .byte 167,0 .psect c~code mov $.61,-(sp) mov 6(r5),r0 mov 4(r0),-(sp) jsr pc,_fopen cmp (sp)+,(sp)+ mov r0,_talkfd bne .60 mov 6(r5),r0 mov 4(r0),-(sp) jsr pc,_perror tst (sp)+ mov $2,-(sp) jsr pc,_exit tst (sp)+ .60: add $2,6(r5) dec 4(r5) br .41 .62: .psect c~strn .64: .byte 167,0 .psect c~code mov $.64,-(sp) mov 6(r5),r0 mov 4(r0),-(sp) jsr pc,_fopen cmp (sp)+,(sp)+ mov r0,_extrafd bne .63 mov 6(r5),r0 mov 4(r0),-(sp) jsr pc,_perror tst (sp)+ mov $2,-(sp) jsr pc,_exit tst (sp)+ .63: add $2,6(r5) dec 4(r5) br .41 .65: .psect c~strn .66: .byte 77,125,156,153,156,157,167,156,40,157,160,164 .byte 151,157,156,40,47,45,143,47,12,0 .psect c~code movb (r3),r0 mov r0,-(sp) mov $.66,-(sp) mov _stderr,-(sp) jsr pc,_fprintf add $6,sp .psect c~strn .67: .byte 117,160,164,151,157,156,40,163,164,162,151,156 .byte 147,40,151,163,40,42,45,163,42,12,0 .psect c~code mov r3,-(sp) mov $.67,-(sp) mov _stderr,-(sp) jsr pc,_fprintf add $6,sp br .32 .33: sub $141,r0 cmp r0,$26 bhi .65 asl r0 jmp *.77772(r0) .psect c~mwcn .77772: .word .34,.65,.35,.57,.65,.36,.65,.42,.65,.65,.65,.65 .word .65,.65,.65,.65,.65,.65,.43,.65,.65,.50,.62 .psect c~code .32: .26: inc r3 .27: tstb (r3) bne .30 .25: .24: .15: .41: dec 4(r5) add $2,6(r5) br .13 .12: jsr pc,_setup_co tst _video beq .70 mov $1,-(sp) mov $1,-(sp) jsr pc,_erpage cmp (sp)+,(sp)+ .70: tst _doall beq .71 mov $1,-12(r5) sxt -14(r5) br .74 .75: clr -(sp) jsr pc,_time tst (sp)+ mov r1,-(sp) mov r0,-(sp) mov -12(r5),-(sp) mov -14(r5),-(sp) jsr pc,_docookie add $10,sp .73: add $1,-12(r5) adc -14(r5) .74: cmp -14(r5),_header bgt .77771 blt .75 cmp -12(r5),_header+2 blos .75 .77771: .72: .71: tst _continuo beq .76 mov $177777,-12(r5) sxt -14(r5) .76: mov -12(r5),r1 mov -14(r5),r0 ashc $0,r0 ble .77 cmp -14(r5),_header bgt .77770 blt .100 cmp -12(r5),_header+2 blos .100 .77770: .psect c~strn .101: .byte 115,151,163,146,157,162,164,165,156,145,72,40 .byte 164,150,145,162,145,40,141,162,145,40,157,156 .byte 154,171,40,45,154,144,40,143,157,157,153,151,145 .byte 163,56,12,0 .psect c~code mov _header+2,-(sp) mov _header,-(sp) mov $.101,-(sp) mov $_t,-(sp) jsr pc,_sprintf add $10,sp clr -(sp) jsr pc,_time tst (sp)+ mov r1,-(sp) mov r0,-(sp) mov $_t,-(sp) mov -12(r5),-(sp) mov -14(r5),-(sp) jsr pc,_output add $12,sp br .102 .100: clr -(sp) jsr pc,_time tst (sp)+ mov r1,-(sp) mov r0,-(sp) mov -12(r5),-(sp) mov -14(r5),-(sp) jsr pc,_docookie add $10,sp .102: br .103 .77: mov -12(r5),r1 mov -14(r5),r0 neg r0 neg r1 sbc r0 mov r1,r4 bne .104 mov $1,r4 .104: .106: mov r4,r0 dec r4 tst r0 ble .105 jsr pc,_rand mov r0,-14(r5) mov r1,-12(r5) clr -(sp) jsr pc,_time tst (sp)+ mov r0,-20(r5) mov r1,-16(r5) .psect c~mwcn .77767: .word 37777,177777 .psect c~code mov _header+2,-(sp) mov _header,-(sp) mov -16(r5),-(sp) mov -20(r5),-(sp) mov -12(r5),r1 mov -14(r5),r0 xor r0,(sp) mov (sp)+,r0 xor r1,(sp) mov (sp)+,r1 mov r1,-(sp) mov r0,-(sp) mov .77767+2,r1 mov .77767,r0 com r0 com r1 bic r1,2(sp) bic r0,(sp) .globl mod~l jsr pc,mod~l add $10,sp mov r0,-14(r5) mov r1,-12(r5) mov -16(r5),-(sp) mov -20(r5),-(sp) mov $1,-(sp) sxt -(sp) add -12(r5),2(sp) adc (sp) add -14(r5),(sp) jsr pc,_docookie add $10,sp tst _continuo beq .107 mov $1,r4 .107: tst r4 ble .110 tst _long_sle ble .111 mov _long_sle,-(sp) jsr pc,_sleep tst (sp)+ br .112 .111: mov _linecoun,r2 inc r2 asl r2 tst r2 ble .113 mov r2,-(sp) jsr pc,_sleep tst (sp)+ .113: .112: .110: br .106 .105: .103: .114: tst _extrafd beq .115 mov _extrafd,-(sp) jsr pc,_fclose tst (sp)+ .115: tst _talkfd beq .116 mov _talkfd,-(sp) jsr pc,_fclose tst (sp)+ .116: .11: jmp cret~ .psect c~data .even .psect c~code _setup_co: jsr r5,csv~ tst _cookfd bne .120 mov $_cookfile,r4 br .123 .124: .psect c~strn .125: .byte 164,162,171,151,156,147,40,42,45,163,42,12,0 .psect c~code mov (r4),-(sp) mov $.125,-(sp) mov _stderr,-(sp) jsr pc,_fprintf add $6,sp .psect c~strn .127: .byte 162,165,156,0 .psect c~code mov $.127,-(sp) mov (r4),-(sp) jsr pc,_fopen cmp (sp)+,(sp)+ mov r0,_cookfd beq .126 .psect c~strn .130: .byte 143,157,157,153,151,145,40,146,151,154,145,40 .byte 42,45,163,42,40,157,160,145,156,12,0 .psect c~code mov (r4),-(sp) mov $.130,-(sp) mov _stderr,-(sp) jsr pc,_fprintf add $6,sp br .121 .126: mov (r4),-(sp) jsr pc,_perror tst (sp)+ .122: add $2,r4 .123: tst (r4) bne .124 .121: tst _cookfd bne .131 .psect c~strn .132: .byte 103,141,156,47,164,40,157,160,145,156,40,143,157 .byte 157,153,151,145,40,146,151,154,145,12,0 .psect c~code mov $.132,-(sp) mov _stderr,-(sp) jsr pc,_fprintf cmp (sp)+,(sp)+ mov $2,-(sp) jsr pc,_exit tst (sp)+ .131: .120: mov _cookfd,-(sp) mov $46,-(sp) mov $_header,-(sp) jsr pc,_fget add $6,sp mov r0,r3 cmp r3,$46 beq .133 .psect c~strn .134: .byte 122,145,141,144,151,156,147,40,150,145,141,144 .byte 145,162,40,146,151,154,145,0 .psect c~code mov $.134,-(sp) mov r3,-(sp) mov $46,-(sp) jsr pc,_rerror add $6,sp .133: mov _cookfd,-(sp) mov _header+10,-(sp) mov $_topindex,-(sp) jsr pc,_fget add $6,sp mov r0,r3 cmp r3,_header+10 beq .135 .psect c~strn .136: .byte 122,145,141,144,151,156,147,40,164,157,160,55 .byte 154,145,166,145,154,40,151,156,144,145,170,0 .psect c~code mov $.136,-(sp) mov r3,-(sp) mov _header+10,-(sp) jsr pc,_rerror add $6,sp .135: .117: jmp cret~ .psect c~data .even .psect c~code _rerror: jsr r5,csv~ mov 10(r5),-(sp) jsr pc,_perror tst (sp)+ .psect c~strn .140: .byte 145,170,160,145,143,164,145,144,40,45,144,40,142 .byte 171,164,145,163,54,40,162,145,141,144,40,45,144 .byte 40,142,171,164,145,163,12,0 .psect c~code mov 6(r5),-(sp) mov 4(r5),-(sp) mov $.140,-(sp) mov _stderr,-(sp) jsr pc,_fprintf add $10,sp .psect c~strn .141: .byte 103,141,156,47,164,40,143,157,156,164,151,156 .byte 165,145,12,0 .psect c~code mov $.141,-(sp) mov _stderr,-(sp) jsr pc,_fprintf cmp (sp)+,(sp)+ mov $2,-(sp) jsr pc,_exit tst (sp)+ .137: jmp cret~ .psect c~data .even .psect c~code _docookie: jsr r5,csv~ sub $6,sp sub $1,6(r5) sbc 4(r5) mov _header+4,-14(r5) sxt -16(r5) mov -14(r5),-(sp) mov -16(r5),-(sp) mov 6(r5),-(sp) mov 4(r5),-(sp) .globl div~l jsr pc,div~l add $10,sp mov r0,-16(r5) mov r1,-14(r5) mov -14(r5),r3 cmp r3,_header+6 blt .143 .psect c~strn .144: .byte 102,165,147,72,40,107,157,156,145,40,164,157,157 .byte 40,146,141,162,54,40,151,156,144,145,170,40,75 .byte 40,45,144,54,40,155,141,170,40,75,40,45,144,12 .byte 0 .psect c~code mov _header+6,-(sp) mov r3,-(sp) mov $.144,-(sp) mov _stderr,-(sp) jsr pc,_fprintf add $10,sp mov $2,-(sp) jsr pc,_exit tst (sp)+ .143: mov r3,r0 asl r0 asl r0 add $_topindex,r0 mov (r0),-12(r5) mov 2(r0),-10(r5) clr -(sp) mov -10(r5),-(sp) mov -12(r5),-(sp) mov _cookfd,-(sp) jsr pc,_fseek add $10,sp tst r0 beq .145 .psect c~strn .146: .byte 143,157,157,153,151,145,40,146,151,154,145,0 .psect c~code mov $.146,-(sp) jsr pc,_perror tst (sp)+ mov $2,-(sp) jsr pc,_exit tst (sp)+ .145: mov _cookfd,-(sp) mov _header+10,-(sp) mov $_t,-(sp) jsr pc,_fget add $6,sp mov r0,r4 cmp r4,_header+10 beq .147 .psect c~strn .150: .byte 163,145,145,153,40,164,157,40,163,165,142,55,151 .byte 156,144,145,170,40,45,144,54,40,45,154,144,56 .byte 40,45,60,66,157,40,45,60,66,157,12,0 .psect c~code mov -10(r5),-(sp) mov -12(r5),-(sp) mov -10(r5),-(sp) mov -12(r5),-(sp) mov r3,-(sp) mov $.150,-(sp) mov _stderr,-(sp) jsr pc,_fprintf add $16,sp .psect c~strn .151: .byte 103,141,156,47,164,40,162,145,141,144,40,163,165 .byte 142,137,151,156,144,145,170,0 .psect c~code mov $.151,-(sp) mov r4,-(sp) mov _header+10,-(sp) jsr pc,_rerror add $6,sp .147: mov _header+4,-14(r5) sxt -16(r5) mov -14(r5),-(sp) mov -16(r5),-(sp) mov 6(r5),-(sp) mov 4(r5),-(sp) .globl mod~l jsr pc,mod~l add $10,sp mov r0,-16(r5) mov r1,-14(r5) mov -14(r5),r3 mov r3,r0 asl r0 asl r0 add $_t,r0 mov (r0),-12(r5) mov 2(r0),-10(r5) clr -(sp) mov -10(r5),-(sp) mov -12(r5),-(sp) mov _cookfd,-(sp) jsr pc,_fseek add $10,sp tst r0 beq .152 .psect c~strn .153: .byte 155,151,156,157,162,40,151,156,144,145,170,40 .byte 163,145,145,153,0 .psect c~code mov $.153,-(sp) jsr pc,_perror tst (sp)+ .psect c~strn .154: .byte 77,122,145,161,165,145,163,164,151,156,147,40 .byte 143,157,157,153,151,145,40,45,154,144,54,40,155 .byte 141,170,40,75,40,45,154,144,12,0 .psect c~code mov _header+2,-(sp) mov _header,-(sp) mov 6(r5),-(sp) mov 4(r5),-(sp) mov $.154,-(sp) mov _stderr,-(sp) jsr pc,_fprintf add $14,sp br .142 .152: mov $_t,r2 .156: mov _cookfd,-(sp) mov $4000,-(sp) mov r2,r0 sub $_t,r0 sub r0,(sp) mov r2,-(sp) jsr pc,_fget add $6,sp tst r0 ble .155 mov _cookfd,-(sp) jsr pc,_feof tst (sp)+ tst r0 bne .155 cmpb (r2),$45 beq .155 cmpb 1(r2),$45 beq .155 mov r2,-(sp) jsr pc,_strlen tst (sp)+ add r0,r2 br .156 .155: clrb (r2) mov _cookfd,-(sp) jsr pc,_feof tst (sp)+ tst r0 beq .157 .psect c~strn .160: .byte 103,141,156,47,164,40,162,145,141,144,40,143,157 .byte 157,153,151,145,0 .psect c~code mov $.160,-(sp) mov r2,-(sp) sub $_t,(sp) mov r2,-(sp) sub $_t,(sp) jsr pc,_rerror add $6,sp .157: tst _notLong beq .161 mov $_t,-(sp) jsr pc,_isLong tst (sp)+ tst r0 beq .161 mov 12(r5),-(sp) mov 10(r5),-(sp) mov $1,-(sp) sxt -(sp) add 6(r5),2(sp) adc (sp) add 4(r5),(sp) jsr pc,_antihein add $10,sp br .162 .161: mov 12(r5),-(sp) mov 10(r5),-(sp) mov $_t,-(sp) mov $1,-(sp) sxt -(sp) add 6(r5),2(sp) adc (sp) add 4(r5),(sp) jsr pc,_output add $12,sp .162: .142: jmp cret~ .psect c~data .even _anti1: .psect c~strn .163: .byte 101,40,110,145,151,156,154,151,145,156,40,103 .byte 157,157,153,151,145,40,171,157,165,40,144,157 .byte 40,144,151,163,164,141,151,156,54,12,111,47,154 .byte 154,40,163,141,171,40,156,157,40,155,157,162,145 .byte 40,164,157,40,163,157,157,164,150,145,40,171,157 .byte 165,162,40,142,162,141,151,156,56,0 .psect c~data .word .163 .psect c~strn .164: .byte 111,47,144,40,162,141,164,150,145,162,40,144,162 .byte 151,156,153,40,141,40,147,141,154,154,157,156 .byte 40,157,146,40,157,166,145,162,141,147,145,40,122 .byte 150,151,156,145,40,167,151,156,145,54,12,124,150 .byte 141,156,40,162,145,141,144,40,141,40,161,165,157 .byte 164,145,40,142,171,40,122,157,142,145,162,164 .byte 40,101,56,40,110,145,151,156,154,151,145,156,56 .byte 0 .psect c~data .word .164 .psect c~strn .165: .byte 111,47,144,40,162,141,164,150,145,162,40,142,151 .byte 164,145,40,142,157,151,154,163,40,146,162,157 .byte 155,40,141,156,40,145,154,145,160,150,141,156 .byte 164,47,163,40,142,145,150,151,156,144,54,12,124 .byte 150,141,156,40,162,145,141,144,40,155,157,162 .byte 145,40,161,165,157,164,145,163,40,142,171,40,122 .byte 157,142,145,162,164,40,101,56,40,110,145,151,156 .byte 154,151,145,156,56,0 .psect c~data .word .165 .psect c~strn .166: .byte 52,111,47,144,40,162,141,164,150,145,162,40,141 .byte 40,164,141,170,40,141,165,144,151,164,40,146,157 .byte 165,156,144,40,155,145,40,167,162,157,156,147 .byte 54,0 .psect c~data .word .166 .psect c~strn .167: .byte 52,111,47,144,40,162,141,164,150,145,162,40,142 .byte 145,40,144,162,151,142,142,154,145,144,40,142 .byte 171,40,157,154,144,40,113,151,156,147,40,113,157 .byte 156,147,54,0 .psect c~data .word .167 .psect c~strn .170: .byte 52,111,47,144,40,162,141,164,150,145,162,40,146 .byte 151,156,144,40,160,141,162,141,161,165,141,164 .byte 40,151,156,40,155,171,40,142,157,156,147,54,0 .psect c~data .word .170 .psect c~strn .171: .byte 52,111,47,144,40,162,141,164,150,145,162,40,103 .byte 150,165,143,153,40,102,141,162,162,151,163,40 .byte 165,163,145,144,40,155,145,40,141,163,40,164,150 .byte 145,40,147,157,156,147,54,0 .psect c~data .word .171 .psect c~strn .172: .byte 52,111,47,144,40,162,141,164,150,145,162,40,144 .byte 157,40,165,160,144,141,164,145,163,40,164,157 .byte 40,101,164,141,162,151,40,120,157,156,147,54,0 .psect c~data .word .172 .psect c~strn .173: .byte 52,111,47,144,40,162,141,164,150,145,162,40,167 .byte 162,151,164,145,40,141,40,42,125,163,145,162,47 .byte 163,40,107,165,151,144,145,40,164,157,40,120,157 .byte 156,147,42,54,0 .psect c~data .word .173 .even _anti2: .psect c~strn .174: .byte 124,150,141,156,40,162,145,141,144,40,141,156 .byte 157,164,150,145,162,40,161,165,157,164,145,40 .byte 142,171,40,114,141,172,141,162,165,163,40,114 .byte 157,156,147,56,0 .psect c~data .word .174 .psect c~strn .175: .byte 124,150,141,156,40,150,141,166,145,40,164,157 .byte 40,162,145,141,144,40,155,157,162,145,40,157,146 .byte 40,114,141,172,141,162,165,163,40,114,157,156 .byte 147,56,0 .psect c~data .word .175 .psect c~strn .176: .byte 124,150,141,156,40,142,145,40,146,157,162,143 .byte 145,144,40,164,157,40,143,157,156,163,151,144 .byte 145,162,40,155,157,162,145,40,114,141,172,141 .byte 162,165,163,40,114,157,156,147,56,0 .psect c~data .word .176 .even .psect c~code _isLong: jsr r5,csv~ mov 4(r5),r4 .201: movb (r4)+,r3 beq .200 movb r3,r0 br .203 .204: .psect c~strn .206: .byte 145,151,156,154,151,145,156,0 .psect c~code mov $.206,-(sp) mov r4,-(sp) jsr pc,_streq cmp (sp)+,(sp)+ tst r0 beq .205 mov $1,r0 br .177 .205: br .202 .207: .psect c~strn .211: .byte 141,172,141,162,165,163,40,114,157,156,147,0 .psect c~code mov $.211,-(sp) mov r4,-(sp) jsr pc,_streq cmp (sp)+,(sp)+ tst r0 beq .210 mov $1,r0 br .177 .210: br .202 .203: sub $110,r0 cmp r0,$4 bhi .202 asl r0 jmp *.77766(r0) .psect c~mwcn .77766: .word .204,.202,.202,.202,.207 .psect c~code .202: br .201 .200: clr r0 .177: jmp cret~ .psect c~data .even _antibuff: .blkb 401 .even .psect c~code _antihein: jsr r5,csv~ mov $2,-(sp) mov $22,-(sp) mov $77777,-(sp) sxt -(sp) jsr pc,_rand com r0 com r1 bic r1,2(sp) bic r0,(sp) .globl mod~li jsr pc,mod~li add $6,sp mov r1,-(sp) mov r0,-(sp) .globl div~li jsr pc,div~li add $6,sp mov r0,r2 mov r1,r3 mov r3,r4 asl r4 add $_anti1,r4 mov (r4),r4 cmpb (r4),$52 bne .213 .psect c~strn .214: .byte 45,163,12,45,163,0 .psect c~code mov $2,-(sp) mov $6,-(sp) mov $77777,-(sp) sxt -(sp) jsr pc,_rand com r0 com r1 bic r1,2(sp) bic r0,(sp) .globl mod~li jsr pc,mod~li add $6,sp mov r1,-(sp) mov r0,-(sp) .globl div~li jsr pc,div~li add $6,sp mov r0,r2 mov r1,r3 mov r3,r0 asl r0 add $_anti2,r0 mov (r0),r0 mov r0,-(sp) mov r4,-(sp) inc (sp) mov $.214,-(sp) mov $_antibuff,-(sp) jsr pc,_sprintf add $10,sp br .215 .213: mov r4,-(sp) mov $_antibuff,-(sp) jsr pc,_strcpy cmp (sp)+,(sp)+ .215: mov 12(r5),-(sp) mov 10(r5),-(sp) mov $_antibuff,-(sp) mov 6(r5),-(sp) mov 4(r5),-(sp) jsr pc,_output add $12,sp .212: jmp cret~ .psect c~data .even _nvoice: .blkb 2 .even _voices: .psect c~strn .216: .byte 133,72,156,160,135,0 .psect c~data .word .216 .psect c~strn .217: .byte 133,72,156,142,135,0 .psect c~data .word .217 .psect c~strn .220: .byte 133,72,156,150,135,0 .psect c~data .word .220 .psect c~strn .221: .byte 133,72,156,165,135,0 .psect c~data .word .221 .psect c~strn .222: .byte 133,72,156,153,135,0 .psect c~data .word .222 .psect c~strn .223: .byte 133,72,156,146,135,0 .psect c~data .word .223 .psect c~strn .224: .byte 133,72,156,162,135,0 .psect c~data .word .224,0 .even .psect c~code _output: jsr r5,csv~ mov 14(r5),-(sp) mov 12(r5),-(sp) mov 6(r5),-(sp) mov 4(r5),-(sp) jsr pc,_startout add $10,sp tst _extrafd beq .226 .psect c~strn .227: .byte 45,163,12,0 .psect c~code mov 10(r5),-(sp) mov $.227,-(sp) mov _extrafd,-(sp) jsr pc,_fprintf add $6,sp .226: tst _talkfd beq .230 mov 10(r5),-(sp) jsr pc,_speak tst (sp)+ .230: .psect c~strn .231: .byte 45,163,45,163,0 .psect c~code .psect c~strn .232: .byte 45,45,12,0 .psect c~code .psect c~strn .233: .byte 0 .psect c~code cmp _doall,$1 ble .77765 mov $.232,-(sp) br .77764 .77765: mov $.233,-(sp) .77764: mov 10(r5),-(sp) mov $.231,-(sp) jsr pc,_printf add $6,sp mov $1,_linecoun mov 10(r5),r4 .235: mov $12,-(sp) mov r4,-(sp) jsr pc,_strchr cmp (sp)+,(sp)+ mov r0,r4 beq .234 inc _linecoun inc r4 br .235 .234: jsr pc,_endoutpu .225: jmp cret~ .psect c~data .even .psect c~code _speak: jsr r5,csv~ mov _nvoice,r0 asl r0 add $_voices,r0 mov (r0),r0 bne .237 clr _nvoice .237: .psect c~strn .240: .byte 45,163,40,0 .psect c~code mov _nvoice,r0 asl r0 add $_voices,r0 mov (r0),r0 mov r0,-(sp) mov $.240,-(sp) mov _talkfd,-(sp) jsr pc,_fprintf add $6,sp inc _nvoice mov 4(r5),r4 br .243 .244: mov r3,r0 br .246 .247: mov _talkfd,-(sp) mov $54,-(sp) jsr pc,_putc cmp (sp)+,(sp)+ movb (r4),r0 mov r0,-(sp) jsr pc,_isspace tst (sp)+ tst r0 bne .250 mov _talkfd,-(sp) mov $40,-(sp) jsr pc,_putc cmp (sp)+,(sp)+ .250: br .245 .251: mov _talkfd,-(sp) mov $50,-(sp) jsr pc,_putc cmp (sp)+,(sp)+ br .245 .252: mov _talkfd,-(sp) mov $51,-(sp) jsr pc,_putc cmp (sp)+,(sp)+ br .245 .253: movb (r4),r0 mov r0,-(sp) jsr pc,_isalpha tst (sp)+ tst r0 beq .254 cmpb 1(r4),$56 bne .254 mov _talkfd,-(sp) mov r3,-(sp) jsr pc,_putc cmp (sp)+,(sp)+ mov $40,r3 .254: mov _talkfd,-(sp) mov r3,-(sp) jsr pc,_putc cmp (sp)+,(sp)+ br .245 .255: mov 4(r5),r0 inc r0 cmp r0,r4 bhis .256 movb -2(r4),r0 mov r0,-(sp) jsr pc,_isalpha tst (sp)+ tst r0 bne .256 cmpb (r4),$77 bne .256 mov _talkfd,-(sp) mov r3,-(sp) jsr pc,_putc cmp (sp)+,(sp)+ mov $40,r3 inc r4 .256: mov _talkfd,-(sp) mov r3,-(sp) jsr pc,_putc cmp (sp)+,(sp)+ br .245 .257: mov 4(r5),r0 add $3,r0 cmp r0,r4 bhis .260 movb -2(r4),r0 mov r0,-(sp) jsr pc,_isupper tst (sp)+ tst r0 beq .260 movb -3(r4),r0 mov r0,-(sp) jsr pc,_isspace tst (sp)+ tst r0 beq .260 movb (r4),r0 mov r0,-(sp) jsr pc,_isspace tst (sp)+ tst r0 bne .242 .260: mov 4(r5),r0 add $2,r0 cmp r0,r4 bhis .261 cmpb -2(r4),$56 bne .261 movb (r4),r0 mov r0,-(sp) jsr pc,_isalpha tst (sp)+ tst r0 beq .261 mov _talkfd,-(sp) mov r3,-(sp) jsr pc,_putc cmp (sp)+,(sp)+ mov $40,r3 .261: mov _talkfd,-(sp) mov r3,-(sp) jsr pc,_putc cmp (sp)+,(sp)+ br .245 .262: mov 4(r5),r0 add $2,r0 cmp r0,r4 bhis .263 movb -2(r4),r0 mov r0,-(sp) jsr pc,_isalpha tst (sp)+ tst r0 beq .263 movb (r4),r0 mov r0,-(sp) jsr pc,_isspace tst (sp)+ tst r0 beq .263 mov _talkfd,-(sp) mov r3,-(sp) jsr pc,_putc cmp (sp)+,(sp)+ .263: br .245 .264: mov _talkfd,-(sp) mov r3,-(sp) jsr pc,_putc cmp (sp)+,(sp)+ mov r3,-(sp) jsr pc,_isdigit tst (sp)+ tst r0 beq .265 movb (r4),r0 mov r0,-(sp) jsr pc,_isdigit tst (sp)+ tst r0 bne .265 movb (r4),r0 br .267 .270: cmpb 1(r4),$55 bne .266 .271: inc r4 .272: mov _talkfd,-(sp) mov $54,-(sp) jsr pc,_putc cmp (sp)+,(sp)+ mov _talkfd,-(sp) mov $40,-(sp) jsr pc,_putc cmp (sp)+,(sp)+ inc r4 cmpb (r4),$77 bne .273 cmpb 1(r4),$51 bne .273 add $2,r4 .273: br .266 .267: mov $.77762,r1 .77761: cmp r0,(r1)+ bhi .77761 bne .266 jmp *.77763-.77762-2(r1) .psect c~mwcn .77762: .word 55,77 .word -1 .77763: .word .272,.270,.266 .psect c~code .266: .265: br .245 .246: mov $.77757,r1 .77756: cmp r0,(r1)+ bhi .77756 bne .264 jmp *.77760-.77757-2(r1) .psect c~mwcn .77757: .word 50,51,54,56,77,133,135 .word -1 .77760: .word .253,.255,.247,.257,.262,.251,.252,.264 .psect c~code .245: .242: .243: movb (r4)+,r3 bne .244 .241: mov _talkfd,-(sp) mov $14,-(sp) jsr pc,_putc cmp (sp)+,(sp)+ .236: jmp cret~ .psect c~data .even .psect c~code _startout: jsr r5,csv~ tst _video beq .275 .psect c~strn .276: .byte 45,154,144,0 .psect c~code mov 6(r5),-(sp) mov 4(r5),-(sp) mov $.276,-(sp) mov $_temp_tex,-(sp) jsr pc,_sprintf add $10,sp mov r5,-(sp) add $10,(sp) jsr pc,_ctime tst (sp)+ mov r0,r4 clrb 30(r4) mov $1,-(sp) mov $1,-(sp) jsr pc,_erpage cmp (sp)+,(sp)+ tst _isvt52 beq .277 mov r4,-(sp) mov $33,-(sp) mov $1,-(sp) jsr pc,_vtout add $6,sp mov $_temp_tex,-(sp) mov $44,-(sp) mov $3,-(sp) jsr pc,_vtout add $6,sp br .300 .277: tst _~~rsts beq .301 .psect c~strn .302: .byte 233,43,63,0 .psect c~code mov $.302,-(sp) mov $10,-(sp) mov $1,-(sp) jsr pc,_vtout add $6,sp mov r4,-(sp) clr -(sp) clr -(sp) jsr pc,_vtout add $6,sp .psect c~strn .303: .byte 233,43,64,0 .psect c~code mov $.303,-(sp) mov $10,-(sp) mov $2,-(sp) jsr pc,_vtout add $6,sp mov r4,-(sp) clr -(sp) clr -(sp) jsr pc,_vtout add $6,sp .psect c~strn .304: .byte 233,43,66,0 .psect c~code mov $.304,-(sp) mov $22,-(sp) mov $3,-(sp) jsr pc,_vtout add $6,sp mov $_temp_tex,-(sp) clr -(sp) clr -(sp) jsr pc,_vtout add $6,sp br .305 .301: .psect c~strn .306: .byte 33,43,63,0 .psect c~code mov $.306,-(sp) mov $10,-(sp) mov $1,-(sp) jsr pc,_vtout add $6,sp mov r4,-(sp) clr -(sp) clr -(sp) jsr pc,_vtout add $6,sp .psect c~strn .307: .byte 33,43,64,0 .psect c~code mov $.307,-(sp) mov $10,-(sp) mov $2,-(sp) jsr pc,_vtout add $6,sp mov r4,-(sp) clr -(sp) clr -(sp) jsr pc,_vtout add $6,sp .psect c~strn .310: .byte 33,43,66,0 .psect c~code mov $.310,-(sp) mov $22,-(sp) mov $3,-(sp) jsr pc,_vtout add $6,sp mov $_temp_tex,-(sp) clr -(sp) clr -(sp) jsr pc,_vtout add $6,sp .305: .300: .psect c~strn .311: .byte 0 .psect c~code mov $.311,-(sp) mov $1,-(sp) mov $5,-(sp) jsr pc,_vtout add $6,sp .275: .274: jmp cret~ .psect c~data .even .psect c~code _endoutpu: jsr r5,csv~ tst _video beq .313 clr -(sp) clr -(sp) jsr pc,_erpage cmp (sp)+,(sp)+ mov _stdout,-(sp) jsr pc,_fflush tst (sp)+ br .314 .313: mov $12,-(sp) jsr pc,_putchar tst (sp)+ .314: .312: jmp cret~ .psect c~data .even .psect c~code _vtcurse: jsr r5,csv~ tst 4(r5) beq .315 .316: tst _isvt52 beq .317 .psect c~strn .320: .byte 15,233,131,45,143,45,143,0 .psect c~code .psect c~strn .321: .byte 15,33,131,45,143,45,143,0 .psect c~code mov 6(r5),-(sp) add $40,(sp) dec (sp) mov 4(r5),-(sp) add $40,(sp) dec (sp) tst _~~rsts beq .77755 mov $.320,-(sp) br .77754 .77755: mov $.321,-(sp) .77754: jsr pc,_printf add $6,sp br .322 .317: .psect c~strn .323: .byte 15,233,133,45,144,73,45,144,110,0 .psect c~code .psect c~strn .324: .byte 15,33,133,45,144,73,45,144,110,0 .psect c~code mov 6(r5),-(sp) mov 4(r5),-(sp) tst _~~rsts beq .77753 mov $.323,-(sp) br .77752 .77753: mov $.324,-(sp) .77752: jsr pc,_printf add $6,sp .322: .315: jmp cret~ .psect c~data .even .psect c~code _erpage: jsr r5,csv~ mov 6(r5),-(sp) mov 4(r5),-(sp) jsr pc,_vtcurse cmp (sp)+,(sp)+ tst _isvt52 beq .326 .psect c~strn .327: .byte 233,112,0 .psect c~code .psect c~strn .330: .byte 33,112,0 .psect c~code mov _stdout,-(sp) tst _~~rsts beq .77751 mov $.327,-(sp) br .77750 .77751: mov $.330,-(sp) .77750: jsr pc,_fputs cmp (sp)+,(sp)+ br .331 .326: .psect c~strn .332: .byte 233,133,112,0 .psect c~code .psect c~strn .333: .byte 33,133,112,0 .psect c~code mov _stdout,-(sp) tst _~~rsts beq .77747 mov $.332,-(sp) br .77746 .77747: mov $.333,-(sp) .77746: jsr pc,_fputs cmp (sp)+,(sp)+ .331: .325: jmp cret~ .psect c~data .even .psect c~code _erline: jsr r5,csv~ mov 6(r5),-(sp) mov 4(r5),-(sp) jsr pc,_vtcurse cmp (sp)+,(sp)+ tst _isvt52 beq .335 .psect c~strn .336: .byte 233,113,0 .psect c~code .psect c~strn .337: .byte 33,113,0 .psect c~code mov _stdout,-(sp) tst _~~rsts beq .77745 mov $.336,-(sp) br .77744 .77745: mov $.337,-(sp) .77744: jsr pc,_fputs cmp (sp)+,(sp)+ br .340 .335: .psect c~strn .341: .byte 233,133,113,0 .psect c~code .psect c~strn .342: .byte 33,133,113,0 .psect c~code mov _stdout,-(sp) tst _~~rsts beq .77743 mov $.341,-(sp) br .77742 .77743: mov $.342,-(sp) .77742: jsr pc,_fputs cmp (sp)+,(sp)+ .340: .334: jmp cret~ .psect c~data .even .psect c~code _vtout: jsr r5,csv~ mov 6(r5),-(sp) mov 4(r5),-(sp) jsr pc,_vtcurse cmp (sp)+,(sp)+ mov _stdout,-(sp) mov 10(r5),-(sp) jsr pc,_fputs cmp (sp)+,(sp)+ .343: jmp cret~ .psect c~data .even .globl _startout .globl _sprintf .globl _fflush .globl _isupper .globl _vtcurse .globl _tolower .globl _doall .globl _fseek .globl _ctime .globl _printf .globl _speak .globl _stderr .globl _strchr .globl _video .globl _strlen .globl _sleep .globl _fopen .globl _perror .globl _rerror .globl _feof .globl _stdout .globl _strcpy .globl _main .globl _rand .globl _~~narg .globl _fget .globl _atoi .globl _isvt52 .globl _streq .globl _time .globl _output .globl _atol .globl _fputs .globl _exit .globl _putc .globl _old_buff .globl _vtout .globl _~~rsts .globl _docookie .globl _cookfile .globl _antihein .globl _cur_line .globl _long_sle .globl _sc_buff .globl _linecoun .globl _notLong .globl _isalpha .globl _setup_co .globl _temp_tex .globl _isspace .globl _header .globl _topindex .globl _isLong .globl _isdigit .globl _extrafd .globl _continuo .globl _endoutpu .globl _erpage .globl _t .globl _putchar .globl _cookfd .globl _talkfd .globl _fprintf .globl _fclose .globl _erline .globl csv~ .globl cret~ .psect c~code .even .psect c~data .even .psect c~mwcn .even