1999/0514/alphapc/l.s (diff list | history)

1999/0426/sys/src/9/alphapc/l.s:2,13 – 1999/0514/sys/src/9/alphapc/l.s:2,13 (short | long | prev | next)
1999/0415		#define SP R30 #define HI_IPL 6 /* use 7 to disable mchecks */
1999/0514		#define HI_IPL 6 /* use 7 to disable mchecks */
1999/0415		TEXT _main(SB), $-8 MOVQ $setSB(SB), R29 MOVQ R29, R16 CALL_PAL $PALwrkgp
1999/0514		CALL_PAL $PALwrkgp
1999/0415		MOVQ $mach0(SB), R(MACH) MOVQ $(BY2PG-8)(R(MACH)), R30 MOVQ R31, R(USER)
1999/0426/sys/src/9/alphapc/l.s:18,48 – 1999/0514/sys/src/9/alphapc/l.s:18,80
1999/0415		MOVQ R31, (R1) ADDQ $8, R1 CMPUGT R1, R2, R3 BEQ R3, clrbss
1999/0514		BEQ R3, clrbss
1999/0415		MOVL R0, bootconf(SB) /* passed in from boot loader */
1999/0514		MOVL R0, bootconf(SB) /* passed in from boot loader */
1999/0415		TRAPB
1999/0514		_fpinit: MOVQ R0, R16 CALL_PAL $PALwrfen
1999/0415		MOVQ $1, R1 SLLQ $59, R1 /* normal rounding mode */
1999/0514		SLLQ $59, R1 /* normal rounding mode */
1999/0415		MOVQ R1, (R30) MOVT (R30), F1
1999/0514		EXCB
1999/0415		MOVT F1, FPCR TRAPB
1999/0514		EXCB
1999/0415		MOVT $0.5, F28 ADDT F28, F28, F29 ADDT F29, F29, F30
1999/0514		SUBT F28, F28, F0 MOVT F0, F1 MOVT F0, F2 MOVT F0, F3 MOVT F0, F4 MOVT F0, F5 MOVT F0, F6 MOVT F0, F7 MOVT F0, F8 MOVT F0, F9 MOVT F0, F10 MOVT F0, F11 MOVT F0, F12 MOVT F0, F13 MOVT F0, F14 MOVT F0, F15 MOVT F0, F16 MOVT F0, F17 MOVT F0, F18 MOVT F0, F19 MOVT F0, F20 MOVT F0, F21 MOVT F0, F22 MOVT F0, F23 MOVT F0, F24 MOVT F0, F25 MOVT F0, F26 MOVT F0, F27
1999/0415		JSR main(SB) MOVQ $_divq(SB), R31 /* touch _divq etc.; doesn't need to execute */ MOVQ $_divl(SB), R31 /* touch _divl etc.; doesn't need to execute */
1999/0514		MOVQ $_divl(SB), R31 /* touch _divl etc.; doesn't need to execute */
1999/0415		RET TEXT setpcb(SB), $-8 MOVQ R30, (R0) AND $0x7FFFFFFF, R0, R16 /* make address physical */ CALL_PAL $PALswpctx
1999/0514		AND $0x7FFFFFFF, R0, R16 /* make address physical */ CALL_PAL $PALswpctx
1999/0415		RET GLOBL mach0(SB), $(MAXMACH*BY2PG)
1999/0426/sys/src/9/alphapc/l.s:53,59 – 1999/0514/sys/src/9/alphapc/l.s:85,91
1999/0415		TEXT splhi(SB), $0 MOVL R26, 4(R(MACH)) /* save PC in m->splpc */
1999/0514		MOVL R26, 4(R(MACH)) /* save PC in m->splpc */
1999/0415		MOVQ $HI_IPL, R16 CALL_PAL $PALswpipl RET
1999/0426/sys/src/9/alphapc/l.s:64,72 – 1999/0514/sys/src/9/alphapc/l.s:96,104
1999/0415		RET TEXT splx(SB), $0 MOVL R26, 4(R(MACH)) /* save PC in m->splpc */
1999/0514		MOVL R26, 4(R(MACH)) /* save PC in m->splpc */
1999/0415		TEXT splxpc(SB), $0 /* for iunlock */
1999/0514		TEXT splxpc(SB), $0 /* for iunlock */
1999/0415		MOVQ R0, R16 CALL_PAL $PALswpipl RET
1999/0426/sys/src/9/alphapc/l.s:76,83 – 1999/0514/sys/src/9/alphapc/l.s:108,115
1999/0415		TEXT islo(SB), $0 CALL_PAL $PALrdps AND $IPL, R0 XOR $IPL, R0
1999/0514		AND $IPL, R0 XOR $IPL, R0
1999/0415		RET TEXT mb(SB), $-8
1999/0426/sys/src/9/alphapc/l.s:96,102 – 1999/0514/sys/src/9/alphapc/l.s:128,134
1999/0415		TEXT swpctx(SB), $-8 MOVQ R0, R16 AND $0x7FFFFFFF, R16 /* make address physical */
1999/0514		AND $0x7FFFFFFF, R16 /* make address physical */
1999/0415		CALL_PAL $PALswpctx RET
1999/0426/sys/src/9/alphapc/l.s:108,124 – 1999/0514/sys/src/9/alphapc/l.s:140,155
1999/0415		TEXT wrvptptr(SB), $-8 MOVQ R0, R16 CALL_PAL $PALwrvptptr
1999/0514		CALL_PAL $PALwrvptptr
1999/0415		RET TEXT cserve(SB), $-8 MOVQ R0, R16 MOVL 4(FP), R17 CALL_PAL $PALcserve
1999/0514		CALL_PAL $PALcserve
1999/0415		RET TEXT setlabel(SB), $-8                  MOVL R30, 0(R0) MOVL R26, 4(R0) MOVQ $0, R0
1999/0426/sys/src/9/alphapc/l.s:125,131 – 1999/0514/sys/src/9/alphapc/l.s:156,161
1999/0415		RET TEXT gotolabel(SB), $-8                  MOVL 0(R0), R30 MOVL 4(R0), R26 MOVQ $1, R0
1999/0426/sys/src/9/alphapc/l.s:238,244 – 1999/0514/sys/src/9/alphapc/l.s:268,274
1999/0415		CALL_PAL $PALswpipl CALL_PAL $PALrdusp MOVQ R0, (4*BY2WD+30*BY2V)(R30) /* save USP */
1999/0514		MOVQ R0, (4*BY2WD+30*BY2V)(R30) /* save USP */
1999/0415		MOVQ $mach0(SB), R(MACH) MOVQ $(4*BY2WD)(R30), R0
1999/0426/sys/src/9/alphapc/l.s:245,251 – 1999/0514/sys/src/9/alphapc/l.s:275,281
1999/0415		JSR trap(SB) trapret: MOVQ (4*BY2WD+30*BY2V)(R30), R16 /* USP */ CALL_PAL $PALwrusp /* ... */
1999/0514		CALL_PAL $PALwrusp /* ... */
1999/0415		MOVQ (4*BY2WD+4*BY2V)(R30), R0 MOVQ (4*BY2WD+5*BY2V)(R30), R1 MOVQ (4*BY2WD+6*BY2V)(R30), R2
1999/0426/sys/src/9/alphapc/l.s:286,299 – 1999/0514/sys/src/9/alphapc/l.s:316,329
1999/0415		MOVQ $HI_IPL, R16 CALL_PAL $PALswpipl MOVQ $mach0(SB), R(MACH) CALL_PAL $PALrdusp MOVQ R0, (4*BY2WD+30*BY2V)(R30) /* save USP */
1999/0514		CALL_PAL $PALrdusp MOVQ R0, (4*BY2WD+30*BY2V)(R30) /* save USP */
1999/0415		MOVQ R26, (4*BY2WD+27*BY2V)(R30) /* save last return address */ MOVQ $(4*BY2WD)(R30), R0 /* pass address of Ureg */ JSR syscall(SB)
1999/0514		MOVQ $(4*BY2WD)(R30), R0 /* pass address of Ureg */ JSR syscall(SB)
1999/0415		systrapret: MOVQ (4*BY2WD+30*BY2V)(R30), R16 /* USP */ CALL_PAL $PALwrusp /* consider doing this in execregs... */
1999/0514		CALL_PAL $PALwrusp /* consider doing this in execregs... */
1999/0415		MOVQ (4*BY2WD+27*BY2V)(R30), R26 /* restore last return address */ ADDQ $(4*BY2WD+31*BY2V), R30 CALL_PAL $PALretsys
1999/0426/sys/src/9/alphapc/l.s:305,319 – 1999/0514/sys/src/9/alphapc/l.s:335,349
1999/0415		TEXT touser(SB), $-8 MOVQ R0, R16 CALL_PAL $PALwrusp /* set USP to value passed */ SUBQ $(6*BY2V), R30 /* create frame for retsys */ MOVQ $(UTZERO+32), R26 /* header appears in text */ MOVQ R26, (1*BY2V)(R30) /* PC -- only reg that matters */
1999/0514		CALL_PAL $PALwrusp /* set USP to value passed */ SUBQ $(6*BY2V), R30 /* create frame for retsys */ MOVQ $(UTZERO+32), R26 /* header appears in text */ MOVQ R26, (1*BY2V)(R30) /* PC -- only reg that matters */
1999/0415		CALL_PAL $PALretsys TEXT rfnote(SB), $0 SUBL $(2*BY2WD), R0, SP JMP trapret
1999/0514		SUBL $(2*BY2WD), R0, SP JMP trapret
1999/0415		TEXT savefpregs(SB), $-8 MOVT F0, 0x00(R0)