NBPrg40. (*prog). (**bas). pbas.PAS. MiniOS. OpenSource.

NBPrg40. (*prog). (**bas). pbas.PAS. MiniOS. OpenSource.
**************************************

{ Nikita Beloshenko (GNU) 2013 }

Unit pbas;

(***********************************************
 *                                             *
 *   PBAS.PAS                                  *
 *                                             *
 *   pbas.                                     *
 *                                             *
 ***********************************************)

Interface

Procedure pbas_run;

Implementation

Procedure pbas_run;
Var

NBPrg40. (*prog). (**bas). OUT.BAS. MiniOS. OpenSource.

NBPrg40. (*prog). (**bas). OUT.BAS. MiniOS. OpenSource.
**************************************

CLS
PRINT "+++++++++++++++++++++++basic+++++++++++++++++++++++++"
PRINT "1-new,2-run,3-end,4-goto modul"
INPUT A$
IF A$="1" THEN
PRINT "file name?"
INPUT B$
A$ = ".bas"
B$ = B$ + A$
OPEN B$ FOR OUTPUT AS #1
DO
INPUT "comand?", A$
PRINT #1, A$
LOOP UNTIL A$ = "end"
RUN
END IF
IF A$ = "3" THEN CLS : END
IF A$ = "4" THEN RUN "modul"
IF A$ = "2" THEN
INPUT "name?", D$
RUN D$
END IF
RUN

NBPrg40. (*prog). (**bas). dirinfo. MiniOS. OpenSource.

NBPrg40. (*prog). (**bas). dirinfo. MiniOS. OpenSource.
**************************************

+-----+
+ bas +
+-----+

  Nikita Beloshenko (GNU) 2013.

  NBPrg40 .

  -> prog -> bas

  out.bas   : Program (Qbasic). 
  pbas.pas  : Unit.
  prg.pas   : Program.

  +-------+
  + pbas  +-----------------(ReWrite)-->-----\
  +-------+                                  |
                                             |
                                             +-----------+
                                             + out.bas   +

NBPrg40. (*prog). (**asm). PRG.PAS. MiniOS. OpenSource.

NBPrg40. (*prog). (**asm). PRG.PAS. MiniOS. OpenSource.
**************************************

{ Nikita Beloshenko (GNU) 2013 }

(*
        PRG.PAS
*)

Program prg;

Uses pasm;

Begin
  pasm_run;
End.

NBPrg40. (*prog). (**asm). pasm.ts. MiniOS. OpenSource.

NBPrg40. (*prog). (**asm). pasm.ts. MiniOS. OpenSource.
**************************************

pasm
prog -> asm
pasm_run

NBPrg40. (*prog). (**asm). pasm.PAS. MiniOS. OpenSource.

NBPrg40. (*prog). (**asm). pasm.PAS. MiniOS. OpenSource.
**************************************

{ Nikita Beloshenko (GNU) 2013 }
{ &                            }
{ ThanksForWiki.bmp            }

Unit pasm;

(***********************************************
 *                                             *
 *   PASM.PAS                                  *
 *                                             *
 *   pasm.                                     *
 *                                             *
 ***********************************************)

Interface

2018. News. World. Europe. USA. EU. Ukraine. Протидія хворобам, небезпекам кліматичного та екологічного характеру.

2018. News. World. Europe. USA. EU. Ukraine. Протидія хворобам, небезпекам кліматичного та екологічного характеру. https://www.rbc.ua/rus/news/rime-silnogo-dozhdya-grada-zakryli-metro-154... Джерело:РБК-УКРАЇНА.

NBPrg40. (*prog). (**asm). FRAG.ASM. MiniOS. OpenSource.

NBPrg40. (*prog). (**asm). FRAG.ASM. MiniOS. OpenSource.
**************************************


RESETA   EQU   %00010011
CTLREG   EQU   %00010001

INITA    LDA A  #RESETA
         STA A  ACIA
         LDA A  #CTLREG

         JMP    SIGNON       GO TO START OF MONITOR


NBPrg40. (*prog). (**asm). dirinfo. MiniOS. OpenSource.

NBPrg40. (*prog). (**asm). dirinfo. MiniOS. OpenSource.
**************************************

+-----+
+ asm +
+-----+

  NBPrg40 .

  -> prog -> asm

  frag.asm  : Assembler program (fragment). 
  pasm.pas  : Unit.
  prg.pas   : Program.

  +-------+
  + pasm  +-----------------(ReWrite)-->-----\
  +-------+                                  |
                                             |
                                             +-----------+
                                             + frag.asm  +

NBPrg40. (*info). NBPrg40.TXT. MiniOS. OpenSource.

NBPrg40. (*info). NBPrg40.TXT. MiniOS. OpenSource.
**************************************

NBPRG40.TXT
Синдикация материалов