.SPACE $TEXT$,SORT=8 .SUBSPA $CODE$,QUAD=0,ALIGN=4,ACCESS=44,CODE_ONLY,SORT=24 retorno .PROC .CALLINFO CALLER,FRAME=0 .ENTRY LDI 1,%r31 ;offset 0x0 ADDIL LR'alarma-$global$,%r27 ;offset 0x4 STW %r31,RR'alarma-$global$(0,%r1) ;offset 0x8 BV %r0(%r2) ;offset 0xc .EXIT NOP ;offset 0x10 .PROCEND ; .SPACE $TEXT$ .SUBSPA $CODE$,QUAD=0,ALIGN=4,ACCESS=44,CODE_ONLY,SORT=24 reloj .PROC .CALLINFO CALLER,FRAME=24,ENTRY_SR=3,SAVE_RP .ENTRY STW %r2,-20(0,%r30) ;offset 0x14 LDO 128(%r30),%r30 ;offset 0x18 STW %r25,-168(0,%r30) ;offset 0x1c STW %r26,-164(0,%r30) ;offset 0x20 LDW -168(0,%r30),%r19 ;offset 0x24 COMIBF,=,N 0,%r19,$00000001 ;offset 0x28 LDW -164(0,%r30),%r20 ;offset 0x2c COMIBF,=,N 0,%r20,$00000001 ;offset 0x30 LDI 1,%r21 ;offset 0x34 ADDIL LR'alarma-$global$,%r27 ;offset 0x38 STW %r21,RR'alarma-$global$(0,%r1) ;offset 0x3c B $L0 ;offset 0x40 COPY %r0,%r28 ;offset 0x44 $00000001 LDW -168(0,%r30),%r22 ;offset 0x48 STW %r22,-56(0,%r30) ;offset 0x4c LDW -164(0,%r30),%r1 ;offset 0x50 STW %r1,-52(0,%r30) ;offset 0x54 LDW -56(0,%r30),%r31 ;offset 0x58 LDW -52(0,%r30),%r19 ;offset 0x5c STW %r31,-64(0,%r30) ;offset 0x60 STW %r19,-60(0,%r30) ;offset 0x64 STW %r0,-56(0,%r30) ;offset 0x68 STW %r0,-52(0,%r30) ;offset 0x6c LDW -56(0,%r30),%r20 ;offset 0x70 LDW -52(0,%r30),%r21 ;offset 0x74 STW %r20,-72(0,%r30) ;offset 0x78 STW %r21,-68(0,%r30) ;offset 0x7c LDI 14,%r26 ;offset 0x80 ADDIL LR'L$plab_start-$global$,%r27 ;offset 0x84 LDW RR'L$plab_start-$global$(0,%r1),%r25 ;offset 0x88 .CALL ARGW0=GR,ARGW1=GR,RTNVAL=GR ;in=25,26;out=28; BL signal,%r2 ;offset 0x8c NOP ;offset 0x90 LDO -72(%r30),%r25 ;offset 0x94 COPY %r0,%r26 ;offset 0x98 COPY %r0,%r24 ;offset 0x9c .CALL ARGW0=GR,ARGW1=GR,ARGW2=GR,RTNVAL=GR ;in=24,25,26;out=28; BL setitimer,%r2 ;offset 0xa0 NOP ;offset 0xa4 COMIB,=,N 0,%r28,$00000002 ;offset 0xa8 B $L0 ;offset 0xac LDI -1,%r28 ;offset 0xb0 $00000002 COPY %r0,%r28 ;offset 0xb4 $L0 LDW -148(0,%r30),%r2 ;offset 0xb8 BV %r0(%r2) ;offset 0xbc .EXIT LDO -128(%r30),%r30 ;offset 0xc0 .PROCEND ;in=25,26;out=28; .SPACE $TEXT$ .SUBSPA $CODE$,QUAD=0,ALIGN=4,ACCESS=44,CODE_ONLY,SORT=24 dime_alarma .PROC .CALLINFO CALLER,FRAME=0 .ENTRY ADDIL LR'alarma-$global$,%r27 ;offset 0xc4 LDW RR'alarma-$global$(0,%r1),%r28 ;offset 0xc8 BV %r0(%r2) ;offset 0xcc .EXIT NOP ;offset 0xd0 .PROCEND ;out=28; .SPACE $TEXT$ .SUBSPA $CODE$,QUAD=0,ALIGN=4,ACCESS=44,CODE_ONLY,SORT=24 Tiempo_Seek .PROC .CALLINFO CALLER,FRAME=8,ENTRY_SR=3,SAVE_RP .ENTRY STW %r2,-20(0,%r30) ;offset 0xd4 LDO 64(%r30),%r30 ;offset 0xd8 STW %r25,-104(0,%r30) ;offset 0xdc STW %r26,-100(0,%r30) ;offset 0xe0 ADDIL LR'alarma-$global$,%r27 ;offset 0xe4 STW %r0,RR'alarma-$global$(0,%r1) ;offset 0xe8 LDW -104(0,%r30),%r25 ;offset 0xec LDW -100(0,%r30),%r26 ;offset 0xf0 .CALL ARGW0=GR,ARGW1=GR,RTNVAL=GR ;in=25,26;out=28; BL reloj,%r2 ;offset 0xf4 NOP ;offset 0xf8 COMIB,<=,N 0,%r28,$00000003 ;offset 0xfc B $L1 ;offset 0x100 LDI -1,%r28 ;offset 0x104 $00000003 .CALL RTNVAL=GR ;out=28; BL dime_alarma,%r2 ;offset 0x108 NOP ;offset 0x10c COMIBF,=,N 0,%r28,$00000005 ;offset 0x110 $00000004 $00000006 .CALL RTNVAL=GR ;out=28; BL dime_alarma,%r2 ;offset 0x114 NOP ;offset 0x118 COMIB,= 0,%r28,$00000004 ;offset 0x11c NOP ;offset 0x120 $00000005 COPY %r0,%r28 ;offset 0x124 $L1 LDW -84(0,%r30),%r2 ;offset 0x128 BV %r0(%r2) ;offset 0x12c .EXIT LDO -64(%r30),%r30 ;offset 0x130 .PROCEND ;in=25,26;out=28; .SPACE $TEXT$ .SUBSPA $CODE$,QUAD=0,ALIGN=4,ACCESS=44,CODE_ONLY,SORT=24 Tiempo_Late .PROC .CALLINFO CALLER,FRAME=8,ENTRY_SR=3,SAVE_RP .ENTRY STW %r2,-20(0,%r30) ;offset 0x134 LDO 64(%r30),%r30 ;offset 0x138 STW %r25,-104(0,%r30) ;offset 0x13c STW %r26,-100(0,%r30) ;offset 0x140 ADDIL LR'alarma-$global$,%r27 ;offset 0x144 STW %r0,RR'alarma-$global$(0,%r1) ;offset 0x148 LDW -104(0,%r30),%r25 ;offset 0x14c LDW -100(0,%r30),%r26 ;offset 0x150 .CALL ARGW0=GR,ARGW1=GR,RTNVAL=GR ;in=25,26;out=28; BL reloj,%r2 ;offset 0x154 NOP ;offset 0x158 COMIB,<=,N 0,%r28,$00000007 ;offset 0x15c B $L2 ;offset 0x160 LDI -1,%r28 ;offset 0x164 $00000007 ADDIL LR'alarma-$global$,%r27 ;offset 0x168 LDW RR'alarma-$global$(0,%r1),%r22 ;offset 0x16c COMIBF,=,N 0,%r22,$00000009 ;offset 0x170 $00000008 $0000000A ADDIL LR'alarma-$global$,%r27 ;offset 0x174 LDW RR'alarma-$global$(0,%r1),%r1 ;offset 0x178 COMIB,= 0,%r1,$00000008 ;offset 0x17c NOP ;offset 0x180 $00000009 COPY %r0,%r28 ;offset 0x184 $L2 LDW -84(0,%r30),%r2 ;offset 0x188 BV %r0(%r2) ;offset 0x18c .EXIT LDO -64(%r30),%r30 ;offset 0x190 .PROCEND ;in=25,26;out=28; .SPACE $TEXT$ .SUBSPA $CODE$,QUAD=0,ALIGN=4,ACCESS=44,CODE_ONLY,SORT=24 Tiempo_Transf .PROC .CALLINFO CALLER,FRAME=8,ENTRY_SR=3,SAVE_RP .ENTRY STW %r2,-20(0,%r30) ;offset 0x194 LDO 64(%r30),%r30 ;offset 0x198 STW %r25,-104(0,%r30) ;offset 0x19c STW %r26,-100(0,%r30) ;offset 0x1a0 ADDIL LR'alarma-$global$,%r27 ;offset 0x1a4 STW %r0,RR'alarma-$global$(0,%r1) ;offset 0x1a8 LDW -104(0,%r30),%r25 ;offset 0x1ac LDW -100(0,%r30),%r26 ;offset 0x1b0 .CALL ARGW0=GR,ARGW1=GR,RTNVAL=GR ;in=25,26;out=28; BL reloj,%r2 ;offset 0x1b4 NOP ;offset 0x1b8 COMIB,<=,N 0,%r28,$0000000B ;offset 0x1bc B $L3 ;offset 0x1c0 LDI -1,%r28 ;offset 0x1c4 $0000000B ADDIL LR'alarma-$global$,%r27 ;offset 0x1c8 LDW RR'alarma-$global$(0,%r1),%r31 ;offset 0x1cc COMIBF,=,N 0,%r31,$0000000D ;offset 0x1d0 $0000000C $0000000E ADDIL LR'alarma-$global$,%r27 ;offset 0x1d4 LDW RR'alarma-$global$(0,%r1),%r19 ;offset 0x1d8 COMIB,= 0,%r19,$0000000C ;offset 0x1dc NOP ;offset 0x1e0 $0000000D COPY %r0,%r28 ;offset 0x1e4 $L3 LDW -84(0,%r30),%r2 ;offset 0x1e8 BV %r0(%r2) ;offset 0x1ec .EXIT LDO -64(%r30),%r30 ;offset 0x1f0 .PROCEND ;in=25,26;out=28; .SPACE $TEXT$ .SUBSPA $CODE$,QUAD=0,ALIGN=4,ACCESS=44,CODE_ONLY,SORT=24 Tiempo_Recal .PROC .CALLINFO CALLER,FRAME=8,ENTRY_SR=3,SAVE_RP .ENTRY STW %r2,-20(0,%r30) ;offset 0x1f4 LDO 64(%r30),%r30 ;offset 0x1f8 STW %r25,-104(0,%r30) ;offset 0x1fc STW %r26,-100(0,%r30) ;offset 0x200 ADDIL LR'alarma-$global$,%r27 ;offset 0x204 STW %r0,RR'alarma-$global$(0,%r1) ;offset 0x208 LDW -104(0,%r30),%r25 ;offset 0x20c LDW -100(0,%r30),%r26 ;offset 0x210 .CALL ARGW0=GR,ARGW1=GR,RTNVAL=GR ;in=25,26;out=28; BL reloj,%r2 ;offset 0x214 NOP ;offset 0x218 COMIB,<=,N 0,%r28,$0000000F ;offset 0x21c B $L4 ;offset 0x220 LDI -1,%r28 ;offset 0x224 $0000000F ADDIL LR'alarma-$global$,%r27 ;offset 0x228 LDW RR'alarma-$global$(0,%r1),%r20 ;offset 0x22c COMIBF,=,N 0,%r20,$00000011 ;offset 0x230 $00000010 $00000012 ADDIL LR'alarma-$global$,%r27 ;offset 0x234 LDW RR'alarma-$global$(0,%r1),%r21 ;offset 0x238 COMIB,= 0,%r21,$00000010 ;offset 0x23c NOP ;offset 0x240 $00000011 COPY %r0,%r28 ;offset 0x244 $L4 LDW -84(0,%r30),%r2 ;offset 0x248 BV %r0(%r2) ;offset 0x24c .EXIT LDO -64(%r30),%r30 ;offset 0x250 .PROCEND ;in=25,26;out=28; .SPACE $TEXT$ .SUBSPA $CODE$ .SUBSPA $CODE$ .SUBSPA $CODE$ .SUBSPA $CODE$ .SUBSPA $CODE$ .SUBSPA $CODE$ .SUBSPA $CODE$ .SPACE $PRIVATE$,SORT=16 .SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31,SORT=16 L$plab_start .ALIGN 8 .WORD retorno .SUBSPA $SHORTBSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=80 .IMPORT $global$,DATA .SPACE $PRIVATE$ .SUBSPA $SHORTBSS$ alarma .COMM 4 .SPACE $TEXT$ .SUBSPA $CODE$ .EXPORT retorno,ENTRY,PRIV_LEV=3 .SUBSPA $CODE$ .EXPORT reloj,ENTRY,PRIV_LEV=3,ARGW0=GR,ARGW1=GR,RTNVAL=GR .IMPORT signal,CODE .IMPORT setitimer,CODE .SUBSPA $CODE$ .EXPORT dime_alarma,ENTRY,PRIV_LEV=3,RTNVAL=GR .SUBSPA $CODE$ .EXPORT Tiempo_Seek,ENTRY,PRIV_LEV=3,ARGW0=GR,ARGW1=GR,RTNVAL=GR .SUBSPA $CODE$ .EXPORT Tiempo_Late,ENTRY,PRIV_LEV=3,ARGW0=GR,ARGW1=GR,RTNVAL=GR .SUBSPA $CODE$ .EXPORT Tiempo_Transf,ENTRY,PRIV_LEV=3,ARGW0=GR,ARGW1=GR,RTNVAL=GR .SUBSPA $CODE$ .EXPORT Tiempo_Recal,ENTRY,PRIV_LEV=3,ARGW0=GR,ARGW1=GR,RTNVAL=GR .SPACE $PRIVATE$ .SUBSPA $SHORTBSS$ alarma .COMM 4 .END