home *** CD-ROM | disk | FTP | other *** search
/ RISCWORLD 5 / RISCWORLD_VOL5.iso / SOFTWARE / Issue3 / FAMILY / Calendar / CalLib / s / calendar
Encoding:
Text File  |  2003-09-23  |  2.2 KB  |  104 lines
  1. ;ObjAsm file for Calendar
  2. ;written by DefMod (Sep 17 2003) on Tue Sep 23 05:23:53 2003
  3. ;© Erik Groenhuis
  4.  
  5. R0      RN      0
  6. R1      RN      1
  7. R2      RN      2
  8. R3      RN      3
  9. R4      RN      4
  10. R5      RN      5
  11. R6      RN      6
  12. R7      RN      7
  13. R8      RN      8
  14. R9      RN      9
  15.  
  16. A1      RN      0
  17. A2      RN      1
  18. A3      RN      2
  19. A4      RN      3
  20. V1      RN      4
  21. V2      RN      5
  22. V3      RN      6
  23. V4      RN      7
  24. V5      RN      8
  25. V6      RN      9
  26.  
  27. R       RN      0
  28.  
  29. SL      RN      10
  30. FP      RN      11
  31. IP      RN      12
  32. SP      RN      13
  33. LR      RN      14
  34. PC      RN      15
  35.  
  36.         EXPORT  xcalendar_jday_to_date
  37.         EXPORT  calendar_jday_to_date
  38.         EXPORT  xcalendar_date_to_jday
  39.         EXPORT  calendar_date_to_jday
  40.  
  41.         AREA    |SWI$$Code|, CODE, READONLY
  42.  
  43. xcalendar_jday_to_date ROUT
  44.         MOV     IP, LR
  45.         STMFD   SP!, {A3, A4, V1}
  46.         SWI     &75F80
  47.         BVS     %99
  48.         LDR     LR, [SP, #0]
  49.         TEQ     LR, #0
  50.         STRNE   R2, [LR]
  51.         LDR     LR, [SP, #4]
  52.         TEQ     LR, #0
  53.         STRNE   R3, [LR]
  54.         LDR     LR, [SP, #12]
  55.         TEQ     LR, #0
  56.         STRNE   R4, [LR]
  57.         MOV     R, #0
  58. 99      ADD     SP, SP, #8
  59.         LDMFD   SP!, {V1}
  60.         MOVS    PC, IP
  61.  
  62. calendar_jday_to_date ROUT
  63.         STMFD   SP!, {A3, A4, V1}
  64.         SWI     &55F80
  65.         LDR     IP, [SP, #0]
  66.         TEQ     IP, #0
  67.         STRNE   R2, [IP]
  68.         LDR     IP, [SP, #4]
  69.         TEQ     IP, #0
  70.         STRNE   R3, [IP]
  71.         LDR     IP, [SP, #12]
  72.         TEQ     IP, #0
  73.         STRNE   R4, [IP]
  74.         ADD     SP, SP, #8
  75.         LDMFD   SP!, {V1}
  76.         MOVS    PC, LR
  77.  
  78. xcalendar_date_to_jday ROUT
  79.         MOV     IP, LR
  80.         STMFD   SP!, {V1}
  81.         MOV     R4, A4
  82.         MOV     R3, A3
  83.         MOV     R2, A2
  84.         SWI     &75F81
  85.         BVS     %99
  86.         LDR     LR, [SP, #4]
  87.         TEQ     LR, #0
  88.         STRNE   R1, [LR]
  89.         MOV     R, #0
  90. 99      LDMFD   SP!, {V1}
  91.         MOVS    PC, IP
  92.  
  93. calendar_date_to_jday ROUT
  94.         STMFD   SP!, {V1}
  95.         MOV     R4, A4
  96.         MOV     R3, A3
  97.         MOV     R2, A2
  98.         SWI     &55F81
  99.         MOV     R, R1
  100.         LDMFD   SP!, {V1}
  101.         MOVS    PC, LR
  102.  
  103.         END
  104.