1: / 2: / 3: 4: / a4 -- pdp-11 assembler pass1 5: 6: rname: 7: mov r1,-(sp) 8: mov r2,-(sp) 9: mov r3,-(sp) 10: mov $8,r5 11: mov $symbol+8.,r2 12: clr -(r2) 13: clr -(r2) 14: clr -(r2) 15: clr -(r2) 16: clr -(sp) 17: clr -(sp) 18: cmp r0,$'~ / symbol not for hash table 19: bne 1f 20: inc 2(sp) 21: clrb ch 22: 1: 23: jsr pc,rch 24: movb chartab(r0),r3 25: ble 1f 26: add r3,(sp) 27: swab (sp) 28: dec r5 29: blt 1b 30: movb r3,(r2)+ 31: br 1b 32: 1: 33: movb r0,ch 34: mov (sp)+,r1 35: clr r0 36: tst (sp)+ 37: beq 1f 38: mov symend,r4 39: br 4f 40: 1: 41: div $hshsiz,r0 42: ashc $1,r0 43: add $hshtab,r1 44: clr timesaround 45: 1: 46: sub r0,r1 47: cmp r1,$hshtab 48: bhi 2f 49: add $2*hshsiz,r1 50: tst timesaround 51: beq 3f 52: mov $1,r0 53: sys write; 9f; 8f-9f 54: jmp aexit 55: .data 56: timesaround: 57: .=.+2 58: 9: <as: symbol table overflow\n>; 8: .even 59: .text 60: 3: 61: inc timesaround 62: 2: 63: mov $symbol,r2 64: mov -(r1),r4 65: beq 3f 66: cmp (r2)+,(r4)+ 67: bne 1b 68: cmp (r2)+,(r4)+ 69: bne 1b 70: cmp (r2)+,(r4)+ 71: bne 1b 72: cmp (r2)+,(r4)+ 73: bne 1b 74: br 1f 75: 3: 76: mov symend,r4 77: mov r4,(r1) 78: 4: 79: mov $symbol,r2 80: mov r4,-(sp) 81: add $20,r4 82: cmp r4,0f 83: blos 4f 84: add $512.,0f 85: sys indir; 9f 86: .data 87: 9: sys break; 0:end 88: .text 89: 4: 90: mov (sp)+,r4 91: mov (r2)+,(r4)+ 92: mov (r2)+,(r4)+ 93: mov (r2)+,(r4)+ 94: mov (r2)+,(r4)+ 95: clr (r4)+ 96: clr (r4)+ 97: mov r4,symend 98: sub $4,r4 99: 1: 100: mov r4,-(sp) 101: mov r4,r3 102: sub $8,r3 103: cmp r3,$usymtab 104: blo 1f 105: sub $usymtab,r3 106: clr r2 107: div $3,r2 108: mov r2,r4 109: add $4000,r4 / user symbol 110: br 2f 111: 1: 112: sub $symtab,r3 113: clr r2 114: div $3,r2 115: mov r2,r4 116: add $1000,r4 / builtin symbol 117: 2: 118: jsr pc,putw 119: mov (sp)+,r4 120: mov (sp)+,r3 121: mov (sp)+,r2 122: mov (sp)+,r1 123: tst (sp)+ 124: rts pc 125: 126: number: 127: mov r2,-(sp) 128: mov r3,-(sp) 129: mov r5,-(sp) 130: clr r1 131: clr r5 132: 1: 133: jsr pc,rch 134: jsr r5,betwen; '0; '9 135: br 1f 136: sub $'0,r0 137: mpy $10.,r5 138: add r0,r5 139: als $3,r1 140: add r0,r1 141: br 1b 142: 1: 143: cmp r0,$'b 144: beq 1f 145: cmp r0,$'f 146: beq 1f 147: cmp r0,$'. 148: bne 2f 149: mov r5,r1 150: clr r0 151: 2: 152: movb r0,ch 153: mov r1,r0 154: mov (sp)+,r5 155: mov (sp)+,r3 156: mov (sp)+,r2 157: rts pc 158: 1: 159: mov r0,r3 160: mov r5,r0 161: jsr pc,fbcheck 162: add $141,r0 163: cmp r3,$'b 164: beq 1f 165: add $10.,r0 166: 1: 167: mov r0,r4 168: mov (sp)+,r5 169: mov (sp)+,r3 170: mov (sp)+,r2 171: add $2,(sp) 172: rts pc 173: 174: rch: 175: movb ch,r0 176: beq 1f 177: clrb ch 178: rts pc 179: 1: 180: dec inbfcnt 181: blt 2f 182: movb *inbfp,r0 183: inc inbfp 184: bic $!177,r0 185: beq 1b 186: rts pc 187: 2: 188: movb fin,r0 189: beq 3f 190: sys read; inbuf;512. 191: bcs 2f 192: tst r0 193: beq 2f 194: mov r0,inbfcnt 195: mov $inbuf,inbfp 196: br 1b 197: 2: 198: movb fin,r0 199: clrb fin 200: sys close 201: 3: 202: decb nargs 203: bgt 2f 204: mov $'\e,r0 205: rts pc 206: 2: 207: tst ifflg 208: beq 2f 209: jsr r5,error; 'i 210: jmp aexit 211: 2: 212: mov curarg,r0 213: tst (r0)+ 214: mov (r0),0f 215: mov r0,curarg 216: incb fileflg 217: sys indir; 9f 218: .data 219: 9: sys open; 0:0; 0 220: .text 221: bec 2f 222: mov 0b,r0 223: jsr r5,filerr; <?\n> 224: jmp aexit 225: 2: 226: movb r0,fin 227: mov $1,line 228: mov r4,-(sp) 229: mov r1,-(sp) 230: mov $5,r4 231: jsr pc,putw 232: mov *curarg,r1 233: 2: 234: movb (r1)+,r4 235: beq 2f 236: jsr pc,putw 237: br 2b 238: 2: 239: mov $-1,r4 240: jsr pc,putw 241: mov (sp)+,r1 242: mov (sp)+,r4 243: br 1b
|
Last modified: 1981-07-10
Generated: 2016-12-26 |
Generated by src2html V0.67
page hit count: 522 |
|