home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / ACE-R11-SCR3.ARC / MEM.S < prev    next >
Encoding:
Text File  |  2019-04-13  |  1.3 KB  |  99 lines
  1. ;*** MEMORY STATUS PROGRAM
  2.  
  3. .SEQ ACEHEAD.S
  4. .ORG ACE┴PP┴DDRESS
  5. .OBJ "@:MEM"
  6.  
  7. JMP MAIN
  8. .BYTE ACE╔─1,ACE╔─2,ACE╔─3
  9. .BYTE 64,0  ;** STACK,RESERVED
  10.  
  11. FREE═EMORY  = 4
  12. TOTAL═EMORY = 8
  13. PROCESS╔D   = 12
  14. TPA═EMORY   = 16
  15.  
  16. MAIN = *
  17.    LDA #0
  18.    LDX #7
  19. -  STA PROCESS╔D,X
  20.    DEX
  21.    BPL -
  22.    LDX #FREE═EMORY
  23.    JSR MEMSTAT
  24.    STA PROCESS╔D
  25.    SEC
  26.    LDA ACE═EM╘OP+0
  27.    SBC #<ACE┴PP┴DDRESS
  28.    STA TPA═EMORY+0
  29.    LDA ACE═EM╘OP+1
  30.    SBC #>ACE┴PP┴DDRESS
  31.    STA TPA═EMORY+1
  32.    
  33.    LDA #<PROCESS═SG
  34.    LDY #>PROCESS═SG
  35.    JSR PUTS
  36.    LDX #PROCESS╔D
  37.    JSR PUTNUM
  38.  
  39.    LDA #<TOTAL═SG
  40.    LDY #>TOTAL═SG
  41.    JSR PUTS
  42.    LDX #TOTAL═EMORY
  43.    JSR PUTNUM
  44.  
  45.    LDA #<FREE═SG
  46.    LDY #>FREE═SG
  47.    JSR PUTS
  48.    LDX #FREE═EMORY
  49.    JSR PUTNUM
  50.  
  51.    LDA #<TPA═SG
  52.    LDY #>TPA═SG
  53.    JSR PUTS
  54.    LDX #TPA═EMORY
  55.    JSR PUTNUM
  56.    RTS
  57.  
  58. PROCESS═SG = *
  59.    .ASC "╨ROCESS╔─    ="
  60.    .BYTE 0
  61. TOTAL═SG = *
  62.    .ASC "╘OTAL ═EMORY ="
  63.    .BYTE 0
  64. FREE═SG = *
  65.    .ASC "─YNAMIC ╞REE ="
  66.    .BYTE 0
  67. TPA═SG = *
  68.    .ASC "╨ROGRAM ╞REE ="
  69.    .BYTE 0
  70.  
  71. NUMBUF .BUF 13
  72.  
  73. PUTNUM = *
  74.    LDA #<NUMBUF
  75.    LDY #>NUMBUF
  76.    STA ZP+0
  77.    STY ZP+1
  78.    LDA #10
  79.    JSR UTOA
  80.    LDA #13
  81.    STA NUMBUF+0,Y
  82.    LDA #0
  83.    STA NUMBUF+1,Y
  84.    LDA ZP+0
  85.    LDY ZP+1
  86.    ;** FALL THROUGH
  87.  
  88. PUTS = *
  89.    LDX #STDOUT
  90.    STA ZP+0
  91.    STY ZP+1
  92.    LDY #$FF
  93. -  INY
  94.    LDA (ZP),Y
  95.    BNE -
  96.    TYA
  97.    LDY #0
  98.    JMP WRITE
  99.