freem_fileman/USER/DINZFRM.m - diff

Return to DINZFRM.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

version 1.1, 2025/04/28 14:13:21	version 1.2, 2025/04/28 19:23:48
Line 8 DINZFRM ;VCL/SNW-SETS ^%ZOSF FOR FREEM ;	Line 8 DINZFRM ;VCL/SNW-SETS ^%ZOSF FOR FREEM ;
Q	Q
;	;
Z ;;	Z ;;
	;;OS;; Operating System Name
	;;FreeM^19
;;ACTJ	;;ACTJ
;;S Y=$$ACTJ^%ZOSV()	;;S Y=$$ACTJ^%ZOSV()
;;AVJ	;;AVJ
;;S Y=$$AVJ^%ZOSV()	;;S Y=$$AVJ^%ZOSV()
;;BRK	;;BRK
;;B 1	;;BREAK -2
;;CPU	;;CPU
;;Q	;;Q
;;DEL	;;DEL
Line 87 Z ;;	Line 89 Z ;;
;;TRAP	;;TRAP
;;$ZT=X	;;$ZT=X
;;TRMOFF	;;TRMOFF
;;S ^$DEVICE($IO,"OPTIONS","TERMINATOR")=$C(10)	;;U $IO::$C(10,13,27)
;;TRMON	;;TRMON
;;S ^$DEVICE($IO,"OPTIONS","TERMINATOR")=$C(13,10)	;;U $IO::$C(0,1,2,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,127)
;;TRMRD	;;TRMRD
;;S Y=$ZB	;;S Y=$K
;;TYPE-AHEAD	;;TYPE-AHEAD
;;S ^$DEVICE($IO,"OPTIONS","NOTYPEAHEAD")=0	;;S ^$DEVICE($IO,"OPTIONS","NOTYPEAHEAD")=0
;;UCI	;;UCI
Line 101 Z ;;	Line 103 Z ;;
;;UPPERCASE	;;UPPERCASE
;;S Y=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")	;;S Y=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
;;XY	;;XY
;;U $I:(::::::DY*256+DX)	;;S $X=IOX,$Y=IOY
;;ZD	;;ZD
;;S Y=$ZD(X)	;;S Y=$ZD(X)