home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / EXTRA-ST / CPM-80-E / CPM-0.2 / CPM-0 / cpm-0.2 / z80-sources / mylib / version.mac < prev   
Encoding:
Text File  |  1994-06-06  |  1.0 KB  |  33 lines
  1. ;************************************************************************
  2. ;*                                    *
  3. ;*        _VERSION pr}ft, ob Cp/M Version (2.2) vorliegt.        *
  4. ;*        au~erdem mu~ die z80-Cpu installiert sein.        *
  5. ;*        wenn nicht, Fehlermeldung und ins CCP zur}ck!        *
  6. ;*                                    *
  7. ;************************************************************************
  8.  
  9.         maclib BDOSCALL.MLB    ;
  10.         entry _version        ;
  11.  
  12. _version:    xor a            ; UP to test, if z80-cpu
  13.         dec a            ; some set flags, some do not...
  14.         jp po,cpu_ok        ; only if Zilog-CPU
  15.         ld de,bad_cpu_msg    ; Fehlermeldung
  16. bad_version:    bdos print_string    ; Meldung ausgeben
  17.         bdos system_reset    ; finish execution
  18.  
  19. cpu_ok:        bdos return_version    ;
  20.         ld de,bad_ver_msg    ;
  21.         sub 22h            ; Cp/M 2.2?
  22.         jr nz,bad_version    ;
  23.         or h            ; MP/M version?
  24.         jr nz,bad_version    ;
  25.         ret            ; HL=0000, AF=0044
  26.  
  27.         dseg            ;
  28. bad_cpu_msg:    db 'requires z80-cpu$'    ;
  29. bad_ver_msg:    db 'requires Cp/M 2.2$'    ;
  30.         cseg            ;
  31.  
  32.         end            ;
  33.