tHDINFO COMHDINFO Z80 I !D>ͅ###"!7!7!7!$$ HDINFO ver 0.5 Returns hard disk storage info for the AMPRO Little Board. HD$CURRENT: HD$VECTORS: HD$BYTE$BLOCK: ~#   D   y yG>GO> q33 ?7q0q qqqq q q>^q@qO*. Ê"*+++ʠ=×* :00000000; ; HDINFO --- types current AMPRO hard disk buffer addresses. ; no fancy checking, just does the job. ; assemble with ZAS, link with ZLINK. ; uses SYSLIB routines BIOS,PSTR,PA2HC ; ; Daniel Kelley ; P.O. Box 90266 ; San Jose,CA 95109-3266 VERS equ 05 CR equ 13 LF equ 10 HDINFO equ 17 EXTRN BIOS,PSTR,PA2HC start ld hl,smsg call pstr ld a,hdinfo call bios ; HL points to AMPRO secondary jump table inc hl ; point to second jump ( hd$info) inc hl inc hl ld (newcall),hl newcall equ $+1 ; sure could use a CALL (HL) ! call 0 ex de,hl ld hl,cmsg ; print current buffer storage call pstr call nxtptr ld hl,vmsg ; ...vector call pstr call nxtptr ld hl,bmsg ; ...byte/block call pstr call nxtptr ld hl,emsg call pstr ret ; nxtptr inc de ld a,(de) ; print word pointed to by DE call pa2hc ; DE=DE+2 dec de ld a,(de) call pa2hc inc de inc de ret smsg DB cr,lf,'HDINFO ver ',VERS/10+'0','.',VERS MOD 10 + '0' DB cr,lf,'Returns hard disk storage info for the AMPRO' DB ' Little Board.',0 cmsg DB cr,lf,lf,'HD$CURRENT: ',0 vmsg DB cr,lf, 'HD$VECTORS: ',0 bmsg DB cr,lf, 'HD$BYTE$BLOCK: ',0 emsg DB cr,lf,lf,0 .end start$CURRENT: ',0