|
|
1.1 ! root 1: .data 0 ! 2: .align 2 ! 3: L18: ! 4: .long L17 ! 5: .align 2 ! 6: L17: ! 7: .byte 050,02 ! 8: .byte 0105,0162 ! 9: .byte 0162,0157 ! 10: .byte 0162,040 ! 11: .byte 0151,0156 ! 12: .byte 040,0143 ! 13: .byte 0150,0141 ! 14: .byte 0162,0141 ! 15: .byte 0143,0164 ! 16: .byte 0145,0162 ! 17: .byte 040,0146 ! 18: .byte 0165,0156 ! 19: .byte 0143,0164 ! 20: .byte 0151,0157 ! 21: .byte 0156,0163 ! 22: .byte 02,051 ! 23: .byte 00,00 ! 24: .align 2 ! 25: L19: ! 26: .byte 0101,00 ! 27: .align 2 ! 28: L23: ! 29: .byte 00,00 ! 30: .data 2 ! 31: .data 1 ! 32: .data 0 ! 33: .align 2 ! 34: L31: ! 35: .long L30 ! 36: .align 2 ! 37: L30: ! 38: .byte 050,02 ! 39: .byte 0151,0156 ! 40: .byte 040,0147 ! 41: .byte 0145,0164 ! 42: .byte 0143,0150 ! 43: .byte 0162,040 ! 44: .byte 0167,0151 ! 45: .byte 0164,0150 ! 46: .byte 040,0151 ! 47: .byte 0143,0150 ! 48: .byte 040,075 ! 49: .byte 040,02 ! 50: .byte 054,0141 ! 51: .byte 061,054 ! 52: .byte 02,040 ! 53: .byte 050,02 ! 54: .byte 054,061 ! 55: .byte 066,0162 ! 56: .byte 054,0151 ! 57: .byte 066,056 ! 58: .byte 062,054 ! 59: .byte 02,051 ! 60: .byte 02,051 ! 61: .byte 00,00 ! 62: .align 2 ! 63: L33: ! 64: .long 1 ! 65: .data 2 ! 66: .data 1 ! 67: .data 0 ! 68: .globl _MAIN_ ! 69: .globl _getchr_ ! 70: .globl _s_wsfe ! 71: .globl _e_wsfe ! 72: .globl _s_stop ! 73: .globl _do_fio ! 74: .align 2 ! 75: .stabs "chf.f",0x64,0,0,0 ! 76: .text ! 77: .globl _MAIN_ ! 78: .set LF1,56 ! 79: .set LWM1,0x1800 ! 80: .align 1 ! 81: _MAIN_:.word LWM1 ! 82: subl3 $LF1,fp,sp ! 83: movl $v.1,r11 ! 84: pushl $1 ! 85: pushl $L19 ! 86: pushl $1 ! 87: subl3 $53,fp,-(sp) ! 88: callf $20,_getchr_ ! 89: movb -53(fp),v.2-v.1(r11) ! 90: pushl $1 ! 91: pushl $L19 ! 92: pushl $1 ! 93: subl3 $54,fp,-(sp) ! 94: callf $20,_getchr_ ! 95: cmpb v.2-v.1(r11),-54(fp) ! 96: jeql L15 ! 97: movl L18,v.3+12 ! 98: pushl $v.3 ! 99: callf $8,_s_wsfe ! 100: callf $4,_e_wsfe ! 101: L15:pushl $0 ! 102: pushl $L23 ! 103: callf $12,_s_stop ! 104: ret#0 ! 105: .globl _getchr_ ! 106: .set LF2,56 ! 107: .set LWM2,0x1000 ! 108: .align 1 ! 109: _getchr_:.word LWM2 ! 110: subl3 $LF2,fp,sp ! 111: movl fp,r12 ! 112: movl L31,v.5+12 ! 113: pushl $v.5 ! 114: callf $8,_s_wsfe ! 115: pushl $1 ! 116: pushl 12(r12) ! 117: pushl $L33 ! 118: callf $16,_do_fio ! 119: cvtbl *12(r12),r0 ! 120: cvtbl r0,-56(fp) ! 121: pushl $4 ! 122: subl3 $56,fp,-(sp) ! 123: pushl $L33 ! 124: callf $16,_do_fio ! 125: callf $4,_e_wsfe ! 126: movb *12(r12),*4(r12) ! 127: ret#0 ! 128: ! 129: .data 2 ! 130: .align 2 ! 131: v.3: ! 132: .long 0 ! 133: .long 6 ! 134: .space 8 ! 135: v.2: ! 136: .space 1 ! 137: .set v.1,v.2 ! 138: ! 139: .align 2 ! 140: v.5: ! 141: .long 0 ! 142: .long 6 ! 143: .space 8
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.