1 /********************************************************************
2 /********************************************************************
9 MLOOP, / MAIN EVENT LOOP
10 JMS I XDUMP / START A DUMP, PLEASE
11 JMS I XCALC / CALCULATE NEW DATA
22 /********************************************************************
25 CCADDR, 0 / CURRENT CELL ADDRESS
75 JMS I XSET / NOW, IT'S ALIVE!
98 /********************************************************************
148 TAD DBASE / BUFFER BASE ADDRESS
149 TAD DOFF / CURRENT WORD OFFSET
150 DCA DDPTR / TO INTERNAL POINTER
153 CLOOP, TAD DMSK / BIT MASK, DYNAMIC
154 AND I DDPTR / COMBINE CURRENT WORD
185 JMP I XTSTOP / STOP INTERRUPT MADNESS.
192 JMS I XTYPE / FILLER CHARACTERS!
215 /********************************************************************
216 / NEIGHBORHOOD COUNTING
226 TAD KCOLM1 / STEP LEFT
265 CNT, 0 / COUNTER VARIABLE
268 /********************************************************************
269 / DATA HOLDING AND ACCESS
271 PAGE / START ON NEW PAGE
275 CADR, 0 / CURRENT CELL ADDRESS
276 MASK, 0 / BIT MASK TO CURRENT CELL BIT
277 APTR, 0 / ACCESS POINTER TO CURRENT CELL WORD
280 GET, 0 / GET POSITION'S VALUE
281 JMS ASETUP / CHECK LIMITS, STORE ADDRESS ETC.
282 JMP I GET / ERROR RETURN, RETURN WITH LIMIT VALUE IN AC
284 TAD SPTR / ADD SOURCE DATA BASE
286 TAD I APTR / LOAD DATA
287 AND MASK / MASK OUT DESIRED BIT
289 CLA CLL IAC / MAKE A ONE OUT OF AC CONTENTS
292 SET, 0 / SET POSITION'S VALUE TO 1
293 JMS ASETUP / CHECK LIMITS, STORE ADDRESS ETC.
294 JMP I SET / ERROR RETURN, RETURN WITH LIMIT VALUE IN AC
296 TAD TPTR / ADD SOURCE DATA BASE
300 AND I APTR / COMBINE WITH DATA
302 DCA I APTR / UPDATE DATA
305 CLEAR, 0 / CLEAR POSITION'S VALUE TO 0
306 JMS ASETUP / CHECK LIMITS, STORE ADDRESS ETC.
307 JMP I CLEAR / ERROR RETURN, RETURN WITH LIMIT VALUE IN AC
309 TAD TPTR / ADD SOURCE DATA BASE
313 AND I APTR / COMBINE WITH DATA
314 DCA I APTR / UPDATE DATA
318 DCA CADR / SAVE ADDRESS FOR LATER USE
322 BSW / NOW ROW ADDRESS IN LOWER BITS
323 AND K77 / MASK OUT UPPER BITS
326 JMP LGD1 / ONE LIMIT GOOD
328 TAD KBORD / BORDER STANDARD RETURN VALUE
329 JMP I ASETUP / ERROR RETURN
338 JMP I ASETUP / ERROR RETURN
341 / SETUP POINTER AND MASK
346 DCA APTR / ACCESS POINTER
354 ISZ ASETUP / PREPARE GOOD RETURN
355 JMP I ASETUP / GOOD RETURN