TITLE DISK SUBSYSTEM TEST UTILITY ; ;****Donated to the Pascal/Z80 Users Group******* ; USING THE NAME 'COPYTT.COM' ; ; ; DEFINE SYMBOLS ; ; ;EXTERNAL CALLS ; FBBASE DEFL 0F000H GOBACK DEFL 8000H ; ;INTERNAL SYMBOLS ; CR DEFL 0DH LF DEFL 0AH EOM DEFL '$' BDOS DEFL 05H BUFOUT DEFL 9 ; START LD DE,MSG LD C,BUFOUT CALL BDOS RET ; MSG DEFB CR,LF,'IF YOU GOT THIS FAR THEN YOU HAD A' DEFB CR,LF,'LOAD AND ARE NOW BACK IN THE MONITOR' DEFB CR,LF,'IS THAT SO?',EOM END START