home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / Geneve / 9640news / CAT14 / SSMBLY2.ARK < prev    next >
Text File  |  2006-10-19  |  3KB  |  91 lines
  1. ?
  2.  AUTHOR: Brad Kinne/David Leiner
  3.  
  4.    Are you afraid to learn assembly language? I was so I asked David to help me
  5. learn assembly by showing me examples, letting me type them in, assembling and
  6. then running them.  That's what happened:
  7.  
  8.    Using EDITOR/ASSEMBLER module and the A Editor/Assembler Disk in drive 1,
  9. press 1 to EDIT. Now press 2 to EDIT. The editor will load. This will give you
  10. a blank screen with *EOF (VERSION 1.2) at the top. Press FCTN S. You will now
  11. see line numbers. Type in this program EXACTLY as shown.  (FCTN 7 is a tab that
  12. will move you to the proper columns)
  13.  
  14.  
  15. 001  * SCREEN DISPLAY
  16. 002         DEF  START
  17. 003         REF  VSBW,VMBW,VWTR,KSCAN
  18. 004  ROW    DATA 10           ROW NUMBER 10
  19. 005  COL    DATA 10           COLUMN NUMER 10
  20. 006  LENGTH DATA 20           LENGTH OF DATA STRING
  21. 007  STRING TEXT 'HELLO, HOW ARE YOU?'
  22. 008  ENDKEY EQU  >3D
  23. 009  START  MOV  @>837C,R6
  24. 010  * CLEAR SCREEN
  25. 011         CLR  R0           INIT. R0 TO BEG. OF SCREEN
  26. 012         LI   R1,>2000     SPACE IN UPPER BYTE OF R1
  27. 013  LOOP   BLWP @VSBW        WRITE THE SPACE TO SCREEN
  28. 014         INC  R0           INCREMENT THE SCREEN ADDRESS
  29. 015         CI   R0,768       FINISHED?
  30. 016         JLT  LOOP LOOP IF NOT FINISHED
  31. 017  * WRITE STRING TO SCREEN
  32. 018         MOV  @LENGTH,R2   STRING LENGTH TO R2
  33. 019         LI   R1,STRING    ADDRESS OF STRING TO R1
  34. 020         MOV  @ROW, R0     CONTENTS OF ROW TO R0
  35. 021         SLA  R0,5         MULTIPLY BY 5
  36. 022         A    @COL,R0      ADD CONTENTS OF COL TO R0
  37. 023         BLWP @VMBW        WRITE TO SCREEN
  38. 024  * WAIT FOR KEY TO BE PRESSED BEFORE STOPPING
  39. 025         CLR  R0
  40. 026         MOVB R0,@>8374
  41. 027  WAIT   BLWP @KSCAN
  42. 028         MOVB @>837C,R0
  43. 029         ANDI R0,>2000
  44. 030         JEQ  WAIT
  45. 031         LI   R0,ENDKEY
  46. 032         SWPB R0
  47. 033         CB   @>8375,R0
  48. 034         JNE  WAIT
  49. 035         MOV  R6,@>837C
  50. 036         RT                RETURN
  51. 037         END
  52.  
  53.   Remove Editor/Assmbler disk and place blank initialized disk in drive 1. Now,
  54. press FCTN 9 twice. Press 3 to save.  Press Y for VAR 80 FORMAT.  Filename
  55. should be DSK1.SCREEN Press FCTN 9. This will give you the main menu. Remove
  56. working disk. Place Editor/Assmbler disk back in drive 1.  Press 2 to ASSEMBLE.
  57. Press Y to load assembler. After assembler is loaded, replace working disk in
  58. drive 1.
  59.  
  60. SOURCE FILE NAME: DSK1.SCREEN
  61.  
  62. OBJECT FILE NAME: DSK1.SCREEN/OBJ
  63.  
  64. LIST FILE NAME: press ENTER
  65.  
  66. OPTIONS: R
  67.  
  68.   Assembler should take over. You should see 0000 ERRORS.  If there are any
  69. errors, you need to go back and check your typing(ENTER,1 to EDIT, 2 TO LOAD,
  70. DSK1.SCREEN)
  71.  
  72. Press ENTER.  You are now back to the main menu. Press 3 LOAD AND RUN
  73.  
  74. FILE NAME: DSK1.SCREEN/OBJ
  75.  
  76. When FILE NAME: reappears, press ENTER.
  77.  
  78. PROGRAM NAME: START
  79.  
  80.   The program should clear the screen, display "HELLO, HOW ARE YOU?" near the
  81. center of the screen.  Press "=" to stop program.
  82.  
  83.   Those with two drives, leave Editor/Assembler disk in drive 1 and your
  84. working disk in drive 2. All references to "SCREEN" or "SCREEN/OBJ" will be
  85. DSK2......
  86.  
  87.  
  88. Download complete.  Turn off Capture File.
  89.  
  90.  
  91.