home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol043 / wrnxt.asm < prev    next >
Encoding:
Assembly Source File  |  1984-04-29  |  500 b   |  38 lines
  1.     ENTRY    ?WRNXT
  2.     EXTRN    ?BDOS
  3.     EXTRN    ?BOOT
  4. ?WRNXT:    MOV    E,A
  5.     MVI    C,2
  6.     CALL    ?BDOS
  7.     RET        ;RETURN TO USER CODE
  8.     ENTRY    ?RNX
  9. ?RNX:    MVI    C,1
  10.     CALL    ?BDOS
  11.     RET        ;RETURN TO USER CODE
  12.     ENTRY    ?ISTOP
  13. ?ISTOP:    MVI    C,9
  14.     ORI    '0'
  15.     STA    STNO
  16.     LXI    D,STOPMG
  17.     CALL    ?BDOS
  18.     JMP    ?BOOT
  19.     entry    ?msg
  20. ?msg:    xthl
  21.     mvi    b,9
  22. ms1:    mov    e,m
  23.     push    b
  24.     push    h
  25.     mvi    c,2
  26.     call    ?bdos
  27.     pop    h
  28.     pop    b
  29.     inx    h
  30.     dcr    b
  31.     jnz    ms1
  32.     xthl
  33.     ret
  34. STOPMG:    DB    0DH,0AH,'STOP STATEMENT '
  35. STNO:    DB    '0'
  36.     DB    ' IN SOURCE CODE$'
  37.     end
  38.