Mercurial > hg > Members > kono > nitros9-code
view level1/cmds/mfree.asm @ 2758:e4a0f58a5f9b
Found that people who do not have the envirornment variable NITROS9DIR set before building the project get a error missing file "/rules.mak". Found this is caused do to the fact that the code to set this envirornment variable is in the rules.mak which can't get loaded.
To fix this the code needed to set the envirornment variable that is in the rules.mak is now in the makefile(s) right before the include for the rules.mak file. This should fix the problem for those who do not have the NITROS9DIR envirornment variable preset.
| author | drencor-xeen |
|---|---|
| date | Mon, 14 Jan 2013 14:37:46 -0600 |
| parents | 84ea83668304 |
| children |
line wrap: on
line source
******************************************************************** * Mfree - Show free memory * * $Id$ * * Edt/Rev YYYY/MM/DD Modified by * Comment * ------------------------------------------------------------------ * 5 ????/??/?? * From Tandy OS-9 Level One VR 02.00.00. nam Mfree ttl Show free memory * Disassembled 02/04/05 15:22:05 by Disasm v1.6 (C) 1988 by RML ifp1 use defsfile endc tylg set Prgrm+Objct atrv set ReEnt+rev rev set $00 edition set 5 stdout set 1 mod eom,name,tylg,atrv,start,size org 0 fmbegin rmb 2 fmend rmb 2 u0004 rmb 1 u0005 rmb 1 upper rmb 2 Upper boundary of free segment lower rmb 2 Lower boundary of free segment pages rmb 1 bufptr rmb 2 buffer rmb 530 size equ . name fcs /Mfree/ fcb edition header fcb C$LF fcc " Address pages" fcb C$LF fcc "--------- -----" fcb $80+C$CR totfree fcb C$LF fcs "Total pages free = " L0048 fcs "Graphics Memory " notalloc fcs "Not Allocated" ataddr fcs "at: $" start leay buffer,u sty <bufptr leay <header,pcr bsr ApndStr bsr print ldx >D.FMBM The free memory bitmap pointer start stx <fmbegin ldx >D.FMBM+2 The free memory bitmap pointer end stx <fmend clra clrb sta <u0005 Clear std <upper Clear std <lower Clear stb <pages Clear ldx <fmbegin nextbyte lda ,x+ bsr L00A8 cmpx <fmend bcs nextbyte bsr L00B8 leay <totfree,pcr bsr ApndStr ldb <u0005 bsr bDeci bsr print lbsr display clrb os9 F$Exit * L00A8 bsr L00AA L00AA bsr L00AC L00AC bsr L00AE L00AE lsla bcs L00B8 inc <u0005 inc <pages inc <upper rts L00B8 pshs b,a ldb <pages beq L00D7 ldd <lower bsr dHexa lda #$2D '-' char bsr ApndA ldd <upper subd #$0001 bsr dHexa bsr aspace Append a space to buffer bsr aspace Append a space to buffer ldb <pages bsr bDeci bsr print L00D7 inc <upper ldd <upper std <lower clr <pages puls pc,b,a * * Append string (in reg y) to buffer * ApndStr lda ,y anda #$7F bsr ApndA lda ,y+ bpl ApndStr rts * * Print the buffer * print pshs y,x,a lda #C$CR Add form feed to buffer bsr ApndA leax buffer,u Reset bufptr to start of buffer stx <bufptr ldy #80 Max line length = 80 lda #stdout os9 I$WritLn puls pc,y,x,a * * Appends the content of register B in decimal * to the buffer * bDeci lda #$FF clr <u0004 L0105 inca subb #$64 bcc L0105 bsr L0119 lda #$0A L010E deca addb #$0A bcc L010E bsr L0119 tfr b,a inc <u0004 L0119 tsta beq L011E sta <u0004 L011E tst <u0004 bne L0124 aspace lda #$F0 L0124 adda #$30 Offset to "0" in ascii table cmpa #$3A bcs ApndA adda #$07 * * Append character (in a) to buffer * ApndA pshs x ldx <bufptr sta ,x+ stx <bufptr puls pc,x * * Append register D as hex string to buffer * dHexa clr <u0004 bsr L013C tfr b,a L013C pshs a lsra lsra lsra lsra bsr L0146 puls a L0146 anda #$0F bra L0119 display pshs y,x leay >L0048,pcr bsr ApndStr lda #stdout ldb #SS.DStat os9 I$GetStt bcc L0163 leay >notalloc,pcr bsr ApndStr bra L016E L0163 leay >ataddr,pcr lbsr ApndStr tfr x,d bsr dHexa L016E puls y,x lbra print emod eom equ * end