;;; -*- Mode:LISP; Package:MICRO; Base:8; Readtable:ZL -*-

(define-micro-function get-number-of-mapping-registers ()
  (popj-after-next (m-t) a-number-of-data-mapping-registers-for-disk)
 ((m-t) ldb q-pointer m-t (a-constant (byte-value q-data-type dtp-fix))))

(define-micro-function set-number-of-mapping-registers (new-number)
  (popj-after-next (a-number-of-data-mapping-registers-for-disk) q-pointer pdl-pop)
 (no-op))