home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / apple / pcpivers.azm / PCPIVERS.ASM
Encoding:
Assembly Source File  |  1987-02-07  |  6.8 KB  |  437 lines
  1. ; TIMERC.ASM
  2. ;  for PCPICPM
  3. ;        constant update display the time
  4. ;
  5. TRUE    EQU     0FFH
  6. FALSE    EQU     0
  7. acr    equ    0dh            ;A Carrage Return
  8. alf    equ    0ah            ;A Line Feed
  9. aesc    equ    1bh            ;An ESCAPE
  10. clrscrn equ    0ch            ;Clear screen (Apple //e)
  11. ;    
  12. SLOT    equ    2            ;VersaCard Slot #
  13. slot1    equ     slot*16+80h
  14. ctrlp    equ    0C002h+slot1
  15. dtap    equ    0C003h+slot1
  16. ;
  17. CHOUR:    EQU    043H    ;some BIOS clocks keep time
  18. CMIN:    EQU    044H    ;here anyway.
  19. LHOUR:    EQU    050H    ;set by STARTUP.COM on
  20. LMIN:    EQU    051H    ;system initailzation 
  21. ;
  22. sec01     equ    10h
  23. sec10    equ    11h
  24. min01    equ     12h
  25. min10     equ    13h
  26. hrs01    equ    14h
  27. hrs10    equ     15h
  28. day       equ    16h        ; 0=Sunday  6=Saturday
  29. dat01    equ    17h
  30. dat10    equ     18h
  31. mon01     equ    19h
  32. mon10    equ    1Ah
  33. yer01    equ     1Bh
  34. yer10     equ    1Ch
  35. ;
  36. ;    BASE - Base Address of user's CP/M system (normally 0 for DR version)
  37. BASE    EQU    0    ;BASE OF CP/M SYSTEM (SET FOR STANDARD CP/M)
  38. BDOS    EQU    BASE+0005H        ;BDOS FUNCTION CALL ENTRY PT
  39. keyhit    equ    0Bh            ;BDOS test console for key
  40. ;
  41. RDBYTE    EQU    0FFE0H    ;READ A BYTE FROM APPLE (A = BYTE)
  42. WRBYTE    EQU    0FFE3H    ;WRITE A BYTE TO APPLE (C = BYTE)
  43. RDWORD    EQU    0FFE6H    ;READ 2 BYTES FROM APPLE (DE = BYTES)
  44. WRWORD    EQU    0FFE9H    ;WRITE 2 BYTES TO APPLE (DE = BYTES)
  45. RDNBYTS    EQU    0FFECH    ;READ N BYTES (DE = COUNT, HL = BUFFER)
  46. WRNBYTS    EQU    0FFEFH    ;WRITE N BYTES (DE = COUNT, HL = BUFFER)
  47. ;
  48. PEEK1BYTE EQU    6    ; COMMAND TO PEEK 1 BYTE IN THE APPLE
  49. POKE1BYTE EQU    7    ; COMMAND TO POKE 1 BYTE IN THE APPLE
  50. ;
  51. *********************************************************************
  52.     org    0100h
  53. *********************************************************************
  54.     jmp    start
  55. ;
  56. date:
  57.     db    'Date - '
  58.     db    0
  59. ;
  60. time:
  61.     db    'Time - '
  62.     db    0
  63. ;
  64. ;
  65. hrs:
  66.     db     0
  67. min:
  68.     db     0
  69. ten:
  70.     db    0Ah    
  71. ;
  72. start:
  73. ;
  74.     mvi    a,alf
  75.     call    conout
  76.     mvi    a,alf
  77.     call    conout
  78. start1:
  79.     mvi     a,acr
  80.     call    conout
  81. ;
  82. ;            print three spaces
  83. ;
  84.     call     p3spaces
  85. ;
  86. ;            print the date
  87. ;
  88.     lxi    h,date  
  89.     call    PRINT
  90. ;
  91. ;            month tens digit
  92. ;
  93.     mvi    a,mon10
  94.     call    fetch
  95.     ani    0f1h
  96.     call     storeit
  97. ;
  98. ;            month units digit
  99. ;
  100.     mvi    a,mon01
  101.     call    fetch
  102.     call     storeit
  103. ;
  104. ;            seperator /
  105. ;
  106.     mvi    a,'/'
  107.     call    conout
  108.  
  109. ;
  110. ;            day tens digit
  111. ;
  112.     mvi    a,dat10
  113.     call    fetch
  114.     ani    0f3h
  115.     call     storeit
  116. ;
  117. ;            day units digit
  118. ;
  119.     mvi    a,dat01
  120.     call    fetch
  121.     call     storeit
  122. ;
  123. ;            seperator /
  124. ;
  125.     mvi    a,'/'
  126.     call    conout
  127.  
  128. ;
  129. ;            year tens digit
  130. ;
  131.     mvi    a,yer10
  132.     call    fetch
  133.     call     storeit
  134. ;
  135. ;            year units digit
  136. ;
  137.     mvi    a,yer01
  138.     call    fetch
  139.     call     storeit
  140. ;
  141. ;            print three spaces
  142. ;
  143.     call     p3spaces
  144. ;
  145. ;            print the time
  146. ;
  147.     lxi    h,time  
  148.     call    PRINT
  149. ;
  150. ;            hour tens digit
  151. ;
  152.     mvi    a,hrs10
  153.     call    fetch
  154.     ani    0f3h
  155.     call     storeit
  156. ;                setup timer routine
  157.     mvi    a,hrs10
  158.     call    fetch
  159.     ani    003h
  160.     mov    b,a        ;move #of tens to reg-B
  161.     mvi    a,0
  162.     sta    hrs        ;zero to start
  163.     mov    a,b
  164.     jz    endit
  165. mult0:
  166.     mvi    c,0Ah        ;put a ten in C
  167.     lda    hrs        ;put current hrs in A
  168.     add    C              ;add 10
  169.     sta    hrs          ;save it in hrs:
  170.     dcr    b
  171.     jnz    mult0
  172. endit:
  173.  
  174. ;
  175. ;            hour units digit
  176. ;
  177.     mvi    a,hrs01
  178.     call    fetch
  179.     call     storeit
  180. ;            setup timer routine
  181.     mvi    a,hrs01
  182.     call    fetch
  183.     ani    07h
  184.     mov    b,a
  185.     lda    hrs
  186.     mov    c,a
  187.     mov    a,b
  188.     add    c
  189.     sta    CHOUR 
  190. ;    sta    LHOUR 
  191. ;
  192. ;            seperator :
  193. ;
  194.     mvi    a,':'
  195.     call    conout
  196. ;
  197. ;            minute tens digit
  198. ;
  199.     mvi    a,min10
  200.     call    fetch
  201.     ani    0f7h
  202.     call     storeit
  203. ;                setup timer routine
  204.     mvi    a,min10
  205.     call    fetch
  206.     ani    007h
  207.     mov    b,a        ;move #of tens to reg-B
  208.     mvi    a,0
  209.     sta    min        ;zero to start
  210.     mov    a,b
  211.     jz    endit1
  212.     mvi    a,0    
  213. mult1:
  214.     mvi    c,0Ah        ;put a ten in C
  215.     lda    min        ;put current min in A
  216.     add    C              ;add 10
  217.     sta    min          ;save it in min:
  218.     dcr    b
  219.     jnz    mult1
  220. endit1:
  221. ;
  222. ;            minute units digit
  223. ;
  224.     mvi    a,min01
  225.     call    fetch
  226.     call     storeit
  227. ;            setup timer routine
  228.     mvi    a,min01
  229.     call    fetch
  230.     ani    0fh
  231.     mov    b,a
  232.     lda    min
  233.     mov    c,a
  234.     mov    a,b
  235.     add    c
  236.     sta    CMIN
  237. ;    sta    LMIN
  238. ;
  239. ;            seperator :
  240. ;
  241.     mvi    a,':'
  242.     call    conout
  243. ;
  244. ;            seconds tens digit
  245. ;
  246.     mvi    a,sec10
  247.     call    fetch
  248.     ani    0f7h
  249.     call     storeit
  250. ;
  251. ;            seconds units digit
  252. ;
  253.     mvi    a,sec01
  254.     call    fetch
  255.     call     storeit
  256. ;
  257. ;            print three spaces
  258. ;
  259.     call     p3spaces
  260. ;
  261. ;
  262. ;
  263. ;***********************************************************************
  264. ;
  265. ;        TIME0:  CALCULATE USER'S ELAPSED TIME
  266. ;
  267. ;***********************************************************************
  268. ;
  269. ; Calculate time on system and inform user.  
  270. ; 
  271. ;
  272. TIME0:    NOP            ;the SYSOP must add the code here neces-
  273.     NOP            ;  sary to read his clock and store
  274.     NOP            ;  binary values of current hours (0-23)
  275.     NOP            ;  in CHOUR and minutes (0-59) in CMIN
  276.     LXI    H,LHOUR        ;point to log-on hour
  277.     LDA    CHOUR        ;current hour
  278.     CMP    M        ;equal?
  279.     JNZ    TIME1        ;no
  280.     LDA    LMIN        ;log on minutes
  281.     MOV    D,A
  282.     LDA    CMIN        ;current minutes
  283.     SUB    D
  284.     STA    TON        ;store total time on
  285.     JMP    TIME2
  286. ;
  287. TIME1:    LDA    LMIN        ;log on min
  288.     MOV    D,A
  289.     MVI    A,03CH        ;60 min into A
  290.     SUB    D
  291.     LXI    H,CMIN        ;point at current min
  292.     ADD    M        ;add current minutes
  293.     STA    TON
  294. ;
  295. TIME2:    
  296. ;
  297. TIME3:    LXI    H,MSG1+015H    ;point at message insert bytes
  298.     LDA    TON        ;convert to ASCII
  299.     MVI    B,-1
  300. ;
  301. TIME4:    INR    B
  302.     SUI    0AH        ;subtract 10
  303.     JNC    TIME4        ;until done
  304.     ADI    0AH
  305.     ORI    '0'        ;make ASCII
  306.     MOV    M,A
  307.     DCX    H
  308.     MVI    A,'0'
  309.     ADD    B
  310.     MOV    M,A
  311.     LXI    H,MSG1
  312.     CALL    PRINT
  313. ;
  314. ;
  315.     mvi    c,keyhit
  316.     call    BDOS        ;test the console
  317.     ora    a        ;was a key hit
  318.     jz    wait           ;jump if not
  319. ;
  320.     mvi    a,alf
  321.     call    conout
  322.     mvi    a,alf
  323.     call    conout
  324.     mvi     a,acr
  325.     call    conout
  326. ;
  327.     ret
  328. ;
  329. ;
  330. ;
  331. MSG1:
  332.     DB    '  '
  333.     DB    'Time on system is 00 minutes'
  334.     DB    0
  335. ;
  336. ;
  337. TON:
  338.     DB    0            
  339. ;
  340. ;-----------------------------------------------------------------------
  341. ;
  342. ;            End of program code
  343. ;
  344. ;-----------------------------------------------------------------------
  345. ;
  346. ;
  347. ;
  348. ;       S U B     R O U T I N E S:
  349. ;
  350. ;PEEK AT 1 BYTE IN THE APPLE
  351. ;ENTRY: DE = ADDRESS
  352. ;EXIT:    A = DATA
  353. PEEK:
  354.     PUSH    B
  355.     MVI    C,PEEK1BYTE
  356.     CALL    WRBYTE
  357.     CALL    WRWORD
  358.     CALL    RDBYTE
  359.     POP    B
  360.     RET
  361.  
  362. ;POKE 1 BYTE INTO THE APPLE
  363. ;ENTRY: DE = ADDRESS
  364. ;EXIT:    A = DATA
  365. POKE:
  366.     PUSH    B
  367.     MOV    B,A
  368.     MVI    C,POKE1BYTE
  369.     CALL    WRBYTE
  370.     CALL    WRWORD
  371.     MOV    C,B
  372.     CALL    WRBYTE
  373.     POP    B
  374.     RET
  375. ;
  376. ;
  377. fetch:
  378.     lxi    d,ctrlp
  379.     call    poke
  380.     lxi    d,dtap
  381.     call    peek
  382.     sui    10h
  383.     ret
  384. ;
  385. storeit:
  386.     call     conout
  387.     ret
  388. ;
  389. cout:
  390. CONOUT:
  391.     MVI    C,2
  392. OUTPUT:
  393.     MOV    E,A
  394.     CALL    BDOS
  395.     RET
  396. ;
  397. ;            print three spaces
  398. ;
  399. p3spaces:
  400.     mvi    a,' ' 
  401.     call    conout
  402.     mvi    a,' ' 
  403.     call    conout
  404.     mvi    a,' ' 
  405.     call    conout
  406.     ret
  407. ;
  408. PRINT: 
  409.     mov    a,m        ;get a character of the message
  410.     inx    h        ;Bump text pointer
  411.     ana    a        ;Test for End
  412.     jz    done          ;Exit if done
  413.     push    h        ;Save pointer to text
  414.     mov    c,a        ;Output char in C
  415.     call     cout        ;output the character
  416.     pop    h         ;restore the pointer
  417.     jmp    PRINT          ;Continue untill null reached
  418. ;
  419. done:
  420.     RET
  421. ;
  422. wait:
  423.     mvi     b,006h
  424. wait1:
  425.     mvi    c,0FFh
  426. wait2:
  427.     mvi    d,0FFh
  428. wait3:
  429.     dcr    d
  430.     jnz    wait3
  431.     dcr    c
  432.     jnz    wait2
  433.     dcr    b
  434.     jnz    wait1
  435.     jmp    start1
  436. ;
  437.