cci/usr/src/usr.bin/f77/f77pass1/tst/chf.t1 - view

File: [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst / chf.t1
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Sun Jul 28 12:26:07 2019 UTC (7 years ago) by root
Branches: bsd, MAIN
CVS tags: v121, HEAD

Power 6/32 Unix version 1.21

.data 0 .align 2 L18: .long L17 .align 2 L17: .byte 050,02 .byte 0105,0162 .byte 0162,0157 .byte 0162,040 .byte 0151,0156 .byte 040,0143 .byte 0150,0141 .byte 0162,0141 .byte 0143,0164 .byte 0145,0162 .byte 040,0146 .byte 0165,0156 .byte 0143,0164 .byte 0151,0157 .byte 0156,0163 .byte 02,051 .byte 00,00 .align 2 L19: .byte 0101,00 .align 2 L23: .byte 00,00 .data 2 .data 1 .data 0 .align 2 L31: .long L30 .align 2 L30: .byte 050,02 .byte 0151,0156 .byte 040,0147 .byte 0145,0164 .byte 0143,0150 .byte 0162,040 .byte 0167,0151 .byte 0164,0150 .byte 040,0151 .byte 0143,0150 .byte 040,075 .byte 040,02 .byte 054,0141 .byte 061,054 .byte 02,040 .byte 050,02 .byte 054,061 .byte 066,0162 .byte 054,0151 .byte 066,056 .byte 062,054 .byte 02,051 .byte 02,051 .byte 00,00 .align 2 L33: .long 1 .data 2 .data 1 .data 0 .globl _MAIN_ .globl _getchr_ .globl _s_wsfe .globl _e_wsfe .globl _s_stop .globl _do_fio .align 2 .stabs "chf.f",0x64,0,0,0 .text .globl _MAIN_ .align 1 _MAIN_: .word LWM1 subl3 $LF1,fp,sp jbr L12 L13: pushl $1 pushl $L19 pushl $1 addl3 $-53,fp,r0 pushl r0 callf $20,_getchr_ movb -53(fp),v.2-v.1(r11) pushl $1 pushl $L19 pushl $1 addl3 $-54,fp,r0 pushl r0 callf $20,_getchr_ cmpb v.2-v.1(r11),-54(fp) jeql L15 movl L18,v.3+12 pushl $v.3 callf $8,_s_wsfe callf $4,_e_wsfe L15: pushl $0 pushl $L23 callf $12,_s_stop L14: ret#0 L12: movl $v.1,r11 jbr L13 .set LF1,56 .set LWM1,0x1800 .text .globl _getchr_ .align 1 _getchr_: .word LWM2 subl3 $LF2,fp,sp jbr L25 L27: movl L31,v.5+12 pushl $v.5 callf $8,_s_wsfe pushl $1 pushl 12(r12) pushl $L33 callf $16,_do_fio cvtbl *12(r12),r0 cvtbl r0,r0 movl r0,-56(fp) pushl $4 addl3 $-56,fp,r0 pushl r0 pushl $L33 callf $16,_do_fio callf $4,_e_wsfe movb *12(r12),*4(r12) jbr L26 L26: ret#0 L25: movl fp,r12 jbr L27 .set LF2,56 .set LWM2,0x1000 .text .data 2 .align 2 v.3: .long 0 .long 6 .space 8 v.2: .space 1 .set v.1,v.2 .align 2 v.5: .long 0 .long 6 .space 8

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.